The 'debug' function sets *breakenable*
to T . This has the effect of
turning on the
(defun debug () (setq *breakenable* t))
The 'nodebug' function sets
*breakenable* to
NIL. This has the effect of turning off
the
(defun nodebug () (setq *breakenable* nil))
The default is 'debug' enabled.
Note: These functions are not included in the standard Nyquist distribution. If you want to use them, copy the code above to your 'init.lsp' file.
(debug) ; returns T
(+ 1 "a") ; error: bad argument type
; enters break-loop
(clean-up) ; from within the break-loop
(nodebug) ; returns NIL
(+ 1 "a") ; error: bad argument type
; but doesn't enter break-loop