X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=3759f74106fb6ac0945a144619b98470e41718ee;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=c8f67568b4ee36658b2d664c109038ef64d9dc60;hpb=d147d512602d761a2dcdfded506dd1a8f9a140dc;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index c8f6756..3759f74 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -277,7 +277,7 @@
 ;;; If there is a conflict then give the user a chance to do
 ;;; something about it.
 (defun enter-new-nicknames (package nicknames)
-  (check-type nicknames list)
+  (declare (type list nicknames))
   (dolist (n nicknames)
     (let* ((n (package-namify n))
 	   (found (gethash n *package-names*)))