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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(send-to-socket-io): Add some ignore declarations.
Date: Tue Aug 31 00:24:41 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.224 slime/swank.lisp:1.225
--- slime/swank.lisp:1.224	Sat Aug 28 04:27:08 2004
+++ slime/swank.lisp	Tue Aug 31 00:24:41 2004
@@ -589,6 +589,7 @@
        (declare (ignore thread))
        (send `(,(car event) 0 , at args)))
       ((:return thread &rest args)
+       (declare (ignore thread))
        (send `(:return , at args)))
       (((:read-output :new-package :new-features :debug-condition
                       :indentation-update :ed :%apply)
@@ -1521,7 +1522,8 @@
   (with-buffer-syntax ()
     (swank-compiler
      (lambda () 
-       (swank-compile-string string :buffer buffer :position position :directory directory)))))
+       (swank-compile-string string :buffer buffer :position position 
+                             :directory directory)))))
 
 (defslimefun operate-on-system-for-emacs (system-name operation &rest keywords)
   "Compile and load SYSTEM using ASDF.