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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
Move definition of `with-io-redirection' above `with-connection' to
avoid a CLISP error. This is really weird.

Date: Mon Apr 26 14:38:39 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.173 slime/swank.lisp:1.174
--- slime/swank.lisp:1.173	Mon Apr 26 09:20:13 2004
+++ slime/swank.lisp	Mon Apr 26 14:38:39 2004
@@ -145,6 +145,13 @@
 
 ;;;; Helper macros
 
+(defmacro with-io-redirection ((connection) &body body)
+  "Execute BODY with I/O redirection to CONNECTION.
+If *REDIRECT-IO* is true, all standard I/O streams are redirected."
+  `(if *redirect-io*
+       (call-with-redirected-io ,connection (lambda () , at body))
+       (progn , at body)))
+
 (defmacro with-connection ((connection) &body body)
   "Execute BODY in the context of CONNECTION."
   `(let ((*emacs-connection* ,connection))
@@ -152,13 +159,6 @@
        (with-io-redirection (*emacs-connection*)
          (let ((*debugger-hook* #'swank-debugger-hook))
            , at body)))))
-
-(defmacro with-io-redirection ((connection) &body body)
-  "Execute BODY with I/O redirection to CONNECTION.
-If *REDIRECT-IO* is true, all standard I/O streams are redirected."
-  `(if *redirect-io*
-       (call-with-redirected-io ,connection (lambda () , at body))
-       (progn , at body)))
 
 (defmacro without-interrupts (&body body)
   `(call-without-interrupts (lambda () , at body)))