From d2d4a9c41431b7c27e26d309519e5141218d0abc Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Mon, 4 May 1998 11:26:19 +0000 Subject: [PATCH] Revision 1.43 neglected to entirely purge flushed 'append-unique' from defpackage. Hopefully I got it right this time. --- code/package.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/code/package.lisp b/code/package.lisp index 05efd9ae1..81bfa8c8b 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.44 1998/05/04 00:03:21 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.45 1998/05/04 11:26:19 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -642,8 +642,7 @@ :format-arguments (list option))) (case (car option) (:nicknames - (let ((new (stringify-names (cdr option) "package"))) - (setf nicknames (append-unique new nicknames :nicknames)))) + (setf nicknames (stringify-names (cdr option) "package"))) (:size (cond (size (error 'program-error @@ -669,9 +668,8 @@ (setf shadowing-imports (acons package-name names shadowing-imports)))))) (:use - (let ((new (stringify-names (cdr option) "package"))) - (setf use (append-unique new use :use)) - (setf use-p t))) + (setf use (stringify-names (cdr option) "package") ) + (setf use-p t)) (:import-from (let ((package-name (stringify-name (second option) "package")) (names (stringify-names (cddr option) "symbol"))) -- GitLab