anchor.diff:  
   
   (defun editor-terminate ()
  -  )
  +  (format t "~&Good bye!~%")
  +  (values))
   
   
   (defvar *last-command-char* nil
  
positive.code:    #-(or french) "Hide the cursor."))
  
  
  #+clisp
  (progn
    (defclass clisp-screen (screen)
      ((stream :reader screen-stream :initform (screen:make-window)))
      (:documentation
       #+french "
  Cette sous-classe de SCREEN utilise le package SCREEN de CLISP."
       #-(or french) "
  This SCREEN subclass uses the CLISP SCREEN package."
       ))
    (defmethod screen-size ((self clisp-screen))
      (screen:window-size (screen-stream self)))
    (defmethod screen-cursor-position ((self clisp-screen))
  
negative.code: 
  (defvar *interactive-decls* (make-hash-table #+clisp :weak #+clisp :key)
    #-(or french) "A map of commands name or functions to INTERACTIVE declarations."
    #+french      "Une association des noms de commande ou fonction vers leur
  déclaration INTERACTIVE.")
  
  
  (defmacro defun (name arguments &body body)
    #-(or french) "
  Do additionnal book-keeping over CL:DEFUN, for INTERACTIVE commands.
  "
    #+french "
  En plus du traitement de CL:DEFUN, maintient les informations nécessaires 
  pour les commandes interactives.
  