0.pre7.14:

[sbcl.git] / src / code / extensions.lisp

diff --git a/src/code/extensions.lisp b/src/code/extensions.lisp
index cde7c9b..6d25386 100644 (file)
--- a/src/code/extensions.lisp
+++ b/src/code/extensions.lisp
@@ -638,7 +638,7 @@
 (defmacro enforce-type (value type)
   (once-only ((value value))
     `(unless (typep ,value ',type)
-       (%failed-aver-type ,value ',type))))
+       (%failed-enforce-type ,value ',type))))
 (defun %failed-enforce-type (value type)
   (error 'simple-type-error
         :value value