[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv13281

Modified Files:
	ChangeLog swank-allegro.lisp swank-openmcl.lisp 
Log Message:
Set interactive-p for CCL and ACL.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/04 20:25:37	1.1387
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/04 20:25:42	1.1388
@@ -2,7 +2,8 @@
 
 	* swank-gray.lisp (slime-output-stream): Add a slot
 	"interactive-p" which should be true for streams which are flushed
-	periodically by the Lisp system.  Update the relevant accordingly.
+	periodically by the Lisp system.  Update the relevant backends
+	accordingly.
 
 	* swank-scl.lisp (receive-if): Implemented.
 
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2008/08/03 18:23:10	1.104
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2008/08/04 20:25:42	1.105
@@ -125,7 +125,9 @@
      (describe (find-class symbol)))))
 
 (defimplementation make-stream-interactive (stream)
-  (setf (interactive-stream-p stream) t))
+  (setf (interactive-stream-p stream) t)
+  (when (typep stream 'slime-output-stream)
+    (setf (slot-value stream 'interactive-p) t)))
 
 ;;;; Debugger
 
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/08/03 19:24:09	1.127
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/08/04 20:25:42	1.128
@@ -194,9 +194,9 @@
   (setq ccl::*interactive-abort-process* ccl::*current-process*))
 
 (defimplementation make-stream-interactive (stream)
-  (typecase stream
-    (ccl:fundamental-output-stream 
-     (push stream ccl::*auto-flush-streams*))))
+  (when (typep stream 'slime-output-stream)
+    (push stream ccl::*auto-flush-streams*)
+    (setf (slot-value stream 'interactive-p) t)))
 
 ;;; Unix signals