fix swank incompatibility re swank::*sldb-quit-restart* (patch by Jianshi Huang)
Wed Jul 15 04:24:23 PDT 2009 attila.lendvai@gmail.com
* fix swank incompatibility re swank::*sldb-quit-restart* (patch by Jianshi Huang)
diff -rN -u old-stefil/stefil.lisp new-stefil/stefil.lisp
--- old-stefil/stefil.lisp 2014-07-09 20:59:48.000000000 -0700
+++ new-stefil/stefil.lisp 2014-07-09 20:59:48.000000000 -0700
@@ -328,7 +328,7 @@
(return-from restart-wrapper))
:report-function (lambda (stream)
(format stream "~@<Abort the entire test session~@:>"))))
- (bind ((swank::*sldb-quit-restart* 'abort-testing))
+ (bind ((swank::*sldb-quit-restart* (find-restart 'abort-testing)))
,@body))))
(defun test-was-run-p (test)