DEFPACKAGE failed to import symbol NIL when specified in :IMPORT-FROM clauses

This commit is contained in:
jgarcia 2006-05-20 22:13:47 +00:00
parent 49fb08f443
commit 218aa941f8
2 changed files with 5 additions and 1 deletions

View file

@ -204,6 +204,8 @@ ECL 0.9i
- The compiler now admits THE forms with type (VALUES ...), though they are
ignored.
- (DEFPACKAGE ... (:IMPORT NIL)) failed to import symbol NIL.
* Documentation:
- The HTML manuals now use CSS for a more appealing look.

View file

@ -207,7 +207,9 @@
(dolist (item imported-from-symbol-names-list)
(let ((package (find-package (first item))))
(dolist (name (rest item))
(import (find-or-make-symbol name package)))))
;; IMPORT can accept a list as argument, hence if we want to
;; import symbol NIL, we have to enclose it in a list.
(import (or (find-or-make-symbol name package) (list NIL))))))
(mapc #'intern interned-symbol-names)
(export (mapcar #'intern exported-symbol-names))
(dolist (package exported-from-package-names)