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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
First shoot at input redirection.
*slime-input*, *slime-io*: New variables.
Date: Sun Oct 19 17:39:40 2003
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.38 slime/swank.lisp:1.39
--- slime/swank.lisp:1.38	Fri Oct 17 17:18:04 2003
+++ slime/swank.lisp	Sun Oct 19 17:39:40 2003
@@ -44,6 +44,12 @@
 (defvar *slime-output* nil
   "Bound to a slime-output-stream during request processing.")
 
+(defvar *slime-input* nil
+  "Bound to a slime-input-stream during request processing.")
+
+(defvar *slime-io* nil
+  "Bound to a two-way-stream built from *slime-input* and *slime-output*.")
+
 (defparameter *redirect-output* t)
 
 (defun read-from-emacs ()
@@ -53,8 +59,9 @@
 	(let ((*standard-output* *slime-output*)
 	      (*error-output* *slime-output*)
 	      (*trace-output* *slime-output*)
-	      (*debug-io*  *slime-output*)
-	      (*query-io* *slime-output*))
+	      (*debug-io* *slime-io*)
+	      (*query-io* *slime-io*)
+              (*standard-input* *slime-input*))
 	  (apply #'funcall form))
 	(apply #'funcall form))))