anchor.diff:  (defvar *main-thread*)
   (defvar *editor-thread*)
   (defvar *server*)
  +
  +(defvar *background-mode*)
   
   (defstruct view
     (id (incf *view-id-counter*))
  
positive.code:                  (dolist (char keys)
                     (send-event char))))
                ((= kind +resize+)
                 (resize value)
                 (send-event :resize))
                (t
                 (error "unexpected kind: ~D" kind))))
  
negative.code:            (jsonrpc/class:jsonrpc-transport *server*))))
      (jsonrpc:notify *server* method argument)))
  
  (defun resize (width height)
    (setf *display-width* width)
    (setf *display-height* height))
  
  (defmethod lem::interface-invoke ((implementation (eql :jsonrpc)) function)
    (let ((ready nil))
  