Skip to content
Snippets Groups Projects
Commit d2d4a9c4 authored by pw's avatar pw
Browse files

Revision 1.43 neglected to entirely purge flushed 'append-unique'

from defpackage. Hopefully I got it right this time.
parent 6c21ff8a
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -642,8 +642,7 @@
:format-arguments (list option))) :format-arguments (list option)))
(case (car option) (case (car option)
(:nicknames (:nicknames
(let ((new (stringify-names (cdr option) "package"))) (setf nicknames (stringify-names (cdr option) "package")))
(setf nicknames (append-unique new nicknames :nicknames))))
(:size (:size
(cond (size (cond (size
(error 'program-error (error 'program-error
...@@ -669,9 +668,8 @@ ...@@ -669,9 +668,8 @@
(setf shadowing-imports (setf shadowing-imports
(acons package-name names shadowing-imports)))))) (acons package-name names shadowing-imports))))))
(:use (:use
(let ((new (stringify-names (cdr option) "package"))) (setf use (stringify-names (cdr option) "package") )
(setf use (append-unique new use :use)) (setf use-p t))
(setf use-p t)))
(:import-from (:import-from
(let ((package-name (stringify-name (second option) "package")) (let ((package-name (stringify-name (second option) "package"))
(names (stringify-names (cddr option) "symbol"))) (names (stringify-names (cddr option) "symbol")))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment