[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (encode-message): Inhibit interrupts
while writing the length and the body.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/05 17:38:49	1.1393
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/05 17:38:53	1.1394
@@ -1,5 +1,8 @@
 2008-08-05  Helmut Eller  <heller at common-lisp.net>
 
+	* swank.lisp (encode-message): Inhibit interrupts
+	while writing the length and the body.
+
 	* swank-backend.lisp (make-recursive-lock)
 	(call-with-recursive-lock-held): Deleted.  Make the default locks
 	"recursive" instead.
--- /project/slime/cvsroot/slime/swank.lisp	2008/08/04 20:25:24	1.551
+++ /project/slime/cvsroot/slime/swank.lisp	2008/08/05 17:38:53	1.552
@@ -1430,9 +1430,10 @@
   (let* ((string (prin1-to-string-for-emacs message))
          (length (length string)))
     (log-event "WRITE: ~A~%" string)
-    (let ((*print-pretty* nil))
-      (format stream "~6,'0x" length))
-    (write-string string stream)
+    (without-interrupts
+      (let ((*print-pretty* nil))
+        (format stream "~6,'0x" length))
+      (write-string string stream))
     ;;(terpri stream)
     (finish-output stream)))