anchor.diff:                                 arguments-supprimer-scanner)
   
   #-(and) (mapcar (lambda (s)
  -                  (list s
  -                        (handler-case (converting-parser-errors (funcall (intern (format nil "~:@(~A-~A~)" 'parse s)) ""))
  -                          (error (err) (ignore-errors (string-trim #(#\newline) (princ-to-string err)))))))
  +                    (list s
  +                     (handler-case (converting-parser-errors (funcall (intern (format nil "~:@(~A-~A~)" 'parse s)) ""))
  +                       (error (err) (ignore-errors (string-trim #(#\newline) (princ-to-string err)))))))
                   '(numero-de-ligne             
                     un-numero                   
                     deux-numeros                
  
positive.code:                  (tok-numero  "[0-9]+")
                   (tok-identificateur "[A-Za-z][A-Za-z0-9]*"))
      :start un-fichier-et-deux-numeros
      :rules (
              (--> un-fichier-et-deux-numeros
                   (seq ident (opt (seq tok-virgule deux-numeros :action deux-numeros)
  
negative.code:                          :element-type '(unsigned-byte 8)
                           :if-does-not-exist nil)
        (if src
          (with-open-file (dst dst-path
                               :direction :output
                               :element-type '(unsigned-byte 8)
                               :if-exists nil
                               :if-does-not-exist :create)
            (if dst
              (copy-stream src dst)
              (error 'lse-file-error
                     :backtrace (or #+ccl (ccl::backtrace-as-list))
                     :pathname dst-path
                     :format-control "IL Y A DEJA UN FICHIER PERMANENT '~A'."
                     :format-arguments (list permanent))))
          (error 'lse-file-error
                 :backtrace (or #+ccl (ccl::backtrace-as-list))
                 :pathname src-path
                 :format-control "IL N'Y A PAS DE FICHIER TEMPORAIRE '~A' A CATALOGUER."
                 :format-arguments (list temporaire))))))
  
  
  
  