X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fimpl.lisp;h=a8adfa0b2a64098b5acd948d59fa6c977fac9ffc;hb=1d46d379bb7a6424524b978f213ef69be5f1ad69;hp=2657fb13f8c86d80c366fb571663ca1914ab4cab;hpb=0bc2d6ca22c988d65e37108afbb433e29689a528;p=sbcl.git

diff --git a/contrib/sb-simple-streams/impl.lisp b/contrib/sb-simple-streams/impl.lisp
index 2657fb1..a8adfa0 100644
--- a/contrib/sb-simple-streams/impl.lisp
+++ b/contrib/sb-simple-streams/impl.lisp
@@ -953,6 +953,8 @@
     (etypecase stream
       (simple-stream
        (%peek-char stream peek-type eof-error-p eof-value recursive-p))
+      ;; FIXME: Broken on ECHO-STREAM (cf internal implementation?) --
+      ;; CSR, 2004-01-19
       (ansi-stream
        (let ((char (%ansi-stream-read-char stream eof-error-p eof-value t)))
           (cond ((eq char eof-value) char)
@@ -967,7 +969,7 @@
                  (do ((char char (%ansi-stream-read-char stream eof-error-p
                                                          eof-value t)))
                      ((or (eq char eof-value)
-			  (not (sb-int:whitespace-char-p char)))
+			  (not (sb-impl::whitespacep char)))
                       (unless (eq char eof-value)
                         (%ansi-stream-unread-char char stream))
                       char)))
@@ -987,7 +989,7 @@
 	     ((eq peek-type t)
 	      (do ((char (sb-gray:stream-read-char stream)
 			 (sb-gray:stream-read-char stream)))
-		  ((or (eq char :eof) (not (sb-int:whitespace-char-p char)))
+		  ((or (eq char :eof) (not (sb-impl::whitespacep char)))
 		   (cond ((eq char :eof)
 			  (sb-impl::eof-or-lose stream eof-error-p eof-value))
 			 (t