anchor.diff:      (when (point<= (overlay-start overlay)
                      (current-point)
                      (overlay-end overlay))
  -      (message "~A" (diagnostic-message (overlay-diagnostic overlay)))
  +      (display-message (diagnostic-message (overlay-diagnostic overlay)))
         (return))))
   
   (defun text-document/publish-diagnostics (params)
  
positive.code:                            (send-event (lambda () (funcall then response))))
                           (lambda (message code)
                             (send-event (lambda () (jsonrpc-editor-error message code))))))
  
  ;;;
  (defgeneric spec-initialization-options (spec)
  
negative.code: 
  (define-command lsp-hover () ()
    (check-connection)
    (display-message (text-document/hover (current-point))))
  
  ;;; completion
  
  