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:                                            (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)
  
negative.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/
  ;;;;****************************************************************************
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (setf *readtable* (copy-readtable nil)))
  (in-package "COM.INFORMATIMAGO.LSE")
  
  
  