anchor.diff:                   (assign-workspace-to-buffer buffer workspace)
                    (when continuation (funcall continuation))))
                 (t
  -               (start-loading-spinner buffer)
  -               (initialize-workspace
  -                (make-workspace :client new-client
  -                                :root-uri root-uri
  -                                :spec spec)
  -                (lambda (workspace)
  -                  (stop-loading-spinner buffer)
  -                  (assign-workspace-to-buffer buffer workspace)
  -                  (when continuation (funcall continuation))))))))))
  +               (let ((spinner (spinner:start-loading-spinner
  +                               :modeline
  +                               :loading-message "initializing"
  +                               :buffer buffer)))
  +                 (initialize-workspace
  +                  (make-workspace :client new-client
  +                                  :root-uri root-uri
  +                                  :spec spec)
  +                  (lambda (workspace)
  +                    (assign-workspace-to-buffer buffer workspace)
  +                    (when continuation (funcall continuation))
  +                    (spinner:stop-loading-spinner spinner))))))))))
   
   (defun check-connection ()
     (let* ((buffer (current-buffer))
  
positive.code: (lem-lsp-mode/project:local-nickname :client :lem-lsp-mode/client)
  (lem-lsp-mode/project:local-nickname :completion :lem.completion-mode)
  (lem-lsp-mode/project:local-nickname :context-menu :lem-lsp-mode/context-menu)
  
  ;;;
  (defparameter *client-capabilities-text*
  
negative.code:                            (send-event (lambda () (funcall then response))))
                           (lambda (message code)
                             (send-event (lambda () (jsonrpc-editor-error message code))))))
  
  ;;;
  (defgeneric spec-initialization-options (spec)
  