anchor.diff:  * 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.")))
  +* using the `client/unregisterCapability` request."
  +                        :TYPE (COMMON-LISP:OR COMMON-LISP:STRING COMMON-LISP:BOOLEAN))))
   
   (COMMON-LISP:DEFCLASS WORKSPACE-FOLDER COMMON-LISP:NIL
                         ((URI :INITARG :URI :DOCUMENTATION "*
  -* The associated URI for this workspace folder.")
  +* The associated URI for this workspace folder."
  +                        :TYPE DOCUMENT-URI)
                          (NAME :INITARG :NAME :DOCUMENTATION "*
   * The name of the workspace folder. Used to refer to this
  -* workspace folder in the user interface.")))
  +* workspace folder in the user interface."
  +                        :TYPE COMMON-LISP:STRING)))
   
   (COMMON-LISP:DEFCLASS DID-CHANGE-WORKSPACE-FOLDERS-PARAMS COMMON-LISP:NIL
                         ((EVENT :INITARG :EVENT :DOCUMENTATION "*
  -* The actual workspace folder change event.")))
  +* The actual workspace folder change event."
  +                        :TYPE WORKSPACE-FOLDERS-CHANGE-EVENT)))
   
   (COMMON-LISP:DEFCLASS WORKSPACE-FOLDERS-CHANGE-EVENT COMMON-LISP:NIL
                         ((ADDED :INITARG :ADDED :DOCUMENTATION "*
  -* The array of added workspace folders")
  +* The array of added workspace folders"
  +                        :TYPE (LEM-LSP-MODE/TYPE:LSP-ARRAY WORKSPACE-FOLDER))
                          (REMOVED :INITARG :REMOVED :DOCUMENTATION "*
  -* The array of the removed workspace folders")))
  +* The array of the removed workspace folders"
  +                        :TYPE (LEM-LSP-MODE/TYPE:LSP-ARRAY WORKSPACE-FOLDER))))
   
   (COMMON-LISP:DEFCLASS DID-CHANGE-CONFIGURATION-CLIENT-CAPABILITIES COMMON-LISP:NIL
                         ((DYNAMIC-REGISTRATION? :INITARG :DYNAMIC-REGISTRATION :DOCUMENTATION "*
  -* Did change configuration notification supports dynamic registration.")))
  +* Did change configuration notification supports dynamic registration."
  +                        :TYPE COMMON-LISP:BOOLEAN)))
   
   (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 "")))
  +* The actual changed settings"
  +                        :TYPE COMMON-LISP:T)))
  +
  +(COMMON-LISP:DEFCLASS CONFIGURATION-PARAMS COMMON-LISP:NIL ((ITEMS :INITARG :ITEMS :DOCUMENTATION "" :TYPE (LEM-LSP-MODE/TYPE:LSP-ARRAY CONFIGURATION-ITEM))))
   
   (COMMON-LISP:DEFCLASS CONFIGURATION-ITEM COMMON-LISP:NIL
                         ((SCOPE-URI? :INITARG :SCOPE-URI :DOCUMENTATION "*
  -* The scope to get the configuration section for.")
  +* The scope to get the configuration section for."
  +                        :TYPE DOCUMENT-URI)
                          (SECTION? :INITARG :SECTION :DOCUMENTATION "*
  -* The configuration section asked for.")))
  +* The configuration section asked for."
  +                        :TYPE COMMON-LISP:STRING)))
   
   (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.")))
  +* from the server side."
  +                        :TYPE COMMON-LISP:BOOLEAN)))
   
   (COMMON-LISP:DEFCLASS DID-CHANGE-WATCHED-FILES-REGISTRATION-OPTIONS COMMON-LISP:NIL
                         ((WATCHERS :INITARG :WATCHERS :DOCUMENTATION "*
  -* The watchers to register.")))
  +* The watchers to register."
  +                        :TYPE (LEM-LSP-MODE/TYPE:LSP-ARRAY FILE-SYSTEM-WATCHER))))
   
   (COMMON-LISP:DEFCLASS FILE-SYSTEM-WATCHER COMMON-LISP:NIL
                         ((GLOB-PATTERN :INITARG :GLOB-PATTERN :DOCUMENTATION "*
  
positive.code: ;;; Code generated by LEM-LSP-MODE/PROTOCOL-GENERATOR; DO NOT EDIT.
  
  (DEFPACKAGE :LEM-LSP-MODE/PROTOCOL)
  (IN-PACKAGE :LEM-LSP-MODE/PROTOCOL)
  
  (COMMON-LISP:DEFCLASS MESSAGE COMMON-LISP:NIL ((JSONRPC :INITARG :JSONRPC :DOCUMENTATION "")))
  
  (COMMON-LISP:DEFCLASS REQUEST-MESSAGE (MESSAGE)
                        ((ID :INITARG :ID :DOCUMENTATION "*
  * The request id.")
                         (METHOD :INITARG :METHOD :DOCUMENTATION "*
  * The method to be invoked.")
                         (PARAMS? :INITARG :PARAMS :DOCUMENTATION "*
  * The method's params.")))
  
  (COMMON-LISP:DEFCLASS RESPONSE-MESSAGE (MESSAGE)
                        ((ID :INITARG :ID :DOCUMENTATION "*
  * The request id.")
                         (RESULT? :INITARG :RESULT :DOCUMENTATION "*
  * The result of a request. This member is REQUIRED on success.
  * This member MUST NOT exist if there was an error invoking the method.")
                         (ERROR? :INITARG :ERROR :DOCUMENTATION "*
  * The error object in case a request fails.")))
  
  (COMMON-LISP:DEFCLASS RESPONSE-ERROR COMMON-LISP:NIL
                        ((CODE :INITARG :CODE :DOCUMENTATION "*
  * A number indicating the error type that occurred.")
                         (MESSAGE :INITARG :MESSAGE :DOCUMENTATION "*
  * A string providing a short description of the error.")
                         (DATA? :INITARG :DATA :DOCUMENTATION "*
  * A primitive or structured value that contains additional
  * information about the error. Can be omitted.")))
  
  (COMMON-LISP:PROGN
   (COMMON-LISP:DEFPARAMETER ERROR-CODES.PARSE-ERROR -32700)
  
negative.code: * - `**` to match any number of path segments, including none
  * - `{}` to group conditions (e.g. `**​/*.{ts,js}` matches all TypeScript and JavaScript files)
  * - `[]` to declare a range of characters to match in a path segment (e.g., `example.[0-9]` to match on `example.0`, `example.1`, …)
  * - `[!...]` to negate a range of characters to match in a path segment (e.g., `example.[!0-9]` to match on `example.a`, `example.b`, but not `example.0`)"
                          :TYPE COMMON-LISP:STRING)))
  
  COMMON-LISP:NIL
  
  (COMMON-LISP:DEFCLASS STATIC-REGISTRATION-OPTIONS COMMON-LISP:NIL
                        ((ID? :INITARG :ID :DOCUMENTATION "*
  * The id used to register the request. The id can be used to deregister
  * the request again. See also Registration#id."
                          :TYPE COMMON-LISP:STRING)))
  
  (COMMON-LISP:DEFCLASS TEXT-DOCUMENT-REGISTRATION-OPTIONS COMMON-LISP:NIL
                        ((DOCUMENT-SELECTOR :INITARG :DOCUMENT-SELECTOR :DOCUMENTATION "*
  * A document selector to identify the scope of the registration. If set to null
  * the document selector provided on the client side will be used."
                          :TYPE (COMMON-LISP:OR DOCUMENT-SELECTOR NULL))))
  
  (COMMON-LISP:PROGN (COMMON-LISP:DEFPARAMETER MARKUP-KIND.PLAIN-TEXT "plaintext") (COMMON-LISP:DEFPARAMETER MARKUP-KIND.MARKDOWN "markdown"))
  
  COMMON-LISP:NIL
  
  (COMMON-LISP:DEFCLASS MARKUP-CONTENT COMMON-LISP:NIL
                        ((KIND :INITARG :KIND :DOCUMENTATION "*
  * The type of the Markup"
                          :TYPE MARKUP-KIND)
                         (VALUE :INITARG :VALUE :DOCUMENTATION "*
  * The content itself"
                          :TYPE COMMON-LISP:STRING)))
  
  (COMMON-LISP:DEFCLASS WORK-DONE-PROGRESS-BEGIN COMMON-LISP:NIL
                        ((KIND :INITARG :KIND :DOCUMENTATION "" :TYPE (LEM-LSP-MODE/TYPE:EQUAL-SPECIALIZER "begin"))
                         (TITLE :INITARG :TITLE :DOCUMENTATION "*
  * Mandatory title of the progress operation. Used to briefly inform about
  * the kind of operation being performed.
  *
  * Examples: \"Indexing\" or \"Linking dependencies\"."
                          :TYPE COMMON-LISP:STRING)
                         (CANCELLABLE? :INITARG :CANCELLABLE :DOCUMENTATION "*
  * Controls if a cancel button should show to allow the user to cancel the
  * long running operation. Clients that don't support cancellation are allowed
  * to ignore the setting."
                          :TYPE COMMON-LISP:BOOLEAN)
                         (MESSAGE? :INITARG :MESSAGE :DOCUMENTATION "*
  * Optional, more detailed associated progress message. Contains
  * complementary information to the `title`.
  *
  * Examples: \"3/25 files\", \"project/src/module2\", \"node_modules/some_dep\".
  * If unset, the previous progress message (if any) is still valid."
                          :TYPE COMMON-LISP:STRING)
                         (PERCENTAGE? :INITARG :PERCENTAGE :DOCUMENTATION "*
  * Optional progress percentage to display (value 100 is considered 100%).
  * If not provided infinite progress is assumed and clients are allowed
  * to ignore the `percentage` value in subsequent in report notifications.
  *
  * The value should be steadily rising. Clients are free to ignore values
  * that are not following this rule."
                          :TYPE COMMON-LISP:NUMBER)))
  
  (COMMON-LISP:DEFCLASS WORK-DONE-PROGRESS-REPORT COMMON-LISP:NIL
                        ((KIND :INITARG :KIND :DOCUMENTATION "" :TYPE (LEM-LSP-MODE/TYPE:EQUAL-SPECIALIZER "report"))
                         (CANCELLABLE? :INITARG :CANCELLABLE :DOCUMENTATION "*
  * Controls enablement state of a cancel button. This property is only valid if a cancel
  * button got requested in the `WorkDoneProgressStart` payload.
  *
  * Clients that don't support cancellation or don't support control the button's
  * enablement state are allowed to ignore the setting."
                          :TYPE COMMON-LISP:BOOLEAN)
                         (MESSAGE? :INITARG :MESSAGE :DOCUMENTATION "*
  * Optional, more detailed associated progress message. Contains
  * complementary information to the `title`.
  *
  * Examples: \"3/25 files\", \"project/src/module2\", \"node_modules/some_dep\".
  * If unset, the previous progress message (if any) is still valid."
                          :TYPE COMMON-LISP:STRING)
                         (PERCENTAGE? :INITARG :PERCENTAGE :DOCUMENTATION "*
  * Optional progress percentage to display (value 100 is considered 100%).
  * If not provided infinite progress is assumed and clients are allowed
  * to ignore the `percentage` value in subsequent in report notifications.
  *
  * The value should be steadily rising. Clients are free to ignore values
  * that are not following this rule."
                          :TYPE COMMON-LISP:NUMBER)))
  
  (COMMON-LISP:DEFCLASS WORK-DONE-PROGRESS-END COMMON-LISP:NIL
                        ((KIND :INITARG :KIND :DOCUMENTATION "" :TYPE (LEM-LSP-MODE/TYPE:EQUAL-SPECIALIZER "end"))
                         (MESSAGE? :INITARG :MESSAGE :DOCUMENTATION "*
  * Optional, a final message indicating to for example indicate the outcome
  * of the operation."
                          :TYPE COMMON-LISP:STRING)))
  
  (COMMON-LISP:DEFCLASS WORK-DONE-PROGRESS-PARAMS COMMON-LISP:NIL
                        ((WORK-DONE-TOKEN? :INITARG :WORK-DONE-TOKEN :DOCUMENTATION "*
  * An optional token that a server can use to report work done progress."
                          :TYPE PROGRESS-TOKEN)))
  
  (COMMON-LISP:DEFCLASS WORK-DONE-PROGRESS-OPTIONS COMMON-LISP:NIL ((WORK-DONE-PROGRESS? :INITARG :WORK-DONE-PROGRESS :DOCUMENTATION "" :TYPE COMMON-LISP:BOOLEAN)))
  
  (COMMON-LISP:DEFCLASS PARTIAL-RESULT-PARAMS COMMON-LISP:NIL
                        ((PARTIAL-RESULT-TOKEN? :INITARG :PARTIAL-RESULT-TOKEN :DOCUMENTATION "*
  * An optional token that a server can use to report partial results (e.g. streaming) to
  * the client."
                          :TYPE PROGRESS-TOKEN)))
  
  (COMMON-LISP:DEFCLASS INITIALIZE-PARAMS (WORK-DONE-PROGRESS-PARAMS)
                        ((PROCESS-ID :INITARG :PROCESS-ID :DOCUMENTATION "*
  * The process Id of the parent process that started
  * the server. Is null if the process has not been started by another process.
  * If the parent process is not alive then the server should exit (see exit notification) its process."
                          :TYPE (COMMON-LISP:OR COMMON-LISP:NUMBER NULL))
                         (CLIENT-INFO? :INITARG :CLIENT-INFO :DOCUMENTATION "*
  * Information about the client
  *
  * @since 3.15.0"
                          :TYPE (LEM-LSP-MODE/TYPE:INTERFACE ("name" :TYPE COMMON-LISP:STRING) ("version" :TYPE COMMON-LISP:STRING)))
                         (ROOT-PATH? :INITARG :ROOT-PATH :DOCUMENTATION "*
  * The rootPath of the workspace. Is null
  * if no folder is open.
  *
  * @deprecated in favour of rootUri."
                          :TYPE (COMMON-LISP:OR COMMON-LISP:STRING NULL))
                         (ROOT-URI :INITARG :ROOT-URI :DOCUMENTATION "*
  * The rootUri of the workspace. Is null if no
  * folder is open. If both `rootPath` and `rootUri` are set
  * `rootUri` wins."
                          :TYPE (COMMON-LISP:OR DOCUMENT-URI NULL))
                         (INITIALIZATION-OPTIONS? :INITARG :INITIALIZATION-OPTIONS :DOCUMENTATION "*
  * User provided initialization options."
                          :TYPE COMMON-LISP:T)
                         (CAPABILITIES :INITARG :CAPABILITIES :DOCUMENTATION "*
  * The capabilities provided by the client (editor or tool)"
                          :TYPE CLIENT-CAPABILITIES)
                         (TRACE? :INITARG :TRACE :DOCUMENTATION "*
  * The initial trace setting. If omitted trace is disabled ('off')."
                          :TYPE (COMMON-LISP:OR (LEM-LSP-MODE/TYPE:EQUAL-SPECIALIZER "off") (LEM-LSP-MODE/TYPE:EQUAL-SPECIALIZER "messages") (LEM-LSP-MODE/TYPE:EQUAL-SPECIALIZER "verbose")))
                         (WORKSPACE-FOLDERS? :INITARG :WORKSPACE-FOLDERS :DOCUMENTATION "*
  * The workspace folders configured in the client when the server starts.
  * This property is only available if the client supports workspace folders.
  * It can be `null` if the client supports workspace folders but none are
  * configured.
  *
  * @since 3.6.0"
                          :TYPE (COMMON-LISP:OR (LEM-LSP-MODE/TYPE:LSP-ARRAY WORKSPACE-FOLDER) NULL))))
  
  (COMMON-LISP:DEFCLASS TEXT-DOCUMENT-CLIENT-CAPABILITIES COMMON-LISP:NIL
                        ((SYNCHRONIZATION? :INITARG :SYNCHRONIZATION :DOCUMENTATION "" :TYPE TEXT-DOCUMENT-SYNC-CLIENT-CAPABILITIES)
                         (COMPLETION? :INITARG :COMPLETION :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/completion` request."
                          :TYPE COMPLETION-CLIENT-CAPABILITIES)
                         (HOVER? :INITARG :HOVER :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/hover` request."
                          :TYPE HOVER-CLIENT-CAPABILITIES)
                         (SIGNATURE-HELP? :INITARG :SIGNATURE-HELP :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/signatureHelp` request."
                          :TYPE SIGNATURE-HELP-CLIENT-CAPABILITIES)
                         (DECLARATION? :INITARG :DECLARATION :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/declaration` request.
  *
  * @since 3.14.0"
                          :TYPE DECLARATION-CLIENT-CAPABILITIES)
                         (DEFINITION? :INITARG :DEFINITION :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/definition` request."
                          :TYPE DEFINITION-CLIENT-CAPABILITIES)
                         (TYPE-DEFINITION? :INITARG :TYPE-DEFINITION :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/typeDefinition` request.
  *
  * @since 3.6.0"
                          :TYPE TYPE-DEFINITION-CLIENT-CAPABILITIES)
                         (IMPLEMENTATION? :INITARG :IMPLEMENTATION :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/implementation` request.
  *
  * @since 3.6.0"
                          :TYPE IMPLEMENTATION-CLIENT-CAPABILITIES)
                         (REFERENCES? :INITARG :REFERENCES :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/references` request."
                          :TYPE REFERENCE-CLIENT-CAPABILITIES)
                         (DOCUMENT-HIGHLIGHT? :INITARG :DOCUMENT-HIGHLIGHT :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/documentHighlight` request."
                          :TYPE DOCUMENT-HIGHLIGHT-CLIENT-CAPABILITIES)
                         (DOCUMENT-SYMBOL? :INITARG :DOCUMENT-SYMBOL :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/documentSymbol` request."
                          :TYPE DOCUMENT-SYMBOL-CLIENT-CAPABILITIES)
                         (CODE-ACTION? :INITARG :CODE-ACTION :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/codeAction` request."
                          :TYPE CODE-ACTION-CLIENT-CAPABILITIES)
                         (CODE-LENS? :INITARG :CODE-LENS :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/codeLens` request."
                          :TYPE CODE-LENS-CLIENT-CAPABILITIES)
                         (DOCUMENT-LINK? :INITARG :DOCUMENT-LINK :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/documentLink` request."
                          :TYPE DOCUMENT-LINK-CLIENT-CAPABILITIES)
                         (COLOR-PROVIDER? :INITARG :COLOR-PROVIDER :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/documentColor` and the
  * `textDocument/colorPresentation` request.
  *
  * @since 3.6.0"
                          :TYPE DOCUMENT-COLOR-CLIENT-CAPABILITIES)
                         (FORMATTING? :INITARG :FORMATTING :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/formatting` request."
                          :TYPE DOCUMENT-FORMATTING-CLIENT-CAPABILITIES)
                         (RANGE-FORMATTING? :INITARG :RANGE-FORMATTING :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/rangeFormatting` request."
                          :TYPE DOCUMENT-RANGE-FORMATTING-CLIENT-CAPABILITIES)
                         (ON-TYPE-FORMATTING? :INITARG :ON-TYPE-FORMATTING :DOCUMENTATION "* request.
  * Capabilities specific to the `textDocument/onTypeFormatting` request."
                          :TYPE DOCUMENT-ON-TYPE-FORMATTING-CLIENT-CAPABILITIES)
                         (RENAME? :INITARG :RENAME :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/rename` request."
                          :TYPE RENAME-CLIENT-CAPABILITIES)
                         (PUBLISH-DIAGNOSTICS? :INITARG :PUBLISH-DIAGNOSTICS :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/publishDiagnostics` notification."
                          :TYPE PUBLISH-DIAGNOSTICS-CLIENT-CAPABILITIES)
                         (FOLDING-RANGE? :INITARG :FOLDING-RANGE :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/foldingRange` request.
  *
  * @since 3.10.0"
                          :TYPE FOLDING-RANGE-CLIENT-CAPABILITIES)
                         (SELECTION-RANGE? :INITARG :SELECTION-RANGE :DOCUMENTATION "*
  * Capabilities specific to the `textDocument/selectionRange` request.
  *
  * @since 3.15.0"
                          :TYPE SELECTION-RANGE-CLIENT-CAPABILITIES)))
  
  (COMMON-LISP:DEFCLASS CLIENT-CAPABILITIES COMMON-LISP:NIL
                        ((WORKSPACE? :INITARG :WORKSPACE :DOCUMENTATION "*
  * Workspace specific client capabilities."
                          :TYPE
                          (LEM-LSP-MODE/TYPE:INTERFACE ("applyEdit" :TYPE COMMON-LISP:BOOLEAN) ("workspaceEdit" :TYPE WORKSPACE-EDIT-CLIENT-CAPABILITIES)
                           ("didChangeConfiguration" :TYPE DID-CHANGE-CONFIGURATION-CLIENT-CAPABILITIES) ("didChangeWatchedFiles" :TYPE DID-CHANGE-WATCHED-FILES-CLIENT-CAPABILITIES)
                           ("symbol" :TYPE WORKSPACE-SYMBOL-CLIENT-CAPABILITIES) ("executeCommand" :TYPE EXECUTE-COMMAND-CLIENT-CAPABILITIES) ("workspaceFolders" :TYPE COMMON-LISP:BOOLEAN)
                           ("configuration" :TYPE COMMON-LISP:BOOLEAN)))
                         (TEXT-DOCUMENT? :INITARG :TEXT-DOCUMENT :DOCUMENTATION "*
  * Text document specific client capabilities."
                          :TYPE TEXT-DOCUMENT-CLIENT-CAPABILITIES)
                         (WINDOW? :INITARG :WINDOW :DOCUMENTATION "*
  * Window specific client capabilities."
                          :TYPE (LEM-LSP-MODE/TYPE:INTERFACE ("workDoneProgress" :TYPE COMMON-LISP:BOOLEAN)))
                         (EXPERIMENTAL? :INITARG :EXPERIMENTAL :DOCUMENTATION "*
  * Experimental client capabilities."
                          :TYPE COMMON-LISP:T)))
  
  (COMMON-LISP:DEFCLASS INITIALIZE-RESULT COMMON-LISP:NIL
                        ((CAPABILITIES :INITARG :CAPABILITIES :DOCUMENTATION "*
  * The capabilities the language server provides."
                          :TYPE SERVER-CAPABILITIES)
                         (SERVER-INFO? :INITARG :SERVER-INFO :DOCUMENTATION "*
  * Information about the server.
  *
  * @since 3.15.0"
                          :TYPE (LEM-LSP-MODE/TYPE:INTERFACE ("name" :TYPE COMMON-LISP:STRING) ("version" :TYPE COMMON-LISP:STRING)))))
  
  (COMMON-LISP:PROGN (COMMON-LISP:DEFPARAMETER INITIALIZE-ERROR.UNKNOWN-PROTOCOL-VERSION 1))
  
  