From d3c8d1bfcd85bbda6d762af2af8272f88402550f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 23 Jul 1993 13:44:38 +0000 Subject: [PATCH] Changed DEFPACKAGE to do only one call to EXPORT so that we can proceed from any error just once instead of once per symbol. --- code/package.lisp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/code/package.lisp b/code/package.lisp index 13044a222..99a7749d4 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.31 1993/07/15 23:33:09 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.32 1993/07/23 13:44:38 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -745,16 +745,16 @@ (dolist (sym-name (cdr imports-from)) (import (find-or-make-symbol sym-name other-package) package)))) ;; Exports. - (let ((old-exports nil)) + (let ((old-exports nil) + (exports (mapcar #'(lambda (sym-name) (intern sym-name package)) + exports))) (do-external-symbols (sym package) (push sym old-exports)) - (dolist (sym-name exports) - (let ((sym (intern sym-name package))) - (export sym package) - (setf old-exports (delete sym old-exports :test #'eq)))) - (when old-exports - (warn "~A also exports the following symbols:~% ~S" - name old-exports))) + (export exports package) + (let ((diff (set-difference old-exports exports))) + (when diff + (warn "~A also exports the following symbols:~% ~S" + name diff)))) package)) (defun find-or-make-symbol (name package) -- GitLab