anchor.diff:  * master (as speced with document content ownership).
   *
   * The version number of a document will increase after each change, including
  -* undo/redo. The number doesn't need to be consecutive.")))
  +* undo/redo. The number doesn't need to be consecutive."
  +                        :TYPE (COMMON-LISP:OR COMMON-LISP:NUMBER NULL))))
   
   (COMMON-LISP:DEFCLASS TEXT-DOCUMENT-POSITION-PARAMS COMMON-LISP:NIL
                         ((TEXT-DOCUMENT :INITARG :TEXT-DOCUMENT :DOCUMENTATION "*
  -* The text document.")
  +* The text document."
  +                        :TYPE TEXT-DOCUMENT-IDENTIFIER)
                          (POSITION :INITARG :POSITION :DOCUMENTATION "*
  -* The position inside the text document.")))
  +* The position inside the text document."
  +                        :TYPE POSITION)))
   
   (COMMON-LISP:DEFCLASS DOCUMENT-FILTER COMMON-LISP:NIL
                         ((LANGUAGE? :INITARG :LANGUAGE :DOCUMENTATION "*
  -* A language id, like `typescript`.")
  +* A language id, like `typescript`."
  +                        :TYPE COMMON-LISP:STRING)
                          (SCHEME? :INITARG :SCHEME :DOCUMENTATION "*
  -* A Uri [scheme](#Uri.scheme), like `file` or `untitled`.")
  +* A Uri [scheme](#Uri.scheme), like `file` or `untitled`."
  +                        :TYPE COMMON-LISP:STRING)
                          (PATTERN? :INITARG :PATTERN :DOCUMENTATION "*
   * A glob pattern, like `*.{ts,js}`.
   *
  
positive.code: * If a string is provided, the string is treated as an ID
  * under which the notification is registered on the client
  * side. The ID can be used to unregister for these events
  * using the `client/unregisterCapability` request.")))
  
  (COMMON-LISP:DEFCLASS WORKSPACE-FOLDER COMMON-LISP:NIL
                        ((URI :INITARG :URI :DOCUMENTATION "*
  * The associated URI for this workspace folder.")
                         (NAME :INITARG :NAME :DOCUMENTATION "*
  * The name of the workspace folder. Used to refer to this
  * workspace folder in the user interface.")))
  
  (COMMON-LISP:DEFCLASS DID-CHANGE-WORKSPACE-FOLDERS-PARAMS COMMON-LISP:NIL
                        ((EVENT :INITARG :EVENT :DOCUMENTATION "*
  * The actual workspace folder change event.")))
  
  (COMMON-LISP:DEFCLASS WORKSPACE-FOLDERS-CHANGE-EVENT COMMON-LISP:NIL
                        ((ADDED :INITARG :ADDED :DOCUMENTATION "*
  * The array of added workspace folders")
                         (REMOVED :INITARG :REMOVED :DOCUMENTATION "*
  * The array of the removed workspace folders")))
  
  (COMMON-LISP:DEFCLASS DID-CHANGE-CONFIGURATION-CLIENT-CAPABILITIES COMMON-LISP:NIL
                        ((DYNAMIC-REGISTRATION? :INITARG :DYNAMIC-REGISTRATION :DOCUMENTATION "*
  * Did change configuration notification supports dynamic registration.")))
  
  (COMMON-LISP:DEFCLASS DID-CHANGE-CONFIGURATION-PARAMS COMMON-LISP:NIL
                        ((SETTINGS :INITARG :SETTINGS :DOCUMENTATION "*
  * The actual changed settings")))
  
  (COMMON-LISP:DEFCLASS CONFIGURATION-PARAMS COMMON-LISP:NIL ((ITEMS :INITARG :ITEMS :DOCUMENTATION "")))
  
  (COMMON-LISP:DEFCLASS CONFIGURATION-ITEM COMMON-LISP:NIL
                        ((SCOPE-URI? :INITARG :SCOPE-URI :DOCUMENTATION "*
  * The scope to get the configuration section for.")
                         (SECTION? :INITARG :SECTION :DOCUMENTATION "*
  * The configuration section asked for.")))
  
  (COMMON-LISP:DEFCLASS DID-CHANGE-WATCHED-FILES-CLIENT-CAPABILITIES COMMON-LISP:NIL
                        ((DYNAMIC-REGISTRATION? :INITARG :DYNAMIC-REGISTRATION :DOCUMENTATION "*
  * Did change watched files notification supports dynamic registration. Please note
  * that the current protocol doesn't support static configuration for file changes
  * from the server side.")))
  
  (COMMON-LISP:DEFCLASS DID-CHANGE-WATCHED-FILES-REGISTRATION-OPTIONS COMMON-LISP:NIL
                        ((WATCHERS :INITARG :WATCHERS :DOCUMENTATION "*
  * The watchers to register.")))
  
  (COMMON-LISP:DEFCLASS FILE-SYSTEM-WATCHER COMMON-LISP:NIL
                        ((GLOB-PATTERN :INITARG :GLOB-PATTERN :DOCUMENTATION "*
  
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)
  