diff -r 357652914669 swank-abcl.lisp
--- a/swank-abcl.lisp	Thu Aug 28 12:13:23 2008 +0200
+++ b/swank-abcl.lisp	Fri Aug 29 14:08:56 2008 +0200
@@ -23,6 +23,13 @@
                              (list :format-control format-control
                                    :format-arguments format-arguments))))
     nil))
+
+
+(defimplementation make-output-stream (write-string)
+  (ext:make-slime-output-stream write-string))
+
+(defimplementation make-input-stream (read-string)
+  (ext:make-slime-input-stream read-string))
 
 (defimplementation make-fn-streams (input-fn output-fn)
   (let* ((output (ext:make-slime-output-stream output-fn))
