anchor.diff:                                    #|"initializationOptions"|#
                                     "capabilities" (client-capabilities)
                                     #|"trace" "off"|#
  -                                  #|"workspaceFolders" nil|#))))
  +                                  #|"workspaceFolders" nil|#)))
  +         (server-capabilities (gethash "capabilities" response)))
       (setf (workspace-server-capabilities workspace)
  -          (gethash "capabilities" response))))
  +          server-capabilities)
  +    (alexandria:when-let (sync (gethash "textDocumentSync" server-capabilities))
  +      (setf (workspace-text-document-sync workspace)
  +            (convert-text-document-sync sync)))))
   
   (defun initialized (workspace)
     (jsonrpc:notify (workspace-connection workspace) "initialized" ({})))
  
positive.code: (defstruct workspace
    connection
    server-capabilities
    root
    language-id
    (file-version-table (make-hash-table)))
  
  (lem:define-minor-mode language-client-mode
      (:name "Language Client")
    (setf (lem:variable-value 'lem.language-mode:completion-function) 'completion)
    ;(uiop:run-program "go-langserver -mode tcp -gocodecompletion &")
    (start (lem:current-buffer)))
  
  (defun get-language-id (language)
    (ecase language
  
negative.code:       "textDocument" (text-document-client-capabilities)
        #|"experimental"|#))
  
  (defun convert-text-document-sync (sync)
    (etypecase sync
      (number
       (make-text-document-sync :change sync))
      (hash-table
       (make-text-document-sync :open-close (gethash "openClose" sync)
                                :change (gethash "change" sync)
                                :will-save (gethash "willSave" sync)
                                :will-save-wait-until (gethash "willSaveWaitUntil" sync)
                                :save (gethash "save" sync)))))
  
  (defun initialize (workspace)
    (let* ((root (workspace-root workspace))
           (response (jsonrpc:call (workspace-connection workspace)
  