anchor.diff:  (defun {} (&rest plist)
     (alexandria:plist-hash-table plist :test 'equal))
   
  +(defun -> (table &rest keys)
  +  (loop :for k* :on keys
  +        :for k := (first k*)
  +        :do (if (rest k*)
  +                (progn
  +                  (setf table (gethash k table))
  +                  (unless (hash-table-p table)
  +                    (return nil)))
  +                (setf table (gethash k table)))
  +        :finally (return table)))
  +
   (defun merge-table (parent child)
     (maphash (lambda (key value)
                (setf (gethash key child) value))
  
positive.code: (defun (setf buffer-file-version) (value buffer)
    (setf (gethash buffer (workspace-file-version-table (buffer-workspace buffer))) value))
  
  (defun buffer-uri (buffer)
    (pathname-to-uri (lem:buffer-filename buffer)))
  
  
negative.code:                            "end" end-position)
                 "rangeLength" (lem:count-characters end point)
                 "text" "")))))))
  
  (defun text-document-will-save (buffer &optional (reason |TextDocumentSaveReason.Manual|))
    (jsonrpc:notify (workspace-connection (buffer-workspace buffer))
                    "textDocument/willSave"
                    ({} "textDocument"
                        "reason" reason)))
  
  (defun text-document-will-save-wait-until (buffer &optional (reason |TextDocumentSaveReason.Manual|))
    (let ((workspace (buffer-workspace buffer)))
      (jsonrpc:notify (workspace-connection workspace)
                      "textDocument/willSaveWaitUntil"
                      ({} "textDocument"
                          "reason" reason))))
  
  (defun text-document-did-save (buffer)
    (jsonrpc:notify (workspace-connection (buffer-workspace buffer))
                    "textDocument/didSave"
                    ({} "textDocument" (text-document-identifier buffer)
                        #|"text" (buffer-text buffer)|#)))
  
  (defun text-document-did-close (buffer))
  
  (defun hover-contents-to-string (contents)
    (typecase contents
  