[slime-cvs] CVS update: slime/present.lisp

[Matthias Koeppe]

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

Modified Files:
	present.lisp 
Log Message:
(slime-stream-p) [allegro]: Allow printing presentations through
pretty printing streams.

Date: Thu Aug  4 21:54:44 2005
Author: mkoeppe

Index: slime/present.lisp
diff -u slime/present.lisp:1.7 slime/present.lisp:1.8
--- slime/present.lisp:1.7	Thu Aug  4 21:49:10 2005
+++ slime/present.lisp	Thu Aug  4 21:54:43 2005
@@ -81,6 +81,9 @@
 		    #+cmu
 		    (and (typep stream 'pretty-print::pretty-stream)
 			 (slime-stream-p (pretty-print::pretty-stream-target  stream)))
+		    #+allegro
+		    (and (typep stream 'excl:xp-simple-stream)
+			 (slime-stream-p (excl::stream-output-handle stream)))
 		    (loop for connection in *connections*
 			  thereis (or (eq stream (connection.dedicated-output connection))
 				      (eq stream (connection.socket-io connection))