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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp swank-openmcl.lisp 
Log Message:
Bind *slime-input* and *slime-io* to dummy values.

Date: Sun Oct 19 17:40:29 2003
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.9 slime/swank-sbcl.lisp:1.10
--- slime/swank-sbcl.lisp:1.9	Fri Oct 17 17:18:04 2003
+++ slime/swank-sbcl.lisp	Sun Oct 19 17:40:28 2003
@@ -79,7 +79,9 @@
   "Read and process a request from a SWANK client.
 The request is read from the socket as a sexp and then evaluated."
   (let* ((completed nil)
-         (*slime-output* (make-instance 'slime-output-stream)))
+         (*slime-output* (make-instance 'slime-output-stream))
+         (*slime-input* *standard-input*)
+         (*slime-io* (make-two-way-stream *slime-input* *slime-output*)))
     (let ((condition (catch 'serve-request-catcher
 		       (read-from-emacs)
 		       (setq completed t))))


Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.10 slime/swank-openmcl.lisp:1.11
--- slime/swank-openmcl.lisp:1.10	Sat Oct 18 01:06:57 2003
+++ slime/swank-openmcl.lisp	Sun Oct 19 17:40:29 2003
@@ -13,7 +13,7 @@
 ;;; The LLGPL is also available online at
 ;;; http://opensource.franz.com/preamble.html
 ;;;
-;;;   $Id: swank-openmcl.lisp,v 1.10 2003/10/18 05:06:57 jbielman Exp $
+;;;   $Id: swank-openmcl.lisp,v 1.11 2003/10/19 21:40:29 heller Exp $
 ;;;
 
 ;;;
@@ -82,7 +82,10 @@
         (catch 'slime-toplevel
           (with-simple-restart (abort "Return to Slime event loop.")
             (let ((completed nil))
-              (let ((*slime-output* (make-instance 'slime-output-stream)))
+              (let* ((*slime-output* (make-instance 'slime-output-stream))
+                     (*slime-input* *standard-input*)
+                     (*slime-io* (make-two-way-stream *slime-input* 
+                                                      *slime-output*)))
                 (let ((condition (catch 'serve-request-catcher
                                    (read-from-emacs)
                                    (setq completed t))))