X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=9c10525170d26278f3f85f90d218dab3c8bed6cb;hb=07ab1e4811ab16f95a9a5e8d767426a0787f22c0;hp=e92c43f41ac587dd1ac90d90ff54fff9ae20663c;hpb=56fd7d95cfadb61a353e8999111a0e2e6a94842b;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index e92c43f..9c10525 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -883,7 +883,7 @@ implementation it is ~S." *default-package-use-list*)
                  (if (eq package-symbol chosen-symbol)
                      nil                ; re-importing the same symbol
                      (shadowing-import (list chosen-symbol) package))
-                 (shadowing-import chosen-symbol package)))))))))
+                 (shadowing-import (list chosen-symbol) package)))))))))
 
 ;;; If we are uninterning a shadowing symbol, then a name conflict can
 ;;; result, otherwise just nuke the symbol.