[slime-cvs] CVS update: slime/swank-openmcl.lisp

[Alan Ruttenberg]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv18737/slime

Modified Files:
	swank-openmcl.lisp 
Log Message:
Allow you to continue after interrupting. But you get a message
"Evaluation aborted" that I have to ask about.

Date: Tue Dec 16 03:22:04 2003
Author: aruttenberg

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.38 slime/swank-openmcl.lisp:1.39
--- slime/swank-openmcl.lisp:1.38	Mon Dec 15 22:29:18 2003
+++ slime/swank-openmcl.lisp	Tue Dec 16 03:22:03 2003
@@ -13,7 +13,7 @@
 ;;; The LLGPL is also available online at
 ;;; http://opensource.franz.com/preamble.html
 ;;;
-;;;   $Id: swank-openmcl.lisp,v 1.38 2003/12/16 03:29:18 aruttenberg Exp $
+;;;   $Id: swank-openmcl.lisp,v 1.39 2003/12/16 08:22:03 aruttenberg Exp $
 ;;;
 
 ;;;
@@ -112,8 +112,9 @@
                      (setq *swank-debugger-stack-frame* p)
                      (return-from find-frame))
                    (setq previous-f (ccl::lfun-name lfun)))))
-            (invoke-debugger)
-            (clear-input *terminal-io*)))))))
+      (restart-case (invoke-debugger)
+        (continue () :report (lambda (stream) (write-string "Resume interrupted evaluation" stream)) t))
+      ))))))
 
 (defun accept-loop (server-socket close)
   (unwind-protect (cond (close (accept-one-client server-socket))