[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (decode-message): Don't ignore EOF.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/25 15:29:49	1.1474
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/27 17:52:58	1.1475
@@ -3,6 +3,10 @@
 	* slime.el (slime-compute-modeline-package): Used `when-let' before its definition.
 	(slime-compute-modeline-string): Display "PKG:" before "CON:".
 
+2008-08-27  Helmut Eller  <heller at common-lisp.net>
+
+	* swank.lisp (decode-message): Don't ignore EOF.
+
 2008-08-22  Helmut Eller  <heller at common-lisp.net>
 
 	Some focus handling in multiframe setups.
--- /project/slime/cvsroot/slime/swank.lisp	2008/08/22 21:15:24	1.576
+++ /project/slime/cvsroot/slime/swank.lisp	2008/08/27 17:52:58	1.577
@@ -1190,6 +1190,7 @@
   (handle-or-process-requests connection))
 
 (defun deinstall-fd-handler (connection)
+  (log-event "deinstall-fd-handler~%")
   (remove-fd-handlers (connection.socket-io connection))
   (install-sigint-handler (connection.saved-sigint-handler connection)))
 
@@ -1437,7 +1438,7 @@
   ;;(log-event "decode-message~%")
   (let ((*swank-state-stack* (cons :read-next-form *swank-state-stack*)))
     (handler-bind ((error (lambda (c) (error (make-swank-error c)))))
-      (let ((c (read-char-no-hang stream nil)))
+      (let ((c (read-char-no-hang stream)))
         (cond ((and (not c) timeout) (values nil t))
               (t
                (and c (unread-char c stream))