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

diff --git a/src/code/package.lisp b/src/code/package.lisp
index 2bb677f..b1366d6 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -295,10 +295,10 @@ of :INHERITED :EXTERNAL :INTERNAL."
                       :INHERITED must be supplied."))
            ,(dolist (symbol symbol-types)
               (unless (member symbol '(:internal :external :inherited))
-                (error 'program-error
+                (error 'simple-program-error
                        :format-control
                        "~S is not one of :INTERNAL, :EXTERNAL, or :INHERITED."
-                       :format-argument symbol)))
+                       :format-arguments (list symbol))))
            (,init-macro ,(car ordered-types))
            (flet ((,real-symbol-p (number)
                     (> number 1)))