(cl:defpackage :sb-aclrepl
(:use "COMMON-LISP" "SB-EXT")
(:shadowing-import-from "SB-IMPL" "SCRUB-CONTROL-STACK")
- (:shadowing-import-from "SB-INT" "*REPL-PROMPT-FUN*" "*REPL-READ-FORM-FUN*")
+ (:shadowing-import-from "SB-INT" "*REPL-PROMPT-FUN*" "*REPL-READ-FORM-FUN*" "*STEP*" "*STEPPING*")
(:export
;; user-level customization of UI
"*PROMPT*" "*EXIT-ON-EOF*" "*MAX-HISTORY*"
(multiple-value-bind (reason reason-param)
(catch 'repl-catcher
(loop
- (rep-one)))
+ (unwind-protect
+ (rep-one)
+ ;; reset toplevel step-condition handler
+ (setf *step* nil
+ *stepping* nil))))
(declare (ignore reason-param))
(cond
((and (eq reason :inspect)