Changeset 15701

Timestamp:

06/06/23 06:37:29 (6 months ago)

Author:

Mark Evenson

Message:

Use type hierarchy to determine if a stream is ANSI

File:

• trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp

@@ -190 +190 @@
 
 (defun ansi-streamp (stream)
-  (or (xp::xp-structure-p stream)
-      (funcall *ansi-streamp* stream)))
+  (not
+   (subtypep (class-of stream)
+             'gray-streams::fundamental-stream)))
 
 (defclass fundamental-stream (standard-object stream)