Skip to content
Browse files

give application control over *stop*ping

  • Loading branch information...
1 parent cf42ed9 commit ddceb598bddb6a80dacd554a519e3b7bca0ab7fe @kennytilton committed
Showing with 4 additions and 1 deletion.
  1. +4 −1 debug.lisp
View
5 debug.lisp
@@ -65,8 +65,11 @@ See the Lisp Lesser GNU Public License for more details.
(when announce (format t "~&count-clear > ~a" msg))
(setf *count* nil))
+(defparameter *stopped* (lambda () *stop*))
+
(defun stop-check (&optional (where :unspecified))
- (when *stop* (break "utils-kt *stopped* at ~a" where)))
+ (when (funcall *stopped*)
+ (break "utils-kt *stopped* at ~a" where)))
(defmacro count-it (&rest keys)
(declare (ignorable keys))

0 comments on commit ddceb59

Please sign in to comment.
Something went wrong with that request. Please try again.