;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 "\301 p\302\303#\216\304!\210\305\306\307\310\311\"\")B\207" [ascii-case-table current-case-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-case-table] 2] set-case-table 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\201P\201Q\203\365\322\201R\201S\201T\301\201U\315DECB\201T\201F\201V\201W\201X\201Y\201Z\201[\312\201\\\201]\315DE\320\321\201^\315\301\316\"DFED\201_BB\201`BBE\201aBBBCBFCB\202W\322\201R\201b\201T\301\201c\315DECB\201T\201F\201d\201W\201X\201Y\201e\201f\201K\312\201\\\201]\315DE\320\321\201g\315\301\316\"DFEDD\201hBB\201iBBE\201jBBBCBFCBF\377\201k\201l \"\"BBBBB\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) pcase-defmacro (&rest property-bindings) and (pred listp) \,@ (lambda (key) `(pred (lambda (plist) (plist-member plist ,key)))) ((current-list property-bindings) (output-bindings nil)) while current-list -let* ((curr-binding-as-keyword next-entry . _) current-list) curr-binding-as-camelcased-symbol alist-get curr-binding-as-keyword (symbol-name curr-binding-as-keyword) ((bound-name (lsp-keyword->symbol curr-binding-as-keyword)) (next-entry-is-key-or-nil (and (symbolp next-entry) (or (null next-entry) (s-starts-with\? ":" (symbol-name next-entry)))))) ((cond (next-entry-is-key-or-nil (push `(app (lambda (plist) (plist-get plist ,curr-binding-as-camelcased-symbol)) ,bound-name) output-bindings) (setf current-list (cdr current-list))) (t (push `(app (lambda (plist) (plist-get plist ,curr-binding-as-camelcased-symbol)) ,next-entry) output-bindings) (setf current-list (cddr current-list))))) (output-bindings) (pred ht\?) (lambda (key) `(pred (lambda (hash-table) (ht-contains\? hash-table ,(lsp-keyword->string key))))) ((current-list property-bindings) (output-bindings nil)) ((curr-binding-as-keyword next-entry . _) current-list) curr-binding-as-camelcased-string (symbol-name curr-binding-as-keyword) ((bound-name (lsp-keyword->symbol curr-binding-as-keyword)) (next-entry-is-key-or-nil (and (symbolp next-entry) (or (null next-entry) (s-starts-with\? ":" (symbol-name next-entry)))))) ((cond (next-entry-is-key-or-nil (push `(app (lambda (hash-table) (ht-get hash-table ,curr-binding-as-camelcased-string)) ,bound-name) output-bindings) (setf current-list (cdr current-list))) (t (push `(app (lambda (hash-table) (ht-get hash-table ,curr-binding-as-camelcased-string)) ,next-entry) output-bindings) (setf current-list (cddr current-list))))) (output-bindings) 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)"]] 35 "\n\n(fn INPUT0)"]] 9 (#$ . 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\301\316\317\"\210\202M\301\302\320\"\210\301\304\321\"\210\301\306\322\"\210\301\310\323\"\210\301\312\324\"\210\301\314\325\"\210\301\316\326\"\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 lsp-member\? #[514 "<\205 \300\"\207" [plist-member] 5 "\n\n(fn FROM KEY)"] #[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 #[514 "\300!\205\301\302!\303#\303=?\207" [hash-table-p gethash lsp-keyword->string :__lsp_default] 6 "\n\n(fn FROM KEY)"]] 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 (#$ . 7477)])) (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 (#$ . 8867)]) #@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 (#$ . 9318)]) #@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 (#$ . 9708)]) #@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 (#$ . 10077)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'JSONResponse--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:params :id :method :result) nil lsp-keyword->string alist-get ((:params . :params) (:id . :id) (:method . :method) (:result . :result)) error "Unknown key: %s. Available keys: %s" symbol-name (:params :id :method :result) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 10626)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop JSONResponse--pcase-macroexpander edebug-form-spec nil JSONResponse pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:json-response-params #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 11671)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 11805)]) #@15 (fn OBJECT) (defalias 'lsp:json-response-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 11936)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 12062)]) #@15 (fn OBJECT) (defalias 'lsp:json-response-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 12185)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 12319)]) #@15 (fn OBJECT) (defalias 'lsp:json-response-result #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "result"] 4 (#$ . 12450)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-result #[514 "\300\301#\210\207" [puthash "result"] 6 (#$ . 12584)]) #@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 (#$ . 12715)]) #@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 (#$ . 13074)]) #@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 (#$ . 13372)]) #@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 (#$ . 13703)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'JSONResponseError--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:error) nil lsp-keyword->string alist-get ((:error . :error)) error "Unknown key: %s. Available keys: %s" symbol-name (:error) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 14125)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop JSONResponseError--pcase-macroexpander edebug-form-spec nil JSONResponseError pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:json-response-error-error #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "error"] 4 (#$ . 15089)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-error-error #[514 "\300\301#\210\207" [puthash "error"] 6 (#$ . 15227)]) #@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 (#$ . 15362)]) #@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 (#$ . 15875)]) #@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 (#$ . 16327)]) #@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 (#$ . 16636)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'JSONMessage--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:params\? . :params) (:id\? . :id) (:method\? . :method) (:result\? . :result) (:error\? . :error)) error "Unknown key: %s. Available keys: %s" symbol-name (:params\? :id\? :method\? :result\? :error\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 17269)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop JSONMessage--pcase-macroexpander edebug-form-spec nil JSONMessage pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:json-message-params\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 18326)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-params\? #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 18461)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 18593)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 18720)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-method\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 18844)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-method\? #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 18979)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-result\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "result"] 4 (#$ . 19111)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-result\? #[514 "\300\301#\210\207" [puthash "result"] 6 (#$ . 19246)]) #@15 (fn OBJECT) (defalias 'lsp:json-message-error\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "error"] 4 (#$ . 19378)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-error\? #[514 "\300\301#\210\207" [puthash "error"] 6 (#$ . 19511)]) #@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 (#$ . 19641)]) #@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 (#$ . 20073)]) #@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 (#$ . 20444)]) #@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 (#$ . 20752)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'JSONResult--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:params\? . :params) (:id\? . :id) (:method\? . :method)) error "Unknown key: %s. Available keys: %s" symbol-name (:params\? :id\? :method\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 21275)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop JSONResult--pcase-macroexpander edebug-form-spec nil JSONResult pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:json-result-params\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 22268)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-params\? #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 22402)]) #@15 (fn OBJECT) (defalias 'lsp:json-result-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 22533)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 22659)]) #@15 (fn OBJECT) (defalias 'lsp:json-result-method\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 22782)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-method\? #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 22916)]) #@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 (#$ . 23047)]) #@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 (#$ . 23447)]) #@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 (#$ . 23786)]) #@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 (#$ . 24134)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'JSONNotification--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:params :method) nil lsp-keyword->string alist-get ((:params . :params) (:method . :method)) error "Unknown key: %s. Available keys: %s" symbol-name (:params :method) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 24606)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop JSONNotification--pcase-macroexpander edebug-form-spec nil JSONNotification pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:json-notification-params #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 25607)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-notification-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 25745)]) #@15 (fn OBJECT) (defalias 'lsp:json-notification-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 25880)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-notification-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 26018)]) #@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 (#$ . 26153)]) #@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 (#$ . 26548)]) #@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 (#$ . 26882)]) #@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 (#$ . 27225)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'JSONRequest--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:params :method) nil lsp-keyword->string alist-get ((:params . :params) (:method . :method)) error "Unknown key: %s. Available keys: %s" symbol-name (:params :method) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 27692)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop JSONRequest--pcase-macroexpander edebug-form-spec nil JSONRequest pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:json-request-params #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "params"] 4 (#$ . 28678)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-request-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 28811)]) #@15 (fn OBJECT) (defalias 'lsp:json-request-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 28941)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-request-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 29074)]) #@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" [(:data\? :message :code) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:data\? :message :code) gethash 1 nil assoc ((:data\? . :data) (:message . :message) (:code . :code))] 7 (#$ . 29204)]) #@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" [(:data\? :message :code) error "Unknown key: %s. Available keys: %s" (:data\? :message :code) when ht\? gethash symbol-name assoc ((:data\? . :data) (:message . :message) (:code . :code)) 1 nil] 9 (#$ . 29627)]) #@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 (#$ . 29989)]) #@65 (fn &rest PLIST &key DATA\=\? MESSAGE CODE &allow-other-keys) (defalias 'lsp-make-json-error #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :data\? :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 ((:data\? . :data) (:message . :message) (:code . :code))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 30328)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'JSONError--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:message :code) nil lsp-keyword->string alist-get ((:data\? . :data) (:message . :message) (:code . :code)) error "Unknown key: %s. Available keys: %s" symbol-name (:data\? :message :code) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 30838)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop JSONError--pcase-macroexpander edebug-form-spec nil JSONError pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:json-error-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 31840)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-error-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 31969)]) #@15 (fn OBJECT) (defalias 'lsp:json-error-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 32095)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-error-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 32228)]) #@15 (fn OBJECT) (defalias 'lsp:json-error-code #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "code"] 4 (#$ . 32358)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-error-code #[514 "\300\301#\210\207" [puthash "code"] 6 (#$ . 32485)]) #@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 (#$ . 32609)]) #@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 (#$ . 32999)]) #@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 (#$ . 33328)]) #@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 (#$ . 33670)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ProgressParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:token :value) nil lsp-keyword->string alist-get ((:token . :token) (:value . :value)) error "Unknown key: %s. Available keys: %s" symbol-name (:token :value) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 34132)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ProgressParams--pcase-macroexpander edebug-form-spec nil ProgressParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:progress-params-token #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "token"] 4 (#$ . 35119)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-progress-params-token #[514 "\300\301#\210\207" [puthash "token"] 6 (#$ . 35253)]) #@15 (fn OBJECT) (defalias 'lsp:progress-params-value #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "value"] 4 (#$ . 35384)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-progress-params-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 35518)]) #@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 (#$ . 35649)]) #@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 (#$ . 35991)]) #@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 (#$ . 36272)]) #@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 (#$ . 36586)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Edit--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind) nil lsp-keyword->string alist-get ((:kind . :kind)) error "Unknown key: %s. Available keys: %s" symbol-name (:kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 36989)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Edit--pcase-macroexpander edebug-form-spec nil Edit pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:edit-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 37910)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-edit-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 38031)]) #@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 (#$ . 38149)]) #@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 (#$ . 38503)]) #@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 (#$ . 38796)]) #@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 (#$ . 39124)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkDoneProgress--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind) nil lsp-keyword->string alist-get ((:kind . :kind)) error "Unknown key: %s. Available keys: %s" symbol-name (:kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 39541)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkDoneProgress--pcase-macroexpander edebug-form-spec nil WorkDoneProgress pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 40498)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 40633)]) #@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 (#$ . 40765)]) #@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 (#$ . 41324)]) #@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 (#$ . 41822)]) #@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 (#$ . 42171)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkDoneProgressBegin--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :title) nil lsp-keyword->string alist-get ((:cancellable\? . :cancellable) (:message\? . :message) (:percentage\? . :percentage) (:kind . :kind) (:title . :title)) error "Unknown key: %s. Available keys: %s" symbol-name (:cancellable\? :message\? :percentage\? :kind :title) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 42848)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkDoneProgressBegin--pcase-macroexpander edebug-form-spec nil WorkDoneProgressBegin pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-cancellable\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cancellable"] 4 (#$ . 43978)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-cancellable\? #[514 "\300\301#\210\207" [puthash "cancellable"] 6 (#$ . 44135)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 44289)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-message\? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 44438)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-percentage\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "percentage"] 4 (#$ . 44584)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-percentage\? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 44739)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 44891)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 45032)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 45170)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 45313)]) #@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 (#$ . 45453)]) #@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 (#$ . 45981)]) #@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 (#$ . 46448)]) #@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 (#$ . 46783)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkDoneProgressReport--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind) nil lsp-keyword->string alist-get ((:cancellable\? . :cancellable) (:message\? . :message) (:percentage\? . :percentage) (:kind . :kind)) error "Unknown key: %s. Available keys: %s" symbol-name (:cancellable\? :message\? :percentage\? :kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 47416)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkDoneProgressReport--pcase-macroexpander edebug-form-spec nil WorkDoneProgressReport pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-cancellable\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cancellable"] 4 (#$ . 48517)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-cancellable\? #[514 "\300\301#\210\207" [puthash "cancellable"] 6 (#$ . 48675)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 48830)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-message\? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 48980)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-percentage\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "percentage"] 4 (#$ . 49127)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-percentage\? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 49283)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 49436)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 49578)]) #@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 (#$ . 49717)]) #@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 (#$ . 50122)]) #@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 (#$ . 50466)]) #@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 (#$ . 50798)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkDoneProgressEnd--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind) nil lsp-keyword->string alist-get ((:message\? . :message) (:kind . :kind)) error "Unknown key: %s. Available keys: %s" symbol-name (:message\? :kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 51279)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkDoneProgressEnd--pcase-macroexpander edebug-form-spec nil WorkDoneProgressEnd pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-end-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 52280)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-end-message\? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 52427)]) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-end-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 52571)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-end-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 52710)]) #@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 (#$ . 52846)]) #@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 (#$ . 53267)]) #@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 (#$ . 53627)]) #@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 (#$ . 53950)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkDoneProgressOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:work-done-progress\? . :workDoneProgress)) error "Unknown key: %s. Available keys: %s" symbol-name (:work-done-progress\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 54437)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkDoneProgressOptions--pcase-macroexpander edebug-form-spec nil WorkDoneProgressOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:work-done-progress-options-work-done-progress\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workDoneProgress"] 4 (#$ . 55451)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-options-work-done-progress\? #[514 "\300\301#\210\207" [puthash "workDoneProgress"] 6 (#$ . 55622)]) #@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 (#$ . 55790)]) #@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 (#$ . 56317)]) #@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 (#$ . 56783)]) #@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 (#$ . 57120)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticTokensOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:legend) nil lsp-keyword->string alist-get ((:range-provider\? . :rangeProvider) (:document-provider\? . :documentProvider) (:legend . :legend)) error "Unknown key: %s. Available keys: %s" symbol-name (:range-provider\? :document-provider\? :legend) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 57737)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticTokensOptions--pcase-macroexpander edebug-form-spec nil SemanticTokensOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-range-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeProvider"] 4 (#$ . 58836)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-range-provider\? #[514 "\300\301#\210\207" [puthash "rangeProvider"] 6 (#$ . 58997)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-document-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentProvider"] 4 (#$ . 59155)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-document-provider\? #[514 "\300\301#\210\207" [puthash "documentProvider"] 6 (#$ . 59322)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-legend #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "legend"] 4 (#$ . 59486)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-legend #[514 "\300\301#\210\207" [puthash "legend"] 6 (#$ . 59630)]) #@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 (#$ . 59771)]) #@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 (#$ . 60229)]) #@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 (#$ . 60626)]) #@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 (#$ . 61003)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticTokensLegend--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:tokenTypes :tokenModifiers) nil lsp-keyword->string alist-get ((:token-types . :tokenTypes) (:token-modifiers . :tokenModifiers)) error "Unknown key: %s. Available keys: %s" symbol-name (:token-types :token-modifiers) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 61534)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticTokensLegend--pcase-macroexpander edebug-form-spec nil SemanticTokensLegend pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-legend-token-types #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tokenTypes"] 4 (#$ . 62599)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-legend-token-types #[514 "\300\301#\210\207" [puthash "tokenTypes"] 6 (#$ . 62751)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-legend-token-modifiers #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tokenModifiers"] 4 (#$ . 62900)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-legend-token-modifiers #[514 "\300\301#\210\207" [puthash "tokenModifiers"] 6 (#$ . 63060)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensResult #[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\? :result-id) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:data\? :result-id) gethash 1 nil assoc ((:data\? . :data) (:result-id . :resultId))] 7 (#$ . 63217)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensResult\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:data\? :result-id) error "Unknown key: %s. Available keys: %s" (:data\? :result-id) when ht\? gethash symbol-name assoc ((:data\? . :data) (:result-id . :resultId)) 1 nil] 9 (#$ . 63630)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-tokens-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)"] ("resultId") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:resultId)] 6 (#$ . 63982)]) #@62 (fn &rest PLIST &key DATA\=\? RESULT-ID &allow-other-keys) (defalias 'lsp-make-semantic-tokens-result #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :data\? :result-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 ((:data\? . :data) (:result-id . :resultId))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 64322)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticTokensResult--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:resultId) nil lsp-keyword->string alist-get ((:data\? . :data) (:result-id . :resultId)) error "Unknown key: %s. Available keys: %s" symbol-name (:data\? :result-id) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 64810)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticTokensResult--pcase-macroexpander edebug-form-spec nil SemanticTokensResult pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-result-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 65823)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-result-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 65964)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-result-result-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resultId"] 4 (#$ . 66102)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-result-result-id #[514 "\300\301#\210\207" [puthash "resultId"] 6 (#$ . 66250)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensPartialResult #[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 (#$ . 66395)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensPartialResult\? #[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 (#$ . 66766)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-tokens-partial-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 (#$ . 67076)]) #@52 (fn &rest PLIST &key DATA\=\? &allow-other-keys) (defalias 'lsp-make-semantic-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 (#$ . 67403)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticTokensPartialResult--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:data\? . :data)) error "Unknown key: %s. Available keys: %s" symbol-name (:data\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 67840)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticTokensPartialResult--pcase-macroexpander edebug-form-spec nil SemanticTokensPartialResult pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-partial-result-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 68826)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-partial-result-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 68975)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensEdit #[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\? :start :delete-count) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:data\? :start :delete-count) gethash 1 nil assoc ((:data\? . :data) (:start . :start) (:delete-count . :deleteCount))] 7 (#$ . 69121)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensEdit\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:data\? :start :delete-count) error "Unknown key: %s. Available keys: %s" (:data\? :start :delete-count) when ht\? gethash symbol-name assoc ((:data\? . :data) (:start . :start) (:delete-count . :deleteCount)) 1 nil] 9 (#$ . 69576)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-tokens-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)"] ("start" "deleteCount") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:start :deleteCount)] 6 (#$ . 69970)]) #@71 (fn &rest PLIST &key DATA\=\? START DELETE-COUNT &allow-other-keys) (defalias 'lsp-make-semantic-tokens-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 :data\? :start :delete-count 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) (:start . :start) (:delete-count . :deleteCount))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 70329)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticTokensEdit--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:start :deleteCount) nil lsp-keyword->string alist-get ((:data\? . :data) (:start . :start) (:delete-count . :deleteCount)) error "Unknown key: %s. Available keys: %s" symbol-name (:data\? :start :delete-count) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 70872)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticTokensEdit--pcase-macroexpander edebug-form-spec nil SemanticTokensEdit pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-edit-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 71923)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-edit-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 72062)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-edit-start #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "start"] 4 (#$ . 72198)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-edit-start #[514 "\300\301#\210\207" [puthash "start"] 6 (#$ . 72337)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-edit-delete-count #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deleteCount"] 4 (#$ . 72473)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-edit-delete-count #[514 "\300\301#\210\207" [puthash "deleteCount"] 6 (#$ . 72625)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensDelta #[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" [(:edits\? :result-id) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:edits\? :result-id) gethash 1 nil assoc ((:edits\? . :edits) (:result-id . :resultId))] 7 (#$ . 72774)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensDelta\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:edits\? :result-id) error "Unknown key: %s. Available keys: %s" (:edits\? :result-id) when ht\? gethash symbol-name assoc ((:edits\? . :edits) (:result-id . :resultId)) 1 nil] 9 (#$ . 73190)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-tokens-delta\? #[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)"] ("resultId") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:resultId)] 6 (#$ . 73545)]) #@63 (fn &rest PLIST &key EDITS\=\? RESULT-ID &allow-other-keys) (defalias 'lsp-make-semantic-tokens-delta #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :edits\? :result-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 ((:edits\? . :edits) (:result-id . :resultId))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 73884)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticTokensDelta--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:resultId) nil lsp-keyword->string alist-get ((:edits\? . :edits) (:result-id . :resultId)) error "Unknown key: %s. Available keys: %s" symbol-name (:edits\? :result-id) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 74375)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticTokensDelta--pcase-macroexpander edebug-form-spec nil SemanticTokensDelta pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-delta-edits\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edits"] 4 (#$ . 75388)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-delta-edits\? #[514 "\300\301#\210\207" [puthash "edits"] 6 (#$ . 75530)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-delta-result-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resultId"] 4 (#$ . 75669)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-delta-result-id #[514 "\300\301#\210\207" [puthash "resultId"] 6 (#$ . 75816)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensDeltaPartialResult #[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" [:edits\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:edits\?) gethash 1 nil assoc ((:edits\? . :edits))] 7 (#$ . 75960)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&SemanticTokensDeltaPartialResult\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:edits\? error "Unknown key: %s. Available keys: %s" (:edits\?) when ht\? gethash symbol-name assoc ((:edits\? . :edits)) 1 nil] 9 (#$ . 76340)]) #@15 (fn OBJECT) (defalias 'lsp-semantic-tokens-delta-partial-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 (#$ . 76659)]) #@53 (fn &rest PLIST &key EDITS\=\? &allow-other-keys) (defalias 'lsp-make-semantic-tokens-delta-partial-result #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :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 ((:edits\? . :edits))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 76992)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticTokensDeltaPartialResult--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:edits\? . :edits)) error "Unknown key: %s. Available keys: %s" symbol-name (:edits\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 77439)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticTokensDeltaPartialResult--pcase-macroexpander edebug-form-spec nil SemanticTokensDeltaPartialResult pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-delta-partial-result-edits\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edits"] 4 (#$ . 78443)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-delta-partial-result-edits\? #[514 "\300\301#\210\207" [puthash "edits"] 6 (#$ . 78600)]) #@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 (#$ . 78754)]) #@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 (#$ . 79273)]) #@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 (#$ . 79731)]) #@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 (#$ . 80070)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'v1:ProgressParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:id :title) nil lsp-keyword->string alist-get ((:message\? . :message) (:percentage\? . :percentage) (:done\? . :done) (:id . :id) (:title . :title)) error "Unknown key: %s. Available keys: %s" symbol-name (:message\? :percentage\? :done\? :id :title) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 80705)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop v1:ProgressParams--pcase-macroexpander edebug-form-spec nil v1:ProgressParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 81794)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-message\? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 81937)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-percentage\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "percentage"] 4 (#$ . 82077)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-percentage\? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 82226)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-done\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "done"] 4 (#$ . 82372)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-done\? #[514 "\300\301#\210\207" [puthash "done"] 6 (#$ . 82509)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 82643)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 82774)]) #@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 82902)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 83039)]) #@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 (#$ . 83173)]) #@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 (#$ . 83359)]) #@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 (#$ . 83720)]) #@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 (#$ . 84020)]) #@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 (#$ . 84352)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'eslint:StatusParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:state) nil lsp-keyword->string alist-get ((:state . :state)) error "Unknown key: %s. Available keys: %s" symbol-name (:state) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 84775)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop eslint:StatusParams--pcase-macroexpander edebug-form-spec nil eslint:StatusParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:eslint-status-params-state #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "state"] 4 (#$ . 85745)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-status-params-state #[514 "\300\301#\210\207" [puthash "state"] 6 (#$ . 85884)]) #@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 (#$ . 86020)]) #@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 (#$ . 86380)]) #@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 (#$ . 86679)]) #@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 (#$ . 87017)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'eslint:OpenESLintDocParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:url) nil lsp-keyword->string alist-get ((:url . :url)) error "Unknown key: %s. Available keys: %s" symbol-name (:url) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 87442)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop eslint:OpenESLintDocParams--pcase-macroexpander edebug-form-spec nil eslint:OpenESLintDocParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:eslint-open-es-lint-doc-params-url #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "url"] 4 (#$ . 88425)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-open-es-lint-doc-params-url #[514 "\300\301#\210\207" [puthash "url"] 6 (#$ . 88570)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&eslint:ConfirmExecutionParams #[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 :file :library-path) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:scope :file :library-path) gethash 1 nil assoc ((:scope . :scope) (:file . :file) (:library-path . :libraryPath))] 7 (#$ . 88712)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&eslint:ConfirmExecutionParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:scope :file :library-path) error "Unknown key: %s. Available keys: %s" (:scope :file :library-path) when ht\? gethash symbol-name assoc ((:scope . :scope) (:file . :file) (:library-path . :libraryPath)) 1 nil] 9 (#$ . 89172)]) #@15 (fn OBJECT) (defalias 'lsp-eslint-confirm-execution-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)"] ("scope" "file" "libraryPath") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:scope :file :libraryPath)] 6 (#$ . 89571)]) #@67 (fn &rest PLIST &key SCOPE FILE LIBRARY-PATH &allow-other-keys) (defalias 'lsp-make-eslint-confirm-execution-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 :scope :file :library-path 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 . :scope) (:file . :file) (:library-path . :libraryPath))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 89954)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'eslint:ConfirmExecutionParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:scope :file :libraryPath) nil lsp-keyword->string alist-get ((:scope . :scope) (:file . :file) (:library-path . :libraryPath)) error "Unknown key: %s. Available keys: %s" symbol-name (:scope :file :library-path) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 90500)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop eslint:ConfirmExecutionParams--pcase-macroexpander edebug-form-spec nil eslint:ConfirmExecutionParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:eslint-confirm-execution-params-scope #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "scope"] 4 (#$ . 91586)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-confirm-execution-params-scope #[514 "\300\301#\210\207" [puthash "scope"] 6 (#$ . 91736)]) #@15 (fn OBJECT) (defalias 'lsp:eslint-confirm-execution-params-file #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "file"] 4 (#$ . 91883)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-confirm-execution-params-file #[514 "\300\301#\210\207" [puthash "file"] 6 (#$ . 92031)]) #@15 (fn OBJECT) (defalias 'lsp:eslint-confirm-execution-params-library-path #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "libraryPath"] 4 (#$ . 92176)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-confirm-execution-params-library-path #[514 "\300\301#\210\207" [puthash "libraryPath"] 6 (#$ . 92339)]) #@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 (#$ . 92499)]) #@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 (#$ . 92870)]) #@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 (#$ . 93180)]) #@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 (#$ . 93523)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'haxe:ProcessStartNotification--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:title) nil lsp-keyword->string alist-get ((:title . :title)) error "Unknown key: %s. Available keys: %s" symbol-name (:title) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 93957)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop haxe:ProcessStartNotification--pcase-macroexpander edebug-form-spec nil haxe:ProcessStartNotification pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:haxe-process-start-notification-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 94957)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-haxe-process-start-notification-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 95107)]) #@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 (#$ . 95254)]) #@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 (#$ . 95923)]) #@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 (#$ . 96531)]) #@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 (#$ . 97000)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'pwsh:ScriptRegion--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:StartLineNumber :EndLineNumber :StartColumnNumber :EndColumnNumber :Text) nil lsp-keyword->string alist-get ((:start-line-number . :StartLineNumber) (:end-line-number . :EndLineNumber) (:start-column-number . :StartColumnNumber) (:end-column-number . :EndColumnNumber) (:text . :Text)) error "Unknown key: %s. Available keys: %s" symbol-name (:start-line-number :end-line-number :start-column-number :end-column-number :text) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 97779)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop pwsh:ScriptRegion--pcase-macroexpander edebug-form-spec nil pwsh:ScriptRegion pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-start-line-number #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "StartLineNumber"] 4 (#$ . 99043)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-start-line-number #[514 "\300\301#\210\207" [puthash "StartLineNumber"] 6 (#$ . 99202)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-end-line-number #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "EndLineNumber"] 4 (#$ . 99358)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-end-line-number #[514 "\300\301#\210\207" [puthash "EndLineNumber"] 6 (#$ . 99513)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-start-column-number #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "StartColumnNumber"] 4 (#$ . 99665)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-start-column-number #[514 "\300\301#\210\207" [puthash "StartColumnNumber"] 6 (#$ . 99828)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-end-column-number #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "EndColumnNumber"] 4 (#$ . 99988)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-end-column-number #[514 "\300\301#\210\207" [puthash "EndColumnNumber"] 6 (#$ . 100147)]) #@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Text"] 4 (#$ . 100304)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-text #[514 "\300\301#\210\207" [puthash "Text"] 6 (#$ . 100440)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:ErrorMessage #[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 :file-name :line :column) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text :file-name :line :column) gethash 1 nil assoc ((:text . :Text) (:file-name . :FileName) (:line . :Line) (:column . :Column))] 7 (#$ . 100573)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:ErrorMessage\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text :file-name :line :column) error "Unknown key: %s. Available keys: %s" (:text :file-name :line :column) when ht\? gethash symbol-name assoc ((:text . :Text) (:file-name . :FileName) (:line . :Line) (:column . :Column)) 1 nil] 9 (#$ . 101047)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-error-message\? #[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" "FileName" "Line" "Column") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:Text :FileName :Line :Column)] 6 (#$ . 101460)]) #@70 (fn &rest PLIST &key TEXT FILE-NAME LINE COLUMN &allow-other-keys) (defalias 'lsp-make-omnisharp-error-message #[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 :text :file-name :line :column 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) (:file-name . :FileName) (:line . :Line) (:column . :Column))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 101845)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:ErrorMessage--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:Text :FileName :Line :Column) nil lsp-keyword->string alist-get ((:text . :Text) (:file-name . :FileName) (:line . :Line) (:column . :Column)) error "Unknown key: %s. Available keys: %s" symbol-name (:text :file-name :line :column) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 102416)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:ErrorMessage--pcase-macroexpander edebug-form-spec nil omnisharp:ErrorMessage pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-error-message-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Text"] 4 (#$ . 103502)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-error-message-text #[514 "\300\301#\210\207" [puthash "Text"] 6 (#$ . 103643)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-error-message-file-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "FileName"] 4 (#$ . 103781)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-error-message-file-name #[514 "\300\301#\210\207" [puthash "FileName"] 6 (#$ . 103931)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-error-message-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Line"] 4 (#$ . 104078)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-error-message-line #[514 "\300\301#\210\207" [puthash "Line"] 6 (#$ . 104219)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-error-message-column #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Column"] 4 (#$ . 104357)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-error-message-column #[514 "\300\301#\210\207" [puthash "Column"] 6 (#$ . 104502)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:ProjectInformationRequest #[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" [:file-name s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:file-name) gethash 1 nil assoc ((:file-name . :FileName))] 7 (#$ . 104644)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:ProjectInformationRequest\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:file-name error "Unknown key: %s. Available keys: %s" (:file-name) when ht\? gethash symbol-name assoc ((:file-name . :FileName)) 1 nil] 9 (#$ . 105037)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-project-information-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)"] ("FileName") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:FileName)] 6 (#$ . 105369)]) #@53 (fn &rest PLIST &key FILE-NAME &allow-other-keys) (defalias 'lsp-make-omnisharp-project-information-request #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :file-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 ((:file-name . :FileName))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 105725)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:ProjectInformationRequest--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:FileName) nil lsp-keyword->string alist-get ((:file-name . :FileName)) error "Unknown key: %s. Available keys: %s" symbol-name (:file-name) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 106181)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:ProjectInformationRequest--pcase-macroexpander edebug-form-spec nil omnisharp:ProjectInformationRequest pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-project-information-request-file-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "FileName"] 4 (#$ . 107214)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-project-information-request-file-name #[514 "\300\301#\210\207" [puthash "FileName"] 6 (#$ . 107378)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:MsBuildProject #[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" [(:is-unit-project :is-exe :platform :configuration :intermediate-output-path :output-path :target-frameworks :source-files :target-framework :target-path :assembly-name :path :project-guid) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:is-unit-project :is-exe :platform :configuration :intermediate-output-path :output-path :target-frameworks :source-files :target-framework :target-path :assembly-name :path :project-guid) gethash 1 nil assoc ((:is-unit-project . :IsUnitProject) (:is-exe . :IsExe) (:platform . :Platform) (:configuration . :Configuration) (:intermediate-output-path . :IntermediateOutputPath) (:output-path . :OutputPath) (:target-frameworks . :TargetFrameworks) (:source-files . :SourceFiles) (:target-framework . :TargetFramework) (:target-path . :TargetPath) (:assembly-name . :AssemblyName) (:path . :Path) (:project-guid . :ProjectGuid))] 7 (#$ . 107539)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:MsBuildProject\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:is-unit-project :is-exe :platform :configuration :intermediate-output-path :output-path :target-frameworks :source-files :target-framework :target-path :assembly-name :path :project-guid) error "Unknown key: %s. Available keys: %s" (:is-unit-project :is-exe :platform :configuration :intermediate-output-path :output-path :target-frameworks :source-files :target-framework :target-path :assembly-name :path :project-guid) when ht\? gethash symbol-name assoc ((:is-unit-project . :IsUnitProject) (:is-exe . :IsExe) (:platform . :Platform) (:configuration . :Configuration) (:intermediate-output-path . :IntermediateOutputPath) (:output-path . :OutputPath) (:target-frameworks . :TargetFrameworks) (:source-files . :SourceFiles) (:target-framework . :TargetFramework) (:target-path . :TargetPath) (:assembly-name . :AssemblyName) (:path . :Path) (:project-guid . :ProjectGuid)) 1 nil] 9 (#$ . 108668)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-ms-build-project\? #[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)"] ("IsUnitProject" "IsExe" "Platform" "Configuration" "IntermediateOutputPath" "OutputPath" "TargetFrameworks" "SourceFiles" "TargetFramework" "TargetPath" "AssemblyName" "Path" "ProjectGuid") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:IsUnitProject :IsExe :Platform :Configuration :IntermediateOutputPath :OutputPath :TargetFrameworks :SourceFiles :TargetFramework :TargetPath :AssemblyName :Path :ProjectGuid)] 6 (#$ . 109736)]) #@218 (fn &rest PLIST &key IS-UNIT-PROJECT IS-EXE PLATFORM CONFIGURATION INTERMEDIATE-OUTPUT-PATH OUTPUT-PATH TARGET-FRAMEWORKS SOURCE-FILES TARGET-FRAMEWORK TARGET-PATH ASSEMBLY-NAME PATH PROJECT-GUID &allow-other-keys) (defalias 'lsp-make-omnisharp-ms-build-project #[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@\316\317\320\"\211\262\321\322\323\"\324\325\"\"\210\207" [plist-member :is-unit-project :is-exe :platform :configuration :intermediate-output-path :output-path :target-frameworks :source-files :target-framework :target-path :assembly-name :path :project-guid 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 ((:is-unit-project . :IsUnitProject) (:is-exe . :IsExe) (:platform . :Platform) (:configuration . :Configuration) (:intermediate-output-path . :IntermediateOutputPath) (:output-path . :OutputPath) (:target-frameworks . :TargetFrameworks) (:source-files . :SourceFiles) (:target-framework . :TargetFramework) (:target-path . :TargetPath) (:assembly-name . :AssemblyName) (:path . :Path) (:project-guid . :ProjectGuid))] 9 "\n\n(fn INPUT0)"] -partition 2] 20 (#$ . 110426)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:MsBuildProject--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:IsUnitProject :IsExe :Platform :Configuration :IntermediateOutputPath :OutputPath :TargetFrameworks :SourceFiles :TargetFramework :TargetPath :AssemblyName :Path :ProjectGuid) nil lsp-keyword->string alist-get ((:is-unit-project . :IsUnitProject) (:is-exe . :IsExe) (:platform . :Platform) (:configuration . :Configuration) (:intermediate-output-path . :IntermediateOutputPath) (:output-path . :OutputPath) (:target-frameworks . :TargetFrameworks) (:source-files . :SourceFiles) (:target-framework . :TargetFramework) (:target-path . :TargetPath) (:assembly-name . :AssemblyName) (:path . :Path) (:project-guid . :ProjectGuid)) error "Unknown key: %s. Available keys: %s" symbol-name (:is-unit-project :is-exe :platform :configuration :intermediate-output-path :output-path :target-frameworks :source-files :target-framework :target-path :assembly-name :path :project-guid) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 111771)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:MsBuildProject--pcase-macroexpander edebug-form-spec nil omnisharp:MsBuildProject pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-is-unit-project #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "IsUnitProject"] 4 (#$ . 113505)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-is-unit-project #[514 "\300\301#\210\207" [puthash "IsUnitProject"] 6 (#$ . 113669)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-is-exe #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "IsExe"] 4 (#$ . 113830)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-is-exe #[514 "\300\301#\210\207" [puthash "IsExe"] 6 (#$ . 113977)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-platform #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Platform"] 4 (#$ . 114121)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-platform #[514 "\300\301#\210\207" [puthash "Platform"] 6 (#$ . 114273)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-configuration #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Configuration"] 4 (#$ . 114422)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-configuration #[514 "\300\301#\210\207" [puthash "Configuration"] 6 (#$ . 114584)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-intermediate-output-path #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "IntermediateOutputPath"] 4 (#$ . 114743)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-intermediate-output-path #[514 "\300\301#\210\207" [puthash "IntermediateOutputPath"] 6 (#$ . 114925)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-output-path #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "OutputPath"] 4 (#$ . 115104)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-output-path #[514 "\300\301#\210\207" [puthash "OutputPath"] 6 (#$ . 115261)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-target-frameworks #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "TargetFrameworks"] 4 (#$ . 115415)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-target-frameworks #[514 "\300\301#\210\207" [puthash "TargetFrameworks"] 6 (#$ . 115584)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-source-files #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "SourceFiles"] 4 (#$ . 115750)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-source-files #[514 "\300\301#\210\207" [puthash "SourceFiles"] 6 (#$ . 115909)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-target-framework #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "TargetFramework"] 4 (#$ . 116065)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-target-framework #[514 "\300\301#\210\207" [puthash "TargetFramework"] 6 (#$ . 116232)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-target-path #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "TargetPath"] 4 (#$ . 116396)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-target-path #[514 "\300\301#\210\207" [puthash "TargetPath"] 6 (#$ . 116553)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-assembly-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "AssemblyName"] 4 (#$ . 116707)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-assembly-name #[514 "\300\301#\210\207" [puthash "AssemblyName"] 6 (#$ . 116868)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-path #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Path"] 4 (#$ . 117026)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-path #[514 "\300\301#\210\207" [puthash "Path"] 6 (#$ . 117170)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-project-guid #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ProjectGuid"] 4 (#$ . 117311)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-project-guid #[514 "\300\301#\210\207" [puthash "ProjectGuid"] 6 (#$ . 117470)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:ProjectInformation #[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" [(:script-project :ms-build-project) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:script-project :ms-build-project) gethash 1 nil assoc ((:script-project . :ScriptProject) (:ms-build-project . :MsBuildProject))] 7 (#$ . 117626)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:ProjectInformation\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:script-project :ms-build-project) error "Unknown key: %s. Available keys: %s" (:script-project :ms-build-project) when ht\? gethash symbol-name assoc ((:script-project . :ScriptProject) (:ms-build-project . :MsBuildProject)) 1 nil] 9 (#$ . 118108)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-project-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)"] ("ScriptProject" "MsBuildProject") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:ScriptProject :MsBuildProject)] 6 (#$ . 118529)]) #@75 (fn &rest PLIST &key SCRIPT-PROJECT MS-BUILD-PROJECT &allow-other-keys) (defalias 'lsp-make-omnisharp-project-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :script-project :ms-build-project 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 ((:script-project . :ScriptProject) (:ms-build-project . :MsBuildProject))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 118920)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:ProjectInformation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:ScriptProject :MsBuildProject) nil lsp-keyword->string alist-get ((:script-project . :ScriptProject) (:ms-build-project . :MsBuildProject)) error "Unknown key: %s. Available keys: %s" symbol-name (:script-project :ms-build-project) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 119474)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:ProjectInformation--pcase-macroexpander edebug-form-spec nil omnisharp:ProjectInformation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-project-information-script-project #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ScriptProject"] 4 (#$ . 120578)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-project-information-script-project #[514 "\300\301#\210\207" [puthash "ScriptProject"] 6 (#$ . 120744)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-project-information-ms-build-project #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "MsBuildProject"] 4 (#$ . 120907)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-project-information-ms-build-project #[514 "\300\301#\210\207" [puthash "MsBuildProject"] 6 (#$ . 121076)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:CodeStructureRequest #[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" [:file-name s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:file-name) gethash 1 nil assoc ((:file-name . :FileName))] 7 (#$ . 121242)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:CodeStructureRequest\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:file-name error "Unknown key: %s. Available keys: %s" (:file-name) when ht\? gethash symbol-name assoc ((:file-name . :FileName)) 1 nil] 9 (#$ . 121630)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-code-structure-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)"] ("FileName") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:FileName)] 6 (#$ . 121957)]) #@53 (fn &rest PLIST &key FILE-NAME &allow-other-keys) (defalias 'lsp-make-omnisharp-code-structure-request #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :file-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 ((:file-name . :FileName))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 122308)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:CodeStructureRequest--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:FileName) nil lsp-keyword->string alist-get ((:file-name . :FileName)) error "Unknown key: %s. Available keys: %s" symbol-name (:file-name) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 122759)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:CodeStructureRequest--pcase-macroexpander edebug-form-spec nil omnisharp:CodeStructureRequest pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-structure-request-file-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "FileName"] 4 (#$ . 123777)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-structure-request-file-name #[514 "\300\301#\210\207" [puthash "FileName"] 6 (#$ . 123936)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:CodeStructureResponse #[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" [:elements s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:elements) gethash 1 nil assoc ((:elements . :Elements))] 7 (#$ . 124092)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:CodeStructureResponse\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:elements error "Unknown key: %s. Available keys: %s" (:elements) when ht\? gethash symbol-name assoc ((:elements . :Elements)) 1 nil] 9 (#$ . 124478)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-code-structure-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)"] ("Elements") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:Elements)] 6 (#$ . 124803)]) #@52 (fn &rest PLIST &key ELEMENTS &allow-other-keys) (defalias 'lsp-make-omnisharp-code-structure-response #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :elements 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 ((:elements . :Elements))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 125155)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:CodeStructureResponse--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:Elements) nil lsp-keyword->string alist-get ((:elements . :Elements)) error "Unknown key: %s. Available keys: %s" symbol-name (:elements) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 125604)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:CodeStructureResponse--pcase-macroexpander edebug-form-spec nil omnisharp:CodeStructureResponse pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-structure-response-elements #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Elements"] 4 (#$ . 126623)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-structure-response-elements #[514 "\300\301#\210\207" [puthash "Elements"] 6 (#$ . 126782)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:CodeElement #[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 :name :display-name :children :ranges :properties) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:kind :name :display-name :children :ranges :properties) gethash 1 nil assoc ((:kind . :Kind) (:name . :Name) (:display-name . :DisplayName) (:children . :Children) (:ranges . :Ranges) (:properties . :Properties))] 7 (#$ . 126938)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:CodeElement\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:kind :name :display-name :children :ranges :properties) error "Unknown key: %s. Available keys: %s" (:kind :name :display-name :children :ranges :properties) when ht\? gethash symbol-name assoc ((:kind . :Kind) (:name . :Name) (:display-name . :DisplayName) (:children . :Children) (:ranges . :Ranges) (:properties . :Properties)) 1 nil] 9 (#$ . 127519)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-code-element\? #[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" "DisplayName" "Children" "Ranges" "Properties") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:Kind :Name :DisplayName :Children :Ranges :Properties)] 6 (#$ . 128039)]) #@93 (fn &rest PLIST &key KIND NAME DISPLAY-NAME CHILDREN RANGES PROPERTIES &allow-other-keys) (defalias 'lsp-make-omnisharp-code-element #[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 :kind :name :display-name :children :ranges :properties 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) (:name . :Name) (:display-name . :DisplayName) (:children . :Children) (:ranges . :Ranges) (:properties . :Properties))] 9 "\n\n(fn INPUT0)"] -partition 2] 13 (#$ . 128475)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:CodeElement--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:Kind :Name :DisplayName :Children :Ranges :Properties) nil lsp-keyword->string alist-get ((:kind . :Kind) (:name . :Name) (:display-name . :DisplayName) (:children . :Children) (:ranges . :Ranges) (:properties . :Properties)) error "Unknown key: %s. Available keys: %s" symbol-name (:kind :name :display-name :children :ranges :properties) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 129178)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:CodeElement--pcase-macroexpander edebug-form-spec nil omnisharp:CodeElement pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Kind"] 4 (#$ . 130369)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-kind #[514 "\300\301#\210\207" [puthash "Kind"] 6 (#$ . 130509)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Name"] 4 (#$ . 130646)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-name #[514 "\300\301#\210\207" [puthash "Name"] 6 (#$ . 130786)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-display-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "DisplayName"] 4 (#$ . 130923)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-display-name #[514 "\300\301#\210\207" [puthash "DisplayName"] 6 (#$ . 131078)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-children #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Children"] 4 (#$ . 131230)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-children #[514 "\300\301#\210\207" [puthash "Children"] 6 (#$ . 131378)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Ranges"] 4 (#$ . 131523)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-ranges #[514 "\300\301#\210\207" [puthash "Ranges"] 6 (#$ . 131667)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Properties"] 4 (#$ . 131808)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties #[514 "\300\301#\210\207" [puthash "Properties"] 6 (#$ . 131960)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:CodeElementProperties #[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" [(:static\? :accessibility\? :test-method-name\? :test-framework\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:static\? :accessibility\? :test-method-name\? :test-framework\?) gethash 1 nil assoc ((:static\? . :static) (:accessibility\? . :accessibility) (:test-method-name\? . :testMethodName) (:test-framework\? . :testFramework))] 7 (#$ . 132109)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:CodeElementProperties\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:static\? :accessibility\? :test-method-name\? :test-framework\?) error "Unknown key: %s. Available keys: %s" (:static\? :accessibility\? :test-method-name\? :test-framework\?) when ht\? gethash symbol-name assoc ((:static\? . :static) (:accessibility\? . :accessibility) (:test-method-name\? . :testMethodName) (:test-framework\? . :testFramework)) 1 nil] 9 (#$ . 132718)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-code-element-properties\? #[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 (#$ . 133266)]) #@112 (fn &rest PLIST &key STATIC\=\? ACCESSIBILITY\=\? TEST-METHOD-NAME\=\? TEST-FRAMEWORK\=\? &allow-other-keys) (defalias 'lsp-make-omnisharp-code-element-properties #[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 :static\? :accessibility\? :test-method-name\? :test-framework\? 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 ((:static\? . :static) (:accessibility\? . :accessibility) (:test-method-name\? . :testMethodName) (:test-framework\? . :testFramework))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 133598)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:CodeElementProperties--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:static\? . :static) (:accessibility\? . :accessibility) (:test-method-name\? . :testMethodName) (:test-framework\? . :testFramework)) error "Unknown key: %s. Available keys: %s" symbol-name (:static\? :accessibility\? :test-method-name\? :test-framework\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 134313)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:CodeElementProperties--pcase-macroexpander edebug-form-spec nil omnisharp:CodeElementProperties pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties-static\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "static"] 4 (#$ . 135486)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties-static\? #[514 "\300\301#\210\207" [puthash "static"] 6 (#$ . 135643)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties-accessibility\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "accessibility"] 4 (#$ . 135797)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties-accessibility\? #[514 "\300\301#\210\207" [puthash "accessibility"] 6 (#$ . 135968)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties-test-method-name\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "testMethodName"] 4 (#$ . 136136)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties-test-method-name\? #[514 "\300\301#\210\207" [puthash "testMethodName"] 6 (#$ . 136311)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties-test-framework\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "testFramework"] 4 (#$ . 136483)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties-test-framework\? #[514 "\300\301#\210\207" [puthash "testFramework"] 6 (#$ . 136655)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp: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 (#$ . 136824)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp: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 (#$ . 137208)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-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 (#$ . 137531)]) #@53 (fn &rest PLIST &key START END &allow-other-keys) (defalias 'lsp-make-omnisharp-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 (#$ . 137870)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:Range--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:Start :End) nil lsp-keyword->string alist-get ((:start . :Start) (:end . :End)) error "Unknown key: %s. Available keys: %s" symbol-name (:start :end) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 138325)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:Range--pcase-macroexpander edebug-form-spec nil omnisharp:Range pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-start #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Start"] 4 (#$ . 139308)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-start #[514 "\300\301#\210\207" [puthash "Start"] 6 (#$ . 139443)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-end #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "End"] 4 (#$ . 139575)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-end #[514 "\300\301#\210\207" [puthash "End"] 6 (#$ . 139706)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:RangeList #[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" [(:attributes\? :full\? :name\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:attributes\? :full\? :name\?) gethash 1 nil assoc ((:attributes\? . :attributes) (:full\? . :full) (:name\? . :name))] 7 (#$ . 139834)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:RangeList\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:attributes\? :full\? :name\?) error "Unknown key: %s. Available keys: %s" (:attributes\? :full\? :name\?) when ht\? gethash symbol-name assoc ((:attributes\? . :attributes) (:full\? . :full) (:name\? . :name)) 1 nil] 9 (#$ . 140292)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-range-list\? #[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 (#$ . 140689)]) #@76 (fn &rest PLIST &key ATTRIBUTES\=\? FULL\=\? NAME\=\? &allow-other-keys) (defalias 'lsp-make-omnisharp-range-list #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :attributes\? :full\? :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 ((:attributes\? . :attributes) (:full\? . :full) (:name\? . :name))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 141007)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:RangeList--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:attributes\? . :attributes) (:full\? . :full) (:name\? . :name)) error "Unknown key: %s. Available keys: %s" symbol-name (:attributes\? :full\? :name\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 141556)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:RangeList--pcase-macroexpander edebug-form-spec nil omnisharp:RangeList pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-list-attributes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "attributes"] 4 (#$ . 142589)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-list-attributes\? #[514 "\300\301#\210\207" [puthash "attributes"] 6 (#$ . 142741)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-list-full\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "full"] 4 (#$ . 142890)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-list-full\? #[514 "\300\301#\210\207" [puthash "full"] 6 (#$ . 143030)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-list-name\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 143167)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-list-name\? #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 143307)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:Point #[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" [(:line :column) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:line :column) gethash 1 nil assoc ((:line . :Line) (:column . :Column))] 7 (#$ . 143444)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:Point\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:line :column) error "Unknown key: %s. Available keys: %s" (:line :column) when ht\? gethash symbol-name assoc ((:line . :Line) (:column . :Column)) 1 nil] 9 (#$ . 143836)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-point\? #[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" "Column") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:Line :Column)] 6 (#$ . 144167)]) #@55 (fn &rest PLIST &key LINE COLUMN &allow-other-keys) (defalias 'lsp-make-omnisharp-point #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :line :column 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 ((:line . :Line) (:column . :Column))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 144510)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:Point--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:Line :Column) nil lsp-keyword->string alist-get ((:line . :Line) (:column . :Column)) error "Unknown key: %s. Available keys: %s" symbol-name (:line :column) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 144973)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:Point--pcase-macroexpander edebug-form-spec nil omnisharp:Point pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-point-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Line"] 4 (#$ . 145964)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-point-line #[514 "\300\301#\210\207" [puthash "Line"] 6 (#$ . 146097)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-point-column #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Column"] 4 (#$ . 146227)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-point-column #[514 "\300\301#\210\207" [puthash "Column"] 6 (#$ . 146364)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:RunTestsInClassRequest #[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-names :run-settings :test-frameworkname :target-framework-version :no-build :line :column :buffer :file-name) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:method-names :run-settings :test-frameworkname :target-framework-version :no-build :line :column :buffer :file-name) gethash 1 nil assoc ((:method-names . :MethodNames) (:run-settings . :RunSettings) (:test-frameworkname . :TestFrameworkname) (:target-framework-version . :TargetFrameworkVersion) (:no-build . :NoBuild) (:line . :Line) (:column . :Column) (:buffer . :Buffer) (:file-name . :FileName))] 7 (#$ . 146498)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:RunTestsInClassRequest\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:method-names :run-settings :test-frameworkname :target-framework-version :no-build :line :column :buffer :file-name) error "Unknown key: %s. Available keys: %s" (:method-names :run-settings :test-frameworkname :target-framework-version :no-build :line :column :buffer :file-name) when ht\? gethash symbol-name assoc ((:method-names . :MethodNames) (:run-settings . :RunSettings) (:test-frameworkname . :TestFrameworkname) (:target-framework-version . :TargetFrameworkVersion) (:no-build . :NoBuild) (:line . :Line) (:column . :Column) (:buffer . :Buffer) (:file-name . :FileName)) 1 nil] 9 (#$ . 147340)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-run-tests-in-class-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)"] ("MethodNames" "RunSettings" "TestFrameworkname" "TargetFrameworkVersion" "NoBuild" "Line" "Column" "Buffer" "FileName") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:MethodNames :RunSettings :TestFrameworkname :TargetFrameworkVersion :NoBuild :Line :Column :Buffer :FileName)] 6 (#$ . 148121)]) #@151 (fn &rest PLIST &key METHOD-NAMES RUN-SETTINGS TEST-FRAMEWORKNAME TARGET-FRAMEWORK-VERSION NO-BUILD LINE COLUMN BUFFER FILE-NAME &allow-other-keys) (defalias 'lsp-make-omnisharp-run-tests-in-class-request #[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 :method-names :run-settings :test-frameworkname :target-framework-version :no-build :line :column :buffer :file-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 ((:method-names . :MethodNames) (:run-settings . :RunSettings) (:test-frameworkname . :TestFrameworkname) (:target-framework-version . :TargetFrameworkVersion) (:no-build . :NoBuild) (:line . :Line) (:column . :Column) (:buffer . :Buffer) (:file-name . :FileName))] 9 "\n\n(fn INPUT0)"] -partition 2] 16 (#$ . 148685)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:RunTestsInClassRequest--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:MethodNames :RunSettings :TestFrameworkname :TargetFrameworkVersion :NoBuild :Line :Column :Buffer :FileName) nil lsp-keyword->string alist-get ((:method-names . :MethodNames) (:run-settings . :RunSettings) (:test-frameworkname . :TestFrameworkname) (:target-framework-version . :TargetFrameworkVersion) (:no-build . :NoBuild) (:line . :Line) (:column . :Column) (:buffer . :Buffer) (:file-name . :FileName)) error "Unknown key: %s. Available keys: %s" symbol-name (:method-names :run-settings :test-frameworkname :target-framework-version :no-build :line :column :buffer :file-name) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 149691)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:RunTestsInClassRequest--pcase-macroexpander edebug-form-spec nil omnisharp:RunTestsInClassRequest pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-method-names #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "MethodNames"] 4 (#$ . 151159)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-method-names #[514 "\300\301#\210\207" [puthash "MethodNames"] 6 (#$ . 151328)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-run-settings #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "RunSettings"] 4 (#$ . 151494)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-run-settings #[514 "\300\301#\210\207" [puthash "RunSettings"] 6 (#$ . 151663)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-test-frameworkname #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "TestFrameworkname"] 4 (#$ . 151829)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-test-frameworkname #[514 "\300\301#\210\207" [puthash "TestFrameworkname"] 6 (#$ . 152010)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-target-framework-version #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "TargetFrameworkVersion"] 4 (#$ . 152188)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-target-framework-version #[514 "\300\301#\210\207" [puthash "TargetFrameworkVersion"] 6 (#$ . 152380)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-no-build #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "NoBuild"] 4 (#$ . 152569)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-no-build #[514 "\300\301#\210\207" [puthash "NoBuild"] 6 (#$ . 152730)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Line"] 4 (#$ . 152888)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-line #[514 "\300\301#\210\207" [puthash "Line"] 6 (#$ . 153042)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-column #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Column"] 4 (#$ . 153193)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-column #[514 "\300\301#\210\207" [puthash "Column"] 6 (#$ . 153351)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-buffer #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Buffer"] 4 (#$ . 153506)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-buffer #[514 "\300\301#\210\207" [puthash "Buffer"] 6 (#$ . 153664)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-file-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "FileName"] 4 (#$ . 153819)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-file-name #[514 "\300\301#\210\207" [puthash "FileName"] 6 (#$ . 153982)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:RunTestResponse #[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" [(:results :pass :failure :context-had-no-tests) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:results :pass :failure :context-had-no-tests) gethash 1 nil assoc ((:results . :Results) (:pass . :Pass) (:failure . :Failure) (:context-had-no-tests . :ContextHadNoTests))] 7 (#$ . 154142)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:RunTestResponse\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:results :pass :failure :context-had-no-tests) error "Unknown key: %s. Available keys: %s" (:results :pass :failure :context-had-no-tests) when ht\? gethash symbol-name assoc ((:results . :Results) (:pass . :Pass) (:failure . :Failure) (:context-had-no-tests . :ContextHadNoTests)) 1 nil] 9 (#$ . 154677)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-run-test-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)"] ("Results" "Pass" "Failure" "ContextHadNoTests") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:Results :Pass :Failure :ContextHadNoTests)] 6 (#$ . 155151)]) #@85 (fn &rest PLIST &key RESULTS PASS FAILURE CONTEXT-HAD-NO-TESTS &allow-other-keys) (defalias 'lsp-make-omnisharp-run-test-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 :results :pass :failure :context-had-no-tests 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 ((:results . :Results) (:pass . :Pass) (:failure . :Failure) (:context-had-no-tests . :ContextHadNoTests))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 155566)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:RunTestResponse--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:Results :Pass :Failure :ContextHadNoTests) nil lsp-keyword->string alist-get ((:results . :Results) (:pass . :Pass) (:failure . :Failure) (:context-had-no-tests . :ContextHadNoTests)) error "Unknown key: %s. Available keys: %s" symbol-name (:results :pass :failure :context-had-no-tests) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 156199)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:RunTestResponse--pcase-macroexpander edebug-form-spec nil omnisharp:RunTestResponse pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-test-response-results #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Results"] 4 (#$ . 157350)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-test-response-results #[514 "\300\301#\210\207" [puthash "Results"] 6 (#$ . 157501)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-test-response-pass #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Pass"] 4 (#$ . 157649)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-test-response-pass #[514 "\300\301#\210\207" [puthash "Pass"] 6 (#$ . 157794)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-test-response-failure #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Failure"] 4 (#$ . 157936)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-test-response-failure #[514 "\300\301#\210\207" [puthash "Failure"] 6 (#$ . 158087)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-test-response-context-had-no-tests #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ContextHadNoTests"] 4 (#$ . 158235)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-test-response-context-had-no-tests #[514 "\300\301#\210\207" [puthash "ContextHadNoTests"] 6 (#$ . 158409)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:TestMessageEvent #[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-level :message) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:message-level :message) gethash 1 nil assoc ((:message-level . :MessageLevel) (:message . :Message))] 7 (#$ . 158580)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:TestMessageEvent\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:message-level :message) error "Unknown key: %s. Available keys: %s" (:message-level :message) when ht\? gethash symbol-name assoc ((:message-level . :MessageLevel) (:message . :Message)) 1 nil] 9 (#$ . 159022)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-test-message-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)"] ("MessageLevel" "Message") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:MessageLevel :Message)] 6 (#$ . 159403)]) #@65 (fn &rest PLIST &key MESSAGE-LEVEL MESSAGE &allow-other-keys) (defalias 'lsp-make-omnisharp-test-message-event #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :message-level :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 ((:message-level . :MessageLevel) (:message . :Message))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 159777)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:TestMessageEvent--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:MessageLevel :Message) nil lsp-keyword->string alist-get ((:message-level . :MessageLevel) (:message . :Message)) error "Unknown key: %s. Available keys: %s" symbol-name (:message-level :message) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 160292)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:TestMessageEvent--pcase-macroexpander edebug-form-spec nil omnisharp:TestMessageEvent pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-test-message-event-message-level #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "MessageLevel"] 4 (#$ . 161354)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-test-message-event-message-level #[514 "\300\301#\210\207" [puthash "MessageLevel"] 6 (#$ . 161517)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-test-message-event-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Message"] 4 (#$ . 161677)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-test-message-event-message #[514 "\300\301#\210\207" [puthash "Message"] 6 (#$ . 161829)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:DotNetTestResult #[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-name :outcome :error-message :error-stack-trace :standard-output :standard-error) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:method-name :outcome :error-message :error-stack-trace :standard-output :standard-error) gethash 1 nil assoc ((:method-name . :MethodName) (:outcome . :Outcome) (:error-message . :ErrorMessage) (:error-stack-trace . :ErrorStackTrace) (:standard-output . :StandardOutput) (:standard-error . :StandardError))] 7 (#$ . 161978)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:DotNetTestResult\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:method-name :outcome :error-message :error-stack-trace :standard-output :standard-error) error "Unknown key: %s. Available keys: %s" (:method-name :outcome :error-message :error-stack-trace :standard-output :standard-error) when ht\? gethash symbol-name assoc ((:method-name . :MethodName) (:outcome . :Outcome) (:error-message . :ErrorMessage) (:error-stack-trace . :ErrorStackTrace) (:standard-output . :StandardOutput) (:standard-error . :StandardError)) 1 nil] 9 (#$ . 162691)]) #@15 (fn OBJECT) (defalias 'lsp-omnisharp-dot-net-test-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)"] ("MethodName" "Outcome" "ErrorMessage" "ErrorStackTrace" "StandardOutput" "StandardError") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:MethodName :Outcome :ErrorMessage :ErrorStackTrace :StandardOutput :StandardError)] 6 (#$ . 163343)]) #@126 (fn &rest PLIST &key METHOD-NAME OUTCOME ERROR-MESSAGE ERROR-STACK-TRACE STANDARD-OUTPUT STANDARD-ERROR &allow-other-keys) (defalias 'lsp-make-omnisharp-dot-net-test-result #[128 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\210\310\311\312\"\211\262\313\314\315\"\316\317\n\"\"\210\211\262)\207" [standard-output plist-member :method-name :outcome :error-message :error-stack-trace :standard-output :standard-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 ((:method-name . :MethodName) (:outcome . :Outcome) (:error-message . :ErrorMessage) (:error-stack-trace . :ErrorStackTrace) (:standard-output . :StandardOutput) (:standard-error . :StandardError))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 163843)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'omnisharp:DotNetTestResult--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:MethodName :Outcome :ErrorMessage :ErrorStackTrace :StandardOutput :StandardError) nil lsp-keyword->string alist-get ((:method-name . :MethodName) (:outcome . :Outcome) (:error-message . :ErrorMessage) (:error-stack-trace . :ErrorStackTrace) (:standard-output . :StandardOutput) (:standard-error . :StandardError)) error "Unknown key: %s. Available keys: %s" symbol-name (:method-name :outcome :error-message :error-stack-trace :standard-output :standard-error) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 164712)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop omnisharp:DotNetTestResult--pcase-macroexpander edebug-form-spec nil omnisharp:DotNetTestResult pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-method-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "MethodName"] 4 (#$ . 166040)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-method-name #[514 "\300\301#\210\207" [puthash "MethodName"] 6 (#$ . 166200)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-outcome #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Outcome"] 4 (#$ . 166357)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-outcome #[514 "\300\301#\210\207" [puthash "Outcome"] 6 (#$ . 166510)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-error-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ErrorMessage"] 4 (#$ . 166660)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-error-message #[514 "\300\301#\210\207" [puthash "ErrorMessage"] 6 (#$ . 166824)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-error-stack-trace #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ErrorStackTrace"] 4 (#$ . 166985)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-error-stack-trace #[514 "\300\301#\210\207" [puthash "ErrorStackTrace"] 6 (#$ . 167156)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-standard-output #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "StandardOutput"] 4 (#$ . 167324)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-standard-output #[514 "\300\301#\210\207" [puthash "StandardOutput"] 6 (#$ . 167492)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-standard-error #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "StandardError"] 4 (#$ . 167657)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-standard-error #[514 "\300\301#\210\207" [puthash "StandardError"] 6 (#$ . 167823)]) #@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 (#$ . 167986)]) #@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 (#$ . 168418)]) #@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 (#$ . 168789)]) #@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 (#$ . 169146)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rls:Cmd--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:args :binary :env :cwd) nil lsp-keyword->string alist-get ((:args . :args) (:binary . :binary) (:env . :env) (:cwd . :cwd)) error "Unknown key: %s. Available keys: %s" symbol-name (:args :binary :env :cwd) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 169674)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rls:Cmd--pcase-macroexpander edebug-form-spec nil rls:Cmd pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "args"] 4 (#$ . 170689)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-args #[514 "\300\301#\210\207" [puthash "args"] 6 (#$ . 170814)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-binary #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "binary"] 4 (#$ . 170936)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-binary #[514 "\300\301#\210\207" [puthash "binary"] 6 (#$ . 171065)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-env #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "env"] 4 (#$ . 171191)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-env #[514 "\300\301#\210\207" [puthash "env"] 6 (#$ . 171314)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-cwd #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cwd"] 4 (#$ . 171434)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-cwd #[514 "\300\301#\210\207" [puthash "cwd"] 6 (#$ . 171557)]) (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:AnalyzerStatusParams #[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 (#$ . 171889)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:AnalyzerStatusParams\? #[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 (#$ . 172297)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-analyzer-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)"] ("textDocument") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument)] 6 (#$ . 172644)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-rust-analyzer-analyzer-status-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 (#$ . 173007)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:AnalyzerStatusParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 173478)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:AnalyzerStatusParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:AnalyzerStatusParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-analyzer-status-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 174524)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-analyzer-status-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 174695)]) #@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 (#$ . 174863)]) #@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 (#$ . 175307)]) #@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 (#$ . 175690)]) #@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 (#$ . 176049)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:SyntaxTreeParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:range\? . :range) (:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:range\? :text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 176568)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:SyntaxTreeParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:SyntaxTreeParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-syntax-tree-params-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 177631)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-syntax-tree-params-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 177785)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-syntax-tree-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 177936)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-syntax-tree-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 178103)]) #@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 (#$ . 178267)]) #@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 (#$ . 178718)]) #@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 (#$ . 179108)]) #@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 (#$ . 179489)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:ExpandMacroParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 180013)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:ExpandMacroParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:ExpandMacroParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expand-macro-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 181094)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expand-macro-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 181262)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expand-macro-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 181427)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expand-macro-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 181586)]) #@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 (#$ . 181742)]) #@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 (#$ . 182158)]) #@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 (#$ . 182513)]) #@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 (#$ . 182875)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:ExpandedMacro--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:name :expansion) nil lsp-keyword->string alist-get ((:name . :name) (:expansion . :expansion)) error "Unknown key: %s. Available keys: %s" symbol-name (:name :expansion) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 183363)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:ExpandedMacro--pcase-macroexpander edebug-form-spec nil rust-analyzer:ExpandedMacro pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expanded-macro-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 184402)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expanded-macro-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 184548)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expanded-macro-expansion #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "expansion"] 4 (#$ . 184691)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expanded-macro-expansion #[514 "\300\301#\210\207" [puthash "expansion"] 6 (#$ . 184847)]) #@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 (#$ . 185000)]) #@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 (#$ . 185457)]) #@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 (#$ . 185853)]) #@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 (#$ . 186238)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:MatchingBraceParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :positions) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:positions . :positions)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :positions) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 186768)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:MatchingBraceParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:MatchingBraceParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-matching-brace-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 187859)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-matching-brace-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 188029)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-matching-brace-params-positions #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "positions"] 4 (#$ . 188196)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-matching-brace-params-positions #[514 "\300\301#\210\207" [puthash "positions"] 6 (#$ . 188359)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:OpenCargoTomlParams #[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 (#$ . 188519)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:OpenCargoTomlParams\? #[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 (#$ . 188926)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-open-cargo-toml-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 (#$ . 189272)]) #@57 (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-rust-analyzer-open-cargo-toml-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 (#$ . 189635)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:OpenCargoTomlParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 190106)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:OpenCargoTomlParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:OpenCargoTomlParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-open-cargo-toml-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 191149)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-open-cargo-toml-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 191320)]) #@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 (#$ . 191488)]) #@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 (#$ . 191940)]) #@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 (#$ . 192331)]) #@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 (#$ . 192715)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:ResovedCodeActionParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:id :codeActionParams) nil lsp-keyword->string alist-get ((:id . :id) (:code-action-params . :codeActionParams)) error "Unknown key: %s. Available keys: %s" symbol-name (:id :code-action-params) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 193241)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:ResovedCodeActionParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:ResovedCodeActionParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-resoved-code-action-params-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 194334)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-resoved-code-action-params-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 194488)]) #@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 (#$ . 194639)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-resoved-code-action-params-code-action-params #[514 "\300\301#\210\207" [puthash "codeActionParams"] 6 (#$ . 194823)]) #@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 (#$ . 195004)]) #@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 (#$ . 195445)]) #@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 (#$ . 195825)]) #@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 (#$ . 196200)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:JoinLinesParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :ranges) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:ranges . :ranges)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :ranges) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 196714)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:JoinLinesParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:JoinLinesParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-join-lines-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 197781)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-join-lines-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 197947)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-join-lines-params-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ranges"] 4 (#$ . 198110)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-join-lines-params-ranges #[514 "\300\301#\210\207" [puthash "ranges"] 6 (#$ . 198263)]) #@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 (#$ . 198413)]) #@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 (#$ . 198868)]) #@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 (#$ . 199262)]) #@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 (#$ . 199619)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:RunnablesParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:position\? . :position) (:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:position\? :text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 200148)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:RunnablesParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:RunnablesParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnables-params-position\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 201217)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnables-params-position\? #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 201375)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnables-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 201530)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnables-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 201695)]) #@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 (#$ . 201857)]) #@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 (#$ . 202330)]) #@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 (#$ . 202742)]) #@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 (#$ . 203103)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:Runnable--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:label :kind :args) nil lsp-keyword->string alist-get ((:location\? . :location) (:label . :label) (:kind . :kind) (:args . :args)) error "Unknown key: %s. Available keys: %s" symbol-name (:location\? :label :kind :args) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 203674)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:Runnable--pcase-macroexpander edebug-form-spec nil rust-analyzer:Runnable pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-location\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "location"] 4 (#$ . 204748)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-location\? #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 204898)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 205045)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 205187)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 205326)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 205466)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "args"] 4 (#$ . 205603)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args #[514 "\300\301#\210\207" [puthash "args"] 6 (#$ . 205743)]) #@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 (#$ . 205880)]) #@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 (#$ . 206414)]) #@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 (#$ . 206887)]) #@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 (#$ . 207268)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:RunnableArgs--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:cargoArgs :executableArgs) nil lsp-keyword->string alist-get ((:workspace-root\? . :workspaceRoot) (:cargo-args . :cargoArgs) (:executable-args . :executableArgs)) error "Unknown key: %s. Available keys: %s" symbol-name (:workspace-root\? :cargo-args :executable-args) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 207889)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:RunnableArgs--pcase-macroexpander edebug-form-spec nil rust-analyzer:RunnableArgs pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-workspace-root\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceRoot"] 4 (#$ . 209024)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-workspace-root\? #[514 "\300\301#\210\207" [puthash "workspaceRoot"] 6 (#$ . 209190)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-cargo-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cargoArgs"] 4 (#$ . 209353)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-cargo-args #[514 "\300\301#\210\207" [puthash "cargoArgs"] 6 (#$ . 209509)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-executable-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executableArgs"] 4 (#$ . 209662)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-executable-args #[514 "\300\301#\210\207" [puthash "executableArgs"] 6 (#$ . 209828)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:RelatedTestsParams #[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 (#$ . 209991)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:RelatedTestsParams\? #[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 (#$ . 210443)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-related-tests-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 (#$ . 210834)]) #@66 (fn &rest PLIST &key TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-rust-analyzer-related-tests-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 (#$ . 211216)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:RelatedTestsParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 211741)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:RelatedTestsParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:RelatedTestsParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-related-tests-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 212825)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 212994)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-related-tests-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 213160)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 213320)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:RelatedTests #[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" [:runnable s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:runnable) gethash 1 nil assoc ((:runnable . :runnable))] 7 (#$ . 213477)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:RelatedTests\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:runnable error "Unknown key: %s. Available keys: %s" (:runnable) when ht\? gethash symbol-name assoc ((:runnable . :runnable)) 1 nil] 9 (#$ . 213858)]) #@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-related-tests\? #[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)"] ("runnable") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:runnable)] 6 (#$ . 214178)]) #@52 (fn &rest PLIST &key RUNNABLE &allow-other-keys) (defalias 'lsp-make-rust-analyzer-related-tests #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :runnable 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 ((:runnable . :runnable))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 214524)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:RelatedTests--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:runnable) nil lsp-keyword->string alist-get ((:runnable . :runnable)) error "Unknown key: %s. Available keys: %s" symbol-name (:runnable) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 214967)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:RelatedTests--pcase-macroexpander edebug-form-spec nil rust-analyzer:RelatedTests pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-related-tests-runnable #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "runnable"] 4 (#$ . 215971)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-runnable #[514 "\300\301#\210\207" [puthash "runnable"] 6 (#$ . 216124)]) #@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 (#$ . 216274)]) #@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 (#$ . 216702)]) #@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 (#$ . 217069)]) #@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 (#$ . 217434)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:InlayHint--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range :label :kind) nil lsp-keyword->string alist-get ((:range . :range) (:label . :label) (:kind . :kind)) error "Unknown key: %s. Available keys: %s" symbol-name (:range :label :kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 217947)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:InlayHint--pcase-macroexpander edebug-form-spec nil rust-analyzer:InlayHint pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hint-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 218990)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 219134)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hint-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 219275)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 219419)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hint-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 219560)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 219702)]) #@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 (#$ . 219841)]) #@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 (#$ . 220245)]) #@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 (#$ . 220588)]) #@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 (#$ . 220947)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:InlayHintsParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 221414)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:InlayHintsParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:InlayHintsParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hints-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 222448)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hints-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 222615)]) #@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 (#$ . 222779)]) #@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 (#$ . 223198)]) #@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 (#$ . 223556)]) #@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 (#$ . 223916)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:SsrParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:query :parseOnly) nil lsp-keyword->string alist-get ((:query . :query) (:parse-only . :parseOnly)) error "Unknown key: %s. Available keys: %s" symbol-name (:query :parse-only) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 224407)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:SsrParams--pcase-macroexpander edebug-form-spec nil rust-analyzer:SsrParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-ssr-params-query #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "query"] 4 (#$ . 225440)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-ssr-params-query #[514 "\300\301#\210\207" [puthash "query"] 6 (#$ . 225584)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-ssr-params-parse-only #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parseOnly"] 4 (#$ . 225725)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-ssr-params-parse-only #[514 "\300\301#\210\207" [puthash "parseOnly"] 6 (#$ . 225878)]) #@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 (#$ . 226028)]) #@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 (#$ . 226538)]) #@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 (#$ . 226987)]) #@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 (#$ . 227345)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:CommandLink--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:title :command) nil lsp-keyword->string alist-get ((:arguments\? . :arguments) (:tooltip\? . :tooltip) (:title . :title) (:command . :command)) error "Unknown key: %s. Available keys: %s" symbol-name (:arguments\? :tooltip\? :title :command) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 227956)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:CommandLink--pcase-macroexpander edebug-form-spec nil rust-analyzer:CommandLink pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-arguments\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "arguments"] 4 (#$ . 229061)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 229217)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 229370)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 229522)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 229671)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 229817)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 229960)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 230110)]) #@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 (#$ . 230257)]) #@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 (#$ . 230682)]) #@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 (#$ . 231046)]) #@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 (#$ . 231397)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'rust-analyzer:CommandLinkGroup--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:commands) nil lsp-keyword->string alist-get ((:title\? . :title) (:commands . :commands)) error "Unknown key: %s. Available keys: %s" symbol-name (:title\? :commands) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 231897)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop rust-analyzer:CommandLinkGroup--pcase-macroexpander edebug-form-spec nil rust-analyzer:CommandLinkGroup pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-group-title\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 232942)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-group-title\? #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 233096)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-group-commands #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commands"] 4 (#$ . 233247)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-group-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 233405)]) (defvar lsp/completion-item-kind-lookup [nil Text Method Function Constructor Field Variable Class Interface Module Property Unit Value Enum Keyword Snippet Color File Reference Folder EnumMember Constant Struct Event Operator TypeParameter]) (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) (defvar lsp/completion-trigger-kind-lookup [nil Invoked TriggerCharacter TriggerForIncompleteCompletions]) (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) (defvar lsp/diagnostic-severity-lookup [nil Error Warning Information Hint Max]) (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) (defvar lsp/diagnostic-tag-lookup [nil Unnecessary Deprecated]) (defconst lsp/diagnostic-tag-unnecessary 1) (defconst lsp/diagnostic-tag-deprecated 2) (defvar lsp/document-highlight-kind-lookup [nil Text Read Write]) (defconst lsp/document-highlight-kind-text 1) (defconst lsp/document-highlight-kind-read 2) (defconst lsp/document-highlight-kind-write 3) (defvar lsp/file-change-type-lookup [nil Created Changed Deleted]) (defconst lsp/file-change-type-created 1) (defconst lsp/file-change-type-changed 2) (defconst lsp/file-change-type-deleted 3) (defvar lsp/insert-text-format-lookup [nil PlainText Snippet]) (defconst lsp/insert-text-format-plain-text 1) (defconst lsp/insert-text-format-snippet 2) (defvar lsp/insert-text-mode-lookup [nil AsIs AdjustIndentation]) (defconst lsp/insert-text-mode-as-it 1) (defconst lsp/insert-text-mode-adjust-indentation 2) (defvar lsp/message-type-lookup [nil Error Warning Info Log]) (defconst lsp/message-type-error 1) (defconst lsp/message-type-warning 2) (defconst lsp/message-type-info 3) (defconst lsp/message-type-log 4) (defvar lsp/signature-help-trigger-kind-lookup [nil Invoked TriggerCharacter ContentChange]) (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) (defvar lsp/symbol-kind-lookup [nil File Module Namespace Package Class Method Property Field Constructor Enum Interface Function Variable Constant String Number Boolean Array Object Key Null EnumMember Struct Event Operator TypeParameter]) (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) (defvar lsp/text-document-save-reason-lookup [nil Manual AfterDelay FocusOut]) (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) (defvar lsp/text-document-sync-kind-lookup [None Full Incremental]) (defconst lsp/text-document-sync-kind-none 0) (defconst lsp/text-document-sync-kind-full 1) (defconst lsp/text-document-sync-kind-incremental 2) (defvar lsp/type-hierarchy-direction-lookup [nil Children Parents Both]) (defconst lsp/type-hierarchy-direction-children 1) (defconst lsp/type-hierarchy-direction-parents 2) (defconst lsp/type-hierarchy-direction-both 3) (defvar lsp/call-hierarchy-direction-lookup [nil CallsFrom CallsTo]) (defconst lsp/call-hierarchy-direction-calls-from 1) (defconst lsp/call-hierarchy-direction-calls-to 2) (defvar lsp/response-error-code-lookup [nil ParseError InvalidRequest MethodNotFound InvalidParams InternalError serverErrorStart serverErrorEnd]) (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 (#$ . 239473)]) #@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 (#$ . 239906)]) #@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 (#$ . 240278)]) #@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 (#$ . 240603)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CallHierarchyCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 241101)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CallHierarchyCapabilities--pcase-macroexpander edebug-form-spec nil CallHierarchyCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 242129)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 242307)]) #@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 (#$ . 242482)]) #@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 (#$ . 243071)]) #@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 (#$ . 243599)]) #@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 (#$ . 244001)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CallHierarchyItem--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :name :range :selectionRange :uri) nil lsp-keyword->string alist-get ((:detail\? . :detail) (:tags\? . :tags) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:detail\? :tags\? :kind :name :range :selection-range :uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 244731)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CallHierarchyItem--pcase-macroexpander edebug-form-spec nil CallHierarchyItem pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 245904)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 246047)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 246187)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 246326)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 246462)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 246599)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 246733)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 246870)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 247004)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 247143)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 247279)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 247437)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 247592)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 247727)]) #@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 (#$ . 247859)]) #@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 (#$ . 248379)]) #@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 (#$ . 248838)]) #@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 (#$ . 249155)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ClientCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:experimental\? . :experimental) (:text-document\? . :textDocument) (:workspace\? . :workspace)) error "Unknown key: %s. Available keys: %s" symbol-name (:experimental\? :text-document\? :workspace\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 249766)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ClientCapabilities--pcase-macroexpander edebug-form-spec nil ClientCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:client-capabilities-experimental\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "experimental"] 4 (#$ . 250843)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-experimental\? #[514 "\300\301#\210\207" [puthash "experimental"] 6 (#$ . 250998)]) #@15 (fn OBJECT) (defalias 'lsp:client-capabilities-text-document\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 251150)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-text-document\? #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 251306)]) #@15 (fn OBJECT) (defalias 'lsp:client-capabilities-workspace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspace"] 4 (#$ . 251459)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-workspace\? #[514 "\300\301#\210\207" [puthash "workspace"] 6 (#$ . 251608)]) #@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 (#$ . 251754)]) #@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 (#$ . 252151)]) #@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 (#$ . 252487)]) #@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 (#$ . 252809)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ClientInfo--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:name) nil lsp-keyword->string alist-get ((:version\? . :version) (:name . :name)) error "Unknown key: %s. Available keys: %s" symbol-name (:version\? :name) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 253280)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ClientInfo--pcase-macroexpander edebug-form-spec nil ClientInfo pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:client-info-version\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 254255)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-info-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 254392)]) #@15 (fn OBJECT) (defalias 'lsp:client-info-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 254526)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-info-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 254655)]) #@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\? :data-support\? :resolve-support\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:code-action-literal-support\? :dynamic-registration\? :is-preferred-support\? :data-support\? :resolve-support\?) gethash 1 nil assoc ((:code-action-literal-support\? . :codeActionLiteralSupport) (:dynamic-registration\? . :dynamicRegistration) (:is-preferred-support\? . :isPreferredSupport) (:data-support\? . :dataSupport) (:resolve-support\? . :resolveSupport))] 7 (#$ . 254781)]) #@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\? :data-support\? :resolve-support\?) error "Unknown key: %s. Available keys: %s" (:code-action-literal-support\? :dynamic-registration\? :is-preferred-support\? :data-support\? :resolve-support\?) when ht\? gethash symbol-name assoc ((:code-action-literal-support\? . :codeActionLiteralSupport) (:dynamic-registration\? . :dynamicRegistration) (:is-preferred-support\? . :isPreferredSupport) (:data-support\? . :dataSupport) (:resolve-support\? . :resolveSupport)) 1 nil] 9 (#$ . 255574)]) #@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 (#$ . 256306)]) #@162 (fn &rest PLIST &key CODE-ACTION-LITERAL-SUPPORT\=\? DYNAMIC-REGISTRATION\=\? IS-PREFERRED-SUPPORT\=\? DATA-SUPPORT\=\? RESOLVE-SUPPORT\=\? &allow-other-keys) (defalias 'lsp-make-code-action-capabilities #[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 :code-action-literal-support\? :dynamic-registration\? :is-preferred-support\? :data-support\? :resolve-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) (:data-support\? . :dataSupport) (:resolve-support\? . :resolveSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 256629)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeActionCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:code-action-literal-support\? . :codeActionLiteralSupport) (:dynamic-registration\? . :dynamicRegistration) (:is-preferred-support\? . :isPreferredSupport) (:data-support\? . :dataSupport) (:resolve-support\? . :resolveSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:code-action-literal-support\? :dynamic-registration\? :is-preferred-support\? :data-support\? :resolve-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 257543)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeActionCapabilities--pcase-macroexpander edebug-form-spec nil CodeActionCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-code-action-literal-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionLiteralSupport"] 4 (#$ . 258833)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-code-action-literal-support\? #[514 "\300\301#\210\207" [puthash "codeActionLiteralSupport"] 6 (#$ . 259020)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 259204)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 259379)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-is-preferred-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isPreferredSupport"] 4 (#$ . 259551)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-is-preferred-support\? #[514 "\300\301#\210\207" [puthash "isPreferredSupport"] 6 (#$ . 259725)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-data-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dataSupport"] 4 (#$ . 259896)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-data-support\? #[514 "\300\301#\210\207" [puthash "dataSupport"] 6 (#$ . 260055)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-resolve-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveSupport"] 4 (#$ . 260211)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-resolve-support\? #[514 "\300\301#\210\207" [puthash "resolveSupport"] 6 (#$ . 260376)]) #@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 (#$ . 260538)]) #@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 (#$ . 260958)]) #@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 (#$ . 261317)]) #@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 (#$ . 261661)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeActionContext--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:diagnostics) nil lsp-keyword->string alist-get ((:only\? . :only) (:diagnostics . :diagnostics)) error "Unknown key: %s. Available keys: %s" symbol-name (:only\? :diagnostics) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 262156)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeActionContext--pcase-macroexpander edebug-form-spec nil CodeActionContext pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-action-context-only\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "only"] 4 (#$ . 263171)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-context-only\? #[514 "\300\301#\210\207" [puthash "only"] 6 (#$ . 263310)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-context-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 263446)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-context-diagnostics #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 263597)]) #@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 (#$ . 263745)]) #@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 (#$ . 264129)]) #@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 (#$ . 264452)]) #@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 (#$ . 264800)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeActionKindCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:valueSet) nil lsp-keyword->string alist-get ((:value-set . :valueSet)) error "Unknown key: %s. Available keys: %s" symbol-name (:value-set) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 265248)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeActionKindCapabilities--pcase-macroexpander edebug-form-spec nil CodeActionKindCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-action-kind-capabilities-value-set #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 266254)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-kind-capabilities-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 266410)]) #@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 (#$ . 266563)]) #@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 (#$ . 266990)]) #@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 (#$ . 267356)]) #@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 (#$ . 267694)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeActionLiteralSupportCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:code-action-kind\? . :codeActionKind)) error "Unknown key: %s. Available keys: %s" symbol-name (:code-action-kind\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 268188)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeActionLiteralSupportCapabilities--pcase-macroexpander edebug-form-spec nil CodeActionLiteralSupportCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-action-literal-support-capabilities-code-action-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionKind"] 4 (#$ . 269236)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-literal-support-capabilities-code-action-kind\? #[514 "\300\301#\210\207" [puthash "codeActionKind"] 6 (#$ . 269418)]) #@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\? :resolve-provider\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:code-action-kinds\? :resolve-provider\?) gethash 1 nil assoc ((:code-action-kinds\? . :codeActionKinds) (:resolve-provider\? . :resolveProvider))] 7 (#$ . 269597)]) #@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\? :resolve-provider\?) error "Unknown key: %s. Available keys: %s" (:code-action-kinds\? :resolve-provider\?) when ht\? gethash symbol-name assoc ((:code-action-kinds\? . :codeActionKinds) (:resolve-provider\? . :resolveProvider)) 1 nil] 9 (#$ . 270092)]) #@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 (#$ . 270526)]) #@86 (fn &rest PLIST &key CODE-ACTION-KINDS\=\? RESOLVE-PROVIDER\=\? &allow-other-keys) (defalias 'lsp-make-code-action-options #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :code-action-kinds\? :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 ((:code-action-kinds\? . :codeActionKinds) (:resolve-provider\? . :resolveProvider))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 270843)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeActionOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:code-action-kinds\? . :codeActionKinds) (:resolve-provider\? . :resolveProvider)) error "Unknown key: %s. Available keys: %s" symbol-name (:code-action-kinds\? :resolve-provider\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 271415)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeActionOptions--pcase-macroexpander edebug-form-spec nil CodeActionOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-action-options-code-action-kinds\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionKinds"] 4 (#$ . 272470)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-options-code-action-kinds\? #[514 "\300\301#\210\207" [puthash "codeActionKinds"] 6 (#$ . 272633)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 272793)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 272955)]) #@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 (#$ . 273114)]) #@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 (#$ . 273542)]) #@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 (#$ . 273909)]) #@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 (#$ . 274229)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeLensCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 274722)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeLensCapabilities--pcase-macroexpander edebug-form-spec nil CodeLensCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-lens-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 275735)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 275908)]) #@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 (#$ . 276078)]) #@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 (#$ . 276479)]) #@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 (#$ . 276819)]) #@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 (#$ . 277169)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeLensOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:resolveProvider) nil lsp-keyword->string alist-get ((:resolve-provider . :resolveProvider)) error "Unknown key: %s. Available keys: %s" symbol-name (:resolve-provider) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 277633)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeLensOptions--pcase-macroexpander edebug-form-spec nil CodeLensOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-lens-options-resolve-provider #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 278634)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-options-resolve-provider #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 278792)]) #@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 (#$ . 278947)]) #@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 (#$ . 279381)]) #@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 (#$ . 279754)]) #@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 (#$ . 280111)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Color--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:red :green :blue :alpha) nil lsp-keyword->string alist-get ((:red . :red) (:green . :green) (:blue . :blue) (:alpha . :alpha)) error "Unknown key: %s. Available keys: %s" symbol-name (:red :green :blue :alpha) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 280641)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Color--pcase-macroexpander edebug-form-spec nil Color pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:color-red #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "red"] 4 (#$ . 281654)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-red #[514 "\300\301#\210\207" [puthash "red"] 6 (#$ . 281775)]) #@15 (fn OBJECT) (defalias 'lsp:color-green #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "green"] 4 (#$ . 281893)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-green #[514 "\300\301#\210\207" [puthash "green"] 6 (#$ . 282018)]) #@15 (fn OBJECT) (defalias 'lsp:color-blue #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "blue"] 4 (#$ . 282140)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-blue #[514 "\300\301#\210\207" [puthash "blue"] 6 (#$ . 282263)]) #@15 (fn OBJECT) (defalias 'lsp:color-alpha #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "alpha"] 4 (#$ . 282383)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-alpha #[514 "\300\301#\210\207" [puthash "alpha"] 6 (#$ . 282508)]) #@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 (#$ . 282630)]) #@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 (#$ . 283063)]) #@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 (#$ . 283435)]) #@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 (#$ . 283760)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ColorProviderCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 284258)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ColorProviderCapabilities--pcase-macroexpander edebug-form-spec nil ColorProviderCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:color-provider-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 285286)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 285464)]) #@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 (#$ . 285639)]) #@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 (#$ . 286083)]) #@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 (#$ . 286466)]) #@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 (#$ . 286786)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ColorProviderOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:id\? . :id)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :id\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 287307)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ColorProviderOptions--pcase-macroexpander edebug-form-spec nil ColorProviderOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:color-provider-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 288331)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 288498)]) #@15 (fn OBJECT) (defalias 'lsp:color-provider-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 288662)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 288800)]) #@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 (#$ . 288935)]) #@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 (#$ . 289335)]) #@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 (#$ . 289674)]) #@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 (#$ . 290024)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ColoringInformation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range :styles) nil lsp-keyword->string alist-get ((:range . :range) (:styles . :styles)) error "Unknown key: %s. Available keys: %s" symbol-name (:range :styles) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 290496)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ColoringInformation--pcase-macroexpander edebug-form-spec nil ColoringInformation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:coloring-information-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 291503)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-information-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 291643)]) #@15 (fn OBJECT) (defalias 'lsp:coloring-information-styles #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "styles"] 4 (#$ . 291780)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-information-styles #[514 "\300\301#\210\207" [puthash "styles"] 6 (#$ . 291922)]) #@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 (#$ . 292061)]) #@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 (#$ . 292507)]) #@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 (#$ . 292892)]) #@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 (#$ . 293231)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Command--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:title :command) nil lsp-keyword->string alist-get ((:arguments\? . :arguments) (:title . :title) (:command . :command)) error "Unknown key: %s. Available keys: %s" symbol-name (:arguments\? :title :command) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 293763)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Command--pcase-macroexpander edebug-form-spec nil Command pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:command-arguments\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "arguments"] 4 (#$ . 294779)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 294916)]) #@15 (fn OBJECT) (defalias 'lsp:command-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 295050)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 295177)]) #@15 (fn OBJECT) (defalias 'lsp:command-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 295301)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 295432)]) #@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 (#$ . 295560)]) #@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 (#$ . 296242)]) #@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 (#$ . 296863)]) #@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 (#$ . 297185)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:completion-item\? . :completionItem) (:completion-item-kind\? . :completionItemKind) (:context-support\? . :contextSupport) (:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:completion-item\? :completion-item-kind\? :context-support\? :dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 297972)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionCapabilities--pcase-macroexpander edebug-form-spec nil CompletionCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-completion-item\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completionItem"] 4 (#$ . 299179)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-completion-item\? #[514 "\300\301#\210\207" [puthash "completionItem"] 6 (#$ . 299343)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-completion-item-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completionItemKind"] 4 (#$ . 299504)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-completion-item-kind\? #[514 "\300\301#\210\207" [puthash "completionItemKind"] 6 (#$ . 299677)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-context-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contextSupport"] 4 (#$ . 299847)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-context-support\? #[514 "\300\301#\210\207" [puthash "contextSupport"] 6 (#$ . 300011)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 300172)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 300346)]) #@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 (#$ . 300517)]) #@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 (#$ . 300991)]) #@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 (#$ . 301404)]) #@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 (#$ . 301747)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionContext--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:triggerKind) nil lsp-keyword->string alist-get ((:trigger-character\? . :triggerCharacter) (:trigger-kind . :triggerKind)) error "Unknown key: %s. Available keys: %s" symbol-name (:trigger-character\? :trigger-kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 302295)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionContext--pcase-macroexpander edebug-form-spec nil CompletionContext pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-context-trigger-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacter"] 4 (#$ . 303350)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-context-trigger-character\? #[514 "\300\301#\210\207" [puthash "triggerCharacter"] 6 (#$ . 303513)]) #@15 (fn OBJECT) (defalias 'lsp:completion-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerKind"] 4 (#$ . 303673)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 303824)]) #@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\? :insert-text-mode\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :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\? :insert-text-mode\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :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) (:insert-text-mode\? . :insertTextMode) (:kind\? . :kind) (:preselect\? . :preselect) (:sort-text\? . :sortText) (:tags\? . :tags) (:text-edit\? . :textEdit) (:score\? . :score) (:label . :label))] 7 (#$ . 303972)]) #@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\? :insert-text-mode\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :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\? :insert-text-mode\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :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) (:insert-text-mode\? . :insertTextMode) (:kind\? . :kind) (:preselect\? . :preselect) (:sort-text\? . :sortText) (:tags\? . :tags) (:text-edit\? . :textEdit) (:score\? . :score) (:label . :label)) 1 nil] 9 (#$ . 305322)]) #@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 (#$ . 306611)]) #@308 (fn &rest PLIST &key ADDITIONAL-TEXT-EDITS\=\? COMMAND\=\? COMMIT-CHARACTERS\=\? DATA\=\? DEPRECATED\=\? DETAIL\=\? DOCUMENTATION\=\? FILTER-TEXT\=\? INSERT-TEXT\=\? INSERT-TEXT-FORMAT\=\? INSERT-TEXT-MODE\=\? KIND\=\? PRESELECT\=\? SORT-TEXT\=\? TAGS\=\? TEXT-EDIT\=\? SCORE\=\? 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\? :insert-text-mode\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :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) (:insert-text-mode\? . :insertTextMode) (:kind\? . :kind) (:preselect\? . :preselect) (:sort-text\? . :sortText) (:tags\? . :tags) (:text-edit\? . :textEdit) (:score\? . :score) (:label . :label))] 9 "\n\n(fn INPUT0)"] -partition 2] 25 (#$ . 306940)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionItem--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:label) nil lsp-keyword->string alist-get ((: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) (:insert-text-mode\? . :insertTextMode) (:kind\? . :kind) (:preselect\? . :preselect) (:sort-text\? . :sortText) (:tags\? . :tags) (:text-edit\? . :textEdit) (:score\? . :score) (:label . :label)) error "Unknown key: %s. Available keys: %s" symbol-name (:additional-text-edits\? :command\? :commit-characters\? :data\? :deprecated\? :detail\? :documentation\? :filter-text\? :insert-text\? :insert-text-format\? :insert-text-mode\? :kind\? :preselect\? :sort-text\? :tags\? :text-edit\? :score\? :label) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 308604)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionItem--pcase-macroexpander edebug-form-spec nil CompletionItem pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-item-additional-text-edits\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "additionalTextEdits"] 4 (#$ . 310309)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-additional-text-edits\? #[514 "\300\301#\210\207" [puthash "additionalTextEdits"] 6 (#$ . 310476)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 310640)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 310781)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-commit-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commitCharacters"] 4 (#$ . 310919)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-commit-characters\? #[514 "\300\301#\210\207" [puthash "commitCharacters"] 6 (#$ . 311079)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 311236)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 311371)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 311503)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 311650)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 311794)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 311933)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-documentation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentation"] 4 (#$ . 312069)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 312222)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-filter-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "filterText"] 4 (#$ . 312372)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-filter-text\? #[514 "\300\301#\210\207" [puthash "filterText"] 6 (#$ . 312520)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertText"] 4 (#$ . 312665)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text\? #[514 "\300\301#\210\207" [puthash "insertText"] 6 (#$ . 312813)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertTextFormat"] 4 (#$ . 312958)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text-format\? #[514 "\300\301#\210\207" [puthash "insertTextFormat"] 6 (#$ . 313119)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text-mode\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertTextMode"] 4 (#$ . 313277)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text-mode\? #[514 "\300\301#\210\207" [puthash "insertTextMode"] 6 (#$ . 313434)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 313588)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 313723)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-preselect\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "preselect"] 4 (#$ . 313855)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-preselect\? #[514 "\300\301#\210\207" [puthash "preselect"] 6 (#$ . 314000)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-sort-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "sortText"] 4 (#$ . 314142)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-sort-text\? #[514 "\300\301#\210\207" [puthash "sortText"] 6 (#$ . 314286)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 314427)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 314562)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-text-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textEdit"] 4 (#$ . 314694)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-text-edit\? #[514 "\300\301#\210\207" [puthash "textEdit"] 6 (#$ . 314838)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-score\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "score"] 4 (#$ . 314979)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-score\? #[514 "\300\301#\210\207" [puthash "score"] 6 (#$ . 315116)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 315250)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 315385)]) #@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\? :insert-replace-support\? :resolve-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\? :insert-replace-support\? :resolve-support\?) gethash 1 nil assoc ((:commit-characters-support\? . :commitCharactersSupport) (:deprecated-support\? . :deprecatedSupport) (:documentation-format\? . :documentationFormat) (:preselect-support\? . :preselectSupport) (:snippet-support\? . :snippetSupport) (:tag-support\? . :tagSupport) (:insert-replace-support\? . :insertReplaceSupport) (:resolve-support\? . :resolveSupport))] 7 (#$ . 315517)]) #@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\? :insert-replace-support\? :resolve-support\?) error "Unknown key: %s. Available keys: %s" (:commit-characters-support\? :deprecated-support\? :documentation-format\? :preselect-support\? :snippet-support\? :tag-support\? :insert-replace-support\? :resolve-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) (:insert-replace-support\? . :insertReplaceSupport) (:resolve-support\? . :resolveSupport)) 1 nil] 9 (#$ . 316562)]) #@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 (#$ . 317546)]) #@226 (fn &rest PLIST &key COMMIT-CHARACTERS-SUPPORT\=\? DEPRECATED-SUPPORT\=\? DOCUMENTATION-FORMAT\=\? PRESELECT-SUPPORT\=\? SNIPPET-SUPPORT\=\? TAG-SUPPORT\=\? INSERT-REPLACE-SUPPORT\=\? RESOLVE-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@\300\307\"A@\300\310\"A@\311\312\313\"\211\262\314\315\316\"\317\320 \"\"\210\207" [plist-member :commit-characters-support\? :deprecated-support\? :documentation-format\? :preselect-support\? :snippet-support\? :tag-support\? :insert-replace-support\? :resolve-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) (:insert-replace-support\? . :insertReplaceSupport) (:resolve-support\? . :resolveSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 15 (#$ . 317873)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionItemCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:commit-characters-support\? . :commitCharactersSupport) (:deprecated-support\? . :deprecatedSupport) (:documentation-format\? . :documentationFormat) (:preselect-support\? . :preselectSupport) (:snippet-support\? . :snippetSupport) (:tag-support\? . :tagSupport) (:insert-replace-support\? . :insertReplaceSupport) (:resolve-support\? . :resolveSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:commit-characters-support\? :deprecated-support\? :documentation-format\? :preselect-support\? :snippet-support\? :tag-support\? :insert-replace-support\? :resolve-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 319083)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionItemCapabilities--pcase-macroexpander edebug-form-spec nil CompletionItemCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-commit-characters-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commitCharactersSupport"] 4 (#$ . 320572)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-commit-characters-support\? #[514 "\300\301#\210\207" [puthash "commitCharactersSupport"] 6 (#$ . 320760)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-deprecated-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecatedSupport"] 4 (#$ . 320945)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-deprecated-support\? #[514 "\300\301#\210\207" [puthash "deprecatedSupport"] 6 (#$ . 321120)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-documentation-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentationFormat"] 4 (#$ . 321292)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-documentation-format\? #[514 "\300\301#\210\207" [puthash "documentationFormat"] 6 (#$ . 321471)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-preselect-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "preselectSupport"] 4 (#$ . 321647)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-preselect-support\? #[514 "\300\301#\210\207" [puthash "preselectSupport"] 6 (#$ . 321820)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-snippet-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "snippetSupport"] 4 (#$ . 321990)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-snippet-support\? #[514 "\300\301#\210\207" [puthash "snippetSupport"] 6 (#$ . 322159)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-tag-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tagSupport"] 4 (#$ . 322325)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-tag-support\? #[514 "\300\301#\210\207" [puthash "tagSupport"] 6 (#$ . 322486)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-insert-replace-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertReplaceSupport"] 4 (#$ . 322644)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-insert-replace-support\? #[514 "\300\301#\210\207" [puthash "insertReplaceSupport"] 6 (#$ . 322826)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-resolve-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveSupport"] 4 (#$ . 323005)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-resolve-support\? #[514 "\300\301#\210\207" [puthash "resolveSupport"] 6 (#$ . 323174)]) #@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 (#$ . 323340)]) #@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 (#$ . 323734)]) #@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 (#$ . 324067)]) #@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 (#$ . 324398)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionItemKindCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:value-set\? . :valueSet)) error "Unknown key: %s. Available keys: %s" symbol-name (:value-set\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 324858)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionItemKindCapabilities--pcase-macroexpander edebug-form-spec nil CompletionItemKindCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-item-kind-capabilities-value-set\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 325868)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-kind-capabilities-value-set\? #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 326030)]) #@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 (#$ . 326189)]) #@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 (#$ . 326583)]) #@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 (#$ . 326916)]) #@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 (#$ . 327275)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionItemTagSupportCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:valueSet) nil lsp-keyword->string alist-get ((:value-set . :valueSet)) error "Unknown key: %s. Available keys: %s" symbol-name (:value-set) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 327734)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionItemTagSupportCapabilities--pcase-macroexpander edebug-form-spec nil CompletionItemTagSupportCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-item-tag-support-capabilities-value-set #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 328770)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-tag-support-capabilities-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 328937)]) #@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\? :all-commit-characters\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:resolve-provider\? :trigger-characters\? :all-commit-characters\?) gethash 1 nil assoc ((:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters) (:all-commit-characters\? . :allCommitCharacters))] 7 (#$ . 329101)]) #@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\? :all-commit-characters\?) error "Unknown key: %s. Available keys: %s" (:resolve-provider\? :trigger-characters\? :all-commit-characters\?) when ht\? gethash symbol-name assoc ((:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters) (:all-commit-characters\? . :allCommitCharacters)) 1 nil] 9 (#$ . 329701)]) #@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 (#$ . 330240)]) #@113 (fn &rest PLIST &key RESOLVE-PROVIDER\=\? TRIGGER-CHARACTERS\=\? ALL-COMMIT-CHARACTERS\=\? &allow-other-keys) (defalias 'lsp-make-completion-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 :resolve-provider\? :trigger-characters\? :all-commit-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) (:all-commit-characters\? . :allCommitCharacters))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 330557)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters) (:all-commit-characters\? . :allCommitCharacters)) error "Unknown key: %s. Available keys: %s" symbol-name (:resolve-provider\? :trigger-characters\? :all-commit-characters\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 331248)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionOptions--pcase-macroexpander edebug-form-spec nil CompletionOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 332382)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 332543)]) #@15 (fn OBJECT) (defalias 'lsp:completion-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 332701)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 332866)]) #@15 (fn OBJECT) (defalias 'lsp:completion-options-all-commit-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "allCommitCharacters"] 4 (#$ . 333028)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-all-commit-characters\? #[514 "\300\301#\210\207" [puthash "allCommitCharacters"] 6 (#$ . 333198)]) #@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 (#$ . 333365)]) #@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 (#$ . 333794)]) #@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 (#$ . 334162)]) #@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 (#$ . 334478)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ConfigurationItem--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:scope-uri\? . :scopeUri) (:section\? . :section)) error "Unknown key: %s. Available keys: %s" symbol-name (:scope-uri\? :section\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 334983)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ConfigurationItem--pcase-macroexpander edebug-form-spec nil ConfigurationItem pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:configuration-item-scope-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "scopeUri"] 4 (#$ . 335989)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-item-scope-uri\? #[514 "\300\301#\210\207" [puthash "scopeUri"] 6 (#$ . 336136)]) #@15 (fn OBJECT) (defalias 'lsp:configuration-item-section\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "section"] 4 (#$ . 336280)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-item-section\? #[514 "\300\301#\210\207" [puthash "section"] 6 (#$ . 336424)]) #@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 (#$ . 336565)]) #@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 (#$ . 337029)]) #@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 (#$ . 337432)]) #@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 (#$ . 337749)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CreateFileOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:ignore-if-exists\? . :ignoreIfExists) (:overwrite\? . :overwrite)) error "Unknown key: %s. Available keys: %s" symbol-name (:ignore-if-exists\? :overwrite\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 338290)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CreateFileOptions--pcase-macroexpander edebug-form-spec nil CreateFileOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:create-file-options-ignore-if-exists\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ignoreIfExists"] 4 (#$ . 339322)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options-ignore-if-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfExists"] 6 (#$ . 339483)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-options-overwrite\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "overwrite"] 4 (#$ . 339641)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options-overwrite\? #[514 "\300\301#\210\207" [puthash "overwrite"] 6 (#$ . 339790)]) #@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 (#$ . 339936)]) #@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 (#$ . 340434)]) #@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 (#$ . 340871)]) #@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 (#$ . 341193)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DeclarationCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :link-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 341767)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DeclarationCapabilities--pcase-macroexpander edebug-form-spec nil DeclarationCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:declaration-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 342838)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 343013)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 343185)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 343344)]) #@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 (#$ . 343500)]) #@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 (#$ . 343997)]) #@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 (#$ . 344433)]) #@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 (#$ . 344754)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DefinitionCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :link-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 345327)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DefinitionCapabilities--pcase-macroexpander edebug-form-spec nil DefinitionCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:definition-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 346395)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 346569)]) #@15 (fn OBJECT) (defalias 'lsp:definition-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 346740)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 346898)]) #@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 (#$ . 347053)]) #@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 (#$ . 347532)]) #@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 (#$ . 347950)]) #@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 (#$ . 348267)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DeleteFileOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:ignore-if-not-exists\? . :ignoreIfNotExists) (:recursive\? . :recursive)) error "Unknown key: %s. Available keys: %s" symbol-name (:ignore-if-not-exists\? :recursive\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 348823)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DeleteFileOptions--pcase-macroexpander edebug-form-spec nil DeleteFileOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:delete-file-options-ignore-if-not-exists\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ignoreIfNotExists"] 4 (#$ . 349866)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options-ignore-if-not-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfNotExists"] 6 (#$ . 350034)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-options-recursive\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "recursive"] 4 (#$ . 350199)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options-recursive\? #[514 "\300\301#\210\207" [puthash "recursive"] 6 (#$ . 350348)]) #@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 (#$ . 350494)]) #@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 (#$ . 351142)]) #@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 (#$ . 351729)]) #@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 (#$ . 352072)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Diagnostic--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range :message) nil lsp-keyword->string alist-get ((:code\? . :code) (:related-information\? . :relatedInformation) (:severity\? . :severity) (:source\? . :source) (:tags\? . :tags) (:range . :range) (:message . :message)) error "Unknown key: %s. Available keys: %s" symbol-name (:code\? :related-information\? :severity\? :source\? :tags\? :range :message) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 352865)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Diagnostic--pcase-macroexpander edebug-form-spec nil Diagnostic pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-code\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "code"] 4 (#$ . 354041)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-code\? #[514 "\300\301#\210\207" [puthash "code"] 6 (#$ . 354171)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "relatedInformation"] 4 (#$ . 354298)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information\? #[514 "\300\301#\210\207" [puthash "relatedInformation"] 6 (#$ . 354457)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-severity\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "severity"] 4 (#$ . 354613)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-severity\? #[514 "\300\301#\210\207" [puthash "severity"] 6 (#$ . 354751)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-source\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "source"] 4 (#$ . 354886)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-source\? #[514 "\300\301#\210\207" [puthash "source"] 6 (#$ . 355020)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 355151)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 355281)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 355408)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 355538)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 355665)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 355799)]) #@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 (#$ . 355930)]) #@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 (#$ . 356355)]) #@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 (#$ . 356719)]) #@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 (#$ . 357087)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DiagnosticRelatedInformation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:location :message) nil lsp-keyword->string alist-get ((:location . :location) (:message . :message)) error "Unknown key: %s. Available keys: %s" symbol-name (:location :message) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 357585)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DiagnosticRelatedInformation--pcase-macroexpander edebug-form-spec nil DiagnosticRelatedInformation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information-location #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "location"] 4 (#$ . 358635)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information-location #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 358791)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 358944)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 359098)]) #@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 (#$ . 359249)]) #@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 (#$ . 359628)]) #@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 (#$ . 359946)]) #@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 (#$ . 360288)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DiagnosticsTagSupport--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:valueSet) nil lsp-keyword->string alist-get ((:value-set . :valueSet)) error "Unknown key: %s. Available keys: %s" symbol-name (:value-set) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 360730)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DiagnosticsTagSupport--pcase-macroexpander edebug-form-spec nil DiagnosticsTagSupport pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:diagnostics-tag-support-value-set #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 361721)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostics-tag-support-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 361871)]) #@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 (#$ . 362018)]) #@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 (#$ . 362460)]) #@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 (#$ . 362841)]) #@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 (#$ . 363176)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidChangeConfigurationCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 363684)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidChangeConfigurationCapabilities--pcase-macroexpander edebug-form-spec nil DidChangeConfigurationCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-change-configuration-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 364739)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-configuration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 364927)]) #@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 (#$ . 365112)]) #@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 (#$ . 365553)]) #@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 (#$ . 365933)]) #@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 (#$ . 366268)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidChangeWatchedFilesCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 366776)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidChangeWatchedFilesCapabilities--pcase-macroexpander edebug-form-spec nil DidChangeWatchedFilesCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 367828)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 368016)]) #@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 (#$ . 368201)]) #@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 (#$ . 368666)]) #@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 (#$ . 369070)]) #@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 (#$ . 369383)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentFilter--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:language\? . :language) (:pattern\? . :pattern) (:scheme\? . :scheme)) error "Unknown key: %s. Available keys: %s" symbol-name (:language\? :pattern\? :scheme\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 369939)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentFilter--pcase-macroexpander edebug-form-spec nil DocumentFilter pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-filter-language\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "language"] 4 (#$ . 370966)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-language\? #[514 "\300\301#\210\207" [puthash "language"] 6 (#$ . 371109)]) #@15 (fn OBJECT) (defalias 'lsp:document-filter-pattern\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "pattern"] 4 (#$ . 371249)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-pattern\? #[514 "\300\301#\210\207" [puthash "pattern"] 6 (#$ . 371390)]) #@15 (fn OBJECT) (defalias 'lsp:document-filter-scheme\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "scheme"] 4 (#$ . 371528)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-scheme\? #[514 "\300\301#\210\207" [puthash "scheme"] 6 (#$ . 371667)]) #@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 (#$ . 371803)]) #@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 (#$ . 372240)]) #@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 (#$ . 372616)]) #@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 (#$ . 372945)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentHighlightCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 373447)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentHighlightCapabilities--pcase-macroexpander edebug-form-spec nil DocumentHighlightCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 374487)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 374669)]) #@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 (#$ . 374848)]) #@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 (#$ . 375359)]) #@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 (#$ . 375809)]) #@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 (#$ . 376133)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentLinkCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:tooltip-support\? . :tooltipSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :tooltip-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 376721)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentLinkCapabilities--pcase-macroexpander edebug-form-spec nil DocumentLinkCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-link-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 377804)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 377981)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-capabilities-tooltip-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltipSupport"] 4 (#$ . 378155)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-capabilities-tooltip-support\? #[514 "\300\301#\210\207" [puthash "tooltipSupport"] 6 (#$ . 378322)]) #@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 (#$ . 378486)]) #@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 (#$ . 378897)]) #@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 (#$ . 379247)]) #@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 (#$ . 379566)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentLinkOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:resolve-provider\? . :resolveProvider)) error "Unknown key: %s. Available keys: %s" symbol-name (:resolve-provider\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 380042)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentLinkOptions--pcase-macroexpander edebug-form-spec nil DocumentLinkOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-link-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 381040)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 381204)]) #@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 (#$ . 381365)]) #@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 (#$ . 381915)]) #@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 (#$ . 382404)]) #@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 (#$ . 382784)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentOnTypeFormattingOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:firstTriggerCharacter) nil lsp-keyword->string alist-get ((:more-trigger-character\? . :moreTriggerCharacter) (:first-trigger-character . :firstTriggerCharacter)) error "Unknown key: %s. Available keys: %s" symbol-name (:more-trigger-character\? :first-trigger-character) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 383411)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentOnTypeFormattingOptions--pcase-macroexpander edebug-form-spec nil DocumentOnTypeFormattingOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-options-more-trigger-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "moreTriggerCharacter"] 4 (#$ . 384564)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-options-more-trigger-character\? #[514 "\300\301#\210\207" [puthash "moreTriggerCharacter"] 6 (#$ . 384753)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-options-first-trigger-character #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "firstTriggerCharacter"] 4 (#$ . 384939)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-options-first-trigger-character #[514 "\300\301#\210\207" [puthash "firstTriggerCharacter"] 6 (#$ . 385128)]) #@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 (#$ . 385314)]) #@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 (#$ . 385950)]) #@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 (#$ . 386525)]) #@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 (#$ . 386913)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentSymbol--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :name :range :selectionRange) nil lsp-keyword->string alist-get ((:children\? . :children) (:deprecated\? . :deprecated) (:detail\? . :detail) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange)) error "Unknown key: %s. Available keys: %s" symbol-name (:children\? :deprecated\? :detail\? :kind :name :range :selection-range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 387691)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentSymbol--pcase-macroexpander edebug-form-spec nil DocumentSymbol pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-children\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "children"] 4 (#$ . 388887)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-children\? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 389030)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 389170)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 389317)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 389461)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 389600)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 389736)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 389869)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 389999)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 390132)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 390262)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 390397)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 390529)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 390683)]) #@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 (#$ . 390834)]) #@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 (#$ . 391490)]) #@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 (#$ . 392085)]) #@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 (#$ . 392412)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentSymbolCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:hierarchical-document-symbol-support\? . :hierarchicalDocumentSymbolSupport) (:symbol-kind\? . :symbolKind)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :hierarchical-document-symbol-support\? :symbol-kind\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 393160)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentSymbolCapabilities--pcase-macroexpander edebug-form-spec nil DocumentSymbolCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 394356)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 394535)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-hierarchical-document-symbol-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hierarchicalDocumentSymbolSupport"] 4 (#$ . 394711)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-hierarchical-document-symbol-support\? #[514 "\300\301#\210\207" [puthash "hierarchicalDocumentSymbolSupport"] 6 (#$ . 394920)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-symbol-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbolKind"] 4 (#$ . 395126)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-symbol-kind\? #[514 "\300\301#\210\207" [puthash "symbolKind"] 6 (#$ . 395287)]) #@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 (#$ . 395445)]) #@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 (#$ . 395879)]) #@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 (#$ . 396252)]) #@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 (#$ . 396578)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ExecuteCommandCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 397077)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ExecuteCommandCapabilities--pcase-macroexpander edebug-form-spec nil ExecuteCommandCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:execute-command-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 398108)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 398287)]) #@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 (#$ . 398463)]) #@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 (#$ . 398839)]) #@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 (#$ . 399154)]) #@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 (#$ . 399496)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ExecuteCommandOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:commands) nil lsp-keyword->string alist-get ((:commands . :commands)) error "Unknown key: %s. Available keys: %s" symbol-name (:commands) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 399935)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ExecuteCommandOptions--pcase-macroexpander edebug-form-spec nil ExecuteCommandOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:execute-command-options-commands #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commands"] 4 (#$ . 400924)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-options-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 401073)]) #@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 (#$ . 401219)]) #@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 (#$ . 401593)]) #@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 (#$ . 401906)]) #@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 (#$ . 402238)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FileEvent--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:type :uri) nil lsp-keyword->string alist-get ((:type . :type) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:type :uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 402684)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FileEvent--pcase-macroexpander edebug-form-spec nil FileEvent pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:file-event-type #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "type"] 4 (#$ . 403645)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-event-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 403773)]) #@15 (fn OBJECT) (defalias 'lsp:file-event-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 403898)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-event-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 404024)]) #@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 (#$ . 404147)]) #@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 (#$ . 404570)]) #@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 (#$ . 404932)]) #@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 (#$ . 405276)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FileSystemWatcher--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:globPattern) nil lsp-keyword->string alist-get ((:kind\? . :kind) (:glob-pattern . :globPattern)) error "Unknown key: %s. Available keys: %s" symbol-name (:kind\? :glob-pattern) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 405774)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FileSystemWatcher--pcase-macroexpander edebug-form-spec nil FileSystemWatcher pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:file-system-watcher-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 406791)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-system-watcher-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 406930)]) #@15 (fn OBJECT) (defalias 'lsp:file-system-watcher-glob-pattern #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "globPattern"] 4 (#$ . 407066)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-system-watcher-glob-pattern #[514 "\300\301#\210\207" [puthash "globPattern"] 6 (#$ . 407218)]) #@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 (#$ . 407367)]) #@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 (#$ . 407946)]) #@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 (#$ . 408464)]) #@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 (#$ . 408789)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FoldingRangeCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:line-folding-only\? . :lineFoldingOnly) (:range-limit\? . :rangeLimit)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :line-folding-only\? :range-limit\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 409460)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FoldingRangeCapabilities--pcase-macroexpander edebug-form-spec nil FoldingRangeCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 410594)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 410771)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-line-folding-only\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "lineFoldingOnly"] 4 (#$ . 410945)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-line-folding-only\? #[514 "\300\301#\210\207" [puthash "lineFoldingOnly"] 6 (#$ . 411115)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-range-limit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeLimit"] 4 (#$ . 411282)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-range-limit\? #[514 "\300\301#\210\207" [puthash "rangeLimit"] 6 (#$ . 411441)]) #@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 (#$ . 411597)]) #@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 (#$ . 412048)]) #@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 (#$ . 412438)]) #@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 (#$ . 412766)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FoldingRangeProviderOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:id\? . :id)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :id\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 413295)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FoldingRangeProviderOptions--pcase-macroexpander edebug-form-spec nil FoldingRangeProviderOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:folding-range-provider-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 414340)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-provider-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 414515)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-provider-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 414687)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-provider-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 414833)]) #@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 (#$ . 414976)]) #@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 (#$ . 415406)]) #@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 (#$ . 415775)]) #@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 (#$ . 416096)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FormattingCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 416590)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FormattingCapabilities--pcase-macroexpander edebug-form-spec nil FormattingCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:formatting-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 417609)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 417783)]) #@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 (#$ . 417954)]) #@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 (#$ . 418690)]) #@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 (#$ . 419365)]) #@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 (#$ . 419730)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FormattingOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:tabSize :insertSpaces) nil lsp-keyword->string alist-get ((:trim-trailing-whitespace\? . :trimTrailingWhitespace) (:insert-final-newline\? . :insertFinalNewline) (:trim-final-newlines\? . :trimFinalNewlines) (:tab-size . :tabSize) (:insert-spaces . :insertSpaces)) error "Unknown key: %s. Available keys: %s" symbol-name (:trim-trailing-whitespace\? :insert-final-newline\? :trim-final-newlines\? :tab-size :insert-spaces) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 420582)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FormattingOptions--pcase-macroexpander edebug-form-spec nil FormattingOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-trim-trailing-whitespace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "trimTrailingWhitespace"] 4 (#$ . 421844)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-trim-trailing-whitespace\? #[514 "\300\301#\210\207" [puthash "trimTrailingWhitespace"] 6 (#$ . 422020)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-insert-final-newline\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertFinalNewline"] 4 (#$ . 422193)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-insert-final-newline\? #[514 "\300\301#\210\207" [puthash "insertFinalNewline"] 6 (#$ . 422361)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-trim-final-newlines\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "trimFinalNewlines"] 4 (#$ . 422526)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-trim-final-newlines\? #[514 "\300\301#\210\207" [puthash "trimFinalNewlines"] 6 (#$ . 422692)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-tab-size #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tabSize"] 4 (#$ . 422855)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-tab-size #[514 "\300\301#\210\207" [puthash "tabSize"] 6 (#$ . 422998)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-insert-spaces #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertSpaces"] 4 (#$ . 423138)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-insert-spaces #[514 "\300\301#\210\207" [puthash "insertSpaces"] 6 (#$ . 423291)]) #@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 (#$ . 423441)]) #@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 (#$ . 423941)]) #@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 (#$ . 424380)]) #@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 (#$ . 424696)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'HoverCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:content-format\? . :contentFormat) (:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:content-format\? :dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 425272)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop HoverCapabilities--pcase-macroexpander edebug-form-spec nil HoverCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:hover-capabilities-content-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contentFormat"] 4 (#$ . 426331)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-capabilities-content-format\? #[514 "\300\301#\210\207" [puthash "contentFormat"] 6 (#$ . 426488)]) #@15 (fn OBJECT) (defalias 'lsp:hover-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 426642)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 426811)]) #@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 (#$ . 426977)]) #@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 (#$ . 427478)]) #@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 (#$ . 427918)]) #@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 (#$ . 428243)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ImplementationCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :link-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 428820)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ImplementationCapabilities--pcase-macroexpander edebug-form-spec nil ImplementationCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:implementation-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 429900)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 430078)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 430253)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 430415)]) #@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 (#$ . 430574)]) #@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 (#$ . 430951)]) #@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 (#$ . 431267)]) #@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 (#$ . 431599)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Location--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range :uri) nil lsp-keyword->string alist-get ((:range . :range) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:range :uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 432047)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Location--pcase-macroexpander edebug-form-spec nil Location pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:location-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 433009)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 433137)]) #@15 (fn OBJECT) (defalias 'lsp:location-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 433262)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 433386)]) #@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 (#$ . 433507)]) #@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 (#$ . 433908)]) #@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 (#$ . 434248)]) #@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 (#$ . 434595)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'MarkedString--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:language :value) nil lsp-keyword->string alist-get ((:language . :language) (:value . :value)) error "Unknown key: %s. Available keys: %s" symbol-name (:language :value) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 435068)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop MarkedString--pcase-macroexpander edebug-form-spec nil MarkedString pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:marked-string-language #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "language"] 4 (#$ . 436062)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-marked-string-language #[514 "\300\301#\210\207" [puthash "language"] 6 (#$ . 436201)]) #@15 (fn OBJECT) (defalias 'lsp:marked-string-value #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "value"] 4 (#$ . 436337)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-marked-string-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 436470)]) #@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 (#$ . 436600)]) #@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 (#$ . 436986)]) #@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 (#$ . 437311)]) #@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 (#$ . 437651)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'MarkupContent--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :value) nil lsp-keyword->string alist-get ((:kind . :kind) (:value . :value)) error "Unknown key: %s. Available keys: %s" symbol-name (:kind :value) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 438109)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop MarkupContent--pcase-macroexpander edebug-form-spec nil MarkupContent pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:markup-content-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 439090)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-markup-content-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 439222)]) #@15 (fn OBJECT) (defalias 'lsp:markup-content-value #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "value"] 4 (#$ . 439351)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-markup-content-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 439485)]) #@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 (#$ . 439616)]) #@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 (#$ . 439976)]) #@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 (#$ . 440275)]) #@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 (#$ . 440607)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'MessageActionItem--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:title) nil lsp-keyword->string alist-get ((:title . :title)) error "Unknown key: %s. Available keys: %s" symbol-name (:title) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 441030)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop MessageActionItem--pcase-macroexpander edebug-form-spec nil MessageActionItem pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:message-action-item-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 441995)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-action-item-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 442134)]) #@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 (#$ . 442270)]) #@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 (#$ . 442706)]) #@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 (#$ . 443081)]) #@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 (#$ . 443410)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'OnTypeFormattingCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 443912)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop OnTypeFormattingCapabilities--pcase-macroexpander edebug-form-spec nil OnTypeFormattingCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:on-type-formatting-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 444949)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-on-type-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 445131)]) #@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 (#$ . 445310)]) #@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 (#$ . 445745)]) #@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 (#$ . 446119)]) #@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 (#$ . 446453)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ParameterInformation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:label) nil lsp-keyword->string alist-get ((:documentation\? . :documentation) (:label . :label)) error "Unknown key: %s. Available keys: %s" symbol-name (:documentation\? :label) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 446962)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ParameterInformation--pcase-macroexpander edebug-form-spec nil ParameterInformation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:parameter-information-documentation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentation"] 4 (#$ . 447989)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 448148)]) #@15 (fn OBJECT) (defalias 'lsp:parameter-information-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 448304)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 448445)]) #@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 (#$ . 448583)]) #@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 (#$ . 449022)]) #@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 (#$ . 449400)]) #@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 (#$ . 449732)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ParameterInformationCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:label-offset-support\? . :labelOffsetSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:label-offset-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 450236)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ParameterInformationCapabilities--pcase-macroexpander edebug-form-spec nil ParameterInformationCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:parameter-information-capabilities-label-offset-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "labelOffsetSupport"] 4 (#$ . 451284)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-capabilities-label-offset-support\? #[514 "\300\301#\210\207" [puthash "labelOffsetSupport"] 6 (#$ . 451468)]) #@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 (#$ . 451649)]) #@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 (#$ . 452046)]) #@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 (#$ . 452382)]) #@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 (#$ . 452724)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Position--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:character :line) nil lsp-keyword->string alist-get ((:character . :character) (:line . :line)) error "Unknown key: %s. Available keys: %s" symbol-name (:character :line) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 453192)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Position--pcase-macroexpander edebug-form-spec nil Position pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:position-character #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "character"] 4 (#$ . 454174)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-position-character #[514 "\300\301#\210\207" [puthash "character"] 6 (#$ . 454310)]) #@15 (fn OBJECT) (defalias 'lsp:position-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "line"] 4 (#$ . 454443)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-position-line #[514 "\300\301#\210\207" [puthash "line"] 6 (#$ . 454569)]) #@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 (#$ . 454692)]) #@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 (#$ . 455266)]) #@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 (#$ . 455779)]) #@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 (#$ . 456110)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'PublishDiagnosticsCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:related-information\? . :relatedInformation) (:tag-support\? . :tagSupport) (:version-support\? . :versionSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:related-information\? :tag-support\? :version-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 456776)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop PublishDiagnosticsCapabilities--pcase-macroexpander edebug-form-spec nil PublishDiagnosticsCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-related-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "relatedInformation"] 4 (#$ . 457920)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-related-information\? #[514 "\300\301#\210\207" [puthash "relatedInformation"] 6 (#$ . 458101)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-tag-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tagSupport"] 4 (#$ . 458279)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-tag-support\? #[514 "\300\301#\210\207" [puthash "tagSupport"] 6 (#$ . 458444)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-version-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "versionSupport"] 4 (#$ . 458606)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-version-support\? #[514 "\300\301#\210\207" [puthash "versionSupport"] 6 (#$ . 458779)]) #@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 (#$ . 458949)]) #@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 (#$ . 459323)]) #@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 (#$ . 459636)]) #@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 (#$ . 459965)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Range--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:start :end) nil lsp-keyword->string alist-get ((:start . :start) (:end . :end)) error "Unknown key: %s. Available keys: %s" symbol-name (:start :end) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 460410)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Range--pcase-macroexpander edebug-form-spec nil Range pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:range-start #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "start"] 4 (#$ . 461363)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-start #[514 "\300\301#\210\207" [puthash "start"] 6 (#$ . 461488)]) #@15 (fn OBJECT) (defalias 'lsp:range-end #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "end"] 4 (#$ . 461610)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-end #[514 "\300\301#\210\207" [puthash "end"] 6 (#$ . 461731)]) #@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 (#$ . 461849)]) #@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 (#$ . 462284)]) #@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 (#$ . 462658)]) #@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 (#$ . 462985)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'RangeFormattingCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 463485)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop RangeFormattingCapabilities--pcase-macroexpander edebug-form-spec nil RangeFormattingCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:range-formatting-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 464519)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 464699)]) #@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 (#$ . 464876)]) #@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 (#$ . 465290)]) #@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 (#$ . 465643)]) #@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 (#$ . 465999)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ReferenceContext--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:includeDeclaration) nil lsp-keyword->string alist-get ((:include-declaration . :includeDeclaration)) error "Unknown key: %s. Available keys: %s" symbol-name (:include-declaration) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 466475)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ReferenceContext--pcase-macroexpander edebug-form-spec nil ReferenceContext pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:reference-context-include-declaration #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "includeDeclaration"] 4 (#$ . 467491)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-context-include-declaration #[514 "\300\301#\210\207" [puthash "includeDeclaration"] 6 (#$ . 467655)]) #@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 (#$ . 467816)]) #@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 (#$ . 468246)]) #@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 (#$ . 468615)]) #@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 (#$ . 468936)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ReferencesCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 469430)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ReferencesCapabilities--pcase-macroexpander edebug-form-spec nil ReferencesCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:references-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 470449)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-references-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 470623)]) #@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 (#$ . 470794)]) #@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 (#$ . 471256)]) #@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 (#$ . 471657)]) #@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 (#$ . 471993)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Registration--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:method :id) nil lsp-keyword->string alist-get ((:register-options\? . :registerOptions) (:method . :method) (:id . :id)) error "Unknown key: %s. Available keys: %s" symbol-name (:register-options\? :method :id) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 472541)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Registration--pcase-macroexpander edebug-form-spec nil Registration pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:registration-register-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "registerOptions"] 4 (#$ . 473576)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-register-options\? #[514 "\300\301#\210\207" [puthash "registerOptions"] 6 (#$ . 473731)]) #@15 (fn OBJECT) (defalias 'lsp:registration-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 473883)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 474017)]) #@15 (fn OBJECT) (defalias 'lsp:registration-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 474148)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 474274)]) #@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 (#$ . 474397)]) #@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 (#$ . 474902)]) #@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 (#$ . 475346)]) #@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 (#$ . 475663)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'RenameCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:prepare-support\? . :prepareSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :prepare-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 476244)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop RenameCapabilities--pcase-macroexpander edebug-form-spec nil RenameCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rename-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 477309)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 477479)]) #@15 (fn OBJECT) (defalias 'lsp:rename-capabilities-prepare-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "prepareSupport"] 4 (#$ . 477646)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-capabilities-prepare-support\? #[514 "\300\301#\210\207" [puthash "prepareSupport"] 6 (#$ . 477806)]) #@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 (#$ . 477963)]) #@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 (#$ . 478427)]) #@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 (#$ . 478830)]) #@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 (#$ . 479147)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'RenameFileOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:ignore-if-exists\? . :ignoreIfExists) (:overwrite\? . :overwrite)) error "Unknown key: %s. Available keys: %s" symbol-name (:ignore-if-exists\? :overwrite\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 479688)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop RenameFileOptions--pcase-macroexpander edebug-form-spec nil RenameFileOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rename-file-options-ignore-if-exists\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ignoreIfExists"] 4 (#$ . 480720)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options-ignore-if-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfExists"] 6 (#$ . 480881)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-options-overwrite\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "overwrite"] 4 (#$ . 481039)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options-overwrite\? #[514 "\300\301#\210\207" [puthash "overwrite"] 6 (#$ . 481188)]) #@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 (#$ . 481334)]) #@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 (#$ . 481852)]) #@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 (#$ . 482309)]) #@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 (#$ . 482621)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'RenameOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:id\? . :id) (:prepare-provider\? . :prepareProvider)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :id\? :prepare-provider\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 483230)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop RenameOptions--pcase-macroexpander edebug-form-spec nil RenameOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rename-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 484294)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 484453)]) #@15 (fn OBJECT) (defalias 'lsp:rename-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 484609)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 484739)]) #@15 (fn OBJECT) (defalias 'lsp:rename-options-prepare-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "prepareProvider"] 4 (#$ . 484866)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-prepare-provider\? #[514 "\300\301#\210\207" [puthash "prepareProvider"] 6 (#$ . 485023)]) #@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 (#$ . 485177)]) #@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 (#$ . 485595)]) #@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 (#$ . 485952)]) #@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 (#$ . 486265)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ResourceChange--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:current\? . :current) (:new-uri\? . :newUri)) error "Unknown key: %s. Available keys: %s" symbol-name (:current\? :new-uri\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 486759)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ResourceChange--pcase-macroexpander edebug-form-spec nil ResourceChange pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:resource-change-current\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "current"] 4 (#$ . 487750)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-change-current\? #[514 "\300\301#\210\207" [puthash "current"] 6 (#$ . 487891)]) #@15 (fn OBJECT) (defalias 'lsp:resource-change-new-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newUri"] 4 (#$ . 488029)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-change-new-uri\? #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 488169)]) #@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 (#$ . 488306)]) #@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 (#$ . 488662)]) #@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 (#$ . 488957)]) #@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 (#$ . 489286)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ResourceOperation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind) nil lsp-keyword->string alist-get ((:kind . :kind)) error "Unknown key: %s. Available keys: %s" symbol-name (:kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 489704)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ResourceOperation--pcase-macroexpander edebug-form-spec nil ResourceOperation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:resource-operation-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 490665)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-operation-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 490801)]) #@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 (#$ . 490934)]) #@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 (#$ . 491321)]) #@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 (#$ . 491647)]) #@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 (#$ . 491957)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SaveOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:include-text\? . :includeText)) error "Unknown key: %s. Available keys: %s" symbol-name (:include-text\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 492408)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SaveOptions--pcase-macroexpander edebug-form-spec nil SaveOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:save-options-include-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "includeText"] 4 (#$ . 493370)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-save-options-include-text\? #[514 "\300\301#\210\207" [puthash "includeText"] 6 (#$ . 493517)]) #@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 (#$ . 493661)]) #@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 (#$ . 494062)]) #@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 (#$ . 494402)]) #@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 (#$ . 494730)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SelectionRange--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range) nil lsp-keyword->string alist-get ((:parent\? . :parent) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:parent\? :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 495205)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SelectionRange--pcase-macroexpander edebug-form-spec nil SelectionRange pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:selection-range-parent\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parent"] 4 (#$ . 496193)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-parent\? #[514 "\300\301#\210\207" [puthash "parent"] 6 (#$ . 496332)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 496468)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 496603)]) #@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 (#$ . 496735)]) #@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 (#$ . 497169)]) #@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 (#$ . 497542)]) #@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 (#$ . 497868)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SelectionRangeCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 498367)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SelectionRangeCapabilities--pcase-macroexpander edebug-form-spec nil SelectionRangeCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:selection-range-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 499398)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 499577)]) #@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 (#$ . 499753)]) #@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 (#$ . 500197)]) #@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 (#$ . 500580)]) #@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 (#$ . 500912)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticHighlightingCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:semantic-highlighting\? . :semanticHighlighting)) error "Unknown key: %s. Available keys: %s" symbol-name (:semantic-highlighting\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 501421)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticHighlightingCapabilities--pcase-macroexpander edebug-form-spec nil SemanticHighlightingCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-capabilities-semantic-highlighting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticHighlighting"] 4 (#$ . 502473)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-capabilities-semantic-highlighting\? #[514 "\300\301#\210\207" [puthash "semanticHighlighting"] 6 (#$ . 502660)]) #@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 (#$ . 502844)]) #@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 (#$ . 503258)]) #@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 (#$ . 503611)]) #@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 (#$ . 503955)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticHighlightingInformation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:line) nil lsp-keyword->string alist-get ((:tokens\? . :tokens) (:line . :line)) error "Unknown key: %s. Available keys: %s" symbol-name (:tokens\? :line) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 504444)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticHighlightingInformation--pcase-macroexpander edebug-form-spec nil SemanticHighlightingInformation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-information-tokens\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tokens"] 4 (#$ . 505479)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-information-tokens\? #[514 "\300\301#\210\207" [puthash "tokens"] 6 (#$ . 505636)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-information-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "line"] 4 (#$ . 505790)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-information-line #[514 "\300\301#\210\207" [puthash "line"] 6 (#$ . 505941)]) #@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 (#$ . 506089)]) #@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 (#$ . 506480)]) #@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 (#$ . 506810)]) #@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 (#$ . 507149)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticHighlightingServerCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:scopes\? . :scopes)) error "Unknown key: %s. Available keys: %s" symbol-name (:scopes\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 507606)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticHighlightingServerCapabilities--pcase-macroexpander edebug-form-spec nil SemanticHighlightingServerCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-server-capabilities-scopes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "scopes"] 4 (#$ . 508632)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-server-capabilities-scopes\? #[514 "\300\301#\210\207" [puthash "scopes"] 6 (#$ . 508797)]) #@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 (#$ . 508959)]) #@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 (#$ . 512260)]) #@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 (#$ . 515500)]) #@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 (#$ . 515818)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ServerCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((: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)) error "Unknown key: %s. Available keys: %s" symbol-name (: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\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 519601)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ServerCapabilities--pcase-macroexpander edebug-form-spec nil ServerCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-call-hierarchy-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "callHierarchyProvider"] 4 (#$ . 522765)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-call-hierarchy-provider\? #[514 "\300\301#\210\207" [puthash "callHierarchyProvider"] 6 (#$ . 522940)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-code-action-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionProvider"] 4 (#$ . 523112)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-code-action-provider\? #[514 "\300\301#\210\207" [puthash "codeActionProvider"] 6 (#$ . 523281)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-code-lens-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeLensProvider"] 4 (#$ . 523447)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-code-lens-provider\? #[514 "\300\301#\210\207" [puthash "codeLensProvider"] 6 (#$ . 523612)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-color-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "colorProvider"] 4 (#$ . 523774)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-color-provider\? #[514 "\300\301#\210\207" [puthash "colorProvider"] 6 (#$ . 523932)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-completion-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completionProvider"] 4 (#$ . 524087)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-completion-provider\? #[514 "\300\301#\210\207" [puthash "completionProvider"] 6 (#$ . 524255)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-declaration-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "declarationProvider"] 4 (#$ . 524420)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-declaration-provider\? #[514 "\300\301#\210\207" [puthash "declarationProvider"] 6 (#$ . 524590)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-definition-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "definitionProvider"] 4 (#$ . 524757)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-definition-provider\? #[514 "\300\301#\210\207" [puthash "definitionProvider"] 6 (#$ . 524925)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentFormattingProvider"] 4 (#$ . 525090)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentFormattingProvider"] 6 (#$ . 525275)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-highlight-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentHighlightProvider"] 4 (#$ . 525457)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-highlight-provider\? #[514 "\300\301#\210\207" [puthash "documentHighlightProvider"] 6 (#$ . 525640)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-link-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentLinkProvider"] 4 (#$ . 525820)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-link-provider\? #[514 "\300\301#\210\207" [puthash "documentLinkProvider"] 6 (#$ . 525993)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-on-type-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentOnTypeFormattingProvider"] 4 (#$ . 526163)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-on-type-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentOnTypeFormattingProvider"] 6 (#$ . 526362)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-range-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentRangeFormattingProvider"] 4 (#$ . 526558)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-range-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentRangeFormattingProvider"] 6 (#$ . 526754)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-symbol-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSymbolProvider"] 4 (#$ . 526947)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-symbol-provider\? #[514 "\300\301#\210\207" [puthash "documentSymbolProvider"] 6 (#$ . 527124)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-execute-command-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executeCommandProvider"] 4 (#$ . 527298)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-execute-command-provider\? #[514 "\300\301#\210\207" [puthash "executeCommandProvider"] 6 (#$ . 527475)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-experimental\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "experimental"] 4 (#$ . 527649)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-experimental\? #[514 "\300\301#\210\207" [puthash "experimental"] 6 (#$ . 527804)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-folding-range-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "foldingRangeProvider"] 4 (#$ . 527956)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-folding-range-provider\? #[514 "\300\301#\210\207" [puthash "foldingRangeProvider"] 6 (#$ . 528129)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-hover-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hoverProvider"] 4 (#$ . 528299)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-hover-provider\? #[514 "\300\301#\210\207" [puthash "hoverProvider"] 6 (#$ . 528457)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-implementation-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "implementationProvider"] 4 (#$ . 528612)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-implementation-provider\? #[514 "\300\301#\210\207" [puthash "implementationProvider"] 6 (#$ . 528788)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-references-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "referencesProvider"] 4 (#$ . 528961)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-references-provider\? #[514 "\300\301#\210\207" [puthash "referencesProvider"] 6 (#$ . 529129)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-rename-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "renameProvider"] 4 (#$ . 529294)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-rename-provider\? #[514 "\300\301#\210\207" [puthash "renameProvider"] 6 (#$ . 529454)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-selection-range-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRangeProvider"] 4 (#$ . 529611)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-selection-range-provider\? #[514 "\300\301#\210\207" [puthash "selectionRangeProvider"] 6 (#$ . 529788)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-semantic-highlighting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticHighlighting"] 4 (#$ . 529962)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-semantic-highlighting\? #[514 "\300\301#\210\207" [puthash "semanticHighlighting"] 6 (#$ . 530134)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-signature-help-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureHelpProvider"] 4 (#$ . 530303)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-signature-help-provider\? #[514 "\300\301#\210\207" [puthash "signatureHelpProvider"] 6 (#$ . 530478)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-text-document-sync\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocumentSync"] 4 (#$ . 530650)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-text-document-sync\? #[514 "\300\301#\210\207" [puthash "textDocumentSync"] 6 (#$ . 530815)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-type-definition-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeDefinitionProvider"] 4 (#$ . 530977)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-type-definition-provider\? #[514 "\300\301#\210\207" [puthash "typeDefinitionProvider"] 6 (#$ . 531154)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-type-hierarchy-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeHierarchyProvider"] 4 (#$ . 531328)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-type-hierarchy-provider\? #[514 "\300\301#\210\207" [puthash "typeHierarchyProvider"] 6 (#$ . 531503)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-workspace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspace"] 4 (#$ . 531675)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-workspace\? #[514 "\300\301#\210\207" [puthash "workspace"] 6 (#$ . 531824)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-workspace-symbol-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceSymbolProvider"] 4 (#$ . 531970)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-workspace-symbol-provider\? #[514 "\300\301#\210\207" [puthash "workspaceSymbolProvider"] 6 (#$ . 532149)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-semantic-tokens-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticTokensProvider"] 4 (#$ . 532325)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-semantic-tokens-provider\? #[514 "\300\301#\210\207" [puthash "semanticTokensProvider"] 6 (#$ . 532502)]) #@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 (#$ . 532676)]) #@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 (#$ . 533073)]) #@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 (#$ . 533409)]) #@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 (#$ . 533731)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ServerInfo--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:name) nil lsp-keyword->string alist-get ((:version\? . :version) (:name . :name)) error "Unknown key: %s. Available keys: %s" symbol-name (:version\? :name) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 534202)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ServerInfo--pcase-macroexpander edebug-form-spec nil ServerInfo pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:server-info-version\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 535177)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-info-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 535314)]) #@15 (fn OBJECT) (defalias 'lsp:server-info-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 535448)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-info-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 535577)]) #@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 (#$ . 535703)]) #@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 (#$ . 536243)]) #@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 (#$ . 536722)]) #@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 (#$ . 537059)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SignatureHelp--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:signatures) nil lsp-keyword->string alist-get ((:active-parameter\? . :activeParameter) (:active-signature\? . :activeSignature) (:signatures . :signatures)) error "Unknown key: %s. Available keys: %s" symbol-name (:active-parameter\? :active-signature\? :signatures) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 537688)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SignatureHelp--pcase-macroexpander edebug-form-spec nil SignatureHelp pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:signature-help-active-parameter\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "activeParameter"] 4 (#$ . 538783)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-active-parameter\? #[514 "\300\301#\210\207" [puthash "activeParameter"] 6 (#$ . 538940)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-active-signature\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "activeSignature"] 4 (#$ . 539094)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-active-signature\? #[514 "\300\301#\210\207" [puthash "activeSignature"] 6 (#$ . 539251)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-signatures #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatures"] 4 (#$ . 539405)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-signatures #[514 "\300\301#\210\207" [puthash "signatures"] 6 (#$ . 539549)]) #@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 (#$ . 539690)]) #@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 (#$ . 540303)]) #@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 (#$ . 540855)]) #@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 (#$ . 541181)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SignatureHelpCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:context-support\? . :contextSupport) (:dynamic-registration\? . :dynamicRegistration) (:signature-information\? . :signatureInformation)) error "Unknown key: %s. Available keys: %s" symbol-name (:context-support\? :dynamic-registration\? :signature-information\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 541886)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SignatureHelpCapabilities--pcase-macroexpander edebug-form-spec nil SignatureHelpCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-context-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contextSupport"] 4 (#$ . 543048)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-context-support\? #[514 "\300\301#\210\207" [puthash "contextSupport"] 6 (#$ . 543216)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 543381)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 543559)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-signature-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureInformation"] 4 (#$ . 543734)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-signature-information\? #[514 "\300\301#\210\207" [puthash "signatureInformation"] 6 (#$ . 543914)]) #@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 (#$ . 544091)]) #@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 (#$ . 544727)]) #@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 (#$ . 545302)]) #@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 (#$ . 545677)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SignatureHelpContext--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:triggerKind :isRetrigger) nil lsp-keyword->string alist-get ((:active-signature-help\? . :activeSignatureHelp) (:trigger-character\? . :triggerCharacter) (:trigger-kind . :triggerKind) (:is-retrigger . :isRetrigger)) error "Unknown key: %s. Available keys: %s" symbol-name (:active-signature-help\? :trigger-character\? :trigger-kind :is-retrigger) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 546415)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SignatureHelpContext--pcase-macroexpander edebug-form-spec nil SignatureHelpContext pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-active-signature-help\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "activeSignatureHelp"] 4 (#$ . 547612)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-active-signature-help\? #[514 "\300\301#\210\207" [puthash "activeSignatureHelp"] 6 (#$ . 547786)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-trigger-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacter"] 4 (#$ . 547957)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-trigger-character\? #[514 "\300\301#\210\207" [puthash "triggerCharacter"] 6 (#$ . 548124)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerKind"] 4 (#$ . 548288)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 548443)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-is-retrigger #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isRetrigger"] 4 (#$ . 548595)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-is-retrigger #[514 "\300\301#\210\207" [puthash "isRetrigger"] 6 (#$ . 548750)]) #@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 (#$ . 548902)]) #@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 (#$ . 549421)]) #@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 (#$ . 549879)]) #@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 (#$ . 550199)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SignatureHelpOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:retrigger-characters\? . :retriggerCharacters) (:trigger-characters\? . :triggerCharacters)) error "Unknown key: %s. Available keys: %s" symbol-name (:retrigger-characters\? :trigger-characters\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 550795)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SignatureHelpOptions--pcase-macroexpander edebug-form-spec nil SignatureHelpOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:signature-help-options-retrigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "retriggerCharacters"] 4 (#$ . 551875)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-options-retrigger-characters\? #[514 "\300\301#\210\207" [puthash "retriggerCharacters"] 6 (#$ . 552048)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 552218)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 552387)]) #@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 (#$ . 552553)]) #@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 (#$ . 553046)]) #@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 (#$ . 553478)]) #@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 (#$ . 553812)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SignatureInformation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:label) nil lsp-keyword->string alist-get ((:documentation\? . :documentation) (:parameters\? . :parameters) (:label . :label)) error "Unknown key: %s. Available keys: %s" symbol-name (:documentation\? :parameters\? :label) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 554394)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SignatureInformation--pcase-macroexpander edebug-form-spec nil SignatureInformation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:signature-information-documentation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentation"] 4 (#$ . 555465)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 555624)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-parameters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parameters"] 4 (#$ . 555780)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-parameters\? #[514 "\300\301#\210\207" [puthash "parameters"] 6 (#$ . 555933)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 556083)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 556224)]) #@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 (#$ . 556362)]) #@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 (#$ . 556905)]) #@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 (#$ . 557387)]) #@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 (#$ . 557719)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SignatureInformationCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:documentation-format\? . :documentationFormat) (:parameter-information\? . :parameterInformation)) error "Unknown key: %s. Available keys: %s" symbol-name (:documentation-format\? :parameter-information\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 558339)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SignatureInformationCapabilities--pcase-macroexpander edebug-form-spec nil SignatureInformationCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:signature-information-capabilities-documentation-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentationFormat"] 4 (#$ . 559464)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-capabilities-documentation-format\? #[514 "\300\301#\210\207" [puthash "documentationFormat"] 6 (#$ . 559649)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-capabilities-parameter-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parameterInformation"] 4 (#$ . 559831)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-capabilities-parameter-information\? #[514 "\300\301#\210\207" [puthash "parameterInformation"] 6 (#$ . 560018)]) #@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 (#$ . 560202)]) #@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 (#$ . 560651)]) #@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 (#$ . 561039)]) #@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 (#$ . 561364)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'StaticRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:id\? . :id)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :id\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 561890)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop StaticRegistrationOptions--pcase-macroexpander edebug-form-spec nil StaticRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:static-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 562929)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-static-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 563101)]) #@15 (fn OBJECT) (defalias 'lsp:static-registration-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 563270)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-static-registration-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 563413)]) #@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 (#$ . 563553)]) #@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 (#$ . 564042)]) #@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 (#$ . 564470)]) #@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 (#$ . 564787)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SymbolCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:symbol-kind\? . :symbolKind)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :symbol-kind\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 565352)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SymbolCapabilities--pcase-macroexpander edebug-form-spec nil SymbolCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:symbol-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 566405)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 566575)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-capabilities-symbol-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbolKind"] 4 (#$ . 566742)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-capabilities-symbol-kind\? #[514 "\300\301#\210\207" [puthash "symbolKind"] 6 (#$ . 566894)]) #@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 (#$ . 567043)]) #@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 (#$ . 567429)]) #@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 (#$ . 567754)]) #@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 (#$ . 568076)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SymbolKindCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:value-set\? . :valueSet)) error "Unknown key: %s. Available keys: %s" symbol-name (:value-set\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 568527)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SymbolKindCapabilities--pcase-macroexpander edebug-form-spec nil SymbolKindCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:symbol-kind-capabilities-value-set\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "valueSet"] 4 (#$ . 569513)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-kind-capabilities-value-set\? #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 569666)]) #@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 (#$ . 569816)]) #@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 (#$ . 570450)]) #@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 (#$ . 571023)]) #@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 (#$ . 571350)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SynchronizationCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:did-save\? . :didSave) (:dynamic-registration\? . :dynamicRegistration) (:will-save\? . :willSave) (:will-save-wait-until\? . :willSaveWaitUntil)) error "Unknown key: %s. Available keys: %s" symbol-name (:did-save\? :dynamic-registration\? :will-save\? :will-save-wait-until\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 572089)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SynchronizationCapabilities--pcase-macroexpander edebug-form-spec nil SynchronizationCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-did-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "didSave"] 4 (#$ . 573271)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-did-save\? #[514 "\300\301#\210\207" [puthash "didSave"] 6 (#$ . 573426)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 573578)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 573757)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-will-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSave"] 4 (#$ . 573933)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-will-save\? #[514 "\300\301#\210\207" [puthash "willSave"] 6 (#$ . 574090)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-will-save-wait-until\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSaveWaitUntil"] 4 (#$ . 574244)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-will-save-wait-until\? #[514 "\300\301#\210\207" [puthash "willSaveWaitUntil"] 6 (#$ . 574421)]) #@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 (#$ . 574595)]) #@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 (#$ . 576793)]) #@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 (#$ . 578930)]) #@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 (#$ . 579262)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentClientCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((: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)) error "Unknown key: %s. Available keys: %s" symbol-name (: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\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 581883)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentClientCapabilities--pcase-macroexpander edebug-form-spec nil TextDocumentClientCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-call-hierarchy\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "callHierarchy"] 4 (#$ . 584252)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-call-hierarchy\? #[514 "\300\301#\210\207" [puthash "callHierarchy"] 6 (#$ . 584424)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-code-action\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeAction"] 4 (#$ . 584593)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-code-action\? #[514 "\300\301#\210\207" [puthash "codeAction"] 6 (#$ . 584759)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-code-lens\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeLens"] 4 (#$ . 584922)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-code-lens\? #[514 "\300\301#\210\207" [puthash "codeLens"] 6 (#$ . 585084)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-color-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "colorProvider"] 4 (#$ . 585243)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-color-provider\? #[514 "\300\301#\210\207" [puthash "colorProvider"] 6 (#$ . 585415)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-completion\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completion"] 4 (#$ . 585584)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-completion\? #[514 "\300\301#\210\207" [puthash "completion"] 6 (#$ . 585749)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-declaration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "declaration"] 4 (#$ . 585911)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-declaration\? #[514 "\300\301#\210\207" [puthash "declaration"] 6 (#$ . 586078)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-definition\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "definition"] 4 (#$ . 586242)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-definition\? #[514 "\300\301#\210\207" [puthash "definition"] 6 (#$ . 586407)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-highlight\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentHighlight"] 4 (#$ . 586569)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-highlight\? #[514 "\300\301#\210\207" [puthash "documentHighlight"] 6 (#$ . 586749)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-link\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentLink"] 4 (#$ . 586926)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-link\? #[514 "\300\301#\210\207" [puthash "documentLink"] 6 (#$ . 587096)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-symbol\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSymbol"] 4 (#$ . 587263)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-symbol\? #[514 "\300\301#\210\207" [puthash "documentSymbol"] 6 (#$ . 587437)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-folding-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "foldingRange"] 4 (#$ . 587608)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-folding-range\? #[514 "\300\301#\210\207" [puthash "foldingRange"] 6 (#$ . 587778)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "formatting"] 4 (#$ . 587945)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-formatting\? #[514 "\300\301#\210\207" [puthash "formatting"] 6 (#$ . 588110)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-hover\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hover"] 4 (#$ . 588272)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-hover\? #[514 "\300\301#\210\207" [puthash "hover"] 6 (#$ . 588427)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-implementation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "implementation"] 4 (#$ . 588579)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-implementation\? #[514 "\300\301#\210\207" [puthash "implementation"] 6 (#$ . 588752)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-on-type-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "onTypeFormatting"] 4 (#$ . 588922)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-on-type-formatting\? #[514 "\300\301#\210\207" [puthash "onTypeFormatting"] 6 (#$ . 589101)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-publish-diagnostics\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "publishDiagnostics"] 4 (#$ . 589277)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-publish-diagnostics\? #[514 "\300\301#\210\207" [puthash "publishDiagnostics"] 6 (#$ . 589459)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-range-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeFormatting"] 4 (#$ . 589638)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-range-formatting\? #[514 "\300\301#\210\207" [puthash "rangeFormatting"] 6 (#$ . 589814)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-references\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "references"] 4 (#$ . 589987)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-references\? #[514 "\300\301#\210\207" [puthash "references"] 6 (#$ . 590152)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-rename\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rename"] 4 (#$ . 590314)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-rename\? #[514 "\300\301#\210\207" [puthash "rename"] 6 (#$ . 590471)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-selection-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 590625)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-selection-range\? #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 590799)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-semantic-highlighting-capabilities\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticHighlightingCapabilities"] 4 (#$ . 590970)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-semantic-highlighting-capabilities\? #[514 "\300\301#\210\207" [puthash "semanticHighlightingCapabilities"] 6 (#$ . 591181)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-signature-help\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureHelp"] 4 (#$ . 591389)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-signature-help\? #[514 "\300\301#\210\207" [puthash "signatureHelp"] 6 (#$ . 591561)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-synchronization\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "synchronization"] 4 (#$ . 591730)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-synchronization\? #[514 "\300\301#\210\207" [puthash "synchronization"] 6 (#$ . 591905)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-type-definition\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeDefinition"] 4 (#$ . 592077)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-type-definition\? #[514 "\300\301#\210\207" [puthash "typeDefinition"] 6 (#$ . 592251)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-type-hierarchy-capabilities\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeHierarchyCapabilities"] 4 (#$ . 592422)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-type-hierarchy-capabilities\? #[514 "\300\301#\210\207" [puthash "typeHierarchyCapabilities"] 6 (#$ . 592619)]) #@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 (#$ . 592813)]) #@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 (#$ . 593287)]) #@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 (#$ . 593700)]) #@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 (#$ . 594045)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentContentChangeEvent--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:text) nil lsp-keyword->string alist-get ((:range\? . :range) (:range-length\? . :rangeLength) (:text . :text)) error "Unknown key: %s. Available keys: %s" symbol-name (:range\? :range-length\? :text) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 594611)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentContentChangeEvent--pcase-macroexpander edebug-form-spec nil TextDocumentContentChangeEvent pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 595689)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 595845)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-range-length\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeLength"] 4 (#$ . 595998)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-range-length\? #[514 "\300\301#\210\207" [puthash "rangeLength"] 6 (#$ . 596167)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 596333)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 596485)]) #@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 (#$ . 596634)]) #@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 (#$ . 597058)]) #@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 (#$ . 597421)]) #@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 (#$ . 597781)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentEdit--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :edits) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:edits . :edits)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :edits) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 598278)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentEdit--pcase-macroexpander edebug-form-spec nil TextDocumentEdit pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-edit-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 599302)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-edit-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 599455)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-edit-edits #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edits"] 4 (#$ . 599605)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-edit-edits #[514 "\300\301#\210\207" [puthash "edits"] 6 (#$ . 599743)]) #@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 (#$ . 599878)]) #@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 (#$ . 600235)]) #@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 (#$ . 600531)]) #@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 (#$ . 600864)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentIdentifier--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:uri) nil lsp-keyword->string alist-get ((:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 601284)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentIdentifier--pcase-macroexpander edebug-form-spec nil TextDocumentIdentifier pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-identifier-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 602256)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-identifier-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 602396)]) #@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 (#$ . 602533)]) #@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 (#$ . 603009)]) #@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 (#$ . 603424)]) #@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 (#$ . 603808)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentItem--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:languageId :text :uri :version) nil lsp-keyword->string alist-get ((:language-id . :languageId) (:text . :text) (:uri . :uri) (:version . :version)) error "Unknown key: %s. Available keys: %s" symbol-name (:language-id :text :uri :version) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 604382)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentItem--pcase-macroexpander edebug-form-spec nil TextDocumentItem pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-language-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "languageId"] 4 (#$ . 605458)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-language-id #[514 "\300\301#\210\207" [puthash "languageId"] 6 (#$ . 605607)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 605753)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 605889)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 606022)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 606156)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-version #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 606287)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-version #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 606429)]) #@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 (#$ . 606568)]) #@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 (#$ . 607185)]) #@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 (#$ . 607741)]) #@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 (#$ . 608066)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentSyncOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:change\? . :change) (:open-close\? . :openClose) (:save\? . :save) (:will-save\? . :willSave) (:will-save-wait-until\? . :willSaveWaitUntil)) error "Unknown key: %s. Available keys: %s" symbol-name (:change\? :open-close\? :save\? :will-save\? :will-save-wait-until\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 608805)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentSyncOptions--pcase-macroexpander edebug-form-spec nil TextDocumentSyncOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-change\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "change"] 4 (#$ . 609966)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-change\? #[514 "\300\301#\210\207" [puthash "change"] 6 (#$ . 610116)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-open-close\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "openClose"] 4 (#$ . 610263)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-open-close\? #[514 "\300\301#\210\207" [puthash "openClose"] 6 (#$ . 610420)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "save"] 4 (#$ . 610574)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-save\? #[514 "\300\301#\210\207" [puthash "save"] 6 (#$ . 610720)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-will-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSave"] 4 (#$ . 610863)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-will-save\? #[514 "\300\301#\210\207" [puthash "willSave"] 6 (#$ . 611018)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-will-save-wait-until\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSaveWaitUntil"] 4 (#$ . 611170)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-will-save-wait-until\? #[514 "\300\301#\210\207" [puthash "willSaveWaitUntil"] 6 (#$ . 611345)]) #@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 (#$ . 611517)]) #@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 (#$ . 611913)]) #@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 (#$ . 612248)]) #@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 (#$ . 612589)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextEdit--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:newText :range) nil lsp-keyword->string alist-get ((:new-text . :newText) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:new-text :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 613057)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextEdit--pcase-macroexpander edebug-form-spec nil TextEdit pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newText"] 4 (#$ . 614037)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 614171)]) #@15 (fn OBJECT) (defalias 'lsp:text-edit-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 614302)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-edit-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 614431)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InsertReplaceEdit #[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 :insert :replace) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:new-text :insert :replace) gethash 1 nil assoc ((:new-text . :newText) (:insert . :insert) (:replace . :replace))] 7 (#$ . 614557)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&InsertReplaceEdit\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:new-text :insert :replace) error "Unknown key: %s. Available keys: %s" (:new-text :insert :replace) when ht\? gethash symbol-name assoc ((:new-text . :newText) (:insert . :insert) (:replace . :replace)) 1 nil] 9 (#$ . 615006)]) #@15 (fn OBJECT) (defalias 'lsp-insert-replace-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" "insert" "replace") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:newText :insert :replace)] 6 (#$ . 615394)]) #@67 (fn &rest PLIST &key NEW-TEXT INSERT REPLACE &allow-other-keys) (defalias 'lsp-make-insert-replace-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 :new-text :insert :replace 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) (:insert . :insert) (:replace . :replace))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 615766)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'InsertReplaceEdit--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:newText :insert :replace) nil lsp-keyword->string alist-get ((:new-text . :newText) (:insert . :insert) (:replace . :replace)) error "Unknown key: %s. Available keys: %s" symbol-name (:new-text :insert :replace) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 616301)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop InsertReplaceEdit--pcase-macroexpander edebug-form-spec nil InsertReplaceEdit pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:insert-replace-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newText"] 4 (#$ . 617352)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 617496)]) #@15 (fn OBJECT) (defalias 'lsp:insert-replace-edit-insert #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insert"] 4 (#$ . 617637)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-insert #[514 "\300\301#\210\207" [puthash "insert"] 6 (#$ . 617778)]) #@15 (fn OBJECT) (defalias 'lsp:insert-replace-edit-replace #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "replace"] 4 (#$ . 617916)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-replace #[514 "\300\301#\210\207" [puthash "replace"] 6 (#$ . 618059)]) #@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 (#$ . 618199)]) #@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 (#$ . 618690)]) #@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 (#$ . 619120)]) #@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 (#$ . 619469)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SnippetTextEdit--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:newText :range) nil lsp-keyword->string alist-get ((:insert-text-format\? . :insertTextFormat) (:new-text . :newText) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:insert-text-format\? :new-text :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 620048)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SnippetTextEdit--pcase-macroexpander edebug-form-spec nil SnippetTextEdit pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-insert-text-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertTextFormat"] 4 (#$ . 621115)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-insert-text-format\? #[514 "\300\301#\210\207" [puthash "insertTextFormat"] 6 (#$ . 621278)]) #@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newText"] 4 (#$ . 621438)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 621580)]) #@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 621719)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 621856)]) #@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 (#$ . 621990)]) #@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 (#$ . 622491)]) #@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 (#$ . 622931)]) #@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 (#$ . 623257)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TypeDefinitionCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration) (:link-support\? . :linkSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\? :link-support\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 623835)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TypeDefinitionCapabilities--pcase-macroexpander edebug-form-spec nil TypeDefinitionCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:type-definition-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 624915)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 625094)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 625270)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 625433)]) #@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 (#$ . 625593)]) #@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 (#$ . 626026)]) #@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 (#$ . 626398)]) #@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 (#$ . 626723)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TypeHierarchyCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 627221)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TypeHierarchyCapabilities--pcase-macroexpander edebug-form-spec nil TypeHierarchyCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 628249)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 628427)]) #@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 (#$ . 628602)]) #@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 (#$ . 629345)]) #@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 (#$ . 630027)]) #@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 (#$ . 630430)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TypeHierarchyItem--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :name :range :selectionRange :uri) nil lsp-keyword->string alist-get ((:children\? . :children) (:data\? . :data) (:deprecated\? . :deprecated) (:detail\? . :detail) (:parents\? . :parents) (:kind . :kind) (:name . :name) (:range . :range) (:selection-range . :selectionRange) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:children\? :data\? :deprecated\? :detail\? :parents\? :kind :name :range :selection-range :uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 631359)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TypeHierarchyItem--pcase-macroexpander edebug-form-spec nil TypeHierarchyItem pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-children\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "children"] 4 (#$ . 632649)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-children\? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 632796)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 632940)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 633079)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 633215)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 633366)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 633514)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 633657)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-parents\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parents"] 4 (#$ . 633797)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-parents\? #[514 "\300\301#\210\207" [puthash "parents"] 6 (#$ . 633942)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 634084)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 634221)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 634355)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 634492)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 634626)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 634765)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 634901)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 635059)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 635214)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 635349)]) #@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 (#$ . 635481)]) #@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 (#$ . 635864)]) #@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 (#$ . 636186)]) #@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 (#$ . 636524)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Unregistration--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:method :id) nil lsp-keyword->string alist-get ((:method . :method) (:id . :id)) error "Unknown key: %s. Available keys: %s" symbol-name (:method :id) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 636978)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Unregistration--pcase-macroexpander edebug-form-spec nil Unregistration pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:unregistration-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 637958)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 638094)]) #@15 (fn OBJECT) (defalias 'lsp:unregistration-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 638227)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 638355)]) #@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 (#$ . 638480)]) #@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 (#$ . 638894)]) #@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 (#$ . 639247)]) #@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 (#$ . 639590)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'VersionedTextDocumentIdentifier--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:uri) nil lsp-keyword->string alist-get ((:version\? . :version) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:version\? :uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 640080)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop VersionedTextDocumentIdentifier--pcase-macroexpander edebug-form-spec nil VersionedTextDocumentIdentifier pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:versioned-text-document-identifier-version\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 641114)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-versioned-text-document-identifier-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 641274)]) #@15 (fn OBJECT) (defalias 'lsp:versioned-text-document-identifier-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 641431)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-versioned-text-document-identifier-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 641581)]) #@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 (#$ . 641728)]) #@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 (#$ . 642695)]) #@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 (#$ . 643601)]) #@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 (#$ . 643929)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkspaceClientCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((: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)) error "Unknown key: %s. Available keys: %s" symbol-name (:apply-edit\? :configuration\? :did-change-configuration\? :did-change-watched-files\? :execute-command\? :symbol\? :workspace-edit\? :workspace-folders\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 645061)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkspaceClientCapabilities--pcase-macroexpander edebug-form-spec nil WorkspaceClientCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-apply-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "applyEdit"] 4 (#$ . 646494)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-apply-edit\? #[514 "\300\301#\210\207" [puthash "applyEdit"] 6 (#$ . 646654)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-configuration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "configuration"] 4 (#$ . 646811)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-configuration\? #[514 "\300\301#\210\207" [puthash "configuration"] 6 (#$ . 646978)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-did-change-configuration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "didChangeConfiguration"] 4 (#$ . 647142)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-did-change-configuration\? #[514 "\300\301#\210\207" [puthash "didChangeConfiguration"] 6 (#$ . 647329)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-did-change-watched-files\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "didChangeWatchedFiles"] 4 (#$ . 647513)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-did-change-watched-files\? #[514 "\300\301#\210\207" [puthash "didChangeWatchedFiles"] 6 (#$ . 647699)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-execute-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executeCommand"] 4 (#$ . 647882)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-execute-command\? #[514 "\300\301#\210\207" [puthash "executeCommand"] 6 (#$ . 648052)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-symbol\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbol"] 4 (#$ . 648219)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-symbol\? #[514 "\300\301#\210\207" [puthash "symbol"] 6 (#$ . 648372)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-workspace-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceEdit"] 4 (#$ . 648522)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-workspace-edit\? #[514 "\300\301#\210\207" [puthash "workspaceEdit"] 6 (#$ . 648690)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-workspace-folders\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceFolders"] 4 (#$ . 648855)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 649029)]) #@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 (#$ . 649200)]) #@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 (#$ . 649734)]) #@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 (#$ . 650207)]) #@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 (#$ . 650519)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkspaceEdit--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:changes\? . :changes) (:document-changes\? . :documentChanges) (:resource-changes\? . :resourceChanges)) error "Unknown key: %s. Available keys: %s" symbol-name (:changes\? :document-changes\? :resource-changes\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 651144)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkspaceEdit--pcase-macroexpander edebug-form-spec nil WorkspaceEdit pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "changes"] 4 (#$ . 652220)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-changes\? #[514 "\300\301#\210\207" [puthash "changes"] 6 (#$ . 652360)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-document-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentChanges"] 4 (#$ . 652497)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-document-changes\? #[514 "\300\301#\210\207" [puthash "documentChanges"] 6 (#$ . 652654)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-resource-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceChanges"] 4 (#$ . 652808)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-resource-changes\? #[514 "\300\301#\210\207" [puthash "resourceChanges"] 6 (#$ . 652965)]) #@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 (#$ . 653119)]) #@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 (#$ . 653793)]) #@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 (#$ . 654406)]) #@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 (#$ . 654732)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkspaceEditCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-changes\? . :documentChanges) (:failure-handling\? . :failureHandling) (:resource-changes\? . :resourceChanges) (:resource-operations\? . :resourceOperations)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-changes\? :failure-handling\? :resource-changes\? :resource-operations\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 655512)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkspaceEditCapabilities--pcase-macroexpander edebug-form-spec nil WorkspaceEditCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-document-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentChanges"] 4 (#$ . 656720)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-document-changes\? #[514 "\300\301#\210\207" [puthash "documentChanges"] 6 (#$ . 656890)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-failure-handling\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "failureHandling"] 4 (#$ . 657057)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-failure-handling\? #[514 "\300\301#\210\207" [puthash "failureHandling"] 6 (#$ . 657227)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-resource-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceChanges"] 4 (#$ . 657394)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-resource-changes\? #[514 "\300\301#\210\207" [puthash "resourceChanges"] 6 (#$ . 657564)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-resource-operations\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceOperations"] 4 (#$ . 657731)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-resource-operations\? #[514 "\300\301#\210\207" [puthash "resourceOperations"] 6 (#$ . 657907)]) #@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" [(:uri :name) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri :name) gethash 1 nil assoc ((:uri . :uri) (:name . :name))] 7 (#$ . 658080)]) #@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" [(:uri :name) error "Unknown key: %s. Available keys: %s" (:uri :name) when ht\? gethash symbol-name assoc ((:uri . :uri) (:name . :name)) 1 nil] 9 (#$ . 658460)]) #@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" "name") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri :name)] 6 (#$ . 658779)]) #@52 (fn &rest PLIST &key URI NAME &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 :uri :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 ((:uri . :uri) (:name . :name))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 659117)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkspaceFolder--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:uri :name) nil lsp-keyword->string alist-get ((:uri . :uri) (:name . :name)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri :name) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 659569)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkspaceFolder--pcase-macroexpander edebug-form-spec nil WorkspaceFolder pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:workspace-folder-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 660548)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folder-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 660680)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folder-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 660809)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folder-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 660943)]) #@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 (#$ . 661074)]) #@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 (#$ . 661486)]) #@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 (#$ . 661837)]) #@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 (#$ . 662199)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkspaceFoldersChangeEvent--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:removed :added) nil lsp-keyword->string alist-get ((:removed . :removed) (:added . :added)) error "Unknown key: %s. Available keys: %s" symbol-name (:removed :added) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 662685)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkspaceFoldersChangeEvent--pcase-macroexpander edebug-form-spec nil WorkspaceFoldersChangeEvent pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-change-event-removed #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "removed"] 4 (#$ . 663720)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-change-event-removed #[514 "\300\301#\210\207" [puthash "removed"] 6 (#$ . 663874)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-change-event-added #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "added"] 4 (#$ . 664025)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-change-event-added #[514 "\300\301#\210\207" [puthash "added"] 6 (#$ . 664175)]) #@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 (#$ . 664322)]) #@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 (#$ . 664809)]) #@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 (#$ . 665235)]) #@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 (#$ . 665558)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkspaceFoldersOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:change-notifications\? . :changeNotifications) (:supported\? . :supported)) error "Unknown key: %s. Available keys: %s" symbol-name (:change-notifications\? :supported\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 666122)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkspaceFoldersOptions--pcase-macroexpander edebug-form-spec nil WorkspaceFoldersOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-options-change-notifications\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "changeNotifications"] 4 (#$ . 667185)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-options-change-notifications\? #[514 "\300\301#\210\207" [puthash "changeNotifications"] 6 (#$ . 667361)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-options-supported\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "supported"] 4 (#$ . 667534)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-options-supported\? #[514 "\300\301#\210\207" [puthash "supported"] 6 (#$ . 667689)]) #@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 (#$ . 667841)]) #@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 (#$ . 668264)]) #@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 (#$ . 668626)]) #@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 (#$ . 668953)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkspaceServerCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:workspace-folders\? . :workspaceFolders)) error "Unknown key: %s. Available keys: %s" symbol-name (:workspace-folders\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 669441)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkspaceServerCapabilities--pcase-macroexpander edebug-form-spec nil WorkspaceServerCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:workspace-server-capabilities-workspace-folders\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceFolders"] 4 (#$ . 670466)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-server-capabilities-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 670640)]) #@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 (#$ . 670811)]) #@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 (#$ . 671214)]) #@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 (#$ . 671556)]) #@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 (#$ . 671894)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ApplyWorkspaceEditParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:edit) nil lsp-keyword->string alist-get ((:label\? . :label) (:edit . :edit)) error "Unknown key: %s. Available keys: %s" symbol-name (:label\? :edit) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 672373)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ApplyWorkspaceEditParams--pcase-macroexpander edebug-form-spec nil ApplyWorkspaceEditParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-params-label\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 673384)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-params-label\? #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 673533)]) #@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-params-edit #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edit"] 4 (#$ . 673679)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-params-edit #[514 "\300\301#\210\207" [puthash "edit"] 6 (#$ . 673824)]) #@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 (#$ . 673966)]) #@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 (#$ . 674343)]) #@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 (#$ . 674659)]) #@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 (#$ . 675005)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ApplyWorkspaceEditResponse--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:applied) nil lsp-keyword->string alist-get ((:applied . :applied)) error "Unknown key: %s. Available keys: %s" symbol-name (:applied) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 675446)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ApplyWorkspaceEditResponse--pcase-macroexpander edebug-form-spec nil ApplyWorkspaceEditResponse pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-response-applied #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "applied"] 4 (#$ . 676446)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-response-applied #[514 "\300\301#\210\207" [puthash "applied"] 6 (#$ . 676599)]) #@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 (#$ . 676749)]) #@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 (#$ . 677170)]) #@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 (#$ . 677530)]) #@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 (#$ . 677894)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CallHierarchyIncomingCall--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:from :fromRanges) nil lsp-keyword->string alist-get ((:from . :from) (:from-ranges . :fromRanges)) error "Unknown key: %s. Available keys: %s" symbol-name (:from :from-ranges) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 678389)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CallHierarchyIncomingCall--pcase-macroexpander edebug-form-spec nil CallHierarchyIncomingCall pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-call-from #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "from"] 4 (#$ . 679428)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-call-from #[514 "\300\301#\210\207" [puthash "from"] 6 (#$ . 679574)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-call-from-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "fromRanges"] 4 (#$ . 679717)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-call-from-ranges #[514 "\300\301#\210\207" [puthash "fromRanges"] 6 (#$ . 679876)]) #@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 (#$ . 680032)]) #@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 (#$ . 680403)]) #@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 (#$ . 680713)]) #@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 (#$ . 681060)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CallHierarchyIncomingCallsParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:item) nil lsp-keyword->string alist-get ((:item . :item)) error "Unknown key: %s. Available keys: %s" symbol-name (:item) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 681496)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CallHierarchyIncomingCallsParams--pcase-macroexpander edebug-form-spec nil CallHierarchyIncomingCallsParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-calls-params-item #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "item"] 4 (#$ . 682502)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-calls-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 682656)]) #@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 (#$ . 682807)]) #@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 (#$ . 683220)]) #@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 (#$ . 683572)]) #@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 (#$ . 683932)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CallHierarchyOutgoingCall--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:to :fromRanges) nil lsp-keyword->string alist-get ((:to . :to) (:from-ranges . :fromRanges)) error "Unknown key: %s. Available keys: %s" symbol-name (:to :from-ranges) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 684419)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CallHierarchyOutgoingCall--pcase-macroexpander edebug-form-spec nil CallHierarchyOutgoingCall pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-call-to #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "to"] 4 (#$ . 685450)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-call-to #[514 "\300\301#\210\207" [puthash "to"] 6 (#$ . 685592)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-call-from-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "fromRanges"] 4 (#$ . 685731)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-call-from-ranges #[514 "\300\301#\210\207" [puthash "fromRanges"] 6 (#$ . 685890)]) #@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 (#$ . 686046)]) #@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 (#$ . 686417)]) #@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 (#$ . 686727)]) #@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 (#$ . 687074)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CallHierarchyOutgoingCallsParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:item) nil lsp-keyword->string alist-get ((:item . :item)) error "Unknown key: %s. Available keys: %s" symbol-name (:item) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 687510)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CallHierarchyOutgoingCallsParams--pcase-macroexpander edebug-form-spec nil CallHierarchyOutgoingCallsParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-calls-params-item #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "item"] 4 (#$ . 688516)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-calls-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 688670)]) #@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 (#$ . 688821)]) #@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 (#$ . 689297)]) #@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 (#$ . 689712)]) #@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 (#$ . 690089)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CallHierarchyPrepareParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 690654)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CallHierarchyPrepareParams--pcase-macroexpander edebug-form-spec nil CallHierarchyPrepareParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 691743)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 691890)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 692034)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 692198)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 692359)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 692514)]) #@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\? :data\? :title) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :data\? :title) gethash 1 nil assoc ((:command\? . :command) (:diagnostics\? . :diagnostics) (:edit\? . :edit) (:is-preferred\? . :isPreferred) (:kind\? . :kind) (:data\? . :data) (:title . :title))] 7 (#$ . 692666)]) #@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\? :data\? :title) error "Unknown key: %s. Available keys: %s" (:command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :data\? :title) when ht\? gethash symbol-name assoc ((:command\? . :command) (:diagnostics\? . :diagnostics) (:edit\? . :edit) (:is-preferred\? . :isPreferred) (:kind\? . :kind) (:data\? . :data) (:title . :title)) 1 nil] 9 (#$ . 693296)]) #@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 (#$ . 693865)]) #@121 (fn &rest PLIST &key COMMAND\=\? DIAGNOSTICS\=\? EDIT\=\? IS-PREFERRED\=\? KIND\=\? DATA\=\? 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@\300\307\"A@\310\311\312\"\211\262\313\314\315\"\316\317\f\"\"\210\207" [plist-member :command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :data\? :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) (:data\? . :data) (:title . :title))] 9 "\n\n(fn INPUT0)"] -partition 2] 14 (#$ . 694190)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeAction--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:title) nil lsp-keyword->string alist-get ((:command\? . :command) (:diagnostics\? . :diagnostics) (:edit\? . :edit) (:is-preferred\? . :isPreferred) (:kind\? . :kind) (:data\? . :data) (:title . :title)) error "Unknown key: %s. Available keys: %s" symbol-name (:command\? :diagnostics\? :edit\? :is-preferred\? :kind\? :data\? :title) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 694968)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeAction--pcase-macroexpander edebug-form-spec nil CodeAction pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-action-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 696121)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 696258)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-diagnostics\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 696392)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-diagnostics\? #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 696537)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edit"] 4 (#$ . 696679)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-edit\? #[514 "\300\301#\210\207" [puthash "edit"] 6 (#$ . 696810)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-is-preferred\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isPreferred"] 4 (#$ . 696938)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-is-preferred\? #[514 "\300\301#\210\207" [puthash "isPreferred"] 6 (#$ . 697084)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 697227)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 697358)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 697486)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 697617)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 697745)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 697876)]) #@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 (#$ . 698004)]) #@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 (#$ . 698325)]) #@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 (#$ . 698585)]) #@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 (#$ . 698899)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeActionKind--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 699263)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeActionKind--pcase-macroexpander edebug-form-spec nil CodeActionKind pcase-macroexpander] 5) #@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 (#$ . 700181)]) #@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 (#$ . 700645)]) #@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 (#$ . 701048)]) #@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 (#$ . 701427)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeActionParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :context :range) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:context . :context) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :context :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 701977)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeActionParams--pcase-macroexpander edebug-form-spec nil CodeActionParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-action-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 703041)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 703194)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-params-context #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 703344)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 703486)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 703625)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 703763)]) #@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 (#$ . 703898)]) #@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 (#$ . 704331)]) #@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 (#$ . 704703)]) #@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 (#$ . 705025)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeLens--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range) nil lsp-keyword->string alist-get ((:command\? . :command) (:data\? . :data) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:command\? :data\? :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 705547)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeLens--pcase-macroexpander edebug-form-spec nil CodeLens pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-lens-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 706546)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 706681)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 706813)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 706942)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 707068)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 707197)]) #@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 (#$ . 707323)]) #@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 (#$ . 707711)]) #@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 (#$ . 708038)]) #@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 (#$ . 708381)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeLensParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 708832)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeLensParams--pcase-macroexpander edebug-form-spec nil CodeLensParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-lens-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 709818)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 709969)]) #@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 (#$ . 710117)]) #@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 (#$ . 710623)]) #@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 (#$ . 711068)]) #@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 (#$ . 711396)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CodeLensRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :resolve-provider\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 711980)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CodeLensRegistrationOptions--pcase-macroexpander edebug-form-spec nil CodeLensRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:code-lens-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 713066)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 713241)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 713413)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 713586)]) #@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 (#$ . 713756)]) #@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 (#$ . 714149)]) #@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 (#$ . 714481)]) #@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 (#$ . 714826)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ColorInformation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:color :range) nil lsp-keyword->string alist-get ((:color . :color) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:color :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 715291)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ColorInformation--pcase-macroexpander edebug-form-spec nil ColorInformation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:color-information-color #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "color"] 4 (#$ . 716285)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-information-color #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 716422)]) #@15 (fn OBJECT) (defalias 'lsp:color-information-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 716556)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-information-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 716693)]) #@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 (#$ . 716827)]) #@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 (#$ . 717342)]) #@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 (#$ . 717796)]) #@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 (#$ . 718127)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ColorPresentation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:label) nil lsp-keyword->string alist-get ((:additional-text-edits\? . :additionalTextEdits) (:text-edit\? . :textEdit) (:label . :label)) error "Unknown key: %s. Available keys: %s" symbol-name (:additional-text-edits\? :text-edit\? :label) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 718731)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ColorPresentation--pcase-macroexpander edebug-form-spec nil ColorPresentation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-additional-text-edits\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "additionalTextEdits"] 4 (#$ . 719811)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-additional-text-edits\? #[514 "\300\301#\210\207" [puthash "additionalTextEdits"] 6 (#$ . 719981)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-text-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textEdit"] 4 (#$ . 720148)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-text-edit\? #[514 "\300\301#\210\207" [puthash "textEdit"] 6 (#$ . 720295)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 720439)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 720577)]) #@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 (#$ . 720712)]) #@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 (#$ . 721175)]) #@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 (#$ . 721577)]) #@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 (#$ . 721959)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ColorPresentationParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:color :textDocument :range) nil lsp-keyword->string alist-get ((:color . :color) (:text-document . :textDocument) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:color :text-document :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 722508)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ColorPresentationParams--pcase-macroexpander edebug-form-spec nil ColorPresentationParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-color #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "color"] 4 (#$ . 723585)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-color #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 723730)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 723872)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 724032)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 724189)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 724334)]) #@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 (#$ . 724476)]) #@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 (#$ . 724859)]) #@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 (#$ . 725181)]) #@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 (#$ . 725520)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ColoringParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:uri :infos) nil lsp-keyword->string alist-get ((:uri . :uri) (:infos . :infos)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri :infos) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 725975)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ColoringParams--pcase-macroexpander edebug-form-spec nil ColoringParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:coloring-params-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 726955)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 727086)]) #@15 (fn OBJECT) (defalias 'lsp:coloring-params-infos #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "infos"] 4 (#$ . 727214)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-params-infos #[514 "\300\301#\210\207" [puthash "infos"] 6 (#$ . 727349)]) #@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 (#$ . 727481)]) #@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 (#$ . 727801)]) #@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 (#$ . 728060)]) #@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 (#$ . 728372)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ColoringStyle--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 728734)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ColoringStyle--pcase-macroexpander edebug-form-spec nil ColoringStyle pcase-macroexpander] 5) #@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 (#$ . 729649)]) #@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 (#$ . 730071)]) #@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 (#$ . 730432)]) #@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 (#$ . 730789)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionList--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:items :isIncomplete) nil lsp-keyword->string alist-get ((:items . :items) (:is-incomplete . :isIncomplete)) error "Unknown key: %s. Available keys: %s" symbol-name (:items :is-incomplete) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 731283)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionList--pcase-macroexpander edebug-form-spec nil CompletionList pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-list-items #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "items"] 4 (#$ . 732301)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-list-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 732436)]) #@15 (fn OBJECT) (defalias 'lsp:completion-list-is-incomplete #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isIncomplete"] 4 (#$ . 732568)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-list-is-incomplete #[514 "\300\301#\210\207" [puthash "isIncomplete"] 6 (#$ . 732718)]) #@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 (#$ . 732865)]) #@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 (#$ . 733377)]) #@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 (#$ . 733828)]) #@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 (#$ . 734193)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:context\? . :context) (:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:context\? :uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 734806)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionParams--pcase-macroexpander edebug-form-spec nil CompletionParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-params-context\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 735900)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-context\? #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 736043)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 736183)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 736318)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 736450)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 736602)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 736751)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 736894)]) #@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 (#$ . 737034)]) #@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 (#$ . 737631)]) #@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 (#$ . 738167)]) #@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 (#$ . 738497)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CompletionRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider) (:trigger-characters\? . :triggerCharacters)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :resolve-provider\? :trigger-characters\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 739186)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CompletionRegistrationOptions--pcase-macroexpander edebug-form-spec nil CompletionRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 740345)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 740521)]) #@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 740694)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 740868)]) #@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 741039)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 741217)]) #@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 (#$ . 741392)]) #@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 (#$ . 741754)]) #@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 (#$ . 742055)]) #@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 (#$ . 742388)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ConfigurationParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:items) nil lsp-keyword->string alist-get ((:items . :items)) error "Unknown key: %s. Available keys: %s" symbol-name (:items) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 742812)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ConfigurationParams--pcase-macroexpander edebug-form-spec nil ConfigurationParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:configuration-params-items #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "items"] 4 (#$ . 743783)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-params-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 743923)]) #@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 (#$ . 744060)]) #@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 (#$ . 744481)]) #@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 (#$ . 744841)]) #@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 (#$ . 745174)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'CreateFile--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :uri) nil lsp-keyword->string alist-get ((:options\? . :options) (:kind . :kind) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:options\? :kind :uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 745682)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop CreateFile--pcase-macroexpander edebug-form-spec nil CreateFile pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:create-file-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 746681)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 746818)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 746952)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 747081)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 747207)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 747334)]) #@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 (#$ . 747458)]) #@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 (#$ . 747925)]) #@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 (#$ . 748331)]) #@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 (#$ . 748697)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DeclarationParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 749251)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DeclarationParams--pcase-macroexpander edebug-form-spec nil DeclarationParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:declaration-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 750313)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 750449)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 750582)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 750735)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 750885)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 751029)]) #@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 (#$ . 751170)]) #@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 (#$ . 751636)]) #@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 (#$ . 752041)]) #@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 (#$ . 752406)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DefinitionParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 752959)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DefinitionParams--pcase-macroexpander edebug-form-spec nil DefinitionParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:definition-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 754018)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 754153)]) #@15 (fn OBJECT) (defalias 'lsp:definition-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 754285)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 754437)]) #@15 (fn OBJECT) (defalias 'lsp:definition-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 754586)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 754729)]) #@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 (#$ . 754869)]) #@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 (#$ . 755290)]) #@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 (#$ . 755650)]) #@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 (#$ . 755983)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DeleteFile--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :uri) nil lsp-keyword->string alist-get ((:options\? . :options) (:kind . :kind) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:options\? :kind :uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 756491)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DeleteFile--pcase-macroexpander edebug-form-spec nil DeleteFile pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:delete-file-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 757490)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 757627)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 757761)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 757890)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 758016)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 758143)]) #@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 (#$ . 758267)]) #@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 (#$ . 758650)]) #@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 (#$ . 758972)]) #@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 (#$ . 759322)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidChangeConfigurationParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:settings) nil lsp-keyword->string alist-get ((:settings . :settings)) error "Unknown key: %s. Available keys: %s" symbol-name (:settings) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 759769)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidChangeConfigurationParams--pcase-macroexpander edebug-form-spec nil DidChangeConfigurationParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-change-configuration-params-settings #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "settings"] 4 (#$ . 760779)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-configuration-params-settings #[514 "\300\301#\210\207" [puthash "settings"] 6 (#$ . 760936)]) #@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 (#$ . 761090)]) #@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 (#$ . 761594)]) #@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 (#$ . 762037)]) #@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 (#$ . 762428)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidChangeTextDocumentParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:contentChanges :textDocument) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:content-changes . :contentChanges) (:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :content-changes :text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 763022)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidChangeTextDocumentParams--pcase-macroexpander edebug-form-spec nil DidChangeTextDocumentParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 764140)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 764289)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-content-changes #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contentChanges"] 4 (#$ . 764435)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-content-changes #[514 "\300\301#\210\207" [puthash "contentChanges"] 6 (#$ . 764605)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 764772)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 764938)]) #@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 (#$ . 765101)]) #@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 (#$ . 765479)]) #@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 (#$ . 765796)]) #@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 (#$ . 766144)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidChangeWatchedFilesParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:changes) nil lsp-keyword->string alist-get ((:changes . :changes)) error "Unknown key: %s. Available keys: %s" symbol-name (:changes) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 766587)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidChangeWatchedFilesParams--pcase-macroexpander edebug-form-spec nil DidChangeWatchedFilesParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-params-changes #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "changes"] 4 (#$ . 767590)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-params-changes #[514 "\300\301#\210\207" [puthash "changes"] 6 (#$ . 767745)]) #@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 (#$ . 767897)]) #@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 (#$ . 768292)]) #@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 (#$ . 768626)]) #@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 (#$ . 768990)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidChangeWatchedFilesRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:watchers) nil lsp-keyword->string alist-get ((:watchers . :watchers)) error "Unknown key: %s. Available keys: %s" symbol-name (:watchers) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 769451)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidChangeWatchedFilesRegistrationOptions--pcase-macroexpander edebug-form-spec nil DidChangeWatchedFilesRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-registration-options-watchers #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "watchers"] 4 (#$ . 770497)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-registration-options-watchers #[514 "\300\301#\210\207" [puthash "watchers"] 6 (#$ . 770668)]) #@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 (#$ . 770836)]) #@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 (#$ . 771210)]) #@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 (#$ . 771523)]) #@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 (#$ . 771871)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidChangeWorkspaceFoldersParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:event) nil lsp-keyword->string alist-get ((:event . :event)) error "Unknown key: %s. Available keys: %s" symbol-name (:event) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 772310)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidChangeWorkspaceFoldersParams--pcase-macroexpander edebug-form-spec nil DidChangeWorkspaceFoldersParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-change-workspace-folders-params-event #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "event"] 4 (#$ . 773317)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-workspace-folders-params-event #[514 "\300\301#\210\207" [puthash "event"] 6 (#$ . 773472)]) #@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 (#$ . 773624)]) #@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 (#$ . 774024)]) #@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 (#$ . 774363)]) #@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 (#$ . 774720)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidCloseTextDocumentParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 775185)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidCloseTextDocumentParams--pcase-macroexpander edebug-form-spec nil DidCloseTextDocumentParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-close-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 776207)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-close-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 776372)]) #@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 (#$ . 776534)]) #@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 (#$ . 776969)]) #@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 (#$ . 777343)]) #@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 (#$ . 777699)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidOpenTextDocumentParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text\? . :text) (:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text\? :text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 778211)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidOpenTextDocumentParams--pcase-macroexpander edebug-form-spec nil DidOpenTextDocumentParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-open-text-document-params-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 779256)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-open-text-document-params-text\? #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 779405)]) #@15 (fn OBJECT) (defalias 'lsp:did-open-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 779551)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-open-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 779715)]) #@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 (#$ . 779876)]) #@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 (#$ . 780311)]) #@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 (#$ . 780685)]) #@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 (#$ . 781041)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DidSaveTextDocumentParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text\? . :text) (:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text\? :text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 781553)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DidSaveTextDocumentParams--pcase-macroexpander edebug-form-spec nil DidSaveTextDocumentParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:did-save-text-document-params-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 782598)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-save-text-document-params-text\? #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 782747)]) #@15 (fn OBJECT) (defalias 'lsp:did-save-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 782893)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-save-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 783057)]) #@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 (#$ . 783218)]) #@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 (#$ . 783611)]) #@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 (#$ . 783943)]) #@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 (#$ . 784291)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentColorParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 784747)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentColorParams--pcase-macroexpander edebug-form-spec nil DocumentColorParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-color-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 785748)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-color-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 785904)]) #@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 (#$ . 786057)]) #@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 (#$ . 786497)]) #@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 (#$ . 786876)]) #@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 (#$ . 787248)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentFormattingParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :options) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:options . :options)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :options) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 787761)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentFormattingParams--pcase-macroexpander edebug-form-spec nil DocumentFormattingParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 788817)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 788978)]) #@15 (fn OBJECT) (defalias 'lsp:document-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 789136)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 789286)]) #@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 (#$ . 789433)]) #@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 (#$ . 789829)]) #@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 (#$ . 790164)]) #@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 (#$ . 790495)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentHighlight--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range) nil lsp-keyword->string alist-get ((:kind\? . :kind) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:kind\? :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 790965)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentHighlight--pcase-macroexpander edebug-form-spec nil DocumentHighlight pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 791956)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 792094)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 792229)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 792367)]) #@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 (#$ . 792502)]) #@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 (#$ . 792975)]) #@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 (#$ . 793387)]) #@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 (#$ . 793760)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentHighlightParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 794321)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentHighlightParams--pcase-macroexpander edebug-form-spec nil DocumentHighlightParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 795401)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 795544)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 795684)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 795844)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 796001)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 796152)]) #@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 (#$ . 796300)]) #@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 (#$ . 796779)]) #@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 (#$ . 797197)]) #@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 (#$ . 797523)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentLink--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range) nil lsp-keyword->string alist-get ((:data\? . :data) (:target\? . :target) (:tooltip\? . :tooltip) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:data\? :target\? :tooltip\? :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 798105)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentLink--pcase-macroexpander edebug-form-spec nil DocumentLink pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-link-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 799148)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 799281)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-target\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "target"] 4 (#$ . 799411)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-target\? #[514 "\300\301#\210\207" [puthash "target"] 6 (#$ . 799548)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 799682)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 799821)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 799957)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 800090)]) #@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 (#$ . 800220)]) #@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 (#$ . 800612)]) #@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 (#$ . 800943)]) #@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 (#$ . 801290)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentLinkParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 801745)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentLinkParams--pcase-macroexpander edebug-form-spec nil DocumentLinkParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-link-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 802743)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 802898)]) #@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 (#$ . 803050)]) #@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 (#$ . 803560)]) #@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 (#$ . 804009)]) #@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 (#$ . 804341)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentLinkRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:resolve-provider\? . :resolveProvider)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :resolve-provider\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 804929)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentLinkRegistrationOptions--pcase-macroexpander edebug-form-spec nil DocumentLinkRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-link-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 806027)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 806206)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 806382)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 806559)]) #@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 (#$ . 806733)]) #@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 (#$ . 807243)]) #@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 (#$ . 807692)]) #@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 (#$ . 808102)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentOnTypeFormattingParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:ch :textDocument :options :position) nil lsp-keyword->string alist-get ((:ch . :ch) (:text-document . :textDocument) (:options . :options) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:ch :text-document :options :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 808712)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentOnTypeFormattingParams--pcase-macroexpander edebug-form-spec nil DocumentOnTypeFormattingParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-ch #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ch"] 4 (#$ . 809850)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-ch #[514 "\300\301#\210\207" [puthash "ch"] 6 (#$ . 809998)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 810143)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 810312)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 810478)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 810636)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 810791)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 810951)]) #@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 (#$ . 811108)]) #@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 (#$ . 811755)]) #@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 (#$ . 812341)]) #@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 (#$ . 812735)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentOnTypeFormattingRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:firstTriggerCharacter) nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:more-trigger-character\? . :moreTriggerCharacter) (:first-trigger-character . :firstTriggerCharacter)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :more-trigger-character\? :first-trigger-character) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 813475)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentOnTypeFormattingRegistrationOptions--pcase-macroexpander edebug-form-spec nil DocumentOnTypeFormattingRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 814728)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 814921)]) #@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 (#$ . 815111)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-more-trigger-character\? #[514 "\300\301#\210\207" [puthash "moreTriggerCharacter"] 6 (#$ . 815313)]) #@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 (#$ . 815512)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-first-trigger-character #[514 "\300\301#\210\207" [puthash "firstTriggerCharacter"] 6 (#$ . 815714)]) #@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 (#$ . 815913)]) #@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 (#$ . 816390)]) #@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 (#$ . 816806)]) #@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 (#$ . 817199)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentRangeFormattingParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :options :range) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:options . :options) (:range . :range)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :options :range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 817763)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentRangeFormattingParams--pcase-macroexpander edebug-form-spec nil DocumentRangeFormattingParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 818866)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 819033)]) #@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 819197)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 819353)]) #@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 819506)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 819658)]) #@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 (#$ . 819807)]) #@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 (#$ . 820201)]) #@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 (#$ . 820534)]) #@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 (#$ . 820883)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DocumentSymbolParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 821340)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DocumentSymbolParams--pcase-macroexpander edebug-form-spec nil DocumentSymbolParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 822344)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 822501)]) #@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 (#$ . 822655)]) #@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 (#$ . 823094)]) #@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 (#$ . 823472)]) #@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 (#$ . 823803)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'DynamicRegistrationCapabilities--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:dynamic-registration\? . :dynamicRegistration)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 824307)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop DynamicRegistrationCapabilities--pcase-macroexpander edebug-form-spec nil DynamicRegistrationCapabilities pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:dynamic-registration-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 825353)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-dynamic-registration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 825537)]) #@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 (#$ . 825718)]) #@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 (#$ . 826145)]) #@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 (#$ . 826511)]) #@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 (#$ . 826850)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ExecuteCommandParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:command) nil lsp-keyword->string alist-get ((:arguments\? . :arguments) (:command . :command)) error "Unknown key: %s. Available keys: %s" symbol-name (:arguments\? :command) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 827352)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ExecuteCommandParams--pcase-macroexpander edebug-form-spec nil ExecuteCommandParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:execute-command-params-arguments\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "arguments"] 4 (#$ . 828375)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-params-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 828527)]) #@15 (fn OBJECT) (defalias 'lsp:execute-command-params-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 828676)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-params-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 828822)]) #@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 (#$ . 828965)]) #@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 (#$ . 829353)]) #@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 (#$ . 829680)]) #@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 (#$ . 830035)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ExecuteCommandRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:commands) nil lsp-keyword->string alist-get ((:commands . :commands)) error "Unknown key: %s. Available keys: %s" symbol-name (:commands) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 830487)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ExecuteCommandRegistrationOptions--pcase-macroexpander edebug-form-spec nil ExecuteCommandRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:execute-command-registration-options-commands #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commands"] 4 (#$ . 831512)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-registration-options-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 831674)]) #@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 (#$ . 831833)]) #@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 (#$ . 832159)]) #@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 (#$ . 832424)]) #@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 (#$ . 832743)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FailureHandlingKind--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 833112)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FailureHandlingKind--pcase-macroexpander edebug-form-spec nil FailureHandlingKind pcase-macroexpander] 5) #@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 (#$ . 834045)]) #@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 (#$ . 834644)]) #@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 (#$ . 835182)]) #@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 (#$ . 835536)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FoldingRange--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:endLine :startLine) nil lsp-keyword->string alist-get ((:end-character\? . :endCharacter) (:kind\? . :kind) (:start-character\? . :startCharacter) (:end-line . :endLine) (:start-line . :startLine)) error "Unknown key: %s. Available keys: %s" symbol-name (:end-character\? :kind\? :start-character\? :end-line :start-line) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 836251)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FoldingRange--pcase-macroexpander edebug-form-spec nil FoldingRange pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:folding-range-end-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "endCharacter"] 4 (#$ . 837397)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-end-character\? #[514 "\300\301#\210\207" [puthash "endCharacter"] 6 (#$ . 837547)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 837694)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 837827)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-start-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "startCharacter"] 4 (#$ . 837957)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-start-character\? #[514 "\300\301#\210\207" [puthash "startCharacter"] 6 (#$ . 838111)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-end-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "endLine"] 4 (#$ . 838262)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-end-line #[514 "\300\301#\210\207" [puthash "endLine"] 6 (#$ . 838400)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-start-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "startLine"] 4 (#$ . 838535)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-start-line #[514 "\300\301#\210\207" [puthash "startLine"] 6 (#$ . 838677)]) #@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 (#$ . 838816)]) #@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 (#$ . 839139)]) #@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 (#$ . 839401)]) #@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 (#$ . 839717)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FoldingRangeKind--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 840083)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FoldingRangeKind--pcase-macroexpander edebug-form-spec nil FoldingRangeKind pcase-macroexpander] 5) #@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 (#$ . 841007)]) #@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 (#$ . 841406)]) #@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 (#$ . 841744)]) #@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 (#$ . 842099)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'FoldingRangeRequestParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument) nil lsp-keyword->string alist-get ((:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 842562)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop FoldingRangeRequestParams--pcase-macroexpander edebug-form-spec nil FoldingRangeRequestParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:folding-range-request-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 843581)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-request-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 843744)]) #@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 (#$ . 843904)]) #@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 (#$ . 844304)]) #@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 (#$ . 844643)]) #@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 (#$ . 844967)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'Hover--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:contents) nil lsp-keyword->string alist-get ((:range\? . :range) (:contents . :contents)) error "Unknown key: %s. Available keys: %s" symbol-name (:range\? :contents) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 845440)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop Hover--pcase-macroexpander edebug-form-spec nil Hover pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:hover-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 846410)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 846537)]) #@15 (fn OBJECT) (defalias 'lsp:hover-contents #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contents"] 4 (#$ . 846661)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-contents #[514 "\300\301#\210\207" [puthash "contents"] 6 (#$ . 846792)]) #@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 (#$ . 846920)]) #@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 (#$ . 847381)]) #@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 (#$ . 847781)]) #@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 (#$ . 848141)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'HoverParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 848689)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop HoverParams--pcase-macroexpander edebug-form-spec nil HoverParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:hover-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 849733)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 849863)]) #@15 (fn OBJECT) (defalias 'lsp:hover-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 849990)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 850137)]) #@15 (fn OBJECT) (defalias 'lsp:hover-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 850281)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 850419)]) #@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 (#$ . 850554)]) #@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 (#$ . 851024)]) #@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 (#$ . 851433)]) #@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 (#$ . 851802)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ImplementationParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 852359)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ImplementationParams--pcase-macroexpander edebug-form-spec nil ImplementationParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:implementation-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 853430)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 853569)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 853705)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 853861)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 854014)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 854161)]) #@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 (#$ . 854305)]) #@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 (#$ . 854663)]) #@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 (#$ . 854960)]) #@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 (#$ . 855289)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'InitializeError--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:retry) nil lsp-keyword->string alist-get ((:retry . :retry)) error "Unknown key: %s. Available keys: %s" symbol-name (:retry) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 855709)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop InitializeError--pcase-macroexpander edebug-form-spec nil InitializeError pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:initialize-error-retry #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "retry"] 4 (#$ . 856668)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-error-retry #[514 "\300\301#\210\207" [puthash "retry"] 6 (#$ . 856804)]) #@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 (#$ . 856937)]) #@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 (#$ . 857263)]) #@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 (#$ . 857528)]) #@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 (#$ . 857847)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'InitializeErrorCode--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 858216)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop InitializeErrorCode--pcase-macroexpander edebug-form-spec nil InitializeErrorCode pcase-macroexpander] 5) #@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 (#$ . 859149)]) #@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 (#$ . 860053)]) #@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 (#$ . 860896)]) #@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 (#$ . 861212)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'InitializeParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((: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)) error "Unknown key: %s. Available keys: %s" symbol-name (:capabilities\? :client-info\? :client-name\? :initialization-options\? :process-id\? :root-path\? :root-uri\? :trace\? :workspace-folders\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 862295)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop InitializeParams--pcase-macroexpander edebug-form-spec nil InitializeParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-capabilities\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "capabilities"] 4 (#$ . 863657)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-capabilities\? #[514 "\300\301#\210\207" [puthash "capabilities"] 6 (#$ . 863810)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-client-info\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "clientInfo"] 4 (#$ . 863960)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-client-info\? #[514 "\300\301#\210\207" [puthash "clientInfo"] 6 (#$ . 864110)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-client-name\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "clientName"] 4 (#$ . 864257)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-client-name\? #[514 "\300\301#\210\207" [puthash "clientName"] 6 (#$ . 864407)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-initialization-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "initializationOptions"] 4 (#$ . 864554)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-initialization-options\? #[514 "\300\301#\210\207" [puthash "initializationOptions"] 6 (#$ . 864726)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-process-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "processId"] 4 (#$ . 864895)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-process-id\? #[514 "\300\301#\210\207" [puthash "processId"] 6 (#$ . 865043)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-root-path\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rootPath"] 4 (#$ . 865188)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-root-path\? #[514 "\300\301#\210\207" [puthash "rootPath"] 6 (#$ . 865334)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-root-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rootUri"] 4 (#$ . 865477)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-root-uri\? #[514 "\300\301#\210\207" [puthash "rootUri"] 6 (#$ . 865621)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-trace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "trace"] 4 (#$ . 865762)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-trace\? #[514 "\300\301#\210\207" [puthash "trace"] 6 (#$ . 865901)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-workspace-folders\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceFolders"] 4 (#$ . 866037)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 866199)]) #@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 (#$ . 866358)]) #@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 (#$ . 866808)]) #@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 (#$ . 867197)]) #@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 (#$ . 867541)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'InitializeResult--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:capabilities) nil lsp-keyword->string alist-get ((:server-info\? . :serverInfo) (:capabilities . :capabilities)) error "Unknown key: %s. Available keys: %s" symbol-name (:server-info\? :capabilities) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 868065)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop InitializeResult--pcase-macroexpander edebug-form-spec nil InitializeResult pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:initialize-result-server-info\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "serverInfo"] 4 (#$ . 869101)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-result-server-info\? #[514 "\300\301#\210\207" [puthash "serverInfo"] 6 (#$ . 869251)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-result-capabilities #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "capabilities"] 4 (#$ . 869398)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-result-capabilities #[514 "\300\301#\210\207" [puthash "capabilities"] 6 (#$ . 869549)]) #@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 (#$ . 869697)]) #@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 (#$ . 870021)]) #@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 (#$ . 870284)]) #@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 (#$ . 870600)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'InitializedParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 870966)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop InitializedParams--pcase-macroexpander edebug-form-spec nil InitializedParams pcase-macroexpander] 5) #@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 (#$ . 871893)]) #@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 (#$ . 872530)]) #@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 (#$ . 873106)]) #@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 (#$ . 873513)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'LocationLink--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:targetSelectionRange :targetUri :targetRange) nil lsp-keyword->string alist-get ((:origin-selection-range\? . :originSelectionRange) (:target-selection-range . :targetSelectionRange) (:target-uri . :targetUri) (:target-range . :targetRange)) error "Unknown key: %s. Available keys: %s" symbol-name (:origin-selection-range\? :target-selection-range :target-uri :target-range) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 874249)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop LocationLink--pcase-macroexpander edebug-form-spec nil LocationLink pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:location-link-origin-selection-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "originSelectionRange"] 4 (#$ . 875449)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-origin-selection-range\? #[514 "\300\301#\210\207" [puthash "originSelectionRange"] 6 (#$ . 875616)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetSelectionRange"] 4 (#$ . 875780)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-selection-range #[514 "\300\301#\210\207" [puthash "targetSelectionRange"] 6 (#$ . 875945)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetUri"] 4 (#$ . 876107)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-uri #[514 "\300\301#\210\207" [puthash "targetUri"] 6 (#$ . 876249)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetRange"] 4 (#$ . 876388)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-range #[514 "\300\301#\210\207" [puthash "targetRange"] 6 (#$ . 876534)]) #@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 (#$ . 876677)]) #@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 (#$ . 876994)]) #@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 (#$ . 877250)]) #@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 (#$ . 877559)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'MarkupKind--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 877918)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop MarkupKind--pcase-macroexpander edebug-form-spec nil MarkupKind pcase-macroexpander] 5) #@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 (#$ . 878824)]) #@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 (#$ . 879218)]) #@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 (#$ . 879551)]) #@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 (#$ . 879895)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'MessageParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:type :message) nil lsp-keyword->string alist-get ((:type . :type) (:message . :message)) error "Unknown key: %s. Available keys: %s" symbol-name (:type :message) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 880361)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop MessageParams--pcase-macroexpander edebug-form-spec nil MessageParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:message-params-type #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "type"] 4 (#$ . 881350)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-params-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 881482)]) #@15 (fn OBJECT) (defalias 'lsp:message-params-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 881611)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-params-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 881749)]) #@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 (#$ . 881884)]) #@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 (#$ . 882353)]) #@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 (#$ . 882761)]) #@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 (#$ . 883130)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'PrepareRenameParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 883687)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop PrepareRenameParams--pcase-macroexpander edebug-form-spec nil PrepareRenameParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 884755)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 884894)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 885030)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 885186)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 885339)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 885486)]) #@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 (#$ . 885630)]) #@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 (#$ . 886050)]) #@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 (#$ . 886409)]) #@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 (#$ . 886770)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'PrepareRenameResult--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:range :placeholder) nil lsp-keyword->string alist-get ((:range . :range) (:placeholder . :placeholder)) error "Unknown key: %s. Available keys: %s" symbol-name (:range :placeholder) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 887263)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop PrepareRenameResult--pcase-macroexpander edebug-form-spec nil PrepareRenameResult pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-result-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 888290)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-result-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 888431)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-result-placeholder #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "placeholder"] 4 (#$ . 888569)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-result-placeholder #[514 "\300\301#\210\207" [puthash "placeholder"] 6 (#$ . 888722)]) #@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 (#$ . 888872)]) #@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 (#$ . 889335)]) #@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 (#$ . 889737)]) #@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 (#$ . 890099)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'PublishDiagnosticsParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:diagnostics :uri) nil lsp-keyword->string alist-get ((:version\? . :version) (:diagnostics . :diagnostics) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:version\? :diagnostics :uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 890650)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop PublishDiagnosticsParams--pcase-macroexpander edebug-form-spec nil PublishDiagnosticsParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-version\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 891719)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 891871)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 892020)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-diagnostics #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 892178)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 892333)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 892475)]) #@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 (#$ . 892614)]) #@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 (#$ . 893119)]) #@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 (#$ . 893563)]) #@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 (#$ . 893946)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ReferenceParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :context :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:context . :context) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :context :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 894550)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ReferenceParams--pcase-macroexpander edebug-form-spec nil ReferenceParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:reference-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 895646)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 895780)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 895911)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 896062)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-context #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 896210)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 896350)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 896487)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 896629)]) #@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 (#$ . 896768)]) #@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 (#$ . 897161)]) #@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 (#$ . 897493)]) #@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 (#$ . 897841)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'RegistrationParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:registrations) nil lsp-keyword->string alist-get ((:registrations . :registrations)) error "Unknown key: %s. Available keys: %s" symbol-name (:registrations) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 898296)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop RegistrationParams--pcase-macroexpander edebug-form-spec nil RegistrationParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:registration-params-registrations #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "registrations"] 4 (#$ . 899296)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-params-registrations #[514 "\300\301#\210\207" [puthash "registrations"] 6 (#$ . 899451)]) #@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 (#$ . 899603)]) #@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 (#$ . 900078)]) #@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 (#$ . 900492)]) #@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 (#$ . 900848)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'RenameFile--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :newUri :oldUri) nil lsp-keyword->string alist-get ((:options\? . :options) (:kind . :kind) (:new-uri . :newUri) (:old-uri . :oldUri)) error "Unknown key: %s. Available keys: %s" symbol-name (:options\? :kind :new-uri :old-uri) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 901422)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop RenameFile--pcase-macroexpander edebug-form-spec nil RenameFile pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rename-file-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 902473)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 902610)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 902744)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 902873)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-new-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newUri"] 4 (#$ . 902999)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-new-uri #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 903133)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-old-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "oldUri"] 4 (#$ . 903264)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-old-uri #[514 "\300\301#\210\207" [puthash "oldUri"] 6 (#$ . 903398)]) #@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 (#$ . 903529)]) #@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 (#$ . 904034)]) #@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 (#$ . 904478)]) #@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 (#$ . 904858)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'RenameParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:newName :textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:new-name . :newName) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :new-name :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 905462)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop RenameParams--pcase-macroexpander edebug-form-spec nil RenameParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:rename-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 906551)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 906682)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-new-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newName"] 4 (#$ . 906810)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-new-name #[514 "\300\301#\210\207" [puthash "newName"] 6 (#$ . 906948)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 907083)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 907231)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 907376)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 907515)]) #@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 (#$ . 907651)]) #@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 (#$ . 908110)]) #@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 (#$ . 908508)]) #@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 (#$ . 908895)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ResolveTypeHierarchyItemParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:item :resolve :direction) nil lsp-keyword->string alist-get ((:item . :item) (:resolve . :resolve) (:direction . :direction)) error "Unknown key: %s. Available keys: %s" symbol-name (:item :resolve :direction) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 909442)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ResolveTypeHierarchyItemParams--pcase-macroexpander edebug-form-spec nil ResolveTypeHierarchyItemParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-item #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "item"] 4 (#$ . 910530)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 910682)]) #@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-resolve #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolve"] 4 (#$ . 910831)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-resolve #[514 "\300\301#\210\207" [puthash "resolve"] 6 (#$ . 910989)]) #@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-direction #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "direction"] 4 (#$ . 911144)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-direction #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 911306)]) #@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 (#$ . 911465)]) #@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 (#$ . 911793)]) #@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 (#$ . 912060)]) #@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 (#$ . 912381)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ResourceOperationKind--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 912752)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ResourceOperationKind--pcase-macroexpander edebug-form-spec nil ResourceOperationKind pcase-macroexpander] 5) #@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 (#$ . 913691)]) #@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 (#$ . 914135)]) #@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 (#$ . 914518)]) #@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 (#$ . 914890)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SelectionRangeParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :positions) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:positions . :positions)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :positions) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 915407)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SelectionRangeParams--pcase-macroexpander edebug-form-spec nil SelectionRangeParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:selection-range-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 916459)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 916616)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-params-positions #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "positions"] 4 (#$ . 916770)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-params-positions #[514 "\300\301#\210\207" [puthash "positions"] 6 (#$ . 916920)]) #@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 (#$ . 917067)]) #@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 (#$ . 917501)]) #@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 (#$ . 917874)]) #@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 (#$ . 918244)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SemanticHighlightingParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :lines) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:lines . :lines)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :lines) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 918751)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SemanticHighlightingParams--pcase-macroexpander edebug-form-spec nil SemanticHighlightingParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 919805)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 919968)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-params-lines #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "lines"] 4 (#$ . 920128)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-params-lines #[514 "\300\301#\210\207" [puthash "lines"] 6 (#$ . 920276)]) #@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 (#$ . 920421)]) #@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 (#$ . 920872)]) #@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 (#$ . 921262)]) #@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 (#$ . 921619)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'ShowMessageRequestParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:type :message) nil lsp-keyword->string alist-get ((:actions\? . :actions) (:type . :type) (:message . :message)) error "Unknown key: %s. Available keys: %s" symbol-name (:actions\? :type :message) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 922159)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop ShowMessageRequestParams--pcase-macroexpander edebug-form-spec nil ShowMessageRequestParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-actions\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "actions"] 4 (#$ . 923216)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-actions\? #[514 "\300\301#\210\207" [puthash "actions"] 6 (#$ . 923369)]) #@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-type #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "type"] 4 (#$ . 923519)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 923664)]) #@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 923806)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 923957)]) #@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 (#$ . 924105)]) #@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 (#$ . 924620)]) #@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 (#$ . 925074)]) #@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 (#$ . 925443)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SignatureHelpParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:context\? . :context) (:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:context\? :uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 926060)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SignatureHelpParams--pcase-macroexpander edebug-form-spec nil SignatureHelpParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-context\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 927163)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-context\? #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 927310)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 927454)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 927593)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 927729)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 927885)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 928038)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 928185)]) #@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 (#$ . 928329)]) #@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 (#$ . 928848)]) #@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 (#$ . 929306)]) #@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 (#$ . 929639)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SignatureHelpRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:trigger-characters\? . :triggerCharacters)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :trigger-characters\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 930236)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SignatureHelpRegistrationOptions--pcase-macroexpander edebug-form-spec nil SignatureHelpRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:signature-help-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 931343)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 931523)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-registration-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 931700)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-registration-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 931882)]) #@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 (#$ . 932061)]) #@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 (#$ . 932622)]) #@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 (#$ . 933122)]) #@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 (#$ . 933485)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'SymbolInformation--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:kind :name :location) nil lsp-keyword->string alist-get ((:container-name\? . :containerName) (:deprecated\? . :deprecated) (:kind . :kind) (:name . :name) (:location . :location)) error "Unknown key: %s. Available keys: %s" symbol-name (:container-name\? :deprecated\? :kind :name :location) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 934160)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop SymbolInformation--pcase-macroexpander edebug-form-spec nil SymbolInformation pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-container-name\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "containerName"] 4 (#$ . 935292)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-container-name\? #[514 "\300\301#\210\207" [puthash "containerName"] 6 (#$ . 935449)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 935603)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 935753)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 935900)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 936036)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 936169)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 936305)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-location #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "location"] 4 (#$ . 936438)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-location #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 936582)]) #@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 (#$ . 936723)]) #@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 (#$ . 937205)]) #@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 (#$ . 937626)]) #@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 (#$ . 937986)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentChangeRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:syncKind) nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:sync-kind . :syncKind)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :sync-kind) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 938545)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentChangeRegistrationOptions--pcase-macroexpander edebug-form-spec nil TextDocumentChangeRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-change-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 939648)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-change-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 939834)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-change-registration-options-sync-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "syncKind"] 4 (#$ . 940017)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-change-registration-options-sync-kind #[514 "\300\301#\210\207" [puthash "syncKind"] 6 (#$ . 940185)]) #@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 (#$ . 940350)]) #@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 (#$ . 940826)]) #@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 (#$ . 941241)]) #@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 (#$ . 941618)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentPositionParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 942183)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentPositionParams--pcase-macroexpander edebug-form-spec nil TextDocumentPositionParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 943272)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 943419)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 943563)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 943727)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 943888)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 944043)]) #@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 (#$ . 944195)]) #@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 (#$ . 944622)]) #@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 (#$ . 944988)]) #@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 (#$ . 945320)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 945813)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentRegistrationOptions--pcase-macroexpander edebug-form-spec nil TextDocumentRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 946850)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 947029)]) #@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 (#$ . 947205)]) #@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 (#$ . 947703)]) #@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 (#$ . 948140)]) #@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 (#$ . 948477)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TextDocumentSaveRegistrationOptions--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\310\"\206+\311\312\313!\314#!\315!9\205@?\206@\316\317\313!\"\211\203^\320\321\322\323\324EEEB\262A\262 \266\202 \320\321\325\323\324EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get ((:document-selector\? . :documentSelector) (:include-text\? . :includeText)) error "Unknown key: %s. Available keys: %s" symbol-name (:document-selector\? :include-text\?) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 949054)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TextDocumentSaveRegistrationOptions--pcase-macroexpander edebug-form-spec nil TextDocumentSaveRegistrationOptions pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:text-document-save-registration-options-document-selector\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSelector"] 4 (#$ . 950152)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-save-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 950336)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-save-registration-options-include-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "includeText"] 4 (#$ . 950517)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-save-registration-options-include-text\? #[514 "\300\301#\210\207" [puthash "includeText"] 6 (#$ . 950691)]) #@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 (#$ . 950862)]) #@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 (#$ . 951332)]) #@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 (#$ . 951741)]) #@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 (#$ . 952111)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TypeDefinitionParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:textDocument :position) nil lsp-keyword->string alist-get ((:uri\? . :uri) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri\? :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 952669)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TypeDefinitionParams--pcase-macroexpander edebug-form-spec nil TypeDefinitionParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:type-definition-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 953740)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 953880)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 954017)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 954174)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 954328)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 954476)]) #@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 (#$ . 954621)]) #@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 (#$ . 955184)]) #@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 (#$ . 955686)]) #@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 (#$ . 956074)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'TypeHierarchyParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:resolve :textDocument :position) nil lsp-keyword->string alist-get ((:direction\? . :direction) (:uri\? . :uri) (:resolve . :resolve) (:text-document . :textDocument) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:direction\? :uri\? :resolve :text-document :position) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 956752)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop TypeHierarchyParams--pcase-macroexpander edebug-form-spec nil TypeHierarchyParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-direction\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "direction"] 4 (#$ . 957901)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-direction\? #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 958052)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 958200)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 958339)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-resolve #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolve"] 4 (#$ . 958475)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-resolve #[514 "\300\301#\210\207" [puthash "resolve"] 6 (#$ . 958620)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 958762)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 958918)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 959071)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 959218)]) #@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 (#$ . 959362)]) #@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 (#$ . 959769)]) #@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 (#$ . 960115)]) #@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 (#$ . 960471)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'UnregistrationParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:unregisterations) nil lsp-keyword->string alist-get ((:unregisterations . :unregisterations)) error "Unknown key: %s. Available keys: %s" symbol-name (:unregisterations) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 960940)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop UnregistrationParams--pcase-macroexpander edebug-form-spec nil UnregistrationParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:unregistration-params-unregisterations #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "unregisterations"] 4 (#$ . 961958)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-params-unregisterations #[514 "\300\301#\210\207" [puthash "unregisterations"] 6 (#$ . 962121)]) #@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 (#$ . 962281)]) #@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 (#$ . 962597)]) #@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 (#$ . 962852)]) #@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 (#$ . 963160)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WatchKind--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\305\203z\211A\262\242\211A\262\242\305\306\307\305\"\206+\310\311\312!\305#!\313!9\205@?\206@\314\315\312!\"\211\203^\316\317\320\321\322EEEB\262A\262 \266\202 \316\317\323\321\322EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] nil lsp-keyword->string alist-get error "Unknown key: %s. Available keys: %s" symbol-name lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 963518)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WatchKind--pcase-macroexpander edebug-form-spec nil WatchKind pcase-macroexpander] 5) #@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 (#$ . 964421)]) #@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 (#$ . 964859)]) #@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 (#$ . 965236)]) #@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 (#$ . 965610)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WillSaveTextDocumentParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:reason :textDocument) nil lsp-keyword->string alist-get ((:reason . :reason) (:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:reason :text-document) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 966123)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WillSaveTextDocumentParams--pcase-macroexpander edebug-form-spec nil WillSaveTextDocumentParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:will-save-text-document-params-reason #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "reason"] 4 (#$ . 967181)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-will-save-text-document-params-reason #[514 "\300\301#\210\207" [puthash "reason"] 6 (#$ . 967333)]) #@15 (fn OBJECT) (defalias 'lsp:will-save-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 967482)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-will-save-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 967647)]) #@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 (#$ . 967809)]) #@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 (#$ . 968173)]) #@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 (#$ . 968476)]) #@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 (#$ . 968812)]) #@32 (fn &rest PROPERTY-BINDINGS) (defalias 'WorkspaceSymbolParams--pcase-macroexpander #[128 "\300\301\302\303\304\305\"\306\203z\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht\?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains\? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:query) nil lsp-keyword->string alist-get ((:query . :query)) error "Unknown key: %s. Available keys: %s" symbol-name (:query) lsp-keyword->symbol s-starts-with\? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 969239)]) (byte-code "\300\301\302\303#\300\304\305\301#\303\207" [define-symbol-prop WorkspaceSymbolParams--pcase-macroexpander edebug-form-spec nil WorkspaceSymbolParams pcase-macroexpander] 5) #@15 (fn OBJECT) (defalias 'lsp:workspace-symbol-params-query #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "query"] 4 (#$ . 970216)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-symbol-params-query #[514 "\300\301#\210\207" [puthash "query"] 6 (#$ . 970359)]) (provide 'lsp-protocol)