anchor.diff:                  (keyboard-loop)
                (set-screen-cursor-position *current-screen*
                                            0 (screen-size *current-screen*))
  -             (clear-screen *current-screen*)))
  +             (clear-screen *current-screen*))
  +           (editor-terminate))
         (close *log*))))
   
  -(defun editor () (screen-editor :log "/tmp/editor.log"))
  -(export 'editor)
  +
   #+clisp
   (defun keyboard-test ()
     (screen:with-window nil
  
positive.code:         "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.DLL"
          "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM")
    (:shadow "DEFUN" "LAMBDA" "ED")
    (:export #+clisp "SCREEN-EDITOR"
             "DEFUN" "LAMBDA" "ED"))
  (in-package "COM.INFORMATIMAGO.EDITOR")
  
  
  
negative.code: ;;;---------------------------------------------------------------------
  ;;; Commands: interactive functions
  ;;;---------------------------------------------------------------------
  ;;;
  ;;; #-(or french)
  ;;; We want to define commands, with a special INTERACTIVE
  ;;; declaration.  So we need to use our own DEFUN (and LAMBDA) macros.
  ;;;
  ;;; #+french
  ;;; Nous voulons définir des commandes, avec une déclaration spéciale:
  ;;; INTERACTIVE.  Ainsi, nous devons utiliser nos propres macros DEFUN et LAMBDA.
  