anchor.diff:                                 (loop-finish))))
                      :finally (progn
                                 (write-sequence buffer stream)
  +                              (force-output stream)
                                 (return done))))))))
   
   (define-condition lse-file-error (lse-error file-error)
  
positive.code:             (peek32 buffer 4) (header-record-table header))
        (file-position stream +header-position+)
        (write-sequence buffer stream)
        header)))
  
  
  
negative.code:                       (setf (gethash record-number table) position)))
                  ;; end of file
                  (loop-finish))
          :finally (force-output stream)
                   (return (setf header (make-header :free-list free-list
                                                     :record-table position)
                                 record-table table))))))
  
  