anchor.diff:    (run-server-using-mode (spec-mode spec) spec))
   
   (defun get-running-server-info (spec)
  -  (gethash (spec-langauge-id spec) *language-id-server-info-map*))
  +  (gethash (spec-language-id spec) *language-id-server-info-map*))
   
   (defun remove-server-info (spec)
  -  (remhash (spec-langauge-id spec) *language-id-server-info-map*))
  +  (remhash (spec-language-id spec) *language-id-server-info-map*))
   
   (defun ensure-running-server-process (spec)
     (unless (get-running-server-info spec)
  -    (setf (gethash (spec-langauge-id spec) *language-id-server-info-map*)
  +    (setf (gethash (spec-language-id spec) *language-id-server-info-map*)
             (run-server spec))
       t))
   
  
positive.code: (defun get-language-spec (major-mode)
    (gethash major-mode *language-spec-table*))
  
  (defun spec-langauge-id (spec)
    (getf spec :language-id))
  
  (defun spec-root-uri-patterns (spec)
  
negative.code:   disposable)
  
  (defun server-process-buffer-name (spec)
    (format nil "*Lsp <~A>*" (spec-language-id spec)))
  
  (defun make-server-process-buffer (spec)
    (make-buffer (server-process-buffer-name spec)))
  