anchor.diff:        (setf *server* (jsonrpc:make-server))
         (jsonrpc:expose *server* "ready" (ready (lambda () (setf ready t))))
         (jsonrpc:expose *server* "input" 'input-callback)
  -      (dbg "server-listen")
  +      (log:info "server-listen")
         (apply #'jsonrpc:server-listen *server*
                :mode *mode*
                (if (eq *mode* :tcp) (list :port *port*))))))
  
positive.code: (defvar *background-mode*)
  
  (setf *implementation* (make-instance 'jsonrpc))
  
  (when *debug*
    (setq *error-output*
          (open "~/ERROR" :direction :output :if-does-not-exist :create :if-exists :supersede)))
  
  (defstruct view
    (id (incf *view-id-counter*))
  
negative.code:               (t
                 (error "unexpected kind: ~D" kind))))
      (error (e)
        (log:error e)
        (log:error (with-output-to-string (stream)
                     (let ((stream (yason:make-json-output-stream stream)))
                       (yason:encode args stream)))))))
  
  (add-hook *exit-editor-hook*
            (lambda ()
  