anchor.diff:             (incf (vector-stream-index stream))
              (aref (vector-stream-vector stream) index))
             (t :eof))))
  +
  +#+nil
  +(defmethod stream-read-char ((stream vector-input-stream))
  +  ;; TODO
  +  )
   
   (defmethod stream-listen ((stream vector-input-stream))
     "Checking whether INDEX is beyond END."
  
positive.code:               ,@body
                (get-output-stream-sequence ,var :return-as ,return-as))
           (close ,var)))))
  
negative.code: ;; TODO
  ;; - filter-stream types/mixins that can wrap a binary stream and turn it into a bivalent/character stream
  ;; - in-memory input streams with file-position similar to in-memory output streams
  ;; - in-memory input/output streams?
  
  (in-package :babel)
  
  