X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcold-error.lisp;h=5dbdf5fd1046c40d7efd91db6e113b6539ad389a;hb=70b1a2776c9f3947503b4bcbb8ca5d944e635fb0;hp=f532ab66ba2b2f3204a079cd01a6f8c739f95dfa;hpb=b4b2f75b3dbe041f938044702e6ba8f41a3c1619;p=sbcl.git

diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp
index f532ab6..5dbdf5f 100644
--- 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))