anchor.diff:  ;;;;    - redisplay: we can see the cursor moving over the terminal
   ;;;;    - redisplay: implement minimal updating.
   ;;;;    - implement pathname and buffer-name completion.
  +;;;;    - doesn't take into account changes of terminal size (SIGWINCH).
  +;;;;    - doesn't handle TAB completion (or at least ignore TAB).
  +;;;;    - breaking into the debugger (eg. on C-x C-e) is not handled in the editor,
  +;;;;      and some restart may exit from the editor.
   ;;;;LEGAL
   ;;;;    GPL
   ;;;;    
  -;;;;    Copyright Pascal Bourguignon 2006 - 2007
  +;;;;    Copyright Pascal Bourguignon 2006 - 2014
   ;;;;    
   ;;;;    This program is free software; you can redistribute it and/or
   ;;;;    modify it under the terms of the GNU General Public License
  
positive.code: 
  
  (defpackage "COM.INFORMATIMAGO.EDITOR"
    (:nicknames "EDITOR" "EMACS")
    (:use "COMMON-LISP"
          "SPLIT-SEQUENCE"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.DLL"
          "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM")
    (:shadow "DEFUN" "LAMBDA")
    (:export #+clisp "SCREEN-EDITOR"
             "DEFUN" "LAMBDA"))
  (in-package "COM.INFORMATIMAGO.EDITOR")
  
  
  
negative.code: ;;       (screen:WITH-window (print 'hi))
  ;;     (print (read-char ext:*keyboard-input*))))
  
  (defun ed (&rest args) (apply (function screen-editor) args))
  (in-package "COMMON-LISP-USER")
  (print '(emacs:SCREEN-EDITOR))
  (print '(e:ed))
  
  ;;;; THE END ;;;;
  
  