anchor.diff:       :with res := nil
        :do
        (let ((first-byte (aref cluster (* i 32))))
  -       (unless  (or (zerop first-byte)
  -                    (= #xE5 first-byte))
  +       (unless (or (zerop first-byte)
  +                   (= #xE5 first-byte))
            (if (= #x0F (aref cluster (+ 11 (* i 32))))
                (push (make-long-dir
                       :order (aref cluster (* i 32))
  
positive.code:                             (= octet 255))
                  :do (setf name
                            (concatenate 'string name
                                         (format nil "~a" (code-char octet)))))
               (setf attributes (dir-attributes file)
                     time-tenth (dir-time-tenth file)
                     time (dir-time file)
                     date (dir-date file)
                     access-date (dir-access-date file)
                     write-time (dir-write-time file)
                     write-date (dir-write-date file)
                     first-cluster (logior (ash (dir-first-cluster-high file) 16)
                                           (ash (dir-first-cluster-low file) 0))
                     file-size (dir-file-size file)))
       :finally (return
                  (make-virtual-dir
                   :name name
                   :attributes attributes
                   :time-tenth time-tenth
                   :time time
                   :date date
                   :access-date access-date
                   :write-time write-time
                   :write-date write-date
                   :first-cluster first-cluster
                   :file-size file-size))))
  
  ;;; bits 0-4 2-second count, 5-10 minutes, 11-15 hours
  (defun decode-time (array)
  
negative.code:    (pathname :initarg :pathname :reader file-stream-pathname)
     (host :initarg :host :reader host)
     (direction :initarg :direction :reader direction)
     ;; Read buffer.
     (read-buffer :initarg :read-buffer
                  :accessor read-buffer)
     ;; File position where the buffer data starts.
  