;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@\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 (#$ . 164707)]) (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 (#$ . 166035)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-method-name #[514 "\300\301#\210\207" [puthash "MethodName"] 6 (#$ . 166195)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-outcome #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "Outcome"] 4 (#$ . 166352)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-outcome #[514 "\300\301#\210\207" [puthash "Outcome"] 6 (#$ . 166505)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-error-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ErrorMessage"] 4 (#$ . 166655)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-error-message #[514 "\300\301#\210\207" [puthash "ErrorMessage"] 6 (#$ . 166819)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-error-stack-trace #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ErrorStackTrace"] 4 (#$ . 166980)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-error-stack-trace #[514 "\300\301#\210\207" [puthash "ErrorStackTrace"] 6 (#$ . 167151)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-standard-output #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "StandardOutput"] 4 (#$ . 167319)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-standard-output #[514 "\300\301#\210\207" [puthash "StandardOutput"] 6 (#$ . 167487)]) #@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-standard-error #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "StandardError"] 4 (#$ . 167652)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-standard-error #[514 "\300\301#\210\207" [puthash "StandardError"] 6 (#$ . 167818)]) #@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 (#$ . 167981)]) #@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 (#$ . 168413)]) #@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 (#$ . 168784)]) #@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 (#$ . 169141)]) #@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 (#$ . 169669)]) (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 (#$ . 170684)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-args #[514 "\300\301#\210\207" [puthash "args"] 6 (#$ . 170809)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-binary #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "binary"] 4 (#$ . 170931)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-binary #[514 "\300\301#\210\207" [puthash "binary"] 6 (#$ . 171060)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-env #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "env"] 4 (#$ . 171186)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-env #[514 "\300\301#\210\207" [puthash "env"] 6 (#$ . 171309)]) #@15 (fn OBJECT) (defalias 'lsp:rls-cmd-cwd #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cwd"] 4 (#$ . 171429)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-cwd #[514 "\300\301#\210\207" [puthash "cwd"] 6 (#$ . 171552)]) (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 (#$ . 171884)]) #@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 (#$ . 172292)]) #@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 (#$ . 172639)]) #@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 (#$ . 173002)]) #@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 (#$ . 173473)]) (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 (#$ . 174519)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-analyzer-status-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 174690)]) #@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 (#$ . 174858)]) #@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 (#$ . 175302)]) #@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 (#$ . 175685)]) #@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 (#$ . 176044)]) #@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 (#$ . 176563)]) (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 (#$ . 177626)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-syntax-tree-params-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 177780)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-syntax-tree-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 177931)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-syntax-tree-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 178098)]) #@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 (#$ . 178262)]) #@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 (#$ . 178713)]) #@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 (#$ . 179103)]) #@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 (#$ . 179484)]) #@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 (#$ . 180008)]) (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 (#$ . 181089)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expand-macro-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 181257)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expand-macro-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 181422)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expand-macro-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 181581)]) #@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 (#$ . 181737)]) #@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 (#$ . 182153)]) #@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 (#$ . 182508)]) #@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 (#$ . 182870)]) #@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 (#$ . 183358)]) (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 (#$ . 184397)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expanded-macro-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 184543)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expanded-macro-expansion #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "expansion"] 4 (#$ . 184686)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expanded-macro-expansion #[514 "\300\301#\210\207" [puthash "expansion"] 6 (#$ . 184842)]) #@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 (#$ . 184995)]) #@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 (#$ . 185452)]) #@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 (#$ . 185848)]) #@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 (#$ . 186233)]) #@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 (#$ . 186763)]) (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 (#$ . 187854)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-matching-brace-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 188024)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-matching-brace-params-positions #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "positions"] 4 (#$ . 188191)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-matching-brace-params-positions #[514 "\300\301#\210\207" [puthash "positions"] 6 (#$ . 188354)]) #@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 (#$ . 188514)]) #@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 (#$ . 188921)]) #@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 (#$ . 189267)]) #@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 (#$ . 189630)]) #@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 (#$ . 190101)]) (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 (#$ . 191144)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-open-cargo-toml-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 191315)]) #@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 (#$ . 191483)]) #@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 (#$ . 191935)]) #@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 (#$ . 192326)]) #@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 (#$ . 192710)]) #@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 (#$ . 193236)]) (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 (#$ . 194329)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-resoved-code-action-params-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 194483)]) #@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 (#$ . 194634)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-resoved-code-action-params-code-action-params #[514 "\300\301#\210\207" [puthash "codeActionParams"] 6 (#$ . 194818)]) #@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 (#$ . 194999)]) #@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 (#$ . 195440)]) #@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 (#$ . 195820)]) #@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 (#$ . 196195)]) #@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 (#$ . 196709)]) (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 (#$ . 197776)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-join-lines-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 197942)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-join-lines-params-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "ranges"] 4 (#$ . 198105)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-join-lines-params-ranges #[514 "\300\301#\210\207" [puthash "ranges"] 6 (#$ . 198258)]) #@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 (#$ . 198408)]) #@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 (#$ . 198863)]) #@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 (#$ . 199257)]) #@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 (#$ . 199614)]) #@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 (#$ . 200143)]) (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 (#$ . 201212)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnables-params-position\? #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 201370)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnables-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 201525)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnables-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 201690)]) #@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 (#$ . 201852)]) #@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 (#$ . 202325)]) #@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 (#$ . 202737)]) #@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 (#$ . 203098)]) #@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 (#$ . 203669)]) (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 (#$ . 204743)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-location\? #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 204893)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 205040)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 205182)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 205321)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 205461)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "args"] 4 (#$ . 205598)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args #[514 "\300\301#\210\207" [puthash "args"] 6 (#$ . 205738)]) #@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 (#$ . 205875)]) #@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 (#$ . 206409)]) #@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 (#$ . 206882)]) #@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 (#$ . 207263)]) #@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 (#$ . 207884)]) (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 (#$ . 209019)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-workspace-root\? #[514 "\300\301#\210\207" [puthash "workspaceRoot"] 6 (#$ . 209185)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-cargo-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "cargoArgs"] 4 (#$ . 209348)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-cargo-args #[514 "\300\301#\210\207" [puthash "cargoArgs"] 6 (#$ . 209504)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-executable-args #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executableArgs"] 4 (#$ . 209657)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-executable-args #[514 "\300\301#\210\207" [puthash "executableArgs"] 6 (#$ . 209823)]) #@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 (#$ . 209986)]) #@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 (#$ . 210438)]) #@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 (#$ . 210829)]) #@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 (#$ . 211211)]) #@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 (#$ . 211736)]) (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 (#$ . 212820)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 212989)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-related-tests-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 213155)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 213315)]) #@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 (#$ . 213472)]) #@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 (#$ . 213853)]) #@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 (#$ . 214173)]) #@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 (#$ . 214519)]) #@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 (#$ . 214962)]) (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 (#$ . 215966)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-runnable #[514 "\300\301#\210\207" [puthash "runnable"] 6 (#$ . 216119)]) #@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 (#$ . 216269)]) #@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 (#$ . 216697)]) #@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 (#$ . 217064)]) #@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 (#$ . 217429)]) #@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 (#$ . 217942)]) (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 (#$ . 218985)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 219129)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hint-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 219270)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 219414)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-inlay-hint-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 219555)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hint-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 219697)]) #@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 (#$ . 219836)]) #@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 (#$ . 220240)]) #@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 (#$ . 220583)]) #@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 (#$ . 220942)]) #@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 (#$ . 221409)]) (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 (#$ . 222443)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-inlay-hints-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 222610)]) #@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 (#$ . 222774)]) #@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 (#$ . 223193)]) #@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 (#$ . 223551)]) #@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 (#$ . 223911)]) #@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 (#$ . 224402)]) (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 (#$ . 225435)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-ssr-params-query #[514 "\300\301#\210\207" [puthash "query"] 6 (#$ . 225579)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-ssr-params-parse-only #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parseOnly"] 4 (#$ . 225720)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-ssr-params-parse-only #[514 "\300\301#\210\207" [puthash "parseOnly"] 6 (#$ . 225873)]) #@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 (#$ . 226023)]) #@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 (#$ . 226533)]) #@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 (#$ . 226982)]) #@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 (#$ . 227340)]) #@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 (#$ . 227951)]) (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 (#$ . 229056)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 229212)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 229365)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 229517)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 229666)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 229812)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 229955)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 230105)]) #@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 (#$ . 230252)]) #@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 (#$ . 230677)]) #@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 (#$ . 231041)]) #@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 (#$ . 231392)]) #@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 (#$ . 231892)]) (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 (#$ . 232937)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-group-title\? #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 233091)]) #@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-group-commands #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commands"] 4 (#$ . 233242)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-group-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 233400)]) (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 (#$ . 239468)]) #@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 (#$ . 239901)]) #@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 (#$ . 240273)]) #@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 (#$ . 240598)]) #@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 (#$ . 241096)]) (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 (#$ . 242124)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 242302)]) #@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 (#$ . 242477)]) #@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 (#$ . 243066)]) #@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 (#$ . 243594)]) #@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 (#$ . 243996)]) #@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 (#$ . 244726)]) (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 (#$ . 245899)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 246042)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 246182)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 246321)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 246457)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 246594)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 246728)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 246865)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 246999)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 247138)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 247274)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 247432)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 247587)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 247722)]) #@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 (#$ . 247854)]) #@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 (#$ . 248374)]) #@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 (#$ . 248833)]) #@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 (#$ . 249150)]) #@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 (#$ . 249761)]) (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 (#$ . 250838)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-experimental\? #[514 "\300\301#\210\207" [puthash "experimental"] 6 (#$ . 250993)]) #@15 (fn OBJECT) (defalias 'lsp:client-capabilities-text-document\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 251145)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-text-document\? #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 251301)]) #@15 (fn OBJECT) (defalias 'lsp:client-capabilities-workspace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspace"] 4 (#$ . 251454)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-workspace\? #[514 "\300\301#\210\207" [puthash "workspace"] 6 (#$ . 251603)]) #@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 (#$ . 251749)]) #@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 (#$ . 252146)]) #@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 (#$ . 252482)]) #@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 (#$ . 252804)]) #@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 (#$ . 253275)]) (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 (#$ . 254250)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-info-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 254387)]) #@15 (fn OBJECT) (defalias 'lsp:client-info-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 254521)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-info-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 254650)]) #@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 (#$ . 254776)]) #@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 (#$ . 255569)]) #@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 (#$ . 256301)]) #@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 (#$ . 256624)]) #@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 (#$ . 257538)]) (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 (#$ . 258828)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-code-action-literal-support\? #[514 "\300\301#\210\207" [puthash "codeActionLiteralSupport"] 6 (#$ . 259015)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 259199)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 259374)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-is-preferred-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isPreferredSupport"] 4 (#$ . 259546)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-is-preferred-support\? #[514 "\300\301#\210\207" [puthash "isPreferredSupport"] 6 (#$ . 259720)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-data-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dataSupport"] 4 (#$ . 259891)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-data-support\? #[514 "\300\301#\210\207" [puthash "dataSupport"] 6 (#$ . 260050)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-resolve-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveSupport"] 4 (#$ . 260206)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-resolve-support\? #[514 "\300\301#\210\207" [puthash "resolveSupport"] 6 (#$ . 260371)]) #@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 (#$ . 260533)]) #@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 (#$ . 260953)]) #@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 (#$ . 261312)]) #@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 (#$ . 261656)]) #@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 (#$ . 262151)]) (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 (#$ . 263166)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-context-only\? #[514 "\300\301#\210\207" [puthash "only"] 6 (#$ . 263305)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-context-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 263441)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-context-diagnostics #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 263592)]) #@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 (#$ . 263740)]) #@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 (#$ . 264124)]) #@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 (#$ . 264447)]) #@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 (#$ . 264795)]) #@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 (#$ . 265243)]) (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 (#$ . 266249)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-kind-capabilities-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 266405)]) #@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 (#$ . 266558)]) #@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 (#$ . 266985)]) #@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 (#$ . 267351)]) #@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 (#$ . 267689)]) #@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 (#$ . 268183)]) (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 (#$ . 269231)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-literal-support-capabilities-code-action-kind\? #[514 "\300\301#\210\207" [puthash "codeActionKind"] 6 (#$ . 269413)]) #@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 (#$ . 269592)]) #@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 (#$ . 270087)]) #@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 (#$ . 270521)]) #@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 (#$ . 270838)]) #@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 (#$ . 271410)]) (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 (#$ . 272465)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-options-code-action-kinds\? #[514 "\300\301#\210\207" [puthash "codeActionKinds"] 6 (#$ . 272628)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 272788)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 272950)]) #@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 (#$ . 273109)]) #@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 (#$ . 273537)]) #@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 (#$ . 273904)]) #@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 (#$ . 274224)]) #@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 (#$ . 274717)]) (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 (#$ . 275730)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 275903)]) #@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 (#$ . 276073)]) #@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 (#$ . 276474)]) #@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 (#$ . 276814)]) #@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 (#$ . 277164)]) #@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 (#$ . 277628)]) (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 (#$ . 278629)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-options-resolve-provider #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 278787)]) #@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 (#$ . 278942)]) #@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 (#$ . 279376)]) #@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 (#$ . 279749)]) #@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 (#$ . 280106)]) #@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 (#$ . 280636)]) (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 (#$ . 281649)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-red #[514 "\300\301#\210\207" [puthash "red"] 6 (#$ . 281770)]) #@15 (fn OBJECT) (defalias 'lsp:color-green #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "green"] 4 (#$ . 281888)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-green #[514 "\300\301#\210\207" [puthash "green"] 6 (#$ . 282013)]) #@15 (fn OBJECT) (defalias 'lsp:color-blue #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "blue"] 4 (#$ . 282135)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-blue #[514 "\300\301#\210\207" [puthash "blue"] 6 (#$ . 282258)]) #@15 (fn OBJECT) (defalias 'lsp:color-alpha #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "alpha"] 4 (#$ . 282378)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-alpha #[514 "\300\301#\210\207" [puthash "alpha"] 6 (#$ . 282503)]) #@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 (#$ . 282625)]) #@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 (#$ . 283058)]) #@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 (#$ . 283430)]) #@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 (#$ . 283755)]) #@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 (#$ . 284253)]) (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 (#$ . 285281)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 285459)]) #@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 (#$ . 285634)]) #@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 (#$ . 286078)]) #@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 (#$ . 286461)]) #@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 (#$ . 286781)]) #@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 (#$ . 287302)]) (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 (#$ . 288326)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 288493)]) #@15 (fn OBJECT) (defalias 'lsp:color-provider-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 288657)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 288795)]) #@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 (#$ . 288930)]) #@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 (#$ . 289330)]) #@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 (#$ . 289669)]) #@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 (#$ . 290019)]) #@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 (#$ . 290491)]) (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 (#$ . 291498)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-information-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 291638)]) #@15 (fn OBJECT) (defalias 'lsp:coloring-information-styles #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "styles"] 4 (#$ . 291775)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-information-styles #[514 "\300\301#\210\207" [puthash "styles"] 6 (#$ . 291917)]) #@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 (#$ . 292056)]) #@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 (#$ . 292502)]) #@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 (#$ . 292887)]) #@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 (#$ . 293226)]) #@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 (#$ . 293758)]) (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 (#$ . 294774)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 294911)]) #@15 (fn OBJECT) (defalias 'lsp:command-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 295045)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 295172)]) #@15 (fn OBJECT) (defalias 'lsp:command-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 295296)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 295427)]) #@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 (#$ . 295555)]) #@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 (#$ . 296237)]) #@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 (#$ . 296858)]) #@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 (#$ . 297180)]) #@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 (#$ . 297967)]) (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 (#$ . 299174)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-completion-item\? #[514 "\300\301#\210\207" [puthash "completionItem"] 6 (#$ . 299338)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-completion-item-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completionItemKind"] 4 (#$ . 299499)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-completion-item-kind\? #[514 "\300\301#\210\207" [puthash "completionItemKind"] 6 (#$ . 299672)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-context-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contextSupport"] 4 (#$ . 299842)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-context-support\? #[514 "\300\301#\210\207" [puthash "contextSupport"] 6 (#$ . 300006)]) #@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 300167)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 300341)]) #@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 (#$ . 300512)]) #@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 (#$ . 300986)]) #@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 (#$ . 301399)]) #@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 (#$ . 301742)]) #@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 (#$ . 302290)]) (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 (#$ . 303345)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-context-trigger-character\? #[514 "\300\301#\210\207" [puthash "triggerCharacter"] 6 (#$ . 303508)]) #@15 (fn OBJECT) (defalias 'lsp:completion-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerKind"] 4 (#$ . 303668)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 303819)]) #@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 (#$ . 303967)]) #@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 (#$ . 305317)]) #@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 (#$ . 306606)]) #@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 (#$ . 306935)]) #@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 (#$ . 308599)]) (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 (#$ . 310304)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-additional-text-edits\? #[514 "\300\301#\210\207" [puthash "additionalTextEdits"] 6 (#$ . 310471)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 310635)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 310776)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-commit-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "commitCharacters"] 4 (#$ . 310914)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-commit-characters\? #[514 "\300\301#\210\207" [puthash "commitCharacters"] 6 (#$ . 311074)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 311231)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 311366)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 311498)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 311645)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 311789)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 311928)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-documentation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentation"] 4 (#$ . 312064)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 312217)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-filter-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "filterText"] 4 (#$ . 312367)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-filter-text\? #[514 "\300\301#\210\207" [puthash "filterText"] 6 (#$ . 312515)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertText"] 4 (#$ . 312660)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text\? #[514 "\300\301#\210\207" [puthash "insertText"] 6 (#$ . 312808)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertTextFormat"] 4 (#$ . 312953)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text-format\? #[514 "\300\301#\210\207" [puthash "insertTextFormat"] 6 (#$ . 313114)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text-mode\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertTextMode"] 4 (#$ . 313272)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text-mode\? #[514 "\300\301#\210\207" [puthash "insertTextMode"] 6 (#$ . 313429)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 313583)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 313718)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-preselect\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "preselect"] 4 (#$ . 313850)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-preselect\? #[514 "\300\301#\210\207" [puthash "preselect"] 6 (#$ . 313995)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-sort-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "sortText"] 4 (#$ . 314137)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-sort-text\? #[514 "\300\301#\210\207" [puthash "sortText"] 6 (#$ . 314281)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 314422)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 314557)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-text-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textEdit"] 4 (#$ . 314689)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-text-edit\? #[514 "\300\301#\210\207" [puthash "textEdit"] 6 (#$ . 314833)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-score\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "score"] 4 (#$ . 314974)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-score\? #[514 "\300\301#\210\207" [puthash "score"] 6 (#$ . 315111)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 315245)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 315380)]) #@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 (#$ . 315512)]) #@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 (#$ . 316557)]) #@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 (#$ . 317541)]) #@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 (#$ . 317868)]) #@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 (#$ . 319078)]) (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 (#$ . 320567)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-commit-characters-support\? #[514 "\300\301#\210\207" [puthash "commitCharactersSupport"] 6 (#$ . 320755)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-deprecated-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecatedSupport"] 4 (#$ . 320940)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-deprecated-support\? #[514 "\300\301#\210\207" [puthash "deprecatedSupport"] 6 (#$ . 321115)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-documentation-format\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentationFormat"] 4 (#$ . 321287)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-documentation-format\? #[514 "\300\301#\210\207" [puthash "documentationFormat"] 6 (#$ . 321466)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-preselect-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "preselectSupport"] 4 (#$ . 321642)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-preselect-support\? #[514 "\300\301#\210\207" [puthash "preselectSupport"] 6 (#$ . 321815)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-snippet-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "snippetSupport"] 4 (#$ . 321985)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-snippet-support\? #[514 "\300\301#\210\207" [puthash "snippetSupport"] 6 (#$ . 322154)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-tag-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tagSupport"] 4 (#$ . 322320)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-tag-support\? #[514 "\300\301#\210\207" [puthash "tagSupport"] 6 (#$ . 322481)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-insert-replace-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertReplaceSupport"] 4 (#$ . 322639)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-insert-replace-support\? #[514 "\300\301#\210\207" [puthash "insertReplaceSupport"] 6 (#$ . 322821)]) #@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-resolve-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveSupport"] 4 (#$ . 323000)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-resolve-support\? #[514 "\300\301#\210\207" [puthash "resolveSupport"] 6 (#$ . 323169)]) #@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 (#$ . 323335)]) #@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 (#$ . 323729)]) #@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 (#$ . 324062)]) #@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 (#$ . 324393)]) #@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 (#$ . 324853)]) (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 (#$ . 325863)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-kind-capabilities-value-set\? #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 326025)]) #@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 (#$ . 326184)]) #@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 (#$ . 326578)]) #@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 (#$ . 326911)]) #@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 (#$ . 327270)]) #@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 (#$ . 327729)]) (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 (#$ . 328765)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-tag-support-capabilities-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 328932)]) #@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 (#$ . 329096)]) #@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 (#$ . 329696)]) #@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 (#$ . 330235)]) #@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 (#$ . 330552)]) #@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 (#$ . 331243)]) (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 (#$ . 332377)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 332538)]) #@15 (fn OBJECT) (defalias 'lsp:completion-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 332696)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 332861)]) #@15 (fn OBJECT) (defalias 'lsp:completion-options-all-commit-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "allCommitCharacters"] 4 (#$ . 333023)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-all-commit-characters\? #[514 "\300\301#\210\207" [puthash "allCommitCharacters"] 6 (#$ . 333193)]) #@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 (#$ . 333360)]) #@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 (#$ . 333789)]) #@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 (#$ . 334157)]) #@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 (#$ . 334473)]) #@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 (#$ . 334978)]) (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 (#$ . 335984)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-item-scope-uri\? #[514 "\300\301#\210\207" [puthash "scopeUri"] 6 (#$ . 336131)]) #@15 (fn OBJECT) (defalias 'lsp:configuration-item-section\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "section"] 4 (#$ . 336275)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-item-section\? #[514 "\300\301#\210\207" [puthash "section"] 6 (#$ . 336419)]) #@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 (#$ . 336560)]) #@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 (#$ . 337024)]) #@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 (#$ . 337427)]) #@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 (#$ . 337744)]) #@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 (#$ . 338285)]) (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 (#$ . 339317)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options-ignore-if-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfExists"] 6 (#$ . 339478)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-options-overwrite\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "overwrite"] 4 (#$ . 339636)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options-overwrite\? #[514 "\300\301#\210\207" [puthash "overwrite"] 6 (#$ . 339785)]) #@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 (#$ . 339931)]) #@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 (#$ . 340429)]) #@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 (#$ . 340866)]) #@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 (#$ . 341188)]) #@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 (#$ . 341762)]) (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 (#$ . 342833)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 343008)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 343180)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 343339)]) #@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 (#$ . 343495)]) #@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 (#$ . 343992)]) #@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 (#$ . 344428)]) #@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 (#$ . 344749)]) #@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 (#$ . 345322)]) (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 (#$ . 346390)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 346564)]) #@15 (fn OBJECT) (defalias 'lsp:definition-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 346735)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 346893)]) #@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 (#$ . 347048)]) #@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 (#$ . 347527)]) #@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 (#$ . 347945)]) #@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 (#$ . 348262)]) #@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 (#$ . 348818)]) (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 (#$ . 349861)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options-ignore-if-not-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfNotExists"] 6 (#$ . 350029)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-options-recursive\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "recursive"] 4 (#$ . 350194)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options-recursive\? #[514 "\300\301#\210\207" [puthash "recursive"] 6 (#$ . 350343)]) #@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 (#$ . 350489)]) #@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 (#$ . 351137)]) #@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 (#$ . 351724)]) #@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 (#$ . 352067)]) #@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 (#$ . 352860)]) (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 (#$ . 354036)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-code\? #[514 "\300\301#\210\207" [puthash "code"] 6 (#$ . 354166)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "relatedInformation"] 4 (#$ . 354293)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information\? #[514 "\300\301#\210\207" [puthash "relatedInformation"] 6 (#$ . 354452)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-severity\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "severity"] 4 (#$ . 354608)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-severity\? #[514 "\300\301#\210\207" [puthash "severity"] 6 (#$ . 354746)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-source\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "source"] 4 (#$ . 354881)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-source\? #[514 "\300\301#\210\207" [puthash "source"] 6 (#$ . 355015)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-tags\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tags"] 4 (#$ . 355146)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-tags\? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 355276)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 355403)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 355533)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 355660)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 355794)]) #@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 (#$ . 355925)]) #@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 (#$ . 356350)]) #@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 (#$ . 356714)]) #@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 (#$ . 357082)]) #@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 (#$ . 357580)]) (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 (#$ . 358630)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information-location #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 358786)]) #@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 358939)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 359093)]) #@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 (#$ . 359244)]) #@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 (#$ . 359623)]) #@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 (#$ . 359941)]) #@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 (#$ . 360283)]) #@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 (#$ . 360725)]) (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 (#$ . 361716)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostics-tag-support-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 361866)]) #@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 (#$ . 362013)]) #@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 (#$ . 362455)]) #@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 (#$ . 362836)]) #@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 (#$ . 363171)]) #@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 (#$ . 363679)]) (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 (#$ . 364734)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-configuration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 364922)]) #@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 (#$ . 365107)]) #@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 (#$ . 365548)]) #@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 (#$ . 365928)]) #@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 (#$ . 366263)]) #@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 (#$ . 366771)]) (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 (#$ . 367823)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 368011)]) #@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 (#$ . 368196)]) #@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 (#$ . 368661)]) #@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 (#$ . 369065)]) #@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 (#$ . 369378)]) #@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 (#$ . 369934)]) (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 (#$ . 370961)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-language\? #[514 "\300\301#\210\207" [puthash "language"] 6 (#$ . 371104)]) #@15 (fn OBJECT) (defalias 'lsp:document-filter-pattern\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "pattern"] 4 (#$ . 371244)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-pattern\? #[514 "\300\301#\210\207" [puthash "pattern"] 6 (#$ . 371385)]) #@15 (fn OBJECT) (defalias 'lsp:document-filter-scheme\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "scheme"] 4 (#$ . 371523)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-scheme\? #[514 "\300\301#\210\207" [puthash "scheme"] 6 (#$ . 371662)]) #@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 (#$ . 371798)]) #@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 (#$ . 372235)]) #@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 (#$ . 372611)]) #@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 (#$ . 372940)]) #@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 (#$ . 373442)]) (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 (#$ . 374482)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 374664)]) #@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 (#$ . 374843)]) #@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 (#$ . 375354)]) #@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 (#$ . 375804)]) #@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 (#$ . 376128)]) #@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 (#$ . 376716)]) (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 (#$ . 377799)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 377976)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-capabilities-tooltip-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltipSupport"] 4 (#$ . 378150)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-capabilities-tooltip-support\? #[514 "\300\301#\210\207" [puthash "tooltipSupport"] 6 (#$ . 378317)]) #@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 (#$ . 378481)]) #@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 (#$ . 378892)]) #@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 (#$ . 379242)]) #@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 (#$ . 379561)]) #@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 (#$ . 380037)]) (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 (#$ . 381035)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 381199)]) #@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 (#$ . 381360)]) #@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 (#$ . 381910)]) #@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 (#$ . 382399)]) #@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 (#$ . 382779)]) #@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 (#$ . 383406)]) (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 (#$ . 384559)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-options-more-trigger-character\? #[514 "\300\301#\210\207" [puthash "moreTriggerCharacter"] 6 (#$ . 384748)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-options-first-trigger-character #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "firstTriggerCharacter"] 4 (#$ . 384934)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-options-first-trigger-character #[514 "\300\301#\210\207" [puthash "firstTriggerCharacter"] 6 (#$ . 385123)]) #@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 (#$ . 385309)]) #@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 (#$ . 385945)]) #@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 (#$ . 386520)]) #@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 (#$ . 386908)]) #@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 (#$ . 387686)]) (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 (#$ . 388882)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-children\? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 389025)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 389165)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 389312)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 389456)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 389595)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 389731)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 389864)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 389994)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 390127)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 390257)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 390392)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 390524)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 390678)]) #@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 (#$ . 390829)]) #@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 (#$ . 391485)]) #@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 (#$ . 392080)]) #@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 (#$ . 392407)]) #@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 (#$ . 393155)]) (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 (#$ . 394351)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 394530)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-hierarchical-document-symbol-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hierarchicalDocumentSymbolSupport"] 4 (#$ . 394706)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-hierarchical-document-symbol-support\? #[514 "\300\301#\210\207" [puthash "hierarchicalDocumentSymbolSupport"] 6 (#$ . 394915)]) #@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-symbol-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbolKind"] 4 (#$ . 395121)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-symbol-kind\? #[514 "\300\301#\210\207" [puthash "symbolKind"] 6 (#$ . 395282)]) #@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 (#$ . 395440)]) #@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 (#$ . 395874)]) #@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 (#$ . 396247)]) #@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 (#$ . 396573)]) #@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 (#$ . 397072)]) (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 (#$ . 398103)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 398282)]) #@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 (#$ . 398458)]) #@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 (#$ . 398834)]) #@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 (#$ . 399149)]) #@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 (#$ . 399491)]) #@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 (#$ . 399930)]) (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 (#$ . 400919)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-options-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 401068)]) #@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 (#$ . 401214)]) #@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 (#$ . 401588)]) #@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 (#$ . 401901)]) #@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 (#$ . 402233)]) #@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 (#$ . 402679)]) (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 (#$ . 403640)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-event-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 403768)]) #@15 (fn OBJECT) (defalias 'lsp:file-event-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 403893)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-event-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 404019)]) #@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 (#$ . 404142)]) #@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 (#$ . 404565)]) #@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 (#$ . 404927)]) #@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 (#$ . 405271)]) #@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 (#$ . 405769)]) (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 (#$ . 406786)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-system-watcher-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 406925)]) #@15 (fn OBJECT) (defalias 'lsp:file-system-watcher-glob-pattern #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "globPattern"] 4 (#$ . 407061)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-system-watcher-glob-pattern #[514 "\300\301#\210\207" [puthash "globPattern"] 6 (#$ . 407213)]) #@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 (#$ . 407362)]) #@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 (#$ . 407941)]) #@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 (#$ . 408459)]) #@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 (#$ . 408784)]) #@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 (#$ . 409455)]) (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 (#$ . 410589)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 410766)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-line-folding-only\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "lineFoldingOnly"] 4 (#$ . 410940)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-line-folding-only\? #[514 "\300\301#\210\207" [puthash "lineFoldingOnly"] 6 (#$ . 411110)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-range-limit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeLimit"] 4 (#$ . 411277)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-range-limit\? #[514 "\300\301#\210\207" [puthash "rangeLimit"] 6 (#$ . 411436)]) #@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 (#$ . 411592)]) #@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 (#$ . 412043)]) #@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 (#$ . 412433)]) #@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 (#$ . 412761)]) #@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 (#$ . 413290)]) (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 (#$ . 414335)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-provider-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 414510)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-provider-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 414682)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-provider-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 414828)]) #@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 (#$ . 414971)]) #@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 (#$ . 415401)]) #@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 (#$ . 415770)]) #@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 (#$ . 416091)]) #@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 (#$ . 416585)]) (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 (#$ . 417604)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 417778)]) #@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 (#$ . 417949)]) #@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 (#$ . 418685)]) #@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 (#$ . 419360)]) #@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 (#$ . 419725)]) #@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 (#$ . 420577)]) (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 (#$ . 421839)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-trim-trailing-whitespace\? #[514 "\300\301#\210\207" [puthash "trimTrailingWhitespace"] 6 (#$ . 422015)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-insert-final-newline\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertFinalNewline"] 4 (#$ . 422188)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-insert-final-newline\? #[514 "\300\301#\210\207" [puthash "insertFinalNewline"] 6 (#$ . 422356)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-trim-final-newlines\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "trimFinalNewlines"] 4 (#$ . 422521)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-trim-final-newlines\? #[514 "\300\301#\210\207" [puthash "trimFinalNewlines"] 6 (#$ . 422687)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-tab-size #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tabSize"] 4 (#$ . 422850)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-tab-size #[514 "\300\301#\210\207" [puthash "tabSize"] 6 (#$ . 422993)]) #@15 (fn OBJECT) (defalias 'lsp:formatting-options-insert-spaces #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insertSpaces"] 4 (#$ . 423133)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-insert-spaces #[514 "\300\301#\210\207" [puthash "insertSpaces"] 6 (#$ . 423286)]) #@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 (#$ . 423436)]) #@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 (#$ . 423936)]) #@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 (#$ . 424375)]) #@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 (#$ . 424691)]) #@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 (#$ . 425267)]) (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 (#$ . 426326)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-capabilities-content-format\? #[514 "\300\301#\210\207" [puthash "contentFormat"] 6 (#$ . 426483)]) #@15 (fn OBJECT) (defalias 'lsp:hover-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 426637)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 426806)]) #@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 (#$ . 426972)]) #@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 (#$ . 427473)]) #@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 (#$ . 427913)]) #@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 (#$ . 428238)]) #@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 (#$ . 428815)]) (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 (#$ . 429895)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 430073)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 430248)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 430410)]) #@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 (#$ . 430569)]) #@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 (#$ . 430946)]) #@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 (#$ . 431262)]) #@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 (#$ . 431594)]) #@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 (#$ . 432042)]) (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 (#$ . 433004)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 433132)]) #@15 (fn OBJECT) (defalias 'lsp:location-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 433257)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 433381)]) #@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 (#$ . 433502)]) #@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 (#$ . 433903)]) #@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 (#$ . 434243)]) #@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 (#$ . 434590)]) #@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 (#$ . 435063)]) (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 (#$ . 436057)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-marked-string-language #[514 "\300\301#\210\207" [puthash "language"] 6 (#$ . 436196)]) #@15 (fn OBJECT) (defalias 'lsp:marked-string-value #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "value"] 4 (#$ . 436332)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-marked-string-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 436465)]) #@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 (#$ . 436595)]) #@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 (#$ . 436981)]) #@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 (#$ . 437306)]) #@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 (#$ . 437646)]) #@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 (#$ . 438104)]) (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 (#$ . 439085)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-markup-content-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 439217)]) #@15 (fn OBJECT) (defalias 'lsp:markup-content-value #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "value"] 4 (#$ . 439346)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-markup-content-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 439480)]) #@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 (#$ . 439611)]) #@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 (#$ . 439971)]) #@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 (#$ . 440270)]) #@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 (#$ . 440602)]) #@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 (#$ . 441025)]) (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 (#$ . 441990)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-action-item-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 442129)]) #@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 (#$ . 442265)]) #@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 (#$ . 442701)]) #@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 (#$ . 443076)]) #@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 (#$ . 443405)]) #@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 (#$ . 443907)]) (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 (#$ . 444944)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-on-type-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 445126)]) #@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 (#$ . 445305)]) #@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 (#$ . 445740)]) #@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 (#$ . 446114)]) #@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 (#$ . 446448)]) #@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 (#$ . 446957)]) (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 (#$ . 447984)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 448143)]) #@15 (fn OBJECT) (defalias 'lsp:parameter-information-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 448299)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 448440)]) #@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 (#$ . 448578)]) #@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 (#$ . 449017)]) #@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 (#$ . 449395)]) #@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 (#$ . 449727)]) #@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 (#$ . 450231)]) (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 (#$ . 451279)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-capabilities-label-offset-support\? #[514 "\300\301#\210\207" [puthash "labelOffsetSupport"] 6 (#$ . 451463)]) #@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 (#$ . 451644)]) #@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 (#$ . 452041)]) #@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 (#$ . 452377)]) #@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 (#$ . 452719)]) #@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 (#$ . 453187)]) (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 (#$ . 454169)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-position-character #[514 "\300\301#\210\207" [puthash "character"] 6 (#$ . 454305)]) #@15 (fn OBJECT) (defalias 'lsp:position-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "line"] 4 (#$ . 454438)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-position-line #[514 "\300\301#\210\207" [puthash "line"] 6 (#$ . 454564)]) #@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 (#$ . 454687)]) #@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 (#$ . 455261)]) #@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 (#$ . 455774)]) #@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 (#$ . 456105)]) #@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 (#$ . 456771)]) (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 (#$ . 457915)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-related-information\? #[514 "\300\301#\210\207" [puthash "relatedInformation"] 6 (#$ . 458096)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-tag-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tagSupport"] 4 (#$ . 458274)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-tag-support\? #[514 "\300\301#\210\207" [puthash "tagSupport"] 6 (#$ . 458439)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-version-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "versionSupport"] 4 (#$ . 458601)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-version-support\? #[514 "\300\301#\210\207" [puthash "versionSupport"] 6 (#$ . 458774)]) #@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 (#$ . 458944)]) #@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 (#$ . 459318)]) #@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 (#$ . 459631)]) #@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 (#$ . 459960)]) #@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 (#$ . 460405)]) (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 (#$ . 461358)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-start #[514 "\300\301#\210\207" [puthash "start"] 6 (#$ . 461483)]) #@15 (fn OBJECT) (defalias 'lsp:range-end #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "end"] 4 (#$ . 461605)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-end #[514 "\300\301#\210\207" [puthash "end"] 6 (#$ . 461726)]) #@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 (#$ . 461844)]) #@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 (#$ . 462279)]) #@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 (#$ . 462653)]) #@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 (#$ . 462980)]) #@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 (#$ . 463480)]) (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 (#$ . 464514)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-formatting-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 464694)]) #@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 (#$ . 464871)]) #@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 (#$ . 465285)]) #@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 (#$ . 465638)]) #@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 (#$ . 465994)]) #@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 (#$ . 466470)]) (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 (#$ . 467486)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-context-include-declaration #[514 "\300\301#\210\207" [puthash "includeDeclaration"] 6 (#$ . 467650)]) #@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 (#$ . 467811)]) #@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 (#$ . 468241)]) #@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 (#$ . 468610)]) #@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 (#$ . 468931)]) #@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 (#$ . 469425)]) (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 (#$ . 470444)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-references-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 470618)]) #@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 (#$ . 470789)]) #@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 (#$ . 471251)]) #@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 (#$ . 471652)]) #@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 (#$ . 471988)]) #@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 (#$ . 472536)]) (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 (#$ . 473571)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-register-options\? #[514 "\300\301#\210\207" [puthash "registerOptions"] 6 (#$ . 473726)]) #@15 (fn OBJECT) (defalias 'lsp:registration-method #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "method"] 4 (#$ . 473878)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 474012)]) #@15 (fn OBJECT) (defalias 'lsp:registration-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 474143)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 474269)]) #@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 (#$ . 474392)]) #@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 (#$ . 474897)]) #@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 (#$ . 475341)]) #@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 (#$ . 475658)]) #@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 (#$ . 476239)]) (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 (#$ . 477304)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 477474)]) #@15 (fn OBJECT) (defalias 'lsp:rename-capabilities-prepare-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "prepareSupport"] 4 (#$ . 477641)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-capabilities-prepare-support\? #[514 "\300\301#\210\207" [puthash "prepareSupport"] 6 (#$ . 477801)]) #@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 (#$ . 477958)]) #@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 (#$ . 478422)]) #@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 (#$ . 478825)]) #@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 (#$ . 479142)]) #@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 (#$ . 479683)]) (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 (#$ . 480715)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options-ignore-if-exists\? #[514 "\300\301#\210\207" [puthash "ignoreIfExists"] 6 (#$ . 480876)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-options-overwrite\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "overwrite"] 4 (#$ . 481034)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options-overwrite\? #[514 "\300\301#\210\207" [puthash "overwrite"] 6 (#$ . 481183)]) #@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 (#$ . 481329)]) #@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 (#$ . 481847)]) #@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 (#$ . 482304)]) #@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 (#$ . 482616)]) #@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 (#$ . 483225)]) (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 (#$ . 484289)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 484448)]) #@15 (fn OBJECT) (defalias 'lsp:rename-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 484604)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 484734)]) #@15 (fn OBJECT) (defalias 'lsp:rename-options-prepare-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "prepareProvider"] 4 (#$ . 484861)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-prepare-provider\? #[514 "\300\301#\210\207" [puthash "prepareProvider"] 6 (#$ . 485018)]) #@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 (#$ . 485172)]) #@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 (#$ . 485590)]) #@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 (#$ . 485947)]) #@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 (#$ . 486260)]) #@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 (#$ . 486754)]) (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 (#$ . 487745)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-change-current\? #[514 "\300\301#\210\207" [puthash "current"] 6 (#$ . 487886)]) #@15 (fn OBJECT) (defalias 'lsp:resource-change-new-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newUri"] 4 (#$ . 488024)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-change-new-uri\? #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 488164)]) #@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 (#$ . 488301)]) #@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 (#$ . 488657)]) #@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 (#$ . 488952)]) #@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 (#$ . 489281)]) #@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 (#$ . 489699)]) (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 (#$ . 490660)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-operation-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 490796)]) #@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 (#$ . 490929)]) #@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 (#$ . 491316)]) #@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 (#$ . 491642)]) #@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 (#$ . 491952)]) #@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 (#$ . 492403)]) (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 (#$ . 493365)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-save-options-include-text\? #[514 "\300\301#\210\207" [puthash "includeText"] 6 (#$ . 493512)]) #@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 (#$ . 493656)]) #@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 (#$ . 494057)]) #@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 (#$ . 494397)]) #@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 (#$ . 494725)]) #@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 (#$ . 495200)]) (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 (#$ . 496188)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-parent\? #[514 "\300\301#\210\207" [puthash "parent"] 6 (#$ . 496327)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 496463)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 496598)]) #@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 (#$ . 496730)]) #@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 (#$ . 497164)]) #@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 (#$ . 497537)]) #@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 (#$ . 497863)]) #@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 (#$ . 498362)]) (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 (#$ . 499393)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 499572)]) #@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 (#$ . 499748)]) #@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 (#$ . 500192)]) #@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 (#$ . 500575)]) #@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 (#$ . 500907)]) #@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 (#$ . 501416)]) (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 (#$ . 502468)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-capabilities-semantic-highlighting\? #[514 "\300\301#\210\207" [puthash "semanticHighlighting"] 6 (#$ . 502655)]) #@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 (#$ . 502839)]) #@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 (#$ . 503253)]) #@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 (#$ . 503606)]) #@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 (#$ . 503950)]) #@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 (#$ . 504439)]) (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 (#$ . 505474)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-information-tokens\? #[514 "\300\301#\210\207" [puthash "tokens"] 6 (#$ . 505631)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-information-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "line"] 4 (#$ . 505785)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-information-line #[514 "\300\301#\210\207" [puthash "line"] 6 (#$ . 505936)]) #@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 (#$ . 506084)]) #@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 (#$ . 506475)]) #@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 (#$ . 506805)]) #@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 (#$ . 507144)]) #@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 (#$ . 507601)]) (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 (#$ . 508627)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-server-capabilities-scopes\? #[514 "\300\301#\210\207" [puthash "scopes"] 6 (#$ . 508792)]) #@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 (#$ . 508954)]) #@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 (#$ . 512255)]) #@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 (#$ . 515495)]) #@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 (#$ . 515813)]) #@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 (#$ . 519596)]) (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 (#$ . 522760)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-call-hierarchy-provider\? #[514 "\300\301#\210\207" [puthash "callHierarchyProvider"] 6 (#$ . 522935)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-code-action-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeActionProvider"] 4 (#$ . 523107)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-code-action-provider\? #[514 "\300\301#\210\207" [puthash "codeActionProvider"] 6 (#$ . 523276)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-code-lens-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeLensProvider"] 4 (#$ . 523442)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-code-lens-provider\? #[514 "\300\301#\210\207" [puthash "codeLensProvider"] 6 (#$ . 523607)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-color-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "colorProvider"] 4 (#$ . 523769)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-color-provider\? #[514 "\300\301#\210\207" [puthash "colorProvider"] 6 (#$ . 523927)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-completion-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completionProvider"] 4 (#$ . 524082)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-completion-provider\? #[514 "\300\301#\210\207" [puthash "completionProvider"] 6 (#$ . 524250)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-declaration-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "declarationProvider"] 4 (#$ . 524415)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-declaration-provider\? #[514 "\300\301#\210\207" [puthash "declarationProvider"] 6 (#$ . 524585)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-definition-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "definitionProvider"] 4 (#$ . 524752)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-definition-provider\? #[514 "\300\301#\210\207" [puthash "definitionProvider"] 6 (#$ . 524920)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentFormattingProvider"] 4 (#$ . 525085)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentFormattingProvider"] 6 (#$ . 525270)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-highlight-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentHighlightProvider"] 4 (#$ . 525452)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-highlight-provider\? #[514 "\300\301#\210\207" [puthash "documentHighlightProvider"] 6 (#$ . 525635)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-link-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentLinkProvider"] 4 (#$ . 525815)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-link-provider\? #[514 "\300\301#\210\207" [puthash "documentLinkProvider"] 6 (#$ . 525988)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-on-type-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentOnTypeFormattingProvider"] 4 (#$ . 526158)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-on-type-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentOnTypeFormattingProvider"] 6 (#$ . 526357)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-range-formatting-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentRangeFormattingProvider"] 4 (#$ . 526553)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-range-formatting-provider\? #[514 "\300\301#\210\207" [puthash "documentRangeFormattingProvider"] 6 (#$ . 526749)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-symbol-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSymbolProvider"] 4 (#$ . 526942)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-symbol-provider\? #[514 "\300\301#\210\207" [puthash "documentSymbolProvider"] 6 (#$ . 527119)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-execute-command-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executeCommandProvider"] 4 (#$ . 527293)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-execute-command-provider\? #[514 "\300\301#\210\207" [puthash "executeCommandProvider"] 6 (#$ . 527470)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-experimental\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "experimental"] 4 (#$ . 527644)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-experimental\? #[514 "\300\301#\210\207" [puthash "experimental"] 6 (#$ . 527799)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-folding-range-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "foldingRangeProvider"] 4 (#$ . 527951)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-folding-range-provider\? #[514 "\300\301#\210\207" [puthash "foldingRangeProvider"] 6 (#$ . 528124)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-hover-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hoverProvider"] 4 (#$ . 528294)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-hover-provider\? #[514 "\300\301#\210\207" [puthash "hoverProvider"] 6 (#$ . 528452)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-implementation-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "implementationProvider"] 4 (#$ . 528607)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-implementation-provider\? #[514 "\300\301#\210\207" [puthash "implementationProvider"] 6 (#$ . 528783)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-references-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "referencesProvider"] 4 (#$ . 528956)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-references-provider\? #[514 "\300\301#\210\207" [puthash "referencesProvider"] 6 (#$ . 529124)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-rename-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "renameProvider"] 4 (#$ . 529289)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-rename-provider\? #[514 "\300\301#\210\207" [puthash "renameProvider"] 6 (#$ . 529449)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-selection-range-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRangeProvider"] 4 (#$ . 529606)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-selection-range-provider\? #[514 "\300\301#\210\207" [puthash "selectionRangeProvider"] 6 (#$ . 529783)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-semantic-highlighting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticHighlighting"] 4 (#$ . 529957)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-semantic-highlighting\? #[514 "\300\301#\210\207" [puthash "semanticHighlighting"] 6 (#$ . 530129)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-signature-help-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureHelpProvider"] 4 (#$ . 530298)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-signature-help-provider\? #[514 "\300\301#\210\207" [puthash "signatureHelpProvider"] 6 (#$ . 530473)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-text-document-sync\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocumentSync"] 4 (#$ . 530645)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-text-document-sync\? #[514 "\300\301#\210\207" [puthash "textDocumentSync"] 6 (#$ . 530810)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-type-definition-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeDefinitionProvider"] 4 (#$ . 530972)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-type-definition-provider\? #[514 "\300\301#\210\207" [puthash "typeDefinitionProvider"] 6 (#$ . 531149)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-type-hierarchy-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeHierarchyProvider"] 4 (#$ . 531323)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-type-hierarchy-provider\? #[514 "\300\301#\210\207" [puthash "typeHierarchyProvider"] 6 (#$ . 531498)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-workspace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspace"] 4 (#$ . 531670)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-workspace\? #[514 "\300\301#\210\207" [puthash "workspace"] 6 (#$ . 531819)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-workspace-symbol-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceSymbolProvider"] 4 (#$ . 531965)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-workspace-symbol-provider\? #[514 "\300\301#\210\207" [puthash "workspaceSymbolProvider"] 6 (#$ . 532144)]) #@15 (fn OBJECT) (defalias 'lsp:server-capabilities-semantic-tokens-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticTokensProvider"] 4 (#$ . 532320)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-semantic-tokens-provider\? #[514 "\300\301#\210\207" [puthash "semanticTokensProvider"] 6 (#$ . 532497)]) #@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 (#$ . 532671)]) #@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 (#$ . 533068)]) #@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 (#$ . 533404)]) #@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 (#$ . 533726)]) #@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 (#$ . 534197)]) (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 (#$ . 535172)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-info-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 535309)]) #@15 (fn OBJECT) (defalias 'lsp:server-info-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 535443)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-info-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 535572)]) #@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 (#$ . 535698)]) #@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 (#$ . 536238)]) #@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 (#$ . 536717)]) #@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 (#$ . 537054)]) #@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 (#$ . 537683)]) (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 (#$ . 538778)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-active-parameter\? #[514 "\300\301#\210\207" [puthash "activeParameter"] 6 (#$ . 538935)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-active-signature\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "activeSignature"] 4 (#$ . 539089)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-active-signature\? #[514 "\300\301#\210\207" [puthash "activeSignature"] 6 (#$ . 539246)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-signatures #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatures"] 4 (#$ . 539400)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-signatures #[514 "\300\301#\210\207" [puthash "signatures"] 6 (#$ . 539544)]) #@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 (#$ . 539685)]) #@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 (#$ . 540298)]) #@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 (#$ . 540850)]) #@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 (#$ . 541176)]) #@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 (#$ . 541881)]) (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 (#$ . 543043)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-context-support\? #[514 "\300\301#\210\207" [puthash "contextSupport"] 6 (#$ . 543211)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 543376)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 543554)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-signature-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureInformation"] 4 (#$ . 543729)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-signature-information\? #[514 "\300\301#\210\207" [puthash "signatureInformation"] 6 (#$ . 543909)]) #@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 (#$ . 544086)]) #@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 (#$ . 544722)]) #@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 (#$ . 545297)]) #@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 (#$ . 545672)]) #@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 (#$ . 546410)]) (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 (#$ . 547607)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-active-signature-help\? #[514 "\300\301#\210\207" [puthash "activeSignatureHelp"] 6 (#$ . 547781)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-trigger-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacter"] 4 (#$ . 547952)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-trigger-character\? #[514 "\300\301#\210\207" [puthash "triggerCharacter"] 6 (#$ . 548119)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerKind"] 4 (#$ . 548283)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 548438)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-context-is-retrigger #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isRetrigger"] 4 (#$ . 548590)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-is-retrigger #[514 "\300\301#\210\207" [puthash "isRetrigger"] 6 (#$ . 548745)]) #@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 (#$ . 548897)]) #@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 (#$ . 549416)]) #@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 (#$ . 549874)]) #@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 (#$ . 550194)]) #@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 (#$ . 550790)]) (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 (#$ . 551870)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-options-retrigger-characters\? #[514 "\300\301#\210\207" [puthash "retriggerCharacters"] 6 (#$ . 552043)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 552213)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 552382)]) #@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 (#$ . 552548)]) #@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 (#$ . 553041)]) #@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 (#$ . 553473)]) #@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 (#$ . 553807)]) #@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 (#$ . 554389)]) (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 (#$ . 555460)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-documentation\? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 555619)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-parameters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parameters"] 4 (#$ . 555775)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-parameters\? #[514 "\300\301#\210\207" [puthash "parameters"] 6 (#$ . 555928)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 556078)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 556219)]) #@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 (#$ . 556357)]) #@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 (#$ . 556900)]) #@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 (#$ . 557382)]) #@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 (#$ . 557714)]) #@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 (#$ . 558334)]) (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 (#$ . 559459)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-capabilities-documentation-format\? #[514 "\300\301#\210\207" [puthash "documentationFormat"] 6 (#$ . 559644)]) #@15 (fn OBJECT) (defalias 'lsp:signature-information-capabilities-parameter-information\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parameterInformation"] 4 (#$ . 559826)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-capabilities-parameter-information\? #[514 "\300\301#\210\207" [puthash "parameterInformation"] 6 (#$ . 560013)]) #@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 (#$ . 560197)]) #@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 (#$ . 560646)]) #@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 (#$ . 561034)]) #@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 (#$ . 561359)]) #@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 (#$ . 561885)]) (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 (#$ . 562924)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-static-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 563096)]) #@15 (fn OBJECT) (defalias 'lsp:static-registration-options-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 563265)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-static-registration-options-id\? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 563408)]) #@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 (#$ . 563548)]) #@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 (#$ . 564037)]) #@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 (#$ . 564465)]) #@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 (#$ . 564782)]) #@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 (#$ . 565347)]) (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 (#$ . 566400)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 566570)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-capabilities-symbol-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbolKind"] 4 (#$ . 566737)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-capabilities-symbol-kind\? #[514 "\300\301#\210\207" [puthash "symbolKind"] 6 (#$ . 566889)]) #@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 (#$ . 567038)]) #@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 (#$ . 567424)]) #@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 (#$ . 567749)]) #@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 (#$ . 568071)]) #@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 (#$ . 568522)]) (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 (#$ . 569508)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-kind-capabilities-value-set\? #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 569661)]) #@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 (#$ . 569811)]) #@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 (#$ . 570445)]) #@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 (#$ . 571018)]) #@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 (#$ . 571345)]) #@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 (#$ . 572084)]) (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 (#$ . 573266)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-did-save\? #[514 "\300\301#\210\207" [puthash "didSave"] 6 (#$ . 573421)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-dynamic-registration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "dynamicRegistration"] 4 (#$ . 573573)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 573752)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-will-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSave"] 4 (#$ . 573928)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-will-save\? #[514 "\300\301#\210\207" [puthash "willSave"] 6 (#$ . 574085)]) #@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-will-save-wait-until\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSaveWaitUntil"] 4 (#$ . 574239)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-will-save-wait-until\? #[514 "\300\301#\210\207" [puthash "willSaveWaitUntil"] 6 (#$ . 574416)]) #@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 (#$ . 574590)]) #@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 (#$ . 576788)]) #@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 (#$ . 578925)]) #@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 (#$ . 579257)]) #@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 (#$ . 581878)]) (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 (#$ . 584247)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-call-hierarchy\? #[514 "\300\301#\210\207" [puthash "callHierarchy"] 6 (#$ . 584419)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-code-action\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeAction"] 4 (#$ . 584588)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-code-action\? #[514 "\300\301#\210\207" [puthash "codeAction"] 6 (#$ . 584754)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-code-lens\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "codeLens"] 4 (#$ . 584917)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-code-lens\? #[514 "\300\301#\210\207" [puthash "codeLens"] 6 (#$ . 585079)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-color-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "colorProvider"] 4 (#$ . 585238)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-color-provider\? #[514 "\300\301#\210\207" [puthash "colorProvider"] 6 (#$ . 585410)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-completion\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "completion"] 4 (#$ . 585579)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-completion\? #[514 "\300\301#\210\207" [puthash "completion"] 6 (#$ . 585744)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-declaration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "declaration"] 4 (#$ . 585906)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-declaration\? #[514 "\300\301#\210\207" [puthash "declaration"] 6 (#$ . 586073)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-definition\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "definition"] 4 (#$ . 586237)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-definition\? #[514 "\300\301#\210\207" [puthash "definition"] 6 (#$ . 586402)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-highlight\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentHighlight"] 4 (#$ . 586564)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-highlight\? #[514 "\300\301#\210\207" [puthash "documentHighlight"] 6 (#$ . 586744)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-link\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentLink"] 4 (#$ . 586921)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-link\? #[514 "\300\301#\210\207" [puthash "documentLink"] 6 (#$ . 587091)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-symbol\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentSymbol"] 4 (#$ . 587258)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-symbol\? #[514 "\300\301#\210\207" [puthash "documentSymbol"] 6 (#$ . 587432)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-folding-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "foldingRange"] 4 (#$ . 587603)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-folding-range\? #[514 "\300\301#\210\207" [puthash "foldingRange"] 6 (#$ . 587773)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "formatting"] 4 (#$ . 587940)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-formatting\? #[514 "\300\301#\210\207" [puthash "formatting"] 6 (#$ . 588105)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-hover\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hover"] 4 (#$ . 588267)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-hover\? #[514 "\300\301#\210\207" [puthash "hover"] 6 (#$ . 588422)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-implementation\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "implementation"] 4 (#$ . 588574)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-implementation\? #[514 "\300\301#\210\207" [puthash "implementation"] 6 (#$ . 588747)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-on-type-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "onTypeFormatting"] 4 (#$ . 588917)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-on-type-formatting\? #[514 "\300\301#\210\207" [puthash "onTypeFormatting"] 6 (#$ . 589096)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-publish-diagnostics\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "publishDiagnostics"] 4 (#$ . 589272)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-publish-diagnostics\? #[514 "\300\301#\210\207" [puthash "publishDiagnostics"] 6 (#$ . 589454)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-range-formatting\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeFormatting"] 4 (#$ . 589633)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-range-formatting\? #[514 "\300\301#\210\207" [puthash "rangeFormatting"] 6 (#$ . 589809)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-references\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "references"] 4 (#$ . 589982)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-references\? #[514 "\300\301#\210\207" [puthash "references"] 6 (#$ . 590147)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-rename\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rename"] 4 (#$ . 590309)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-rename\? #[514 "\300\301#\210\207" [puthash "rename"] 6 (#$ . 590466)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-selection-range\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 590620)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-selection-range\? #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 590794)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-semantic-highlighting-capabilities\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "semanticHighlightingCapabilities"] 4 (#$ . 590965)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-semantic-highlighting-capabilities\? #[514 "\300\301#\210\207" [puthash "semanticHighlightingCapabilities"] 6 (#$ . 591176)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-signature-help\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "signatureHelp"] 4 (#$ . 591384)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-signature-help\? #[514 "\300\301#\210\207" [puthash "signatureHelp"] 6 (#$ . 591556)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-synchronization\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "synchronization"] 4 (#$ . 591725)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-synchronization\? #[514 "\300\301#\210\207" [puthash "synchronization"] 6 (#$ . 591900)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-type-definition\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeDefinition"] 4 (#$ . 592072)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-type-definition\? #[514 "\300\301#\210\207" [puthash "typeDefinition"] 6 (#$ . 592246)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-type-hierarchy-capabilities\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "typeHierarchyCapabilities"] 4 (#$ . 592417)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-type-hierarchy-capabilities\? #[514 "\300\301#\210\207" [puthash "typeHierarchyCapabilities"] 6 (#$ . 592614)]) #@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 (#$ . 592808)]) #@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 (#$ . 593282)]) #@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 (#$ . 593695)]) #@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 (#$ . 594040)]) #@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 (#$ . 594606)]) (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 (#$ . 595684)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 595840)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-range-length\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rangeLength"] 4 (#$ . 595993)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-range-length\? #[514 "\300\301#\210\207" [puthash "rangeLength"] 6 (#$ . 596162)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 596328)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 596480)]) #@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 (#$ . 596629)]) #@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 (#$ . 597053)]) #@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 (#$ . 597416)]) #@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 (#$ . 597776)]) #@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 (#$ . 598273)]) (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 (#$ . 599297)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-edit-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 599450)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-edit-edits #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edits"] 4 (#$ . 599600)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-edit-edits #[514 "\300\301#\210\207" [puthash "edits"] 6 (#$ . 599738)]) #@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 (#$ . 599873)]) #@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 (#$ . 600230)]) #@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 (#$ . 600526)]) #@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 (#$ . 600859)]) #@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 (#$ . 601279)]) (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 (#$ . 602251)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-identifier-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 602391)]) #@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 (#$ . 602528)]) #@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 (#$ . 603004)]) #@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 (#$ . 603419)]) #@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 (#$ . 603803)]) #@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 (#$ . 604377)]) (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 (#$ . 605453)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-language-id #[514 "\300\301#\210\207" [puthash "languageId"] 6 (#$ . 605602)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 605748)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 605884)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 606017)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 606151)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-item-version #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "version"] 4 (#$ . 606282)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-version #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 606424)]) #@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 (#$ . 606563)]) #@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 (#$ . 607180)]) #@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 (#$ . 607736)]) #@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 (#$ . 608061)]) #@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 (#$ . 608800)]) (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 (#$ . 609961)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-change\? #[514 "\300\301#\210\207" [puthash "change"] 6 (#$ . 610111)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-open-close\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "openClose"] 4 (#$ . 610258)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-open-close\? #[514 "\300\301#\210\207" [puthash "openClose"] 6 (#$ . 610415)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "save"] 4 (#$ . 610569)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-save\? #[514 "\300\301#\210\207" [puthash "save"] 6 (#$ . 610715)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-will-save\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSave"] 4 (#$ . 610858)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-will-save\? #[514 "\300\301#\210\207" [puthash "willSave"] 6 (#$ . 611013)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-will-save-wait-until\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "willSaveWaitUntil"] 4 (#$ . 611165)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-will-save-wait-until\? #[514 "\300\301#\210\207" [puthash "willSaveWaitUntil"] 6 (#$ . 611340)]) #@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 (#$ . 611512)]) #@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 (#$ . 611908)]) #@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 (#$ . 612243)]) #@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 (#$ . 612584)]) #@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 (#$ . 613052)]) (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 (#$ . 614032)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 614166)]) #@15 (fn OBJECT) (defalias 'lsp:text-edit-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 614297)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-edit-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 614426)]) #@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 (#$ . 614552)]) #@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 (#$ . 615001)]) #@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 (#$ . 615389)]) #@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 (#$ . 615761)]) #@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 (#$ . 616296)]) (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 (#$ . 617347)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 617491)]) #@15 (fn OBJECT) (defalias 'lsp:insert-replace-edit-insert #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "insert"] 4 (#$ . 617632)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-insert #[514 "\300\301#\210\207" [puthash "insert"] 6 (#$ . 617773)]) #@15 (fn OBJECT) (defalias 'lsp:insert-replace-edit-replace #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "replace"] 4 (#$ . 617911)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-replace #[514 "\300\301#\210\207" [puthash "replace"] 6 (#$ . 618054)]) #@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 (#$ . 618194)]) #@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 (#$ . 618685)]) #@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 (#$ . 619115)]) #@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 (#$ . 619464)]) #@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 (#$ . 620043)]) (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 (#$ . 621110)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-insert-text-format\? #[514 "\300\301#\210\207" [puthash "insertTextFormat"] 6 (#$ . 621273)]) #@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newText"] 4 (#$ . 621433)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 621575)]) #@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 621714)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 621851)]) #@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 (#$ . 621985)]) #@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 (#$ . 622486)]) #@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 (#$ . 622926)]) #@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 (#$ . 623252)]) #@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 (#$ . 623830)]) (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 (#$ . 624910)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 625089)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-capabilities-link-support\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "linkSupport"] 4 (#$ . 625265)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-capabilities-link-support\? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 625428)]) #@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 (#$ . 625588)]) #@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 (#$ . 626021)]) #@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 (#$ . 626393)]) #@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 (#$ . 626718)]) #@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 (#$ . 627216)]) (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 (#$ . 628244)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 628422)]) #@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 (#$ . 628597)]) #@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 (#$ . 629340)]) #@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 (#$ . 630022)]) #@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 (#$ . 630425)]) #@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 (#$ . 631354)]) (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 (#$ . 632644)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-children\? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 632791)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 632935)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 633074)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 633210)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 633361)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-detail\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "detail"] 4 (#$ . 633509)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-detail\? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 633652)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-parents\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "parents"] 4 (#$ . 633792)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-parents\? #[514 "\300\301#\210\207" [puthash "parents"] 6 (#$ . 633937)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 634079)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 634216)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 634350)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 634487)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 634621)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 634760)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "selectionRange"] 4 (#$ . 634896)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 635054)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 635209)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 635344)]) #@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 (#$ . 635476)]) #@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 (#$ . 635859)]) #@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 (#$ . 636181)]) #@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 (#$ . 636519)]) #@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 (#$ . 636973)]) (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 (#$ . 637953)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 638089)]) #@15 (fn OBJECT) (defalias 'lsp:unregistration-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "id"] 4 (#$ . 638222)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 638350)]) #@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 (#$ . 638475)]) #@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 (#$ . 638889)]) #@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 (#$ . 639242)]) #@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 (#$ . 639585)]) #@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 (#$ . 640075)]) (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 (#$ . 641109)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-versioned-text-document-identifier-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 641269)]) #@15 (fn OBJECT) (defalias 'lsp:versioned-text-document-identifier-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 641426)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-versioned-text-document-identifier-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 641576)]) #@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 (#$ . 641723)]) #@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 (#$ . 642690)]) #@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 (#$ . 643596)]) #@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 (#$ . 643924)]) #@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 (#$ . 645056)]) (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 (#$ . 646489)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-apply-edit\? #[514 "\300\301#\210\207" [puthash "applyEdit"] 6 (#$ . 646649)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-configuration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "configuration"] 4 (#$ . 646806)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-configuration\? #[514 "\300\301#\210\207" [puthash "configuration"] 6 (#$ . 646973)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-did-change-configuration\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "didChangeConfiguration"] 4 (#$ . 647137)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-did-change-configuration\? #[514 "\300\301#\210\207" [puthash "didChangeConfiguration"] 6 (#$ . 647324)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-did-change-watched-files\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "didChangeWatchedFiles"] 4 (#$ . 647508)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-did-change-watched-files\? #[514 "\300\301#\210\207" [puthash "didChangeWatchedFiles"] 6 (#$ . 647694)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-execute-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "executeCommand"] 4 (#$ . 647877)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-execute-command\? #[514 "\300\301#\210\207" [puthash "executeCommand"] 6 (#$ . 648047)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-symbol\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "symbol"] 4 (#$ . 648214)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-symbol\? #[514 "\300\301#\210\207" [puthash "symbol"] 6 (#$ . 648367)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-workspace-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceEdit"] 4 (#$ . 648517)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-workspace-edit\? #[514 "\300\301#\210\207" [puthash "workspaceEdit"] 6 (#$ . 648685)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-workspace-folders\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceFolders"] 4 (#$ . 648850)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 649024)]) #@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 (#$ . 649195)]) #@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 (#$ . 649729)]) #@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 (#$ . 650202)]) #@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 (#$ . 650514)]) #@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 (#$ . 651139)]) (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 (#$ . 652215)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-changes\? #[514 "\300\301#\210\207" [puthash "changes"] 6 (#$ . 652355)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-document-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "documentChanges"] 4 (#$ . 652492)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-document-changes\? #[514 "\300\301#\210\207" [puthash "documentChanges"] 6 (#$ . 652649)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-resource-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceChanges"] 4 (#$ . 652803)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-resource-changes\? #[514 "\300\301#\210\207" [puthash "resourceChanges"] 6 (#$ . 652960)]) #@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 (#$ . 653114)]) #@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 (#$ . 653788)]) #@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 (#$ . 654401)]) #@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 (#$ . 654727)]) #@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 (#$ . 655507)]) (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 (#$ . 656715)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-document-changes\? #[514 "\300\301#\210\207" [puthash "documentChanges"] 6 (#$ . 656885)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-failure-handling\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "failureHandling"] 4 (#$ . 657052)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-failure-handling\? #[514 "\300\301#\210\207" [puthash "failureHandling"] 6 (#$ . 657222)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-resource-changes\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceChanges"] 4 (#$ . 657389)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-resource-changes\? #[514 "\300\301#\210\207" [puthash "resourceChanges"] 6 (#$ . 657559)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-resource-operations\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resourceOperations"] 4 (#$ . 657726)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-resource-operations\? #[514 "\300\301#\210\207" [puthash "resourceOperations"] 6 (#$ . 657902)]) #@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 (#$ . 658075)]) #@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 (#$ . 658455)]) #@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 (#$ . 658774)]) #@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 (#$ . 659112)]) #@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 (#$ . 659564)]) (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 (#$ . 660543)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folder-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 660675)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folder-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 660804)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folder-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 660938)]) #@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 (#$ . 661069)]) #@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 (#$ . 661481)]) #@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 (#$ . 661832)]) #@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 (#$ . 662194)]) #@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 (#$ . 662680)]) (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 (#$ . 663715)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-change-event-removed #[514 "\300\301#\210\207" [puthash "removed"] 6 (#$ . 663869)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-change-event-added #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "added"] 4 (#$ . 664020)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-change-event-added #[514 "\300\301#\210\207" [puthash "added"] 6 (#$ . 664170)]) #@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 (#$ . 664317)]) #@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 (#$ . 664804)]) #@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 (#$ . 665230)]) #@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 (#$ . 665553)]) #@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 (#$ . 666117)]) (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 (#$ . 667180)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-options-change-notifications\? #[514 "\300\301#\210\207" [puthash "changeNotifications"] 6 (#$ . 667356)]) #@15 (fn OBJECT) (defalias 'lsp:workspace-folders-options-supported\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "supported"] 4 (#$ . 667529)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-options-supported\? #[514 "\300\301#\210\207" [puthash "supported"] 6 (#$ . 667684)]) #@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 (#$ . 667836)]) #@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 (#$ . 668259)]) #@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 (#$ . 668621)]) #@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 (#$ . 668948)]) #@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 (#$ . 669436)]) (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 (#$ . 670461)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-server-capabilities-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 670635)]) #@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 (#$ . 670806)]) #@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 (#$ . 671209)]) #@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 (#$ . 671551)]) #@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 (#$ . 671889)]) #@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 (#$ . 672368)]) (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 (#$ . 673379)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-params-label\? #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 673528)]) #@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-params-edit #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edit"] 4 (#$ . 673674)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-params-edit #[514 "\300\301#\210\207" [puthash "edit"] 6 (#$ . 673819)]) #@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 (#$ . 673961)]) #@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 (#$ . 674338)]) #@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 (#$ . 674654)]) #@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 (#$ . 675000)]) #@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 (#$ . 675441)]) (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 (#$ . 676441)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-response-applied #[514 "\300\301#\210\207" [puthash "applied"] 6 (#$ . 676594)]) #@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 (#$ . 676744)]) #@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 (#$ . 677165)]) #@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 (#$ . 677525)]) #@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 (#$ . 677889)]) #@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 (#$ . 678384)]) (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 (#$ . 679423)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-call-from #[514 "\300\301#\210\207" [puthash "from"] 6 (#$ . 679569)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-call-from-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "fromRanges"] 4 (#$ . 679712)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-call-from-ranges #[514 "\300\301#\210\207" [puthash "fromRanges"] 6 (#$ . 679871)]) #@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 (#$ . 680027)]) #@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 (#$ . 680398)]) #@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 (#$ . 680708)]) #@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 (#$ . 681055)]) #@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 (#$ . 681491)]) (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 (#$ . 682497)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-calls-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 682651)]) #@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 (#$ . 682802)]) #@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 (#$ . 683215)]) #@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 (#$ . 683567)]) #@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 (#$ . 683927)]) #@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 (#$ . 684414)]) (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 (#$ . 685445)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-call-to #[514 "\300\301#\210\207" [puthash "to"] 6 (#$ . 685587)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-call-from-ranges #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "fromRanges"] 4 (#$ . 685726)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-call-from-ranges #[514 "\300\301#\210\207" [puthash "fromRanges"] 6 (#$ . 685885)]) #@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 (#$ . 686041)]) #@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 (#$ . 686412)]) #@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 (#$ . 686722)]) #@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 (#$ . 687069)]) #@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 (#$ . 687505)]) (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 (#$ . 688511)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-calls-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 688665)]) #@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 (#$ . 688816)]) #@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 (#$ . 689292)]) #@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 (#$ . 689707)]) #@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 (#$ . 690084)]) #@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 (#$ . 690649)]) (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 (#$ . 691738)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 691885)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 692029)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 692193)]) #@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 692354)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 692509)]) #@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 (#$ . 692661)]) #@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 (#$ . 693291)]) #@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 (#$ . 693860)]) #@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 (#$ . 694185)]) #@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 (#$ . 694963)]) (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 (#$ . 696116)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 696253)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-diagnostics\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 696387)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-diagnostics\? #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 696532)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "edit"] 4 (#$ . 696674)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-edit\? #[514 "\300\301#\210\207" [puthash "edit"] 6 (#$ . 696805)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-is-preferred\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isPreferred"] 4 (#$ . 696933)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-is-preferred\? #[514 "\300\301#\210\207" [puthash "isPreferred"] 6 (#$ . 697079)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 697222)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 697353)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 697481)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 697612)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 697740)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 697871)]) #@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 (#$ . 697999)]) #@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 (#$ . 698320)]) #@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 (#$ . 698580)]) #@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 (#$ . 698894)]) #@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 (#$ . 699258)]) (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 (#$ . 700176)]) #@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 (#$ . 700640)]) #@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 (#$ . 701043)]) #@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 (#$ . 701422)]) #@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 (#$ . 701972)]) (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 (#$ . 703036)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 703189)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-params-context #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 703339)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 703481)]) #@15 (fn OBJECT) (defalias 'lsp:code-action-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 703620)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 703758)]) #@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 (#$ . 703893)]) #@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 (#$ . 704326)]) #@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 (#$ . 704698)]) #@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 (#$ . 705020)]) #@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 (#$ . 705542)]) (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 (#$ . 706541)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 706676)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-data\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "data"] 4 (#$ . 706808)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 706937)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 707063)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 707192)]) #@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 (#$ . 707318)]) #@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 (#$ . 707706)]) #@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 (#$ . 708033)]) #@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 (#$ . 708376)]) #@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 (#$ . 708827)]) (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 (#$ . 709813)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 709964)]) #@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 (#$ . 710112)]) #@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 (#$ . 710618)]) #@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 (#$ . 711063)]) #@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 (#$ . 711391)]) #@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 (#$ . 711975)]) (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 (#$ . 713061)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 713236)]) #@15 (fn OBJECT) (defalias 'lsp:code-lens-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 713408)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 713581)]) #@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 (#$ . 713751)]) #@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 (#$ . 714144)]) #@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 (#$ . 714476)]) #@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 (#$ . 714821)]) #@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 (#$ . 715286)]) (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 (#$ . 716280)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-information-color #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 716417)]) #@15 (fn OBJECT) (defalias 'lsp:color-information-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 716551)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-information-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 716688)]) #@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 (#$ . 716822)]) #@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 (#$ . 717337)]) #@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 (#$ . 717791)]) #@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 (#$ . 718122)]) #@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 (#$ . 718726)]) (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 (#$ . 719806)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-additional-text-edits\? #[514 "\300\301#\210\207" [puthash "additionalTextEdits"] 6 (#$ . 719976)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-text-edit\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textEdit"] 4 (#$ . 720143)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-text-edit\? #[514 "\300\301#\210\207" [puthash "textEdit"] 6 (#$ . 720290)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 720434)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 720572)]) #@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 (#$ . 720707)]) #@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 (#$ . 721170)]) #@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 (#$ . 721572)]) #@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 (#$ . 721954)]) #@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 (#$ . 722503)]) (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 (#$ . 723580)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-color #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 723725)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 723867)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 724027)]) #@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 724184)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 724329)]) #@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 (#$ . 724471)]) #@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 (#$ . 724854)]) #@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 (#$ . 725176)]) #@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 (#$ . 725515)]) #@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 (#$ . 725970)]) (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 (#$ . 726950)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 727081)]) #@15 (fn OBJECT) (defalias 'lsp:coloring-params-infos #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "infos"] 4 (#$ . 727209)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-params-infos #[514 "\300\301#\210\207" [puthash "infos"] 6 (#$ . 727344)]) #@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 (#$ . 727476)]) #@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 (#$ . 727796)]) #@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 (#$ . 728055)]) #@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 (#$ . 728367)]) #@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 (#$ . 728729)]) (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 (#$ . 729644)]) #@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 (#$ . 730066)]) #@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 (#$ . 730427)]) #@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 (#$ . 730784)]) #@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 (#$ . 731278)]) (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 (#$ . 732296)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-list-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 732431)]) #@15 (fn OBJECT) (defalias 'lsp:completion-list-is-incomplete #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "isIncomplete"] 4 (#$ . 732563)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-list-is-incomplete #[514 "\300\301#\210\207" [puthash "isIncomplete"] 6 (#$ . 732713)]) #@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 (#$ . 732860)]) #@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 (#$ . 733372)]) #@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 (#$ . 733823)]) #@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 (#$ . 734188)]) #@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 (#$ . 734801)]) (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 (#$ . 735895)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-context\? #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 736038)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 736178)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 736313)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 736445)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 736597)]) #@15 (fn OBJECT) (defalias 'lsp:completion-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 736746)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 736889)]) #@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 (#$ . 737029)]) #@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 (#$ . 737626)]) #@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 (#$ . 738162)]) #@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 (#$ . 738492)]) #@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 (#$ . 739181)]) (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 (#$ . 740340)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 740516)]) #@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 740689)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 740863)]) #@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 741034)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 741212)]) #@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 (#$ . 741387)]) #@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 (#$ . 741749)]) #@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 (#$ . 742050)]) #@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 (#$ . 742383)]) #@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 (#$ . 742807)]) (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 (#$ . 743778)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-params-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 743918)]) #@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 (#$ . 744055)]) #@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 (#$ . 744476)]) #@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 (#$ . 744836)]) #@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 (#$ . 745169)]) #@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 (#$ . 745677)]) (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 (#$ . 746676)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 746813)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 746947)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 747076)]) #@15 (fn OBJECT) (defalias 'lsp:create-file-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 747202)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 747329)]) #@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 (#$ . 747453)]) #@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 (#$ . 747920)]) #@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 (#$ . 748326)]) #@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 (#$ . 748692)]) #@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 (#$ . 749246)]) (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 (#$ . 750308)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 750444)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 750577)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 750730)]) #@15 (fn OBJECT) (defalias 'lsp:declaration-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 750880)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 751024)]) #@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 (#$ . 751165)]) #@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 (#$ . 751631)]) #@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 (#$ . 752036)]) #@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 (#$ . 752401)]) #@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 (#$ . 752954)]) (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 (#$ . 754013)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 754148)]) #@15 (fn OBJECT) (defalias 'lsp:definition-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 754280)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 754432)]) #@15 (fn OBJECT) (defalias 'lsp:definition-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 754581)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 754724)]) #@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 (#$ . 754864)]) #@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 (#$ . 755285)]) #@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 (#$ . 755645)]) #@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 (#$ . 755978)]) #@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 (#$ . 756486)]) (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 (#$ . 757485)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 757622)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 757756)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 757885)]) #@15 (fn OBJECT) (defalias 'lsp:delete-file-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 758011)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 758138)]) #@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 (#$ . 758262)]) #@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 (#$ . 758645)]) #@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 (#$ . 758967)]) #@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 (#$ . 759317)]) #@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 (#$ . 759764)]) (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 (#$ . 760774)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-configuration-params-settings #[514 "\300\301#\210\207" [puthash "settings"] 6 (#$ . 760931)]) #@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 (#$ . 761085)]) #@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 (#$ . 761589)]) #@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 (#$ . 762032)]) #@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 (#$ . 762423)]) #@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 (#$ . 763017)]) (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 (#$ . 764135)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 764284)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-content-changes #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contentChanges"] 4 (#$ . 764430)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-content-changes #[514 "\300\301#\210\207" [puthash "contentChanges"] 6 (#$ . 764600)]) #@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 764767)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 764933)]) #@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 (#$ . 765096)]) #@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 (#$ . 765474)]) #@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 (#$ . 765791)]) #@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 (#$ . 766139)]) #@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 (#$ . 766582)]) (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 (#$ . 767585)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-params-changes #[514 "\300\301#\210\207" [puthash "changes"] 6 (#$ . 767740)]) #@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 (#$ . 767892)]) #@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 (#$ . 768287)]) #@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 (#$ . 768621)]) #@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 (#$ . 768985)]) #@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 (#$ . 769446)]) (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 (#$ . 770492)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-registration-options-watchers #[514 "\300\301#\210\207" [puthash "watchers"] 6 (#$ . 770663)]) #@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 (#$ . 770831)]) #@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 (#$ . 771205)]) #@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 (#$ . 771518)]) #@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 (#$ . 771866)]) #@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 (#$ . 772305)]) (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 (#$ . 773312)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-workspace-folders-params-event #[514 "\300\301#\210\207" [puthash "event"] 6 (#$ . 773467)]) #@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 (#$ . 773619)]) #@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 (#$ . 774019)]) #@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 (#$ . 774358)]) #@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 (#$ . 774715)]) #@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 (#$ . 775180)]) (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 (#$ . 776202)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-close-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 776367)]) #@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 (#$ . 776529)]) #@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 (#$ . 776964)]) #@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 (#$ . 777338)]) #@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 (#$ . 777694)]) #@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 (#$ . 778206)]) (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 (#$ . 779251)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-open-text-document-params-text\? #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 779400)]) #@15 (fn OBJECT) (defalias 'lsp:did-open-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 779546)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-open-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 779710)]) #@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 (#$ . 779871)]) #@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 (#$ . 780306)]) #@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 (#$ . 780680)]) #@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 (#$ . 781036)]) #@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 (#$ . 781548)]) (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 (#$ . 782593)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-save-text-document-params-text\? #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 782742)]) #@15 (fn OBJECT) (defalias 'lsp:did-save-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 782888)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-save-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 783052)]) #@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 (#$ . 783213)]) #@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 (#$ . 783606)]) #@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 (#$ . 783938)]) #@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 (#$ . 784286)]) #@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 (#$ . 784742)]) (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 (#$ . 785743)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-color-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 785899)]) #@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 (#$ . 786052)]) #@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 (#$ . 786492)]) #@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 (#$ . 786871)]) #@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 (#$ . 787243)]) #@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 (#$ . 787756)]) (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 (#$ . 788812)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 788973)]) #@15 (fn OBJECT) (defalias 'lsp:document-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 789131)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 789281)]) #@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 (#$ . 789428)]) #@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 (#$ . 789824)]) #@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 (#$ . 790159)]) #@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 (#$ . 790490)]) #@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 (#$ . 790960)]) (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 (#$ . 791951)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 792089)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 792224)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 792362)]) #@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 (#$ . 792497)]) #@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 (#$ . 792970)]) #@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 (#$ . 793382)]) #@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 (#$ . 793755)]) #@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 (#$ . 794316)]) (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 (#$ . 795396)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 795539)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 795679)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 795839)]) #@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 795996)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 796147)]) #@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 (#$ . 796295)]) #@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 (#$ . 796774)]) #@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 (#$ . 797192)]) #@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 (#$ . 797518)]) #@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 (#$ . 798100)]) (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 (#$ . 799143)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-data\? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 799276)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-target\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "target"] 4 (#$ . 799406)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-target\? #[514 "\300\301#\210\207" [puthash "target"] 6 (#$ . 799543)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 799677)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 799816)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 799952)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 800085)]) #@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 (#$ . 800215)]) #@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 (#$ . 800607)]) #@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 (#$ . 800938)]) #@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 (#$ . 801285)]) #@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 (#$ . 801740)]) (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 (#$ . 802738)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 802893)]) #@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 (#$ . 803045)]) #@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 (#$ . 803555)]) #@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 (#$ . 804004)]) #@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 (#$ . 804336)]) #@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 (#$ . 804924)]) (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 (#$ . 806022)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 806201)]) #@15 (fn OBJECT) (defalias 'lsp:document-link-registration-options-resolve-provider\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolveProvider"] 4 (#$ . 806377)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-registration-options-resolve-provider\? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 806554)]) #@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 (#$ . 806728)]) #@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 (#$ . 807238)]) #@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 (#$ . 807687)]) #@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 (#$ . 808097)]) #@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 (#$ . 808707)]) (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 (#$ . 809845)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-ch #[514 "\300\301#\210\207" [puthash "ch"] 6 (#$ . 809993)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 810138)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 810307)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 810473)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 810631)]) #@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 810786)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 810946)]) #@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 (#$ . 811103)]) #@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 (#$ . 811750)]) #@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 (#$ . 812336)]) #@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 (#$ . 812730)]) #@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 (#$ . 813470)]) (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 (#$ . 814723)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 814916)]) #@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 (#$ . 815106)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-more-trigger-character\? #[514 "\300\301#\210\207" [puthash "moreTriggerCharacter"] 6 (#$ . 815308)]) #@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 (#$ . 815507)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-first-trigger-character #[514 "\300\301#\210\207" [puthash "firstTriggerCharacter"] 6 (#$ . 815709)]) #@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 (#$ . 815908)]) #@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 (#$ . 816385)]) #@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 (#$ . 816801)]) #@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 (#$ . 817194)]) #@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 (#$ . 817758)]) (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 (#$ . 818861)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 819028)]) #@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 819192)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 819348)]) #@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 819501)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 819653)]) #@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 (#$ . 819802)]) #@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 (#$ . 820196)]) #@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 (#$ . 820529)]) #@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 (#$ . 820878)]) #@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 (#$ . 821335)]) (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 (#$ . 822339)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 822496)]) #@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 (#$ . 822650)]) #@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 (#$ . 823089)]) #@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 (#$ . 823467)]) #@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 (#$ . 823798)]) #@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 (#$ . 824302)]) (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 (#$ . 825348)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-dynamic-registration-capabilities-dynamic-registration\? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 825532)]) #@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 (#$ . 825713)]) #@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 (#$ . 826140)]) #@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 (#$ . 826506)]) #@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 (#$ . 826845)]) #@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 (#$ . 827347)]) (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 (#$ . 828370)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-params-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 828522)]) #@15 (fn OBJECT) (defalias 'lsp:execute-command-params-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 828671)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-params-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 828817)]) #@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 (#$ . 828960)]) #@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 (#$ . 829348)]) #@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 (#$ . 829675)]) #@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 (#$ . 830030)]) #@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 (#$ . 830482)]) (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 (#$ . 831507)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-registration-options-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 831669)]) #@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 (#$ . 831828)]) #@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 (#$ . 832154)]) #@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 (#$ . 832419)]) #@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 (#$ . 832738)]) #@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 (#$ . 833107)]) (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 (#$ . 834040)]) #@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 (#$ . 834639)]) #@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 (#$ . 835177)]) #@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 (#$ . 835531)]) #@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 (#$ . 836246)]) (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 (#$ . 837392)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-end-character\? #[514 "\300\301#\210\207" [puthash "endCharacter"] 6 (#$ . 837542)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-kind\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 837689)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-kind\? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 837822)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-start-character\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "startCharacter"] 4 (#$ . 837952)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-start-character\? #[514 "\300\301#\210\207" [puthash "startCharacter"] 6 (#$ . 838106)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-end-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "endLine"] 4 (#$ . 838257)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-end-line #[514 "\300\301#\210\207" [puthash "endLine"] 6 (#$ . 838395)]) #@15 (fn OBJECT) (defalias 'lsp:folding-range-start-line #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "startLine"] 4 (#$ . 838530)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-start-line #[514 "\300\301#\210\207" [puthash "startLine"] 6 (#$ . 838672)]) #@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 (#$ . 838811)]) #@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 (#$ . 839134)]) #@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 (#$ . 839396)]) #@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 (#$ . 839712)]) #@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 (#$ . 840078)]) (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 (#$ . 841002)]) #@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 (#$ . 841401)]) #@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 (#$ . 841739)]) #@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 (#$ . 842094)]) #@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 (#$ . 842557)]) (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 (#$ . 843576)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-request-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 843739)]) #@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 (#$ . 843899)]) #@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 (#$ . 844299)]) #@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 (#$ . 844638)]) #@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 (#$ . 844962)]) #@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 (#$ . 845435)]) (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 (#$ . 846405)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-range\? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 846532)]) #@15 (fn OBJECT) (defalias 'lsp:hover-contents #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contents"] 4 (#$ . 846656)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-contents #[514 "\300\301#\210\207" [puthash "contents"] 6 (#$ . 846787)]) #@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 (#$ . 846915)]) #@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 (#$ . 847376)]) #@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 (#$ . 847776)]) #@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 (#$ . 848136)]) #@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 (#$ . 848684)]) (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 (#$ . 849728)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 849858)]) #@15 (fn OBJECT) (defalias 'lsp:hover-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 849985)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 850132)]) #@15 (fn OBJECT) (defalias 'lsp:hover-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 850276)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 850414)]) #@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 (#$ . 850549)]) #@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 (#$ . 851019)]) #@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 (#$ . 851428)]) #@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 (#$ . 851797)]) #@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 (#$ . 852354)]) (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 (#$ . 853425)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 853564)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 853700)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 853856)]) #@15 (fn OBJECT) (defalias 'lsp:implementation-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 854009)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 854156)]) #@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 (#$ . 854300)]) #@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 (#$ . 854658)]) #@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 (#$ . 854955)]) #@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 (#$ . 855284)]) #@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 (#$ . 855704)]) (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 (#$ . 856663)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-error-retry #[514 "\300\301#\210\207" [puthash "retry"] 6 (#$ . 856799)]) #@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 (#$ . 856932)]) #@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 (#$ . 857258)]) #@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 (#$ . 857523)]) #@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 (#$ . 857842)]) #@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 (#$ . 858211)]) (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 (#$ . 859144)]) #@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 (#$ . 860048)]) #@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 (#$ . 860891)]) #@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 (#$ . 861207)]) #@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 (#$ . 862290)]) (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 (#$ . 863652)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-capabilities\? #[514 "\300\301#\210\207" [puthash "capabilities"] 6 (#$ . 863805)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-client-info\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "clientInfo"] 4 (#$ . 863955)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-client-info\? #[514 "\300\301#\210\207" [puthash "clientInfo"] 6 (#$ . 864105)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-client-name\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "clientName"] 4 (#$ . 864252)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-client-name\? #[514 "\300\301#\210\207" [puthash "clientName"] 6 (#$ . 864402)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-initialization-options\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "initializationOptions"] 4 (#$ . 864549)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-initialization-options\? #[514 "\300\301#\210\207" [puthash "initializationOptions"] 6 (#$ . 864721)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-process-id\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "processId"] 4 (#$ . 864890)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-process-id\? #[514 "\300\301#\210\207" [puthash "processId"] 6 (#$ . 865038)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-root-path\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rootPath"] 4 (#$ . 865183)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-root-path\? #[514 "\300\301#\210\207" [puthash "rootPath"] 6 (#$ . 865329)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-root-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "rootUri"] 4 (#$ . 865472)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-root-uri\? #[514 "\300\301#\210\207" [puthash "rootUri"] 6 (#$ . 865616)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-trace\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "trace"] 4 (#$ . 865757)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-trace\? #[514 "\300\301#\210\207" [puthash "trace"] 6 (#$ . 865896)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-params-workspace-folders\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "workspaceFolders"] 4 (#$ . 866032)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-workspace-folders\? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 866194)]) #@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 (#$ . 866353)]) #@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 (#$ . 866803)]) #@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 (#$ . 867192)]) #@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 (#$ . 867536)]) #@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 (#$ . 868060)]) (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 (#$ . 869096)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-result-server-info\? #[514 "\300\301#\210\207" [puthash "serverInfo"] 6 (#$ . 869246)]) #@15 (fn OBJECT) (defalias 'lsp:initialize-result-capabilities #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "capabilities"] 4 (#$ . 869393)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-result-capabilities #[514 "\300\301#\210\207" [puthash "capabilities"] 6 (#$ . 869544)]) #@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 (#$ . 869692)]) #@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 (#$ . 870016)]) #@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 (#$ . 870279)]) #@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 (#$ . 870595)]) #@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 (#$ . 870961)]) (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 (#$ . 871888)]) #@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 (#$ . 872525)]) #@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 (#$ . 873101)]) #@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 (#$ . 873508)]) #@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 (#$ . 874244)]) (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 (#$ . 875444)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-origin-selection-range\? #[514 "\300\301#\210\207" [puthash "originSelectionRange"] 6 (#$ . 875611)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-selection-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetSelectionRange"] 4 (#$ . 875775)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-selection-range #[514 "\300\301#\210\207" [puthash "targetSelectionRange"] 6 (#$ . 875940)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetUri"] 4 (#$ . 876102)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-uri #[514 "\300\301#\210\207" [puthash "targetUri"] 6 (#$ . 876244)]) #@15 (fn OBJECT) (defalias 'lsp:location-link-target-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "targetRange"] 4 (#$ . 876383)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-range #[514 "\300\301#\210\207" [puthash "targetRange"] 6 (#$ . 876529)]) #@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 (#$ . 876672)]) #@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 (#$ . 876989)]) #@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 (#$ . 877245)]) #@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 (#$ . 877554)]) #@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 (#$ . 877913)]) (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 (#$ . 878819)]) #@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 (#$ . 879213)]) #@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 (#$ . 879546)]) #@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 (#$ . 879890)]) #@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 (#$ . 880356)]) (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 (#$ . 881345)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-params-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 881477)]) #@15 (fn OBJECT) (defalias 'lsp:message-params-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 881606)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-params-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 881744)]) #@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 (#$ . 881879)]) #@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 (#$ . 882348)]) #@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 (#$ . 882756)]) #@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 (#$ . 883125)]) #@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 (#$ . 883682)]) (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 (#$ . 884750)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 884889)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 885025)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 885181)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 885334)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 885481)]) #@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 (#$ . 885625)]) #@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 (#$ . 886045)]) #@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 (#$ . 886404)]) #@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 (#$ . 886765)]) #@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 (#$ . 887258)]) (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 (#$ . 888285)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-result-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 888426)]) #@15 (fn OBJECT) (defalias 'lsp:prepare-rename-result-placeholder #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "placeholder"] 4 (#$ . 888564)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-result-placeholder #[514 "\300\301#\210\207" [puthash "placeholder"] 6 (#$ . 888717)]) #@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 (#$ . 888867)]) #@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 (#$ . 889330)]) #@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 (#$ . 889732)]) #@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 (#$ . 890094)]) #@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 (#$ . 890645)]) (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 (#$ . 891714)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-version\? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 891866)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "diagnostics"] 4 (#$ . 892015)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-diagnostics #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 892173)]) #@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 892328)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 892470)]) #@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 (#$ . 892609)]) #@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 (#$ . 893114)]) #@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 (#$ . 893558)]) #@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 (#$ . 893941)]) #@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 (#$ . 894545)]) (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 (#$ . 895641)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 895775)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 895906)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 896057)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-context #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "context"] 4 (#$ . 896205)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 896345)]) #@15 (fn OBJECT) (defalias 'lsp:reference-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 896482)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 896624)]) #@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 (#$ . 896763)]) #@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 (#$ . 897156)]) #@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 (#$ . 897488)]) #@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 (#$ . 897836)]) #@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 (#$ . 898291)]) (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 (#$ . 899291)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-params-registrations #[514 "\300\301#\210\207" [puthash "registrations"] 6 (#$ . 899446)]) #@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 (#$ . 899598)]) #@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 (#$ . 900073)]) #@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 (#$ . 900487)]) #@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 (#$ . 900843)]) #@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 (#$ . 901417)]) (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 (#$ . 902468)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options\? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 902605)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 902739)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 902868)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-new-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newUri"] 4 (#$ . 902994)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-new-uri #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 903128)]) #@15 (fn OBJECT) (defalias 'lsp:rename-file-old-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "oldUri"] 4 (#$ . 903259)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-old-uri #[514 "\300\301#\210\207" [puthash "oldUri"] 6 (#$ . 903393)]) #@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 (#$ . 903524)]) #@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 (#$ . 904029)]) #@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 (#$ . 904473)]) #@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 (#$ . 904853)]) #@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 (#$ . 905457)]) (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 (#$ . 906546)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 906677)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-new-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "newName"] 4 (#$ . 906805)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-new-name #[514 "\300\301#\210\207" [puthash "newName"] 6 (#$ . 906943)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 907078)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 907226)]) #@15 (fn OBJECT) (defalias 'lsp:rename-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 907371)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 907510)]) #@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 (#$ . 907646)]) #@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 (#$ . 908105)]) #@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 (#$ . 908503)]) #@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 (#$ . 908890)]) #@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 (#$ . 909437)]) (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 (#$ . 910525)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 910677)]) #@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-resolve #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolve"] 4 (#$ . 910826)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-resolve #[514 "\300\301#\210\207" [puthash "resolve"] 6 (#$ . 910984)]) #@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-direction #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "direction"] 4 (#$ . 911139)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-direction #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 911301)]) #@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 (#$ . 911460)]) #@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 (#$ . 911788)]) #@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 (#$ . 912055)]) #@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 (#$ . 912376)]) #@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 (#$ . 912747)]) (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 (#$ . 913686)]) #@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 (#$ . 914130)]) #@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 (#$ . 914513)]) #@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 (#$ . 914885)]) #@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 (#$ . 915402)]) (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 (#$ . 916454)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 916611)]) #@15 (fn OBJECT) (defalias 'lsp:selection-range-params-positions #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "positions"] 4 (#$ . 916765)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-params-positions #[514 "\300\301#\210\207" [puthash "positions"] 6 (#$ . 916915)]) #@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 (#$ . 917062)]) #@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 (#$ . 917496)]) #@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 (#$ . 917869)]) #@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 (#$ . 918239)]) #@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 (#$ . 918746)]) (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 (#$ . 919800)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 919963)]) #@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-params-lines #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "lines"] 4 (#$ . 920123)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-params-lines #[514 "\300\301#\210\207" [puthash "lines"] 6 (#$ . 920271)]) #@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 (#$ . 920416)]) #@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 (#$ . 920867)]) #@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 (#$ . 921257)]) #@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 (#$ . 921614)]) #@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 (#$ . 922154)]) (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 (#$ . 923211)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-actions\? #[514 "\300\301#\210\207" [puthash "actions"] 6 (#$ . 923364)]) #@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-type #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "type"] 4 (#$ . 923514)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 923659)]) #@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-message #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "message"] 4 (#$ . 923801)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 923952)]) #@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 (#$ . 924100)]) #@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 (#$ . 924615)]) #@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 (#$ . 925069)]) #@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 (#$ . 925438)]) #@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 (#$ . 926055)]) (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 (#$ . 927158)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-context\? #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 927305)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 927449)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 927588)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 927724)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 927880)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 928033)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 928180)]) #@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 (#$ . 928324)]) #@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 (#$ . 928843)]) #@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 (#$ . 929301)]) #@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 (#$ . 929634)]) #@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 (#$ . 930231)]) (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 (#$ . 931338)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 931518)]) #@15 (fn OBJECT) (defalias 'lsp:signature-help-registration-options-trigger-characters\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "triggerCharacters"] 4 (#$ . 931695)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-registration-options-trigger-characters\? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 931877)]) #@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 (#$ . 932056)]) #@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 (#$ . 932617)]) #@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 (#$ . 933117)]) #@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 (#$ . 933480)]) #@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 (#$ . 934155)]) (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 (#$ . 935287)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-container-name\? #[514 "\300\301#\210\207" [puthash "containerName"] 6 (#$ . 935444)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-deprecated\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "deprecated"] 4 (#$ . 935598)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-deprecated\? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 935748)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "kind"] 4 (#$ . 935895)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 936031)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 936164)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 936300)]) #@15 (fn OBJECT) (defalias 'lsp:symbol-information-location #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "location"] 4 (#$ . 936433)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-location #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 936577)]) #@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 (#$ . 936718)]) #@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 (#$ . 937200)]) #@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 (#$ . 937621)]) #@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 (#$ . 937981)]) #@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 (#$ . 938540)]) (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 (#$ . 939643)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-change-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 939829)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-change-registration-options-sync-kind #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "syncKind"] 4 (#$ . 940012)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-change-registration-options-sync-kind #[514 "\300\301#\210\207" [puthash "syncKind"] 6 (#$ . 940180)]) #@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 (#$ . 940345)]) #@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 (#$ . 940821)]) #@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 (#$ . 941236)]) #@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 (#$ . 941613)]) #@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 (#$ . 942178)]) (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 (#$ . 943267)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 943414)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 943558)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 943722)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 943883)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 944038)]) #@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 (#$ . 944190)]) #@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 (#$ . 944617)]) #@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 (#$ . 944983)]) #@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 (#$ . 945315)]) #@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 (#$ . 945808)]) (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 (#$ . 946845)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 947024)]) #@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 (#$ . 947200)]) #@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 (#$ . 947698)]) #@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 (#$ . 948135)]) #@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 (#$ . 948472)]) #@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 (#$ . 949049)]) (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 (#$ . 950147)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-save-registration-options-document-selector\? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 950331)]) #@15 (fn OBJECT) (defalias 'lsp:text-document-save-registration-options-include-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "includeText"] 4 (#$ . 950512)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-save-registration-options-include-text\? #[514 "\300\301#\210\207" [puthash "includeText"] 6 (#$ . 950686)]) #@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 (#$ . 950857)]) #@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 (#$ . 951327)]) #@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 (#$ . 951736)]) #@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 (#$ . 952106)]) #@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 (#$ . 952664)]) (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 (#$ . 953735)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 953875)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 954012)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 954169)]) #@15 (fn OBJECT) (defalias 'lsp:type-definition-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 954323)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 954471)]) #@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 (#$ . 954616)]) #@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 (#$ . 955179)]) #@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 (#$ . 955681)]) #@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 (#$ . 956069)]) #@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 (#$ . 956747)]) (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 (#$ . 957896)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-direction\? #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 958047)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 958195)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-uri\? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 958334)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-resolve #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "resolve"] 4 (#$ . 958470)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-resolve #[514 "\300\301#\210\207" [puthash "resolve"] 6 (#$ . 958615)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 958757)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 958913)]) #@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-position #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "position"] 4 (#$ . 959066)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 959213)]) #@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 (#$ . 959357)]) #@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 (#$ . 959764)]) #@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 (#$ . 960110)]) #@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 (#$ . 960466)]) #@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 (#$ . 960935)]) (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 (#$ . 961953)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-params-unregisterations #[514 "\300\301#\210\207" [puthash "unregisterations"] 6 (#$ . 962116)]) #@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 (#$ . 962276)]) #@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 (#$ . 962592)]) #@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 (#$ . 962847)]) #@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 (#$ . 963155)]) #@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 (#$ . 963513)]) (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 (#$ . 964416)]) #@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 (#$ . 964854)]) #@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 (#$ . 965231)]) #@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 (#$ . 965605)]) #@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 (#$ . 966118)]) (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 (#$ . 967176)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-will-save-text-document-params-reason #[514 "\300\301#\210\207" [puthash "reason"] 6 (#$ . 967328)]) #@15 (fn OBJECT) (defalias 'lsp:will-save-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "textDocument"] 4 (#$ . 967477)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-will-save-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 967642)]) #@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 (#$ . 967804)]) #@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 (#$ . 968168)]) #@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 (#$ . 968471)]) #@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 (#$ . 968807)]) #@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 (#$ . 969234)]) (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 (#$ . 970211)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-symbol-params-query #[514 "\300\301#\210\207" [puthash "query"] 6 (#$ . 970354)]) (provide 'lsp-protocol)