X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fearly-extensions.lisp;h=e1952155c4a96c20dc5d84830dfdc58042e9419e;hb=403bacffd903f8c5787a182f4133cffc69b55dc0;hp=523754f0615a291b92602d5db3b507f2ce35e0eb;hpb=a63a3a68cdf694ea8076731ed7dfbfd88d127108;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 523754f..e195215 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -824,7 +824,7 @@ which can be found at <http://sbcl.sourceforge.net/>.~:@>"
   (error 'simple-type-error ; maybe should be TYPE-BUG, subclass of BUG?
 	 :value value
 	 :expected-type type
-	 :format-string "~@<~S ~_is not a ~_~S~:>"
+	 :format-control "~@<~S ~_is not a ~_~S~:>"
 	 :format-arguments (list value type)))
 
 ;;; Return a function like FUN, but expecting its (two) arguments in