Changeset 13763

Timestamp:

01/11/12 21:07:09 (11 years ago)

Author:

rschlatte

Message:

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.

File:

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

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

@@ -58 +58 @@
                                                   (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)))