Skip to content
Snippets Groups Projects
Commit 9bb48a97 authored by rtoy's avatar rtoy
Browse files

Unintern removes the wrong symbol. See

parent 89f16dfc
No related branches found
No related tags found
No related merge requests found
......@@ -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.80 2010/04/20 17:57:45 rtoy Rel $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.81 2010/12/26 14:03:48 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1444,8 +1444,8 @@
(remove symbol shadowing-symbols)))
(multiple-value-bind (s w) (find-symbol name package)
(declare (ignore s))
(cond ((or (eq w :internal) (eq w :external))
(cond ((not (eq symbol s)) nil)
((or (eq w :internal) (eq w :external))
(nuke-symbol (if (eq w :internal)
(package-internal-symbols package)
(package-external-symbols package))
......
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