[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el (slime-eval-async, slime-dispatch-event): Canoncalize
	return value. Previously they returned an arbitrary value which
	was displayed to the minibuffer due to a bug in slime-autodoc. The
	arbitrariness of the return value made debugging this a chore.


--- /project/slime/cvsroot/slime/slime.el	2009/01/01 14:48:04	1.1087
+++ /project/slime/cvsroot/slime/slime.el	2009/01/01 16:08:53	1.1088
@@ -2263,7 +2263,13 @@
        (set-buffer buffer)
        (funcall cont result)))
     ((:abort)
-     (message "Evaluation aborted."))))
+     (message "Evaluation aborted.")))
+  ;; Guard against arbitrary return values which once upon a time
+  ;; showed up in the minibuffer spuriously (due to a bug in
+  ;; slime-autodoc.)  If this ever happens again, returning the
+  ;; following will make debugging much easier:
+  :slime-eval-async)
+
 
 ;;; These functions can be handy too:
 
@@ -2390,7 +2396,9 @@
              (princ (format "Invalid protocol message:\n%s\n\n%S"
                             condition packet))
              (goto-char (point-min)))
-           (error "Invalid protocol message"))))))
+           (error "Invalid protocol message")))))
+  ;; Canonicalized return value. See comment in `slime-eval-async'.
+  :slime-dispatch-event)
 
 (defun slime-send (sexp)
   "Send SEXP directly over the wire on the current connection."
--- /project/slime/cvsroot/slime/ChangeLog	2009/01/01 14:48:22	1.1618
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/01 16:08:53	1.1619
@@ -1,3 +1,10 @@
+2009-01-01  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (slime-eval-async, slime-dispatch-event): Canoncalize
+	return value. Previously they returned an arbitrary value which
+	was displayed to the minibuffer due to a bug in slime-autodoc. The
+	arbitrariness of the return value made debugging this a chore.
+
 2009-01-01  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-openmcl.lisp (frame-source-location-for-emacs)