From 19aa9922272a64e0df2db73954130d658152afd9 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Wed, 11 Feb 1998 05:49:34 +0000 Subject: [PATCH] Fix for %defpackage which wasn't allowing NIL to be imported. --- code/package.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/package.lisp b/code/package.lisp index 538b3590b..41a1e60db 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.39 1997/12/18 07:20:41 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.40 1998/02/11 05:49:34 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -753,7 +753,8 @@ (dolist (imports-from imports) (let ((other-package (package-or-lose (car imports-from)))) (dolist (sym-name (cdr imports-from)) - (import (find-or-make-symbol sym-name other-package) package)))) + (import (list (find-or-make-symbol sym-name other-package)) + package)))) ;; Exports. (let ((old-exports nil) (exports (mapcar #'(lambda (sym-name) (intern sym-name package)) -- GitLab