[slime-cvs] CVS slime/contrib

[CVS User nsiivola]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv19710/contrib

Modified Files:
	ChangeLog swank-presentation-streams.lisp 
Log Message:
delete references to SB-IMPL::INDENTING-STREAM
delete references to SB-IMPL::INDENTING-STREAM


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/10/30 09:28:25	1.139
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/10/31 13:52:16	1.140
@@ -1,3 +1,9 @@
+2008-10-31  Nikodemus Siivola <nikodemus at random-state.net>
+
+	* swank-presentation-streams.liso (slime-stream-p): delete
+	references to SB-IMPL::INDENTING-STREAM, which is unused in SBCL
+	and liable to go away.
+
 2008-10-30  Ivan Shvedunov  <ivan4th at gmail.com>
 
 	* swank-listener-hooks.lisp (%listener-eval): Return nil.
--- /project/slime/cvsroot/slime/contrib/swank-presentation-streams.lisp	2008/02/04 18:00:36	1.5
+++ /project/slime/cvsroot/slime/contrib/swank-presentation-streams.lisp	2008/10/31 13:52:16	1.6
@@ -121,12 +121,10 @@
 		    #+sbcl
 		    (let ()
 		      (declare (notinline sb-pretty::pretty-stream-target))
-		      (or (and (typep stream 'sb-impl::indenting-stream)
-			       (slime-stream-p (sb-impl::indenting-stream-stream stream)))
-			  (and (typep stream (find-symbol "PRETTY-STREAM" 'sb-pretty))
-			       (find-symbol "ENQUEUE-ANNOTATION" 'sb-pretty)
-			       (not *use-dedicated-output-stream*)
-			       (slime-stream-p (sb-pretty::pretty-stream-target stream)))))
+		      (and (typep stream (find-symbol "PRETTY-STREAM" 'sb-pretty))
+                           (find-symbol "ENQUEUE-ANNOTATION" 'sb-pretty)
+                           (not *use-dedicated-output-stream*)
+                           (slime-stream-p (sb-pretty::pretty-stream-target stream))))
 		    #+allegro
 		    (and (typep stream 'excl:xp-simple-stream)
 			 (slime-stream-p (excl::stream-output-handle stream)))