[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4335

Modified Files:
	ChangeLog swank-gray.lisp 
Log Message:
* swank-gray.lisp (make-input-stream): fixed typos

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/30 15:33:24	1.1482
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/30 15:33:28	1.1483
@@ -1,5 +1,9 @@
 2008-08-30  Michael Weber  <michaelw+slime at foldr.org>
 
+	* swank-gray.lisp (make-input-stream): fixed typos
+
+2008-08-30  Michael Weber  <michaelw+slime at foldr.org>
+
 	* swank-backend.lisp (*gray-stream-symbols*): added symbols
 	stream-peek-char, stream-read-line, stream-file-position
 
--- /project/slime/cvsroot/slime/swank-gray.lisp	2008/08/22 21:15:36	1.16
+++ /project/slime/cvsroot/slime/swank-gray.lisp	2008/08/30 15:33:28	1.17
@@ -166,7 +166,9 @@
   (make-instance 'slime-output-stream :output-fn write-string))
 
 (defimplementation make-input-stream (read-string)
-  (make-instance 'slime-output-stream :input-fn read-string))
+  (make-instance 'slime-input-stream
+                 :input-fn read-string
+                 :output-stream nil))
 
 (defimplementation make-fn-streams (input-fn output-fn)
   (let* ((output (make-instance 'slime-output-stream 
@@ -174,4 +176,4 @@
          (input  (make-instance 'slime-input-stream
                                 :input-fn input-fn 
                                 :output-stream output)))
-    (values input output)))
\ No newline at end of file
+    (values input output)))