anchor.diff:              (peek32 buffer 4) (header-record-table header))
         (file-position stream +header-position+)
         (write-sequence buffer stream)
  +      (force-output stream)
         header)))
   
   
  
positive.code:                                (loop-finish))))
                     :finally (progn
                                (write-sequence buffer stream)
                                (return done))))))))
  
  (define-condition lse-file-error (lse-error file-error)
  
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))))))
  
  