[armedbear-cvs] r13763 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Wed Jan 11 13:07:09 2012
New Revision: 13763

Log:
fix (defpackage :foo (:import-from "COMMON-LISP" "NIL"))

We used the primary value of find-symbol to check for the existence of
the symbol, which works in all cases except NIL.

Modified:
   trunk/abcl/src/org/armedbear/lisp/package.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/package.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/package.lisp	Wed Jan 11 13:07:07 2012	(r13762)
+++ trunk/abcl/src/org/armedbear/lisp/package.lisp	Wed Jan 11 13:07:09 2012	(r13763)
@@ -57,7 +57,7 @@
                                       (mapcar #'(lambda (sym)
                                                   (restart-case
                                                       (progn
-                                                        (unless (find-symbol sym package)
+                                                        (unless (nth-value 1 (find-symbol sym package))
                                                           (error 'package-error
                                                                  "The symbol ~A is not present in package ~A." sym (package-name package)))
                                                         sym)