0.8.18.14:

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

diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp
index f532ab6..5dbdf5f 100644 (file)
--- a/src/code/cold-error.lisp
+++ b/src/code/cold-error.lisp
@@ -114,7 +114,7 @@
       (let ((condition (coerce-to-condition datum
                                            arguments
                                            'simple-error
-                                           'error))
+                                           'cerror))
            (sb!debug:*stack-top-hint* (maybe-find-stack-top-hint)))
        (with-condition-restarts condition (list (find-restart 'continue))
          (let ((sb!debug:*stack-top-hint* nil))