anchor.diff:                                             (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)
  
positive.code: (defun command-eval-line (task line)
    (let ((*task* task))
      (cond
        
        ((and (= 2 (length line))
              (alpha-char-p (aref line 0))
              (alpha-char-p (aref line 1)))
  
negative.code:               (terminal-keysym-label terminal :attention)
                (terminal-keysym-label terminal :return))))
  
  
  
  
  