anchor.diff:  ;;       (screen:WITH-window (print 'hi))
   ;;     (print (read-char ext:*keyboard-input*))))
   
  +(defun editor () (screen-editor :log "/tmp/editor.log"))
   (defun ed (&rest args) (apply (function screen-editor) args))
  +
  +(defun reload ()
  +  (in-package "CL-USER")
  +  (load "editor")
  +  (in-package "EDITOR"))
  +
   (in-package "COMMON-LISP-USER")
  -(print '(emacs:SCREEN-EDITOR))
  +
  +(print '(e::reload))
  +(print '(e:screen-editor))
   (print '(e:ed))
   
   ;;;; THE END ;;;;
  
positive.code: il n'y a qu'une instance de SCREEN, mais une version future pourrait être
  ''multitty'' (ou ''multiframe''), comme GNU emacs.")
  
  (defmacro with-screen (screen-object &body body)
    #-(or french) "Executes the BODY with *CURRENT-SCREEN* bound to SCREEN-OBJECT,
  while displaying this screen on the terminal."
  
negative.code: (when (find-package "COM.INFORMATIMAGO.EDITOR")
    (delete-package "COM.INFORMATIMAGO.EDITOR"))
  
  ;;;---------------------------------------------------------------------
  ;;;
  ;;; We put on *FEATURES* a keyword representing the language to use for
  