diff --git a/code/package.lisp b/code/package.lisp index 7d942d43d1273d9fcc143a3b61cb4f2f6bafbcfb..39c580edb49ec0bc5f008a7161b3ad664cdb2a60 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.51 1998/07/16 13:30:49 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.52 1999/05/04 13:11:59 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -697,8 +697,9 @@ (setf shadowing-imports (acons package-name names shadowing-imports)))))) (:use - (setf use (stringify-names (cdr option) "package") ) - (setf use-p t)) + (let ((new (stringify-names (cdr option) "package"))) + (setf use (delete-duplicates (nconc use new) :test #'string=)) + (setf use-p t))) (:import-from (let ((package-name (stringify-name (second option) "package")) (names (stringify-names (cddr option) "symbol")))