Changeset 4524
- Timestamp:
- 10/24/03 16:35:42 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/jvm.lisp
r4513 r4524 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: jvm.lisp,v 1. 1 2003-10-23 13:12:24piso Exp $4 ;;; $Id: jvm.lisp,v 1.2 2003-10-24 16:35:42 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 1910 1910 (return-from jvm-compile (values name nil nil)))) 1911 1911 (handler-case 1912 (let* ((*package* (if name (symbol-package name) *package*)) 1912 (let* ((*package* (if (and name (symbol-package name)) 1913 (symbol-package name) 1914 *package*)) 1913 1915 (expr (get-lambda-to-compile definition)) 1914 1916 (compiled-definition (compile-defun name expr)))
Note: See TracChangeset
for help on using the changeset viewer.