anchor.diff:  
     (defcommand "LISTER A PARTIR DE"   deux-numeros-optionels (from to)
       "Affiche le programme courant."
  +    
       (lister-a-partir-de from to))
   
   
  
positive.code: 
    (defcommand "AU REVOIR" nil ()
      "Efface les fichiers temporaires, et passe à l'état dormant."
      (au-revoir))
  
    (defcommand "ABREGER"     nil ()
  
negative.code:   :success)
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; LSE Documentation
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defparameter *chapters* (make-hash-table :test (function equalp)))
  (defun find-chapter (title) (gethash title *chapters*))
  
  (defstruct chapter
    title
    text)
  
  (defmacro defchapter (title &rest text)
    `(setf (gethash ',title *chapters*)
           (make-chapter :title ',title
                         :text ',(unsplit-string text #\Newline))))
  
  
  ;; (find-chapter"instructions")
  
  (defchapter "INSTRUCTIONS"
      "Voici la liste des instructions disponibles.  
  
  Taper DO)CUMENTATION <instruction> pour avoir la documentation de
  chaque instruction:
  
  affectation            ref ← expression
  appel                  &procid(arguments…)
  liberer                LIBERER id1,…,idn      
  lire                   LIRE id1,…,idn            
  afficher               AFFICHER [format]expr…
  alleren                ALLER EN lino
  si                     SI condition ALORS instruction [SINON instruction]
  debut                  DEBUG instruction;… FIN
  fairejusqua            FAIRE lino POUR var←expri [PAS exprp] JUSQUA exprf
  fairetantque           FAIRE lino POUR var←expri [PAS exprp] TANT QUE exprb
  retour                 RETOUR
  retouren               RETOUR EN lino
  resultat               RESULTAT expr
  garer                  GARER 
  charger                CHARGER
  supprimer              SUPPRIMER
  executer               EXCUTER
  pause                  PAUSE
  terminer               TERMINER
  ")
  
  (defchapter "FONCTIONS"
      "Voici la liste des fonctions disponibles.  
  
  Taper DO)CUMENTATION <fonction> pour avoir la documentation de
  chaque fonction.
  
  PLUS                   a+b, somme de deux nombres;
  MOINS                  a-b, différence de deux nombres;
  NEGATION               -a, négation unaire;
  FOIS                   a*b, produit de deux nombres;
  DIVISE                 a/b, quotient de deux nombres;
  PUISSANCE              a↑b, puissance;
  CONCATENATION          a!b, concatenation de deux chaînes;
  SITERNAIRE             SI condition ALORS expr1 SINON expr2;
  COMPARAISONS           a<b, a<=b, a>b, a>=b, a=b, a#b;
  CONJONCTION            comparaison1 ET comparaison2;
  DISJONCTION            conjonction OU conjonection;
  NEGATION               NON condition;
  
  ENT                    ENT(expr), partie entière;
  ABS                    ABS(expr), valeur absolue;
  EXP                    EXP(expr), exponentiation: e↑expr;
  SIN                    SIN(expr), sinus;
  COS                    COS(expr), cosinus;
  ATG                    ATG(expr), arc tangente;
  RAC                    RAC(expr), racine carrée;
  LGN                    LGN(expr), logarithme népérien;
  ALE                    ALE(expr), valeur aléatoire;
  ATT                    ATT(), signal d'attention utilisateur;
  ETL                    ETL(expr1,expr2), ET Logique;
  OUL                    OUL(expr1,expr2), OU Logique;
  OXL                    OXL(expr1,expr2), OU exclusif Logique;
  TEM                    TEM(), temps;
  DAT                    DAT(), chaîne date;
  LGR                    LGR(ch), longueur chaine;
  POS                    POS(ch,de,sc), position sous-chaîne;
  EQN                    EQN(ch), équivalent numérique;
  EQC                    EQC(ch), équivalent caractère;
  CCA                    CCA(ca), conversion en caractères;
  CNB                    CNB(ch,de), conversion en nombre;
  SCH                    SCH(ch,de,fi), sous-chaîne;
  SKP                    SKP(ch,de[,ev]), saut;
  PTR                    PTR(ch,de[,ev]), pointeur;
  GRL                    GRL(ch,de), groupe de lettres;
  
  ")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; LSE Commands
  