X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=098ec4eec1eb9229524d4ce2e1499a6bdb788ea5;hb=1fca8fbb946ba06cedf777c3a6927f14d24cfae5;hp=c59ccb44b5d2bcc743e980430f80a87c76131b72;hpb=b66385e2031fc2cac17dd129df0af400beb48a22;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index c59ccb4..098ec4e 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -1226,6 +1226,15 @@ single-stepping information after executing a form.
 STEP-CONDITION-FORM holds the form, and STEP-CONDITION-RESULT holds
 the values returned by the form as a list. No associated restarts."))
 
+(define-condition step-finished-condition (step-condition)
+  ()
+  (:report
+   (lambda (condition stream)
+     (declare (ignore condition))
+     (format stream "Returning from STEP")))
+  #!+sb-doc
+  (:documentation "Condition signaled when STEP returns."))
+
 
 ;;;; restart definitions