anchor.diff:  ;;       (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 ;;;;
   
  
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: ;;;;AUTHORS
  ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  ;;;;    2014-04-30 <PJB> Corrected a couple of little bugs. Added BUGS entries.
  ;;;;    2007-09-11 <PJB> Added the language feature, and some docstrings.
  ;;;;    2006-07-10 <PJB> Created.
  ;;;;BUGS
  