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

[Marco Baringer]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(make-stream-interactive): Only add ouptut streams (subclasses of
ccl:fundamental-output-stream) to ccl::*auto-flush-streams*.

Date: Sat Nov 20 13:06:32 2004
Author: mbaringer

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.90 slime/swank-openmcl.lisp:1.91
--- slime/swank-openmcl.lisp:1.90	Fri Nov 19 20:06:21 2004
+++ slime/swank-openmcl.lisp	Sat Nov 20 13:06:32 2004
@@ -144,6 +144,9 @@
   (setq ccl::*interactive-abort-process* ccl::*current-process*))
 
 (defimplementation make-stream-interactive (stream)
+  nil)
+
+(defmethod make-stream-interactive ((stream ccl:fundamental-output-stream))
   (push stream ccl::*auto-flush-streams*))
 
 ;;; Unix signals