X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-package.lisp;h=05c80ad98dca25388401dd5aab1e1e369f3c620f;hb=860543cc7ba0266e41e1d41ac9b6a208f3795f1a;hp=e7a79f23fed9aa000bca8dd30020a68e616b3ef1;hpb=acce826c593a188b231b7b7918c752bda21d0201;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index e7a79f2..05c80ad 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -877,7 +877,8 @@
 	(do-symbols (symbol package)
 	  (when (and (eq (symbol-package symbol) package)
 		     (or (not external-only)
-			 (eq (find-symbol (symbol-name symbol) package)
+			 (eq (nth-value 1 (find-symbol (symbol-name symbol)
+						       package))
 			     :external))
 		     (search string (symbol-name symbol) :test #'char-equal))
 	    (push symbol result)))