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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
Bugfix: moved some specials up to before they're referenced.

Date: Sun Jan 11 23:31:31 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.90 slime/swank.lisp:1.91
--- slime/swank.lisp:1.90	Sun Jan 11 19:55:21 2004
+++ slime/swank.lisp	Sun Jan 11 23:31:31 2004
@@ -50,6 +50,10 @@
 *debugger-hook*, which is shadowed in a dynamic binding while they
 run.")
 
+(defparameter *redirect-io* t
+  "When non-nil redirect Lisp standard I/O to Emacs.
+Redirection is done while Lisp is processing a request for Emacs.")
+
 ;;; public interface.  slimefuns are the things that emacs is allowed
 ;;; to call
 
@@ -209,10 +213,6 @@
 ;;; These stream variables are all dynamically-bound during request
 ;;; processing.
 
-(defparameter *redirect-io* t
-  "When non-nil redirect Lisp standard I/O to Emacs.
-Redirection is done while Lisp is processing a request for Emacs.")
-
 (defun call-with-redirected-io (connection function)
   "Call FUNCTION with I/O streams redirected via CONNECTION."
   (let* ((io  (connection.user-io connection))
@@ -310,6 +310,8 @@
 (defun send-output-to-emacs (string socket-io)
   (send-to-emacs `(:read-output ,string) socket-io))
 
+(defvar *read-input-catch-tag* 0)
+
 (defun read-user-input-from-emacs (socket-io)
   (let ((*read-input-catch-tag* (1+ *read-input-catch-tag*)))
     (send-to-emacs `(:read-string ,*read-input-catch-tag*) socket-io)
@@ -320,11 +322,6 @@
              (setq ok t))
         (unless ok 
           (send-to-emacs `(:read-aborted)))))))
-
-
-;;;;; Input from Emacs
-
-(defvar *read-input-catch-tag* 0)
 
 (defslimefun take-input (tag input)
   (throw tag input))