X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=7efbdff7931db4ed3563a6737234b31bbda320f9;hb=bb3994fcc9a556d1a26d35f6ff9386d01030821d;hp=ccaa5bbe8c0b2da277ae83b291544f08f6ae93cf;hpb=9152e162ab62d7027a4403fb9b461c31847649a2;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index ccaa5bb..7efbdff 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -967,8 +967,8 @@ uninterned."
                 (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))