anchor.diff:    disposable)
   
   (defun server-process-buffer-name (spec)
  -  (format nil "*Lsp <~A>*" (spec-langauge-id spec)))
  +  (format nil "*Lsp <~A>*" (spec-language-id spec)))
   
   (defun make-server-process-buffer (spec)
     (make-buffer (server-process-buffer-name spec)))
  
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: (defun buffer-language-id (buffer)
    (let ((spec (buffer-language-spec buffer)))
      (when spec
        (spec-language-id spec))))
  
  (defun buffer-version (buffer)
    (buffer-modified-tick buffer))
  