anchor.diff:  (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)))
  
positive.code: ;;;;    You should have received a copy of the GNU Affero General Public License
  ;;;;    along with this program.  If not, see http://www.gnu.org/licenses/
  ;;;;****************************************************************************
  
  (in-package "COM.INFORMATIMAGO.LSE")
  
  
  
negative.code:                       (task-state-label (task-state task)))))
  
        ((task-pas-a-pas-first *task*)       
         ;; pas à pas:
         (continuer))
        
        #|else empty line, just ignore it.|#)))
  