added restarts to separately disable failed assertion debugging and error debugging
Fri Sep 19 10:57:22 PDT 2008 attila.lendvai@gmail.com
* added restarts to separately disable failed assertion debugging and error debugging
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-stefil/stefil.lisp new-stefil/stefil.lisp
--- old-stefil/stefil.lisp 2014-07-25 01:26:29.000000000 -0700
+++ new-stefil/stefil.lisp 2014-07-25 01:26:29.000000000 -0700
@@ -296,13 +296,25 @@
(setf (debug-on-unexpected-error-p *global-context*) #f)
(setf (debug-on-assertion-failure-p *global-context*) #f)
(continue))
- :report-function (lambda (stream)
- (format stream "~@<Turn off debugging for this test session and invoke the first CONTINUE restart~@:>")))
+ :report-function (lambda (stream)
+ (format stream "~@<Turn off debugging for this test session and invoke the first CONTINUE restart~@:>")))
+ (continue-without-debugging-errors
+ (lambda ()
+ (setf (debug-on-unexpected-error-p *global-context*) #f)
+ (continue))
+ :report-function (lambda (stream)
+ (format stream "~@<Do not stop at unexpected errors for the rest of this test session and continue by invoking the first CONTINUE restart~@:>")))
+ (continue-without-debugging-assertions
+ (lambda ()
+ (setf (debug-on-assertion-failure-p *global-context*) #f)
+ (continue))
+ :report-function (lambda (stream)
+ (format stream "~@<Do not stop at failed assertions for the rest of this test session and continue by invoking the first CONTINUE restart~@:>")))
(abort-testing
(lambda ()
(return-from restart-wrapper))
- :report-function (lambda (stream)
- (format stream "~@<Abort the entire test session~@:>"))))
+ :report-function (lambda (stream)
+ (format stream "~@<Abort the entire test session~@:>"))))
(bind ((swank::*sldb-quit-restart* 'abort-testing))
,@body))))