anchor.diff:                 (position (character " ") ch :start pos :test (function char/=)))
                (eos! (fin)
                  (return-from cnb
  -                 (values
  -                  (un-nombre
  -                   (or (read-from-string ch nil nil :start debut
  -                                         :end (min fin chlen)) 0.0))
  -                  (un-nombre fin))))
  +                 (values (un-nombre
  +                          (or (read-from-string ch nil nil :start debut
  +                                                :end (min fin chlen)) 0.0))
  +                         (if va
  +                             (let ((var (find-variable *vm* va))
  +                                   (new-pos (un-nombre fin)))
  +                               (if var
  +                                   (if (eql (variable-type var) 'nombre)
  +                                       (setf (variable-value var) new-pos)
  +                                       (lse-error "LA VARIABLE ~A N'EST PAS UN NOMBRE" va))
  +                                   (add-global-variable *vm* (make-instance 'lse-variable
  +                                                                 :name  va
  +                                                                 :value new-pos))))
  +                             (un-nombre fin)))))
                (eos? (pos) (when  (<= chlen fin) (eos! pos)))
                (match? (pos charseq) (position (aref ch pos) charseq))
                (digit? (pos) (digit-char-p (aref ch pos)))
  
positive.code: 
  (defun att ()    (error 'pas-implemente :what "ATT"))
  (defun dis (a) (declare (ignore a))  (error 'pas-implemente :what "DIS"))
  (defun etl (a b) (un-nombre (logand (truncate (un-nombre a))
                                      (truncate (un-nombre b)))))
  (defun oul (a b) (un-nombre (logior (truncate (un-nombre a))
                                      (truncate (un-nombre b)))))
  (defun oux (a b) (un-nombre (logxor (truncate (un-nombre a))
                                      (truncate (un-nombre b)))))
  
  
  (defun concatenation (a b) (la-chaine (concatenate 'string
                                          (la-chaine a) (la-chaine b))))
  
  (defun lgr (a) (un-nombre (length (la-chaine a))))
  
  (defun pos (ch de sc)
    (let* ((debut (1- (truncate (un-nombre de)))))
      (when (or (< debut 0) (/= (1+ debut) de))
        (error 'argument-invalide
               :op "POS"
  
negative.code: 
  
  ;;;; THE END ;;;;
  
  