anchor.diff:                                                                      (2.1 2.2)
                                                                       (3.1 3.2)
                                                                       (4.1 4.2))))
  -             (write-record file 40 "Hello world!"))
  +             (write-record file 400 "Hello world!")
  +             (write-record file 401 "Félicitation!  45 ¥ ↑∀δ∈D, δ≡ε₂↓")
  +
  +             (loop
  +               :for nr :from 100 :to 110
  +               :do (write-record file nr (format nil "Record ~D: contenu: ~D" nr nr)))
  +             (loop
  +               :for nr :from 100 :to 110 :by 2
  +               :do (delete-record file nr))
  +             (loop
  +               :for nr :from 200 :to 210
  +               :do (progn
  +                     (write-record file nr (format nil "Record ~D: contenu: ~D" nr nr))
  +                     (when (zerop (mod nr 3))
  +                       (delete-record file (- nr 1))))))
  +        
           (lse-data-file-close file))))
     (test/dump-lse-file  "/tmp/test.don"))
   
  
positive.code:                       (setf (gethash record-number table) position)))
                  ;; end of file
                  (loop-finish))
          :finally (setf header (make-header :free-list free-list
                                             :record-table position)
                         record-table table)))))
  
  
  (defmethod read-record-table ((file file))
  
negative.code: (defmethod read-header ((file file))
    (let ((buffer (make-array 8 :element-type '(unsigned-byte 8))))
      (with-slots (stream header) file
        (read-block buffer stream +header-position+)
        (setf header (make-header :free-list    (peek32 buffer 0)
                                  :record-table (peek32 buffer 4))))))
  
  (defmethod write-header ((file file))
    (let ((buffer (make-array 8 :element-type '(unsigned-byte 8))))
      (with-slots (stream header) file
        (setf (peek32 buffer 0) (header-free-list    header)
              (peek32 buffer 4) (header-record-table header))
        (file-position stream +header-position+)
        (write-sequence buffer stream)
        header)))
  
  
  (defun valid-type-p (type-code)
  