anchor.diff:    (defparameter letters
       #-LSE-CASE-INSENSITIVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
       #+LSE-CASE-INSENSITIVE "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")
  +  (defparameter exponent
  +    #-LSE-CASE-INSENSITIVE "E"
  +    #+LSE-CASE-INSENSITIVE "Ee")
     (defparameter digits             "0123456789")
     (defparameter spaces             " ")
     (defparameter ampersand          "&")
  
positive.code:         (digits   (advance (token tok-numero)))
          (dot      (advance (token tok-nombre))
                    (shift nombre-mantissa))
          ("E"      (advance :error-on-eof "IL MANQUE L'EXPOSANT APRES 'E'")
                    (shift nombre-exponent))
          ((concat spaces star specials specials-2 signs)
           (shift not-commentaire) (produce (token tok-numero)))
  
negative.code:        
         (nombre-mantissa ; 6
          (digits   (advance (token tok-nombre)))
          (exponent (advance :not-eof  "IL MANQUE L'EXPOSANT APRES 'E'")
                    (shift nombre-exponent))
          ((concat spaces specials specials-2 dot star signs)
           (shift not-commentaire) (produce (token tok-nombre)))
  