[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank-gray.lisp 
Log Message:
Fix typos.

--- /project/slime/cvsroot/slime/swank-gray.lisp	2008/08/22 21:15:19	1.15
+++ /project/slime/cvsroot/slime/swank-gray.lisp	2008/08/22 21:15:36	1.16
@@ -163,10 +163,10 @@
 ;;;
 
 (defimplementation make-output-stream (write-string)
-  (make-instance 'slime-output-stream :output-fn output-fn))
+  (make-instance 'slime-output-stream :output-fn write-string))
 
 (defimplementation make-input-stream (read-string)
-  (make-instance 'slime-output-stream :input-fn output-fn))
+  (make-instance 'slime-output-stream :input-fn read-string))
 
 (defimplementation make-fn-streams (input-fn output-fn)
   (let* ((output (make-instance 'slime-output-stream