anchor.diff:        ;; (format t "p=~8D <-- ~S~%" position (subseq buffer 0 40))
         (file-position stream position)
         (write-sequence buffer stream)
  +      (force-output stream)
         position)))
   
   
  
positive.code:                                (loop-finish))))
                     :finally (progn
                                (write-sequence buffer stream)
                                (return done))))))))
  
  (define-condition lse-file-error (lse-error file-error)
  
negative.code:             (peek32 buffer 4) (header-record-table header))
        (file-position stream +header-position+)
        (write-sequence buffer stream)
        (force-output stream)
        header)))
  
  
  