X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpackage.lisp;h=e8aeb85a762ba653eae839b8a1ed1b638d64f0cb;hb=0d5ff04e2ced1cbb2979dd1a7fcfd7ba3d6da7c1;hp=4bed38b6327aa2d5bdf98a2ca1dac4e4fc944c70;hpb=31f072311935e32751508ecf824905c6b58a1d95;p=sbcl.git

diff --git a/src/code/package.lisp b/src/code/package.lisp
index 4bed38b..e8aeb85 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -236,7 +236,7 @@
                                        (or (find-package package)
                                            (error 'simple-package-error
                                                   ;; could be a character
-                                                  :name (string package)
+                                                  :package (string package)
                                                   :format-control "~@<~S does not name a package ~:>"
                                                   :format-arguments (list package)))))
                                  (if (consp ,these-packages)