Changeset 11302

Timestamp:

09/01/08 20:45:06 (14 years ago)

Author:

ehuelsmann

Message:

Make the compliant fix for importing NIL.

File:

• trunk/j/src/org/armedbear/lisp/package.lisp (modified) (1 diff)

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

@@ -72 +72 @@
                      local-sym (package-name package)))
             (if package-supplied-p
-                (%import symbol package)
-                (%import symbol)))
+                (%import (list symbol) package) ;; in order to pass NIL, wrap in a list
+                (%import (list symbol))))
         (unintern-existing ()
           :report (lambda (s) (format s "Unintern ~S and continue" local-sym))