anchor.diff:    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 (read stream nil)
  +    (prog1 (ignore-errors (read stream nil))
         (leval-connect (leval-client-hostname *leval-client*)
                        (leval-client-port *leval-client*)))))
   
  
positive.code:                  (make-leval-client :hostname hostname
                                      :port port
                                      :socket socket))
             (lisp-mode)
             (leval-mode t)
             (scan-file-property-list)
             t))
          (t
  
negative.code: (defvar *leval-mode-keymap*
    (make-keymap "leval"))
  
  (define-major-mode leval-mode nil
    (:name "leval"
     :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)))))))
  
  (define-command leval-connect (hostname port)
    ((list (minibuf-read-string "Host: " "localhost")
  