[slime-cvs] CVS update: slime/swank.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv27465

Modified Files:
	swank.lisp 
Log Message:
(send-to-emacs): Put back WITHOUT-INTERRUPTS* -- not sure exactly what
it's for, but I had no actual reason to remove it so I probably broke
something!

Date: Mon Dec 15 07:29:14 2003
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.81 slime/swank.lisp:1.82
--- slime/swank.lisp:1.81	Mon Dec 15 07:01:20 2003
+++ slime/swank.lisp	Mon Dec 15 07:29:13 2003
@@ -196,12 +196,14 @@
   (let* ((string (prin1-to-string-for-emacs object))
          (length (1+ (length string))))
     (with-I/O-lock
-      (loop for position from 16 downto 0 by 8
+      (without-interrupts*
+       (lambda ()
+         (loop for position from 16 downto 0 by 8
             do (write-char (code-char (ldb (byte 8 position) length))
                            *emacs-io*))
-      (write-string string *emacs-io*)
-      (terpri *emacs-io*)
-      (force-output *emacs-io*))))
+         (write-string string *emacs-io*)
+         (terpri *emacs-io*)
+         (force-output *emacs-io*))))))
 
 (defun prin1-to-string-for-emacs (object)
   (with-standard-io-syntax