anchor.diff:  (defun (setf buffer-file-version) (value buffer)
     (setf (gethash buffer (workspace-file-version-table (buffer-workspace buffer))) value))
   
  +(defun buffer-text (buffer)
  +  (lem:points-to-string (lem:buffer-start buffer)
  +                        (lem:buffer-end buffer)))
  +
   (defun buffer-uri (buffer)
     (pathname-to-uri (lem:buffer-filename buffer)))
   
  
positive.code: (defun {} (&rest plist)
    (alexandria:plist-hash-table plist :test 'equal))
  
  (defun merge-table (parent child)
    (maphash (lambda (key value)
               (setf (gethash key child) value))
  
negative.code:                   ({} "textDocument" (versioned-text-document-identifier buffer)
                        "contentChanges" changes)))
  
  (defun text-document-content-change-event (point string-or-number)
    (let ((start-position (lsp-position point)))
      (etypecase string-or-number
  