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

diff --git a/src/code/package.lisp b/src/code/package.lisp
index 4bed38b..2bb677f 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -208,9 +208,9 @@
                                            &body body)
   #!+sb-doc
   "Within the lexical scope of the body forms, MNAME is defined via macrolet
-   such that successive invocations of (MNAME) will return the symbols,
-   one by one, from the packages in PACKAGE-LIST. SYMBOL-TYPES may be
-   any of :INHERITED :EXTERNAL :INTERNAL."
+such that successive invocations of (MNAME) will return the symbols, one by
+one, from the packages in PACKAGE-LIST. SYMBOL-TYPES may be any
+of :INHERITED :EXTERNAL :INTERNAL."
   (let* ((packages (gensym))
          (these-packages (gensym))
          (ordered-types (let ((res nil))
@@ -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)