anchor.diff:                      (write-byte b out)))))
       (stream-decode-utf-8-string octets)))
   
  -(defmethod stream-read-string ((instream base-stream) &key (encoding 0))
  +(defmethod stream-read-string ((instream mem-stream) &key (encoding 0))
     "Read in a null terminated string of a given encoding."
     (ecase encoding
       (0 (stream-read-iso-string    instream))
  
positive.code:                     (write-byte b out)))))
      (stream-decode-iso-string octets)))
  
  (defmethod stream-read-ucs-string ((instream base-stream))
    "Read in a null terminated UCS string."
    (let ((octets (ccl:with-output-to-vector (out)
                    (do* ((b0 (stream-read-u8 instream)
  
negative.code:   (let (stream)
      (handler-case
          (progn
            (setf stream (make-file-stream filename))
            (mp4-atom:find-mp4-atoms stream)
            (when get-audio-info
              (setf (audio-info stream) (mp4-atom:get-mp4-audio-info stream))))
        (mp4-atom:mp4-atom-condition (c)
          (utils:warn-user "make-mp4-stream got condition: ~a" c)
          (when stream (stream-close stream))
          (setf stream nil)))
      stream))
  