X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fgray-streams.lisp;h=f279a726513b85a96aa007bea96ea910df5006e1;hb=8fc5fda05f92d69c95b47e4ad7561d91dab18c3e;hp=f34ebbbec50b4cd0f0cd938c833c9e12299cc9f1;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/pcl/gray-streams.lisp b/src/pcl/gray-streams.lisp
index f34ebbb..f279a72 100644
--- a/src/pcl/gray-streams.lisp
+++ b/src/pcl/gray-streams.lisp
@@ -36,7 +36,7 @@
   called on the stream."))
 
 (defmethod pcl-open-stream-p ((stream lisp-stream))
-  (not (eq (lisp-stream-in stream) #'closed-flame)))
+  (not (eq (sb-impl::lisp-stream-in stream) #'sb-impl::closed-flame)))
 
 (defmethod pcl-open-stream-p ((stream fundamental-stream))
   nil)
@@ -66,8 +66,8 @@
   (:documentation "Returns non-nil if the given Stream can perform input operations."))
 
 (defmethod input-stream-p ((stream lisp-stream))
-  (and (not (eq (lisp-stream-in stream) #'closed-flame))
-       (or (not (eq (lisp-stream-in stream) #'ill-in))
+  (and (not (eq (sb-impl::lisp-stream-in stream) #'sb-impl::closed-flame))
+       (or (not (eq (sb-impl::lisp-stream-in stream) #'ill-in))
 	   (not (eq (lisp-stream-bin stream) #'ill-bin)))))
 
 (defmethod input-stream-p ((stream fundamental-input-stream))
@@ -80,7 +80,7 @@
   (:documentation "Returns non-nil if the given Stream can perform output operations."))
 
 (defmethod output-stream-p ((stream lisp-stream))
-  (and (not (eq (lisp-stream-in stream) #'closed-flame))
+  (and (not (eq (sb-impl::lisp-stream-in stream) #'sb-impl::closed-flame))
        (or (not (eq (lisp-stream-out stream) #'ill-out))
 	   (not (eq (lisp-stream-bout stream) #'ill-bout)))))