[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv15485

Modified Files:
	swank.lisp 
Log Message:
* swank.lisp (eval-for-emacs): Remove code that would suggest that
  it's possible to use the rex `(:abort ...)' with more than one
  argument.


--- /project/slime/cvsroot/slime/swank.lisp	2007/05/14 18:56:56	1.485
+++ /project/slime/cvsroot/slime/swank.lisp	2007/05/14 19:39:26	1.486
@@ -2519,13 +2519,13 @@
                     (finish-output)
                     (setq ok t))
                 (request-abort (c)
-                  (setf ok nil
-                        reason (list (swank-backend::reason c))))))
+                  (setf ok nil)
+                  (setf reason (swank-backend::reason c)))))
          (force-user-output)
          (send-to-emacs `(:return ,(current-thread)
                                   ,(if ok
                                        `(:ok ,result)
-                                       `(:abort , at reason)) 
+                                       `(:abort ,reason)) 
                                   ,id)))))))
 
 (defvar *echo-area-prefix* "=> "