0.6.11.37:

[sbcl.git] / src / code / cold-error.lisp

diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp
index 869cdbb..b2089e0 100644 (file)
--- a/src/code/cold-error.lisp
+++ b/src/code/cold-error.lisp
@@ -150,7 +150,7 @@
       (sb!kernel:infinite-error-protect
        (let ((condition (coerce-to-condition datum arguments
                                             'simple-warning 'warn)))
-        (check-type condition warning "a warning condition")
+        (enforce-type condition warning)
         (restart-case (signal condition)
           (muffle-warning ()
             :report "Skip warning."