X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=0e0a0aa5bb67f01d6e2d460918ba8704ec37140b;hb=bd2df60f7c3f579a9c7610925c79a0e783adaa0e;hp=fddb492a1395581db09ad55420c537185258d26c;hpb=b400484e0aa71c263c456fe7c85f80ed5661bff1;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index fddb492..0e0a0aa 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -1116,6 +1116,7 @@ the importation, then a correctable error is signalled."
                    (let ((found (member sym syms :test #'string=)))
                      (if found
                          (when (not (eq (car found) sym))
+                           (setf syms (remove (car found) syms))
                            (name-conflict package 'import sym sym (car found)))
                          (push sym syms))))
                   ((not (eq s sym))