Skip to content
Snippets Groups Projects
Unverified Commit 28cf76c9 authored by Eric Timmons's avatar Eric Timmons
Browse files

Be a bit lenient for gray streams that don't implement STREAM-ELEMENT-TYPE

parent e5c8c142
No related branches found
No related tags found
No related merge requests found
## Unreleased
+ Fix bug with determining type of entries in v7 archives.
+ If given a gray stream that does not implement `stream-element-type`, assume
it is `(unsigned-byte 8)`.
## v0.1.2 - September 25, 2021
......
......@@ -83,7 +83,8 @@ of the wrapped stream when instantiated."))
(defmethod initialize-instance :after ((blocked-stream blocked-stream)
&key
stream)
(let ((element-type (stream-element-type stream)))
(let ((element-type (or (ignore-errors (stream-element-type stream))
'(unsigned-byte 8))))
(assert (subtypep element-type 'integer)
nil "STREAM must be a binary stream")
;; Create the buffer.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment