Changeset 13763


Ignore:
Timestamp:
01/11/12 21:07:09 (12 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/package.lisp

    r12418 r13763  
    5858                                                  (restart-case
    5959                                                      (progn
    60                                                         (unless (find-symbol sym package)
     60                                                        (unless (nth-value 1 (find-symbol sym package))
    6161                                                          (error 'package-error
    6262                                                                 "The symbol ~A is not present in package ~A." sym (package-name package)))
Note: See TracChangeset for help on using the changeset viewer.