anchor.diff:              (peek32 buffer 4) (header-record-table header))
         (file-position stream +header-position+)
         (write-sequence buffer stream)
  +      (force-output stream)
         header)))
   
   
  
positive.code:                       (setf (gethash record-number table) position)))
                  ;; end of file
                  (loop-finish))
          :finally (return (setf header (make-header :free-list free-list
                                                     :record-table position)
                                 record-table table))))))
  
  
negative.code:           (replace buffer (let ((*newline* ':lf))
                              (ascii-format nil "L.S.E. Data File~%Version: 1.0.1~25%")))
            (file-position stream 0)
            (write-sequence buffer stream)
            (force-output stream)))
        (let ((file (make-instance 'file
                        :path (pathname filespec)
                        :stream stream)))
  