Changeset 15699

Timestamp:

06/01/23 06:31:20 (6 months ago)

Author:

Mark Evenson

Message:

Fix gray-stream-element-type missing for binary streams
(Uthar)

Addresses <​https://github.com/armedbear/abcl/issues/511>.

File:

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

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

@@ -247 +247 @@
 (defclass fundamental-binary-stream (fundamental-stream) ())
 
+(defmethod gray-stream-element-type ((s fundamental-binary-stream))
+  (declare (ignore s))
+  '(unsigned-byte 8))
+
 (defgeneric stream-read-byte (stream))
 (defgeneric stream-write-byte (stream integer))