anchor.diff:                                    (pathname (subseq namestring 0 (1+ i)))))))))
   
   (defun file-name (pathname)
  -  "Take pathname and return file name name."
  +  "Take pathname and return file name."
     (unless (or (eql :wild (pathname-name pathname))
                 (eql :wild (pathname-type pathname)))
       (if (pathname-type pathname)
  
positive.code:           (sys.int::ub32ref/le sector 488) (fs-info-last-free-cluster fat32-info)
            (sys.int::ub32ref/le sector 492) (fs-info-next-free-cluster fat32-info)
            (sys.int::ub32ref/le sector 508) (fs-info-trail-signature fat32-info))
      (write-sector disk
                    (fat32-fat-info fat32)
                    sector
                    1)))
  
  (defun read-fat (disk fat32)
    (read-sector disk
  
negative.code: (defmethod sys.gray:stream-write-byte ((stream fat32-file-stream) byte)
    (assert (member (direction stream) '(:output :io)))
    (when (> (buffer-offset stream)
             (buffer-size stream))
      (setf (buffer-size stream)
            (buffer-offset stream)))
    (let ((array-size (array-dimension (buffer stream) 0)))
      (when (>= (buffer-offset stream) array-size)
        (let* ((host (host stream))
               (fat32 (fat32-structure host)))
          (setf (buffer stream) (adjust-array (buffer stream)
                                              (+ array-size (bytes-per-cluster fat32))
                                              :initial-element 0)))))
    (setf (aref (buffer stream)
                (buffer-offset stream))
          byte)
    (incf (buffer-offset stream)))
  
  (defmethod sys.gray:stream-read-byte ((stream fat32-file-stream))
    (assert (member (direction stream) '(:input :io)))
    (let ((char (aref (buffer stream)
                      (buffer-offset stream))))
      (incf (buffer-offset stream))
      (if (<= (buffer-size stream)
              (buffer-offset stream))
          :eof
          char)))
  