;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cl-lib dash ht s] 2) #@44 Convert a KEYWORD to symbol. (fn KEYWORD) (defalias 'lsp-keyword->symbol #[257 "\300\301!\302\303O!\207" [intern symbol-name 1 nil] 5 (#$ . 183)]) #@44 Convert a KEYWORD to string. (fn KEYWORD) (defalias 'lsp-keyword->string #[257 "\300!\301\302O\207" [symbol-name 1 nil] 4 (#$ . 338)]) (defvar lsp-use-plists nil) #@302 Generate LSP bindings from INTERFACES triplet. Example usage with `dash`. (-let [(&ApplyWorkspaceEditResponse :failure-reason?) (ht ("failureReason" "..."))] failure-reason?) (fn (INTERFACE-NAME-1 REQUIRED-FIELDS-1 OPTIONAL-FIELDS-1) (INTERFACE-NAME-2 REQUIRED-FIELDS-2 OPTIONAL-FIELDS-2) ...) (defalias 'lsp-interface '(macro . #[128 "\300\301\302\303\304\"\"B\207" [progn apply append -map #[257 "\211\211A\262\242\211A\262\242@\301\302\"\301\303\"\244\304\305\306\307\"!\310\311\312\313\314\315\301\316\n\"DE\317BB\320\321\314\315\301\316 \"DFE\203Y\322\323\324\325\326\327\314\330\331\314\315DEDFCBECB\202v\322\332\325\326\333\334\335\336\330\331\314\315DEDD\337BBFCB\340BBCB\257\304\305\306\341\"!\342\311\313\314\315\301\316\n\"DE\320\321\314\315\301\316\f\"DFE\203\265\322\323\343\325\326\344\314\330\331\314\315DEDFCBECB\202\321\322\345\346\332\325\335\336\330\331\314\315DEDD\347BBCB\350BBECB\257\304\305\306\351\352\336 !!\"!\353\354\355\356\357\315\301\360\"DED\361\356\362\315 DEDEF\363\305\306\364\352\336\f!!\"!\365\366\367\370\301\371 \"\372\"BBB\373\301\374 \"B\306\375\f\376\301\316 \"!#\203P\377\201@\201A\201B\312\330\331\314\315DED\201CBB\201DBBE\201EBB\202\206\201F\201G\201H\201@\201I\201J\201K\312\330\331\314\315DED\201LBBD\201MBBE\201NBB\201OBBB\257\377\201P\201Q\n\"\"BBBB\207" [lsp-use-plists -map #[257 "\300\301\302\303!!\304Q!B\207" [intern ":" s-dashed-words symbol-name "?"] 6 "\n\n(fn PARAM-NAME)"] #[257 "\300\301\302\303!!P!B\207" [intern ":" s-dashed-words symbol-name] 6 "\n\n(fn PARAM-NAME)"] defun intern format "dash-expand:&%s" (key source) unless or member key quote cl-first ((s-starts-with\? ":_" (symbol-name key))) error "Unknown key: %s. Available keys: %s" \` plist-get (\, source) \, if (s-starts-with\? ":_" (symbol-name key)) cl-rest assoc gethash (s-starts-with\? ":_" (symbol-name key)) (substring (symbol-name key) 1) substring symbol-name (1) ((\, source)) "dash-expand:&%s?" (key source) (\, source) (s-starts-with\? ":_" (symbol-name key)) when (ht\? (\, source)) (1) ((\, source)) "lsp-%s?" s-dashed-words (object) cond (ht\? object) -all\? (let ((keys (ht-keys object))) (lambda (prop) (member prop keys))) #[257 "\300!\301\302O\207" [symbol-name 1 nil] 4 "\n\n(fn FIELD-NAME)"] (listp object) (lambda (prop) (plist-member object prop)) cl-defun "lsp-make-%s" &rest plist &key append #[257 "\211@\300\301!\302\303O!\207" [intern symbol-name 1 nil] 6 "\n\n(fn INPUT0)"] (&allow-other-keys) ignore #[257 "\211@\300\301!\302\303O!\207" [intern symbol-name 1 nil] 6 "\n\n(fn INPUT0)"] "Constructs %s from `plist.'\nAllowed params: %s" reverse -mapcat -lambda ((key value)) list (key) (value) ((-partition 2 plist)) let (($$result (ht))) mapc ((key value)) puthash lsp-keyword->string (key) (value $$result) ((-partition 2 plist)) ($$result) make-closure #[257 "\211\211A\262\242\302\303\304\305\306\307\300!!\307!\310\311O#!\312 \203&\313\314E\2021\315\316\317\320!\321BBEF\302\303\304\322\306\307\300!!\307!\310\311O#!\323 \203U\324\314\325BBBC\202_\326\320!\327BB\330BBBBD\207" [V0 lsp-use-plists defun intern format "lsp:%s-%s" s-dashed-words symbol-name 1 nil (object) plist-get object when (ht\? object) gethash lsp-keyword->string (object) "lsp:set-%s-%s" (object value) plist-put (value) puthash (value object) (object)] 13 "\n\n(fn INPUT0)"]] 27 "\n\n(fn INPUT0)"]] 7 (#$ . 510)])) (byte-code "\203%\301\302\303\"\210\301\304\305\"\210\301\306\307\"\210\301\310\311\"\210\301\312\313\"\210\301\314\315\"\210\202C\301\302\316\"\210\301\304\317\"\210\301\306\320\"\210\301\310\321\"\210\301\312\322\"\210\301\314\323\"\210\301\207" [lsp-use-plists defalias lsp-get #[514 "\300\"\207" [plist-get] 5 "\n\n(fn FROM KEY)"] lsp-put #[771 "\300#\207" [plist-put] 7 "\n\n(fn WHERE KEY VALUE)"] lsp-map #[514 "\300\301\302\"\303\304\"\"\207" [-map make-closure #[257 "\211\211A\262\242@\300\301!\"\207" [V0 lsp-keyword->string] 7 "\n\n(fn INPUT0)"] -partition 2] 7 "\n\n(fn FN VALUE)"] lsp-merge append lsp-empty\? null lsp-copy copy-sequence #[514 "\205\n\300\301!\"\207" [gethash lsp-keyword->string] 5 "\n\n(fn FROM KEY)"] #[771 "\300\301!#\210\207" [puthash lsp-keyword->string] 8 "\n\n(fn WHERE KEY VALUE)"] #[514 "\211\205\300\"\207" [maphash] 5 "\n\n(fn FN VALUE)"] ht-merge ht-empty\? ht-copy] 3) #@452 Define a function named NAME. The function destructures its input as MATCH-FORM then executes BODY. Note that you have to enclose the MATCH-FORM in a pair of parens, such that: (-defun (x) body) (-defun (x y ...) body) has the usual semantics of `defun'. Furthermore, these get translated into a normal `defun', so there is no performance penalty. See `-let' for a description of the destructuring mechanism. (fn NAME MATCH-FORM &rest BODY) (defalias 'lsp-defun '(macro . #[642 "<\204\f\300\301\302D\"\207\303\304\"\203\305BBB\207\306\307\306\211\203B\211A\262\242\262\262T\262\310\311\312\"!DB\262\202 \266\211\237\262@;\203ZA\204Z\211@D\202j@;\203hA@D\202jC\211A\262\242@@<\203\210@@\313=\203\210A@D\202\212C\211A\262\242@\305\n\314\315\n\"\316\205\243C\205\251C\317  BBC#BBB\207" [signal wrong-type-argument listp -all\? symbolp defun nil 0 make-symbol format "input%d" interactive -map cadr append -let*] 19 (#$ . 4907)])) (byte-code "\300\301\302\303#\300\301\304\305#\306\301\307\310#\207" [function-put lsp-defun doc-string-elt 3 lisp-indent-function defun put edebug-form-spec (&define name sexp [&optional stringp] [&optional ("declare" &rest sexp)] [&optional ("interactive" interactive)] def-body)] 6) (defconst lsp/markup-kind-plain-text "plaintext") (defconst lsp/markup-kind-markdown "markdown") #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONResponse #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:params :id :method :result) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:params :id :method :result) gethash 1 nil assoc ((:params . :params) (:id . :id) (:method . :method) (:result . :result))] 7 (#$ . 6297)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONResponse\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:params :id :method :result) error "Unknown key: %s. Available keys: %s" (:params :id :method :result) when ht\? gethash symbol-name assoc ((:params . :params) (:id . :id) (:method . :method) (:result . :result)) 1 nil] 9 (#$ . 6748)]) #@15 (fn OBJECT) (defalias 'lsp-json-response\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("params" "id" "method" "result") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:params :id :method :result)] 6 (#$ . 7138)]) #@67 (fn &rest PLIST &key PARAMS ID METHOD RESULT &allow-other-keys) (defalias 'lsp-make-json-response #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :params :id :method :result make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:params . :params) (:id . :id) (:method . :method) (:result . :result))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 7507)]) #@15 (fn OBJECT) (defalias 'lsp:json-response-params #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 8055)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 8188)]) #@15 (fn OBJECT) (defalias 'lsp:json-response-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 8318)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 8443)]) #@15 (fn OBJECT) (defalias 'lsp:json-response-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 8565)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 8698)]) #@15 (fn OBJECT) (defalias 'lsp:json-response-result #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "result"] 4 (#$ . 8828)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-result #[514 "\300\301#\210\207" [puthash "result"] 6 (#$ . 8961)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONResponseError #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:error s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:error) gethash 1 nil assoc ((:error . :error))] 7 (#$ . 9091)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONResponseError\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:error error "Unknown key: %s. Available keys: %s" (:error) when ht\? gethash symbol-name assoc ((:error . :error)) 1 nil] 9 (#$ . 9449)]) #@15 (fn OBJECT) (defalias 'lsp-json-response-error\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("error") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:error)] 6 (#$ . 9746)]) #@49 (fn &rest PLIST &key ERROR &allow-other-keys) (defalias 'lsp-make-json-response-error #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :error make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:error . :error))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 10076)]) #@15 (fn OBJECT) (defalias 'lsp:json-response-error-error #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "error"] 4 (#$ . 10498)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-error-error #[514 "\300\301#\210\207" [puthash "error"] 6 (#$ . 10636)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONMessage #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:params\? :id\? :method\? :result\? :error\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:params\? :id\? :method\? :result\? :error\?) gethash 1 nil assoc ((:params\? . :params) (:id\? . :id) (:method\? . :method) (:result\? . :result) (:error\? . :error))] 7 (#$ . 10771)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONMessage\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:params\? :id\? :method\? :result\? :error\?) error "Unknown key: %s. Available keys: %s" (:params\? :id\? :method\? :result\? :error\?) when ht\? gethash symbol-name assoc ((:params\? . :params) (:id\? . :id) (:method\? . :method) (:result\? . :result) (:error\? . :error)) 1 nil] 9 (#$ . 11284)]) #@15 (fn OBJECT) (defalias 'lsp-json-message\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 11736)]) #@93 (fn &rest PLIST &key PARAMS\=\? ID\=\? METHOD\=\? RESULT\=\? ERROR\=\? &allow-other-keys) (defalias 'lsp-make-json-message #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :params\? :id\? :method\? :result\? :error\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:params\? . :params) (:id\? . :id) (:method\? . :method) (:result\? . :result) (:error\? . :error))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 12045)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-params\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 12678)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-params\? #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 12813)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 12945)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 13072)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-method\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 13196)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-method\? #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 13331)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-result\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "result"] 4 (#$ . 13463)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-result\? #[514 "\300\301#\210\207" [puthash "result"] 6 (#$ . 13598)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-error\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "error"] 4 (#$ . 13730)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-error\? #[514 "\300\301#\210\207" [puthash "error"] 6 (#$ . 13863)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONResult #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:params\? :id\? :method\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:params\? :id\? :method\?) gethash 1 nil assoc ((:params\? . :params) (:id\? . :id) (:method\? . :method))] 7 (#$ . 13993)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONResult\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:params\? :id\? :method\?) error "Unknown key: %s. Available keys: %s" (:params\? :id\? :method\?) when ht\? gethash symbol-name assoc ((:params\? . :params) (:id\? . :id) (:method\? . :method)) 1 nil] 9 (#$ . 14425)]) #@15 (fn OBJECT) (defalias 'lsp-json-result\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 14796)]) #@72 (fn &rest PLIST &key PARAMS\=\? ID\=\? METHOD\=\? &allow-other-keys) (defalias 'lsp-make-json-result #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :params\? :id\? :method\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:params\? . :params) (:id\? . :id) (:method\? . :method))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 15104)]) #@15 (fn OBJECT) (defalias 'lsp:json-result-params\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 15627)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-params\? #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 15761)]) #@15 (fn OBJECT) (defalias 'lsp:json-result-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 15892)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 16018)]) #@15 (fn OBJECT) (defalias 'lsp:json-result-method\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 16141)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-method\? #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 16275)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONNotification #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:params :method) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:params :method) gethash 1 nil assoc ((:params . :params) (:method . :method))] 7 (#$ . 16406)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONNotification\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:params :method) error "Unknown key: %s. Available keys: %s" (:params :method) when ht\? gethash symbol-name assoc ((:params . :params) (:method . :method)) 1 nil] 9 (#$ . 16806)]) #@15 (fn OBJECT) (defalias 'lsp-json-notification\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("params" "method") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:params :method)] 6 (#$ . 17145)]) #@57 (fn &rest PLIST &key PARAMS METHOD &allow-other-keys) (defalias 'lsp-make-json-notification #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :params :method make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:params . :params) (:method . :method))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 17493)]) #@15 (fn OBJECT) (defalias 'lsp:json-notification-params #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 17965)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-notification-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 18103)]) #@15 (fn OBJECT) (defalias 'lsp:json-notification-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 18238)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-notification-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 18376)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONRequest #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:params :method) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:params :method) gethash 1 nil assoc ((:params . :params) (:method . :method))] 7 (#$ . 18511)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONRequest\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:params :method) error "Unknown key: %s. Available keys: %s" (:params :method) when ht\? gethash symbol-name assoc ((:params . :params) (:method . :method)) 1 nil] 9 (#$ . 18906)]) #@15 (fn OBJECT) (defalias 'lsp-json-request\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("params" "method") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:params :method)] 6 (#$ . 19240)]) #@57 (fn &rest PLIST &key PARAMS METHOD &allow-other-keys) (defalias 'lsp-make-json-request #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :params :method make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:params . :params) (:method . :method))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 19583)]) #@15 (fn OBJECT) (defalias 'lsp:json-request-params #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 20050)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-request-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 20183)]) #@15 (fn OBJECT) (defalias 'lsp:json-request-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 20313)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-request-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 20446)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONError #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:message :code) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:message :code) gethash 1 nil assoc ((:message . :message) (:code . :code))] 7 (#$ . 20576)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&JSONError\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:message :code) error "Unknown key: %s. Available keys: %s" (:message :code) when ht\? gethash symbol-name assoc ((:message . :message) (:code . :code)) 1 nil] 9 (#$ . 20965)]) #@15 (fn OBJECT) (defalias 'lsp-json-error\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("message" "code") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:message :code)] 6 (#$ . 21293)]) #@56 (fn &rest PLIST &key MESSAGE CODE &allow-other-keys) (defalias 'lsp-make-json-error #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :message :code make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:message . :message) (:code . :code))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 21632)]) #@15 (fn OBJECT) (defalias 'lsp:json-error-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 22093)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-error-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 22226)]) #@15 (fn OBJECT) (defalias 'lsp:json-error-code #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "code"] 4 (#$ . 22356)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-error-code #[514 "\300\301#\210\207" [puthash "code"] 6 (#$ . 22483)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ProgressParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:token :value) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:token :value) gethash 1 nil assoc ((:token . :token) (:value . :value))] 7 (#$ . 22607)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ProgressParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:token :value) error "Unknown key: %s. Available keys: %s" (:token :value) when ht\? gethash symbol-name assoc ((:token . :token) (:value . :value)) 1 nil] 9 (#$ . 22997)]) #@15 (fn OBJECT) (defalias 'lsp-progress-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("token" "value") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:token :value)] 6 (#$ . 23326)]) #@55 (fn &rest PLIST &key TOKEN VALUE &allow-other-keys) (defalias 'lsp-make-progress-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :token :value make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:token . :token) (:value . :value))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 23668)]) #@15 (fn OBJECT) (defalias 'lsp:progress-params-token #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "token"] 4 (#$ . 24130)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-progress-params-token #[514 "\300\301#\210\207" [puthash "token"] 6 (#$ . 24264)]) #@15 (fn OBJECT) (defalias 'lsp:progress-params-value #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "value"] 4 (#$ . 24395)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-progress-params-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 24529)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Edit #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:kind s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:kind) gethash 1 nil assoc ((:kind . :kind))] 7 (#$ . 24660)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Edit\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:kind error "Unknown key: %s. Available keys: %s" (:kind) when ht\? gethash symbol-name assoc ((:kind . :kind)) 1 nil] 9 (#$ . 25002)]) #@15 (fn OBJECT) (defalias 'lsp-edit\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind)] 6 (#$ . 25283)]) #@48 (fn &rest PLIST &key KIND &allow-other-keys) (defalias 'lsp-make-edit #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:kind . :kind))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 25597)]) #@15 (fn OBJECT) (defalias 'lsp:edit-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 26000)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-edit-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 26121)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgress #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:kind s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:kind) gethash 1 nil assoc ((:kind . :kind))] 7 (#$ . 26239)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgress\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:kind error "Unknown key: %s. Available keys: %s" (:kind) when ht\? gethash symbol-name assoc ((:kind . :kind)) 1 nil] 9 (#$ . 26593)]) #@15 (fn OBJECT) (defalias 'lsp-work-done-progress\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind)] 6 (#$ . 26886)]) #@48 (fn &rest PLIST &key KIND &allow-other-keys) (defalias 'lsp-make-work-done-progress #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:kind . :kind))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 27214)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 27631)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 27766)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgressBegin #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:cancellable\? :message\? :percentage\? :kind :title) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:cancellable\? :message\? :percentage\? :kind :title) gethash 1 nil assoc ((:cancellable\? . :cancellable) (:message\? . :message) (:percentage\? . :percentage) (:kind . :kind) (:title . :title))] 7 (#$ . 27898)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgressBegin\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:cancellable\? :message\? :percentage\? :kind :title) error "Unknown key: %s. Available keys: %s" (:cancellable\? :message\? :percentage\? :kind :title) when ht\? gethash symbol-name assoc ((:cancellable\? . :cancellable) (:message\? . :message) (:percentage\? . :percentage) (:kind . :kind) (:title . :title)) 1 nil] 9 (#$ . 28457)]) #@15 (fn OBJECT) (defalias 'lsp-work-done-progress-begin\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "title") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :title)] 6 (#$ . 28955)]) #@97 (fn &rest PLIST &key CANCELLABLE\=\? MESSAGE\=\? PERCENTAGE\=\? KIND TITLE &allow-other-keys) (defalias 'lsp-make-work-done-progress-begin #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :cancellable\? :message\? :percentage\? :kind :title make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:cancellable\? . :cancellable) (:message\? . :message) (:percentage\? . :percentage) (:kind . :kind) (:title . :title))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 29304)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-cancellable\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cancellable"] 4 (#$ . 29981)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-cancellable\? #[514 "\300\301#\210\207" [puthash "cancellable"] 6 (#$ . 30138)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 30292)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-message\? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 30441)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-percentage\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "percentage"] 4 (#$ . 30587)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-percentage\? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 30742)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 30894)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 31035)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 31173)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 31316)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgressReport #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:cancellable\? :message\? :percentage\? :kind) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:cancellable\? :message\? :percentage\? :kind) gethash 1 nil assoc ((:cancellable\? . :cancellable) (:message\? . :message) (:percentage\? . :percentage) (:kind . :kind))] 7 (#$ . 31456)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgressReport\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:cancellable\? :message\? :percentage\? :kind) error "Unknown key: %s. Available keys: %s" (:cancellable\? :message\? :percentage\? :kind) when ht\? gethash symbol-name assoc ((:cancellable\? . :cancellable) (:message\? . :message) (:percentage\? . :percentage) (:kind . :kind)) 1 nil] 9 (#$ . 31984)]) #@15 (fn OBJECT) (defalias 'lsp-work-done-progress-report\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind)] 6 (#$ . 32451)]) #@91 (fn &rest PLIST &key CANCELLABLE\=\? MESSAGE\=\? PERCENTAGE\=\? KIND &allow-other-keys) (defalias 'lsp-make-work-done-progress-report #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :cancellable\? :message\? :percentage\? :kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:cancellable\? . :cancellable) (:message\? . :message) (:percentage\? . :percentage) (:kind . :kind))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 32786)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-cancellable\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cancellable"] 4 (#$ . 33419)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-cancellable\? #[514 "\300\301#\210\207" [puthash "cancellable"] 6 (#$ . 33577)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 33732)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-message\? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 33882)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-percentage\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "percentage"] 4 (#$ . 34029)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-percentage\? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 34185)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 34338)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 34480)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgressEnd #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:message\? :kind) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:message\? :kind) gethash 1 nil assoc ((:message\? . :message) (:kind . :kind))] 7 (#$ . 34619)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgressEnd\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:message\? :kind) error "Unknown key: %s. Available keys: %s" (:message\? :kind) when ht\? gethash symbol-name assoc ((:message\? . :message) (:kind . :kind)) 1 nil] 9 (#$ . 35024)]) #@15 (fn OBJECT) (defalias 'lsp-work-done-progress-end\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind)] 6 (#$ . 35368)]) #@60 (fn &rest PLIST &key MESSAGE\=\? KIND &allow-other-keys) (defalias 'lsp-make-work-done-progress-end #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :message\? :kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:message\? . :message) (:kind . :kind))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 35700)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-end-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 36181)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-end-message\? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 36328)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-end-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 36472)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-end-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 36611)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgressOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:work-done-progress\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:work-done-progress\?) gethash 1 nil assoc ((:work-done-progress\? . :workDoneProgress))] 7 (#$ . 36747)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkDoneProgressOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:work-done-progress\? error "Unknown key: %s. Available keys: %s" (:work-done-progress\?) when ht\? gethash symbol-name assoc ((:work-done-progress\? . :workDoneProgress)) 1 nil] 9 (#$ . 37168)]) #@15 (fn OBJECT) (defalias 'lsp-work-done-progress-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 37528)]) #@66 (fn &rest PLIST &key WORK-DONE-PROGRESS\=\? &allow-other-keys) (defalias 'lsp-make-work-done-progress-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :work-done-progress\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:work-done-progress\? . :workDoneProgress))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 37851)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-options-work-done-progress\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workDoneProgress"] 4 (#$ . 38338)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-options-work-done-progress\? #[514 "\300\301#\210\207" [puthash "workDoneProgress"] 6 (#$ . 38509)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:range-provider\? :document-provider\? :legend) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:range-provider\? :document-provider\? :legend) gethash 1 nil assoc ((:range-provider\? . :rangeProvider) (:document-provider\? . :documentProvider) (:legend . :legend))] 7 (#$ . 38677)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:range-provider\? :document-provider\? :legend) error "Unknown key: %s. Available keys: %s" (:range-provider\? :document-provider\? :legend) when ht\? gethash symbol-name assoc ((:range-provider\? . :rangeProvider) (:document-provider\? . :documentProvider) (:legend . :legend)) 1 nil] 9 (#$ . 39204)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-tokens-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("legend") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:legend)] 6 (#$ . 39670)]) #@91 (fn &rest PLIST &key RANGE-PROVIDER\=\? DOCUMENT-PROVIDER\=\? LEGEND &allow-other-keys) (defalias 'lsp-make-semantic-tokens-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :range-provider\? :document-provider\? :legend make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:range-provider\? . :rangeProvider) (:document-provider\? . :documentProvider) (:legend . :legend))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 40007)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-range-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeProvider"] 4 (#$ . 40624)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-range-provider\? #[514 "\300\301#\210\207" [puthash "rangeProvider"] 6 (#$ . 40785)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-document-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentProvider"] 4 (#$ . 40943)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-document-provider\? #[514 "\300\301#\210\207" [puthash "documentProvider"] 6 (#$ . 41110)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-legend #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "legend"] 4 (#$ . 41274)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-legend #[514 "\300\301#\210\207" [puthash "legend"] 6 (#$ . 41418)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensLegend #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:token-types :token-modifiers) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:token-types :token-modifiers) gethash 1 nil assoc ((:token-types . :tokenTypes) (:token-modifiers . :tokenModifiers))] 7 (#$ . 41559)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensLegend\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:token-types :token-modifiers) error "Unknown key: %s. Available keys: %s" (:token-types :token-modifiers) when ht\? gethash symbol-name assoc ((:token-types . :tokenTypes) (:token-modifiers . :tokenModifiers)) 1 nil] 9 (#$ . 42017)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-tokens-legend\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("tokenTypes" "tokenModifiers") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:tokenTypes :tokenModifiers)] 6 (#$ . 42414)]) #@71 (fn &rest PLIST &key TOKEN-TYPES TOKEN-MODIFIERS &allow-other-keys) (defalias 'lsp-make-semantic-tokens-legend #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :token-types :token-modifiers make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:token-types . :tokenTypes) (:token-modifiers . :tokenModifiers))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 42791)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-legend-token-types #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tokenTypes"] 4 (#$ . 43322)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-legend-token-types #[514 "\300\301#\210\207" [puthash "tokenTypes"] 6 (#$ . 43474)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-legend-token-modifiers #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tokenModifiers"] 4 (#$ . 43623)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-legend-token-modifiers #[514 "\300\301#\210\207" [puthash "tokenModifiers"] 6 (#$ . 43783)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SematicTokensPartialResult #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:data s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:data) gethash 1 nil assoc ((:data . :data))] 7 (#$ . 43940)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SematicTokensPartialResult\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:data error "Unknown key: %s. Available keys: %s" (:data) when ht\? gethash symbol-name assoc ((:data . :data)) 1 nil] 9 (#$ . 44304)]) #@15 (fn OBJECT) (defalias 'lsp-sematic-tokens-partial-result\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("data") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:data)] 6 (#$ . 44607)]) #@48 (fn &rest PLIST &key DATA &allow-other-keys) (defalias 'lsp-make-sematic-tokens-partial-result #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :data make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:data . :data))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 44946)]) #@15 (fn OBJECT) (defalias 'lsp:sematic-tokens-partial-result-data #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 45374)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-sematic-tokens-partial-result-data #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 45520)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&v1:ProgressParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:message\? :percentage\? :done\? :id :title) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:message\? :percentage\? :done\? :id :title) gethash 1 nil assoc ((:message\? . :message) (:percentage\? . :percentage) (:done\? . :done) (:id . :id) (:title . :title))] 7 (#$ . 45663)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&v1:ProgressParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:message\? :percentage\? :done\? :id :title) error "Unknown key: %s. Available keys: %s" (:message\? :percentage\? :done\? :id :title) when ht\? gethash symbol-name assoc ((:message\? . :message) (:percentage\? . :percentage) (:done\? . :done) (:id . :id) (:title . :title)) 1 nil] 9 (#$ . 46182)]) #@15 (fn OBJECT) (defalias 'lsp-v1-progress-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("id" "title") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:id :title)] 6 (#$ . 46640)]) #@88 (fn &rest PLIST &key MESSAGE\=\? PERCENTAGE\=\? DONE\=\? ID TITLE &allow-other-keys) (defalias 'lsp-make-v1-progress-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :message\? :percentage\? :done\? :id :title make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:message\? . :message) (:percentage\? . :percentage) (:done\? . :done) (:id . :id) (:title . :title))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 46979)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 47614)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-message\? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 47757)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-percentage\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "percentage"] 4 (#$ . 47897)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-percentage\? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 48046)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-done\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "done"] 4 (#$ . 48192)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-done\? #[514 "\300\301#\210\207" [puthash "done"] 6 (#$ . 48329)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 48463)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 48594)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 48722)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 48859)]) #@69 Convert the position KEY from SOURCE into a point. (fn KEY SOURCE) (defalias 'dash-expand:&RangeToPoint #[514 "\300\301ED\207" [lsp--position-to-point lsp-get] 6 (#$ . 48993)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&eslint:StatusParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:state s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:state) gethash 1 nil assoc ((:state . :state))] 7 (#$ . 49179)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&eslint:StatusParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:state error "Unknown key: %s. Available keys: %s" (:state) when ht\? gethash symbol-name assoc ((:state . :state)) 1 nil] 9 (#$ . 49540)]) #@15 (fn OBJECT) (defalias 'lsp-eslint-status-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("state") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:state)] 6 (#$ . 49840)]) #@49 (fn &rest PLIST &key STATE &allow-other-keys) (defalias 'lsp-make-eslint-status-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :state make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:state . :state))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 50172)]) #@15 (fn OBJECT) (defalias 'lsp:eslint-status-params-state #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "state"] 4 (#$ . 50595)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-status-params-state #[514 "\300\301#\210\207" [puthash "state"] 6 (#$ . 50734)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&eslint:OpenESLintDocParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:url s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:url) gethash 1 nil assoc ((:url . :url))] 7 (#$ . 50870)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&eslint:OpenESLintDocParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:url error "Unknown key: %s. Available keys: %s" (:url) when ht\? gethash symbol-name assoc ((:url . :url)) 1 nil] 9 (#$ . 51230)]) #@15 (fn OBJECT) (defalias 'lsp-eslint-open-es-lint-doc-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("url") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:url)] 6 (#$ . 51529)]) #@47 (fn &rest PLIST &key URL &allow-other-keys) (defalias 'lsp-make-eslint-open-es-lint-doc-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :url make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:url . :url))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 51867)]) #@15 (fn OBJECT) (defalias 'lsp:eslint-open-es-lint-doc-params-url #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "url"] 4 (#$ . 52292)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-open-es-lint-doc-params-url #[514 "\300\301#\210\207" [puthash "url"] 6 (#$ . 52437)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&haxe:ProcessStartNotification #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:title s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:title) gethash 1 nil assoc ((:title . :title))] 7 (#$ . 52579)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&haxe:ProcessStartNotification\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:title error "Unknown key: %s. Available keys: %s" (:title) when ht\? gethash symbol-name assoc ((:title . :title)) 1 nil] 9 (#$ . 52950)]) #@15 (fn OBJECT) (defalias 'lsp-haxe-process-start-notification\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("title") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:title)] 6 (#$ . 53260)]) #@49 (fn &rest PLIST &key TITLE &allow-other-keys) (defalias 'lsp-make-haxe-process-start-notification #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :title make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:title . :title))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 53603)]) #@15 (fn OBJECT) (defalias 'lsp:haxe-process-start-notification-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 54037)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-haxe-process-start-notification-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 54187)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&pwsh:ScriptRegion #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:start-line-number :end-line-number :start-column-number :end-column-number :text) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:start-line-number :end-line-number :start-column-number :end-column-number :text) gethash 1 nil assoc ((:start-line-number . :StartLineNumber) (:end-line-number . :EndLineNumber) (:start-column-number . :StartColumnNumber) (:end-column-number . :EndColumnNumber) (:text . :Text))] 7 (#$ . 54334)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&pwsh:ScriptRegion\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:start-line-number :end-line-number :start-column-number :end-column-number :text) error "Unknown key: %s. Available keys: %s" (:start-line-number :end-line-number :start-column-number :end-column-number :text) when ht\? gethash symbol-name assoc ((:start-line-number . :StartLineNumber) (:end-line-number . :EndLineNumber) (:start-column-number . :StartColumnNumber) (:end-column-number . :EndColumnNumber) (:text . :Text)) 1 nil] 9 (#$ . 55003)]) #@15 (fn OBJECT) (defalias 'lsp-pwsh-script-region\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("StartLineNumber" "EndLineNumber" "StartColumnNumber" "EndColumnNumber" "Text") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:StartLineNumber :EndLineNumber :StartColumnNumber :EndColumnNumber :Text)] 6 (#$ . 55611)]) #@120 (fn &rest PLIST &key START-LINE-NUMBER END-LINE-NUMBER START-COLUMN-NUMBER END-COLUMN-NUMBER TEXT &allow-other-keys) (defalias 'lsp-make-pwsh-script-region #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :start-line-number :end-line-number :start-column-number :end-column-number :text make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:start-line-number . :StartLineNumber) (:end-line-number . :EndLineNumber) (:start-column-number . :StartColumnNumber) (:end-column-number . :EndColumnNumber) (:text . :Text))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 56080)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-start-line-number #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "StartLineNumber"] 4 (#$ . 56859)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-start-line-number #[514 "\300\301#\210\207" [puthash "StartLineNumber"] 6 (#$ . 57018)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-end-line-number #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "EndLineNumber"] 4 (#$ . 57174)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-end-line-number #[514 "\300\301#\210\207" [puthash "EndLineNumber"] 6 (#$ . 57329)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-start-column-number #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "StartColumnNumber"] 4 (#$ . 57481)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-start-column-number #[514 "\300\301#\210\207" [puthash "StartColumnNumber"] 6 (#$ . 57644)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-end-column-number #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "EndColumnNumber"] 4 (#$ . 57804)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-end-column-number #[514 "\300\301#\210\207" [puthash "EndColumnNumber"] 6 (#$ . 57963)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Text"] 4 (#$ . 58119)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-text #[514 "\300\301#\210\207" [puthash "Text"] 6 (#$ . 58254)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rls:Cmd #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:args :binary :env :cwd) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:args :binary :env :cwd) gethash 1 nil assoc ((:args . :args) (:binary . :binary) (:env . :env) (:cwd . :cwd))] 7 (#$ . 58386)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rls:Cmd\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:args :binary :env :cwd) error "Unknown key: %s. Available keys: %s" (:args :binary :env :cwd) when ht\? gethash symbol-name assoc ((:args . :args) (:binary . :binary) (:env . :env) (:cwd . :cwd)) 1 nil] 9 (#$ . 58817)]) #@15 (fn OBJECT) (defalias 'lsp-rls-cmd\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("args" "binary" "env" "cwd") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:args :binary :env :cwd)] 6 (#$ . 59187)]) #@63 (fn &rest PLIST &key ARGS BINARY ENV CWD &allow-other-keys) (defalias 'lsp-make-rls-cmd #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :args :binary :env :cwd make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:args . :args) (:binary . :binary) (:env . :env) (:cwd . :cwd))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 59543)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "args"] 4 (#$ . 60070)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-args #[514 "\300\301#\210\207" [puthash "args"] 6 (#$ . 60194)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-binary #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "binary"] 4 (#$ . 60315)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-binary #[514 "\300\301#\210\207" [puthash "binary"] 6 (#$ . 60443)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-env #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "env"] 4 (#$ . 60568)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-env #[514 "\300\301#\210\207" [puthash "env"] 6 (#$ . 60690)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-cwd #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cwd"] 4 (#$ . 60809)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-cwd #[514 "\300\301#\210\207" [puthash "cwd"] 6 (#$ . 60931)]) (defconst lsp/rust-analyzer-inlay-hint-kind-type-hint "TypeHint") (defconst lsp/rust-analyzer-inlay-hint-kind-param-hint "ParameterHint") (defconst lsp/rust-analyzer-inlay-hint-kind-chaining-hint "ChainingHint") #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:SyntaxTreeParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:range\? :text-document) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:range\? :text-document) gethash 1 nil assoc ((:range\? . :range) (:text-document . :textDocument))] 7 (#$ . 61262)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:SyntaxTreeParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:range\? :text-document) error "Unknown key: %s. Available keys: %s" (:range\? :text-document) when ht\? gethash symbol-name assoc ((:range\? . :range) (:text-document . :textDocument)) 1 nil] 9 (#$ . 61705)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-syntax-tree-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 62087)]) #@67 (fn &rest PLIST &key RANGE\=\? TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-rust-analyzer-syntax-tree-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :range\? :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:range\? . :range) (:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 62445)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-syntax-tree-params-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 62963)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-syntax-tree-params-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 63116)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-syntax-tree-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 63266)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-syntax-tree-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 63432)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ExpandMacroParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :position) gethash 1 nil assoc ((:text-document . :textDocument) (:position . :position))] 7 (#$ . 63595)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ExpandMacroParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :position) error "Unknown key: %s. Available keys: %s" (:text-document :position) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 64045)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-expand-macro-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 64434)]) #@66 (fn &rest PLIST &key TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-rust-analyzer-expand-macro-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 64814)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expand-macro-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 65337)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expand-macro-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 65504)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expand-macro-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 65668)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expand-macro-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 65826)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ExpandedMacro #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:name :expansion) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:name :expansion) gethash 1 nil assoc ((:name . :name) (:expansion . :expansion))] 7 (#$ . 65981)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ExpandedMacro\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:name :expansion) error "Unknown key: %s. Available keys: %s" (:name :expansion) when ht\? gethash symbol-name assoc ((:name . :name) (:expansion . :expansion)) 1 nil] 9 (#$ . 66396)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-expanded-macro\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("name" "expansion") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:name :expansion)] 6 (#$ . 66750)]) #@58 (fn &rest PLIST &key NAME EXPANSION &allow-other-keys) (defalias 'lsp-make-rust-analyzer-expanded-macro #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :name :expansion make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:name . :name) (:expansion . :expansion))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 67111)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expanded-macro-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 67598)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expanded-macro-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 67743)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expanded-macro-expansion #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "expansion"] 4 (#$ . 67885)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expanded-macro-expansion #[514 "\300\301#\210\207" [puthash "expansion"] 6 (#$ . 68040)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:MatchingBraceParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :positions) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :positions) gethash 1 nil assoc ((:text-document . :textDocument) (:positions . :positions))] 7 (#$ . 68192)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:MatchingBraceParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :positions) error "Unknown key: %s. Available keys: %s" (:text-document :positions) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:positions . :positions)) 1 nil] 9 (#$ . 68648)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-matching-brace-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "positions") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :positions)] 6 (#$ . 69043)]) #@67 (fn &rest PLIST &key TEXT-DOCUMENT POSITIONS &allow-other-keys) (defalias 'lsp-make-rust-analyzer-matching-brace-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text-document :positions make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:positions . :positions))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 69427)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-matching-brace-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 69956)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-matching-brace-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 70125)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-matching-brace-params-positions #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "positions"] 4 (#$ . 70291)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-matching-brace-params-positions #[514 "\300\301#\210\207" [puthash "positions"] 6 (#$ . 70453)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ResovedCodeActionParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:id :code-action-params) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:id :code-action-params) gethash 1 nil assoc ((:id . :id) (:code-action-params . :codeActionParams))] 7 (#$ . 70612)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ResovedCodeActionParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:id :code-action-params) error "Unknown key: %s. Available keys: %s" (:id :code-action-params) when ht\? gethash symbol-name assoc ((:id . :id) (:code-action-params . :codeActionParams)) 1 nil] 9 (#$ . 71063)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-resoved-code-action-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("id" "codeActionParams") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:id :codeActionParams)] 6 (#$ . 71453)]) #@65 (fn &rest PLIST &key ID CODE-ACTION-PARAMS &allow-other-keys) (defalias 'lsp-make-rust-analyzer-resoved-code-action-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :id :code-action-params make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:id . :id) (:code-action-params . :codeActionParams))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 71836)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-resoved-code-action-params-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 72361)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-resoved-code-action-params-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 72514)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-resoved-code-action-params-code-action-params #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionParams"] 4 (#$ . 72664)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-resoved-code-action-params-code-action-params #[514 "\300\301#\210\207" [puthash "codeActionParams"] 6 (#$ . 72847)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:JoinLinesParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :ranges) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :ranges) gethash 1 nil assoc ((:text-document . :textDocument) (:ranges . :ranges))] 7 (#$ . 73027)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:JoinLinesParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :ranges) error "Unknown key: %s. Available keys: %s" (:text-document :ranges) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:ranges . :ranges)) 1 nil] 9 (#$ . 73467)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-join-lines-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "ranges") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :ranges)] 6 (#$ . 73846)]) #@64 (fn &rest PLIST &key TEXT-DOCUMENT RANGES &allow-other-keys) (defalias 'lsp-make-rust-analyzer-join-lines-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text-document :ranges make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:ranges . :ranges))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 74220)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-join-lines-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 74733)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-join-lines-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 74898)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-join-lines-params-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ranges"] 4 (#$ . 75060)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-join-lines-params-ranges #[514 "\300\301#\210\207" [puthash "ranges"] 6 (#$ . 75212)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:RunnablesParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:position\? :text-document) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:position\? :text-document) gethash 1 nil assoc ((:position\? . :position) (:text-document . :textDocument))] 7 (#$ . 75361)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:RunnablesParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:position\? :text-document) error "Unknown key: %s. Available keys: %s" (:position\? :text-document) when ht\? gethash symbol-name assoc ((:position\? . :position) (:text-document . :textDocument)) 1 nil] 9 (#$ . 75815)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-runnables-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 76208)]) #@70 (fn &rest PLIST &key POSITION\=\? TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-rust-analyzer-runnables-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :position\? :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:position\? . :position) (:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 76564)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnables-params-position\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 77092)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnables-params-position\? #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 77249)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnables-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 77403)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnables-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 77567)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:Runnable #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:location\? :label :kind :args) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:location\? :label :kind :args) gethash 1 nil assoc ((:location\? . :location) (:label . :label) (:kind . :kind) (:args . :args))] 7 (#$ . 77728)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:Runnable\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:location\? :label :kind :args) error "Unknown key: %s. Available keys: %s" (:location\? :label :kind :args) when ht\? gethash symbol-name assoc ((:location\? . :location) (:label . :label) (:kind . :kind) (:args . :args)) 1 nil] 9 (#$ . 78200)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-runnable\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("label" "kind" "args") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:label :kind :args)] 6 (#$ . 78611)]) #@72 (fn &rest PLIST &key LOCATION\=\? LABEL KIND ARGS &allow-other-keys) (defalias 'lsp-make-rust-analyzer-runnable #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :location\? :label :kind :args make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:location\? . :location) (:label . :label) (:kind . :kind) (:args . :args))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 78971)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-location\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "location"] 4 (#$ . 79541)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-location\? #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 79690)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 79836)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 79977)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 80115)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 80254)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "args"] 4 (#$ . 80390)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args #[514 "\300\301#\210\207" [puthash "args"] 6 (#$ . 80529)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:RunnableArgs #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:workspace-root\? :cargo-args :executable-args) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:workspace-root\? :cargo-args :executable-args) gethash 1 nil assoc ((:workspace-root\? . :workspaceRoot) (:cargo-args . :cargoArgs) (:executable-args . :executableArgs))] 7 (#$ . 80665)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:RunnableArgs\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:workspace-root\? :cargo-args :executable-args) error "Unknown key: %s. Available keys: %s" (:workspace-root\? :cargo-args :executable-args) when ht\? gethash symbol-name assoc ((:workspace-root\? . :workspaceRoot) (:cargo-args . :cargoArgs) (:executable-args . :executableArgs)) 1 nil] 9 (#$ . 81198)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-runnable-args\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("cargoArgs" "executableArgs") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:cargoArgs :executableArgs)] 6 (#$ . 81670)]) #@89 (fn &rest PLIST &key WORKSPACE-ROOT\=\? CARGO-ARGS EXECUTABLE-ARGS &allow-other-keys) (defalias 'lsp-make-rust-analyzer-runnable-args #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :workspace-root\? :cargo-args :executable-args make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:workspace-root\? . :workspaceRoot) (:cargo-args . :cargoArgs) (:executable-args . :executableArgs))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 82050)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-workspace-root\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceRoot"] 4 (#$ . 82670)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-workspace-root\? #[514 "\300\301#\210\207" [puthash "workspaceRoot"] 6 (#$ . 82835)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-cargo-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cargoArgs"] 4 (#$ . 82997)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-cargo-args #[514 "\300\301#\210\207" [puthash "cargoArgs"] 6 (#$ . 83152)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-executable-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executableArgs"] 4 (#$ . 83304)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-executable-args #[514 "\300\301#\210\207" [puthash "executableArgs"] 6 (#$ . 83469)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:InlayHint #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:range :label :kind) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:range :label :kind) gethash 1 nil assoc ((:range . :range) (:label . :label) (:kind . :kind))] 7 (#$ . 83631)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:InlayHint\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:range :label :kind) error "Unknown key: %s. Available keys: %s" (:range :label :kind) when ht\? gethash symbol-name assoc ((:range . :range) (:label . :label) (:kind . :kind)) 1 nil] 9 (#$ . 84058)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-inlay-hint\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range" "label" "kind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range :label :kind)] 6 (#$ . 84424)]) #@60 (fn &rest PLIST &key RANGE LABEL KIND &allow-other-keys) (defalias 'lsp-make-rust-analyzer-inlay-hint #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :range :label :kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:range . :range) (:label . :label) (:kind . :kind))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 84788)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hint-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 85300)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 85443)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hint-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 85583)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 85726)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hint-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 85866)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 86007)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:InlayHintsParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:text-document s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document) gethash 1 nil assoc ((:text-document . :textDocument))] 7 (#$ . 86145)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:InlayHintsParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:text-document error "Unknown key: %s. Available keys: %s" (:text-document) when ht\? gethash symbol-name assoc ((:text-document . :textDocument)) 1 nil] 9 (#$ . 86548)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-inlay-hints-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 86890)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-rust-analyzer-inlay-hints-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 87248)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hints-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 87714)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hints-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 87880)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:SsrParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:query :parse-only) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:query :parse-only) gethash 1 nil assoc ((:query . :query) (:parse-only . :parseOnly))] 7 (#$ . 88043)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:SsrParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:query :parse-only) error "Unknown key: %s. Available keys: %s" (:query :parse-only) when ht\? gethash symbol-name assoc ((:query . :query) (:parse-only . :parseOnly)) 1 nil] 9 (#$ . 88461)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-ssr-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("query" "parseOnly") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:query :parseOnly)] 6 (#$ . 88818)]) #@60 (fn &rest PLIST &key QUERY PARSE-ONLY &allow-other-keys) (defalias 'lsp-make-rust-analyzer-ssr-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :query :parse-only make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:query . :query) (:parse-only . :parseOnly))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 89177)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-ssr-params-query #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "query"] 4 (#$ . 89667)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-ssr-params-query #[514 "\300\301#\210\207" [puthash "query"] 6 (#$ . 89810)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-ssr-params-parse-only #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parseOnly"] 4 (#$ . 89950)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-ssr-params-parse-only #[514 "\300\301#\210\207" [puthash "parseOnly"] 6 (#$ . 90102)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:CommandLink #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:arguments\? :tooltip\? :title :command) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:arguments\? :tooltip\? :title :command) gethash 1 nil assoc ((:arguments\? . :arguments) (:tooltip\? . :tooltip) (:title . :title) (:command . :command))] 7 (#$ . 90251)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:CommandLink\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:arguments\? :tooltip\? :title :command) error "Unknown key: %s. Available keys: %s" (:arguments\? :tooltip\? :title :command) when ht\? gethash symbol-name assoc ((:arguments\? . :arguments) (:tooltip\? . :tooltip) (:title . :title) (:command . :command)) 1 nil] 9 (#$ . 90760)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-command-link\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("title" "command") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:title :command)] 6 (#$ . 91208)]) #@83 (fn &rest PLIST &key ARGUMENTS\=\? TOOLTIP\=\? TITLE COMMAND &allow-other-keys) (defalias 'lsp-make-rust-analyzer-command-link #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :arguments\? :tooltip\? :title :command make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:arguments\? . :arguments) (:tooltip\? . :tooltip) (:title . :title) (:command . :command))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 91565)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-arguments\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "arguments"] 4 (#$ . 92175)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 92330)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 92482)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 92633)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 92781)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 92926)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 93068)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 93217)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:CommandLinkGroup #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:title\? :commands) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:title\? :commands) gethash 1 nil assoc ((:title\? . :title) (:commands . :commands))] 7 (#$ . 93363)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:CommandLinkGroup\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:title\? :commands) error "Unknown key: %s. Available keys: %s" (:title\? :commands) when ht\? gethash symbol-name assoc ((:title\? . :title) (:commands . :commands)) 1 nil] 9 (#$ . 93787)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-command-link-group\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("commands") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:commands)] 6 (#$ . 94150)]) #@62 (fn &rest PLIST &key TITLE\=\? COMMANDS &allow-other-keys) (defalias 'lsp-make-rust-analyzer-command-link-group #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :title\? :commands make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:title\? . :title) (:commands . :commands))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 94500)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-group-title\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 94999)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-group-title\? #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 95152)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-group-commands #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commands"] 4 (#$ . 95302)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-group-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 95459)]) (defconst lsp/completion-item-kind-text 1) (defconst lsp/completion-item-kind-method 2) (defconst lsp/completion-item-kind-function 3) (defconst lsp/completion-item-kind-constructor 4) (defconst lsp/completion-item-kind-field 5) (defconst lsp/completion-item-kind-variable 6) (defconst lsp/completion-item-kind-class 7) (defconst lsp/completion-item-kind-interface 8) (defconst lsp/completion-item-kind-module 9) (defconst lsp/completion-item-kind-property 10) (defconst lsp/completion-item-kind-unit 11) (defconst lsp/completion-item-kind-value 12) (defconst lsp/completion-item-kind-enum 13) (defconst lsp/completion-item-kind-keyword 14) (defconst lsp/completion-item-kind-snippet 15) (defconst lsp/completion-item-kind-color 16) (defconst lsp/completion-item-kind-file 17) (defconst lsp/completion-item-kind-reference 18) (defconst lsp/completion-item-kind-folder 19) (defconst lsp/completion-item-kind-enum-member 20) (defconst lsp/completion-item-kind-constant 21) (defconst lsp/completion-item-kind-struct 22) (defconst lsp/completion-item-kind-event 23) (defconst lsp/completion-item-kind-operator 24) (defconst lsp/completion-item-kind-type-parameter 25) (defconst lsp/completion-trigger-kind-invoked 1) (defconst lsp/completion-trigger-kind-trigger-character 2) (defconst lsp/completion-trigger-kind-trigger-for-incomplete-completions 3) (defconst lsp/diagnostic-severity-error 1) (defconst lsp/diagnostic-severity-warning 2) (defconst lsp/diagnostic-severity-information 3) (defconst lsp/diagnostic-severity-hint 4) (defconst lsp/diagnostic-severity-max 5) (defconst lsp/diagnostic-tag-unnecessary 1) (defconst lsp/diagnostic-tag-deprecated 2) (defconst lsp/document-highlight-kind-text 1) (defconst lsp/document-highlight-kind-read 2) (defconst lsp/document-highlight-kind-write 3) (defconst lsp/file-change-type-created 1) (defconst lsp/file-change-type-changed 2) (defconst lsp/file-change-type-deleted 3) (defconst lsp/insert-text-format-plain-text 1) (defconst lsp/insert-text-format-snippet 2) (defconst lsp/message-type-error 1) (defconst lsp/message-type-warning 2) (defconst lsp/message-type-info 3) (defconst lsp/message-type-log 4) (defconst lsp/signature-help-trigger-kind-invoked 1) (defconst lsp/signature-help-trigger-kind-trigger-character 2) (defconst lsp/signature-help-trigger-kind-content-change 3) (defconst lsp/symbol-kind-file 1) (defconst lsp/symbol-kind-module 2) (defconst lsp/symbol-kind-namespace 3) (defconst lsp/symbol-kind-package 4) (defconst lsp/symbol-kind-class 5) (defconst lsp/symbol-kind-method 6) (defconst lsp/symbol-kind-property 7) (defconst lsp/symbol-kind-field 8) (defconst lsp/symbol-kind-constructor 9) (defconst lsp/symbol-kind-enum 10) (defconst lsp/symbol-kind-interface 11) (defconst lsp/symbol-kind-function 12) (defconst lsp/symbol-kind-variable 13) (defconst lsp/symbol-kind-constant 14) (defconst lsp/symbol-kind-string 15) (defconst lsp/symbol-kind-number 16) (defconst lsp/symbol-kind-boolean 17) (defconst lsp/symbol-kind-array 18) (defconst lsp/symbol-kind-object 19) (defconst lsp/symbol-kind-key 20) (defconst lsp/symbol-kind-null 21) (defconst lsp/symbol-kind-enum-member 22) (defconst lsp/symbol-kind-struct 23) (defconst lsp/symbol-kind-event 24) (defconst lsp/symbol-kind-operator 25) (defconst lsp/symbol-kind-type-parameter 26) (defconst lsp/text-document-save-reason-manual 1) (defconst lsp/text-document-save-reason-after-delay 2) (defconst lsp/text-document-save-reason-focus-out 3) (defconst lsp/text-document-sync-kind-none 0) (defconst lsp/text-document-sync-kind-full 1) (defconst lsp/text-document-sync-kind-incremental 2) (defconst lsp/type-hierarchy-direction-children 1) (defconst lsp/type-hierarchy-direction-parents 2) (defconst lsp/type-hierarchy-direction-both 3) (defconst lsp/call-hierarchy-direction-calls-from 1) (defconst lsp/call-hierarchy-direction-calls-to 2) (defconst lsp/response-error-code-parse-error 1) (defconst lsp/response-error-code-invalid-request 2) (defconst lsp/response-error-code-method-not-found 3) (defconst lsp/response-error-code-invalid-params 4) (defconst lsp/response-error-code-internal-error 5) (defconst lsp/response-error-code-server-error-start 6) (defconst lsp/response-error-code-server-error-end 7) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 99844)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 100276)]) #@15 (fn OBJECT) (defalias 'lsp-call-hierarchy-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 100648)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-call-hierarchy-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 100973)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 101471)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 101649)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyItem #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:detail\? :tags\? :kind :name :range :selection-range :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:detail\? :tags\? :kind :name :range :selection-range :uri) gethash 1 nil assoc ((:detail\? . :detail) (:tags\? . :tags) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange) (:uri . :uri))] 7 (#$ . 101824)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyItem\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:detail\? :tags\? :kind :name :range :selection-range :uri) error "Unknown key: %s. Available keys: %s" (:detail\? :tags\? :kind :name :range :selection-range :uri) when ht\? gethash symbol-name assoc ((:detail\? . :detail) (:tags\? . :tags) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange) (:uri . :uri)) 1 nil] 9 (#$ . 102413)]) #@15 (fn OBJECT) (defalias 'lsp-call-hierarchy-item\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "name" "range" "selectionRange" "uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :name :range :selectionRange :uri)] 6 (#$ . 102941)]) #@99 (fn &rest PLIST &key DETAIL\=\? TAGS\=\? KIND NAME RANGE SELECTION-RANGE URI &allow-other-keys) (defalias 'lsp-make-call-hierarchy-item #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\310\311\312\"\211\262\313\314\315\"\316\317\f\"\"\210\207" [plist-member :detail\? :tags\? :kind :name :range :selection-range :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:detail\? . :detail) (:tags\? . :tags) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 14 (#$ . 103343)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 104073)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 104216)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 104356)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 104495)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 104631)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 104768)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 104902)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 105039)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 105173)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 105312)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 105448)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 105606)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 105761)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 105896)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ClientCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:experimental\? :text-document\? :workspace\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:experimental\? :text-document\? :workspace\?) gethash 1 nil assoc ((:experimental\? . :experimental) (:text-document\? . :textDocument) (:workspace\? . :workspace))] 7 (#$ . 106028)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ClientCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:experimental\? :text-document\? :workspace\?) error "Unknown key: %s. Available keys: %s" (:experimental\? :text-document\? :workspace\?) when ht\? gethash symbol-name assoc ((:experimental\? . :experimental) (:text-document\? . :textDocument) (:workspace\? . :workspace)) 1 nil] 9 (#$ . 106548)]) #@15 (fn OBJECT) (defalias 'lsp-client-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 107007)]) #@92 (fn &rest PLIST &key EXPERIMENTAL\=\? TEXT-DOCUMENT\=\? WORKSPACE\=\? &allow-other-keys) (defalias 'lsp-make-client-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :experimental\? :text-document\? :workspace\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:experimental\? . :experimental) (:text-document\? . :textDocument) (:workspace\? . :workspace))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 107324)]) #@15 (fn OBJECT) (defalias 'lsp:client-capabilities-experimental\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "experimental"] 4 (#$ . 107935)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-experimental\? #[514 "\300\301#\210\207" [puthash "experimental"] 6 (#$ . 108090)]) #@15 (fn OBJECT) (defalias 'lsp:client-capabilities-text-document\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 108242)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-text-document\? #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 108398)]) #@15 (fn OBJECT) (defalias 'lsp:client-capabilities-workspace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspace"] 4 (#$ . 108551)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-workspace\? #[514 "\300\301#\210\207" [puthash "workspace"] 6 (#$ . 108700)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ClientInfo #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:version\? :name) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:version\? :name) gethash 1 nil assoc ((:version\? . :version) (:name . :name))] 7 (#$ . 108846)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ClientInfo\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:version\? :name) error "Unknown key: %s. Available keys: %s" (:version\? :name) when ht\? gethash symbol-name assoc ((:version\? . :version) (:name . :name)) 1 nil] 9 (#$ . 109243)]) #@15 (fn OBJECT) (defalias 'lsp-client-info\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("name") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:name)] 6 (#$ . 109579)]) #@60 (fn &rest PLIST &key VERSION\=\? NAME &allow-other-keys) (defalias 'lsp-make-client-info #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :version\? :name make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:version\? . :version) (:name . :name))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 109901)]) #@15 (fn OBJECT) (defalias 'lsp:client-info-version\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 110372)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-info-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 110509)]) #@15 (fn OBJECT) (defalias 'lsp:client-info-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 110643)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-info-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 110772)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:code-action-literal-support\? :dynamic-registration\? :is-preferred-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:code-action-literal-support\? :dynamic-registration\? :is-preferred-support\?) gethash 1 nil assoc ((:code-action-literal-support\? . :codeActionLiteralSupport) (:dynamic-registration\? . :dynamicRegistration) (:is-preferred-support\? . :isPreferredSupport))] 7 (#$ . 110898)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:code-action-literal-support\? :dynamic-registration\? :is-preferred-support\?) error "Unknown key: %s. Available keys: %s" (:code-action-literal-support\? :dynamic-registration\? :is-preferred-support\?) when ht\? gethash symbol-name assoc ((:code-action-literal-support\? . :codeActionLiteralSupport) (:dynamic-registration\? . :dynamicRegistration) (:is-preferred-support\? . :isPreferredSupport)) 1 nil] 9 (#$ . 111549)]) #@15 (fn OBJECT) (defalias 'lsp-code-action-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 112139)]) #@125 (fn &rest PLIST &key CODE-ACTION-LITERAL-SUPPORT\=\? DYNAMIC-REGISTRATION\=\? IS-PREFERRED-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-code-action-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :code-action-literal-support\? :dynamic-registration\? :is-preferred-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:code-action-literal-support\? . :codeActionLiteralSupport) (:dynamic-registration\? . :dynamicRegistration) (:is-preferred-support\? . :isPreferredSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 112462)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-code-action-literal-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionLiteralSupport"] 4 (#$ . 113205)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-code-action-literal-support\? #[514 "\300\301#\210\207" [puthash "codeActionLiteralSupport"] 6 (#$ . 113392)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 113576)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 113751)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-is-preferred-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isPreferredSupport"] 4 (#$ . 113923)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-is-preferred-support\? #[514 "\300\301#\210\207" [puthash "isPreferredSupport"] 6 (#$ . 114097)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionContext #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:only\? :diagnostics) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:only\? :diagnostics) gethash 1 nil assoc ((:only\? . :only) (:diagnostics . :diagnostics))] 7 (#$ . 114268)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionContext\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:only\? :diagnostics) error "Unknown key: %s. Available keys: %s" (:only\? :diagnostics) when ht\? gethash symbol-name assoc ((:only\? . :only) (:diagnostics . :diagnostics)) 1 nil] 9 (#$ . 114688)]) #@15 (fn OBJECT) (defalias 'lsp-code-action-context\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("diagnostics") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:diagnostics)] 6 (#$ . 115047)]) #@64 (fn &rest PLIST &key ONLY\=\? DIAGNOSTICS &allow-other-keys) (defalias 'lsp-make-code-action-context #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :only\? :diagnostics make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:only\? . :only) (:diagnostics . :diagnostics))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 115391)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-context-only\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "only"] 4 (#$ . 115886)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-context-only\? #[514 "\300\301#\210\207" [puthash "only"] 6 (#$ . 116025)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-context-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 116161)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-context-diagnostics #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 116312)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionKindCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:value-set s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:value-set) gethash 1 nil assoc ((:value-set . :valueSet))] 7 (#$ . 116460)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionKindCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:value-set error "Unknown key: %s. Available keys: %s" (:value-set) when ht\? gethash symbol-name assoc ((:value-set . :valueSet)) 1 nil] 9 (#$ . 116844)]) #@15 (fn OBJECT) (defalias 'lsp-code-action-kind-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("valueSet") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:valueSet)] 6 (#$ . 117167)]) #@53 (fn &rest PLIST &key VALUE-SET &allow-other-keys) (defalias 'lsp-make-code-action-kind-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :value-set make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:value-set . :valueSet))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 117515)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-kind-capabilities-value-set #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 117963)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-kind-capabilities-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 118119)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionLiteralSupportCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:code-action-kind\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:code-action-kind\?) gethash 1 nil assoc ((:code-action-kind\? . :codeActionKind))] 7 (#$ . 118272)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionLiteralSupportCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:code-action-kind\? error "Unknown key: %s. Available keys: %s" (:code-action-kind\?) when ht\? gethash symbol-name assoc ((:code-action-kind\? . :codeActionKind)) 1 nil] 9 (#$ . 118699)]) #@15 (fn OBJECT) (defalias 'lsp-code-action-literal-support-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 119065)]) #@64 (fn &rest PLIST &key CODE-ACTION-KIND\=\? &allow-other-keys) (defalias 'lsp-make-code-action-literal-support-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :code-action-kind\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:code-action-kind\? . :codeActionKind))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 119403)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-literal-support-capabilities-code-action-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionKind"] 4 (#$ . 119897)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-literal-support-capabilities-code-action-kind\? #[514 "\300\301#\210\207" [puthash "codeActionKind"] 6 (#$ . 120079)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:code-action-kinds\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:code-action-kinds\?) gethash 1 nil assoc ((:code-action-kinds\? . :codeActionKinds))] 7 (#$ . 120258)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:code-action-kinds\? error "Unknown key: %s. Available keys: %s" (:code-action-kinds\?) when ht\? gethash symbol-name assoc ((:code-action-kinds\? . :codeActionKinds)) 1 nil] 9 (#$ . 120670)]) #@15 (fn OBJECT) (defalias 'lsp-code-action-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 121021)]) #@65 (fn &rest PLIST &key CODE-ACTION-KINDS\=\? &allow-other-keys) (defalias 'lsp-make-code-action-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :code-action-kinds\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:code-action-kinds\? . :codeActionKinds))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 121338)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-options-code-action-kinds\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionKinds"] 4 (#$ . 121815)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-options-code-action-kinds\? #[514 "\300\301#\210\207" [puthash "codeActionKinds"] 6 (#$ . 121978)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLensCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 122138)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLensCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 122566)]) #@15 (fn OBJECT) (defalias 'lsp-code-lens-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 122933)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-code-lens-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 123253)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 123746)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 123919)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLensOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:resolve-provider s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:resolve-provider) gethash 1 nil assoc ((:resolve-provider . :resolveProvider))] 7 (#$ . 124089)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLensOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:resolve-provider error "Unknown key: %s. Available keys: %s" (:resolve-provider) when ht\? gethash symbol-name assoc ((:resolve-provider . :resolveProvider)) 1 nil] 9 (#$ . 124490)]) #@15 (fn OBJECT) (defalias 'lsp-code-lens-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("resolveProvider") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:resolveProvider)] 6 (#$ . 124830)]) #@60 (fn &rest PLIST &key RESOLVE-PROVIDER &allow-other-keys) (defalias 'lsp-make-code-lens-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :resolve-provider make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:resolve-provider . :resolveProvider))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 125180)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-options-resolve-provider #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 125644)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-options-resolve-provider #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 125802)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Color #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:red :green :blue :alpha) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:red :green :blue :alpha) gethash 1 nil assoc ((:red . :red) (:green . :green) (:blue . :blue) (:alpha . :alpha))] 7 (#$ . 125957)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Color\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:red :green :blue :alpha) error "Unknown key: %s. Available keys: %s" (:red :green :blue :alpha) when ht\? gethash symbol-name assoc ((:red . :red) (:green . :green) (:blue . :blue) (:alpha . :alpha)) 1 nil] 9 (#$ . 126391)]) #@15 (fn OBJECT) (defalias 'lsp-color\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("red" "green" "blue" "alpha") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:red :green :blue :alpha)] 6 (#$ . 126764)]) #@64 (fn &rest PLIST &key RED GREEN BLUE ALPHA &allow-other-keys) (defalias 'lsp-make-color #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :red :green :blue :alpha make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:red . :red) (:green . :green) (:blue . :blue) (:alpha . :alpha))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 127121)]) #@15 (fn OBJECT) (defalias 'lsp:color-red #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "red"] 4 (#$ . 127651)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-red #[514 "\300\301#\210\207" [puthash "red"] 6 (#$ . 127772)]) #@15 (fn OBJECT) (defalias 'lsp:color-green #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "green"] 4 (#$ . 127890)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-green #[514 "\300\301#\210\207" [puthash "green"] 6 (#$ . 128015)]) #@15 (fn OBJECT) (defalias 'lsp:color-blue #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "blue"] 4 (#$ . 128137)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-blue #[514 "\300\301#\210\207" [puthash "blue"] 6 (#$ . 128260)]) #@15 (fn OBJECT) (defalias 'lsp:color-alpha #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "alpha"] 4 (#$ . 128380)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-alpha #[514 "\300\301#\210\207" [puthash "alpha"] 6 (#$ . 128505)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorProviderCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 128627)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorProviderCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 129060)]) #@15 (fn OBJECT) (defalias 'lsp-color-provider-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 129432)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-color-provider-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 129757)]) #@15 (fn OBJECT) (defalias 'lsp:color-provider-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 130255)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 130433)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorProviderOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :id\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :id\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:id\? . :id))] 7 (#$ . 130608)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorProviderOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :id\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :id\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:id\? . :id)) 1 nil] 9 (#$ . 131052)]) #@15 (fn OBJECT) (defalias 'lsp-color-provider-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 131435)]) #@72 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? ID\=\? &allow-other-keys) (defalias 'lsp-make-color-provider-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :document-selector\? :id\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:id\? . :id))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 131755)]) #@15 (fn OBJECT) (defalias 'lsp:color-provider-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 132276)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 132443)]) #@15 (fn OBJECT) (defalias 'lsp:color-provider-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 132607)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 132745)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColoringInformation #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:range :styles) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:range :styles) gethash 1 nil assoc ((:range . :range) (:styles . :styles))] 7 (#$ . 132880)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColoringInformation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:range :styles) error "Unknown key: %s. Available keys: %s" (:range :styles) when ht\? gethash symbol-name assoc ((:range . :range) (:styles . :styles)) 1 nil] 9 (#$ . 133280)]) #@15 (fn OBJECT) (defalias 'lsp-coloring-information\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range" "styles") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range :styles)] 6 (#$ . 133619)]) #@56 (fn &rest PLIST &key RANGE STYLES &allow-other-keys) (defalias 'lsp-make-coloring-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :range :styles make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:range . :range) (:styles . :styles))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 133969)]) #@15 (fn OBJECT) (defalias 'lsp:coloring-information-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 134441)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-information-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 134581)]) #@15 (fn OBJECT) (defalias 'lsp:coloring-information-styles #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "styles"] 4 (#$ . 134718)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-information-styles #[514 "\300\301#\210\207" [puthash "styles"] 6 (#$ . 134860)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Command #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:arguments\? :title :command) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:arguments\? :title :command) gethash 1 nil assoc ((:arguments\? . :arguments) (:title . :title) (:command . :command))] 7 (#$ . 134999)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Command\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:arguments\? :title :command) error "Unknown key: %s. Available keys: %s" (:arguments\? :title :command) when ht\? gethash symbol-name assoc ((:arguments\? . :arguments) (:title . :title) (:command . :command)) 1 nil] 9 (#$ . 135445)]) #@15 (fn OBJECT) (defalias 'lsp-command\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("title" "command") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:title :command)] 6 (#$ . 135830)]) #@71 (fn &rest PLIST &key ARGUMENTS\=\? TITLE COMMAND &allow-other-keys) (defalias 'lsp-make-command #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :arguments\? :title :command make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:arguments\? . :arguments) (:title . :title) (:command . :command))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 136169)]) #@15 (fn OBJECT) (defalias 'lsp:command-arguments\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "arguments"] 4 (#$ . 136701)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 136838)]) #@15 (fn OBJECT) (defalias 'lsp:command-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 136972)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 137099)]) #@15 (fn OBJECT) (defalias 'lsp:command-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 137223)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 137354)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:completion-item\? :completion-item-kind\? :context-support\? :dynamic-registration\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:completion-item\? :completion-item-kind\? :context-support\? :dynamic-registration\?) gethash 1 nil assoc ((:completion-item\? . :completionItem) (:completion-item-kind\? . :completionItemKind) (:context-support\? . :contextSupport) (:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 137482)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:completion-item\? :completion-item-kind\? :context-support\? :dynamic-registration\?) error "Unknown key: %s. Available keys: %s" (:completion-item\? :completion-item-kind\? :context-support\? :dynamic-registration\?) when ht\? gethash symbol-name assoc ((:completion-item\? . :completionItem) (:completion-item-kind\? . :completionItemKind) (:context-support\? . :contextSupport) (:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 138164)]) #@15 (fn OBJECT) (defalias 'lsp-completion-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 138785)]) #@133 (fn &rest PLIST &key COMPLETION-ITEM\=\? COMPLETION-ITEM-KIND\=\? CONTEXT-SUPPORT\=\? DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-completion-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :completion-item\? :completion-item-kind\? :context-support\? :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:completion-item\? . :completionItem) (:completion-item-kind\? . :completionItemKind) (:context-support\? . :contextSupport) (:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 139107)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-completion-item\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completionItem"] 4 (#$ . 139894)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-completion-item\? #[514 "\300\301#\210\207" [puthash "completionItem"] 6 (#$ . 140058)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-completion-item-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completionItemKind"] 4 (#$ . 140219)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-completion-item-kind\? #[514 "\300\301#\210\207" [puthash "completionItemKind"] 6 (#$ . 140392)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-context-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contextSupport"] 4 (#$ . 140562)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-context-support\? #[514 "\300\301#\210\207" [puthash "contextSupport"] 6 (#$ . 140726)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 140887)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 141061)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionContext #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:trigger-character\? :trigger-kind) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:trigger-character\? :trigger-kind) gethash 1 nil assoc ((:trigger-character\? . :triggerCharacter) (:trigger-kind . :triggerKind))] 7 (#$ . 141232)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionContext\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:trigger-character\? :trigger-kind) error "Unknown key: %s. Available keys: %s" (:trigger-character\? :trigger-kind) when ht\? gethash symbol-name assoc ((:trigger-character\? . :triggerCharacter) (:trigger-kind . :triggerKind)) 1 nil] 9 (#$ . 141706)]) #@15 (fn OBJECT) (defalias 'lsp-completion-context\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("triggerKind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:triggerKind)] 6 (#$ . 142119)]) #@78 (fn &rest PLIST &key TRIGGER-CHARACTER\=\? TRIGGER-KIND &allow-other-keys) (defalias 'lsp-make-completion-context #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :trigger-character\? :trigger-kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:trigger-character\? . :triggerCharacter) (:trigger-kind . :triggerKind))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 142462)]) #@15 (fn OBJECT) (defalias 'lsp:completion-context-trigger-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacter"] 4 (#$ . 143010)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-context-trigger-character\? #[514 "\300\301#\210\207" [puthash "triggerCharacter"] 6 (#$ . 143173)]) #@15 (fn OBJECT) (defalias 'lsp:completion-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerKind"] 4 (#$ . 143333)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 143484)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionItem #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:additional-text-edits\? :command\? :commit-characters\? :data\? :deprecated\? :detail\? :documentation\? :filter-text\? :insert-text\? :insert-text-format\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :keep-whitespace\? :label) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:additional-text-edits\? :command\? :commit-characters\? :data\? :deprecated\? :detail\? :documentation\? :filter-text\? :insert-text\? :insert-text-format\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :keep-whitespace\? :label) gethash 1 nil assoc ((:additional-text-edits\? . :additionalTextEdits) (:command\? . :command) (:commit-characters\? . :commitCharacters) (:data\? . :data) (:deprecated\? . :deprecated) (:detail\? . :detail) (:documentation\? . :documentation) (:filter-text\? . :filterText) (:insert-text\? . :insertText) (:insert-text-format\? . :insertTextFormat) (:kind\? . :kind) (:preselect\? . :preselect) (:sort-text\? . :sortText) (:tags\? . :tags) (:text-edit\? . :textEdit) (:score\? . :score) (:keep-whitespace\? . :keepWhitespace) (:label . :label))] 7 (#$ . 143632)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionItem\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:additional-text-edits\? :command\? :commit-characters\? :data\? :deprecated\? :detail\? :documentation\? :filter-text\? :insert-text\? :insert-text-format\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :keep-whitespace\? :label) error "Unknown key: %s. Available keys: %s" (:additional-text-edits\? :command\? :commit-characters\? :data\? :deprecated\? :detail\? :documentation\? :filter-text\? :insert-text\? :insert-text-format\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :keep-whitespace\? :label) when ht\? gethash symbol-name assoc ((:additional-text-edits\? . :additionalTextEdits) (:command\? . :command) (:commit-characters\? . :commitCharacters) (:data\? . :data) (:deprecated\? . :deprecated) (:detail\? . :detail) (:documentation\? . :documentation) (:filter-text\? . :filterText) (:insert-text\? . :insertText) (:insert-text-format\? . :insertTextFormat) (:kind\? . :kind) (:preselect\? . :preselect) (:sort-text\? . :sortText) (:tags\? . :tags) (:text-edit\? . :textEdit) (:score\? . :score) (:keep-whitespace\? . :keepWhitespace) (:label . :label)) 1 nil] 9 (#$ . 144979)]) #@15 (fn OBJECT) (defalias 'lsp-completion-item\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("label") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:label)] 6 (#$ . 146265)]) #@307 (fn &rest PLIST &key ADDITIONAL-TEXT-EDITS\=\? COMMAND\=\? COMMIT-CHARACTERS\=\? DATA\=\? DEPRECATED\=\? DETAIL\=\? DOCUMENTATION\=\? FILTER-TEXT\=\? INSERT-TEXT\=\? INSERT-TEXT-FORMAT\=\? KIND\=\? PRESELECT\=\? SORT-TEXT\=\? TAGS\=\? TEXT-EDIT\=\? SCORE\=\? KEEP-WHITESPACE\=\? LABEL &allow-other-keys) (defalias 'lsp-make-completion-item #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"A@\300\322\"A@\323\324\325\"\211\262\326\327\330\"\331\332\"\"\210\207" [plist-member :additional-text-edits\? :command\? :commit-characters\? :data\? :deprecated\? :detail\? :documentation\? :filter-text\? :insert-text\? :insert-text-format\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :keep-whitespace\? :label make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:additional-text-edits\? . :additionalTextEdits) (:command\? . :command) (:commit-characters\? . :commitCharacters) (:data\? . :data) (:deprecated\? . :deprecated) (:detail\? . :detail) (:documentation\? . :documentation) (:filter-text\? . :filterText) (:insert-text\? . :insertText) (:insert-text-format\? . :insertTextFormat) (:kind\? . :kind) (:preselect\? . :preselect) (:sort-text\? . :sortText) (:tags\? . :tags) (:text-edit\? . :textEdit) (:score\? . :score) (:keep-whitespace\? . :keepWhitespace) (:label . :label))] 9 "\n\n(fn INPUT0)"] -partition 2] 25 (#$ . 146594)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-additional-text-edits\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "additionalTextEdits"] 4 (#$ . 148255)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-additional-text-edits\? #[514 "\300\301#\210\207" [puthash "additionalTextEdits"] 6 (#$ . 148422)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 148586)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 148727)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-commit-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commitCharacters"] 4 (#$ . 148865)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-commit-characters\? #[514 "\300\301#\210\207" [puthash "commitCharacters"] 6 (#$ . 149025)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 149182)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 149317)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 149449)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 149596)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 149740)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 149879)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-documentation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentation"] 4 (#$ . 150015)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 150168)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-filter-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "filterText"] 4 (#$ . 150318)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-filter-text\? #[514 "\300\301#\210\207" [puthash "filterText"] 6 (#$ . 150466)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertText"] 4 (#$ . 150611)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text\? #[514 "\300\301#\210\207" [puthash "insertText"] 6 (#$ . 150759)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertTextFormat"] 4 (#$ . 150904)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text-format\? #[514 "\300\301#\210\207" [puthash "insertTextFormat"] 6 (#$ . 151065)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 151223)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 151358)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-preselect\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "preselect"] 4 (#$ . 151490)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-preselect\? #[514 "\300\301#\210\207" [puthash "preselect"] 6 (#$ . 151635)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-sort-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "sortText"] 4 (#$ . 151777)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-sort-text\? #[514 "\300\301#\210\207" [puthash "sortText"] 6 (#$ . 151921)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 152062)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 152197)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-text-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textEdit"] 4 (#$ . 152329)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-text-edit\? #[514 "\300\301#\210\207" [puthash "textEdit"] 6 (#$ . 152473)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-score\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "score"] 4 (#$ . 152614)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-score\? #[514 "\300\301#\210\207" [puthash "score"] 6 (#$ . 152751)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-keep-whitespace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "keepWhitespace"] 4 (#$ . 152885)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-keep-whitespace\? #[514 "\300\301#\210\207" [puthash "keepWhitespace"] 6 (#$ . 153041)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 153194)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 153329)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionItemCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:commit-characters-support\? :deprecated-support\? :documentation-format\? :preselect-support\? :snippet-support\? :tag-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:commit-characters-support\? :deprecated-support\? :documentation-format\? :preselect-support\? :snippet-support\? :tag-support\?) gethash 1 nil assoc ((:commit-characters-support\? . :commitCharactersSupport) (:deprecated-support\? . :deprecatedSupport) (:documentation-format\? . :documentationFormat) (:preselect-support\? . :preselectSupport) (:snippet-support\? . :snippetSupport) (:tag-support\? . :tagSupport))] 7 (#$ . 153461)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionItemCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:commit-characters-support\? :deprecated-support\? :documentation-format\? :preselect-support\? :snippet-support\? :tag-support\?) error "Unknown key: %s. Available keys: %s" (:commit-characters-support\? :deprecated-support\? :documentation-format\? :preselect-support\? :snippet-support\? :tag-support\?) when ht\? gethash symbol-name assoc ((:commit-characters-support\? . :commitCharactersSupport) (:deprecated-support\? . :deprecatedSupport) (:documentation-format\? . :documentationFormat) (:preselect-support\? . :preselectSupport) (:snippet-support\? . :snippetSupport) (:tag-support\? . :tagSupport)) 1 nil] 9 (#$ . 154325)]) #@15 (fn OBJECT) (defalias 'lsp-completion-item-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 155128)]) #@179 (fn &rest PLIST &key COMMIT-CHARACTERS-SUPPORT\=\? DEPRECATED-SUPPORT\=\? DOCUMENTATION-FORMAT\=\? PRESELECT-SUPPORT\=\? SNIPPET-SUPPORT\=\? TAG-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-completion-item-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\307\310\311\"\211\262\312\313\314\"\315\316 \"\"\210\207" [plist-member :commit-characters-support\? :deprecated-support\? :documentation-format\? :preselect-support\? :snippet-support\? :tag-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:commit-characters-support\? . :commitCharactersSupport) (:deprecated-support\? . :deprecatedSupport) (:documentation-format\? . :documentationFormat) (:preselect-support\? . :preselectSupport) (:snippet-support\? . :snippetSupport) (:tag-support\? . :tagSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 13 (#$ . 155455)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-commit-characters-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commitCharactersSupport"] 4 (#$ . 156454)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-commit-characters-support\? #[514 "\300\301#\210\207" [puthash "commitCharactersSupport"] 6 (#$ . 156642)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-deprecated-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecatedSupport"] 4 (#$ . 156827)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-deprecated-support\? #[514 "\300\301#\210\207" [puthash "deprecatedSupport"] 6 (#$ . 157002)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-documentation-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentationFormat"] 4 (#$ . 157174)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-documentation-format\? #[514 "\300\301#\210\207" [puthash "documentationFormat"] 6 (#$ . 157353)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-preselect-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "preselectSupport"] 4 (#$ . 157529)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-preselect-support\? #[514 "\300\301#\210\207" [puthash "preselectSupport"] 6 (#$ . 157702)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-snippet-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "snippetSupport"] 4 (#$ . 157872)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-snippet-support\? #[514 "\300\301#\210\207" [puthash "snippetSupport"] 6 (#$ . 158041)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-tag-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tagSupport"] 4 (#$ . 158207)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-tag-support\? #[514 "\300\301#\210\207" [puthash "tagSupport"] 6 (#$ . 158368)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionItemKindCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:value-set\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:value-set\?) gethash 1 nil assoc ((:value-set\? . :valueSet))] 7 (#$ . 158526)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionItemKindCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:value-set\? error "Unknown key: %s. Available keys: %s" (:value-set\?) when ht\? gethash symbol-name assoc ((:value-set\? . :valueSet)) 1 nil] 9 (#$ . 158920)]) #@15 (fn OBJECT) (defalias 'lsp-completion-item-kind-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 159253)]) #@57 (fn &rest PLIST &key VALUE-SET\=\? &allow-other-keys) (defalias 'lsp-make-completion-item-kind-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :value-set\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:value-set\? . :valueSet))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 159584)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-kind-capabilities-value-set\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 160044)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-kind-capabilities-value-set\? #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 160206)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionItemTagSupportCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:value-set s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:value-set) gethash 1 nil assoc ((:value-set . :valueSet))] 7 (#$ . 160365)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionItemTagSupportCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:value-set error "Unknown key: %s. Available keys: %s" (:value-set) when ht\? gethash symbol-name assoc ((:value-set . :valueSet)) 1 nil] 9 (#$ . 160759)]) #@15 (fn OBJECT) (defalias 'lsp-completion-item-tag-support-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("valueSet") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:valueSet)] 6 (#$ . 161092)]) #@53 (fn &rest PLIST &key VALUE-SET &allow-other-keys) (defalias 'lsp-make-completion-item-tag-support-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :value-set make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:value-set . :valueSet))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 161451)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-tag-support-capabilities-value-set #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 161910)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-tag-support-capabilities-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 162077)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:resolve-provider\? :trigger-characters\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:resolve-provider\? :trigger-characters\?) gethash 1 nil assoc ((:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters))] 7 (#$ . 162241)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:resolve-provider\? :trigger-characters\?) error "Unknown key: %s. Available keys: %s" (:resolve-provider\? :trigger-characters\?) when ht\? gethash symbol-name assoc ((:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters)) 1 nil] 9 (#$ . 162741)]) #@15 (fn OBJECT) (defalias 'lsp-completion-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 163180)]) #@87 (fn &rest PLIST &key RESOLVE-PROVIDER\=\? TRIGGER-CHARACTERS\=\? &allow-other-keys) (defalias 'lsp-make-completion-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :resolve-provider\? :trigger-characters\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 163496)]) #@15 (fn OBJECT) (defalias 'lsp:completion-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 164072)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 164233)]) #@15 (fn OBJECT) (defalias 'lsp:completion-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 164391)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 164556)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ConfigurationItem #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:scope-uri\? :section\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:scope-uri\? :section\?) gethash 1 nil assoc ((:scope-uri\? . :scopeUri) (:section\? . :section))] 7 (#$ . 164718)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ConfigurationItem\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:scope-uri\? :section\?) error "Unknown key: %s. Available keys: %s" (:scope-uri\? :section\?) when ht\? gethash symbol-name assoc ((:scope-uri\? . :scopeUri) (:section\? . :section)) 1 nil] 9 (#$ . 165147)]) #@15 (fn OBJECT) (defalias 'lsp-configuration-item\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 165515)]) #@69 (fn &rest PLIST &key SCOPE-URI\=\? SECTION\=\? &allow-other-keys) (defalias 'lsp-make-configuration-item #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :scope-uri\? :section\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:scope-uri\? . :scopeUri) (:section\? . :section))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 165831)]) #@15 (fn OBJECT) (defalias 'lsp:configuration-item-scope-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "scopeUri"] 4 (#$ . 166336)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-item-scope-uri\? #[514 "\300\301#\210\207" [puthash "scopeUri"] 6 (#$ . 166483)]) #@15 (fn OBJECT) (defalias 'lsp:configuration-item-section\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "section"] 4 (#$ . 166627)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-item-section\? #[514 "\300\301#\210\207" [puthash "section"] 6 (#$ . 166771)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CreateFileOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:ignore-if-exists\? :overwrite\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:ignore-if-exists\? :overwrite\?) gethash 1 nil assoc ((:ignore-if-exists\? . :ignoreIfExists) (:overwrite\? . :overwrite))] 7 (#$ . 166912)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CreateFileOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:ignore-if-exists\? :overwrite\?) error "Unknown key: %s. Available keys: %s" (:ignore-if-exists\? :overwrite\?) when ht\? gethash symbol-name assoc ((:ignore-if-exists\? . :ignoreIfExists) (:overwrite\? . :overwrite)) 1 nil] 9 (#$ . 167376)]) #@15 (fn OBJECT) (defalias 'lsp-create-file-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 167779)]) #@78 (fn &rest PLIST &key IGNORE-IF-EXISTS\=\? OVERWRITE\=\? &allow-other-keys) (defalias 'lsp-make-create-file-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :ignore-if-exists\? :overwrite\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:ignore-if-exists\? . :ignoreIfExists) (:overwrite\? . :overwrite))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 168096)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-options-ignore-if-exists\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ignoreIfExists"] 4 (#$ . 168637)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options-ignore-if-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfExists"] 6 (#$ . 168798)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-options-overwrite\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "overwrite"] 4 (#$ . 168956)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options-overwrite\? #[514 "\300\301#\210\207" [puthash "overwrite"] 6 (#$ . 169105)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DeclarationCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :link-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :link-support\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport))] 7 (#$ . 169251)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DeclarationCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :link-support\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :link-support\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport)) 1 nil] 9 (#$ . 169749)]) #@15 (fn OBJECT) (defalias 'lsp-declaration-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 170186)]) #@85 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? LINK-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-declaration-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :dynamic-registration\? :link-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 170508)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 171082)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 171257)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 171429)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 171588)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DefinitionCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :link-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :link-support\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport))] 7 (#$ . 171744)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DefinitionCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :link-support\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :link-support\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport)) 1 nil] 9 (#$ . 172241)]) #@15 (fn OBJECT) (defalias 'lsp-definition-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 172677)]) #@85 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? LINK-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-definition-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :dynamic-registration\? :link-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 172998)]) #@15 (fn OBJECT) (defalias 'lsp:definition-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 173571)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 173745)]) #@15 (fn OBJECT) (defalias 'lsp:definition-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 173916)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 174074)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DeleteFileOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:ignore-if-not-exists\? :recursive\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:ignore-if-not-exists\? :recursive\?) gethash 1 nil assoc ((:ignore-if-not-exists\? . :ignoreIfNotExists) (:recursive\? . :recursive))] 7 (#$ . 174229)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DeleteFileOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:ignore-if-not-exists\? :recursive\?) error "Unknown key: %s. Available keys: %s" (:ignore-if-not-exists\? :recursive\?) when ht\? gethash symbol-name assoc ((:ignore-if-not-exists\? . :ignoreIfNotExists) (:recursive\? . :recursive)) 1 nil] 9 (#$ . 174708)]) #@15 (fn OBJECT) (defalias 'lsp-delete-file-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 175126)]) #@82 (fn &rest PLIST &key IGNORE-IF-NOT-EXISTS\=\? RECURSIVE\=\? &allow-other-keys) (defalias 'lsp-make-delete-file-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :ignore-if-not-exists\? :recursive\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:ignore-if-not-exists\? . :ignoreIfNotExists) (:recursive\? . :recursive))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 175443)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-options-ignore-if-not-exists\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ignoreIfNotExists"] 4 (#$ . 175999)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options-ignore-if-not-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfNotExists"] 6 (#$ . 176167)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-options-recursive\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "recursive"] 4 (#$ . 176332)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options-recursive\? #[514 "\300\301#\210\207" [puthash "recursive"] 6 (#$ . 176481)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Diagnostic #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:code\? :related-information\? :severity\? :source\? :tags\? :range :message) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:code\? :related-information\? :severity\? :source\? :tags\? :range :message) gethash 1 nil assoc ((:code\? . :code) (:related-information\? . :relatedInformation) (:severity\? . :severity) (:source\? . :source) (:tags\? . :tags) (:range . :range) (:message . :message))] 7 (#$ . 176627)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Diagnostic\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:code\? :related-information\? :severity\? :source\? :tags\? :range :message) error "Unknown key: %s. Available keys: %s" (:code\? :related-information\? :severity\? :source\? :tags\? :range :message) when ht\? gethash symbol-name assoc ((:code\? . :code) (:related-information\? . :relatedInformation) (:severity\? . :severity) (:source\? . :source) (:tags\? . :tags) (:range . :range) (:message . :message)) 1 nil] 9 (#$ . 177275)]) #@15 (fn OBJECT) (defalias 'lsp-diagnostic\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range" "message") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range :message)] 6 (#$ . 177862)]) #@123 (fn &rest PLIST &key CODE\=\? RELATED-INFORMATION\=\? SEVERITY\=\? SOURCE\=\? TAGS\=\? RANGE MESSAGE &allow-other-keys) (defalias 'lsp-make-diagnostic #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\310\311\312\"\211\262\313\314\315\"\316\317\f\"\"\210\207" [plist-member :code\? :related-information\? :severity\? :source\? :tags\? :range :message make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:code\? . :code) (:related-information\? . :relatedInformation) (:severity\? . :severity) (:source\? . :source) (:tags\? . :tags) (:range . :range) (:message . :message))] 9 "\n\n(fn INPUT0)"] -partition 2] 14 (#$ . 178205)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-code\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "code"] 4 (#$ . 178998)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-code\? #[514 "\300\301#\210\207" [puthash "code"] 6 (#$ . 179128)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "relatedInformation"] 4 (#$ . 179255)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information\? #[514 "\300\301#\210\207" [puthash "relatedInformation"] 6 (#$ . 179414)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-severity\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "severity"] 4 (#$ . 179570)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-severity\? #[514 "\300\301#\210\207" [puthash "severity"] 6 (#$ . 179708)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-source\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "source"] 4 (#$ . 179843)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-source\? #[514 "\300\301#\210\207" [puthash "source"] 6 (#$ . 179977)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 180108)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 180238)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 180365)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 180495)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 180622)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 180756)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticRelatedInformation #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:location :message) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:location :message) gethash 1 nil assoc ((:location . :location) (:message . :message))] 7 (#$ . 180887)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticRelatedInformation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:location :message) error "Unknown key: %s. Available keys: %s" (:location :message) when ht\? gethash symbol-name assoc ((:location . :location) (:message . :message)) 1 nil] 9 (#$ . 181312)]) #@15 (fn OBJECT) (defalias 'lsp-diagnostic-related-information\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("location" "message") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:location :message)] 6 (#$ . 181676)]) #@60 (fn &rest PLIST &key LOCATION MESSAGE &allow-other-keys) (defalias 'lsp-make-diagnostic-related-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :location :message make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:location . :location) (:message . :message))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 182044)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information-location #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "location"] 4 (#$ . 182542)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information-location #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 182698)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 182851)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 183005)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticsTagSupport #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:value-set s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:value-set) gethash 1 nil assoc ((:value-set . :valueSet))] 7 (#$ . 183156)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticsTagSupport\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:value-set error "Unknown key: %s. Available keys: %s" (:value-set) when ht\? gethash symbol-name assoc ((:value-set . :valueSet)) 1 nil] 9 (#$ . 183535)]) #@15 (fn OBJECT) (defalias 'lsp-diagnostics-tag-support\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("valueSet") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:valueSet)] 6 (#$ . 183853)]) #@53 (fn &rest PLIST &key VALUE-SET &allow-other-keys) (defalias 'lsp-make-diagnostics-tag-support #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :value-set make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:value-set . :valueSet))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 184195)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostics-tag-support-value-set #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 184637)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostics-tag-support-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 184787)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeConfigurationCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 184934)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeConfigurationCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 185376)]) #@15 (fn OBJECT) (defalias 'lsp-did-change-configuration-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 185757)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-did-change-configuration-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 186092)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-configuration-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 186600)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-configuration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 186788)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeWatchedFilesCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 186973)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeWatchedFilesCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 187414)]) #@15 (fn OBJECT) (defalias 'lsp-did-change-watched-files-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 187794)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-did-change-watched-files-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 188129)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 188637)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 188825)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentFilter #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:language\? :pattern\? :scheme\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:language\? :pattern\? :scheme\?) gethash 1 nil assoc ((:language\? . :language) (:pattern\? . :pattern) (:scheme\? . :scheme))] 7 (#$ . 189010)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentFilter\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:language\? :pattern\? :scheme\?) error "Unknown key: %s. Available keys: %s" (:language\? :pattern\? :scheme\?) when ht\? gethash symbol-name assoc ((:language\? . :language) (:pattern\? . :pattern) (:scheme\? . :scheme)) 1 nil] 9 (#$ . 189475)]) #@15 (fn OBJECT) (defalias 'lsp-document-filter\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 189879)]) #@79 (fn &rest PLIST &key LANGUAGE\=\? PATTERN\=\? SCHEME\=\? &allow-other-keys) (defalias 'lsp-make-document-filter #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :language\? :pattern\? :scheme\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:language\? . :language) (:pattern\? . :pattern) (:scheme\? . :scheme))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 190192)]) #@15 (fn OBJECT) (defalias 'lsp:document-filter-language\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "language"] 4 (#$ . 190748)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-language\? #[514 "\300\301#\210\207" [puthash "language"] 6 (#$ . 190891)]) #@15 (fn OBJECT) (defalias 'lsp:document-filter-pattern\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "pattern"] 4 (#$ . 191031)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-pattern\? #[514 "\300\301#\210\207" [puthash "pattern"] 6 (#$ . 191172)]) #@15 (fn OBJECT) (defalias 'lsp:document-filter-scheme\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "scheme"] 4 (#$ . 191310)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-scheme\? #[514 "\300\301#\210\207" [puthash "scheme"] 6 (#$ . 191449)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentHighlightCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 191585)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentHighlightCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 192022)]) #@15 (fn OBJECT) (defalias 'lsp-document-highlight-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 192398)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-document-highlight-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 192727)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 193229)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 193411)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLinkCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :tooltip-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :tooltip-support\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:tooltip-support\? . :tooltipSupport))] 7 (#$ . 193590)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLinkCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :tooltip-support\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :tooltip-support\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:tooltip-support\? . :tooltipSupport)) 1 nil] 9 (#$ . 194101)]) #@15 (fn OBJECT) (defalias 'lsp-document-link-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 194551)]) #@88 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? TOOLTIP-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-document-link-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :dynamic-registration\? :tooltip-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:tooltip-support\? . :tooltipSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 194875)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 195463)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 195640)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-capabilities-tooltip-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltipSupport"] 4 (#$ . 195814)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-capabilities-tooltip-support\? #[514 "\300\301#\210\207" [puthash "tooltipSupport"] 6 (#$ . 195981)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLinkOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:resolve-provider\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:resolve-provider\?) gethash 1 nil assoc ((:resolve-provider\? . :resolveProvider))] 7 (#$ . 196145)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLinkOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:resolve-provider\? error "Unknown key: %s. Available keys: %s" (:resolve-provider\?) when ht\? gethash symbol-name assoc ((:resolve-provider\? . :resolveProvider)) 1 nil] 9 (#$ . 196556)]) #@15 (fn OBJECT) (defalias 'lsp-document-link-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 196906)]) #@64 (fn &rest PLIST &key RESOLVE-PROVIDER\=\? &allow-other-keys) (defalias 'lsp-make-document-link-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :resolve-provider\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:resolve-provider\? . :resolveProvider))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 197225)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 197701)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 197865)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentOnTypeFormattingOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:more-trigger-character\? :first-trigger-character) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:more-trigger-character\? :first-trigger-character) gethash 1 nil assoc ((:more-trigger-character\? . :moreTriggerCharacter) (:first-trigger-character . :firstTriggerCharacter))] 7 (#$ . 198026)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentOnTypeFormattingOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:more-trigger-character\? :first-trigger-character) error "Unknown key: %s. Available keys: %s" (:more-trigger-character\? :first-trigger-character) when ht\? gethash symbol-name assoc ((:more-trigger-character\? . :moreTriggerCharacter) (:first-trigger-character . :firstTriggerCharacter)) 1 nil] 9 (#$ . 198576)]) #@15 (fn OBJECT) (defalias 'lsp-document-on-type-formatting-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("firstTriggerCharacter") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:firstTriggerCharacter)] 6 (#$ . 199065)]) #@94 (fn &rest PLIST &key MORE-TRIGGER-CHARACTER\=\? FIRST-TRIGGER-CHARACTER &allow-other-keys) (defalias 'lsp-make-document-on-type-formatting-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :more-trigger-character\? :first-trigger-character make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:more-trigger-character\? . :moreTriggerCharacter) (:first-trigger-character . :firstTriggerCharacter))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 199445)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-options-more-trigger-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "moreTriggerCharacter"] 4 (#$ . 200072)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-options-more-trigger-character\? #[514 "\300\301#\210\207" [puthash "moreTriggerCharacter"] 6 (#$ . 200261)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-options-first-trigger-character #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "firstTriggerCharacter"] 4 (#$ . 200447)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-options-first-trigger-character #[514 "\300\301#\210\207" [puthash "firstTriggerCharacter"] 6 (#$ . 200636)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentSymbol #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:children\? :deprecated\? :detail\? :kind :name :range :selection-range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:children\? :deprecated\? :detail\? :kind :name :range :selection-range) gethash 1 nil assoc ((:children\? . :children) (:deprecated\? . :deprecated) (:detail\? . :detail) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange))] 7 (#$ . 200822)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentSymbol\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:children\? :deprecated\? :detail\? :kind :name :range :selection-range) error "Unknown key: %s. Available keys: %s" (:children\? :deprecated\? :detail\? :kind :name :range :selection-range) when ht\? gethash symbol-name assoc ((:children\? . :children) (:deprecated\? . :deprecated) (:detail\? . :detail) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange)) 1 nil] 9 (#$ . 201458)]) #@15 (fn OBJECT) (defalias 'lsp-document-symbol\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "name" "range" "selectionRange") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :name :range :selectionRange)] 6 (#$ . 202033)]) #@114 (fn &rest PLIST &key CHILDREN\=\? DEPRECATED\=\? DETAIL\=\? KIND NAME RANGE SELECTION-RANGE &allow-other-keys) (defalias 'lsp-make-document-symbol #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\310\311\312\"\211\262\313\314\315\"\316\317\f\"\"\210\207" [plist-member :children\? :deprecated\? :detail\? :kind :name :range :selection-range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:children\? . :children) (:deprecated\? . :deprecated) (:detail\? . :detail) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange))] 9 "\n\n(fn INPUT0)"] -partition 2] 14 (#$ . 202421)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-children\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "children"] 4 (#$ . 203199)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-children\? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 203342)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 203482)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 203629)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 203773)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 203912)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 204048)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 204181)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 204311)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 204444)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 204574)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 204709)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 204841)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 204995)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentSymbolCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :hierarchical-document-symbol-support\? :symbol-kind\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :hierarchical-document-symbol-support\? :symbol-kind\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:hierarchical-document-symbol-support\? . :hierarchicalDocumentSymbolSupport) (:symbol-kind\? . :symbolKind))] 7 (#$ . 205146)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentSymbolCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :hierarchical-document-symbol-support\? :symbol-kind\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :hierarchical-document-symbol-support\? :symbol-kind\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:hierarchical-document-symbol-support\? . :hierarchicalDocumentSymbolSupport) (:symbol-kind\? . :symbolKind)) 1 nil] 9 (#$ . 205802)]) #@15 (fn OBJECT) (defalias 'lsp-document-symbol-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 206397)]) #@125 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? HIERARCHICAL-DOCUMENT-SYMBOL-SUPPORT\=\? SYMBOL-KIND\=\? &allow-other-keys) (defalias 'lsp-make-document-symbol-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :dynamic-registration\? :hierarchical-document-symbol-support\? :symbol-kind\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:hierarchical-document-symbol-support\? . :hierarchicalDocumentSymbolSupport) (:symbol-kind\? . :symbolKind))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 206724)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 207472)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 207651)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-hierarchical-document-symbol-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hierarchicalDocumentSymbolSupport"] 4 (#$ . 207827)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-hierarchical-document-symbol-support\? #[514 "\300\301#\210\207" [puthash "hierarchicalDocumentSymbolSupport"] 6 (#$ . 208036)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-symbol-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbolKind"] 4 (#$ . 208242)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-symbol-kind\? #[514 "\300\301#\210\207" [puthash "symbolKind"] 6 (#$ . 208403)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ExecuteCommandCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 208561)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ExecuteCommandCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 208995)]) #@15 (fn OBJECT) (defalias 'lsp-execute-command-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 209368)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-execute-command-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 209694)]) #@15 (fn OBJECT) (defalias 'lsp:execute-command-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 210193)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 210372)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ExecuteCommandOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:commands s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:commands) gethash 1 nil assoc ((:commands . :commands))] 7 (#$ . 210548)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ExecuteCommandOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:commands error "Unknown key: %s. Available keys: %s" (:commands) when ht\? gethash symbol-name assoc ((:commands . :commands)) 1 nil] 9 (#$ . 210924)]) #@15 (fn OBJECT) (defalias 'lsp-execute-command-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("commands") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:commands)] 6 (#$ . 211239)]) #@52 (fn &rest PLIST &key COMMANDS &allow-other-keys) (defalias 'lsp-make-execute-command-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :commands make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:commands . :commands))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 211581)]) #@15 (fn OBJECT) (defalias 'lsp:execute-command-options-commands #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commands"] 4 (#$ . 212020)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-options-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 212169)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileEvent #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:type :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:type :uri) gethash 1 nil assoc ((:type . :type) (:uri . :uri))] 7 (#$ . 212315)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileEvent\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:type :uri) error "Unknown key: %s. Available keys: %s" (:type :uri) when ht\? gethash symbol-name assoc ((:type . :type) (:uri . :uri)) 1 nil] 9 (#$ . 212689)]) #@15 (fn OBJECT) (defalias 'lsp-file-event\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("type" "uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:type :uri)] 6 (#$ . 213002)]) #@52 (fn &rest PLIST &key TYPE URI &allow-other-keys) (defalias 'lsp-make-file-event #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :type :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:type . :type) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 213334)]) #@15 (fn OBJECT) (defalias 'lsp:file-event-type #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "type"] 4 (#$ . 213780)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-event-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 213908)]) #@15 (fn OBJECT) (defalias 'lsp:file-event-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 214033)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-event-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 214159)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileSystemWatcher #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:kind\? :glob-pattern) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:kind\? :glob-pattern) gethash 1 nil assoc ((:kind\? . :kind) (:glob-pattern . :globPattern))] 7 (#$ . 214282)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileSystemWatcher\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:kind\? :glob-pattern) error "Unknown key: %s. Available keys: %s" (:kind\? :glob-pattern) when ht\? gethash symbol-name assoc ((:kind\? . :kind) (:glob-pattern . :globPattern)) 1 nil] 9 (#$ . 214705)]) #@15 (fn OBJECT) (defalias 'lsp-file-system-watcher\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("globPattern") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:globPattern)] 6 (#$ . 215067)]) #@65 (fn &rest PLIST &key KIND\=\? GLOB-PATTERN &allow-other-keys) (defalias 'lsp-make-file-system-watcher #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :kind\? :glob-pattern make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:kind\? . :kind) (:glob-pattern . :globPattern))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 215411)]) #@15 (fn OBJECT) (defalias 'lsp:file-system-watcher-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 215909)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-system-watcher-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 216048)]) #@15 (fn OBJECT) (defalias 'lsp:file-system-watcher-glob-pattern #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "globPattern"] 4 (#$ . 216184)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-system-watcher-glob-pattern #[514 "\300\301#\210\207" [puthash "globPattern"] 6 (#$ . 216336)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :line-folding-only\? :range-limit\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :line-folding-only\? :range-limit\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:line-folding-only\? . :lineFoldingOnly) (:range-limit\? . :rangeLimit))] 7 (#$ . 216485)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :line-folding-only\? :range-limit\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :line-folding-only\? :range-limit\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:line-folding-only\? . :lineFoldingOnly) (:range-limit\? . :rangeLimit)) 1 nil] 9 (#$ . 217064)]) #@15 (fn OBJECT) (defalias 'lsp-folding-range-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 217582)]) #@106 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? LINE-FOLDING-ONLY\=\? RANGE-LIMIT\=\? &allow-other-keys) (defalias 'lsp-make-folding-range-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :dynamic-registration\? :line-folding-only\? :range-limit\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:line-folding-only\? . :lineFoldingOnly) (:range-limit\? . :rangeLimit))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 217907)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 218578)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 218755)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-line-folding-only\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "lineFoldingOnly"] 4 (#$ . 218929)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-line-folding-only\? #[514 "\300\301#\210\207" [puthash "lineFoldingOnly"] 6 (#$ . 219099)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-range-limit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeLimit"] 4 (#$ . 219266)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-range-limit\? #[514 "\300\301#\210\207" [puthash "rangeLimit"] 6 (#$ . 219425)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeProviderOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :id\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :id\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:id\? . :id))] 7 (#$ . 219581)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeProviderOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :id\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :id\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:id\? . :id)) 1 nil] 9 (#$ . 220032)]) #@15 (fn OBJECT) (defalias 'lsp-folding-range-provider-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 220422)]) #@72 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? ID\=\? &allow-other-keys) (defalias 'lsp-make-folding-range-provider-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :document-selector\? :id\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:id\? . :id))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 220750)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-provider-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 221279)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-provider-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 221454)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-provider-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 221626)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-provider-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 221772)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FormattingCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 221915)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FormattingCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 222345)]) #@15 (fn OBJECT) (defalias 'lsp-formatting-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 222714)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-formatting-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 223035)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 223529)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 223703)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FormattingOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:trim-trailing-whitespace\? :insert-final-newline\? :trim-final-newlines\? :tab-size :insert-spaces) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:trim-trailing-whitespace\? :insert-final-newline\? :trim-final-newlines\? :tab-size :insert-spaces) gethash 1 nil assoc ((:trim-trailing-whitespace\? . :trimTrailingWhitespace) (:insert-final-newline\? . :insertFinalNewline) (:trim-final-newlines\? . :trimFinalNewlines) (:tab-size . :tabSize) (:insert-spaces . :insertSpaces))] 7 (#$ . 223874)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FormattingOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:trim-trailing-whitespace\? :insert-final-newline\? :trim-final-newlines\? :tab-size :insert-spaces) error "Unknown key: %s. Available keys: %s" (:trim-trailing-whitespace\? :insert-final-newline\? :trim-final-newlines\? :tab-size :insert-spaces) when ht\? gethash symbol-name assoc ((:trim-trailing-whitespace\? . :trimTrailingWhitespace) (:insert-final-newline\? . :insertFinalNewline) (:trim-final-newlines\? . :trimFinalNewlines) (:tab-size . :tabSize) (:insert-spaces . :insertSpaces)) 1 nil] 9 (#$ . 224610)]) #@15 (fn OBJECT) (defalias 'lsp-formatting-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("tabSize" "insertSpaces") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:tabSize :insertSpaces)] 6 (#$ . 225285)]) #@144 (fn &rest PLIST &key TRIM-TRAILING-WHITESPACE\=\? INSERT-FINAL-NEWLINE\=\? TRIM-FINAL-NEWLINES\=\? TAB-SIZE INSERT-SPACES &allow-other-keys) (defalias 'lsp-make-formatting-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :trim-trailing-whitespace\? :insert-final-newline\? :trim-final-newlines\? :tab-size :insert-spaces make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:trim-trailing-whitespace\? . :trimTrailingWhitespace) (:insert-final-newline\? . :insertFinalNewline) (:trim-final-newlines\? . :trimFinalNewlines) (:tab-size . :tabSize) (:insert-spaces . :insertSpaces))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 225650)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-trim-trailing-whitespace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "trimTrailingWhitespace"] 4 (#$ . 226502)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-trim-trailing-whitespace\? #[514 "\300\301#\210\207" [puthash "trimTrailingWhitespace"] 6 (#$ . 226678)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-insert-final-newline\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertFinalNewline"] 4 (#$ . 226851)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-insert-final-newline\? #[514 "\300\301#\210\207" [puthash "insertFinalNewline"] 6 (#$ . 227019)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-trim-final-newlines\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "trimFinalNewlines"] 4 (#$ . 227184)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-trim-final-newlines\? #[514 "\300\301#\210\207" [puthash "trimFinalNewlines"] 6 (#$ . 227350)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-tab-size #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tabSize"] 4 (#$ . 227513)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-tab-size #[514 "\300\301#\210\207" [puthash "tabSize"] 6 (#$ . 227656)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-insert-spaces #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertSpaces"] 4 (#$ . 227796)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-insert-spaces #[514 "\300\301#\210\207" [puthash "insertSpaces"] 6 (#$ . 227949)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&HoverCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:content-format\? :dynamic-registration\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:content-format\? :dynamic-registration\?) gethash 1 nil assoc ((:content-format\? . :contentFormat) (:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 228099)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&HoverCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:content-format\? :dynamic-registration\?) error "Unknown key: %s. Available keys: %s" (:content-format\? :dynamic-registration\?) when ht\? gethash symbol-name assoc ((:content-format\? . :contentFormat) (:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 228599)]) #@15 (fn OBJECT) (defalias 'lsp-hover-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 229038)]) #@87 (fn &rest PLIST &key CONTENT-FORMAT\=\? DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-hover-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :content-format\? :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:content-format\? . :contentFormat) (:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 229354)]) #@15 (fn OBJECT) (defalias 'lsp:hover-capabilities-content-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contentFormat"] 4 (#$ . 229930)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-capabilities-content-format\? #[514 "\300\301#\210\207" [puthash "contentFormat"] 6 (#$ . 230087)]) #@15 (fn OBJECT) (defalias 'lsp:hover-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 230241)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 230410)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ImplementationCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :link-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :link-support\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport))] 7 (#$ . 230576)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ImplementationCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :link-support\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :link-support\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport)) 1 nil] 9 (#$ . 231077)]) #@15 (fn OBJECT) (defalias 'lsp-implementation-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 231517)]) #@85 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? LINK-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-implementation-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :dynamic-registration\? :link-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 231842)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 232419)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 232597)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 232772)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 232934)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Location #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:range :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:range :uri) gethash 1 nil assoc ((:range . :range) (:uri . :uri))] 7 (#$ . 233093)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Location\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:range :uri) error "Unknown key: %s. Available keys: %s" (:range :uri) when ht\? gethash symbol-name assoc ((:range . :range) (:uri . :uri)) 1 nil] 9 (#$ . 233470)]) #@15 (fn OBJECT) (defalias 'lsp-location\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range" "uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range :uri)] 6 (#$ . 233786)]) #@53 (fn &rest PLIST &key RANGE URI &allow-other-keys) (defalias 'lsp-make-location #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :range :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:range . :range) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 234118)]) #@15 (fn OBJECT) (defalias 'lsp:location-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 234566)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 234694)]) #@15 (fn OBJECT) (defalias 'lsp:location-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 234819)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 234943)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MarkedString #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:language :value) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:language :value) gethash 1 nil assoc ((:language . :language) (:value . :value))] 7 (#$ . 235064)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MarkedString\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:language :value) error "Unknown key: %s. Available keys: %s" (:language :value) when ht\? gethash symbol-name assoc ((:language . :language) (:value . :value)) 1 nil] 9 (#$ . 235465)]) #@15 (fn OBJECT) (defalias 'lsp-marked-string\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("language" "value") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:language :value)] 6 (#$ . 235805)]) #@58 (fn &rest PLIST &key LANGUAGE VALUE &allow-other-keys) (defalias 'lsp-make-marked-string #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :language :value make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:language . :language) (:value . :value))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 236152)]) #@15 (fn OBJECT) (defalias 'lsp:marked-string-language #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "language"] 4 (#$ . 236625)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-marked-string-language #[514 "\300\301#\210\207" [puthash "language"] 6 (#$ . 236764)]) #@15 (fn OBJECT) (defalias 'lsp:marked-string-value #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "value"] 4 (#$ . 236900)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-marked-string-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 237033)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MarkupContent #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:kind :value) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:kind :value) gethash 1 nil assoc ((:kind . :kind) (:value . :value))] 7 (#$ . 237163)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MarkupContent\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:kind :value) error "Unknown key: %s. Available keys: %s" (:kind :value) when ht\? gethash symbol-name assoc ((:kind . :kind) (:value . :value)) 1 nil] 9 (#$ . 237549)]) #@15 (fn OBJECT) (defalias 'lsp-markup-content\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "value") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :value)] 6 (#$ . 237874)]) #@54 (fn &rest PLIST &key KIND VALUE &allow-other-keys) (defalias 'lsp-make-markup-content #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :kind :value make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:kind . :kind) (:value . :value))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 238214)]) #@15 (fn OBJECT) (defalias 'lsp:markup-content-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 238672)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-markup-content-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 238804)]) #@15 (fn OBJECT) (defalias 'lsp:markup-content-value #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "value"] 4 (#$ . 238933)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-markup-content-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 239067)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MessageActionItem #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:title s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:title) gethash 1 nil assoc ((:title . :title))] 7 (#$ . 239198)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MessageActionItem\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:title error "Unknown key: %s. Available keys: %s" (:title) when ht\? gethash symbol-name assoc ((:title . :title)) 1 nil] 9 (#$ . 239558)]) #@15 (fn OBJECT) (defalias 'lsp-message-action-item\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("title") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:title)] 6 (#$ . 239857)]) #@49 (fn &rest PLIST &key TITLE &allow-other-keys) (defalias 'lsp-make-message-action-item #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :title make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:title . :title))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 240189)]) #@15 (fn OBJECT) (defalias 'lsp:message-action-item-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 240612)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-action-item-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 240751)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&OnTypeFormattingCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 240887)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&OnTypeFormattingCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 241323)]) #@15 (fn OBJECT) (defalias 'lsp-on-type-formatting-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 241698)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-on-type-formatting-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 242027)]) #@15 (fn OBJECT) (defalias 'lsp:on-type-formatting-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 242529)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-on-type-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 242711)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ParameterInformation #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:documentation\? :label) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:documentation\? :label) gethash 1 nil assoc ((:documentation\? . :documentation) (:label . :label))] 7 (#$ . 242890)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ParameterInformation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:documentation\? :label) error "Unknown key: %s. Available keys: %s" (:documentation\? :label) when ht\? gethash symbol-name assoc ((:documentation\? . :documentation) (:label . :label)) 1 nil] 9 (#$ . 243325)]) #@15 (fn OBJECT) (defalias 'lsp-parameter-information\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("label") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:label)] 6 (#$ . 243699)]) #@67 (fn &rest PLIST &key DOCUMENTATION\=\? LABEL &allow-other-keys) (defalias 'lsp-make-parameter-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :documentation\? :label make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:documentation\? . :documentation) (:label . :label))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 244033)]) #@15 (fn OBJECT) (defalias 'lsp:parameter-information-documentation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentation"] 4 (#$ . 244542)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 244701)]) #@15 (fn OBJECT) (defalias 'lsp:parameter-information-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 244857)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 244998)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ParameterInformationCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:label-offset-support\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:label-offset-support\?) gethash 1 nil assoc ((:label-offset-support\? . :labelOffsetSupport))] 7 (#$ . 245136)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ParameterInformationCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:label-offset-support\? error "Unknown key: %s. Available keys: %s" (:label-offset-support\?) when ht\? gethash symbol-name assoc ((:label-offset-support\? . :labelOffsetSupport)) 1 nil] 9 (#$ . 245575)]) #@15 (fn OBJECT) (defalias 'lsp-parameter-information-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 245953)]) #@68 (fn &rest PLIST &key LABEL-OFFSET-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-parameter-information-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :label-offset-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:label-offset-support\? . :labelOffsetSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 246285)]) #@15 (fn OBJECT) (defalias 'lsp:parameter-information-capabilities-label-offset-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "labelOffsetSupport"] 4 (#$ . 246789)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-capabilities-label-offset-support\? #[514 "\300\301#\210\207" [puthash "labelOffsetSupport"] 6 (#$ . 246973)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Position #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:character :line) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:character :line) gethash 1 nil assoc ((:character . :character) (:line . :line))] 7 (#$ . 247154)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Position\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:character :line) error "Unknown key: %s. Available keys: %s" (:character :line) when ht\? gethash symbol-name assoc ((:character . :character) (:line . :line)) 1 nil] 9 (#$ . 247551)]) #@15 (fn OBJECT) (defalias 'lsp-position\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("character" "line") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:character :line)] 6 (#$ . 247887)]) #@58 (fn &rest PLIST &key CHARACTER LINE &allow-other-keys) (defalias 'lsp-make-position #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :character :line make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:character . :character) (:line . :line))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 248229)]) #@15 (fn OBJECT) (defalias 'lsp:position-character #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "character"] 4 (#$ . 248697)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-position-character #[514 "\300\301#\210\207" [puthash "character"] 6 (#$ . 248833)]) #@15 (fn OBJECT) (defalias 'lsp:position-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "line"] 4 (#$ . 248966)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-position-line #[514 "\300\301#\210\207" [puthash "line"] 6 (#$ . 249092)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PublishDiagnosticsCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:related-information\? :tag-support\? :version-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:related-information\? :tag-support\? :version-support\?) gethash 1 nil assoc ((:related-information\? . :relatedInformation) (:tag-support\? . :tagSupport) (:version-support\? . :versionSupport))] 7 (#$ . 249215)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PublishDiagnosticsCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:related-information\? :tag-support\? :version-support\?) error "Unknown key: %s. Available keys: %s" (:related-information\? :tag-support\? :version-support\?) when ht\? gethash symbol-name assoc ((:related-information\? . :relatedInformation) (:tag-support\? . :tagSupport) (:version-support\? . :versionSupport)) 1 nil] 9 (#$ . 249789)]) #@15 (fn OBJECT) (defalias 'lsp-publish-diagnostics-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 250302)]) #@103 (fn &rest PLIST &key RELATED-INFORMATION\=\? TAG-SUPPORT\=\? VERSION-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-publish-diagnostics-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :related-information\? :tag-support\? :version-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:related-information\? . :relatedInformation) (:tag-support\? . :tagSupport) (:version-support\? . :versionSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 250633)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-related-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "relatedInformation"] 4 (#$ . 251299)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-related-information\? #[514 "\300\301#\210\207" [puthash "relatedInformation"] 6 (#$ . 251480)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-tag-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tagSupport"] 4 (#$ . 251658)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-tag-support\? #[514 "\300\301#\210\207" [puthash "tagSupport"] 6 (#$ . 251823)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-version-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "versionSupport"] 4 (#$ . 251985)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-version-support\? #[514 "\300\301#\210\207" [puthash "versionSupport"] 6 (#$ . 252158)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Range #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:start :end) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:start :end) gethash 1 nil assoc ((:start . :start) (:end . :end))] 7 (#$ . 252328)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Range\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:start :end) error "Unknown key: %s. Available keys: %s" (:start :end) when ht\? gethash symbol-name assoc ((:start . :start) (:end . :end)) 1 nil] 9 (#$ . 252702)]) #@15 (fn OBJECT) (defalias 'lsp-range\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("start" "end") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:start :end)] 6 (#$ . 253015)]) #@53 (fn &rest PLIST &key START END &allow-other-keys) (defalias 'lsp-make-range #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :start :end make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:start . :start) (:end . :end))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 253344)]) #@15 (fn OBJECT) (defalias 'lsp:range-start #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "start"] 4 (#$ . 253789)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-start #[514 "\300\301#\210\207" [puthash "start"] 6 (#$ . 253914)]) #@15 (fn OBJECT) (defalias 'lsp:range-end #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "end"] 4 (#$ . 254036)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-end #[514 "\300\301#\210\207" [puthash "end"] 6 (#$ . 254157)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RangeFormattingCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 254275)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RangeFormattingCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 254710)]) #@15 (fn OBJECT) (defalias 'lsp-range-formatting-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 255084)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-range-formatting-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 255411)]) #@15 (fn OBJECT) (defalias 'lsp:range-formatting-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 255911)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 256091)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ReferenceContext #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:include-declaration s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:include-declaration) gethash 1 nil assoc ((:include-declaration . :includeDeclaration))] 7 (#$ . 256268)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ReferenceContext\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:include-declaration error "Unknown key: %s. Available keys: %s" (:include-declaration) when ht\? gethash symbol-name assoc ((:include-declaration . :includeDeclaration)) 1 nil] 9 (#$ . 256682)]) #@15 (fn OBJECT) (defalias 'lsp-reference-context\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("includeDeclaration") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:includeDeclaration)] 6 (#$ . 257035)]) #@63 (fn &rest PLIST &key INCLUDE-DECLARATION &allow-other-keys) (defalias 'lsp-make-reference-context #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :include-declaration make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:include-declaration . :includeDeclaration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 257391)]) #@15 (fn OBJECT) (defalias 'lsp:reference-context-include-declaration #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "includeDeclaration"] 4 (#$ . 257867)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-context-include-declaration #[514 "\300\301#\210\207" [puthash "includeDeclaration"] 6 (#$ . 258031)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ReferencesCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 258192)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ReferencesCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 258622)]) #@15 (fn OBJECT) (defalias 'lsp-references-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 258991)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-references-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 259312)]) #@15 (fn OBJECT) (defalias 'lsp:references-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 259806)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-references-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 259980)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Registration #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:register-options\? :method :id) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:register-options\? :method :id) gethash 1 nil assoc ((:register-options\? . :registerOptions) (:method . :method) (:id . :id))] 7 (#$ . 260151)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Registration\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:register-options\? :method :id) error "Unknown key: %s. Available keys: %s" (:register-options\? :method :id) when ht\? gethash symbol-name assoc ((:register-options\? . :registerOptions) (:method . :method) (:id . :id)) 1 nil] 9 (#$ . 260613)]) #@15 (fn OBJECT) (defalias 'lsp-registration\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("method" "id") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:method :id)] 6 (#$ . 261014)]) #@74 (fn &rest PLIST &key REGISTER-OPTIONS\=\? METHOD ID &allow-other-keys) (defalias 'lsp-make-registration #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :register-options\? :method :id make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:register-options\? . :registerOptions) (:method . :method) (:id . :id))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 261350)]) #@15 (fn OBJECT) (defalias 'lsp:registration-register-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "registerOptions"] 4 (#$ . 261898)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-register-options\? #[514 "\300\301#\210\207" [puthash "registerOptions"] 6 (#$ . 262053)]) #@15 (fn OBJECT) (defalias 'lsp:registration-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 262205)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 262339)]) #@15 (fn OBJECT) (defalias 'lsp:registration-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 262470)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 262596)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :prepare-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :prepare-support\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:prepare-support\? . :prepareSupport))] 7 (#$ . 262719)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :prepare-support\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :prepare-support\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:prepare-support\? . :prepareSupport)) 1 nil] 9 (#$ . 263224)]) #@15 (fn OBJECT) (defalias 'lsp-rename-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 263668)]) #@88 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? PREPARE-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-rename-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :dynamic-registration\? :prepare-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:prepare-support\? . :prepareSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 263985)]) #@15 (fn OBJECT) (defalias 'lsp:rename-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 264566)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 264736)]) #@15 (fn OBJECT) (defalias 'lsp:rename-capabilities-prepare-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "prepareSupport"] 4 (#$ . 264903)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-capabilities-prepare-support\? #[514 "\300\301#\210\207" [puthash "prepareSupport"] 6 (#$ . 265063)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameFileOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:ignore-if-exists\? :overwrite\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:ignore-if-exists\? :overwrite\?) gethash 1 nil assoc ((:ignore-if-exists\? . :ignoreIfExists) (:overwrite\? . :overwrite))] 7 (#$ . 265220)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameFileOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:ignore-if-exists\? :overwrite\?) error "Unknown key: %s. Available keys: %s" (:ignore-if-exists\? :overwrite\?) when ht\? gethash symbol-name assoc ((:ignore-if-exists\? . :ignoreIfExists) (:overwrite\? . :overwrite)) 1 nil] 9 (#$ . 265684)]) #@15 (fn OBJECT) (defalias 'lsp-rename-file-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 266087)]) #@78 (fn &rest PLIST &key IGNORE-IF-EXISTS\=\? OVERWRITE\=\? &allow-other-keys) (defalias 'lsp-make-rename-file-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :ignore-if-exists\? :overwrite\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:ignore-if-exists\? . :ignoreIfExists) (:overwrite\? . :overwrite))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 266404)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-options-ignore-if-exists\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ignoreIfExists"] 4 (#$ . 266945)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options-ignore-if-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfExists"] 6 (#$ . 267106)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-options-overwrite\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "overwrite"] 4 (#$ . 267264)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options-overwrite\? #[514 "\300\301#\210\207" [puthash "overwrite"] 6 (#$ . 267413)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :id\? :prepare-provider\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :id\? :prepare-provider\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:id\? . :id) (:prepare-provider\? . :prepareProvider))] 7 (#$ . 267559)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :id\? :prepare-provider\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :id\? :prepare-provider\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:id\? . :id) (:prepare-provider\? . :prepareProvider)) 1 nil] 9 (#$ . 268077)]) #@15 (fn OBJECT) (defalias 'lsp-rename-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 268534)]) #@93 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? ID\=\? PREPARE-PROVIDER\=\? &allow-other-keys) (defalias 'lsp-make-rename-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :document-selector\? :id\? :prepare-provider\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:id\? . :id) (:prepare-provider\? . :prepareProvider))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 268846)]) #@15 (fn OBJECT) (defalias 'lsp:rename-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 269455)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 269614)]) #@15 (fn OBJECT) (defalias 'lsp:rename-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 269770)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 269900)]) #@15 (fn OBJECT) (defalias 'lsp:rename-options-prepare-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "prepareProvider"] 4 (#$ . 270027)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-prepare-provider\? #[514 "\300\301#\210\207" [puthash "prepareProvider"] 6 (#$ . 270184)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResourceChange #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:current\? :new-uri\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:current\? :new-uri\?) gethash 1 nil assoc ((:current\? . :current) (:new-uri\? . :newUri))] 7 (#$ . 270338)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResourceChange\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:current\? :new-uri\?) error "Unknown key: %s. Available keys: %s" (:current\? :new-uri\?) when ht\? gethash symbol-name assoc ((:current\? . :current) (:new-uri\? . :newUri)) 1 nil] 9 (#$ . 270756)]) #@15 (fn OBJECT) (defalias 'lsp-resource-change\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 271113)]) #@67 (fn &rest PLIST &key CURRENT\=\? NEW-URI\=\? &allow-other-keys) (defalias 'lsp-make-resource-change #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :current\? :new-uri\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:current\? . :current) (:new-uri\? . :newUri))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 271426)]) #@15 (fn OBJECT) (defalias 'lsp:resource-change-current\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "current"] 4 (#$ . 271920)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-change-current\? #[514 "\300\301#\210\207" [puthash "current"] 6 (#$ . 272061)]) #@15 (fn OBJECT) (defalias 'lsp:resource-change-new-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newUri"] 4 (#$ . 272199)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-change-new-uri\? #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 272339)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResourceOperation #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:kind s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:kind) gethash 1 nil assoc ((:kind . :kind))] 7 (#$ . 272476)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResourceOperation\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:kind error "Unknown key: %s. Available keys: %s" (:kind) when ht\? gethash symbol-name assoc ((:kind . :kind)) 1 nil] 9 (#$ . 272832)]) #@15 (fn OBJECT) (defalias 'lsp-resource-operation\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind)] 6 (#$ . 273127)]) #@48 (fn &rest PLIST &key KIND &allow-other-keys) (defalias 'lsp-make-resource-operation #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:kind . :kind))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 273456)]) #@15 (fn OBJECT) (defalias 'lsp:resource-operation-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 273874)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-operation-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 274010)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SaveOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:include-text\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:include-text\?) gethash 1 nil assoc ((:include-text\? . :includeText))] 7 (#$ . 274143)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SaveOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:include-text\? error "Unknown key: %s. Available keys: %s" (:include-text\?) when ht\? gethash symbol-name assoc ((:include-text\? . :includeText)) 1 nil] 9 (#$ . 274530)]) #@15 (fn OBJECT) (defalias 'lsp-save-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 274856)]) #@60 (fn &rest PLIST &key INCLUDE-TEXT\=\? &allow-other-keys) (defalias 'lsp-make-save-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :include-text\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:include-text\? . :includeText))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 275166)]) #@15 (fn OBJECT) (defalias 'lsp:save-options-include-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "includeText"] 4 (#$ . 275617)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-save-options-include-text\? #[514 "\300\301#\210\207" [puthash "includeText"] 6 (#$ . 275764)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SelectionRange #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:parent\? :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:parent\? :range) gethash 1 nil assoc ((:parent\? . :parent) (:range . :range))] 7 (#$ . 275908)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SelectionRange\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:parent\? :range) error "Unknown key: %s. Available keys: %s" (:parent\? :range) when ht\? gethash symbol-name assoc ((:parent\? . :parent) (:range . :range)) 1 nil] 9 (#$ . 276309)]) #@15 (fn OBJECT) (defalias 'lsp-selection-range\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range)] 6 (#$ . 276649)]) #@60 (fn &rest PLIST &key PARENT\=\? RANGE &allow-other-keys) (defalias 'lsp-make-selection-range #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :parent\? :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:parent\? . :parent) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 276977)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-parent\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parent"] 4 (#$ . 277452)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-parent\? #[514 "\300\301#\210\207" [puthash "parent"] 6 (#$ . 277591)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 277727)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 277862)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SelectionRangeCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 277994)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SelectionRangeCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 278428)]) #@15 (fn OBJECT) (defalias 'lsp-selection-range-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 278801)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-selection-range-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 279127)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 279626)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 279805)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticHighlightingCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:semantic-highlighting\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:semantic-highlighting\?) gethash 1 nil assoc ((:semantic-highlighting\? . :semanticHighlighting))] 7 (#$ . 279981)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticHighlightingCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:semantic-highlighting\? error "Unknown key: %s. Available keys: %s" (:semantic-highlighting\?) when ht\? gethash symbol-name assoc ((:semantic-highlighting\? . :semanticHighlighting)) 1 nil] 9 (#$ . 280425)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-highlighting-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 280808)]) #@69 (fn &rest PLIST &key SEMANTIC-HIGHLIGHTING\=\? &allow-other-keys) (defalias 'lsp-make-semantic-highlighting-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :semantic-highlighting\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:semantic-highlighting\? . :semanticHighlighting))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 281140)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-capabilities-semantic-highlighting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticHighlighting"] 4 (#$ . 281649)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-capabilities-semantic-highlighting\? #[514 "\300\301#\210\207" [puthash "semanticHighlighting"] 6 (#$ . 281836)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticHighlightingInformation #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:tokens\? :line) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:tokens\? :line) gethash 1 nil assoc ((:tokens\? . :tokens) (:line . :line))] 7 (#$ . 282020)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticHighlightingInformation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:tokens\? :line) error "Unknown key: %s. Available keys: %s" (:tokens\? :line) when ht\? gethash symbol-name assoc ((:tokens\? . :tokens) (:line . :line)) 1 nil] 9 (#$ . 282434)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-highlighting-information\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("line") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:line)] 6 (#$ . 282787)]) #@59 (fn &rest PLIST &key TOKENS\=\? LINE &allow-other-keys) (defalias 'lsp-make-semantic-highlighting-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :tokens\? :line make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:tokens\? . :tokens) (:line . :line))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 283131)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-information-tokens\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tokens"] 4 (#$ . 283620)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-information-tokens\? #[514 "\300\301#\210\207" [puthash "tokens"] 6 (#$ . 283777)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-information-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "line"] 4 (#$ . 283931)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-information-line #[514 "\300\301#\210\207" [puthash "line"] 6 (#$ . 284082)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticHighlightingServerCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:scopes\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:scopes\?) gethash 1 nil assoc ((:scopes\? . :scopes))] 7 (#$ . 284230)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticHighlightingServerCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:scopes\? error "Unknown key: %s. Available keys: %s" (:scopes\?) when ht\? gethash symbol-name assoc ((:scopes\? . :scopes)) 1 nil] 9 (#$ . 284621)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-highlighting-server-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 284951)]) #@54 (fn &rest PLIST &key SCOPES\=\? &allow-other-keys) (defalias 'lsp-make-semantic-highlighting-server-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :scopes\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:scopes\? . :scopes))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 285290)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-server-capabilities-scopes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "scopes"] 4 (#$ . 285747)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-server-capabilities-scopes\? #[514 "\300\301#\210\207" [puthash "scopes"] 6 (#$ . 285912)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ServerCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:call-hierarchy-provider\? :code-action-provider\? :code-lens-provider\? :color-provider\? :completion-provider\? :declaration-provider\? :definition-provider\? :document-formatting-provider\? :document-highlight-provider\? :document-link-provider\? :document-on-type-formatting-provider\? :document-range-formatting-provider\? :document-symbol-provider\? :execute-command-provider\? :experimental\? :folding-range-provider\? :hover-provider\? :implementation-provider\? :references-provider\? :rename-provider\? :selection-range-provider\? :semantic-highlighting\? :signature-help-provider\? :text-document-sync\? :type-definition-provider\? :type-hierarchy-provider\? :workspace\? :workspace-symbol-provider\? :semantic-tokens-provider\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:call-hierarchy-provider\? :code-action-provider\? :code-lens-provider\? :color-provider\? :completion-provider\? :declaration-provider\? :definition-provider\? :document-formatting-provider\? :document-highlight-provider\? :document-link-provider\? :document-on-type-formatting-provider\? :document-range-formatting-provider\? :document-symbol-provider\? :execute-command-provider\? :experimental\? :folding-range-provider\? :hover-provider\? :implementation-provider\? :references-provider\? :rename-provider\? :selection-range-provider\? :semantic-highlighting\? :signature-help-provider\? :text-document-sync\? :type-definition-provider\? :type-hierarchy-provider\? :workspace\? :workspace-symbol-provider\? :semantic-tokens-provider\?) gethash 1 nil assoc ((:call-hierarchy-provider\? . :callHierarchyProvider) (:code-action-provider\? . :codeActionProvider) (:code-lens-provider\? . :codeLensProvider) (:color-provider\? . :colorProvider) (:completion-provider\? . :completionProvider) (:declaration-provider\? . :declarationProvider) (:definition-provider\? . :definitionProvider) (:document-formatting-provider\? . :documentFormattingProvider) (:document-highlight-provider\? . :documentHighlightProvider) (:document-link-provider\? . :documentLinkProvider) (:document-on-type-formatting-provider\? . :documentOnTypeFormattingProvider) (:document-range-formatting-provider\? . :documentRangeFormattingProvider) (:document-symbol-provider\? . :documentSymbolProvider) (:execute-command-provider\? . :executeCommandProvider) (:experimental\? . :experimental) (:folding-range-provider\? . :foldingRangeProvider) (:hover-provider\? . :hoverProvider) (:implementation-provider\? . :implementationProvider) (:references-provider\? . :referencesProvider) (:rename-provider\? . :renameProvider) (:selection-range-provider\? . :selectionRangeProvider) (:semantic-highlighting\? . :semanticHighlighting) (:signature-help-provider\? . :signatureHelpProvider) (:text-document-sync\? . :textDocumentSync) (:type-definition-provider\? . :typeDefinitionProvider) (:type-hierarchy-provider\? . :typeHierarchyProvider) (:workspace\? . :workspace) (:workspace-symbol-provider\? . :workspaceSymbolProvider) (:semantic-tokens-provider\? . :semanticTokensProvider))] 7 (#$ . 286074)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ServerCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:call-hierarchy-provider\? :code-action-provider\? :code-lens-provider\? :color-provider\? :completion-provider\? :declaration-provider\? :definition-provider\? :document-formatting-provider\? :document-highlight-provider\? :document-link-provider\? :document-on-type-formatting-provider\? :document-range-formatting-provider\? :document-symbol-provider\? :execute-command-provider\? :experimental\? :folding-range-provider\? :hover-provider\? :implementation-provider\? :references-provider\? :rename-provider\? :selection-range-provider\? :semantic-highlighting\? :signature-help-provider\? :text-document-sync\? :type-definition-provider\? :type-hierarchy-provider\? :workspace\? :workspace-symbol-provider\? :semantic-tokens-provider\?) error "Unknown key: %s. Available keys: %s" (:call-hierarchy-provider\? :code-action-provider\? :code-lens-provider\? :color-provider\? :completion-provider\? :declaration-provider\? :definition-provider\? :document-formatting-provider\? :document-highlight-provider\? :document-link-provider\? :document-on-type-formatting-provider\? :document-range-formatting-provider\? :document-symbol-provider\? :execute-command-provider\? :experimental\? :folding-range-provider\? :hover-provider\? :implementation-provider\? :references-provider\? :rename-provider\? :selection-range-provider\? :semantic-highlighting\? :signature-help-provider\? :text-document-sync\? :type-definition-provider\? :type-hierarchy-provider\? :workspace\? :workspace-symbol-provider\? :semantic-tokens-provider\?) when ht\? gethash symbol-name assoc ((:call-hierarchy-provider\? . :callHierarchyProvider) (:code-action-provider\? . :codeActionProvider) (:code-lens-provider\? . :codeLensProvider) (:color-provider\? . :colorProvider) (:completion-provider\? . :completionProvider) (:declaration-provider\? . :declarationProvider) (:definition-provider\? . :definitionProvider) (:document-formatting-provider\? . :documentFormattingProvider) (:document-highlight-provider\? . :documentHighlightProvider) (:document-link-provider\? . :documentLinkProvider) (:document-on-type-formatting-provider\? . :documentOnTypeFormattingProvider) (:document-range-formatting-provider\? . :documentRangeFormattingProvider) (:document-symbol-provider\? . :documentSymbolProvider) (:execute-command-provider\? . :executeCommandProvider) (:experimental\? . :experimental) (:folding-range-provider\? . :foldingRangeProvider) (:hover-provider\? . :hoverProvider) (:implementation-provider\? . :implementationProvider) (:references-provider\? . :referencesProvider) (:rename-provider\? . :renameProvider) (:selection-range-provider\? . :selectionRangeProvider) (:semantic-highlighting\? . :semanticHighlighting) (:signature-help-provider\? . :signatureHelpProvider) (:text-document-sync\? . :textDocumentSync) (:type-definition-provider\? . :typeDefinitionProvider) (:type-hierarchy-provider\? . :typeHierarchyProvider) (:workspace\? . :workspace) (:workspace-symbol-provider\? . :workspaceSymbolProvider) (:semantic-tokens-provider\? . :semanticTokensProvider)) 1 nil] 9 (#$ . 289375)]) #@15 (fn OBJECT) (defalias 'lsp-server-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 292615)]) #@812 (fn &rest PLIST &key CALL-HIERARCHY-PROVIDER\=\? CODE-ACTION-PROVIDER\=\? CODE-LENS-PROVIDER\=\? COLOR-PROVIDER\=\? COMPLETION-PROVIDER\=\? DECLARATION-PROVIDER\=\? DEFINITION-PROVIDER\=\? DOCUMENT-FORMATTING-PROVIDER\=\? DOCUMENT-HIGHLIGHT-PROVIDER\=\? DOCUMENT-LINK-PROVIDER\=\? DOCUMENT-ON-TYPE-FORMATTING-PROVIDER\=\? DOCUMENT-RANGE-FORMATTING-PROVIDER\=\? DOCUMENT-SYMBOL-PROVIDER\=\? EXECUTE-COMMAND-PROVIDER\=\? EXPERIMENTAL\=\? FOLDING-RANGE-PROVIDER\=\? HOVER-PROVIDER\=\? IMPLEMENTATION-PROVIDER\=\? REFERENCES-PROVIDER\=\? RENAME-PROVIDER\=\? SELECTION-RANGE-PROVIDER\=\? SEMANTIC-HIGHLIGHTING\=\? SIGNATURE-HELP-PROVIDER\=\? TEXT-DOCUMENT-SYNC\=\? TYPE-DEFINITION-PROVIDER\=\? TYPE-HIERARCHY-PROVIDER\=\? WORKSPACE\=\? WORKSPACE-SYMBOL-PROVIDER\=\? SEMANTIC-TOKENS-PROVIDER\=\? &allow-other-keys) (defalias 'lsp-make-server-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"A@\300\322\"A@\300\323\"A@\300\324\"A@\300\325\"A@\300\326\"A@\300\327\"A@\300\330\"A@\300\331\"A@\300\332\"A@\300\333\"A@\300\334\"A@\300\335\"A@\336\337\340\"\211\262\341\342\343\"\344\345\"\"\"\210\207" [plist-member :call-hierarchy-provider\? :code-action-provider\? :code-lens-provider\? :color-provider\? :completion-provider\? :declaration-provider\? :definition-provider\? :document-formatting-provider\? :document-highlight-provider\? :document-link-provider\? :document-on-type-formatting-provider\? :document-range-formatting-provider\? :document-symbol-provider\? :execute-command-provider\? :experimental\? :folding-range-provider\? :hover-provider\? :implementation-provider\? :references-provider\? :rename-provider\? :selection-range-provider\? :semantic-highlighting\? :signature-help-provider\? :text-document-sync\? :type-definition-provider\? :type-hierarchy-provider\? :workspace\? :workspace-symbol-provider\? :semantic-tokens-provider\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:call-hierarchy-provider\? . :callHierarchyProvider) (:code-action-provider\? . :codeActionProvider) (:code-lens-provider\? . :codeLensProvider) (:color-provider\? . :colorProvider) (:completion-provider\? . :completionProvider) (:declaration-provider\? . :declarationProvider) (:definition-provider\? . :definitionProvider) (:document-formatting-provider\? . :documentFormattingProvider) (:document-highlight-provider\? . :documentHighlightProvider) (:document-link-provider\? . :documentLinkProvider) (:document-on-type-formatting-provider\? . :documentOnTypeFormattingProvider) (:document-range-formatting-provider\? . :documentRangeFormattingProvider) (:document-symbol-provider\? . :documentSymbolProvider) (:execute-command-provider\? . :executeCommandProvider) (:experimental\? . :experimental) (:folding-range-provider\? . :foldingRangeProvider) (:hover-provider\? . :hoverProvider) (:implementation-provider\? . :implementationProvider) (:references-provider\? . :referencesProvider) (:rename-provider\? . :renameProvider) (:selection-range-provider\? . :selectionRangeProvider) (:semantic-highlighting\? . :semanticHighlighting) (:signature-help-provider\? . :signatureHelpProvider) (:text-document-sync\? . :textDocumentSync) (:type-definition-provider\? . :typeDefinitionProvider) (:type-hierarchy-provider\? . :typeHierarchyProvider) (:workspace\? . :workspace) (:workspace-symbol-provider\? . :workspaceSymbolProvider) (:semantic-tokens-provider\? . :semanticTokensProvider))] 9 "\n\n(fn INPUT0)"] -partition 2] 36 (#$ . 292933)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-call-hierarchy-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "callHierarchyProvider"] 4 (#$ . 296716)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-call-hierarchy-provider\? #[514 "\300\301#\210\207" [puthash "callHierarchyProvider"] 6 (#$ . 296891)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-code-action-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionProvider"] 4 (#$ . 297063)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-code-action-provider\? #[514 "\300\301#\210\207" [puthash "codeActionProvider"] 6 (#$ . 297232)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-code-lens-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeLensProvider"] 4 (#$ . 297398)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-code-lens-provider\? #[514 "\300\301#\210\207" [puthash "codeLensProvider"] 6 (#$ . 297563)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-color-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "colorProvider"] 4 (#$ . 297725)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-color-provider\? #[514 "\300\301#\210\207" [puthash "colorProvider"] 6 (#$ . 297883)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-completion-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completionProvider"] 4 (#$ . 298038)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-completion-provider\? #[514 "\300\301#\210\207" [puthash "completionProvider"] 6 (#$ . 298206)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-declaration-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "declarationProvider"] 4 (#$ . 298371)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-declaration-provider\? #[514 "\300\301#\210\207" [puthash "declarationProvider"] 6 (#$ . 298541)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-definition-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "definitionProvider"] 4 (#$ . 298708)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-definition-provider\? #[514 "\300\301#\210\207" [puthash "definitionProvider"] 6 (#$ . 298876)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentFormattingProvider"] 4 (#$ . 299041)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentFormattingProvider"] 6 (#$ . 299226)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-highlight-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentHighlightProvider"] 4 (#$ . 299408)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-highlight-provider\? #[514 "\300\301#\210\207" [puthash "documentHighlightProvider"] 6 (#$ . 299591)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-link-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentLinkProvider"] 4 (#$ . 299771)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-link-provider\? #[514 "\300\301#\210\207" [puthash "documentLinkProvider"] 6 (#$ . 299944)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-on-type-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentOnTypeFormattingProvider"] 4 (#$ . 300114)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-on-type-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentOnTypeFormattingProvider"] 6 (#$ . 300313)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-range-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentRangeFormattingProvider"] 4 (#$ . 300509)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-range-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentRangeFormattingProvider"] 6 (#$ . 300705)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-symbol-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSymbolProvider"] 4 (#$ . 300898)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-symbol-provider\? #[514 "\300\301#\210\207" [puthash "documentSymbolProvider"] 6 (#$ . 301075)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-execute-command-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executeCommandProvider"] 4 (#$ . 301249)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-execute-command-provider\? #[514 "\300\301#\210\207" [puthash "executeCommandProvider"] 6 (#$ . 301426)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-experimental\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "experimental"] 4 (#$ . 301600)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-experimental\? #[514 "\300\301#\210\207" [puthash "experimental"] 6 (#$ . 301755)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-folding-range-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "foldingRangeProvider"] 4 (#$ . 301907)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-folding-range-provider\? #[514 "\300\301#\210\207" [puthash "foldingRangeProvider"] 6 (#$ . 302080)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-hover-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hoverProvider"] 4 (#$ . 302250)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-hover-provider\? #[514 "\300\301#\210\207" [puthash "hoverProvider"] 6 (#$ . 302408)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-implementation-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "implementationProvider"] 4 (#$ . 302563)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-implementation-provider\? #[514 "\300\301#\210\207" [puthash "implementationProvider"] 6 (#$ . 302739)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-references-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "referencesProvider"] 4 (#$ . 302912)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-references-provider\? #[514 "\300\301#\210\207" [puthash "referencesProvider"] 6 (#$ . 303080)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-rename-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "renameProvider"] 4 (#$ . 303245)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-rename-provider\? #[514 "\300\301#\210\207" [puthash "renameProvider"] 6 (#$ . 303405)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-selection-range-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRangeProvider"] 4 (#$ . 303562)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-selection-range-provider\? #[514 "\300\301#\210\207" [puthash "selectionRangeProvider"] 6 (#$ . 303739)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-semantic-highlighting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticHighlighting"] 4 (#$ . 303913)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-semantic-highlighting\? #[514 "\300\301#\210\207" [puthash "semanticHighlighting"] 6 (#$ . 304085)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-signature-help-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureHelpProvider"] 4 (#$ . 304254)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-signature-help-provider\? #[514 "\300\301#\210\207" [puthash "signatureHelpProvider"] 6 (#$ . 304429)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-text-document-sync\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocumentSync"] 4 (#$ . 304601)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-text-document-sync\? #[514 "\300\301#\210\207" [puthash "textDocumentSync"] 6 (#$ . 304766)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-type-definition-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeDefinitionProvider"] 4 (#$ . 304928)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-type-definition-provider\? #[514 "\300\301#\210\207" [puthash "typeDefinitionProvider"] 6 (#$ . 305105)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-type-hierarchy-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeHierarchyProvider"] 4 (#$ . 305279)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-type-hierarchy-provider\? #[514 "\300\301#\210\207" [puthash "typeHierarchyProvider"] 6 (#$ . 305454)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-workspace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspace"] 4 (#$ . 305626)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-workspace\? #[514 "\300\301#\210\207" [puthash "workspace"] 6 (#$ . 305775)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-workspace-symbol-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceSymbolProvider"] 4 (#$ . 305921)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-workspace-symbol-provider\? #[514 "\300\301#\210\207" [puthash "workspaceSymbolProvider"] 6 (#$ . 306100)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-semantic-tokens-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticTokensProvider"] 4 (#$ . 306276)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-semantic-tokens-provider\? #[514 "\300\301#\210\207" [puthash "semanticTokensProvider"] 6 (#$ . 306453)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ServerInfo #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:version\? :name) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:version\? :name) gethash 1 nil assoc ((:version\? . :version) (:name . :name))] 7 (#$ . 306627)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ServerInfo\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:version\? :name) error "Unknown key: %s. Available keys: %s" (:version\? :name) when ht\? gethash symbol-name assoc ((:version\? . :version) (:name . :name)) 1 nil] 9 (#$ . 307024)]) #@15 (fn OBJECT) (defalias 'lsp-server-info\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("name") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:name)] 6 (#$ . 307360)]) #@60 (fn &rest PLIST &key VERSION\=\? NAME &allow-other-keys) (defalias 'lsp-make-server-info #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :version\? :name make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:version\? . :version) (:name . :name))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 307682)]) #@15 (fn OBJECT) (defalias 'lsp:server-info-version\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 308153)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-info-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 308290)]) #@15 (fn OBJECT) (defalias 'lsp:server-info-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 308424)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-info-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 308553)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelp #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:active-parameter\? :active-signature\? :signatures) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:active-parameter\? :active-signature\? :signatures) gethash 1 nil assoc ((:active-parameter\? . :activeParameter) (:active-signature\? . :activeSignature) (:signatures . :signatures))] 7 (#$ . 308679)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelp\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:active-parameter\? :active-signature\? :signatures) error "Unknown key: %s. Available keys: %s" (:active-parameter\? :active-signature\? :signatures) when ht\? gethash symbol-name assoc ((:active-parameter\? . :activeParameter) (:active-signature\? . :activeSignature) (:signatures . :signatures)) 1 nil] 9 (#$ . 309219)]) #@15 (fn OBJECT) (defalias 'lsp-signature-help\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("signatures") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:signatures)] 6 (#$ . 309698)]) #@96 (fn &rest PLIST &key ACTIVE-PARAMETER\=\? ACTIVE-SIGNATURE\=\? SIGNATURES &allow-other-keys) (defalias 'lsp-make-signature-help #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :active-parameter\? :active-signature\? :signatures make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:active-parameter\? . :activeParameter) (:active-signature\? . :activeSignature) (:signatures . :signatures))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 310035)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-active-parameter\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "activeParameter"] 4 (#$ . 310664)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-active-parameter\? #[514 "\300\301#\210\207" [puthash "activeParameter"] 6 (#$ . 310821)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-active-signature\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "activeSignature"] 4 (#$ . 310975)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-active-signature\? #[514 "\300\301#\210\207" [puthash "activeSignature"] 6 (#$ . 311132)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-signatures #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatures"] 4 (#$ . 311286)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-signatures #[514 "\300\301#\210\207" [puthash "signatures"] 6 (#$ . 311430)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:context-support\? :dynamic-registration\? :signature-information\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:context-support\? :dynamic-registration\? :signature-information\?) gethash 1 nil assoc ((:context-support\? . :contextSupport) (:dynamic-registration\? . :dynamicRegistration) (:signature-information\? . :signatureInformation))] 7 (#$ . 311571)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:context-support\? :dynamic-registration\? :signature-information\?) error "Unknown key: %s. Available keys: %s" (:context-support\? :dynamic-registration\? :signature-information\?) when ht\? gethash symbol-name assoc ((:context-support\? . :contextSupport) (:dynamic-registration\? . :dynamicRegistration) (:signature-information\? . :signatureInformation)) 1 nil] 9 (#$ . 312184)]) #@15 (fn OBJECT) (defalias 'lsp-signature-help-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 312736)]) #@114 (fn &rest PLIST &key CONTEXT-SUPPORT\=\? DYNAMIC-REGISTRATION\=\? SIGNATURE-INFORMATION\=\? &allow-other-keys) (defalias 'lsp-make-signature-help-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :context-support\? :dynamic-registration\? :signature-information\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:context-support\? . :contextSupport) (:dynamic-registration\? . :dynamicRegistration) (:signature-information\? . :signatureInformation))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 313062)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-context-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contextSupport"] 4 (#$ . 313767)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-context-support\? #[514 "\300\301#\210\207" [puthash "contextSupport"] 6 (#$ . 313935)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 314100)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 314278)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-signature-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureInformation"] 4 (#$ . 314453)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-signature-information\? #[514 "\300\301#\210\207" [puthash "signatureInformation"] 6 (#$ . 314633)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpContext #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:active-signature-help\? :trigger-character\? :trigger-kind :is-retrigger) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:active-signature-help\? :trigger-character\? :trigger-kind :is-retrigger) gethash 1 nil assoc ((:active-signature-help\? . :activeSignatureHelp) (:trigger-character\? . :triggerCharacter) (:trigger-kind . :triggerKind) (:is-retrigger . :isRetrigger))] 7 (#$ . 314810)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpContext\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:active-signature-help\? :trigger-character\? :trigger-kind :is-retrigger) error "Unknown key: %s. Available keys: %s" (:active-signature-help\? :trigger-character\? :trigger-kind :is-retrigger) when ht\? gethash symbol-name assoc ((:active-signature-help\? . :activeSignatureHelp) (:trigger-character\? . :triggerCharacter) (:trigger-kind . :triggerKind) (:is-retrigger . :isRetrigger)) 1 nil] 9 (#$ . 315446)]) #@15 (fn OBJECT) (defalias 'lsp-signature-help-context\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("triggerKind" "isRetrigger") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:triggerKind :isRetrigger)] 6 (#$ . 316021)]) #@117 (fn &rest PLIST &key ACTIVE-SIGNATURE-HELP\=\? TRIGGER-CHARACTER\=\? TRIGGER-KIND IS-RETRIGGER &allow-other-keys) (defalias 'lsp-make-signature-help-context #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :active-signature-help\? :trigger-character\? :trigger-kind :is-retrigger make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:active-signature-help\? . :activeSignatureHelp) (:trigger-character\? . :triggerCharacter) (:trigger-kind . :triggerKind) (:is-retrigger . :isRetrigger))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 316396)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-active-signature-help\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "activeSignatureHelp"] 4 (#$ . 317134)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-active-signature-help\? #[514 "\300\301#\210\207" [puthash "activeSignatureHelp"] 6 (#$ . 317308)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-trigger-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacter"] 4 (#$ . 317479)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-trigger-character\? #[514 "\300\301#\210\207" [puthash "triggerCharacter"] 6 (#$ . 317646)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerKind"] 4 (#$ . 317810)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 317965)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-is-retrigger #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isRetrigger"] 4 (#$ . 318117)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-is-retrigger #[514 "\300\301#\210\207" [puthash "isRetrigger"] 6 (#$ . 318272)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:retrigger-characters\? :trigger-characters\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:retrigger-characters\? :trigger-characters\?) gethash 1 nil assoc ((:retrigger-characters\? . :retriggerCharacters) (:trigger-characters\? . :triggerCharacters))] 7 (#$ . 318424)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:retrigger-characters\? :trigger-characters\?) error "Unknown key: %s. Available keys: %s" (:retrigger-characters\? :trigger-characters\?) when ht\? gethash symbol-name assoc ((:retrigger-characters\? . :retriggerCharacters) (:trigger-characters\? . :triggerCharacters)) 1 nil] 9 (#$ . 318943)]) #@15 (fn OBJECT) (defalias 'lsp-signature-help-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 319401)]) #@91 (fn &rest PLIST &key RETRIGGER-CHARACTERS\=\? TRIGGER-CHARACTERS\=\? &allow-other-keys) (defalias 'lsp-make-signature-help-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :retrigger-characters\? :trigger-characters\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:retrigger-characters\? . :retriggerCharacters) (:trigger-characters\? . :triggerCharacters))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 319721)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-options-retrigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "retriggerCharacters"] 4 (#$ . 320317)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-options-retrigger-characters\? #[514 "\300\301#\210\207" [puthash "retriggerCharacters"] 6 (#$ . 320490)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 320660)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 320829)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureInformation #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:documentation\? :parameters\? :label) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:documentation\? :parameters\? :label) gethash 1 nil assoc ((:documentation\? . :documentation) (:parameters\? . :parameters) (:label . :label))] 7 (#$ . 320995)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureInformation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:documentation\? :parameters\? :label) error "Unknown key: %s. Available keys: %s" (:documentation\? :parameters\? :label) when ht\? gethash symbol-name assoc ((:documentation\? . :documentation) (:parameters\? . :parameters) (:label . :label)) 1 nil] 9 (#$ . 321488)]) #@15 (fn OBJECT) (defalias 'lsp-signature-information\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("label") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:label)] 6 (#$ . 321920)]) #@82 (fn &rest PLIST &key DOCUMENTATION\=\? PARAMETERS\=\? LABEL &allow-other-keys) (defalias 'lsp-make-signature-information #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :documentation\? :parameters\? :label make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:documentation\? . :documentation) (:parameters\? . :parameters) (:label . :label))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 322254)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-documentation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentation"] 4 (#$ . 322836)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 322995)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-parameters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parameters"] 4 (#$ . 323151)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-parameters\? #[514 "\300\301#\210\207" [puthash "parameters"] 6 (#$ . 323304)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 323454)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 323595)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureInformationCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:documentation-format\? :parameter-information\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:documentation-format\? :parameter-information\?) gethash 1 nil assoc ((:documentation-format\? . :documentationFormat) (:parameter-information\? . :parameterInformation))] 7 (#$ . 323733)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureInformationCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:documentation-format\? :parameter-information\?) error "Unknown key: %s. Available keys: %s" (:documentation-format\? :parameter-information\?) when ht\? gethash symbol-name assoc ((:documentation-format\? . :documentationFormat) (:parameter-information\? . :parameterInformation)) 1 nil] 9 (#$ . 324276)]) #@15 (fn OBJECT) (defalias 'lsp-signature-information-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 324758)]) #@94 (fn &rest PLIST &key DOCUMENTATION-FORMAT\=\? PARAMETER-INFORMATION\=\? &allow-other-keys) (defalias 'lsp-make-signature-information-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :documentation-format\? :parameter-information\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:documentation-format\? . :documentationFormat) (:parameter-information\? . :parameterInformation))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 325090)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-capabilities-documentation-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentationFormat"] 4 (#$ . 325710)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-capabilities-documentation-format\? #[514 "\300\301#\210\207" [puthash "documentationFormat"] 6 (#$ . 325895)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-capabilities-parameter-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parameterInformation"] 4 (#$ . 326077)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-capabilities-parameter-information\? #[514 "\300\301#\210\207" [puthash "parameterInformation"] 6 (#$ . 326264)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&StaticRegistrationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :id\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :id\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:id\? . :id))] 7 (#$ . 326448)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&StaticRegistrationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :id\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :id\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:id\? . :id)) 1 nil] 9 (#$ . 326897)]) #@15 (fn OBJECT) (defalias 'lsp-static-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 327285)]) #@72 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? ID\=\? &allow-other-keys) (defalias 'lsp-make-static-registration-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :document-selector\? :id\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:id\? . :id))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 327610)]) #@15 (fn OBJECT) (defalias 'lsp:static-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 328136)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-static-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 328308)]) #@15 (fn OBJECT) (defalias 'lsp:static-registration-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 328477)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-static-registration-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 328620)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SymbolCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :symbol-kind\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :symbol-kind\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:symbol-kind\? . :symbolKind))] 7 (#$ . 328760)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SymbolCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :symbol-kind\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :symbol-kind\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:symbol-kind\? . :symbolKind)) 1 nil] 9 (#$ . 329249)]) #@15 (fn OBJECT) (defalias 'lsp-symbol-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 329677)]) #@84 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? SYMBOL-KIND\=\? &allow-other-keys) (defalias 'lsp-make-symbol-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :dynamic-registration\? :symbol-kind\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:symbol-kind\? . :symbolKind))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 329994)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 330559)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 330729)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-capabilities-symbol-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbolKind"] 4 (#$ . 330896)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-capabilities-symbol-kind\? #[514 "\300\301#\210\207" [puthash "symbolKind"] 6 (#$ . 331048)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SymbolKindCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:value-set\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:value-set\?) gethash 1 nil assoc ((:value-set\? . :valueSet))] 7 (#$ . 331197)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SymbolKindCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:value-set\? error "Unknown key: %s. Available keys: %s" (:value-set\?) when ht\? gethash symbol-name assoc ((:value-set\? . :valueSet)) 1 nil] 9 (#$ . 331583)]) #@15 (fn OBJECT) (defalias 'lsp-symbol-kind-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 331908)]) #@57 (fn &rest PLIST &key VALUE-SET\=\? &allow-other-keys) (defalias 'lsp-make-symbol-kind-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :value-set\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:value-set\? . :valueSet))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 332230)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-kind-capabilities-value-set\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 332681)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-kind-capabilities-value-set\? #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 332834)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SynchronizationCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:did-save\? :dynamic-registration\? :will-save\? :will-save-wait-until\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:did-save\? :dynamic-registration\? :will-save\? :will-save-wait-until\?) gethash 1 nil assoc ((:did-save\? . :didSave) (:dynamic-registration\? . :dynamicRegistration) (:will-save\? . :willSave) (:will-save-wait-until\? . :willSaveWaitUntil))] 7 (#$ . 332984)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SynchronizationCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:did-save\? :dynamic-registration\? :will-save\? :will-save-wait-until\?) error "Unknown key: %s. Available keys: %s" (:did-save\? :dynamic-registration\? :will-save\? :will-save-wait-until\?) when ht\? gethash symbol-name assoc ((:did-save\? . :didSave) (:dynamic-registration\? . :dynamicRegistration) (:will-save\? . :willSave) (:will-save-wait-until\? . :willSaveWaitUntil)) 1 nil] 9 (#$ . 333618)]) #@15 (fn OBJECT) (defalias 'lsp-synchronization-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 334191)]) #@120 (fn &rest PLIST &key DID-SAVE\=\? DYNAMIC-REGISTRATION\=\? WILL-SAVE\=\? WILL-SAVE-WAIT-UNTIL\=\? &allow-other-keys) (defalias 'lsp-make-synchronization-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :did-save\? :dynamic-registration\? :will-save\? :will-save-wait-until\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:did-save\? . :didSave) (:dynamic-registration\? . :dynamicRegistration) (:will-save\? . :willSave) (:will-save-wait-until\? . :willSaveWaitUntil))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 334518)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-did-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "didSave"] 4 (#$ . 335257)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-did-save\? #[514 "\300\301#\210\207" [puthash "didSave"] 6 (#$ . 335412)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 335564)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 335743)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-will-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSave"] 4 (#$ . 335919)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-will-save\? #[514 "\300\301#\210\207" [puthash "willSave"] 6 (#$ . 336076)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-will-save-wait-until\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSaveWaitUntil"] 4 (#$ . 336230)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-will-save-wait-until\? #[514 "\300\301#\210\207" [puthash "willSaveWaitUntil"] 6 (#$ . 336407)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentClientCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:call-hierarchy\? :code-action\? :code-lens\? :color-provider\? :completion\? :declaration\? :definition\? :document-highlight\? :document-link\? :document-symbol\? :folding-range\? :formatting\? :hover\? :implementation\? :on-type-formatting\? :publish-diagnostics\? :range-formatting\? :references\? :rename\? :selection-range\? :semantic-highlighting-capabilities\? :signature-help\? :synchronization\? :type-definition\? :type-hierarchy-capabilities\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:call-hierarchy\? :code-action\? :code-lens\? :color-provider\? :completion\? :declaration\? :definition\? :document-highlight\? :document-link\? :document-symbol\? :folding-range\? :formatting\? :hover\? :implementation\? :on-type-formatting\? :publish-diagnostics\? :range-formatting\? :references\? :rename\? :selection-range\? :semantic-highlighting-capabilities\? :signature-help\? :synchronization\? :type-definition\? :type-hierarchy-capabilities\?) gethash 1 nil assoc ((:call-hierarchy\? . :callHierarchy) (:code-action\? . :codeAction) (:code-lens\? . :codeLens) (:color-provider\? . :colorProvider) (:completion\? . :completion) (:declaration\? . :declaration) (:definition\? . :definition) (:document-highlight\? . :documentHighlight) (:document-link\? . :documentLink) (:document-symbol\? . :documentSymbol) (:folding-range\? . :foldingRange) (:formatting\? . :formatting) (:hover\? . :hover) (:implementation\? . :implementation) (:on-type-formatting\? . :onTypeFormatting) (:publish-diagnostics\? . :publishDiagnostics) (:range-formatting\? . :rangeFormatting) (:references\? . :references) (:rename\? . :rename) (:selection-range\? . :selectionRange) (:semantic-highlighting-capabilities\? . :semanticHighlightingCapabilities) (:signature-help\? . :signatureHelp) (:synchronization\? . :synchronization) (:type-definition\? . :typeDefinition) (:type-hierarchy-capabilities\? . :typeHierarchyCapabilities))] 7 (#$ . 336581)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentClientCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:call-hierarchy\? :code-action\? :code-lens\? :color-provider\? :completion\? :declaration\? :definition\? :document-highlight\? :document-link\? :document-symbol\? :folding-range\? :formatting\? :hover\? :implementation\? :on-type-formatting\? :publish-diagnostics\? :range-formatting\? :references\? :rename\? :selection-range\? :semantic-highlighting-capabilities\? :signature-help\? :synchronization\? :type-definition\? :type-hierarchy-capabilities\?) error "Unknown key: %s. Available keys: %s" (:call-hierarchy\? :code-action\? :code-lens\? :color-provider\? :completion\? :declaration\? :definition\? :document-highlight\? :document-link\? :document-symbol\? :folding-range\? :formatting\? :hover\? :implementation\? :on-type-formatting\? :publish-diagnostics\? :range-formatting\? :references\? :rename\? :selection-range\? :semantic-highlighting-capabilities\? :signature-help\? :synchronization\? :type-definition\? :type-hierarchy-capabilities\?) when ht\? gethash symbol-name assoc ((:call-hierarchy\? . :callHierarchy) (:code-action\? . :codeAction) (:code-lens\? . :codeLens) (:color-provider\? . :colorProvider) (:completion\? . :completion) (:declaration\? . :declaration) (:definition\? . :definition) (:document-highlight\? . :documentHighlight) (:document-link\? . :documentLink) (:document-symbol\? . :documentSymbol) (:folding-range\? . :foldingRange) (:formatting\? . :formatting) (:hover\? . :hover) (:implementation\? . :implementation) (:on-type-formatting\? . :onTypeFormatting) (:publish-diagnostics\? . :publishDiagnostics) (:range-formatting\? . :rangeFormatting) (:references\? . :references) (:rename\? . :rename) (:selection-range\? . :selectionRange) (:semantic-highlighting-capabilities\? . :semanticHighlightingCapabilities) (:signature-help\? . :signatureHelp) (:synchronization\? . :synchronization) (:type-definition\? . :typeDefinition) (:type-hierarchy-capabilities\? . :typeHierarchyCapabilities)) 1 nil] 9 (#$ . 338779)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-client-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 340916)]) #@524 (fn &rest PLIST &key CALL-HIERARCHY\=\? CODE-ACTION\=\? CODE-LENS\=\? COLOR-PROVIDER\=\? COMPLETION\=\? DECLARATION\=\? DEFINITION\=\? DOCUMENT-HIGHLIGHT\=\? DOCUMENT-LINK\=\? DOCUMENT-SYMBOL\=\? FOLDING-RANGE\=\? FORMATTING\=\? HOVER\=\? IMPLEMENTATION\=\? ON-TYPE-FORMATTING\=\? PUBLISH-DIAGNOSTICS\=\? RANGE-FORMATTING\=\? REFERENCES\=\? RENAME\=\? SELECTION-RANGE\=\? SEMANTIC-HIGHLIGHTING-CAPABILITIES\=\? SIGNATURE-HELP\=\? SYNCHRONIZATION\=\? TYPE-DEFINITION\=\? TYPE-HIERARCHY-CAPABILITIES\=\? &allow-other-keys) (defalias 'lsp-make-text-document-client-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"A@\300\322\"A@\300\323\"A@\300\324\"A@\300\325\"A@\300\326\"A@\300\327\"A@\300\330\"A@\300\331\"A@\332\333\334\"\211\262\335\336\337\"\340\341\"\"\210\207" [plist-member :call-hierarchy\? :code-action\? :code-lens\? :color-provider\? :completion\? :declaration\? :definition\? :document-highlight\? :document-link\? :document-symbol\? :folding-range\? :formatting\? :hover\? :implementation\? :on-type-formatting\? :publish-diagnostics\? :range-formatting\? :references\? :rename\? :selection-range\? :semantic-highlighting-capabilities\? :signature-help\? :synchronization\? :type-definition\? :type-hierarchy-capabilities\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:call-hierarchy\? . :callHierarchy) (:code-action\? . :codeAction) (:code-lens\? . :codeLens) (:color-provider\? . :colorProvider) (:completion\? . :completion) (:declaration\? . :declaration) (:definition\? . :definition) (:document-highlight\? . :documentHighlight) (:document-link\? . :documentLink) (:document-symbol\? . :documentSymbol) (:folding-range\? . :foldingRange) (:formatting\? . :formatting) (:hover\? . :hover) (:implementation\? . :implementation) (:on-type-formatting\? . :onTypeFormatting) (:publish-diagnostics\? . :publishDiagnostics) (:range-formatting\? . :rangeFormatting) (:references\? . :references) (:rename\? . :rename) (:selection-range\? . :selectionRange) (:semantic-highlighting-capabilities\? . :semanticHighlightingCapabilities) (:signature-help\? . :signatureHelp) (:synchronization\? . :synchronization) (:type-definition\? . :typeDefinition) (:type-hierarchy-capabilities\? . :typeHierarchyCapabilities))] 9 "\n\n(fn INPUT0)"] -partition 2] 32 (#$ . 341248)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-call-hierarchy\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "callHierarchy"] 4 (#$ . 343869)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-call-hierarchy\? #[514 "\300\301#\210\207" [puthash "callHierarchy"] 6 (#$ . 344041)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-code-action\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeAction"] 4 (#$ . 344210)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-code-action\? #[514 "\300\301#\210\207" [puthash "codeAction"] 6 (#$ . 344376)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-code-lens\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeLens"] 4 (#$ . 344539)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-code-lens\? #[514 "\300\301#\210\207" [puthash "codeLens"] 6 (#$ . 344701)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-color-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "colorProvider"] 4 (#$ . 344860)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-color-provider\? #[514 "\300\301#\210\207" [puthash "colorProvider"] 6 (#$ . 345032)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-completion\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completion"] 4 (#$ . 345201)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-completion\? #[514 "\300\301#\210\207" [puthash "completion"] 6 (#$ . 345366)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-declaration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "declaration"] 4 (#$ . 345528)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-declaration\? #[514 "\300\301#\210\207" [puthash "declaration"] 6 (#$ . 345695)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-definition\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "definition"] 4 (#$ . 345859)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-definition\? #[514 "\300\301#\210\207" [puthash "definition"] 6 (#$ . 346024)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-highlight\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentHighlight"] 4 (#$ . 346186)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-highlight\? #[514 "\300\301#\210\207" [puthash "documentHighlight"] 6 (#$ . 346366)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-link\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentLink"] 4 (#$ . 346543)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-link\? #[514 "\300\301#\210\207" [puthash "documentLink"] 6 (#$ . 346713)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-symbol\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSymbol"] 4 (#$ . 346880)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-symbol\? #[514 "\300\301#\210\207" [puthash "documentSymbol"] 6 (#$ . 347054)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-folding-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "foldingRange"] 4 (#$ . 347225)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-folding-range\? #[514 "\300\301#\210\207" [puthash "foldingRange"] 6 (#$ . 347395)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "formatting"] 4 (#$ . 347562)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-formatting\? #[514 "\300\301#\210\207" [puthash "formatting"] 6 (#$ . 347727)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-hover\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hover"] 4 (#$ . 347889)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-hover\? #[514 "\300\301#\210\207" [puthash "hover"] 6 (#$ . 348044)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-implementation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "implementation"] 4 (#$ . 348196)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-implementation\? #[514 "\300\301#\210\207" [puthash "implementation"] 6 (#$ . 348369)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-on-type-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "onTypeFormatting"] 4 (#$ . 348539)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-on-type-formatting\? #[514 "\300\301#\210\207" [puthash "onTypeFormatting"] 6 (#$ . 348718)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-publish-diagnostics\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "publishDiagnostics"] 4 (#$ . 348894)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-publish-diagnostics\? #[514 "\300\301#\210\207" [puthash "publishDiagnostics"] 6 (#$ . 349076)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-range-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeFormatting"] 4 (#$ . 349255)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-range-formatting\? #[514 "\300\301#\210\207" [puthash "rangeFormatting"] 6 (#$ . 349431)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-references\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "references"] 4 (#$ . 349604)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-references\? #[514 "\300\301#\210\207" [puthash "references"] 6 (#$ . 349769)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-rename\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rename"] 4 (#$ . 349931)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-rename\? #[514 "\300\301#\210\207" [puthash "rename"] 6 (#$ . 350088)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-selection-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 350242)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-selection-range\? #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 350416)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-semantic-highlighting-capabilities\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticHighlightingCapabilities"] 4 (#$ . 350587)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-semantic-highlighting-capabilities\? #[514 "\300\301#\210\207" [puthash "semanticHighlightingCapabilities"] 6 (#$ . 350798)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-signature-help\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureHelp"] 4 (#$ . 351006)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-signature-help\? #[514 "\300\301#\210\207" [puthash "signatureHelp"] 6 (#$ . 351178)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-synchronization\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "synchronization"] 4 (#$ . 351347)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-synchronization\? #[514 "\300\301#\210\207" [puthash "synchronization"] 6 (#$ . 351522)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-type-definition\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeDefinition"] 4 (#$ . 351694)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-type-definition\? #[514 "\300\301#\210\207" [puthash "typeDefinition"] 6 (#$ . 351868)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-type-hierarchy-capabilities\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeHierarchyCapabilities"] 4 (#$ . 352039)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-type-hierarchy-capabilities\? #[514 "\300\301#\210\207" [puthash "typeHierarchyCapabilities"] 6 (#$ . 352236)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentContentChangeEvent #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:range\? :range-length\? :text) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:range\? :range-length\? :text) gethash 1 nil assoc ((:range\? . :range) (:range-length\? . :rangeLength) (:text . :text))] 7 (#$ . 352430)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentContentChangeEvent\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:range\? :range-length\? :text) error "Unknown key: %s. Available keys: %s" (:range\? :range-length\? :text) when ht\? gethash symbol-name assoc ((:range\? . :range) (:range-length\? . :rangeLength) (:text . :text)) 1 nil] 9 (#$ . 352904)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-content-change-event\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("text") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:text)] 6 (#$ . 353317)]) #@75 (fn &rest PLIST &key RANGE\=\? RANGE-LENGTH\=\? TEXT &allow-other-keys) (defalias 'lsp-make-text-document-content-change-event #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :range\? :range-length\? :text make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:range\? . :range) (:range-length\? . :rangeLength) (:text . :text))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 353662)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 354228)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 354384)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-range-length\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeLength"] 4 (#$ . 354537)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-range-length\? #[514 "\300\301#\210\207" [puthash "rangeLength"] 6 (#$ . 354706)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 354872)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 355024)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentEdit #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :edits) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :edits) gethash 1 nil assoc ((:text-document . :textDocument) (:edits . :edits))] 7 (#$ . 355173)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentEdit\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :edits) error "Unknown key: %s. Available keys: %s" (:text-document :edits) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:edits . :edits)) 1 nil] 9 (#$ . 355597)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-edit\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "edits") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :edits)] 6 (#$ . 355960)]) #@63 (fn &rest PLIST &key TEXT-DOCUMENT EDITS &allow-other-keys) (defalias 'lsp-make-text-document-edit #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text-document :edits make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:edits . :edits))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 356320)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-edit-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 356817)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-edit-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 356970)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-edit-edits #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edits"] 4 (#$ . 357120)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-edit-edits #[514 "\300\301#\210\207" [puthash "edits"] 6 (#$ . 357258)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentIdentifier #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:uri s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri) gethash 1 nil assoc ((:uri . :uri))] 7 (#$ . 357393)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentIdentifier\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:uri error "Unknown key: %s. Available keys: %s" (:uri) when ht\? gethash symbol-name assoc ((:uri . :uri)) 1 nil] 9 (#$ . 357750)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-identifier\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri)] 6 (#$ . 358046)]) #@47 (fn &rest PLIST &key URI &allow-other-keys) (defalias 'lsp-make-text-document-identifier #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 358379)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-identifier-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 358799)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-identifier-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 358939)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentItem #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:language-id :text :uri :version) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:language-id :text :uri :version) gethash 1 nil assoc ((:language-id . :languageId) (:text . :text) (:uri . :uri) (:version . :version))] 7 (#$ . 359076)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentItem\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:language-id :text :uri :version) error "Unknown key: %s. Available keys: %s" (:language-id :text :uri :version) when ht\? gethash symbol-name assoc ((:language-id . :languageId) (:text . :text) (:uri . :uri) (:version . :version)) 1 nil] 9 (#$ . 359552)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-item\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("languageId" "text" "uri" "version") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:languageId :text :uri :version)] 6 (#$ . 359967)]) #@72 (fn &rest PLIST &key LANGUAGE-ID TEXT URI VERSION &allow-other-keys) (defalias 'lsp-make-text-document-item #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :language-id :text :uri :version make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:language-id . :languageId) (:text . :text) (:uri . :uri) (:version . :version))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 360351)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-language-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "languageId"] 4 (#$ . 360925)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-language-id #[514 "\300\301#\210\207" [puthash "languageId"] 6 (#$ . 361074)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 361220)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 361356)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 361489)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 361623)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-version #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 361754)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-version #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 361896)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentSyncOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:change\? :open-close\? :save\? :will-save\? :will-save-wait-until\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:change\? :open-close\? :save\? :will-save\? :will-save-wait-until\?) gethash 1 nil assoc ((:change\? . :change) (:open-close\? . :openClose) (:save\? . :save) (:will-save\? . :willSave) (:will-save-wait-until\? . :willSaveWaitUntil))] 7 (#$ . 362035)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentSyncOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:change\? :open-close\? :save\? :will-save\? :will-save-wait-until\?) error "Unknown key: %s. Available keys: %s" (:change\? :open-close\? :save\? :will-save\? :will-save-wait-until\?) when ht\? gethash symbol-name assoc ((:change\? . :change) (:open-close\? . :openClose) (:save\? . :save) (:will-save\? . :willSave) (:will-save-wait-until\? . :willSaveWaitUntil)) 1 nil] 9 (#$ . 362652)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-sync-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 363208)]) #@117 (fn &rest PLIST &key CHANGE\=\? OPEN-CLOSE\=\? SAVE\=\? WILL-SAVE\=\? WILL-SAVE-WAIT-UNTIL\=\? &allow-other-keys) (defalias 'lsp-make-text-document-sync-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :change\? :open-close\? :save\? :will-save\? :will-save-wait-until\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:change\? . :change) (:open-close\? . :openClose) (:save\? . :save) (:will-save\? . :willSave) (:will-save-wait-until\? . :willSaveWaitUntil))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 363533)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-change\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "change"] 4 (#$ . 364272)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-change\? #[514 "\300\301#\210\207" [puthash "change"] 6 (#$ . 364422)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-open-close\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "openClose"] 4 (#$ . 364569)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-open-close\? #[514 "\300\301#\210\207" [puthash "openClose"] 6 (#$ . 364726)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "save"] 4 (#$ . 364880)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-save\? #[514 "\300\301#\210\207" [puthash "save"] 6 (#$ . 365026)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-will-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSave"] 4 (#$ . 365169)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-will-save\? #[514 "\300\301#\210\207" [puthash "willSave"] 6 (#$ . 365324)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-will-save-wait-until\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSaveWaitUntil"] 4 (#$ . 365476)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-will-save-wait-until\? #[514 "\300\301#\210\207" [puthash "willSaveWaitUntil"] 6 (#$ . 365651)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextEdit #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:new-text :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:new-text :range) gethash 1 nil assoc ((:new-text . :newText) (:range . :range))] 7 (#$ . 365823)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextEdit\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:new-text :range) error "Unknown key: %s. Available keys: %s" (:new-text :range) when ht\? gethash symbol-name assoc ((:new-text . :newText) (:range . :range)) 1 nil] 9 (#$ . 366219)]) #@15 (fn OBJECT) (defalias 'lsp-text-edit\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("newText" "range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:newText :range)] 6 (#$ . 366554)]) #@58 (fn &rest PLIST &key NEW-TEXT RANGE &allow-other-keys) (defalias 'lsp-make-text-edit #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :new-text :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:new-text . :newText) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 366895)]) #@15 (fn OBJECT) (defalias 'lsp:text-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newText"] 4 (#$ . 367363)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 367497)]) #@15 (fn OBJECT) (defalias 'lsp:text-edit-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 367628)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-edit-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 367757)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SnippetTextEdit #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:insert-text-format\? :new-text :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:insert-text-format\? :new-text :range) gethash 1 nil assoc ((:insert-text-format\? . :insertTextFormat) (:new-text . :newText) (:range . :range))] 7 (#$ . 367883)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SnippetTextEdit\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:insert-text-format\? :new-text :range) error "Unknown key: %s. Available keys: %s" (:insert-text-format\? :new-text :range) when ht\? gethash symbol-name assoc ((:insert-text-format\? . :insertTextFormat) (:new-text . :newText) (:range . :range)) 1 nil] 9 (#$ . 368374)]) #@15 (fn OBJECT) (defalias 'lsp-snippet-text-edit\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("newText" "range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:newText :range)] 6 (#$ . 368804)]) #@81 (fn &rest PLIST &key INSERT-TEXT-FORMAT\=\? NEW-TEXT RANGE &allow-other-keys) (defalias 'lsp-make-snippet-text-edit #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :insert-text-format\? :new-text :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:insert-text-format\? . :insertTextFormat) (:new-text . :newText) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 369153)]) #@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-insert-text-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertTextFormat"] 4 (#$ . 369732)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-insert-text-format\? #[514 "\300\301#\210\207" [puthash "insertTextFormat"] 6 (#$ . 369895)]) #@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newText"] 4 (#$ . 370055)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 370197)]) #@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 370336)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 370473)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeDefinitionCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:dynamic-registration\? :link-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :link-support\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport))] 7 (#$ . 370607)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeDefinitionCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration\? :link-support\?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration\? :link-support\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport)) 1 nil] 9 (#$ . 371108)]) #@15 (fn OBJECT) (defalias 'lsp-type-definition-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 371548)]) #@85 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? LINK-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-type-definition-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :dynamic-registration\? :link-support\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 371874)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 372452)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 372631)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 372807)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 372970)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeHierarchyCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 373130)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeHierarchyCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 373563)]) #@15 (fn OBJECT) (defalias 'lsp-type-hierarchy-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 373935)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-type-hierarchy-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 374260)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 374758)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 374936)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeHierarchyItem #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:children\? :data\? :deprecated\? :detail\? :parents\? :kind :name :range :selection-range :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:children\? :data\? :deprecated\? :detail\? :parents\? :kind :name :range :selection-range :uri) gethash 1 nil assoc ((:children\? . :children) (:data\? . :data) (:deprecated\? . :deprecated) (:detail\? . :detail) (:parents\? . :parents) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange) (:uri . :uri))] 7 (#$ . 375111)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeHierarchyItem\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:children\? :data\? :deprecated\? :detail\? :parents\? :kind :name :range :selection-range :uri) error "Unknown key: %s. Available keys: %s" (:children\? :data\? :deprecated\? :detail\? :parents\? :kind :name :range :selection-range :uri) when ht\? gethash symbol-name assoc ((:children\? . :children) (:data\? . :data) (:deprecated\? . :deprecated) (:detail\? . :detail) (:parents\? . :parents) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange) (:uri . :uri)) 1 nil] 9 (#$ . 375854)]) #@15 (fn OBJECT) (defalias 'lsp-type-hierarchy-item\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "name" "range" "selectionRange" "uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :name :range :selectionRange :uri)] 6 (#$ . 376536)]) #@139 (fn &rest PLIST &key CHILDREN\=\? DATA\=\? DEPRECATED\=\? DETAIL\=\? PARENTS\=\? KIND NAME RANGE SELECTION-RANGE URI &allow-other-keys) (defalias 'lsp-make-type-hierarchy-item #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\313\314\315\"\211\262\316\317\320\"\321\322\"\"\210\207" [plist-member :children\? :data\? :deprecated\? :detail\? :parents\? :kind :name :range :selection-range :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:children\? . :children) (:data\? . :data) (:deprecated\? . :deprecated) (:detail\? . :detail) (:parents\? . :parents) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 17 (#$ . 376939)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-children\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "children"] 4 (#$ . 377868)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-children\? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 378015)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 378159)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 378298)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 378434)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 378585)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 378733)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 378876)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-parents\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parents"] 4 (#$ . 379016)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-parents\? #[514 "\300\301#\210\207" [puthash "parents"] 6 (#$ . 379161)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 379303)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 379440)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 379574)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 379711)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 379845)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 379984)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 380120)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 380278)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 380433)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 380568)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Unregistration #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:method :id) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:method :id) gethash 1 nil assoc ((:method . :method) (:id . :id))] 7 (#$ . 380700)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Unregistration\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:method :id) error "Unknown key: %s. Available keys: %s" (:method :id) when ht\? gethash symbol-name assoc ((:method . :method) (:id . :id)) 1 nil] 9 (#$ . 381083)]) #@15 (fn OBJECT) (defalias 'lsp-unregistration\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("method" "id") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:method :id)] 6 (#$ . 381405)]) #@53 (fn &rest PLIST &key METHOD ID &allow-other-keys) (defalias 'lsp-make-unregistration #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :method :id make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:method . :method) (:id . :id))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 381743)]) #@15 (fn OBJECT) (defalias 'lsp:unregistration-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 382197)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 382333)]) #@15 (fn OBJECT) (defalias 'lsp:unregistration-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 382466)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 382594)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&VersionedTextDocumentIdentifier #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:version\? :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:version\? :uri) gethash 1 nil assoc ((:version\? . :version) (:uri . :uri))] 7 (#$ . 382719)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&VersionedTextDocumentIdentifier\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:version\? :uri) error "Unknown key: %s. Available keys: %s" (:version\? :uri) when ht\? gethash symbol-name assoc ((:version\? . :version) (:uri . :uri)) 1 nil] 9 (#$ . 383133)]) #@15 (fn OBJECT) (defalias 'lsp-versioned-text-document-identifier\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri)] 6 (#$ . 383486)]) #@59 (fn &rest PLIST &key VERSION\=\? URI &allow-other-keys) (defalias 'lsp-make-versioned-text-document-identifier #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :version\? :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:version\? . :version) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 383829)]) #@15 (fn OBJECT) (defalias 'lsp:versioned-text-document-identifier-version\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 384319)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-versioned-text-document-identifier-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 384479)]) #@15 (fn OBJECT) (defalias 'lsp:versioned-text-document-identifier-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 384636)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-versioned-text-document-identifier-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 384786)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceClientCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:apply-edit\? :configuration\? :did-change-configuration\? :did-change-watched-files\? :execute-command\? :symbol\? :workspace-edit\? :workspace-folders\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:apply-edit\? :configuration\? :did-change-configuration\? :did-change-watched-files\? :execute-command\? :symbol\? :workspace-edit\? :workspace-folders\?) gethash 1 nil assoc ((:apply-edit\? . :applyEdit) (:configuration\? . :configuration) (:did-change-configuration\? . :didChangeConfiguration) (:did-change-watched-files\? . :didChangeWatchedFiles) (:execute-command\? . :executeCommand) (:symbol\? . :symbol) (:workspace-edit\? . :workspaceEdit) (:workspace-folders\? . :workspaceFolders))] 7 (#$ . 384933)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceClientCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:apply-edit\? :configuration\? :did-change-configuration\? :did-change-watched-files\? :execute-command\? :symbol\? :workspace-edit\? :workspace-folders\?) error "Unknown key: %s. Available keys: %s" (:apply-edit\? :configuration\? :did-change-configuration\? :did-change-watched-files\? :execute-command\? :symbol\? :workspace-edit\? :workspace-folders\?) when ht\? gethash symbol-name assoc ((:apply-edit\? . :applyEdit) (:configuration\? . :configuration) (:did-change-configuration\? . :didChangeConfiguration) (:did-change-watched-files\? . :didChangeWatchedFiles) (:execute-command\? . :executeCommand) (:symbol\? . :symbol) (:workspace-edit\? . :workspaceEdit) (:workspace-folders\? . :workspaceFolders)) 1 nil] 9 (#$ . 385900)]) #@15 (fn OBJECT) (defalias 'lsp-workspace-client-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 386806)]) #@206 (fn &rest PLIST &key APPLY-EDIT\=\? CONFIGURATION\=\? DID-CHANGE-CONFIGURATION\=\? DID-CHANGE-WATCHED-FILES\=\? EXECUTE-COMMAND\=\? SYMBOL\=\? WORKSPACE-EDIT\=\? WORKSPACE-FOLDERS\=\? &allow-other-keys) (defalias 'lsp-make-workspace-client-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\311\312\313\"\211\262\314\315\316\"\317\320 \"\"\210\207" [plist-member :apply-edit\? :configuration\? :did-change-configuration\? :did-change-watched-files\? :execute-command\? :symbol\? :workspace-edit\? :workspace-folders\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:apply-edit\? . :applyEdit) (:configuration\? . :configuration) (:did-change-configuration\? . :didChangeConfiguration) (:did-change-watched-files\? . :didChangeWatchedFiles) (:execute-command\? . :executeCommand) (:symbol\? . :symbol) (:workspace-edit\? . :workspaceEdit) (:workspace-folders\? . :workspaceFolders))] 9 "\n\n(fn INPUT0)"] -partition 2] 15 (#$ . 387134)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-apply-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "applyEdit"] 4 (#$ . 388266)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-apply-edit\? #[514 "\300\301#\210\207" [puthash "applyEdit"] 6 (#$ . 388426)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-configuration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "configuration"] 4 (#$ . 388583)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-configuration\? #[514 "\300\301#\210\207" [puthash "configuration"] 6 (#$ . 388750)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-did-change-configuration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "didChangeConfiguration"] 4 (#$ . 388914)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-did-change-configuration\? #[514 "\300\301#\210\207" [puthash "didChangeConfiguration"] 6 (#$ . 389101)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-did-change-watched-files\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "didChangeWatchedFiles"] 4 (#$ . 389285)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-did-change-watched-files\? #[514 "\300\301#\210\207" [puthash "didChangeWatchedFiles"] 6 (#$ . 389471)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-execute-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executeCommand"] 4 (#$ . 389654)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-execute-command\? #[514 "\300\301#\210\207" [puthash "executeCommand"] 6 (#$ . 389824)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-symbol\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbol"] 4 (#$ . 389991)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-symbol\? #[514 "\300\301#\210\207" [puthash "symbol"] 6 (#$ . 390144)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-workspace-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceEdit"] 4 (#$ . 390294)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-workspace-edit\? #[514 "\300\301#\210\207" [puthash "workspaceEdit"] 6 (#$ . 390462)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-workspace-folders\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceFolders"] 4 (#$ . 390627)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 390801)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceEdit #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:changes\? :document-changes\? :resource-changes\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:changes\? :document-changes\? :resource-changes\?) gethash 1 nil assoc ((:changes\? . :changes) (:document-changes\? . :documentChanges) (:resource-changes\? . :resourceChanges))] 7 (#$ . 390972)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceEdit\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:changes\? :document-changes\? :resource-changes\?) error "Unknown key: %s. Available keys: %s" (:changes\? :document-changes\? :resource-changes\?) when ht\? gethash symbol-name assoc ((:changes\? . :changes) (:document-changes\? . :documentChanges) (:resource-changes\? . :resourceChanges)) 1 nil] 9 (#$ . 391506)]) #@15 (fn OBJECT) (defalias 'lsp-workspace-edit\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 391979)]) #@97 (fn &rest PLIST &key CHANGES\=\? DOCUMENT-CHANGES\=\? RESOURCE-CHANGES\=\? &allow-other-keys) (defalias 'lsp-make-workspace-edit #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :changes\? :document-changes\? :resource-changes\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:changes\? . :changes) (:document-changes\? . :documentChanges) (:resource-changes\? . :resourceChanges))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 392291)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "changes"] 4 (#$ . 392916)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-changes\? #[514 "\300\301#\210\207" [puthash "changes"] 6 (#$ . 393056)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-document-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentChanges"] 4 (#$ . 393193)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-document-changes\? #[514 "\300\301#\210\207" [puthash "documentChanges"] 6 (#$ . 393350)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-resource-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceChanges"] 4 (#$ . 393504)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-resource-changes\? #[514 "\300\301#\210\207" [puthash "resourceChanges"] 6 (#$ . 393661)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceEditCapabilities #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-changes\? :failure-handling\? :resource-changes\? :resource-operations\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-changes\? :failure-handling\? :resource-changes\? :resource-operations\?) gethash 1 nil assoc ((:document-changes\? . :documentChanges) (:failure-handling\? . :failureHandling) (:resource-changes\? . :resourceChanges) (:resource-operations\? . :resourceOperations))] 7 (#$ . 393815)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceEditCapabilities\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-changes\? :failure-handling\? :resource-changes\? :resource-operations\?) error "Unknown key: %s. Available keys: %s" (:document-changes\? :failure-handling\? :resource-changes\? :resource-operations\?) when ht\? gethash symbol-name assoc ((:document-changes\? . :documentChanges) (:failure-handling\? . :failureHandling) (:resource-changes\? . :resourceChanges) (:resource-operations\? . :resourceOperations)) 1 nil] 9 (#$ . 394489)]) #@15 (fn OBJECT) (defalias 'lsp-workspace-edit-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 395102)]) #@130 (fn &rest PLIST &key DOCUMENT-CHANGES\=\? FAILURE-HANDLING\=\? RESOURCE-CHANGES\=\? RESOURCE-OPERATIONS\=\? &allow-other-keys) (defalias 'lsp-make-workspace-edit-capabilities #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :document-changes\? :failure-handling\? :resource-changes\? :resource-operations\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-changes\? . :documentChanges) (:failure-handling\? . :failureHandling) (:resource-changes\? . :resourceChanges) (:resource-operations\? . :resourceOperations))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 395428)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-document-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentChanges"] 4 (#$ . 396208)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-document-changes\? #[514 "\300\301#\210\207" [puthash "documentChanges"] 6 (#$ . 396378)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-failure-handling\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "failureHandling"] 4 (#$ . 396545)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-failure-handling\? #[514 "\300\301#\210\207" [puthash "failureHandling"] 6 (#$ . 396715)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-resource-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceChanges"] 4 (#$ . 396882)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-resource-changes\? #[514 "\300\301#\210\207" [puthash "resourceChanges"] 6 (#$ . 397052)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-resource-operations\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceOperations"] 4 (#$ . 397219)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-resource-operations\? #[514 "\300\301#\210\207" [puthash "resourceOperations"] 6 (#$ . 397395)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceFolder #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:name\? :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:name\? :uri) gethash 1 nil assoc ((:name\? . :name) (:uri . :uri))] 7 (#$ . 397568)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceFolder\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:name\? :uri) error "Unknown key: %s. Available keys: %s" (:name\? :uri) when ht\? gethash symbol-name assoc ((:name\? . :name) (:uri . :uri)) 1 nil] 9 (#$ . 397954)]) #@15 (fn OBJECT) (defalias 'lsp-workspace-folder\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri)] 6 (#$ . 398279)]) #@56 (fn &rest PLIST &key NAME\=\? URI &allow-other-keys) (defalias 'lsp-make-workspace-folder #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :name\? :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:name\? . :name) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 398604)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folder-name\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 399064)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folder-name\? #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 399200)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folder-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 399333)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folder-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 399465)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceFoldersChangeEvent #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:removed :added) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:removed :added) gethash 1 nil assoc ((:removed . :removed) (:added . :added))] 7 (#$ . 399594)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceFoldersChangeEvent\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:removed :added) error "Unknown key: %s. Available keys: %s" (:removed :added) when ht\? gethash symbol-name assoc ((:removed . :removed) (:added . :added)) 1 nil] 9 (#$ . 400006)]) #@15 (fn OBJECT) (defalias 'lsp-workspace-folders-change-event\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("removed" "added") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:removed :added)] 6 (#$ . 400357)]) #@57 (fn &rest PLIST &key REMOVED ADDED &allow-other-keys) (defalias 'lsp-make-workspace-folders-change-event #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :removed :added make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:removed . :removed) (:added . :added))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 400719)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-change-event-removed #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "removed"] 4 (#$ . 401205)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-change-event-removed #[514 "\300\301#\210\207" [puthash "removed"] 6 (#$ . 401359)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-change-event-added #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "added"] 4 (#$ . 401510)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-change-event-added #[514 "\300\301#\210\207" [puthash "added"] 6 (#$ . 401660)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceFoldersOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:change-notifications\? :supported\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:change-notifications\? :supported\?) gethash 1 nil assoc ((:change-notifications\? . :changeNotifications) (:supported\? . :supported))] 7 (#$ . 401807)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceFoldersOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:change-notifications\? :supported\?) error "Unknown key: %s. Available keys: %s" (:change-notifications\? :supported\?) when ht\? gethash symbol-name assoc ((:change-notifications\? . :changeNotifications) (:supported\? . :supported)) 1 nil] 9 (#$ . 402294)]) #@15 (fn OBJECT) (defalias 'lsp-workspace-folders-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 402720)]) #@82 (fn &rest PLIST &key CHANGE-NOTIFICATIONS\=\? SUPPORTED\=\? &allow-other-keys) (defalias 'lsp-make-workspace-folders-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :change-notifications\? :supported\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:change-notifications\? . :changeNotifications) (:supported\? . :supported))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 403043)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-options-change-notifications\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "changeNotifications"] 4 (#$ . 403607)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-options-change-notifications\? #[514 "\300\301#\210\207" [puthash "changeNotifications"] 6 (#$ . 403783)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-options-supported\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "supported"] 4 (#$ . 403956)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-options-supported\? #[514 "\300\301#\210\207" [puthash "supported"] 6 (#$ . 404111)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceServerCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:workspace-folders\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:workspace-folders\?) gethash 1 nil assoc ((:workspace-folders\? . :workspaceFolders))] 7 (#$ . 404263)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceServerCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:workspace-folders\? error "Unknown key: %s. Available keys: %s" (:workspace-folders\?) when ht\? gethash symbol-name assoc ((:workspace-folders\? . :workspaceFolders)) 1 nil] 9 (#$ . 404686)]) #@15 (fn OBJECT) (defalias 'lsp-workspace-server-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 405048)]) #@65 (fn &rest PLIST &key WORKSPACE-FOLDERS\=\? &allow-other-keys) (defalias 'lsp-make-workspace-server-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :workspace-folders\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:workspace-folders\? . :workspaceFolders))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 405375)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-server-capabilities-workspace-folders\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceFolders"] 4 (#$ . 405863)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-server-capabilities-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 406037)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ApplyWorkspaceEditParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:label\? :edit) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:label\? :edit) gethash 1 nil assoc ((:label\? . :label) (:edit . :edit))] 7 (#$ . 406208)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ApplyWorkspaceEditParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:label\? :edit) error "Unknown key: %s. Available keys: %s" (:label\? :edit) when ht\? gethash symbol-name assoc ((:label\? . :label) (:edit . :edit)) 1 nil] 9 (#$ . 406611)]) #@15 (fn OBJECT) (defalias 'lsp-apply-workspace-edit-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("edit") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:edit)] 6 (#$ . 406953)]) #@58 (fn &rest PLIST &key LABEL\=\? EDIT &allow-other-keys) (defalias 'lsp-make-apply-workspace-edit-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :label\? :edit make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:label\? . :label) (:edit . :edit))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 407291)]) #@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-params-label\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 407770)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-params-label\? #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 407919)]) #@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-params-edit #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edit"] 4 (#$ . 408065)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-params-edit #[514 "\300\301#\210\207" [puthash "edit"] 6 (#$ . 408210)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ApplyWorkspaceEditResponse #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:applied s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:applied) gethash 1 nil assoc ((:applied . :applied))] 7 (#$ . 408352)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ApplyWorkspaceEditResponse\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:applied error "Unknown key: %s. Available keys: %s" (:applied) when ht\? gethash symbol-name assoc ((:applied . :applied)) 1 nil] 9 (#$ . 408729)]) #@15 (fn OBJECT) (defalias 'lsp-apply-workspace-edit-response\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("applied") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:applied)] 6 (#$ . 409045)]) #@51 (fn &rest PLIST &key APPLIED &allow-other-keys) (defalias 'lsp-make-apply-workspace-edit-response #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :applied make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:applied . :applied))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 409391)]) #@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-response-applied #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "applied"] 4 (#$ . 409832)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-response-applied #[514 "\300\301#\210\207" [puthash "applied"] 6 (#$ . 409985)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyIncomingCall #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:from :from-ranges) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:from :from-ranges) gethash 1 nil assoc ((:from . :from) (:from-ranges . :fromRanges))] 7 (#$ . 410135)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyIncomingCall\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:from :from-ranges) error "Unknown key: %s. Available keys: %s" (:from :from-ranges) when ht\? gethash symbol-name assoc ((:from . :from) (:from-ranges . :fromRanges)) 1 nil] 9 (#$ . 410556)]) #@15 (fn OBJECT) (defalias 'lsp-call-hierarchy-incoming-call\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("from" "fromRanges") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:from :fromRanges)] 6 (#$ . 410916)]) #@60 (fn &rest PLIST &key FROM FROM-RANGES &allow-other-keys) (defalias 'lsp-make-call-hierarchy-incoming-call #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :from :from-ranges make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:from . :from) (:from-ranges . :fromRanges))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 411280)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-call-from #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "from"] 4 (#$ . 411775)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-call-from #[514 "\300\301#\210\207" [puthash "from"] 6 (#$ . 411921)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-call-from-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "fromRanges"] 4 (#$ . 412064)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-call-from-ranges #[514 "\300\301#\210\207" [puthash "fromRanges"] 6 (#$ . 412223)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyIncomingCallsParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:item s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:item) gethash 1 nil assoc ((:item . :item))] 7 (#$ . 412379)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyIncomingCallsParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:item error "Unknown key: %s. Available keys: %s" (:item) when ht\? gethash symbol-name assoc ((:item . :item)) 1 nil] 9 (#$ . 412750)]) #@15 (fn OBJECT) (defalias 'lsp-call-hierarchy-incoming-calls-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("item") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:item)] 6 (#$ . 413060)]) #@48 (fn &rest PLIST &key ITEM &allow-other-keys) (defalias 'lsp-make-call-hierarchy-incoming-calls-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :item make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:item . :item))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 413407)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-calls-params-item #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "item"] 4 (#$ . 413843)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-calls-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 413997)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyOutgoingCall #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:to :from-ranges) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:to :from-ranges) gethash 1 nil assoc ((:to . :to) (:from-ranges . :fromRanges))] 7 (#$ . 414148)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyOutgoingCall\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:to :from-ranges) error "Unknown key: %s. Available keys: %s" (:to :from-ranges) when ht\? gethash symbol-name assoc ((:to . :to) (:from-ranges . :fromRanges)) 1 nil] 9 (#$ . 414561)]) #@15 (fn OBJECT) (defalias 'lsp-call-hierarchy-outgoing-call\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("to" "fromRanges") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:to :fromRanges)] 6 (#$ . 414913)]) #@58 (fn &rest PLIST &key TO FROM-RANGES &allow-other-keys) (defalias 'lsp-make-call-hierarchy-outgoing-call #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :to :from-ranges make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:to . :to) (:from-ranges . :fromRanges))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 415273)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-call-to #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "to"] 4 (#$ . 415760)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-call-to #[514 "\300\301#\210\207" [puthash "to"] 6 (#$ . 415902)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-call-from-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "fromRanges"] 4 (#$ . 416041)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-call-from-ranges #[514 "\300\301#\210\207" [puthash "fromRanges"] 6 (#$ . 416200)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyOutgoingCallsParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:item s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:item) gethash 1 nil assoc ((:item . :item))] 7 (#$ . 416356)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyOutgoingCallsParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:item error "Unknown key: %s. Available keys: %s" (:item) when ht\? gethash symbol-name assoc ((:item . :item)) 1 nil] 9 (#$ . 416727)]) #@15 (fn OBJECT) (defalias 'lsp-call-hierarchy-outgoing-calls-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("item") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:item)] 6 (#$ . 417037)]) #@48 (fn &rest PLIST &key ITEM &allow-other-keys) (defalias 'lsp-make-call-hierarchy-outgoing-calls-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :item make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:item . :item))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 417384)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-calls-params-item #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "item"] 4 (#$ . 417820)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-calls-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 417974)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyPrepareParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 418125)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CallHierarchyPrepareParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 418601)]) #@15 (fn OBJECT) (defalias 'lsp-call-hierarchy-prepare-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 419016)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-call-hierarchy-prepare-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 419393)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 419958)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 420105)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 420249)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 420413)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 420574)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 420729)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeAction #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :title) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :title) gethash 1 nil assoc ((:command\? . :command) (:diagnostics\? . :diagnostics) (:edit\? . :edit) (:is-preferred\? . :isPreferred) (:kind\? . :kind) (:title . :title))] 7 (#$ . 420881)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeAction\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :title) error "Unknown key: %s. Available keys: %s" (:command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :title) when ht\? gethash symbol-name assoc ((:command\? . :command) (:diagnostics\? . :diagnostics) (:edit\? . :edit) (:is-preferred\? . :isPreferred) (:kind\? . :kind) (:title . :title)) 1 nil] 9 (#$ . 421477)]) #@15 (fn OBJECT) (defalias 'lsp-code-action\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("title") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:title)] 6 (#$ . 422012)]) #@112 (fn &rest PLIST &key COMMAND\=\? DIAGNOSTICS\=\? EDIT\=\? IS-PREFERRED\=\? KIND\=\? TITLE &allow-other-keys) (defalias 'lsp-make-code-action #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\307\310\311\"\211\262\312\313\314\"\315\316 \"\"\210\207" [plist-member :command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :title make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:command\? . :command) (:diagnostics\? . :diagnostics) (:edit\? . :edit) (:is-preferred\? . :isPreferred) (:kind\? . :kind) (:title . :title))] 9 "\n\n(fn INPUT0)"] -partition 2] 13 (#$ . 422337)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 423065)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 423202)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-diagnostics\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 423336)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-diagnostics\? #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 423481)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edit"] 4 (#$ . 423623)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-edit\? #[514 "\300\301#\210\207" [puthash "edit"] 6 (#$ . 423754)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-is-preferred\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isPreferred"] 4 (#$ . 423882)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-is-preferred\? #[514 "\300\301#\210\207" [puthash "isPreferred"] 6 (#$ . 424028)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 424171)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 424302)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 424430)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 424561)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionKind #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 424689)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionKind\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 425010)]) #@15 (fn OBJECT) (defalias 'lsp-code-action-kind\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 425270)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-code-action-kind #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 425584)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :context :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :context :range) gethash 1 nil assoc ((:text-document . :textDocument) (:context . :context) (:range . :range))] 7 (#$ . 425948)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :context :range) error "Unknown key: %s. Available keys: %s" (:text-document :context :range) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:context . :context) (:range . :range)) 1 nil] 9 (#$ . 426412)]) #@15 (fn OBJECT) (defalias 'lsp-code-action-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "context" "range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :context :range)] 6 (#$ . 426815)]) #@71 (fn &rest PLIST &key TEXT-DOCUMENT CONTEXT RANGE &allow-other-keys) (defalias 'lsp-make-code-action-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :text-document :context :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:context . :context) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 427194)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 427744)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 427897)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-params-context #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 428047)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 428189)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 428328)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 428466)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLens #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:command\? :data\? :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:command\? :data\? :range) gethash 1 nil assoc ((:command\? . :command) (:data\? . :data) (:range . :range))] 7 (#$ . 428601)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLens\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:command\? :data\? :range) error "Unknown key: %s. Available keys: %s" (:command\? :data\? :range) when ht\? gethash symbol-name assoc ((:command\? . :command) (:data\? . :data) (:range . :range)) 1 nil] 9 (#$ . 429034)]) #@15 (fn OBJECT) (defalias 'lsp-code-lens\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range)] 6 (#$ . 429406)]) #@70 (fn &rest PLIST &key COMMAND\=\? DATA\=\? RANGE &allow-other-keys) (defalias 'lsp-make-code-lens #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :command\? :data\? :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:command\? . :command) (:data\? . :data) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 429728)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 430250)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 430385)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 430517)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 430646)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 430772)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 430901)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLensParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:text-document s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document) gethash 1 nil assoc ((:text-document . :textDocument))] 7 (#$ . 431027)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLensParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:text-document error "Unknown key: %s. Available keys: %s" (:text-document) when ht\? gethash symbol-name assoc ((:text-document . :textDocument)) 1 nil] 9 (#$ . 431415)]) #@15 (fn OBJECT) (defalias 'lsp-code-lens-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 431742)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-code-lens-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 432085)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 432536)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 432687)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLensRegistrationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :resolve-provider\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :resolve-provider\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider))] 7 (#$ . 432835)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeLensRegistrationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :resolve-provider\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :resolve-provider\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider)) 1 nil] 9 (#$ . 433341)]) #@15 (fn OBJECT) (defalias 'lsp-code-lens-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 433786)]) #@86 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? RESOLVE-PROVIDER\=\? &allow-other-keys) (defalias 'lsp-make-code-lens-registration-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :document-selector\? :resolve-provider\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 434114)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 434698)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 434873)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 435045)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 435218)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorInformation #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:color :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:color :range) gethash 1 nil assoc ((:color . :color) (:range . :range))] 7 (#$ . 435388)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorInformation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:color :range) error "Unknown key: %s. Available keys: %s" (:color :range) when ht\? gethash symbol-name assoc ((:color . :color) (:range . :range)) 1 nil] 9 (#$ . 435781)]) #@15 (fn OBJECT) (defalias 'lsp-color-information\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("color" "range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:color :range)] 6 (#$ . 436113)]) #@55 (fn &rest PLIST &key COLOR RANGE &allow-other-keys) (defalias 'lsp-make-color-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :color :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:color . :color) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 436458)]) #@15 (fn OBJECT) (defalias 'lsp:color-information-color #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "color"] 4 (#$ . 436923)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-information-color #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 437060)]) #@15 (fn OBJECT) (defalias 'lsp:color-information-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 437194)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-information-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 437331)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorPresentation #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:additional-text-edits\? :text-edit\? :label) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:additional-text-edits\? :text-edit\? :label) gethash 1 nil assoc ((:additional-text-edits\? . :additionalTextEdits) (:text-edit\? . :textEdit) (:label . :label))] 7 (#$ . 437465)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorPresentation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:additional-text-edits\? :text-edit\? :label) error "Unknown key: %s. Available keys: %s" (:additional-text-edits\? :text-edit\? :label) when ht\? gethash symbol-name assoc ((:additional-text-edits\? . :additionalTextEdits) (:text-edit\? . :textEdit) (:label . :label)) 1 nil] 9 (#$ . 437980)]) #@15 (fn OBJECT) (defalias 'lsp-color-presentation\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("label") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:label)] 6 (#$ . 438434)]) #@89 (fn &rest PLIST &key ADDITIONAL-TEXT-EDITS\=\? TEXT-EDIT\=\? LABEL &allow-other-keys) (defalias 'lsp-make-color-presentation #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :additional-text-edits\? :text-edit\? :label make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:additional-text-edits\? . :additionalTextEdits) (:text-edit\? . :textEdit) (:label . :label))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 438765)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-additional-text-edits\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "additionalTextEdits"] 4 (#$ . 439369)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-additional-text-edits\? #[514 "\300\301#\210\207" [puthash "additionalTextEdits"] 6 (#$ . 439539)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-text-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textEdit"] 4 (#$ . 439706)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-text-edit\? #[514 "\300\301#\210\207" [puthash "textEdit"] 6 (#$ . 439853)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 439997)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 440135)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorPresentationParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:color :text-document :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:color :text-document :range) gethash 1 nil assoc ((:color . :color) (:text-document . :textDocument) (:range . :range))] 7 (#$ . 440270)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColorPresentationParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:color :text-document :range) error "Unknown key: %s. Available keys: %s" (:color :text-document :range) when ht\? gethash symbol-name assoc ((:color . :color) (:text-document . :textDocument) (:range . :range)) 1 nil] 9 (#$ . 440733)]) #@15 (fn OBJECT) (defalias 'lsp-color-presentation-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("color" "textDocument" "range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:color :textDocument :range)] 6 (#$ . 441135)]) #@69 (fn &rest PLIST &key COLOR TEXT-DOCUMENT RANGE &allow-other-keys) (defalias 'lsp-make-color-presentation-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :color :text-document :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:color . :color) (:text-document . :textDocument) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 441517)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-color #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "color"] 4 (#$ . 442066)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-color #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 442211)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 442353)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 442513)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 442670)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 442815)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColoringParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri :infos) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri :infos) gethash 1 nil assoc ((:uri . :uri) (:infos . :infos))] 7 (#$ . 442957)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColoringParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri :infos) error "Unknown key: %s. Available keys: %s" (:uri :infos) when ht\? gethash symbol-name assoc ((:uri . :uri) (:infos . :infos)) 1 nil] 9 (#$ . 443340)]) #@15 (fn OBJECT) (defalias 'lsp-coloring-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("uri" "infos") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri :infos)] 6 (#$ . 443662)]) #@53 (fn &rest PLIST &key URI INFOS &allow-other-keys) (defalias 'lsp-make-coloring-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :uri :infos make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri . :uri) (:infos . :infos))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 444001)]) #@15 (fn OBJECT) (defalias 'lsp:coloring-params-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 444456)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 444587)]) #@15 (fn OBJECT) (defalias 'lsp:coloring-params-infos #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "infos"] 4 (#$ . 444715)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-params-infos #[514 "\300\301#\210\207" [puthash "infos"] 6 (#$ . 444850)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColoringStyle #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 444982)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColoringStyle\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 445302)]) #@15 (fn OBJECT) (defalias 'lsp-coloring-style\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 445561)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-coloring-style #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 445873)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionList #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:items :is-incomplete) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:items :is-incomplete) gethash 1 nil assoc ((:items . :items) (:is-incomplete . :isIncomplete))] 7 (#$ . 446235)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionList\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:items :is-incomplete) error "Unknown key: %s. Available keys: %s" (:items :is-incomplete) when ht\? gethash symbol-name assoc ((:items . :items) (:is-incomplete . :isIncomplete)) 1 nil] 9 (#$ . 446657)]) #@15 (fn OBJECT) (defalias 'lsp-completion-list\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("items" "isIncomplete") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:items :isIncomplete)] 6 (#$ . 447018)]) #@63 (fn &rest PLIST &key ITEMS IS-INCOMPLETE &allow-other-keys) (defalias 'lsp-make-completion-list #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :items :is-incomplete make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:items . :items) (:is-incomplete . :isIncomplete))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 447375)]) #@15 (fn OBJECT) (defalias 'lsp:completion-list-items #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "items"] 4 (#$ . 447869)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-list-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 448004)]) #@15 (fn OBJECT) (defalias 'lsp:completion-list-is-incomplete #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isIncomplete"] 4 (#$ . 448136)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-list-is-incomplete #[514 "\300\301#\210\207" [puthash "isIncomplete"] 6 (#$ . 448286)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:context\? :uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:context\? :uri\? :text-document :position) gethash 1 nil assoc ((:context\? . :context) (:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 448433)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:context\? :uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:context\? :uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:context\? . :context) (:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 448945)]) #@15 (fn OBJECT) (defalias 'lsp-completion-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 449396)]) #@86 (fn &rest PLIST &key CONTEXT\=\? URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-completion-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :context\? :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:context\? . :context) (:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 449761)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-context\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 450374)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-context\? #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 450517)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 450657)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 450792)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 450924)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 451076)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 451225)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 451368)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionRegistrationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :resolve-provider\? :trigger-characters\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :resolve-provider\? :trigger-characters\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters))] 7 (#$ . 451508)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CompletionRegistrationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :resolve-provider\? :trigger-characters\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :resolve-provider\? :trigger-characters\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters)) 1 nil] 9 (#$ . 452105)]) #@15 (fn OBJECT) (defalias 'lsp-completion-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 452641)]) #@109 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? RESOLVE-PROVIDER\=\? TRIGGER-CHARACTERS\=\? &allow-other-keys) (defalias 'lsp-make-completion-registration-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :document-selector\? :resolve-provider\? :trigger-characters\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 452971)]) #@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 453660)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 453836)]) #@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 454009)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 454183)]) #@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 454354)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 454532)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ConfigurationParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:items s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:items) gethash 1 nil assoc ((:items . :items))] 7 (#$ . 454707)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ConfigurationParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:items error "Unknown key: %s. Available keys: %s" (:items) when ht\? gethash symbol-name assoc ((:items . :items)) 1 nil] 9 (#$ . 455069)]) #@15 (fn OBJECT) (defalias 'lsp-configuration-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("items") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:items)] 6 (#$ . 455370)]) #@49 (fn &rest PLIST &key ITEMS &allow-other-keys) (defalias 'lsp-make-configuration-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :items make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:items . :items))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 455703)]) #@15 (fn OBJECT) (defalias 'lsp:configuration-params-items #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "items"] 4 (#$ . 456127)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-params-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 456267)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CreateFile #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:options\? :kind :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:options\? :kind :uri) gethash 1 nil assoc ((:options\? . :options) (:kind . :kind) (:uri . :uri))] 7 (#$ . 456404)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&CreateFile\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:options\? :kind :uri) error "Unknown key: %s. Available keys: %s" (:options\? :kind :uri) when ht\? gethash symbol-name assoc ((:options\? . :options) (:kind . :kind) (:uri . :uri)) 1 nil] 9 (#$ . 456825)]) #@15 (fn OBJECT) (defalias 'lsp-create-file\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :uri)] 6 (#$ . 457185)]) #@64 (fn &rest PLIST &key OPTIONS\=\? KIND URI &allow-other-keys) (defalias 'lsp-make-create-file #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :options\? :kind :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:options\? . :options) (:kind . :kind) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 457518)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 458026)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 458163)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 458297)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 458426)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 458552)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 458679)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DeclarationParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 458803)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DeclarationParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 459270)]) #@15 (fn OBJECT) (defalias 'lsp-declaration-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 459676)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-declaration-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 460042)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 460596)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 460732)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 460865)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 461018)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 461168)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 461312)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DefinitionParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 461453)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DefinitionParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 461919)]) #@15 (fn OBJECT) (defalias 'lsp-definition-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 462324)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-definition-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 462689)]) #@15 (fn OBJECT) (defalias 'lsp:definition-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 463242)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 463377)]) #@15 (fn OBJECT) (defalias 'lsp:definition-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 463509)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 463661)]) #@15 (fn OBJECT) (defalias 'lsp:definition-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 463810)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 463953)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DeleteFile #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:options\? :kind :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:options\? :kind :uri) gethash 1 nil assoc ((:options\? . :options) (:kind . :kind) (:uri . :uri))] 7 (#$ . 464093)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DeleteFile\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:options\? :kind :uri) error "Unknown key: %s. Available keys: %s" (:options\? :kind :uri) when ht\? gethash symbol-name assoc ((:options\? . :options) (:kind . :kind) (:uri . :uri)) 1 nil] 9 (#$ . 464514)]) #@15 (fn OBJECT) (defalias 'lsp-delete-file\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :uri)] 6 (#$ . 464874)]) #@64 (fn &rest PLIST &key OPTIONS\=\? KIND URI &allow-other-keys) (defalias 'lsp-make-delete-file #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :options\? :kind :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:options\? . :options) (:kind . :kind) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 465207)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 465715)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 465852)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 465986)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 466115)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 466241)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 466368)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeConfigurationParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:settings s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:settings) gethash 1 nil assoc ((:settings . :settings))] 7 (#$ . 466492)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeConfigurationParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:settings error "Unknown key: %s. Available keys: %s" (:settings) when ht\? gethash symbol-name assoc ((:settings . :settings)) 1 nil] 9 (#$ . 466875)]) #@15 (fn OBJECT) (defalias 'lsp-did-change-configuration-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("settings") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:settings)] 6 (#$ . 467197)]) #@52 (fn &rest PLIST &key SETTINGS &allow-other-keys) (defalias 'lsp-make-did-change-configuration-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :settings make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:settings . :settings))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 467547)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-configuration-params-settings #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "settings"] 4 (#$ . 467994)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-configuration-params-settings #[514 "\300\301#\210\207" [puthash "settings"] 6 (#$ . 468151)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeTextDocumentParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :content-changes :text-document) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :content-changes :text-document) gethash 1 nil assoc ((:uri\? . :uri) (:content-changes . :contentChanges) (:text-document . :textDocument))] 7 (#$ . 468305)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeTextDocumentParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :content-changes :text-document) error "Unknown key: %s. Available keys: %s" (:uri\? :content-changes :text-document) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:content-changes . :contentChanges) (:text-document . :textDocument)) 1 nil] 9 (#$ . 468809)]) #@15 (fn OBJECT) (defalias 'lsp-did-change-text-document-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("contentChanges" "textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:contentChanges :textDocument)] 6 (#$ . 469252)]) #@81 (fn &rest PLIST &key URI\=\? CONTENT-CHANGES TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-did-change-text-document-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :content-changes :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:content-changes . :contentChanges) (:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 469643)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 470237)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 470386)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-content-changes #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contentChanges"] 4 (#$ . 470532)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-content-changes #[514 "\300\301#\210\207" [puthash "contentChanges"] 6 (#$ . 470702)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 470869)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 471035)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeWatchedFilesParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:changes s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:changes) gethash 1 nil assoc ((:changes . :changes))] 7 (#$ . 471198)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeWatchedFilesParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:changes error "Unknown key: %s. Available keys: %s" (:changes) when ht\? gethash symbol-name assoc ((:changes . :changes)) 1 nil] 9 (#$ . 471576)]) #@15 (fn OBJECT) (defalias 'lsp-did-change-watched-files-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("changes") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:changes)] 6 (#$ . 471893)]) #@51 (fn &rest PLIST &key CHANGES &allow-other-keys) (defalias 'lsp-make-did-change-watched-files-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :changes make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:changes . :changes))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 472241)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-params-changes #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "changes"] 4 (#$ . 472684)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-params-changes #[514 "\300\301#\210\207" [puthash "changes"] 6 (#$ . 472839)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeWatchedFilesRegistrationOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:watchers s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:watchers) gethash 1 nil assoc ((:watchers . :watchers))] 7 (#$ . 472991)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeWatchedFilesRegistrationOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:watchers error "Unknown key: %s. Available keys: %s" (:watchers) when ht\? gethash symbol-name assoc ((:watchers . :watchers)) 1 nil] 9 (#$ . 473386)]) #@15 (fn OBJECT) (defalias 'lsp-did-change-watched-files-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("watchers") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:watchers)] 6 (#$ . 473720)]) #@52 (fn &rest PLIST &key WATCHERS &allow-other-keys) (defalias 'lsp-make-did-change-watched-files-registration-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :watchers make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:watchers . :watchers))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 474084)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-registration-options-watchers #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "watchers"] 4 (#$ . 474545)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-registration-options-watchers #[514 "\300\301#\210\207" [puthash "watchers"] 6 (#$ . 474716)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeWorkspaceFoldersParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:event s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:event) gethash 1 nil assoc ((:event . :event))] 7 (#$ . 474884)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidChangeWorkspaceFoldersParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:event error "Unknown key: %s. Available keys: %s" (:event) when ht\? gethash symbol-name assoc ((:event . :event)) 1 nil] 9 (#$ . 475258)]) #@15 (fn OBJECT) (defalias 'lsp-did-change-workspace-folders-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("event") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:event)] 6 (#$ . 475571)]) #@49 (fn &rest PLIST &key EVENT &allow-other-keys) (defalias 'lsp-make-did-change-workspace-folders-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :event make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:event . :event))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 475919)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-workspace-folders-params-event #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "event"] 4 (#$ . 476358)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-workspace-folders-params-event #[514 "\300\301#\210\207" [puthash "event"] 6 (#$ . 476513)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidCloseTextDocumentParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:text-document s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document) gethash 1 nil assoc ((:text-document . :textDocument))] 7 (#$ . 476665)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidCloseTextDocumentParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:text-document error "Unknown key: %s. Available keys: %s" (:text-document) when ht\? gethash symbol-name assoc ((:text-document . :textDocument)) 1 nil] 9 (#$ . 477065)]) #@15 (fn OBJECT) (defalias 'lsp-did-close-text-document-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 477404)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-did-close-text-document-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 477761)]) #@15 (fn OBJECT) (defalias 'lsp:did-close-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 478226)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-close-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 478391)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidOpenTextDocumentParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text\? :text-document) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text\? :text-document) gethash 1 nil assoc ((:text\? . :text) (:text-document . :textDocument))] 7 (#$ . 478553)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidOpenTextDocumentParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text\? :text-document) error "Unknown key: %s. Available keys: %s" (:text\? :text-document) when ht\? gethash symbol-name assoc ((:text\? . :text) (:text-document . :textDocument)) 1 nil] 9 (#$ . 478988)]) #@15 (fn OBJECT) (defalias 'lsp-did-open-text-document-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 479362)]) #@66 (fn &rest PLIST &key TEXT\=\? TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-did-open-text-document-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text\? :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text\? . :text) (:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 479718)]) #@15 (fn OBJECT) (defalias 'lsp:did-open-text-document-params-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 480230)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-open-text-document-params-text\? #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 480379)]) #@15 (fn OBJECT) (defalias 'lsp:did-open-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 480525)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-open-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 480689)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidSaveTextDocumentParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text\? :text-document) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text\? :text-document) gethash 1 nil assoc ((:text\? . :text) (:text-document . :textDocument))] 7 (#$ . 480850)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DidSaveTextDocumentParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text\? :text-document) error "Unknown key: %s. Available keys: %s" (:text\? :text-document) when ht\? gethash symbol-name assoc ((:text\? . :text) (:text-document . :textDocument)) 1 nil] 9 (#$ . 481285)]) #@15 (fn OBJECT) (defalias 'lsp-did-save-text-document-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 481659)]) #@66 (fn &rest PLIST &key TEXT\=\? TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-did-save-text-document-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text\? :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text\? . :text) (:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 482015)]) #@15 (fn OBJECT) (defalias 'lsp:did-save-text-document-params-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 482527)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-save-text-document-params-text\? #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 482676)]) #@15 (fn OBJECT) (defalias 'lsp:did-save-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 482822)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-save-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 482986)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentColorParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:text-document s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document) gethash 1 nil assoc ((:text-document . :textDocument))] 7 (#$ . 483147)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentColorParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:text-document error "Unknown key: %s. Available keys: %s" (:text-document) when ht\? gethash symbol-name assoc ((:text-document . :textDocument)) 1 nil] 9 (#$ . 483540)]) #@15 (fn OBJECT) (defalias 'lsp-document-color-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 483872)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-document-color-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 484220)]) #@15 (fn OBJECT) (defalias 'lsp:document-color-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 484676)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-color-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 484832)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentFormattingParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :options) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :options) gethash 1 nil assoc ((:text-document . :textDocument) (:options . :options))] 7 (#$ . 484985)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentFormattingParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :options) error "Unknown key: %s. Available keys: %s" (:text-document :options) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:options . :options)) 1 nil] 9 (#$ . 485425)]) #@15 (fn OBJECT) (defalias 'lsp-document-formatting-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "options") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :options)] 6 (#$ . 485804)]) #@65 (fn &rest PLIST &key TEXT-DOCUMENT OPTIONS &allow-other-keys) (defalias 'lsp-make-document-formatting-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text-document :options make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:options . :options))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 486176)]) #@15 (fn OBJECT) (defalias 'lsp:document-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 486689)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 486850)]) #@15 (fn OBJECT) (defalias 'lsp:document-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 487008)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 487158)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentHighlight #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:kind\? :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:kind\? :range) gethash 1 nil assoc ((:kind\? . :kind) (:range . :range))] 7 (#$ . 487305)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentHighlight\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:kind\? :range) error "Unknown key: %s. Available keys: %s" (:kind\? :range) when ht\? gethash symbol-name assoc ((:kind\? . :kind) (:range . :range)) 1 nil] 9 (#$ . 487701)]) #@15 (fn OBJECT) (defalias 'lsp-document-highlight\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range)] 6 (#$ . 488036)]) #@58 (fn &rest PLIST &key KIND\=\? RANGE &allow-other-keys) (defalias 'lsp-make-document-highlight #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :kind\? :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:kind\? . :kind) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 488367)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 488837)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 488975)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 489110)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 489248)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentHighlightParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 489383)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentHighlightParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 489856)]) #@15 (fn OBJECT) (defalias 'lsp-document-highlight-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 490268)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-document-highlight-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 490641)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 491202)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 491345)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 491485)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 491645)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 491802)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 491953)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLink #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:data\? :target\? :tooltip\? :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:data\? :target\? :tooltip\? :range) gethash 1 nil assoc ((:data\? . :data) (:target\? . :target) (:tooltip\? . :tooltip) (:range . :range))] 7 (#$ . 492101)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLink\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:data\? :target\? :tooltip\? :range) error "Unknown key: %s. Available keys: %s" (:data\? :target\? :tooltip\? :range) when ht\? gethash symbol-name assoc ((:data\? . :data) (:target\? . :target) (:tooltip\? . :tooltip) (:range . :range)) 1 nil] 9 (#$ . 492580)]) #@15 (fn OBJECT) (defalias 'lsp-document-link\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range)] 6 (#$ . 492998)]) #@81 (fn &rest PLIST &key DATA\=\? TARGET\=\? TOOLTIP\=\? RANGE &allow-other-keys) (defalias 'lsp-make-document-link #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :data\? :target\? :tooltip\? :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:data\? . :data) (:target\? . :target) (:tooltip\? . :tooltip) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 493324)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 493906)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 494039)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-target\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "target"] 4 (#$ . 494169)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-target\? #[514 "\300\301#\210\207" [puthash "target"] 6 (#$ . 494306)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 494440)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 494579)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 494715)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 494848)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLinkParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:text-document s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document) gethash 1 nil assoc ((:text-document . :textDocument))] 7 (#$ . 494978)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLinkParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:text-document error "Unknown key: %s. Available keys: %s" (:text-document) when ht\? gethash symbol-name assoc ((:text-document . :textDocument)) 1 nil] 9 (#$ . 495370)]) #@15 (fn OBJECT) (defalias 'lsp-document-link-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 495701)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-document-link-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 496048)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 496503)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 496658)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLinkRegistrationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :resolve-provider\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :resolve-provider\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider))] 7 (#$ . 496810)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentLinkRegistrationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :resolve-provider\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :resolve-provider\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider)) 1 nil] 9 (#$ . 497320)]) #@15 (fn OBJECT) (defalias 'lsp-document-link-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 497769)]) #@86 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? RESOLVE-PROVIDER\=\? &allow-other-keys) (defalias 'lsp-make-document-link-registration-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :document-selector\? :resolve-provider\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 498101)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 498689)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 498868)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 499044)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 499221)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentOnTypeFormattingParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:ch :text-document :options :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:ch :text-document :options :position) gethash 1 nil assoc ((:ch . :ch) (:text-document . :textDocument) (:options . :options) (:position . :position))] 7 (#$ . 499395)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentOnTypeFormattingParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:ch :text-document :options :position) error "Unknown key: %s. Available keys: %s" (:ch :text-document :options :position) when ht\? gethash symbol-name assoc ((:ch . :ch) (:text-document . :textDocument) (:options . :options) (:position . :position)) 1 nil] 9 (#$ . 499905)]) #@15 (fn OBJECT) (defalias 'lsp-document-on-type-formatting-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("ch" "textDocument" "options" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:ch :textDocument :options :position)] 6 (#$ . 500354)]) #@77 (fn &rest PLIST &key CH TEXT-DOCUMENT OPTIONS POSITION &allow-other-keys) (defalias 'lsp-make-document-on-type-formatting-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :ch :text-document :options :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:ch . :ch) (:text-document . :textDocument) (:options . :options) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 500764)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-ch #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ch"] 4 (#$ . 501374)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-ch #[514 "\300\301#\210\207" [puthash "ch"] 6 (#$ . 501522)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 501667)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 501836)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 502002)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 502160)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 502315)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 502475)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentOnTypeFormattingRegistrationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :more-trigger-character\? :first-trigger-character) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :more-trigger-character\? :first-trigger-character) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:more-trigger-character\? . :moreTriggerCharacter) (:first-trigger-character . :firstTriggerCharacter))] 7 (#$ . 502632)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentOnTypeFormattingRegistrationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :more-trigger-character\? :first-trigger-character) error "Unknown key: %s. Available keys: %s" (:document-selector\? :more-trigger-character\? :first-trigger-character) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:more-trigger-character\? . :moreTriggerCharacter) (:first-trigger-character . :firstTriggerCharacter)) 1 nil] 9 (#$ . 503279)]) #@15 (fn OBJECT) (defalias 'lsp-document-on-type-formatting-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("firstTriggerCharacter") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:firstTriggerCharacter)] 6 (#$ . 503865)]) #@116 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? MORE-TRIGGER-CHARACTER\=\? FIRST-TRIGGER-CHARACTER &allow-other-keys) (defalias 'lsp-make-document-on-type-formatting-registration-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :document-selector\? :more-trigger-character\? :first-trigger-character make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:more-trigger-character\? . :moreTriggerCharacter) (:first-trigger-character . :firstTriggerCharacter))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 504259)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 504999)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 505192)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-registration-options-more-trigger-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "moreTriggerCharacter"] 4 (#$ . 505382)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-more-trigger-character\? #[514 "\300\301#\210\207" [puthash "moreTriggerCharacter"] 6 (#$ . 505584)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-registration-options-first-trigger-character #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "firstTriggerCharacter"] 4 (#$ . 505783)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-first-trigger-character #[514 "\300\301#\210\207" [puthash "firstTriggerCharacter"] 6 (#$ . 505985)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentRangeFormattingParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :options :range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :options :range) gethash 1 nil assoc ((:text-document . :textDocument) (:options . :options) (:range . :range))] 7 (#$ . 506184)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentRangeFormattingParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :options :range) error "Unknown key: %s. Available keys: %s" (:text-document :options :range) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:options . :options) (:range . :range)) 1 nil] 9 (#$ . 506661)]) #@15 (fn OBJECT) (defalias 'lsp-document-range-formatting-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "options" "range") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :options :range)] 6 (#$ . 507077)]) #@71 (fn &rest PLIST &key TEXT-DOCUMENT OPTIONS RANGE &allow-other-keys) (defalias 'lsp-make-document-range-formatting-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :text-document :options :range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:options . :options) (:range . :range))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 507470)]) #@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 508034)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 508201)]) #@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 508365)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 508521)]) #@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 508674)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 508826)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentSymbolParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:text-document s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document) gethash 1 nil assoc ((:text-document . :textDocument))] 7 (#$ . 508975)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentSymbolParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:text-document error "Unknown key: %s. Available keys: %s" (:text-document) when ht\? gethash symbol-name assoc ((:text-document . :textDocument)) 1 nil] 9 (#$ . 509369)]) #@15 (fn OBJECT) (defalias 'lsp-document-symbol-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 509702)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-document-symbol-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 510051)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 510508)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 510665)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DynamicRegistrationCapabilities #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:dynamic-registration\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) gethash 1 nil assoc ((:dynamic-registration\? . :dynamicRegistration))] 7 (#$ . 510819)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DynamicRegistrationCapabilities\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:dynamic-registration\? error "Unknown key: %s. Available keys: %s" (:dynamic-registration\?) when ht\? gethash symbol-name assoc ((:dynamic-registration\? . :dynamicRegistration)) 1 nil] 9 (#$ . 511258)]) #@15 (fn OBJECT) (defalias 'lsp-dynamic-registration-capabilities\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 511636)]) #@68 (fn &rest PLIST &key DYNAMIC-REGISTRATION\=\? &allow-other-keys) (defalias 'lsp-make-dynamic-registration-capabilities #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :dynamic-registration\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:dynamic-registration\? . :dynamicRegistration))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 511967)]) #@15 (fn OBJECT) (defalias 'lsp:dynamic-registration-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 512471)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-dynamic-registration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 512655)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ExecuteCommandParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:arguments\? :command) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:arguments\? :command) gethash 1 nil assoc ((:arguments\? . :arguments) (:command . :command))] 7 (#$ . 512836)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ExecuteCommandParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:arguments\? :command) error "Unknown key: %s. Available keys: %s" (:arguments\? :command) when ht\? gethash symbol-name assoc ((:arguments\? . :arguments) (:command . :command)) 1 nil] 9 (#$ . 513263)]) #@15 (fn OBJECT) (defalias 'lsp-execute-command-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("command") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:command)] 6 (#$ . 513629)]) #@65 (fn &rest PLIST &key ARGUMENTS\=\? COMMAND &allow-other-keys) (defalias 'lsp-make-execute-command-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :arguments\? :command make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:arguments\? . :arguments) (:command . :command))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 513968)]) #@15 (fn OBJECT) (defalias 'lsp:execute-command-params-arguments\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "arguments"] 4 (#$ . 514470)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-params-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 514622)]) #@15 (fn OBJECT) (defalias 'lsp:execute-command-params-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 514771)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-params-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 514917)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ExecuteCommandRegistrationOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:commands s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:commands) gethash 1 nil assoc ((:commands . :commands))] 7 (#$ . 515060)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ExecuteCommandRegistrationOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:commands error "Unknown key: %s. Available keys: %s" (:commands) when ht\? gethash symbol-name assoc ((:commands . :commands)) 1 nil] 9 (#$ . 515448)]) #@15 (fn OBJECT) (defalias 'lsp-execute-command-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("commands") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:commands)] 6 (#$ . 515775)]) #@52 (fn &rest PLIST &key COMMANDS &allow-other-keys) (defalias 'lsp-make-execute-command-registration-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :commands make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:commands . :commands))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 516130)]) #@15 (fn OBJECT) (defalias 'lsp:execute-command-registration-options-commands #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commands"] 4 (#$ . 516582)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-registration-options-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 516744)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FailureHandlingKind #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 516903)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FailureHandlingKind\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 517229)]) #@15 (fn OBJECT) (defalias 'lsp-failure-handling-kind\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 517494)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-failure-handling-kind #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 517813)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRange #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:end-character\? :kind\? :start-character\? :end-line :start-line) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:end-character\? :kind\? :start-character\? :end-line :start-line) gethash 1 nil assoc ((:end-character\? . :endCharacter) (:kind\? . :kind) (:start-character\? . :startCharacter) (:end-line . :endLine) (:start-line . :startLine))] 7 (#$ . 518182)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRange\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:end-character\? :kind\? :start-character\? :end-line :start-line) error "Unknown key: %s. Available keys: %s" (:end-character\? :kind\? :start-character\? :end-line :start-line) when ht\? gethash symbol-name assoc ((:end-character\? . :endCharacter) (:kind\? . :kind) (:start-character\? . :startCharacter) (:end-line . :endLine) (:start-line . :startLine)) 1 nil] 9 (#$ . 518781)]) #@15 (fn OBJECT) (defalias 'lsp-folding-range\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("endLine" "startLine") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:endLine :startLine)] 6 (#$ . 519319)]) #@110 (fn &rest PLIST &key END-CHARACTER\=\? KIND\=\? START-CHARACTER\=\? END-LINE START-LINE &allow-other-keys) (defalias 'lsp-make-folding-range #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :end-character\? :kind\? :start-character\? :end-line :start-line make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:end-character\? . :endCharacter) (:kind\? . :kind) (:start-character\? . :startCharacter) (:end-line . :endLine) (:start-line . :startLine))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 519673)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-end-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "endCharacter"] 4 (#$ . 520388)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-end-character\? #[514 "\300\301#\210\207" [puthash "endCharacter"] 6 (#$ . 520538)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 520685)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 520818)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-start-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "startCharacter"] 4 (#$ . 520948)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-start-character\? #[514 "\300\301#\210\207" [puthash "startCharacter"] 6 (#$ . 521102)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-end-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "endLine"] 4 (#$ . 521253)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-end-line #[514 "\300\301#\210\207" [puthash "endLine"] 6 (#$ . 521391)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-start-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "startLine"] 4 (#$ . 521526)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-start-line #[514 "\300\301#\210\207" [puthash "startLine"] 6 (#$ . 521668)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeKind #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 521807)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeKind\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 522130)]) #@15 (fn OBJECT) (defalias 'lsp-folding-range-kind\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 522392)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-folding-range-kind #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 522708)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeRequestParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:text-document s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document) gethash 1 nil assoc ((:text-document . :textDocument))] 7 (#$ . 523074)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeRequestParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:text-document error "Unknown key: %s. Available keys: %s" (:text-document) when ht\? gethash symbol-name assoc ((:text-document . :textDocument)) 1 nil] 9 (#$ . 523473)]) #@15 (fn OBJECT) (defalias 'lsp-folding-range-request-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 523811)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-folding-range-request-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 524166)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-request-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 524629)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-request-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 524792)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Hover #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:range\? :contents) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:range\? :contents) gethash 1 nil assoc ((:range\? . :range) (:contents . :contents))] 7 (#$ . 524952)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&Hover\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:range\? :contents) error "Unknown key: %s. Available keys: %s" (:range\? :contents) when ht\? gethash symbol-name assoc ((:range\? . :range) (:contents . :contents)) 1 nil] 9 (#$ . 525352)]) #@15 (fn OBJECT) (defalias 'lsp-hover\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("contents") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:contents)] 6 (#$ . 525691)]) #@62 (fn &rest PLIST &key RANGE\=\? CONTENTS &allow-other-keys) (defalias 'lsp-make-hover #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :range\? :contents make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:range\? . :range) (:contents . :contents))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 526015)]) #@15 (fn OBJECT) (defalias 'lsp:hover-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 526488)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 526615)]) #@15 (fn OBJECT) (defalias 'lsp:hover-contents #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contents"] 4 (#$ . 526739)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-contents #[514 "\300\301#\210\207" [puthash "contents"] 6 (#$ . 526870)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&HoverParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 526998)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&HoverParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 527459)]) #@15 (fn OBJECT) (defalias 'lsp-hover-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 527859)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-hover-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 528219)]) #@15 (fn OBJECT) (defalias 'lsp:hover-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 528767)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 528897)]) #@15 (fn OBJECT) (defalias 'lsp:hover-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 529024)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 529171)]) #@15 (fn OBJECT) (defalias 'lsp:hover-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 529315)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 529453)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ImplementationParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 529588)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ImplementationParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 530058)]) #@15 (fn OBJECT) (defalias 'lsp-implementation-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 530467)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-implementation-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 530836)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 531393)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 531532)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 531668)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 531824)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 531977)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 532124)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeError #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:retry s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:retry) gethash 1 nil assoc ((:retry . :retry))] 7 (#$ . 532268)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeError\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:retry error "Unknown key: %s. Available keys: %s" (:retry) when ht\? gethash symbol-name assoc ((:retry . :retry)) 1 nil] 9 (#$ . 532626)]) #@15 (fn OBJECT) (defalias 'lsp-initialize-error\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("retry") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:retry)] 6 (#$ . 532923)]) #@49 (fn &rest PLIST &key RETRY &allow-other-keys) (defalias 'lsp-make-initialize-error #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :retry make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:retry . :retry))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 533252)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-error-retry #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "retry"] 4 (#$ . 533672)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-error-retry #[514 "\300\301#\210\207" [puthash "retry"] 6 (#$ . 533808)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeErrorCode #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 533941)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeErrorCode\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 534267)]) #@15 (fn OBJECT) (defalias 'lsp-initialize-error-code\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 534532)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-initialize-error-code #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 534851)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:capabilities\? :client-info\? :client-name\? :initialization-options\? :process-id\? :root-path\? :root-uri\? :trace\? :workspace-folders\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:capabilities\? :client-info\? :client-name\? :initialization-options\? :process-id\? :root-path\? :root-uri\? :trace\? :workspace-folders\?) gethash 1 nil assoc ((:capabilities\? . :capabilities) (:client-info\? . :clientInfo) (:client-name\? . :clientName) (:initialization-options\? . :initializationOptions) (:process-id\? . :processId) (:root-path\? . :rootPath) (:root-uri\? . :rootUri) (:trace\? . :trace) (:workspace-folders\? . :workspaceFolders))] 7 (#$ . 535220)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:capabilities\? :client-info\? :client-name\? :initialization-options\? :process-id\? :root-path\? :root-uri\? :trace\? :workspace-folders\?) error "Unknown key: %s. Available keys: %s" (:capabilities\? :client-info\? :client-name\? :initialization-options\? :process-id\? :root-path\? :root-uri\? :trace\? :workspace-folders\?) when ht\? gethash symbol-name assoc ((:capabilities\? . :capabilities) (:client-info\? . :clientInfo) (:client-name\? . :clientName) (:initialization-options\? . :initializationOptions) (:process-id\? . :processId) (:root-path\? . :rootPath) (:root-uri\? . :rootUri) (:trace\? . :trace) (:workspace-folders\? . :workspaceFolders)) 1 nil] 9 (#$ . 536124)]) #@15 (fn OBJECT) (defalias 'lsp-initialize-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 536967)]) #@193 (fn &rest PLIST &key CAPABILITIES\=\? CLIENT-INFO\=\? CLIENT-NAME\=\? INITIALIZATION-OPTIONS\=\? PROCESS-ID\=\? ROOT-PATH\=\? ROOT-URI\=\? TRACE\=\? WORKSPACE-FOLDERS\=\? &allow-other-keys) (defalias 'lsp-make-initialize-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\312\313\314\"\211\262\315\316\317\"\320\321\"\"\210\207" [plist-member :capabilities\? :client-info\? :client-name\? :initialization-options\? :process-id\? :root-path\? :root-uri\? :trace\? :workspace-folders\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:capabilities\? . :capabilities) (:client-info\? . :clientInfo) (:client-name\? . :clientName) (:initialization-options\? . :initializationOptions) (:process-id\? . :processId) (:root-path\? . :rootPath) (:root-uri\? . :rootUri) (:trace\? . :trace) (:workspace-folders\? . :workspaceFolders))] 9 "\n\n(fn INPUT0)"] -partition 2] 16 (#$ . 537283)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-capabilities\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "capabilities"] 4 (#$ . 538366)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-capabilities\? #[514 "\300\301#\210\207" [puthash "capabilities"] 6 (#$ . 538519)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-client-info\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "clientInfo"] 4 (#$ . 538669)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-client-info\? #[514 "\300\301#\210\207" [puthash "clientInfo"] 6 (#$ . 538819)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-client-name\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "clientName"] 4 (#$ . 538966)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-client-name\? #[514 "\300\301#\210\207" [puthash "clientName"] 6 (#$ . 539116)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-initialization-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "initializationOptions"] 4 (#$ . 539263)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-initialization-options\? #[514 "\300\301#\210\207" [puthash "initializationOptions"] 6 (#$ . 539435)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-process-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "processId"] 4 (#$ . 539604)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-process-id\? #[514 "\300\301#\210\207" [puthash "processId"] 6 (#$ . 539752)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-root-path\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rootPath"] 4 (#$ . 539897)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-root-path\? #[514 "\300\301#\210\207" [puthash "rootPath"] 6 (#$ . 540043)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-root-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rootUri"] 4 (#$ . 540186)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-root-uri\? #[514 "\300\301#\210\207" [puthash "rootUri"] 6 (#$ . 540330)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-trace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "trace"] 4 (#$ . 540471)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-trace\? #[514 "\300\301#\210\207" [puthash "trace"] 6 (#$ . 540610)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-workspace-folders\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceFolders"] 4 (#$ . 540746)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 540908)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeResult #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:server-info\? :capabilities) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:server-info\? :capabilities) gethash 1 nil assoc ((:server-info\? . :serverInfo) (:capabilities . :capabilities))] 7 (#$ . 541067)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeResult\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:server-info\? :capabilities) error "Unknown key: %s. Available keys: %s" (:server-info\? :capabilities) when ht\? gethash symbol-name assoc ((:server-info\? . :serverInfo) (:capabilities . :capabilities)) 1 nil] 9 (#$ . 541517)]) #@15 (fn OBJECT) (defalias 'lsp-initialize-result\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("capabilities") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:capabilities)] 6 (#$ . 541906)]) #@72 (fn &rest PLIST &key SERVER-INFO\=\? CAPABILITIES &allow-other-keys) (defalias 'lsp-make-initialize-result #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :server-info\? :capabilities make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:server-info\? . :serverInfo) (:capabilities . :capabilities))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 542250)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-result-server-info\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "serverInfo"] 4 (#$ . 542774)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-result-server-info\? #[514 "\300\301#\210\207" [puthash "serverInfo"] 6 (#$ . 542924)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-result-capabilities #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "capabilities"] 4 (#$ . 543071)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-result-capabilities #[514 "\300\301#\210\207" [puthash "capabilities"] 6 (#$ . 543222)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializedParams #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 543370)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializedParams\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 543694)]) #@15 (fn OBJECT) (defalias 'lsp-initialized-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 543957)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-initialized-params #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 544273)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&LocationLink #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:origin-selection-range\? :target-selection-range :target-uri :target-range) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:origin-selection-range\? :target-selection-range :target-uri :target-range) gethash 1 nil assoc ((:origin-selection-range\? . :originSelectionRange) (:target-selection-range . :targetSelectionRange) (:target-uri . :targetUri) (:target-range . :targetRange))] 7 (#$ . 544639)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&LocationLink\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:origin-selection-range\? :target-selection-range :target-uri :target-range) error "Unknown key: %s. Available keys: %s" (:origin-selection-range\? :target-selection-range :target-uri :target-range) when ht\? gethash symbol-name assoc ((:origin-selection-range\? . :originSelectionRange) (:target-selection-range . :targetSelectionRange) (:target-uri . :targetUri) (:target-range . :targetRange)) 1 nil] 9 (#$ . 545276)]) #@15 (fn OBJECT) (defalias 'lsp-location-link\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("targetSelectionRange" "targetUri" "targetRange") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:targetSelectionRange :targetUri :targetRange)] 6 (#$ . 545852)]) #@117 (fn &rest PLIST &key ORIGIN-SELECTION-RANGE\=\? TARGET-SELECTION-RANGE TARGET-URI TARGET-RANGE &allow-other-keys) (defalias 'lsp-make-location-link #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :origin-selection-range\? :target-selection-range :target-uri :target-range make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:origin-selection-range\? . :originSelectionRange) (:target-selection-range . :targetSelectionRange) (:target-uri . :targetUri) (:target-range . :targetRange))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 546259)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-origin-selection-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "originSelectionRange"] 4 (#$ . 546995)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-origin-selection-range\? #[514 "\300\301#\210\207" [puthash "originSelectionRange"] 6 (#$ . 547162)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetSelectionRange"] 4 (#$ . 547326)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-selection-range #[514 "\300\301#\210\207" [puthash "targetSelectionRange"] 6 (#$ . 547491)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetUri"] 4 (#$ . 547653)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-uri #[514 "\300\301#\210\207" [puthash "targetUri"] 6 (#$ . 547795)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetRange"] 4 (#$ . 547934)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-range #[514 "\300\301#\210\207" [puthash "targetRange"] 6 (#$ . 548080)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MarkupKind #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 548223)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MarkupKind\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 548540)]) #@15 (fn OBJECT) (defalias 'lsp-markup-kind\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 548796)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-markup-kind #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 549105)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MessageParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:type :message) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:type :message) gethash 1 nil assoc ((:type . :type) (:message . :message))] 7 (#$ . 549464)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MessageParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:type :message) error "Unknown key: %s. Available keys: %s" (:type :message) when ht\? gethash symbol-name assoc ((:type . :type) (:message . :message)) 1 nil] 9 (#$ . 549858)]) #@15 (fn OBJECT) (defalias 'lsp-message-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("type" "message") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:type :message)] 6 (#$ . 550191)]) #@56 (fn &rest PLIST &key TYPE MESSAGE &allow-other-keys) (defalias 'lsp-make-message-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :type :message make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:type . :type) (:message . :message))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 550535)]) #@15 (fn OBJECT) (defalias 'lsp:message-params-type #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "type"] 4 (#$ . 551001)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-params-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 551133)]) #@15 (fn OBJECT) (defalias 'lsp:message-params-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 551262)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-params-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 551400)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PrepareRenameParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 551535)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PrepareRenameParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 552004)]) #@15 (fn OBJECT) (defalias 'lsp-prepare-rename-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 552412)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-prepare-rename-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 552781)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 553338)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 553477)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 553613)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 553769)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 553922)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 554069)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PrepareRenameResult #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:range :placeholder) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:range :placeholder) gethash 1 nil assoc ((:range . :range) (:placeholder . :placeholder))] 7 (#$ . 554213)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PrepareRenameResult\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:range :placeholder) error "Unknown key: %s. Available keys: %s" (:range :placeholder) when ht\? gethash symbol-name assoc ((:range . :range) (:placeholder . :placeholder)) 1 nil] 9 (#$ . 554633)]) #@15 (fn OBJECT) (defalias 'lsp-prepare-rename-result\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range" "placeholder") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range :placeholder)] 6 (#$ . 554992)]) #@61 (fn &rest PLIST &key RANGE PLACEHOLDER &allow-other-keys) (defalias 'lsp-make-prepare-rename-result #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :range :placeholder make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:range . :range) (:placeholder . :placeholder))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 555353)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-result-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 555846)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-result-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 555987)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-result-placeholder #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "placeholder"] 4 (#$ . 556125)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-result-placeholder #[514 "\300\301#\210\207" [puthash "placeholder"] 6 (#$ . 556278)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PublishDiagnosticsParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:version\? :diagnostics :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:version\? :diagnostics :uri) gethash 1 nil assoc ((:version\? . :version) (:diagnostics . :diagnostics) (:uri . :uri))] 7 (#$ . 556428)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PublishDiagnosticsParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:version\? :diagnostics :uri) error "Unknown key: %s. Available keys: %s" (:version\? :diagnostics :uri) when ht\? gethash symbol-name assoc ((:version\? . :version) (:diagnostics . :diagnostics) (:uri . :uri)) 1 nil] 9 (#$ . 556891)]) #@15 (fn OBJECT) (defalias 'lsp-publish-diagnostics-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("diagnostics" "uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:diagnostics :uri)] 6 (#$ . 557293)]) #@71 (fn &rest PLIST &key VERSION\=\? DIAGNOSTICS URI &allow-other-keys) (defalias 'lsp-make-publish-diagnostics-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :version\? :diagnostics :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:version\? . :version) (:diagnostics . :diagnostics) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 557655)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-version\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 558206)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 558358)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 558507)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-diagnostics #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 558665)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 558820)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 558962)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ReferenceParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :context :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :context :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:context . :context) (:position . :position))] 7 (#$ . 559101)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ReferenceParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :context :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :context :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:context . :context) (:position . :position)) 1 nil] 9 (#$ . 559606)]) #@15 (fn OBJECT) (defalias 'lsp-reference-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "context" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :context :position)] 6 (#$ . 560050)]) #@82 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT CONTEXT POSITION &allow-other-keys) (defalias 'lsp-make-reference-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :uri\? :text-document :context :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:context . :context) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 560433)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 561037)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 561171)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 561302)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 561453)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-context #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 561601)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 561741)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 561878)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 562020)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RegistrationParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:registrations s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:registrations) gethash 1 nil assoc ((:registrations . :registrations))] 7 (#$ . 562159)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RegistrationParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:registrations error "Unknown key: %s. Available keys: %s" (:registrations) when ht\? gethash symbol-name assoc ((:registrations . :registrations)) 1 nil] 9 (#$ . 562552)]) #@15 (fn OBJECT) (defalias 'lsp-registration-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("registrations") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:registrations)] 6 (#$ . 562884)]) #@57 (fn &rest PLIST &key REGISTRATIONS &allow-other-keys) (defalias 'lsp-make-registration-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :registrations make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:registrations . :registrations))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 563232)]) #@15 (fn OBJECT) (defalias 'lsp:registration-params-registrations #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "registrations"] 4 (#$ . 563687)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-params-registrations #[514 "\300\301#\210\207" [puthash "registrations"] 6 (#$ . 563842)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameFile #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:options\? :kind :new-uri :old-uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:options\? :kind :new-uri :old-uri) gethash 1 nil assoc ((:options\? . :options) (:kind . :kind) (:new-uri . :newUri) (:old-uri . :oldUri))] 7 (#$ . 563994)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameFile\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:options\? :kind :new-uri :old-uri) error "Unknown key: %s. Available keys: %s" (:options\? :kind :new-uri :old-uri) when ht\? gethash symbol-name assoc ((:options\? . :options) (:kind . :kind) (:new-uri . :newUri) (:old-uri . :oldUri)) 1 nil] 9 (#$ . 564469)]) #@15 (fn OBJECT) (defalias 'lsp-rename-file\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "newUri" "oldUri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :newUri :oldUri)] 6 (#$ . 564883)]) #@76 (fn &rest PLIST &key OPTIONS\=\? KIND NEW-URI OLD-URI &allow-other-keys) (defalias 'lsp-make-rename-file #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :options\? :kind :new-uri :old-uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:options\? . :options) (:kind . :kind) (:new-uri . :newUri) (:old-uri . :oldUri))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 565239)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 565813)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 565950)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 566084)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 566213)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-new-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newUri"] 4 (#$ . 566339)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-new-uri #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 566473)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-old-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "oldUri"] 4 (#$ . 566604)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-old-uri #[514 "\300\301#\210\207" [puthash "oldUri"] 6 (#$ . 566738)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :new-name :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :new-name :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:new-name . :newName) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 566869)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :new-name :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :new-name :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:new-name . :newName) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 567374)]) #@15 (fn OBJECT) (defalias 'lsp-rename-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("newName" "textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:newName :textDocument :position)] 6 (#$ . 567818)]) #@83 (fn &rest PLIST &key URI\=\? NEW-NAME TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-rename-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :uri\? :new-name :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:new-name . :newName) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 568198)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 568802)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 568933)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-new-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newName"] 4 (#$ . 569061)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-new-name #[514 "\300\301#\210\207" [puthash "newName"] 6 (#$ . 569199)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 569334)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 569482)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 569627)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 569766)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResolveTypeHierarchyItemParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:item :resolve :direction) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:item :resolve :direction) gethash 1 nil assoc ((:item . :item) (:resolve . :resolve) (:direction . :direction))] 7 (#$ . 569902)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResolveTypeHierarchyItemParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:item :resolve :direction) error "Unknown key: %s. Available keys: %s" (:item :resolve :direction) when ht\? gethash symbol-name assoc ((:item . :item) (:resolve . :resolve) (:direction . :direction)) 1 nil] 9 (#$ . 570361)]) #@15 (fn OBJECT) (defalias 'lsp-resolve-type-hierarchy-item-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("item" "resolve" "direction") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:item :resolve :direction)] 6 (#$ . 570759)]) #@66 (fn &rest PLIST &key ITEM RESOLVE DIRECTION &allow-other-keys) (defalias 'lsp-make-resolve-type-hierarchy-item-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :item :resolve :direction make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:item . :item) (:resolve . :resolve) (:direction . :direction))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 571146)]) #@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-item #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "item"] 4 (#$ . 571693)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 571845)]) #@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-resolve #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolve"] 4 (#$ . 571994)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-resolve #[514 "\300\301#\210\207" [puthash "resolve"] 6 (#$ . 572152)]) #@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-direction #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "direction"] 4 (#$ . 572307)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-direction #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 572469)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResourceOperationKind #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 572628)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResourceOperationKind\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 572956)]) #@15 (fn OBJECT) (defalias 'lsp-resource-operation-kind\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 573223)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-resource-operation-kind #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 573544)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SelectionRangeParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :positions) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :positions) gethash 1 nil assoc ((:text-document . :textDocument) (:positions . :positions))] 7 (#$ . 573915)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SelectionRangeParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :positions) error "Unknown key: %s. Available keys: %s" (:text-document :positions) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:positions . :positions)) 1 nil] 9 (#$ . 574359)]) #@15 (fn OBJECT) (defalias 'lsp-selection-range-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "positions") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :positions)] 6 (#$ . 574742)]) #@67 (fn &rest PLIST &key TEXT-DOCUMENT POSITIONS &allow-other-keys) (defalias 'lsp-make-selection-range-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text-document :positions make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:positions . :positions))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 575114)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 575631)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 575788)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-params-positions #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "positions"] 4 (#$ . 575942)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-params-positions #[514 "\300\301#\210\207" [puthash "positions"] 6 (#$ . 576092)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticHighlightingParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:text-document :lines) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :lines) gethash 1 nil assoc ((:text-document . :textDocument) (:lines . :lines))] 7 (#$ . 576239)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticHighlightingParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :lines) error "Unknown key: %s. Available keys: %s" (:text-document :lines) when ht\? gethash symbol-name assoc ((:text-document . :textDocument) (:lines . :lines)) 1 nil] 9 (#$ . 576673)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-highlighting-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "lines") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :lines)] 6 (#$ . 577046)]) #@63 (fn &rest PLIST &key TEXT-DOCUMENT LINES &allow-other-keys) (defalias 'lsp-make-semantic-highlighting-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :text-document :lines make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:text-document . :textDocument) (:lines . :lines))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 577416)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 577923)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 578086)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-params-lines #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "lines"] 4 (#$ . 578246)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-params-lines #[514 "\300\301#\210\207" [puthash "lines"] 6 (#$ . 578394)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowMessageRequestParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:actions\? :type :message) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:actions\? :type :message) gethash 1 nil assoc ((:actions\? . :actions) (:type . :type) (:message . :message))] 7 (#$ . 578539)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowMessageRequestParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:actions\? :type :message) error "Unknown key: %s. Available keys: %s" (:actions\? :type :message) when ht\? gethash symbol-name assoc ((:actions\? . :actions) (:type . :type) (:message . :message)) 1 nil] 9 (#$ . 578990)]) #@15 (fn OBJECT) (defalias 'lsp-show-message-request-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("type" "message") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:type :message)] 6 (#$ . 579380)]) #@68 (fn &rest PLIST &key ACTIONS\=\? TYPE MESSAGE &allow-other-keys) (defalias 'lsp-make-show-message-request-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :actions\? :type :message make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:actions\? . :actions) (:type . :type) (:message . :message))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 579737)]) #@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-actions\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "actions"] 4 (#$ . 580277)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-actions\? #[514 "\300\301#\210\207" [puthash "actions"] 6 (#$ . 580430)]) #@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-type #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "type"] 4 (#$ . 580580)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 580725)]) #@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 580867)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 581018)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:context\? :uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:context\? :uri\? :text-document :position) gethash 1 nil assoc ((:context\? . :context) (:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 581166)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:context\? :uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:context\? :uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:context\? . :context) (:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 581681)]) #@15 (fn OBJECT) (defalias 'lsp-signature-help-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 582135)]) #@86 (fn &rest PLIST &key CONTEXT\=\? URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-signature-help-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :context\? :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:context\? . :context) (:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 582504)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-context\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 583121)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-context\? #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 583268)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 583412)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 583551)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 583687)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 583843)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 583996)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 584143)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpRegistrationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :trigger-characters\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :trigger-characters\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:trigger-characters\? . :triggerCharacters))] 7 (#$ . 584287)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SignatureHelpRegistrationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :trigger-characters\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :trigger-characters\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:trigger-characters\? . :triggerCharacters)) 1 nil] 9 (#$ . 584806)]) #@15 (fn OBJECT) (defalias 'lsp-signature-help-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 585264)]) #@88 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? TRIGGER-CHARACTERS\=\? &allow-other-keys) (defalias 'lsp-make-signature-help-registration-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :document-selector\? :trigger-characters\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:trigger-characters\? . :triggerCharacters))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 585597)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 586194)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 586374)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-registration-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 586551)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-registration-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 586733)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SymbolInformation #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:container-name\? :deprecated\? :kind :name :location) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:container-name\? :deprecated\? :kind :name :location) gethash 1 nil assoc ((:container-name\? . :containerName) (:deprecated\? . :deprecated) (:kind . :kind) (:name . :name) (:location . :location))] 7 (#$ . 586912)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SymbolInformation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:container-name\? :deprecated\? :kind :name :location) error "Unknown key: %s. Available keys: %s" (:container-name\? :deprecated\? :kind :name :location) when ht\? gethash symbol-name assoc ((:container-name\? . :containerName) (:deprecated\? . :deprecated) (:kind . :kind) (:name . :name) (:location . :location)) 1 nil] 9 (#$ . 587473)]) #@15 (fn OBJECT) (defalias 'lsp-symbol-information\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("kind" "name" "location") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:kind :name :location)] 6 (#$ . 587973)]) #@96 (fn &rest PLIST &key CONTAINER-NAME\=\? DEPRECATED\=\? KIND NAME LOCATION &allow-other-keys) (defalias 'lsp-make-symbol-information #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :container-name\? :deprecated\? :kind :name :location make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:container-name\? . :containerName) (:deprecated\? . :deprecated) (:kind . :kind) (:name . :name) (:location . :location))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 588336)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-container-name\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "containerName"] 4 (#$ . 589011)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-container-name\? #[514 "\300\301#\210\207" [puthash "containerName"] 6 (#$ . 589168)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 589322)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 589472)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 589619)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 589755)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 589888)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 590024)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-location #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "location"] 4 (#$ . 590157)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-location #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 590301)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentChangeRegistrationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :sync-kind) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :sync-kind) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:sync-kind . :syncKind))] 7 (#$ . 590442)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentChangeRegistrationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :sync-kind) error "Unknown key: %s. Available keys: %s" (:document-selector\? :sync-kind) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:sync-kind . :syncKind)) 1 nil] 9 (#$ . 590924)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-change-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("syncKind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:syncKind)] 6 (#$ . 591345)]) #@75 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? SYNC-KIND &allow-other-keys) (defalias 'lsp-make-text-document-change-registration-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :document-selector\? :sync-kind make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:sync-kind . :syncKind))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 591705)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-change-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 592264)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-change-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 592450)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-change-registration-options-sync-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "syncKind"] 4 (#$ . 592633)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-change-registration-options-sync-kind #[514 "\300\301#\210\207" [puthash "syncKind"] 6 (#$ . 592801)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentPositionParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 592966)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentPositionParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 593442)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-position-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 593857)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-text-document-position-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 594234)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 594799)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 594946)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 595090)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 595254)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 595415)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 595570)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentRegistrationOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:document-selector\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector))] 7 (#$ . 595722)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentRegistrationOptions\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:document-selector\? error "Unknown key: %s. Available keys: %s" (:document-selector\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector)) 1 nil] 9 (#$ . 596149)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 596515)]) #@65 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? &allow-other-keys) (defalias 'lsp-make-text-document-registration-options #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :document-selector\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 596847)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 597340)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 597519)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentSaveRegistrationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:document-selector\? :include-text\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:document-selector\? :include-text\?) gethash 1 nil assoc ((:document-selector\? . :documentSelector) (:include-text\? . :includeText))] 7 (#$ . 597695)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TextDocumentSaveRegistrationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:document-selector\? :include-text\?) error "Unknown key: %s. Available keys: %s" (:document-selector\? :include-text\?) when ht\? gethash symbol-name assoc ((:document-selector\? . :documentSelector) (:include-text\? . :includeText)) 1 nil] 9 (#$ . 598193)]) #@15 (fn OBJECT) (defalias 'lsp-text-document-save-registration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 598630)]) #@82 (fn &rest PLIST &key DOCUMENT-SELECTOR\=\? INCLUDE-TEXT\=\? &allow-other-keys) (defalias 'lsp-make-text-document-save-registration-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :document-selector\? :include-text\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:document-selector\? . :documentSelector) (:include-text\? . :includeText))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 598967)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-save-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 599544)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-save-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 599728)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-save-registration-options-include-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "includeText"] 4 (#$ . 599909)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-save-registration-options-include-text\? #[514 "\300\301#\210\207" [puthash "includeText"] 6 (#$ . 600083)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeDefinitionParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri\? :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) gethash 1 nil assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 600254)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeDefinitionParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri\? :text-document :position) error "Unknown key: %s. Available keys: %s" (:uri\? :text-document :position) when ht\? gethash symbol-name assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 600724)]) #@15 (fn OBJECT) (defalias 'lsp-type-definition-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position)] 6 (#$ . 601133)]) #@74 (fn &rest PLIST &key URI\=\? TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-type-definition-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :uri\? :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 601503)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 602061)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 602201)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 602338)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 602495)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 602649)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 602797)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeHierarchyParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:direction\? :uri\? :resolve :text-document :position) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:direction\? :uri\? :resolve :text-document :position) gethash 1 nil assoc ((:direction\? . :direction) (:uri\? . :uri) (:resolve . :resolve) (:text-document . :textDocument) (:position . :position))] 7 (#$ . 602942)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TypeHierarchyParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:direction\? :uri\? :resolve :text-document :position) error "Unknown key: %s. Available keys: %s" (:direction\? :uri\? :resolve :text-document :position) when ht\? gethash symbol-name assoc ((:direction\? . :direction) (:uri\? . :uri) (:resolve . :resolve) (:text-document . :textDocument) (:position . :position)) 1 nil] 9 (#$ . 603505)]) #@15 (fn OBJECT) (defalias 'lsp-type-hierarchy-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("resolve" "textDocument" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:resolve :textDocument :position)] 6 (#$ . 604007)]) #@96 (fn &rest PLIST &key DIRECTION\=\? URI\=\? RESOLVE TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-type-hierarchy-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :direction\? :uri\? :resolve :text-document :position make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:direction\? . :direction) (:uri\? . :uri) (:resolve . :resolve) (:text-document . :textDocument) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 604395)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-direction\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "direction"] 4 (#$ . 605073)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-direction\? #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 605224)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 605372)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 605511)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-resolve #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolve"] 4 (#$ . 605647)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-resolve #[514 "\300\301#\210\207" [puthash "resolve"] 6 (#$ . 605792)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 605934)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 606090)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 606243)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 606390)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&UnregistrationParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:unregisterations s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:unregisterations) gethash 1 nil assoc ((:unregisterations . :unregisterations))] 7 (#$ . 606534)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&UnregistrationParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:unregisterations error "Unknown key: %s. Available keys: %s" (:unregisterations) when ht\? gethash symbol-name assoc ((:unregisterations . :unregisterations)) 1 nil] 9 (#$ . 606941)]) #@15 (fn OBJECT) (defalias 'lsp-unregistration-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("unregisterations") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:unregisterations)] 6 (#$ . 607287)]) #@60 (fn &rest PLIST &key UNREGISTERATIONS &allow-other-keys) (defalias 'lsp-make-unregistration-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :unregisterations make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:unregisterations . :unregisterations))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 607643)]) #@15 (fn OBJECT) (defalias 'lsp:unregistration-params-unregisterations #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "unregisterations"] 4 (#$ . 608112)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-params-unregisterations #[514 "\300\301#\210\207" [puthash "unregisterations"] 6 (#$ . 608275)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WatchKind #[514 "\300>\204\301\302\303!\"\204\304\305\300#\210\306\301\302\303!\"\203(\303!\307\300O\2022\303\310\300\"A!\307\300OE\207" [nil s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" gethash 1 assoc] 7 (#$ . 608435)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WatchKind\? #[514 "\300>\204\f\301\302\300#\210\303\304D\305\306\307\300\"A!\310\300OEE\207" [nil error "Unknown key: %s. Available keys: %s" when ht\? gethash symbol-name assoc 1] 9 (#$ . 608751)]) #@15 (fn OBJECT) (defalias 'lsp-watch-kind\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 609006)]) #@43 (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-watch-kind #[128 "\300\301\302\"\211\262\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc nil] 9 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 609314)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WillSaveTextDocumentParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:reason :text-document) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:reason :text-document) gethash 1 nil assoc ((:reason . :reason) (:text-document . :textDocument))] 7 (#$ . 609672)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WillSaveTextDocumentParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:reason :text-document) error "Unknown key: %s. Available keys: %s" (:reason :text-document) when ht\? gethash symbol-name assoc ((:reason . :reason) (:text-document . :textDocument)) 1 nil] 9 (#$ . 610110)]) #@15 (fn OBJECT) (defalias 'lsp-will-save-text-document-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("reason" "textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:reason :textDocument)] 6 (#$ . 610487)]) #@64 (fn &rest PLIST &key REASON TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-will-save-text-document-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :reason :text-document make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:reason . :reason) (:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 610861)]) #@15 (fn OBJECT) (defalias 'lsp:will-save-text-document-params-reason #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "reason"] 4 (#$ . 611374)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-will-save-text-document-params-reason #[514 "\300\301#\210\207" [puthash "reason"] 6 (#$ . 611526)]) #@15 (fn OBJECT) (defalias 'lsp:will-save-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 611675)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-will-save-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 611840)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceSymbolParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:query s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:query) gethash 1 nil assoc ((:query . :query))] 7 (#$ . 612002)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceSymbolParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:query error "Unknown key: %s. Available keys: %s" (:query) when ht\? gethash symbol-name assoc ((:query . :query)) 1 nil] 9 (#$ . 612366)]) #@15 (fn OBJECT) (defalias 'lsp-workspace-symbol-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("query") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:query)] 6 (#$ . 612669)]) #@49 (fn &rest PLIST &key QUERY &allow-other-keys) (defalias 'lsp-make-workspace-symbol-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :query make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:query . :query))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 613005)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-symbol-params-query #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "query"] 4 (#$ . 613432)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-symbol-params-query #[514 "\300\301#\210\207" [puthash "query"] 6 (#$ . 613575)]) (provide 'lsp-protocol)