mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

add :continue for break

Browse source
This commit is contained in:
David Botton 2024-05-22 10:53:09 -04:00
parent f62ad6fdae
commit 5d3945daed
1 changed files with 18 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

34
source/clog-gui.lisp
View file

@ -257,24 +257,26 @@
;;;;;;;;;;;;;;;;
(defun clog-break (&key clog-body run (modal t))
"Stop execution, funcall run with CLOG-BODY. If CLOG-BODY not set use
*clog-debug-instance*. Then confirm continue execution on current thread."
"Stop execution, funcall RUN with CLOG-BODY if set, if run returns :continue,
the execution continues. If CLOG-BODY not set use *clog-debug-instance*. Then
confirm continue execution on current thread or (break)."
(unless clog-body
(setf clog-body *clog-debug-instance*))
(when run
(funcall run clog-body))
(when (validp clog-body)
(confirm-dialog clog-body
(format nil "Continue thread ~A ?"
(bordeaux-threads:thread-name
(bordeaux-threads:current-thread)))
(lambda (result)
(unless result
(break)))
:width 400
:time-out 600
:modal modal
:title "clog-break in execution")))
(let ((continue (when run
(funcall run clog-body))))
(when (and (validp clog-body)
(not (eq continue :continue)))
(confirm-dialog clog-body
(format nil "Continue thread ~A ?"
(bordeaux-threads:thread-name
(bordeaux-threads:current-thread)))
(lambda (result)
(unless result
(break)))
:width 400
:time-out 600
:modal modal
:title "clog-break in execution"))))
;;;;;;;;;;;;;;;;
;; clog-probe ;;