anchor.diff:  (defun get-language-spec (major-mode)
     (gethash major-mode *language-spec-table*))
   
  -(defun spec-langauge-id (spec)
  +(defun spec-language-id (spec)
     (getf spec :language-id))
   
   (defun spec-root-uri-patterns (spec)
  
positive.code: (defun buffer-language-id (buffer)
    (let ((spec (buffer-language-spec buffer)))
      (when spec
        (spec-langauge-id spec))))
  
  (defun buffer-version (buffer)
    (buffer-modified-tick buffer))
  
negative.code:                             (kill-server-process spec))))
        (let ((new-client (establish-connection spec)))
          (cond ((null new-client)
                 (let ((workspace (find-workspace (spec-language-id spec) :errorp t)))
                   (assign-workspace-to-buffer buffer workspace)
                   (when continuation (funcall continuation))))
                (t
  