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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(open-streams): Renamed the restart around reads from the user-input
stream from ABORT to ABORT-READ. Invoking this restart seems kinda
dangerous, so better for 'a' in SLDB not to do so.

Date: Tue Jun 29 10:46:58 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.205 slime/swank.lisp:1.206
--- slime/swank.lisp:1.205	Tue Jun 29 01:12:44 2004
+++ slime/swank.lisp	Tue Jun 29 10:46:58 2004
@@ -334,7 +334,8 @@
     (let ((input-fn
            (lambda () 
              (with-connection (connection)
-               (with-simple-restart (abort "Abort reading input from Emacs.")
+               (with-simple-restart (abort-read
+                                     "Abort reading input from Emacs.")
                  (read-user-input-from-emacs))))))
       (multiple-value-bind (in out) (make-fn-streams input-fn output-fn)
         (let ((out (or dedicated-output out)))