anchor.diff:    text-document-sync
     root
     language-id
  +  (triggers (make-hash-table))
     (file-version-table (make-hash-table)))
   
   (defstruct text-document-sync
  
positive.code:                    (list :mode :stdio))))
           (initialize workspace)
           (initialized workspace)
           workspace))))
    (text-document-did-open buffer)
    (initialize-hooks buffer)
    (values))
  
  (lem:define-command lsp-hover () ()
    (alexandria:when-let ((message (hover (lem:current-point))))
  
negative.code:       (workspace
         (setf (buffer-workspace buffer) workspace))
        (t
         (let ((connection (jsonrpc:make-client)))
           (setf workspace
                 (make-workspace :connection connection
                                 :root root-path
                                 :language-id (client-language-id client)))
           (push workspace *workspaces*)
           (setf (buffer-workspace buffer) workspace)
           (dolist (response-method *response-methods*)
  