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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
Redefine xp::decode-stream-arg
Date: Tue Sep 21 01:42:36 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.17 slime/swank-abcl.lisp:1.18
--- slime/swank-abcl.lisp:1.17	Mon Sep 20 15:30:30 2004
+++ slime/swank-abcl.lisp	Tue Sep 21 01:42:36 2004
@@ -16,6 +16,14 @@
   (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