anchor.diff:  (defvar *leval-mode-keymap*
     (make-keymap "leval"))
   
  -(define-minor-mode leval-mode
  +(define-major-mode leval-mode nil
     (:name "leval"
  -   :keymap *leval-mode-keymap*)
  +   :keymap *leval-mode-keymap*
  +   :syntax-table *lisp-syntax-table*)
     (buffer-put (window-buffer)
                 :modeline-format
                 (append *modeline-default-format*
                         (list
                          " "
  -                       #'(lambda (window)
  -                           (leval-current-package
  -                            (window-buffer window)))))))
  +                       (lambda (window)
  +                         (leval-current-package
  +                          (window-buffer window)))))))
   
   (define-command leval-connect (hostname port)
     ((list (minibuf-read-string "Host: " "localhost")
  
positive.code:                  (make-leval-client :hostname hostname
                                      :port port
                                      :socket socket))
             (lisp-mode)
             (leval-mode t)
             (scan-file-property-list)
             t))
          (t
  
negative.code:   socket)
  
  (defvar *leval-client*)
  (defvar *leval-connected-p* nil)
  
  (defun leval-send (event)
    (let ((stream (usocket:socket-stream (leval-client-socket *leval-client*))))
      (print event stream)
      (force-output stream)
      (prog1 (ignore-errors (read stream nil))
        (leval-connect (leval-client-hostname *leval-client*)
                       (leval-client-port *leval-client*)))))
  
  