X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpackage.lisp;h=276633d96238d24e87af248847d0dde9105d323f;hb=2c6b90e36a7c0377cd79625eb6c94d580f98cb93;hp=fa1c1da36ef05c34897efa70a2258306a94f4693;hpb=71173fc4590389c52ac0e1abd75f79e417dad361;p=sbcl.git

diff --git a/src/code/package.lisp b/src/code/package.lisp
index fa1c1da..276633d 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -279,15 +279,15 @@
 				  (,',init-macro ,(car ',ordered-types)))))))
 	 (when ,packages
 	   ,(when (null symbol-types)
-	      (error 'program-error
+	      (error 'simple-program-error
 		     :format-control
-		     "Must supply at least one of :internal, :external, or ~
-		      :inherited."))
+		     "At least one of :INTERNAL, :EXTERNAL, or ~
+		      :INHERITED must be supplied."))
 	   ,(dolist (symbol symbol-types)
 	      (unless (member symbol '(:internal :external :inherited))
 		(error 'program-error
 		       :format-control
-		       "~S is not one of :internal, :external, or :inherited."
+		       "~S is not one of :INTERNAL, :EXTERNAL, or :INHERITED."
 		       :format-argument symbol)))
 	   (,init-macro ,(car ordered-types))
 	   (flet ((,real-symbol-p (number)