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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
Removed redundant MAKE-FN-STREAMS that I had re-added.
Didn't see that it was common in swank-gray.lisp.

Date: Tue Jan 20 04:14:56 2004
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.54 slime/swank-sbcl.lisp:1.55
--- slime/swank-sbcl.lisp:1.54	Mon Jan 19 15:14:35 2004
+++ slime/swank-sbcl.lisp	Tue Jan 20 04:14:56 2004
@@ -106,14 +106,6 @@
             (return (sb-bsd-sockets:socket-accept socket))
           (sb-bsd-sockets:interrupted-error ()))))
 
-(defimplementation make-fn-streams (input-fn output-fn)
-  (let* ((output (make-instance 'slime-output-stream
-                                :output-fn output-fn))
-         (input  (make-instance 'slime-input-stream
-                                :input-fn input-fn
-                                :output-stream output)))
-    (values input output)))
-
 (defmethod call-without-interrupts (fn)
   (sb-sys:without-interrupts (funcall fn)))