Changeset 4524

Timestamp:

10/24/03 16:35:42 (18 years ago)

Author:

piso

Message:

JVM-COMPILE: don't bind *PACKAGE* to NIL when compiling a function whose name
is an uninterned symbol (FMAKUNBOUND.2).

File:

• trunk/j/src/org/armedbear/lisp/jvm.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/jvm.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: jvm.lisp,v 1.1 2003-10-23 13:12:24 piso Exp $
+;;; $Id: jvm.lisp,v 1.2 2003-10-24 16:35:42 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -1910 +1910 @@
         (return-from jvm-compile (values name nil nil))))
     (handler-case
-        (let* ((*package* (if name (symbol-package name) *package*))
+        (let* ((*package* (if (and name (symbol-package name))
+                              (symbol-package name)
+                              *package*))
                (expr (get-lambda-to-compile definition))
                (compiled-definition (compile-defun name expr)))