projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.19.15:
[sbcl.git]
/
contrib
/
sb-aclrepl
/
toplevel.lisp
diff --git
a/contrib/sb-aclrepl/toplevel.lisp
b/contrib/sb-aclrepl/toplevel.lisp
index
36c36da
..
316c8fb
100644
(file)
--- a/
contrib/sb-aclrepl/toplevel.lisp
+++ b/
contrib/sb-aclrepl/toplevel.lisp
@@
-1,7
+1,7
@@
(cl:defpackage :sb-aclrepl
(:use "COMMON-LISP" "SB-EXT")
(:shadowing-import-from "SB-IMPL" "SCRUB-CONTROL-STACK")
(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*"
(:export
;; user-level customization of UI
"*PROMPT*" "*EXIT-ON-EOF*" "*MAX-HISTORY*"
@@
-38,7
+38,11
@@
(multiple-value-bind (reason reason-param)
(catch 'repl-catcher
(loop
(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)
(declare (ignore reason-param))
(cond
((and (eq reason :inspect)