anchor.diff:            (unless (task-script-debug *task*)
               (return-from command-run-script NIL)))
         (au-revoir ()
  -        (return-from command-run-script T)))
  +                 (return-from command-run-script T)))
       (setf (task-script-debug *task*) :debugging)
       (command-repl task)))
   
  
positive.code:               (*command-group* command-group)
                (command (find-command line command-group)))
           (if (null command)
               (lse-error "COMMANDE INCONNUE ~S" line)
               (progn
                 (unless (task-silence task)
                   (io-carriage-return task)
                   (io-format task "~A " (if (task-abreger task)
                                             (subseq (command-name command) 0 2)
                                             (command-name command))))
                 (command-call command)))))
  
        ((< 0 (length line))
         ;; soit une instruction, soit une ligne de programme...
         (setf (task-pas-a-pas-first *task*) nil)
         (if (task-state-awake-p task)
             (lse-compile-and-execute task line)
             (lse-error "COMMANDE INVALIDE EN L'ETAT ~A~%ESSAYER LA COMMANDE AI(DE).~%"
                        (task-state-label (task-state task)))))
  
        ((task-pas-a-pas-first *task*)       
         ;; pas à pas:
  
negative.code:     :terminals ((tok-virgule ",")
                  (tok-numero  "[0-9]+"))
      :start deux-numeros
      :eof-symbol eol
      :rules ((--> deux-numeros
                   (seq tok-numero tok-virgule tok-numero
                        :action (list (parse-integer (second $1))
  