anchor.diff:                                          (external-format '*default-character-encoding*)
                                           initial-buffer-size)
                                      &body body)
  -  "Creates an IN-MEMORY output stream, binds VAR to this stream and then executes the code in BODY.  The stream stores data of type ELEMENT-TYPE \(a subtype of OCTET). The stream is automatically closed on exit from WITH-OUTPUT-TO-SEQUENCE, no matter whether the exit is normal or abnormal. The return value of this macro is a vector \(or a list if AS-LIST is true) containing the octets that were sent to the stream within BODY."
  +  "Creates an IN-MEMORY output stream, binds VAR to this stream and then executes the code in BODY. The stream stores data of type ELEMENT-TYPE \(a subtype of OCTET). The stream is automatically closed on exit from WITH-OUTPUT-TO-SEQUENCE, no matter whether the exit is normal or abnormal. The return value of this macro is a vector \(or a list if AS-LIST is true) containing the octets that were sent to the stream within BODY."
     (multiple-value-bind (body declarations) (parse-body body)
       ;; this is here to stop SBCL complaining about binding them to NIL
       `(let ((,var (make-in-memory-output-stream
  
positive.code:            (incf (vector-stream-index stream))
             (aref (vector-stream-vector stream) index))
            (t :eof))))
  
  (defmethod stream-listen ((stream vector-input-stream))
    "Checking whether INDEX is beyond END."
  
negative.code:    #:make-in-memory-input-stream
     #:get-output-stream-sequence
     #:with-output-to-sequence
     #:with-input-from-sequence
     ))
  
  (in-package :babel-streams)
  