anchor.diff:  ;; - hoverClientCapabilitiesのcontentFormatを設定する
   ;; - hoverのrangeを使って範囲に背景色をつける
   ;; - markdownの中のコード表示時に対象の言語のシンタックスハイライトをする
  +;; - serverでサポートしているかのチェックをする
   
   (defun hover-to-string (hover)
     (flet ((marked-string-to-string (marked-string)
  
positive.code: ;; - workDoneProgress
  ;; - partialResult
  ;; - completionParams.context, どのように補完が起動されたかの情報を含める
  
  (defun text-document/completion (point)
    (request:lsp-call-method
     (workspace-client (buffer-workspace (point-buffer point)))
     (make-instance 'request:completion-request
                    :params (apply #'make-instance
                                   'protocol:completion-params
                                   (make-text-document-position-arguments point)))))
  
  ;;;
  (defvar *language-spec-table* (make-hash-table))
  
negative.code:             (t
               (setf (buffer-workspace buffer) workspace)))
        (text-document/did-open buffer)
        (lem:add-hook (lem:variable-value 'lem:before-change-functions :buffer buffer) 'handle-change-buffer)
        (setf (variable-value 'lem.language-mode:completion-spec)
              (lem.completion-mode:make-completion-spec
               'text-document/completion
               :prefix-search t)))))
  
  (defun initialize (workspace)
    (let ((initialize-result
  