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

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

parent fbcb9b5b
No related branches found
No related tags found
No related merge requests found
Pipeline #4814 passed
Pipeline: cl-tar.common-lisp.dev

#4817

    ......@@ -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
    ......
    0% Loading or .
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment