[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv15573

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-dispatch-event [:emcas-rex]): Don't clutter
the main code-path with confusing error handling.

--- /project/slime/cvsroot/slime/ChangeLog	2009/06/04 08:50:37	1.1778
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/04 09:08:06	1.1779
@@ -1,5 +1,10 @@
 2009-06-04  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-dispatch-event [:emcas-rex]): Don't clutter
+	the main code-path with confusing error handling.
+
+2009-06-04  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-openmcl.lisp (*known-processes*, mailbox): Use a weak
 	hashtable to plug the memory leak.
 
--- /project/slime/cvsroot/slime/slime.el	2009/05/28 19:01:09	1.1183
+++ /project/slime/cvsroot/slime/slime.el	2009/06/04 09:08:06	1.1184
@@ -2375,18 +2375,10 @@
           ((:emacs-rex form package thread continuation)
            (when (and (slime-use-sigint-for-interrupt) (slime-busy-p))
              (slime-display-oneliner "; pipelined request... %S" form))
-           (let ((id (incf (slime-continuation-counter)))
-                 (send-ok nil))
+           (let ((id (incf (slime-continuation-counter))))
+             (slime-send `(:emacs-rex ,form ,package ,thread ,id))
              (push (cons id continuation) (slime-rex-continuations))
-             (unwind-protect 
-                  (progn 
-                    (slime-send `(:emacs-rex ,form ,package ,thread ,id))
-                    (setq send-ok t))
-               (unless send-ok
-                 (setf (slime-rex-continuations)
-                       (cdr (slime-rex-continuations)))
-                 (funcall continuation '(:abort)))
-               (slime-recompute-modelines t))))
+             (slime-recompute-modelines t)))
           ((:return value id)
            (let ((rec (assq id (slime-rex-continuations))))
              (cond (rec (setf (slime-rex-continuations)