Commit ecea3d46 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix 826c30a1 so that BLOCKED-OUTPUT-STREAMS still work

parent fbcb9b5b
Pipeline #4814 passed with stages
in 8 minutes and 54 seconds
......@@ -91,8 +91,12 @@ of the wrapped stream when instantiated."))
:element-type element-type
:initial-element 0)
;; Record the START-FILE-POSITION
(start-file-position blocked-stream) (ignore-errors (file-position stream))
(stream-offset blocked-stream) (- (block-size blocked-stream)))))
(start-file-position blocked-stream) (ignore-errors (file-position stream)))))
(defmethod initialize-instance :after ((blocked-stream blocked-input-stream)
&key
stream)
(setf (stream-offset blocked-stream) (- (block-size blocked-stream))))
(defgeneric discard-buffer (stream)
(:documentation
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment