X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=0062a7b4ba366f12f10c06f5ebddcfa6ee8040c0;hb=221fc0ac3e8d1e4bb3c94efbb0b38897cf09e428;hp=9b9be1e3fb55844d056eca09923e90f5ce1d8caa;hpb=7b5628003e3016985952908016219b872ed48811;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 9b9be1e..0062a7b 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -818,8 +818,10 @@
        (%failed-enforce-type ,value ',type))))
 
 (defun %failed-enforce-type (value type)
-  (error 'simple-type-error ; maybe should be TYPE-BUG, subclass of BUG?
-	 :value value
+  ;; maybe should be TYPE-BUG, subclass of BUG?  If it is changed,
+  ;; check uses of it in user-facing code (e.g. WARN)
+  (error 'simple-type-error 
+	 :datum value
 	 :expected-type type
 	 :format-control "~@<~S ~_is not a ~_~S~:>"
 	 :format-arguments (list value type)))