anchor.diff:                        ((LABEL :INITARG :LABEL :DOCUMENTATION "*
   * The label of this completion item. By default
   * also the text that is inserted when selecting
  -* this completion.")
  +* this completion."
  +                        :TYPE COMMON-LISP:STRING)
                          (KIND? :INITARG :KIND :DOCUMENTATION "*
   * The kind of this completion item. Based of the kind
   * an icon is chosen by the editor. The standardized set
  -* of available values is defined in `CompletionItemKind`.")
  +* of available values is defined in `CompletionItemKind`."
  +                        :TYPE COMMON-LISP:NUMBER)
                          (TAGS? :INITARG :TAGS :DOCUMENTATION "*
   * Tags for this completion item.
   *
  -* @since 3.15.0")
  +* @since 3.15.0"
  +                        :TYPE (LEM-LSP-MODE/TYPE:LSP-ARRAY COMPLETION-ITEM-TAG))
                          (DETAIL? :INITARG :DETAIL :DOCUMENTATION "*
   * A human-readable string with additional information
  -* about this item, like type or symbol information.")
  +* about this item, like type or symbol information."
  +                        :TYPE COMMON-LISP:STRING)
                          (DOCUMENTATION? :INITARG :DOCUMENTATION :DOCUMENTATION "*
  -* A human-readable string that represents a doc-comment.")
  +* A human-readable string that represents a doc-comment."
  +                        :TYPE (COMMON-LISP:OR COMMON-LISP:STRING MARKUP-CONTENT))
                          (DEPRECATED? :INITARG :DEPRECATED :DOCUMENTATION "*
   * Indicates if this item is deprecated.
   *
  -* @deprecated Use `tags` instead if supported.")
  +* @deprecated Use `tags` instead if supported."
  +                        :TYPE COMMON-LISP:BOOLEAN)
                          (PRESELECT? :INITARG :PRESELECT :DOCUMENTATION "*
   * Select this item when showing.
   *
   * *Note* that only one completion item can be selected and that the
   * tool / client decides which item that is. The rule is that the *first*
  -* item of those that match best is selected.")
  +* item of those that match best is selected."
  +                        :TYPE COMMON-LISP:BOOLEAN)
                          (SORT-TEXT? :INITARG :SORT-TEXT :DOCUMENTATION "*
   * A string that should be used when comparing this item
  -* with other items. When `falsy` the label is used.")
  +* with other items. When `falsy` the label is used."
  +                        :TYPE COMMON-LISP:STRING)
                          (FILTER-TEXT? :INITARG :FILTER-TEXT :DOCUMENTATION "*
   * A string that should be used when filtering a set of
  -* completion items. When `falsy` the label is used.")
  +* completion items. When `falsy` the label is used."
  +                        :TYPE COMMON-LISP:STRING)
                          (INSERT-TEXT? :INITARG :INSERT-TEXT :DOCUMENTATION "*
   * A string that should be inserted into a document when selecting
   * this completion. When `falsy` the label is used.
  
positive.code: * - start with the same initial content
  * - apply the 'textDocument/didChange' notifications in the order you recevie them.
  * - apply the `TextDocumentContentChangeEvent`s in a single notification in the order
  *   you receive them.")))
  
  COMMON-LISP:NIL
  
  (COMMON-LISP:DEFCLASS WILL-SAVE-TEXT-DOCUMENT-PARAMS COMMON-LISP:NIL
                        ((TEXT-DOCUMENT :INITARG :TEXT-DOCUMENT :DOCUMENTATION "*
  * The document that will be saved.")
                         (REASON :INITARG :REASON :DOCUMENTATION "*
  * The 'TextDocumentSaveReason'.")))
  
  (COMMON-LISP:PROGN
   (COMMON-LISP:DEFPARAMETER TEXT-DOCUMENT-SAVE-REASON.MANUAL 1)
  
negative.code: 
  (COMMON-LISP:DEFCLASS NOTIFICATION-MESSAGE (MESSAGE)
                        ((METHOD :INITARG :METHOD :DOCUMENTATION "*
  * The method to be invoked."
                          :TYPE COMMON-LISP:STRING)
                         (PARAMS? :INITARG :PARAMS :DOCUMENTATION "*
  * The notification's params."
                          :TYPE (COMMON-LISP:OR ARRAY OBJECT))))
  
  (COMMON-LISP:DEFCLASS CANCEL-PARAMS COMMON-LISP:NIL
                        ((ID :INITARG :ID :DOCUMENTATION "*
  * The request id to cancel."
                          :TYPE (COMMON-LISP:OR COMMON-LISP:NUMBER COMMON-LISP:STRING))))
  
  COMMON-LISP:NIL
  
  (COMMON-LISP:DEFCLASS PROGRESS-PARAMS COMMON-LISP:NIL
                        ((TOKEN :INITARG :TOKEN :DOCUMENTATION "*
  * The progress token provided by the client or server."
                          :TYPE PROGRESS-TOKEN)
                         (VALUE :INITARG :VALUE :DOCUMENTATION "*
  * The progress data."
                          :TYPE T)))
  
  COMMON-LISP:NIL
  
  (COMMON-LISP:DEFCLASS POSITION COMMON-LISP:NIL
                        ((LINE :INITARG :LINE :DOCUMENTATION "*
  * Line position in a document (zero-based)."
                          :TYPE COMMON-LISP:NUMBER)
                         (CHARACTER :INITARG :CHARACTER :DOCUMENTATION "*
  * Character offset on a line in a document (zero-based). Assuming that the line is
  * represented as a string, the `character` value represents the gap between the
  * `character` and `character + 1`.
  *
  * If the character value is greater than the line length it defaults back to the
  * line length."
                          :TYPE COMMON-LISP:NUMBER)))
  
  (COMMON-LISP:DEFCLASS RANGE COMMON-LISP:NIL
                        ((START :INITARG :START :DOCUMENTATION "*
  * The range's start position."
                          :TYPE POSITION)
                         (END :INITARG :END :DOCUMENTATION "*
  * The range's end position."
                          :TYPE POSITION)))
  
  (COMMON-LISP:DEFCLASS LOCATION COMMON-LISP:NIL ((URI :INITARG :URI :DOCUMENTATION "" :TYPE DOCUMENT-URI) (RANGE :INITARG :RANGE :DOCUMENTATION "" :TYPE RANGE)))
  
  (COMMON-LISP:DEFCLASS LOCATION-LINK COMMON-LISP:NIL
                        ((ORIGIN-SELECTION-RANGE? :INITARG :ORIGIN-SELECTION-RANGE :DOCUMENTATION "*
  * Span of the origin of this link.
  *
  * Used as the underlined span for mouse interaction. Defaults to the word range at
  * the mouse position."
                          :TYPE RANGE)
                         (TARGET-URI :INITARG :TARGET-URI :DOCUMENTATION "*
  * The target resource identifier of this link."
                          :TYPE DOCUMENT-URI)
                         (TARGET-RANGE :INITARG :TARGET-RANGE :DOCUMENTATION "*
  * The full target range of this link. If the target for example is a symbol then target range is the
  * range enclosing this symbol not including leading/trailing whitespace but everything else
  * like comments. This information is typically used to highlight the range in the editor."
                          :TYPE RANGE)
                         (TARGET-SELECTION-RANGE :INITARG :TARGET-SELECTION-RANGE :DOCUMENTATION "*
  * The range that should be selected and revealed when this link is being followed, e.g the name of a function.
  * Must be contained by the the `targetRange`. See also `DocumentSymbol#range`"
                          :TYPE RANGE)))
  
  (COMMON-LISP:DEFCLASS DIAGNOSTIC COMMON-LISP:NIL
                        ((RANGE :INITARG :RANGE :DOCUMENTATION "*
  * The range at which the message applies."
                          :TYPE RANGE)
                         (SEVERITY? :INITARG :SEVERITY :DOCUMENTATION "*
  * The diagnostic's severity. Can be omitted. If omitted it is up to the
  * client to interpret diagnostics as error, warning, info or hint."
                          :TYPE DIAGNOSTIC-SEVERITY)
                         (CODE? :INITARG :CODE :DOCUMENTATION "*
  * The diagnostic's code, which might appear in the user interface."
                          :TYPE (COMMON-LISP:OR COMMON-LISP:NUMBER COMMON-LISP:STRING))
                         (SOURCE? :INITARG :SOURCE :DOCUMENTATION "*
  * A human-readable string describing the source of this
  * diagnostic, e.g. 'typescript' or 'super lint'."
                          :TYPE COMMON-LISP:STRING)
                         (MESSAGE :INITARG :MESSAGE :DOCUMENTATION "*
  * The diagnostic's message."
                          :TYPE COMMON-LISP:STRING)
                         (TAGS? :INITARG :TAGS :DOCUMENTATION "*
  * Additional metadata about the diagnostic.
  *
  * @since 3.15.0"
                          :TYPE (LEM-LSP-MODE/TYPE:LSP-ARRAY DIAGNOSTIC-TAG))
                         (RELATED-INFORMATION? :INITARG :RELATED-INFORMATION :DOCUMENTATION "*
  * An array of related diagnostic information, e.g. when symbol-names within
  * a scope collide all definitions can be marked via this property."
                          :TYPE (LEM-LSP-MODE/TYPE:LSP-ARRAY DIAGNOSTIC-RELATED-INFORMATION))))
  
  (COMMON-LISP:PROGN
   (COMMON-LISP:DEFPARAMETER DIAGNOSTIC-SEVERITY.ERROR 1)
  