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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
Remove dependence on Gray streams, use abcl's slime streams.
Date: Sun Sep 26 19:07:46 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.18 slime/swank-abcl.lisp:1.19
--- slime/swank-abcl.lisp:1.18	Tue Sep 21 01:42:36 2004
+++ slime/swank-abcl.lisp	Sun Sep 26 19:07:46 2004
@@ -13,30 +13,12 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require :collect) ;just so that it doesn't spoil the flying letters
-  (require :gray-streams)
   (require :pprint))
 
-(defun xp::decode-stream-arg (stream)
-  (cond ((eq stream t)
-         *terminal-io*)
-	((null stream)
-         *standard-output*)
-	((gs::two-way-stream-g-p stream)
-	 (gs::two-way-stream-output-stream stream))
-	(t stream)))
-
-(import
- '(gs:fundamental-character-output-stream
-   gs:stream-write-char
-   gs:stream-force-output
-   gs:fundamental-character-input-stream
-   gs:stream-read-char
-   gs:stream-listen
-   gs:stream-unread-char
-   gs:stream-clear-input
-   gs:stream-line-column
-   gs:stream-read-char-no-hang
-   ))
+(defimplementation make-fn-streams (input-fn output-fn)
+  (let* ((output (ext:make-slime-output-stream output-fn))
+         (input  (ext:make-slime-input-stream input-fn output)))
+    (values input output)))
 
 ;;; swank-mop