;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require cl-lib dash ht s json] 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 (#$ . 197)])#@44 Convert a KEYWORD to string. (fn KEYWORD) (defalias 'lsp-keyword->string #[257 "\300!\301\302O\207" [symbol-name 1 nil] 4 (#$ . 351)]) (defvar lsp-use-plists (getenv "LSP_USE_PLISTS"))#@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\300q\210\302\301!)\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\203W\322\323\324\325\326\327\314\330\331\314\315DEDFDED\202r\322\332\325\326\333\334\335\336\330\331\314\315DEDD\337BBFD\340BBD\257\304\305\306\341\"!\342\311\313\314\315\301\316\n\"DE\320\321\314\315\301\316\f\"DFE\203\257\322\323\343\325\326\344\314\330\331\314\315DEDFDED\202\311\322\345\346\332\325\335\336\330\331\314\315DEDD\347BBD\350BBED\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\306\373 \374\301\316\f\"!#\375\301\376\n\"B\203H\377\201@\201A\201B\312\330\331\314\315DED\201CBB\201DBBE\201EBB\202~\201F\201G\201H\201@\201I\201J\201K\312\330\331\314\315DED\201LBBD\201MBBE\201NBB\201OBBB\257\363\305\306\201P \"!\201Q\203\357\322\201R\201S\201T\301\201U\315DED\201T\201F\201V\201W\201X\201Y\201Z\201[\312\201\\\201]\315DE\320\321\201^\315\301\316\"DFED\201_BB\201`BBE\201aBBBDFD\202N\322\201R\201b\201T\301\201c\315DED\201T\201F\201d\201W\201X\201Y\201e\201f\201K\312\201\\\201]\315DE\320\321\201g\315\301\316\"DFEDD\201hBB\201iBBE\201jBBBDFDF\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!\304!\203\300\305\306\301!\"!DC\207\207" [intern symbol-name 1 nil special-variable-p format "%s_"] 9 "\n\n(fn INPUT0)"] (&allow-other-keys) "Constructs %s from `plist.'\nAllowed params: %s" reverse ignore #[257 "\211@\300\301!\302\303O!\304!\203\300\305\306\301!\"!\207\207" [intern symbol-name 1 nil special-variable-p format "%s_"] 8 "\n\n(fn INPUT0)"] -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) "lsp--pcase-macroexpander-%s" (&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)] 12 "\n\n(fn INPUT0)"]] 35 "\n\n(fn INPUT0)"]] 9 (#$ . 544)]))#@577 If EXPVAL is an instance of INTERFACE, destructure it by matching its properties. EXPVAL should be a plist or hash table depending on the variable `lsp-use-plists'. INTERFACE should be an LSP interface defined with `lsp-interface'. This form will not match if any of INTERFACE's required fields are missing in EXPVAL. Each :PROPERTY keyword matches a field in EXPVAL. The keyword may be followed by an optional PATTERN, which is a `pcase' pattern to apply to the field's value. Otherwise, PROPERTY is let-bound to the field's value. (fn INTERFACE [:PROPERTY [PATTERN]]...) (defalias 'lsp-interface--pcase-macroexpander #[385 "9\204 \300\301\302\303E\"\210\304\305\306\"!\307!\204\"\310\311\312\313C$\210\314\"\207" [signal wrong-type-argument symbol interface intern format "lsp--pcase-macroexpander-%s" fboundp cl--assertion-failed (fboundp lsp-pcase-macroexpander) "not a known LSP interface: %s" nil apply] 8 (#$ . 6468)]) (byte-code "\301\302\303\304#\301\305\306\302#\203>\307\310\311\"\210\307\312\313\"\210\307\314\315\"\210\307\316\317\"\210\307\320\321\"\210\307\322\323\"\210\307\324\325\"\210\307\326\327\"\210\307\330\331\"\210\202k\307\310\332\"\210\307\312\333\"\210\307\314\334\"\210\307\316\335\"\210\307\320\336\"\210\307\322\337\"\210\307\324\340\"\210\307\326\341\"\210\307\330\342\"\210\304\207" [lsp-use-plists define-symbol-prop lsp-interface--pcase-macroexpander edebug-form-spec nil lsp-interface pcase-macroexpander 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)"] lsp-structure-p json-plist-p lsp-delete #[514 "\211@=\203AA\262\202\300\"\210\207" [cl--do-remf] 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)"] hash-table-p #[514 "\300\301!\"\210\207" [remhash lsp-keyword->string] 5 "\n\n(fn FROM KEY)"]] 5)#@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\203<\211A\262\242\211\310\311\312\"!DB\262\210\211T\262\202\266\211\237\262@;\203TA\204T\211@D\202d@;\203bA@D\202dC\211A\262\242@@<\203\202@@\313=\203\202A@D\202\204C\211A\262\242@\305\n\314\315\n\"\316\205\235C\205\243C\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 (#$ . 9037)])) (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 (#$ . 10416)])#@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 (#$ . 10866)])#@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 (#$ . 11254)])#@150 Constructs JSONResponse from `plist.' Allowed params: (:result :method :id :params) (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\"\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 (#$ . 11621)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-JSONResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 12243)])#@15 (fn OBJECT) (defalias 'lsp:json-response-params #[257 "\300!\205\n\301\302\"\207" [ht? gethash "params"] 4 (#$ . 13123)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 13255)])#@15 (fn OBJECT) (defalias 'lsp:json-response-id #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 13385)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 13509)])#@15 (fn OBJECT) (defalias 'lsp:json-response-method #[257 "\300!\205\n\301\302\"\207" [ht? gethash "method"] 4 (#$ . 13631)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 13763)])#@15 (fn OBJECT) (defalias 'lsp:json-response-result #[257 "\300!\205\n\301\302\"\207" [ht? gethash "result"] 4 (#$ . 13893)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-result #[514 "\300\301#\210\207" [puthash "result"] 6 (#$ . 14025)])#@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 (#$ . 14155)])#@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 (#$ . 14512)])#@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 (#$ . 14807)])#@116 Constructs JSONResponseError from `plist.' Allowed params: (:error) (fn &rest PLIST &key ERROR &allow-other-keys) (defalias 'lsp-make-json-response-error #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 15135)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-JSONResponseError #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 15614)])#@15 (fn OBJECT) (defalias 'lsp:json-response-error-error #[257 "\300!\205\n\301\302\"\207" [ht? gethash "error"] 4 (#$ . 16403)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-response-error-error #[514 "\300\301#\210\207" [puthash "error"] 6 (#$ . 16539)])#@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 (#$ . 16673)])#@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 (#$ . 17169)])#@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 (#$ . 17603)])#@172 Constructs JSONMessage from `plist.' Allowed params: (:error? :result? :method? :id? :params?) (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\"\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 (#$ . 17909)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-JSONMessage #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 18601)])#@15 (fn OBJECT) (defalias 'lsp:json-message-params? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "params"] 4 (#$ . 19485)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-params? #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 19617)])#@15 (fn OBJECT) (defalias 'lsp:json-message-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 19747)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-id? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 19871)])#@15 (fn OBJECT) (defalias 'lsp:json-message-method? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "method"] 4 (#$ . 19993)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-method? #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 20125)])#@15 (fn OBJECT) (defalias 'lsp:json-message-result? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "result"] 4 (#$ . 20255)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-result? #[514 "\300\301#\210\207" [puthash "result"] 6 (#$ . 20387)])#@15 (fn OBJECT) (defalias 'lsp:json-message-error? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "error"] 4 (#$ . 20517)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-message-error? #[514 "\300\301#\210\207" [puthash "error"] 6 (#$ . 20647)])#@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 (#$ . 20775)])#@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 (#$ . 21196)])#@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 (#$ . 21555)])#@139 Constructs JSONResult from `plist.' Allowed params: (:method? :id? :params?) (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\"\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 (#$ . 21860)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-JSONResult #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 22434)])#@15 (fn OBJECT) (defalias 'lsp:json-result-params? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "params"] 4 (#$ . 23260)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-params? #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 23391)])#@15 (fn OBJECT) (defalias 'lsp:json-result-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 23520)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-id? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 23643)])#@15 (fn OBJECT) (defalias 'lsp:json-result-method? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "method"] 4 (#$ . 23764)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-result-method? #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 23895)])#@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 (#$ . 24024)])#@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 (#$ . 24422)])#@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 (#$ . 24758)])#@132 Constructs JSONNotification from `plist.' Allowed params: (:method :params) (fn &rest PLIST &key PARAMS METHOD &allow-other-keys) (defalias 'lsp-make-json-notification #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 25103)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-JSONNotification #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 25640)])#@15 (fn OBJECT) (defalias 'lsp:json-notification-params #[257 "\300!\205\n\301\302\"\207" [ht? gethash "params"] 4 (#$ . 26468)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-notification-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 26604)])#@15 (fn OBJECT) (defalias 'lsp:json-notification-method #[257 "\300!\205\n\301\302\"\207" [ht? gethash "method"] 4 (#$ . 26738)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-notification-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 26874)])#@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 (#$ . 27008)])#@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 (#$ . 27401)])#@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 (#$ . 27732)])#@127 Constructs JSONRequest from `plist.' Allowed params: (:method :params) (fn &rest PLIST &key PARAMS METHOD &allow-other-keys) (defalias 'lsp-make-json-request #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 28072)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-JSONRequest #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 28599)])#@15 (fn OBJECT) (defalias 'lsp:json-request-params #[257 "\300!\205\n\301\302\"\207" [ht? gethash "params"] 4 (#$ . 29422)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-request-params #[514 "\300\301#\210\207" [puthash "params"] 6 (#$ . 29553)])#@15 (fn OBJECT) (defalias 'lsp:json-request-method #[257 "\300!\205\n\301\302\"\207" [ht? gethash "method"] 4 (#$ . 29682)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-request-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 29813)])#@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 (#$ . 29942)])#@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 (#$ . 30360)])#@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 (#$ . 30716)])#@136 Constructs JSONError from `plist.' Allowed params: (:code :message :data?) (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\"\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 (#$ . 31052)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-JSONError #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 31621)])#@15 (fn OBJECT) (defalias 'lsp:json-error-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 32462)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-error-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 32588)])#@15 (fn OBJECT) (defalias 'lsp:json-error-message #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 32712)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-error-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 32843)])#@15 (fn OBJECT) (defalias 'lsp:json-error-code #[257 "\300!\205\n\301\302\"\207" [ht? gethash "code"] 4 (#$ . 32972)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-json-error-code #[514 "\300\301#\210\207" [puthash "code"] 6 (#$ . 33097)])#@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 (#$ . 33220)])#@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 (#$ . 33608)])#@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 (#$ . 33934)])#@126 Constructs ProgressParams from `plist.' Allowed params: (:value :token) (fn &rest PLIST &key TOKEN VALUE &allow-other-keys) (defalias 'lsp-make-progress-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 34273)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ProgressParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 34796)])#@15 (fn OBJECT) (defalias 'lsp:progress-params-token #[257 "\300!\205\n\301\302\"\207" [ht? gethash "token"] 4 (#$ . 35614)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-progress-params-token #[514 "\300\301#\210\207" [puthash "token"] 6 (#$ . 35746)])#@15 (fn OBJECT) (defalias 'lsp:progress-params-value #[257 "\300!\205\n\301\302\"\207" [ht? gethash "value"] 4 (#$ . 35876)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-progress-params-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 36008)])#@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 (#$ . 36138)])#@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 (#$ . 36478)])#@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 (#$ . 36756)])#@101 Constructs Edit from `plist.' Allowed params: (:kind) (fn &rest PLIST &key KIND &allow-other-keys) (defalias 'lsp-make-edit #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 37067)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Edit #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 37513)])#@15 (fn OBJECT) (defalias 'lsp:edit-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 38285)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-edit-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 38404)])#@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 (#$ . 38521)])#@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 (#$ . 38873)])#@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 (#$ . 39163)])#@113 Constructs WorkDoneProgress from `plist.' Allowed params: (:kind) (fn &rest PLIST &key KIND &allow-other-keys) (defalias 'lsp-make-work-done-progress #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 39488)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkDoneProgress #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 39960)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 40744)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 40877)])#@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 (#$ . 41008)])#@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 (#$ . 41556)])#@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 (#$ . 42042)])#@202 Constructs WorkDoneProgressBegin from `plist.' Allowed params: (:title :kind :percentage? :message? :cancellable?) (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\"\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 (#$ . 42388)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkDoneProgressBegin #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 43154)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-cancellable? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "cancellable"] 4 (#$ . 44095)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-cancellable? #[514 "\300\301#\210\207" [puthash "cancellable"] 6 (#$ . 44249)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-message? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 44401)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-message? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 44547)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-percentage? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "percentage"] 4 (#$ . 44691)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-percentage? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 44843)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 44993)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 45132)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-begin-title #[257 "\300!\205\n\301\302\"\207" [ht? gethash "title"] 4 (#$ . 45269)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-begin-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 45410)])#@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 (#$ . 45549)])#@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 (#$ . 46066)])#@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 (#$ . 46521)])#@190 Constructs WorkDoneProgressReport from `plist.' Allowed params: (:kind :percentage? :message? :cancellable?) (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\"\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 (#$ . 46853)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkDoneProgressReport #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 47569)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-cancellable? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "cancellable"] 4 (#$ . 48479)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-cancellable? #[514 "\300\301#\210\207" [puthash "cancellable"] 6 (#$ . 48634)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-message? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 48787)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-message? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 48934)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-percentage? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "percentage"] 4 (#$ . 49079)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-percentage? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 49232)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-report-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 49383)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-report-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 49523)])#@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 (#$ . 49661)])#@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 (#$ . 50061)])#@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 (#$ . 50399)])#@135 Constructs WorkDoneProgressEnd from `plist.' Allowed params: (:kind :message?) (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\"\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 (#$ . 50728)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkDoneProgressEnd #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 51272)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-end-message? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 52092)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-end-message? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 52236)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-end-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 52378)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-end-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 52515)])#@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 (#$ . 52650)])#@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 (#$ . 53066)])#@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 (#$ . 53420)])#@150 Constructs WorkDoneProgressOptions from `plist.' Allowed params: (:work-done-progress?) (fn &rest PLIST &key WORK-DONE-PROGRESS? &allow-other-keys) (defalias 'lsp-make-work-done-progress-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 53740)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkDoneProgressOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 54299)])#@15 (fn OBJECT) (defalias 'lsp:work-done-progress-options-work-done-progress? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workDoneProgress"] 4 (#$ . 55124)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-work-done-progress-options-work-done-progress? #[514 "\300\301#\210\207" [puthash "workDoneProgress"] 6 (#$ . 55292)])#@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 (#$ . 55458)])#@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 (#$ . 55977)])#@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 (#$ . 56434)])#@194 Constructs SemanticTokensOptions from `plist.' Allowed params: (:legend :document-provider? :range-provider?) (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\"\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 (#$ . 56768)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticTokensOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 57474)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-range-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "rangeProvider"] 4 (#$ . 58386)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-range-provider? #[514 "\300\301#\210\207" [puthash "rangeProvider"] 6 (#$ . 58544)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-document-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentProvider"] 4 (#$ . 58700)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-document-provider? #[514 "\300\301#\210\207" [puthash "documentProvider"] 6 (#$ . 58864)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-options-legend #[257 "\300!\205\n\301\302\"\207" [ht? gethash "legend"] 4 (#$ . 59026)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-options-legend #[514 "\300\301#\210\207" [puthash "legend"] 6 (#$ . 59168)])#@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 (#$ . 59308)])#@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 (#$ . 59764)])#@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 (#$ . 60158)])#@164 Constructs SemanticTokensLegend from `plist.' Allowed params: (:token-modifiers :token-types) (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\"\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 (#$ . 60532)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticTokensLegend #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 61146)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-legend-token-types #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tokenTypes"] 4 (#$ . 62030)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-legend-token-types #[514 "\300\301#\210\207" [puthash "tokenTypes"] 6 (#$ . 62180)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-legend-token-modifiers #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tokenModifiers"] 4 (#$ . 62328)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-legend-token-modifiers #[514 "\300\301#\210\207" [puthash "tokenModifiers"] 6 (#$ . 62486)])#@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 (#$ . 62642)])#@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 (#$ . 63050)])#@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 (#$ . 63396)])#@140 Constructs SemanticTokensResult from `plist.' Allowed params: (:result-id :data?) (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\"\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 (#$ . 63733)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticTokensResult #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 64287)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-result-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 65117)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-result-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 65255)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-result-result-id #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resultId"] 4 (#$ . 65391)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-result-result-id #[514 "\300\301#\210\207" [puthash "resultId"] 6 (#$ . 65537)])#@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 (#$ . 65681)])#@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 (#$ . 66047)])#@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 (#$ . 66351)])#@126 Constructs SemanticTokensPartialResult from `plist.' Allowed params: (:data?) (fn &rest PLIST &key DATA? &allow-other-keys) (defalias 'lsp-make-semantic-tokens-partial-result #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 66675)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticTokensPartialResult #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 67174)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-partial-result-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 67963)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-partial-result-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 68109)])#@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 (#$ . 68253)])#@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 (#$ . 68703)])#@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 (#$ . 69091)])#@157 Constructs SemanticTokensEdit from `plist.' Allowed params: (:delete-count :start :data?) (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\"\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 (#$ . 69447)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticTokensEdit #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 70064)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-edit-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 70936)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-edit-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 71072)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-edit-start #[257 "\300!\205\n\301\302\"\207" [ht? gethash "start"] 4 (#$ . 71206)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-edit-start #[514 "\300\301#\210\207" [puthash "start"] 6 (#$ . 71343)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-edit-delete-count #[257 "\300!\205\n\301\302\"\207" [ht? gethash "deleteCount"] 4 (#$ . 71478)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-edit-delete-count #[514 "\300\301#\210\207" [puthash "deleteCount"] 6 (#$ . 71628)])#@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 (#$ . 71776)])#@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 (#$ . 72187)])#@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 (#$ . 72536)])#@141 Constructs SemanticTokensDelta from `plist.' Allowed params: (:result-id :edits?) (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\"\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 (#$ . 72872)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticTokensDelta #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 73429)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-delta-edits? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "edits"] 4 (#$ . 74261)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-delta-edits? #[514 "\300\301#\210\207" [puthash "edits"] 6 (#$ . 74400)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-delta-result-id #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resultId"] 4 (#$ . 74537)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-delta-result-id #[514 "\300\301#\210\207" [puthash "resultId"] 6 (#$ . 74682)])#@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 (#$ . 74825)])#@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 (#$ . 75200)])#@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 (#$ . 75513)])#@133 Constructs SemanticTokensDeltaPartialResult from `plist.' Allowed params: (:edits?) (fn &rest PLIST &key EDITS? &allow-other-keys) (defalias 'lsp-make-semantic-tokens-delta-partial-result #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 75843)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticTokensDeltaPartialResult #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 76358)])#@15 (fn OBJECT) (defalias 'lsp:semantic-tokens-delta-partial-result-edits? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "edits"] 4 (#$ . 77155)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-tokens-delta-partial-result-edits? #[514 "\300\301#\210\207" [puthash "edits"] 6 (#$ . 77309)])#@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 (#$ . 77461)])#@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 (#$ . 77969)])#@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 (#$ . 78415)])#@180 Constructs v1:ProgressParams from `plist.' Allowed params: (:title :id :done? :percentage? :message?) (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\"\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 (#$ . 78751)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-v1:ProgressParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 79462)])#@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-message? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 80370)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-message? #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 80510)])#@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-percentage? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "percentage"] 4 (#$ . 80648)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-percentage? #[514 "\300\301#\210\207" [puthash "percentage"] 6 (#$ . 80794)])#@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-done? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "done"] 4 (#$ . 80938)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-done? #[514 "\300\301#\210\207" [puthash "done"] 6 (#$ . 81072)])#@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-id #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 81204)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 81333)])#@15 (fn OBJECT) (defalias 'lsp:v1-progress-params-title #[257 "\300!\205\n\301\302\"\207" [ht? gethash "title"] 4 (#$ . 81460)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-v1-progress-params-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 81595)])#@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 (#$ . 81728)])#@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 (#$ . 81913)])#@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 (#$ . 82272)])#@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 (#$ . 82569)])#@118 Constructs eslint:StatusParams from `plist.' Allowed params: (:state) (fn &rest PLIST &key STATE &allow-other-keys) (defalias 'lsp-make-eslint-status-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 82898)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-eslint:StatusParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 83380)])#@15 (fn OBJECT) (defalias 'lsp:eslint-status-params-state #[257 "\300!\205\n\301\302\"\207" [ht? gethash "state"] 4 (#$ . 84171)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-status-params-state #[514 "\300\301#\210\207" [puthash "state"] 6 (#$ . 84308)])#@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 (#$ . 84443)])#@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 (#$ . 84801)])#@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 (#$ . 85097)])#@121 Constructs eslint:OpenESLintDocParams from `plist.' Allowed params: (:url) (fn &rest PLIST &key URL &allow-other-keys) (defalias 'lsp-make-eslint-open-es-lint-doc-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 85432)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-eslint:OpenESLintDocParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 85921)])#@15 (fn OBJECT) (defalias 'lsp:eslint-open-es-lint-doc-params-url #[257 "\300!\205\n\301\302\"\207" [ht? gethash "url"] 4 (#$ . 86711)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-open-es-lint-doc-params-url #[514 "\300\301#\210\207" [puthash "url"] 6 (#$ . 86854)])#@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 (#$ . 86995)])#@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 (#$ . 87453)])#@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 (#$ . 87849)])#@166 Constructs eslint:ConfirmExecutionParams from `plist.' Allowed params: (:library-path :file :scope) (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\"\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 (#$ . 88229)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-eslint:ConfirmExecutionParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 88864)])#@15 (fn OBJECT) (defalias 'lsp:eslint-confirm-execution-params-scope #[257 "\300!\205\n\301\302\"\207" [ht? gethash "scope"] 4 (#$ . 89751)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-confirm-execution-params-scope #[514 "\300\301#\210\207" [puthash "scope"] 6 (#$ . 89899)])#@15 (fn OBJECT) (defalias 'lsp:eslint-confirm-execution-params-file #[257 "\300!\205\n\301\302\"\207" [ht? gethash "file"] 4 (#$ . 90045)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-confirm-execution-params-file #[514 "\300\301#\210\207" [puthash "file"] 6 (#$ . 90191)])#@15 (fn OBJECT) (defalias 'lsp:eslint-confirm-execution-params-library-path #[257 "\300!\205\n\301\302\"\207" [ht? gethash "libraryPath"] 4 (#$ . 90335)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-eslint-confirm-execution-params-library-path #[514 "\300\301#\210\207" [puthash "libraryPath"] 6 (#$ . 90496)])#@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 (#$ . 90655)])#@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 (#$ . 91024)])#@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 (#$ . 91331)])#@128 Constructs haxe:ProcessStartNotification from `plist.' Allowed params: (:title) (fn &rest PLIST &key TITLE &allow-other-keys) (defalias 'lsp-make-haxe-process-start-notification #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 91671)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-haxe:ProcessStartNotification #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 92174)])#@15 (fn OBJECT) (defalias 'lsp:haxe-process-start-notification-title #[257 "\300!\205\n\301\302\"\207" [ht? gethash "title"] 4 (#$ . 92975)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-haxe-process-start-notification-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 93123)])#@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 (#$ . 93269)])#@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 (#$ . 93936)])#@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 (#$ . 94541)])#@262 Constructs pwsh:ScriptRegion from `plist.' Allowed params: (:text :end-column-number :start-column-number :end-line-number :start-line-number) (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\"\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 (#$ . 95006)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-pwsh:ScriptRegion #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 95917)])#@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-start-line-number #[257 "\300!\205\n\301\302\"\207" [ht? gethash "StartLineNumber"] 4 (#$ . 97006)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-start-line-number #[514 "\300\301#\210\207" [puthash "StartLineNumber"] 6 (#$ . 97163)])#@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-end-line-number #[257 "\300!\205\n\301\302\"\207" [ht? gethash "EndLineNumber"] 4 (#$ . 97318)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-end-line-number #[514 "\300\301#\210\207" [puthash "EndLineNumber"] 6 (#$ . 97471)])#@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-start-column-number #[257 "\300!\205\n\301\302\"\207" [ht? gethash "StartColumnNumber"] 4 (#$ . 97622)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-start-column-number #[514 "\300\301#\210\207" [puthash "StartColumnNumber"] 6 (#$ . 97783)])#@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-end-column-number #[257 "\300!\205\n\301\302\"\207" [ht? gethash "EndColumnNumber"] 4 (#$ . 97942)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-end-column-number #[514 "\300\301#\210\207" [puthash "EndColumnNumber"] 6 (#$ . 98099)])#@15 (fn OBJECT) (defalias 'lsp:pwsh-script-region-text #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Text"] 4 (#$ . 98254)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-pwsh-script-region-text #[514 "\300\301#\210\207" [puthash "Text"] 6 (#$ . 98387)])#@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 (#$ . 98518)])#@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 (#$ . 98989)])#@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 (#$ . 99398)])#@166 Constructs omnisharp:ErrorMessage from `plist.' Allowed params: (:column :line :file-name :text) (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\"\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 (#$ . 99779)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:ErrorMessage #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 100435)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-error-message-text #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Text"] 4 (#$ . 101336)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-error-message-text #[514 "\300\301#\210\207" [puthash "Text"] 6 (#$ . 101475)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-error-message-file-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "FileName"] 4 (#$ . 101612)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-error-message-file-name #[514 "\300\301#\210\207" [puthash "FileName"] 6 (#$ . 101760)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-error-message-line #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Line"] 4 (#$ . 101906)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-error-message-line #[514 "\300\301#\210\207" [puthash "Line"] 6 (#$ . 102045)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-error-message-column #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Column"] 4 (#$ . 102182)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-error-message-column #[514 "\300\301#\210\207" [puthash "Column"] 6 (#$ . 102325)])#@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 (#$ . 102466)])#@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 (#$ . 102857)])#@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 (#$ . 103186)])#@142 Constructs omnisharp:ProjectInformationRequest from `plist.' Allowed params: (:file-name) (fn &rest PLIST &key FILE-NAME &allow-other-keys) (defalias 'lsp-make-omnisharp-project-information-request #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 103539)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:ProjectInformationRequest #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 104074)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-project-information-request-file-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "FileName"] 4 (#$ . 104896)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-project-information-request-file-name #[514 "\300\301#\210\207" [puthash "FileName"] 6 (#$ . 105058)])#@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 (#$ . 105218)])#@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 (#$ . 106345)])#@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 (#$ . 107410)])#@473 Constructs omnisharp:MsBuildProject from `plist.' Allowed params: (:project-guid :path :assembly-name :target-path :target-framework :source-files :target-frameworks :output-path :intermediate-output-path :configuration :platform :is-exe :is-unit-project) (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\"\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 (#$ . 108096)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:MsBuildProject #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 109686)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-is-unit-project #[257 "\300!\205\n\301\302\"\207" [ht? gethash "IsUnitProject"] 4 (#$ . 111231)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-is-unit-project #[514 "\300\301#\210\207" [puthash "IsUnitProject"] 6 (#$ . 111393)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-is-exe #[257 "\300!\205\n\301\302\"\207" [ht? gethash "IsExe"] 4 (#$ . 111553)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-is-exe #[514 "\300\301#\210\207" [puthash "IsExe"] 6 (#$ . 111698)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-platform #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Platform"] 4 (#$ . 111841)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-platform #[514 "\300\301#\210\207" [puthash "Platform"] 6 (#$ . 111991)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-configuration #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Configuration"] 4 (#$ . 112139)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-configuration #[514 "\300\301#\210\207" [puthash "Configuration"] 6 (#$ . 112299)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-intermediate-output-path #[257 "\300!\205\n\301\302\"\207" [ht? gethash "IntermediateOutputPath"] 4 (#$ . 112457)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-intermediate-output-path #[514 "\300\301#\210\207" [puthash "IntermediateOutputPath"] 6 (#$ . 112637)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-output-path #[257 "\300!\205\n\301\302\"\207" [ht? gethash "OutputPath"] 4 (#$ . 112815)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-output-path #[514 "\300\301#\210\207" [puthash "OutputPath"] 6 (#$ . 112970)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-target-frameworks #[257 "\300!\205\n\301\302\"\207" [ht? gethash "TargetFrameworks"] 4 (#$ . 113123)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-target-frameworks #[514 "\300\301#\210\207" [puthash "TargetFrameworks"] 6 (#$ . 113290)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-source-files #[257 "\300!\205\n\301\302\"\207" [ht? gethash "SourceFiles"] 4 (#$ . 113455)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-source-files #[514 "\300\301#\210\207" [puthash "SourceFiles"] 6 (#$ . 113612)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-target-framework #[257 "\300!\205\n\301\302\"\207" [ht? gethash "TargetFramework"] 4 (#$ . 113767)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-target-framework #[514 "\300\301#\210\207" [puthash "TargetFramework"] 6 (#$ . 113932)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-target-path #[257 "\300!\205\n\301\302\"\207" [ht? gethash "TargetPath"] 4 (#$ . 114095)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-target-path #[514 "\300\301#\210\207" [puthash "TargetPath"] 6 (#$ . 114250)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-assembly-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "AssemblyName"] 4 (#$ . 114403)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-assembly-name #[514 "\300\301#\210\207" [puthash "AssemblyName"] 6 (#$ . 114562)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-path #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Path"] 4 (#$ . 114719)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-path #[514 "\300\301#\210\207" [puthash "Path"] 6 (#$ . 114861)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-ms-build-project-project-guid #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ProjectGuid"] 4 (#$ . 115001)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-ms-build-project-project-guid #[514 "\300\301#\210\207" [puthash "ProjectGuid"] 6 (#$ . 115158)])#@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 (#$ . 115313)])#@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 (#$ . 115793)])#@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 (#$ . 116211)])#@180 Constructs omnisharp:ProjectInformation from `plist.' Allowed params: (:ms-build-project :script-project) (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\"\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 (#$ . 116599)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:ProjectInformation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 117248)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-project-information-script-project #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ScriptProject"] 4 (#$ . 118155)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-project-information-script-project #[514 "\300\301#\210\207" [puthash "ScriptProject"] 6 (#$ . 118319)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-project-information-ms-build-project #[257 "\300!\205\n\301\302\"\207" [ht? gethash "MsBuildProject"] 4 (#$ . 118481)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-project-information-ms-build-project #[514 "\300\301#\210\207" [puthash "MsBuildProject"] 6 (#$ . 118648)])#@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 (#$ . 118813)])#@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 (#$ . 119199)])#@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 (#$ . 119523)])#@137 Constructs omnisharp:CodeStructureRequest from `plist.' Allowed params: (:file-name) (fn &rest PLIST &key FILE-NAME &allow-other-keys) (defalias 'lsp-make-omnisharp-code-structure-request #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 119871)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:CodeStructureRequest #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 120396)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-structure-request-file-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "FileName"] 4 (#$ . 121213)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-structure-request-file-name #[514 "\300\301#\210\207" [puthash "FileName"] 6 (#$ . 121370)])#@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 (#$ . 121525)])#@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 (#$ . 121909)])#@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 (#$ . 122231)])#@136 Constructs omnisharp:CodeStructureResponse from `plist.' Allowed params: (:elements) (fn &rest PLIST &key ELEMENTS &allow-other-keys) (defalias 'lsp-make-omnisharp-code-structure-response #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 122580)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:CodeStructureResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 123103)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-structure-response-elements #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Elements"] 4 (#$ . 123919)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-structure-response-elements #[514 "\300\301#\210\207" [puthash "Elements"] 6 (#$ . 124076)])#@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 (#$ . 124231)])#@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 (#$ . 124810)])#@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 (#$ . 125327)])#@213 Constructs omnisharp:CodeElement from `plist.' Allowed params: (:properties :ranges :children :display-name :name :kind) (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\"\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 (#$ . 125760)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:CodeElement #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 126573)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Kind"] 4 (#$ . 127581)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-kind #[514 "\300\301#\210\207" [puthash "Kind"] 6 (#$ . 127719)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Name"] 4 (#$ . 127855)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-name #[514 "\300\301#\210\207" [puthash "Name"] 6 (#$ . 127993)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-display-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "DisplayName"] 4 (#$ . 128129)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-display-name #[514 "\300\301#\210\207" [puthash "DisplayName"] 6 (#$ . 128282)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-children #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Children"] 4 (#$ . 128433)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-children #[514 "\300\301#\210\207" [puthash "Children"] 6 (#$ . 128579)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-ranges #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Ranges"] 4 (#$ . 128723)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-ranges #[514 "\300\301#\210\207" [puthash "Ranges"] 6 (#$ . 128865)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Properties"] 4 (#$ . 129005)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties #[514 "\300\301#\210\207" [puthash "Properties"] 6 (#$ . 129155)])#@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 (#$ . 129303)])#@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 (#$ . 129898)])#@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 (#$ . 130431)])#@235 Constructs omnisharp:CodeElementProperties from `plist.' Allowed params: (:test-framework? :test-method-name? :accessibility? :static?) (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\"\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 (#$ . 130759)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:CodeElementProperties #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 131579)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties-static? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "static"] 4 (#$ . 132541)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties-static? #[514 "\300\301#\210\207" [puthash "static"] 6 (#$ . 132695)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties-accessibility? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "accessibility"] 4 (#$ . 132847)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties-accessibility? #[514 "\300\301#\210\207" [puthash "accessibility"] 6 (#$ . 133015)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties-test-method-name? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "testMethodName"] 4 (#$ . 133181)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties-test-method-name? #[514 "\300\301#\210\207" [puthash "testMethodName"] 6 (#$ . 133353)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-code-element-properties-test-framework? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "testFramework"] 4 (#$ . 133523)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-code-element-properties-test-framework? #[514 "\300\301#\210\207" [puthash "testFramework"] 6 (#$ . 133692)])#@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 (#$ . 133859)])#@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 (#$ . 134241)])#@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 (#$ . 134561)])#@123 Constructs omnisharp:Range from `plist.' Allowed params: (:end :start) (fn &rest PLIST &key START END &allow-other-keys) (defalias 'lsp-make-omnisharp-range #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 134897)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:Range #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 135412)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-start #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Start"] 4 (#$ . 136224)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-start #[514 "\300\301#\210\207" [puthash "Start"] 6 (#$ . 136357)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-end #[257 "\300!\205\n\301\302\"\207" [ht? gethash "End"] 4 (#$ . 136488)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-end #[514 "\300\301#\210\207" [puthash "End"] 6 (#$ . 136617)])#@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 (#$ . 136744)])#@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 (#$ . 137191)])#@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 (#$ . 137576)])#@156 Constructs omnisharp:RangeList from `plist.' Allowed params: (:name? :full? :attributes?) (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\"\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 (#$ . 137891)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:RangeList #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 138504)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-list-attributes? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "attributes"] 4 (#$ . 139352)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-list-attributes? #[514 "\300\301#\210\207" [puthash "attributes"] 6 (#$ . 139501)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-list-full? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "full"] 4 (#$ . 139648)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-list-full? #[514 "\300\301#\210\207" [puthash "full"] 6 (#$ . 139785)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-range-list-name? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 139920)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-range-list-name? #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 140057)])#@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 (#$ . 140192)])#@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 (#$ . 140582)])#@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 (#$ . 140910)])#@127 Constructs omnisharp:Point from `plist.' Allowed params: (:column :line) (fn &rest PLIST &key LINE COLUMN &allow-other-keys) (defalias 'lsp-make-omnisharp-point #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 141250)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:Point #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 141775)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-point-line #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Line"] 4 (#$ . 142595)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-point-line #[514 "\300\301#\210\207" [puthash "Line"] 6 (#$ . 142726)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-point-column #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Column"] 4 (#$ . 142855)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-point-column #[514 "\300\301#\210\207" [puthash "Column"] 6 (#$ . 142990)])#@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 (#$ . 143123)])#@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 (#$ . 143963)])#@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 (#$ . 144741)])#@343 Constructs omnisharp:RunTestsInClassRequest from `plist.' Allowed params: (:file-name :buffer :column :line :no-build :target-framework-version :test-frameworkname :run-settings :method-names) (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\"\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 (#$ . 145301)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:RunTestsInClassRequest #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 146489)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-method-names #[257 "\300!\205\n\301\302\"\207" [ht? gethash "MethodNames"] 4 (#$ . 147752)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-method-names #[514 "\300\301#\210\207" [puthash "MethodNames"] 6 (#$ . 147919)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-run-settings #[257 "\300!\205\n\301\302\"\207" [ht? gethash "RunSettings"] 4 (#$ . 148084)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-run-settings #[514 "\300\301#\210\207" [puthash "RunSettings"] 6 (#$ . 148251)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-test-frameworkname #[257 "\300!\205\n\301\302\"\207" [ht? gethash "TestFrameworkname"] 4 (#$ . 148416)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-test-frameworkname #[514 "\300\301#\210\207" [puthash "TestFrameworkname"] 6 (#$ . 148595)])#@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 (#$ . 148772)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-target-framework-version #[514 "\300\301#\210\207" [puthash "TargetFrameworkVersion"] 6 (#$ . 148962)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-no-build #[257 "\300!\205\n\301\302\"\207" [ht? gethash "NoBuild"] 4 (#$ . 149150)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-no-build #[514 "\300\301#\210\207" [puthash "NoBuild"] 6 (#$ . 149309)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-line #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Line"] 4 (#$ . 149466)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-line #[514 "\300\301#\210\207" [puthash "Line"] 6 (#$ . 149618)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-column #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Column"] 4 (#$ . 149768)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-column #[514 "\300\301#\210\207" [puthash "Column"] 6 (#$ . 149924)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-buffer #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Buffer"] 4 (#$ . 150078)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-buffer #[514 "\300\301#\210\207" [puthash "Buffer"] 6 (#$ . 150234)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-tests-in-class-request-file-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "FileName"] 4 (#$ . 150388)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-tests-in-class-request-file-name #[514 "\300\301#\210\207" [puthash "FileName"] 6 (#$ . 150549)])#@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 (#$ . 150708)])#@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 (#$ . 151241)])#@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 (#$ . 151712)])#@199 Constructs omnisharp:RunTestResponse from `plist.' Allowed params: (:context-had-no-tests :failure :pass :results) (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\"\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 (#$ . 152124)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:RunTestResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 152861)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-test-response-results #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Results"] 4 (#$ . 153821)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-test-response-results #[514 "\300\301#\210\207" [puthash "Results"] 6 (#$ . 153970)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-test-response-pass #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Pass"] 4 (#$ . 154117)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-test-response-pass #[514 "\300\301#\210\207" [puthash "Pass"] 6 (#$ . 154260)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-test-response-failure #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Failure"] 4 (#$ . 154401)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-test-response-failure #[514 "\300\301#\210\207" [puthash "Failure"] 6 (#$ . 154550)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-run-test-response-context-had-no-tests #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ContextHadNoTests"] 4 (#$ . 154697)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-run-test-response-context-had-no-tests #[514 "\300\301#\210\207" [puthash "ContextHadNoTests"] 6 (#$ . 154869)])#@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 (#$ . 155039)])#@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 (#$ . 155479)])#@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 (#$ . 155857)])#@158 Constructs omnisharp:TestMessageEvent from `plist.' Allowed params: (:message :message-level) (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\"\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 (#$ . 156228)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:TestMessageEvent #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 156826)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-test-message-event-message-level #[257 "\300!\205\n\301\302\"\207" [ht? gethash "MessageLevel"] 4 (#$ . 157695)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-test-message-event-message-level #[514 "\300\301#\210\207" [puthash "MessageLevel"] 6 (#$ . 157856)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-test-message-event-message #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Message"] 4 (#$ . 158015)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-test-message-event-message #[514 "\300\301#\210\207" [puthash "Message"] 6 (#$ . 158165)])#@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 (#$ . 158313)])#@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 (#$ . 159024)])#@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 (#$ . 159673)])#@310 Constructs omnisharp:DotNetTestResult from `plist.' Allowed params: (:standard-error :standard-output :error-stack-trace :error-message :outcome :method-name) (fn &rest PLIST &key METHOD-NAME OUTCOME ERROR-MESSAGE ERROR-STACK-TRACE ((:standard-output STANDARD-OUTPUT_) nil) STANDARD-ERROR &allow-other-keys) (defalias 'lsp-make-omnisharp-dot-net-test-result #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\307\310\311\"\312\313\314\"\315\316 \"\"\210\207" [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] 13 (#$ . 160169)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:DotNetTestResult #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 161180)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-method-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "MethodName"] 4 (#$ . 162315)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-method-name #[514 "\300\301#\210\207" [puthash "MethodName"] 6 (#$ . 162473)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-outcome #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Outcome"] 4 (#$ . 162629)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-outcome #[514 "\300\301#\210\207" [puthash "Outcome"] 6 (#$ . 162780)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-error-message #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ErrorMessage"] 4 (#$ . 162929)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-error-message #[514 "\300\301#\210\207" [puthash "ErrorMessage"] 6 (#$ . 163091)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-error-stack-trace #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ErrorStackTrace"] 4 (#$ . 163251)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-error-stack-trace #[514 "\300\301#\210\207" [puthash "ErrorStackTrace"] 6 (#$ . 163420)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-standard-output #[257 "\300!\205\n\301\302\"\207" [ht? gethash "StandardOutput"] 4 (#$ . 163587)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-standard-output #[514 "\300\301#\210\207" [puthash "StandardOutput"] 6 (#$ . 163753)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-dot-net-test-result-standard-error #[257 "\300!\205\n\301\302\"\207" [ht? gethash "StandardError"] 4 (#$ . 163917)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-dot-net-test-result-standard-error #[514 "\300\301#\210\207" [puthash "StandardError"] 6 (#$ . 164081)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:MetadataRequest #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:assembly-name :type-name :project-name :version-number :language) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:assembly-name :type-name :project-name :version-number :language) gethash 1 nil assoc ((:assembly-name . :AssemblyName) (:type-name . :TypeName) (:project-name . :ProjectName) (:version-number . :VersionNumber) (:language . :Language))] 7 (#$ . 164243)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:MetadataRequest? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:assembly-name :type-name :project-name :version-number :language) error "Unknown key: %s. Available keys: %s" (:assembly-name :type-name :project-name :version-number :language) when ht? gethash symbol-name assoc ((:assembly-name . :AssemblyName) (:type-name . :TypeName) (:project-name . :ProjectName) (:version-number . :VersionNumber) (:language . :Language)) 1 nil] 9 (#$ . 164859)])#@15 (fn OBJECT) (defalias 'lsp-omnisharp-metadata-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)"] ("AssemblyName" "TypeName" "ProjectName" "VersionNumber" "Language") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:AssemblyName :TypeName :ProjectName :VersionNumber :Language)] 6 (#$ . 165413)])#@238 Constructs omnisharp:MetadataRequest from `plist.' Allowed params: (:language :version-number :project-name :type-name :assembly-name) (fn &rest PLIST &key ASSEMBLY-NAME TYPE-NAME PROJECT-NAME VERSION-NUMBER LANGUAGE &allow-other-keys) (defalias 'lsp-make-omnisharp-metadata-request #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\311\312\313\"\314\315\n\"\"\210\207" [plist-member :assembly-name :type-name :project-name :version-number :language make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:assembly-name . :AssemblyName) (:type-name . :TypeName) (:project-name . :ProjectName) (:version-number . :VersionNumber) (:language . :Language))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 165863)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:MetadataRequest #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:AssemblyName :TypeName :ProjectName :VersionNumber :Language) nil lsp-keyword->string alist-get ((:assembly-name . :AssemblyName) (:type-name . :TypeName) (:project-name . :ProjectName) (:version-number . :VersionNumber) (:language . :Language)) error "Unknown key: %s. Available keys: %s" symbol-name (:assembly-name :type-name :project-name :version-number :language) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 166715)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-metadata-request-assembly-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "AssemblyName"] 4 (#$ . 167757)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-metadata-request-assembly-name #[514 "\300\301#\210\207" [puthash "AssemblyName"] 6 (#$ . 167916)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-metadata-request-type-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "TypeName"] 4 (#$ . 168073)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-metadata-request-type-name #[514 "\300\301#\210\207" [puthash "TypeName"] 6 (#$ . 168224)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-metadata-request-project-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ProjectName"] 4 (#$ . 168373)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-metadata-request-project-name #[514 "\300\301#\210\207" [puthash "ProjectName"] 6 (#$ . 168530)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-metadata-request-version-number #[257 "\300!\205\n\301\302\"\207" [ht? gethash "VersionNumber"] 4 (#$ . 168685)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-metadata-request-version-number #[514 "\300\301#\210\207" [puthash "VersionNumber"] 6 (#$ . 168846)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-metadata-request-language #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Language"] 4 (#$ . 169005)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-metadata-request-language #[514 "\300\301#\210\207" [puthash "Language"] 6 (#$ . 169155)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:MetadataResponse #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:source-name :source) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:source-name :source) gethash 1 nil assoc ((:source-name . :SourceName) (:source . :Source))] 7 (#$ . 169303)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&omnisharp:MetadataResponse? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:source-name :source) error "Unknown key: %s. Available keys: %s" (:source-name :source) when ht? gethash symbol-name assoc ((:source-name . :SourceName) (:source . :Source)) 1 nil] 9 (#$ . 169731)])#@15 (fn OBJECT) (defalias 'lsp-omnisharp-metadata-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)"] ("SourceName" "Source") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:SourceName :Source)] 6 (#$ . 170097)])#@152 Constructs omnisharp:MetadataResponse from `plist.' Allowed params: (:source :source-name) (fn &rest PLIST &key SOURCE-NAME SOURCE &allow-other-keys) (defalias 'lsp-make-omnisharp-metadata-response #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :source-name :source make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:source-name . :SourceName) (:source . :Source))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 170461)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-omnisharp:MetadataResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:SourceName :Source) nil lsp-keyword->string alist-get ((:source-name . :SourceName) (:source . :Source)) error "Unknown key: %s. Available keys: %s" symbol-name (:source-name :source) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 171043)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-metadata-response-source-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "SourceName"] 4 (#$ . 171900)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-metadata-response-source-name #[514 "\300\301#\210\207" [puthash "SourceName"] 6 (#$ . 172056)])#@15 (fn OBJECT) (defalias 'lsp:omnisharp-metadata-response-source #[257 "\300!\205\n\301\302\"\207" [ht? gethash "Source"] 4 (#$ . 172210)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-omnisharp-metadata-response-source #[514 "\300\301#\210\207" [puthash "Source"] 6 (#$ . 172357)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&csharp-ls:CSharpMetadata #[514 "\300=\204\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 (#$ . 172502)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&csharp-ls:CSharpMetadata? #[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 (#$ . 172898)])#@15 (fn OBJECT) (defalias 'lsp-csharp-ls-c-sharp-metadata? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\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 (#$ . 173232)])#@139 Constructs csharp-ls:CSharpMetadata from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-csharp-ls-c-sharp-metadata #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 173582)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-csharp-ls:CSharpMetadata #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 174115)])#@15 (fn OBJECT) (defalias 'lsp:csharp-ls-c-sharp-metadata-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 174942)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-csharp-ls-c-sharp-metadata-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 175101)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&csharp-ls:CSharpMetadataResponse #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:source :project-name :assembly-name :symbol-name) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:source :project-name :assembly-name :symbol-name) gethash 1 nil assoc ((:source . :source) (:project-name . :projectName) (:assembly-name . :assemblyName) (:symbol-name . :symbolName))] 7 (#$ . 175258)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&csharp-ls:CSharpMetadataResponse? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:source :project-name :assembly-name :symbol-name) error "Unknown key: %s. Available keys: %s" (:source :project-name :assembly-name :symbol-name) when ht? gethash symbol-name assoc ((:source . :source) (:project-name . :projectName) (:assembly-name . :assemblyName) (:symbol-name . :symbolName)) 1 nil] 9 (#$ . 175814)])#@15 (fn OBJECT) (defalias 'lsp-csharp-ls-c-sharp-metadata-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)"] ("source" "projectName" "assemblyName" "symbolName") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:source :projectName :assemblyName :symbolName)] 6 (#$ . 176308)])#@214 Constructs csharp-ls:CSharpMetadataResponse from `plist.' Allowed params: (:symbol-name :assembly-name :project-name :source) (fn &rest PLIST &key SOURCE PROJECT-NAME ASSEMBLY-NAME SYMBOL-NAME &allow-other-keys) (defalias 'lsp-make-csharp-ls-c-sharp-metadata-response #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\310\311\312\"\313\314 \"\"\210\207" [plist-member :source :project-name :assembly-name :symbol-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 ((:source . :source) (:project-name . :projectName) (:assembly-name . :assemblyName) (:symbol-name . :symbolName))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 176736)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-csharp-ls:CSharpMetadataResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:source :projectName :assemblyName :symbolName) nil lsp-keyword->string alist-get ((:source . :source) (:project-name . :projectName) (:assembly-name . :assemblyName) (:symbol-name . :symbolName)) error "Unknown key: %s. Available keys: %s" symbol-name (:source :project-name :assembly-name :symbol-name) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 177508)])#@15 (fn OBJECT) (defalias 'lsp:csharp-ls-c-sharp-metadata-response-source #[257 "\300!\205\n\301\302\"\207" [ht? gethash "source"] 4 (#$ . 178491)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-csharp-ls-c-sharp-metadata-response-source #[514 "\300\301#\210\207" [puthash "source"] 6 (#$ . 178646)])#@15 (fn OBJECT) (defalias 'lsp:csharp-ls-c-sharp-metadata-response-project-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "projectName"] 4 (#$ . 178799)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-csharp-ls-c-sharp-metadata-response-project-name #[514 "\300\301#\210\207" [puthash "projectName"] 6 (#$ . 178965)])#@15 (fn OBJECT) (defalias 'lsp:csharp-ls-c-sharp-metadata-response-assembly-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "assemblyName"] 4 (#$ . 179129)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-csharp-ls-c-sharp-metadata-response-assembly-name #[514 "\300\301#\210\207" [puthash "assemblyName"] 6 (#$ . 179297)])#@15 (fn OBJECT) (defalias 'lsp:csharp-ls-c-sharp-metadata-response-symbol-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "symbolName"] 4 (#$ . 179463)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-csharp-ls-c-sharp-metadata-response-symbol-name #[514 "\300\301#\210\207" [puthash "symbolName"] 6 (#$ . 179627)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ocaml-lsp:TypeEnclosingParams #[514 "\300>\204\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 :at :index :verbosity) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri :at :index :verbosity) gethash 1 nil assoc ((:uri . :uri) (:at . :at) (:index . :index) (:verbosity . :verbosity))] 7 (#$ . 179789)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ocaml-lsp:TypeEnclosingParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri :at :index :verbosity) error "Unknown key: %s. Available keys: %s" (:uri :at :index :verbosity) when ht? gethash symbol-name assoc ((:uri . :uri) (:at . :at) (:index . :index) (:verbosity . :verbosity)) 1 nil] 9 (#$ . 180253)])#@15 (fn OBJECT) (defalias 'lsp-ocaml-lsp-type-enclosing-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" "at" "index" "verbosity") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri :at :index :verbosity)] 6 (#$ . 180655)])#@165 Constructs ocaml-lsp:TypeEnclosingParams from `plist.' Allowed params: (:verbosity :index :at :uri) (fn &rest PLIST &key URI AT INDEX VERBOSITY &allow-other-keys) (defalias 'lsp-make-ocaml-lsp-type-enclosing-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\310\311\312\"\313\314 \"\"\210\207" [plist-member :uri :at :index :verbosity make-hash-table :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) (:at . :at) (:index . :index) (:verbosity . :verbosity))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 181039)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ocaml-lsp:TypeEnclosingParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :at :index :verbosity) nil lsp-keyword->string alist-get ((:uri . :uri) (:at . :at) (:index . :index) (:verbosity . :verbosity)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri :at :index :verbosity) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 181692)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-type-enclosing-params-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 182586)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-type-enclosing-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 182731)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-type-enclosing-params-at #[257 "\300!\205\n\301\302\"\207" [ht? gethash "at"] 4 (#$ . 182874)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-type-enclosing-params-at #[514 "\300\301#\210\207" [puthash "at"] 6 (#$ . 183017)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-type-enclosing-params-index #[257 "\300!\205\n\301\302\"\207" [ht? gethash "index"] 4 (#$ . 183158)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-type-enclosing-params-index #[514 "\300\301#\210\207" [puthash "index"] 6 (#$ . 183307)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-type-enclosing-params-verbosity #[257 "\300!\205\n\301\302\"\207" [ht? gethash "verbosity"] 4 (#$ . 183454)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-type-enclosing-params-verbosity #[514 "\300\301#\210\207" [puthash "verbosity"] 6 (#$ . 183611)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ocaml-lsp:TypeEnclosingResult #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:index :enclosings :type) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:index :enclosings :type) gethash 1 nil assoc ((:index . :index) (:enclosings . :enclosings) (:type . :type))] 7 (#$ . 183766)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ocaml-lsp:TypeEnclosingResult? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:index :enclosings :type) error "Unknown key: %s. Available keys: %s" (:index :enclosings :type) when ht? gethash symbol-name assoc ((:index . :index) (:enclosings . :enclosings) (:type . :type)) 1 nil] 9 (#$ . 184218)])#@15 (fn OBJECT) (defalias 'lsp-ocaml-lsp-type-enclosing-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)"] ("index" "enclosings" "type") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:index :enclosings :type)] 6 (#$ . 184608)])#@162 Constructs ocaml-lsp:TypeEnclosingResult from `plist.' Allowed params: (:type :enclosings :index) (fn &rest PLIST &key INDEX ENCLOSINGS TYPE &allow-other-keys) (defalias 'lsp-make-ocaml-lsp-type-enclosing-result #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :index :enclosings :type make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:index . :index) (:enclosings . :enclosings) (:type . :type))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 184987)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ocaml-lsp:TypeEnclosingResult #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:index :enclosings :type) nil lsp-keyword->string alist-get ((:index . :index) (:enclosings . :enclosings) (:type . :type)) error "Unknown key: %s. Available keys: %s" symbol-name (:index :enclosings :type) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 185614)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-type-enclosing-result-index #[257 "\300!\205\n\301\302\"\207" [ht? gethash "index"] 4 (#$ . 186496)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-type-enclosing-result-index #[514 "\300\301#\210\207" [puthash "index"] 6 (#$ . 186645)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-type-enclosing-result-enclosings #[257 "\300!\205\n\301\302\"\207" [ht? gethash "enclosings"] 4 (#$ . 186792)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-type-enclosing-result-enclosings #[514 "\300\301#\210\207" [puthash "enclosings"] 6 (#$ . 186951)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-type-enclosing-result-type #[257 "\300!\205\n\301\302\"\207" [ht? gethash "type"] 4 (#$ . 187108)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-type-enclosing-result-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 187255)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ocaml-lsp:GetDocumentationParams #[514 "\300>\204\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 :content-format) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :position :content-format) gethash 1 nil assoc ((:text-document . :textDocument) (:position . :position) (:content-format . :contentFormat))] 7 (#$ . 187400)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ocaml-lsp:GetDocumentationParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :position :content-format) error "Unknown key: %s. Available keys: %s" (:text-document :position :content-format) when ht? gethash symbol-name assoc ((:text-document . :textDocument) (:position . :position) (:content-format . :contentFormat)) 1 nil] 9 (#$ . 187917)])#@15 (fn OBJECT) (defalias 'lsp-ocaml-lsp-get-documentation-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" "contentFormat") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position :contentFormat)] 6 (#$ . 188372)])#@197 Constructs ocaml-lsp:GetDocumentationParams from `plist.' Allowed params: (:content-format :position :text-document) (fn &rest PLIST &key TEXT-DOCUMENT POSITION CONTENT-FORMAT &allow-other-keys) (defalias 'lsp-make-ocaml-lsp-get-documentation-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :text-document :position :content-format make-hash-table :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) (:content-format . :contentFormat))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 188782)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ocaml-lsp:GetDocumentationParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :contentFormat) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:position . :position) (:content-format . :contentFormat)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :position :content-format) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 189493)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-get-documentation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 190438)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-get-documentation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 190605)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-get-documentation-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 190770)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-get-documentation-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 190928)])#@15 (fn OBJECT) (defalias 'lsp:ocaml-lsp-get-documentation-params-content-format #[257 "\300!\205\n\301\302\"\207" [ht? gethash "contentFormat"] 4 (#$ . 191084)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-ocaml-lsp-get-documentation-params-content-format #[514 "\300\301#\210\207" [puthash "contentFormat"] 6 (#$ . 191253)])#@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 (#$ . 191420)])#@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 (#$ . 191850)])#@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 (#$ . 192218)])#@137 Constructs rls:Cmd from `plist.' Allowed params: (:cwd :env :binary :args) (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\"\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 (#$ . 192572)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rls:Cmd #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 193164)])#@15 (fn OBJECT) (defalias 'lsp:rls-cmd-args #[257 "\300!\205\n\301\302\"\207" [ht? gethash "args"] 4 (#$ . 194024)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-args #[514 "\300\301#\210\207" [puthash "args"] 6 (#$ . 194147)])#@15 (fn OBJECT) (defalias 'lsp:rls-cmd-binary #[257 "\300!\205\n\301\302\"\207" [ht? gethash "binary"] 4 (#$ . 194268)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-binary #[514 "\300\301#\210\207" [puthash "binary"] 6 (#$ . 194395)])#@15 (fn OBJECT) (defalias 'lsp:rls-cmd-env #[257 "\300!\205\n\301\302\"\207" [ht? gethash "env"] 4 (#$ . 194520)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-env #[514 "\300\301#\210\207" [puthash "env"] 6 (#$ . 194641)])#@15 (fn OBJECT) (defalias 'lsp:rls-cmd-cwd #[257 "\300!\205\n\301\302\"\207" [ht? gethash "cwd"] 4 (#$ . 194760)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rls-cmd-cwd #[514 "\300\301#\210\207" [puthash "cwd"] 6 (#$ . 194881)])#@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 (#$ . 195000)])#@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 (#$ . 195406)])#@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 (#$ . 195750)])#@149 Constructs rust-analyzer:AnalyzerStatusParams from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-rust-analyzer-analyzer-status-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 196110)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:AnalyzerStatusParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 196663)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-analyzer-status-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 197500)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-analyzer-status-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 197669)])#@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 (#$ . 197836)])#@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 (#$ . 198275)])#@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 (#$ . 198652)])#@160 Constructs rust-analyzer:SyntaxTreeParams from `plist.' Allowed params: (:text-document :range?) (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\"\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 (#$ . 199008)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:SyntaxTreeParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 199608)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-syntax-tree-params-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 200468)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-syntax-tree-params-range? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 200619)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-syntax-tree-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 200768)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-syntax-tree-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 200933)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ViewHir #[514 "\300>\204\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 (#$ . 201096)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ViewHir? #[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 (#$ . 201535)])#@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-view-hir? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\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 (#$ . 201912)])#@155 Constructs rust-analyzer:ViewHir from `plist.' Allowed params: (:position :text-document) (fn &rest PLIST &key TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-rust-analyzer-view-hir #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 202279)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:ViewHir #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 202871)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-view-hir-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 203739)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-view-hir-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 203894)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-view-hir-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 204047)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-view-hir-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 204193)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ViewItemTree #[514 "\300=\204\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 (#$ . 204337)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:ViewItemTree? #[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 (#$ . 204735)])#@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-view-item-tree? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\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 (#$ . 205071)])#@141 Constructs rust-analyzer:ViewItemTree from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-rust-analyzer-view-item-tree #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 205423)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:ViewItemTree #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 205960)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-view-item-tree-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 206789)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-view-item-tree-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 206950)])#@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 (#$ . 207109)])#@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 (#$ . 207558)])#@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 (#$ . 207945)])#@165 Constructs rust-analyzer:ExpandMacroParams from `plist.' Allowed params: (:position :text-document) (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\"\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 (#$ . 208323)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:ExpandMacroParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 208936)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expand-macro-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 209814)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expand-macro-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 209980)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expand-macro-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 210144)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expand-macro-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 210301)])#@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 (#$ . 210456)])#@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 (#$ . 210870)])#@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 (#$ . 211222)])#@145 Constructs rust-analyzer:ExpandedMacro from `plist.' Allowed params: (:expansion :name) (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\"\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 (#$ . 211581)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:ExpandedMacro #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 212146)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expanded-macro-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 212990)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expanded-macro-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 213134)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-expanded-macro-expansion #[257 "\300!\205\n\301\302\"\207" [ht? gethash "expansion"] 4 (#$ . 213276)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-expanded-macro-expansion #[514 "\300\301#\210\207" [puthash "expansion"] 6 (#$ . 213430)])#@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 (#$ . 213582)])#@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 (#$ . 214037)])#@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 (#$ . 214430)])#@169 Constructs rust-analyzer:MatchingBraceParams from `plist.' Allowed params: (:positions :text-document) (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\"\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 (#$ . 214812)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:MatchingBraceParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 215434)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-matching-brace-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 216318)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-matching-brace-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 216486)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-matching-brace-params-positions #[257 "\300!\205\n\301\302\"\207" [ht? gethash "positions"] 4 (#$ . 216652)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-matching-brace-params-positions #[514 "\300\301#\210\207" [puthash "positions"] 6 (#$ . 216813)])#@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 (#$ . 216972)])#@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 (#$ . 217377)])#@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 (#$ . 217720)])#@148 Constructs rust-analyzer:OpenCargoTomlParams from `plist.' Allowed params: (:text-document) (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\"\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 (#$ . 218080)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:OpenCargoTomlParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 218632)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-open-cargo-toml-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 219468)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-open-cargo-toml-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 219637)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:OpenExternalDocsParams #[514 "\300>\204\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 (#$ . 219804)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:OpenExternalDocsParams? #[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 (#$ . 220258)])#@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-open-external-docs-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 (#$ . 220650)])#@170 Constructs rust-analyzer:OpenExternalDocsParams from `plist.' Allowed params: (:position :text-document) (fn &rest PLIST &key TEXT-DOCUMENT POSITION &allow-other-keys) (defalias 'lsp-make-rust-analyzer-open-external-docs-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 221034)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:OpenExternalDocsParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 221658)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-open-external-docs-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 222541)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-open-external-docs-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 222713)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-open-external-docs-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 222883)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-open-external-docs-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 223046)])#@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 (#$ . 223207)])#@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 (#$ . 223657)])#@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 (#$ . 224045)])#@169 Constructs rust-analyzer:ResovedCodeActionParams from `plist.' Allowed params: (:code-action-params :id) (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\"\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 (#$ . 224426)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:ResovedCodeActionParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 225046)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-resoved-code-action-params-id #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 225924)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-resoved-code-action-params-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 226076)])#@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 (#$ . 226226)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-resoved-code-action-params-code-action-params #[514 "\300\301#\210\207" [puthash "codeActionParams"] 6 (#$ . 226408)])#@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 (#$ . 226588)])#@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 (#$ . 227027)])#@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 (#$ . 227404)])#@159 Constructs rust-analyzer:JoinLinesParams from `plist.' Allowed params: (:ranges :text-document) (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\"\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 (#$ . 227776)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:JoinLinesParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 228375)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-join-lines-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 229243)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-join-lines-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 229407)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-join-lines-params-ranges #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ranges"] 4 (#$ . 229569)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-join-lines-params-ranges #[514 "\300\301#\210\207" [puthash "ranges"] 6 (#$ . 229720)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:MoveItemParams #[514 "\300>\204\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 :range :direction) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :range :direction) gethash 1 nil assoc ((:text-document . :textDocument) (:range . :range) (:direction . :direction))] 7 (#$ . 229869)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&rust-analyzer:MoveItemParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :range :direction) error "Unknown key: %s. Available keys: %s" (:text-document :range :direction) when ht? gethash symbol-name assoc ((:text-document . :textDocument) (:range . :range) (:direction . :direction)) 1 nil] 9 (#$ . 230351)])#@15 (fn OBJECT) (defalias 'lsp-rust-analyzer-move-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)"] ("textDocument" "range" "direction") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :range :direction)] 6 (#$ . 230771)])#@177 Constructs rust-analyzer:MoveItemParams from `plist.' Allowed params: (:direction :range :text-document) (fn &rest PLIST &key TEXT-DOCUMENT RANGE DIRECTION &allow-other-keys) (defalias 'lsp-make-rust-analyzer-move-item-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :text-document :range :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 ((:text-document . :textDocument) (:range . :range) (:direction . :direction))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 231163)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:MoveItemParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :range :direction) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:range . :range) (:direction . :direction)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :range :direction) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 231827)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-move-item-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 232738)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-move-item-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 232901)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-move-item-params-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 233062)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-move-item-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 233210)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-move-item-params-direction #[257 "\300!\205\n\301\302\"\207" [ht? gethash "direction"] 4 (#$ . 233356)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-move-item-params-direction #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 233512)])#@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 (#$ . 233666)])#@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 (#$ . 234116)])#@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 (#$ . 234504)])#@165 Constructs rust-analyzer:RunnablesParams from `plist.' Allowed params: (:text-document :position?) (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\"\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 (#$ . 234858)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:RunnablesParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 235470)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnables-params-position? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 236338)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnables-params-position? #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 236493)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnables-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 236646)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnables-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 236809)])#@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 (#$ . 236970)])#@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 (#$ . 237438)])#@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 (#$ . 237844)])#@164 Constructs rust-analyzer:Runnable from `plist.' Allowed params: (:args :kind :label :location?) (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\"\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 (#$ . 238202)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:Runnable #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 238853)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-location? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "location"] 4 (#$ . 239740)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-location? #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 239887)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-label #[257 "\300!\205\n\301\302\"\207" [ht? gethash "label"] 4 (#$ . 240032)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 240172)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 240310)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 240448)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args #[257 "\300!\205\n\301\302\"\207" [ht? gethash "args"] 4 (#$ . 240584)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args #[514 "\300\301#\210\207" [puthash "args"] 6 (#$ . 240722)])#@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? :expect-test? :environment? :cargo-args :executable-args) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:workspace-root? :expect-test? :environment? :cargo-args :executable-args) gethash 1 nil assoc ((:workspace-root? . :workspaceRoot) (:expect-test? . :expectTest) (:environment? . :environment) (:cargo-args . :cargoArgs) (:executable-args . :executableArgs))] 7 (#$ . 240858)])#@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? :expect-test? :environment? :cargo-args :executable-args) error "Unknown key: %s. Available keys: %s" (:workspace-root? :expect-test? :environment? :cargo-args :executable-args) when ht? gethash symbol-name assoc ((:workspace-root? . :workspaceRoot) (:expect-test? . :expectTest) (:environment? . :environment) (:cargo-args . :cargoArgs) (:executable-args . :executableArgs)) 1 nil] 9 (#$ . 241504)])#@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 (#$ . 242088)])#@255 Constructs rust-analyzer:RunnableArgs from `plist.' Allowed params: (:executable-args :cargo-args :environment? :expect-test? :workspace-root?) (fn &rest PLIST &key WORKSPACE-ROOT? EXPECT-TEST? ENVIRONMENT? CARGO-ARGS EXECUTABLE-ARGS &allow-other-keys) (defalias 'lsp-make-rust-analyzer-runnable-args #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\311\312\313\"\314\315\n\"\"\210\207" [plist-member :workspace-root? :expect-test? :environment? :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) (:expect-test? . :expectTest) (:environment? . :environment) (:cargo-args . :cargoArgs) (:executable-args . :executableArgs))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 242466)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:RunnableArgs #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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) (:expect-test? . :expectTest) (:environment? . :environment) (:cargo-args . :cargoArgs) (:executable-args . :executableArgs)) error "Unknown key: %s. Available keys: %s" symbol-name (:workspace-root? :expect-test? :environment? :cargo-args :executable-args) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 243357)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-workspace-root? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspaceRoot"] 4 (#$ . 244386)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-workspace-root? #[514 "\300\301#\210\207" [puthash "workspaceRoot"] 6 (#$ . 244549)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-expect-test? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "expectTest"] 4 (#$ . 244710)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-expect-test? #[514 "\300\301#\210\207" [puthash "expectTest"] 6 (#$ . 244867)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-environment? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "environment"] 4 (#$ . 245022)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-environment? #[514 "\300\301#\210\207" [puthash "environment"] 6 (#$ . 245180)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-cargo-args #[257 "\300!\205\n\301\302\"\207" [ht? gethash "cargoArgs"] 4 (#$ . 245336)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-cargo-args #[514 "\300\301#\210\207" [puthash "cargoArgs"] 6 (#$ . 245490)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-runnable-args-executable-args #[257 "\300!\205\n\301\302\"\207" [ht? gethash "executableArgs"] 4 (#$ . 245642)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-runnable-args-executable-args #[514 "\300\301#\210\207" [puthash "executableArgs"] 6 (#$ . 245806)])#@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 (#$ . 245968)])#@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 (#$ . 246418)])#@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 (#$ . 246806)])#@166 Constructs rust-analyzer:RelatedTestsParams from `plist.' Allowed params: (:position :text-document) (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\"\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 (#$ . 247185)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:RelatedTestsParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 247800)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-related-tests-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 248679)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 248846)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-related-tests-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 249011)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 249169)])#@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 (#$ . 249325)])#@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 (#$ . 249704)])#@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 (#$ . 250021)])#@131 Constructs rust-analyzer:RelatedTests from `plist.' Allowed params: (:runnable) (fn &rest PLIST &key RUNNABLE &allow-other-keys) (defalias 'lsp-make-rust-analyzer-related-tests #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 250364)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:RelatedTests #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 250876)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-related-tests-runnable #[257 "\300!\205\n\301\302\"\207" [ht? gethash "runnable"] 4 (#$ . 251687)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-related-tests-runnable #[514 "\300\301#\210\207" [puthash "runnable"] 6 (#$ . 251838)])#@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 (#$ . 251987)])#@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 (#$ . 252404)])#@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 (#$ . 252759)])#@145 Constructs rust-analyzer:SsrParams from `plist.' Allowed params: (:parse-only :query) (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\"\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 (#$ . 253116)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:SsrParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 253682)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-ssr-params-query #[257 "\300!\205\n\301\302\"\207" [ht? gethash "query"] 4 (#$ . 254528)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-ssr-params-query #[514 "\300\301#\210\207" [puthash "query"] 6 (#$ . 254670)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-ssr-params-parse-only #[257 "\300!\205\n\301\302\"\207" [ht? gethash "parseOnly"] 4 (#$ . 254810)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-ssr-params-parse-only #[514 "\300\301#\210\207" [puthash "parseOnly"] 6 (#$ . 254961)])#@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 (#$ . 255110)])#@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 (#$ . 255612)])#@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 (#$ . 256052)])#@183 Constructs rust-analyzer:CommandLink from `plist.' Allowed params: (:command :title :tooltip? :arguments?) (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\"\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 (#$ . 256407)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:CommandLink #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 257104)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-arguments? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "arguments"] 4 (#$ . 258014)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-arguments? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 258167)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-tooltip? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tooltip"] 4 (#$ . 258318)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-tooltip? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 258467)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-title #[257 "\300!\205\n\301\302\"\207" [ht? gethash "title"] 4 (#$ . 258614)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 258758)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-command #[257 "\300!\205\n\301\302\"\207" [ht? gethash "command"] 4 (#$ . 258900)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 259048)])#@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 (#$ . 259194)])#@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 (#$ . 259614)])#@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 (#$ . 259972)])#@150 Constructs rust-analyzer:CommandLinkGroup from `plist.' Allowed params: (:commands :title?) (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\"\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 (#$ . 260320)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-rust-analyzer:CommandLinkGroup #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 260896)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-group-title? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "title"] 4 (#$ . 261738)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-group-title? #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 261889)])#@15 (fn OBJECT) (defalias 'lsp:rust-analyzer-command-link-group-commands #[257 "\300!\205\n\301\302\"\207" [ht? gethash "commands"] 4 (#$ . 262038)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rust-analyzer-command-link-group-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 262194)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&clojure-lsp:TestTreeParams #[514 "\300>\204\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 :tree) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri :tree) gethash 1 nil assoc ((:uri . :uri) (:tree . :tree))] 7 (#$ . 262348)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&clojure-lsp:TestTreeParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri :tree) error "Unknown key: %s. Available keys: %s" (:uri :tree) when ht? gethash symbol-name assoc ((:uri . :uri) (:tree . :tree)) 1 nil] 9 (#$ . 262737)])#@15 (fn OBJECT) (defalias 'lsp-clojure-lsp-test-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)"] ("uri" "tree") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri :tree)] 6 (#$ . 263064)])#@132 Constructs clojure-lsp:TestTreeParams from `plist.' Allowed params: (:tree :uri) (fn &rest PLIST &key URI TREE &allow-other-keys) (defalias 'lsp-make-clojure-lsp-test-tree-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :uri :tree make-hash-table :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) (:tree . :tree))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 263411)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-clojure-lsp:TestTreeParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :tree) nil lsp-keyword->string alist-get ((:uri . :uri) (:tree . :tree)) error "Unknown key: %s. Available keys: %s" symbol-name (:uri :tree) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 263945)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-test-tree-params-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 264764)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-test-tree-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 264906)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-test-tree-params-tree #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tree"] 4 (#$ . 265046)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-test-tree-params-tree #[514 "\300\301#\210\207" [puthash "tree"] 6 (#$ . 265190)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&clojure-lsp:TestTreeNode #[514 "\300>\204\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? :name :range :name-range :kind) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:children? :name :range :name-range :kind) gethash 1 nil assoc ((:children? . :children) (:name . :name) (:range . :range) (:name-range . :nameRange) (:kind . :kind))] 7 (#$ . 265332)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&clojure-lsp:TestTreeNode? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:children? :name :range :name-range :kind) error "Unknown key: %s. Available keys: %s" (:children? :name :range :name-range :kind) when ht? gethash symbol-name assoc ((:children? . :children) (:name . :name) (:range . :range) (:name-range . :nameRange) (:kind . :kind)) 1 nil] 9 (#$ . 265853)])#@15 (fn OBJECT) (defalias 'lsp-clojure-lsp-test-tree-node? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\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" "range" "nameRange" "kind") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:name :range :nameRange :kind)] 6 (#$ . 266312)])#@189 Constructs clojure-lsp:TestTreeNode from `plist.' Allowed params: (:kind :name-range :range :name :children?) (fn &rest PLIST &key CHILDREN? NAME RANGE NAME-RANGE KIND &allow-other-keys) (defalias 'lsp-make-clojure-lsp-test-tree-node #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\311\312\313\"\314\315\n\"\"\210\207" [plist-member :children? :name :range :name-range :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 ((:children? . :children) (:name . :name) (:range . :range) (:name-range . :nameRange) (:kind . :kind))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 266697)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-clojure-lsp:TestTreeNode #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :range :nameRange :kind) nil lsp-keyword->string alist-get ((:children? . :children) (:name . :name) (:range . :range) (:name-range . :nameRange) (:kind . :kind)) error "Unknown key: %s. Available keys: %s" symbol-name (:children? :name :range :name-range :kind) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 267430)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-test-tree-node-children? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "children"] 4 (#$ . 268369)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-test-tree-node-children? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 268520)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-test-tree-node-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 268669)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-test-tree-node-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 268811)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-test-tree-node-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 268951)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-test-tree-node-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 269095)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-test-tree-node-name-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "nameRange"] 4 (#$ . 269237)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-test-tree-node-name-range #[514 "\300\301#\210\207" [puthash "nameRange"] 6 (#$ . 269390)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-test-tree-node-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 269541)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-test-tree-node-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 269683)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&clojure-lsp:ProjectTreeNode #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:nodes? :final? :id? :uri? :detail? :range? :name :type) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:nodes? :final? :id? :uri? :detail? :range? :name :type) gethash 1 nil assoc ((:nodes? . :nodes) (:final? . :final) (:id? . :id) (:uri? . :uri) (:detail? . :detail) (:range? . :range) (:name . :name) (:type . :type))] 7 (#$ . 269823)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&clojure-lsp:ProjectTreeNode? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:nodes? :final? :id? :uri? :detail? :range? :name :type) error "Unknown key: %s. Available keys: %s" (:nodes? :final? :id? :uri? :detail? :range? :name :type) when ht? gethash symbol-name assoc ((:nodes? . :nodes) (:final? . :final) (:id? . :id) (:uri? . :uri) (:detail? . :detail) (:range? . :range) (:name . :name) (:type . :type)) 1 nil] 9 (#$ . 270411)])#@15 (fn OBJECT) (defalias 'lsp-clojure-lsp-project-tree-node? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\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" "type") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:name :type)] 6 (#$ . 270937)])#@217 Constructs clojure-lsp:ProjectTreeNode from `plist.' Allowed params: (:type :name :range? :detail? :uri? :id? :final? :nodes?) (fn &rest PLIST &key NODES? FINAL? ID? URI? DETAIL? RANGE? NAME TYPE &allow-other-keys) (defalias 'lsp-make-clojure-lsp-project-tree-node #[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\"\314\315\316\"\317\320 \"\"\210\207" [plist-member :nodes? :final? :id? :uri? :detail? :range? :name :type make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:nodes? . :nodes) (:final? . :final) (:id? . :id) (:uri? . :uri) (:detail? . :detail) (:range? . :range) (:name . :name) (:type . :type))] 9 "\n\n(fn INPUT0)"] -partition 2] 15 (#$ . 271287)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-clojure-lsp:ProjectTreeNode #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :type) nil lsp-keyword->string alist-get ((:nodes? . :nodes) (:final? . :final) (:id? . :id) (:uri? . :uri) (:detail? . :detail) (:range? . :range) (:name . :name) (:type . :type)) error "Unknown key: %s. Available keys: %s" symbol-name (:nodes? :final? :id? :uri? :detail? :range? :name :type) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 272142)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-project-tree-node-nodes? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "nodes"] 4 (#$ . 273116)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-project-tree-node-nodes? #[514 "\300\301#\210\207" [puthash "nodes"] 6 (#$ . 273264)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-project-tree-node-final? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "final"] 4 (#$ . 273410)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-project-tree-node-final? #[514 "\300\301#\210\207" [puthash "final"] 6 (#$ . 273558)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-project-tree-node-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 273704)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-project-tree-node-id? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 273846)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-project-tree-node-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 273986)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-project-tree-node-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 274130)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-project-tree-node-detail? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "detail"] 4 (#$ . 274272)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-project-tree-node-detail? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 274422)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-project-tree-node-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 274570)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-project-tree-node-range? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 274718)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-project-tree-node-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 274864)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-project-tree-node-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 275009)])#@15 (fn OBJECT) (defalias 'lsp:clojure-lsp-project-tree-node-type #[257 "\300!\205\n\301\302\"\207" [ht? gethash "type"] 4 (#$ . 275152)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-clojure-lsp-project-tree-node-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 275297)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&terraform-ls:ModuleCalls #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:v :module-calls) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:v :module-calls) gethash 1 nil assoc ((:v . :v) (:module-calls . :module_calls))] 7 (#$ . 275440)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&terraform-ls:ModuleCalls? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:v :module-calls) error "Unknown key: %s. Available keys: %s" (:v :module-calls) when ht? gethash symbol-name assoc ((:v . :v) (:module-calls . :module_calls)) 1 nil] 9 (#$ . 275851)])#@15 (fn OBJECT) (defalias 'lsp-terraform-ls-module-calls? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("v" "module_calls") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:v :module_calls)] 6 (#$ . 276200)])#@142 Constructs terraform-ls:ModuleCalls from `plist.' Allowed params: (:module-calls :v) (fn &rest PLIST &key V MODULE-CALLS &allow-other-keys) (defalias 'lsp-make-terraform-ls-module-calls #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :v :module-calls make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:v . :v) (:module-calls . :module_calls))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 276556)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-terraform-ls:ModuleCalls #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:v :module_calls) nil lsp-keyword->string alist-get ((:v . :v) (:module-calls . :module_calls)) error "Unknown key: %s. Available keys: %s" symbol-name (:v :module-calls) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 277115)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-calls-v #[257 "\300!\205\n\301\302\"\207" [ht? gethash "v"] 4 (#$ . 277956)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-calls-v #[514 "\300\301#\210\207" [puthash "v"] 6 (#$ . 278091)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-calls-module-calls #[257 "\300!\205\n\301\302\"\207" [ht? gethash "module_calls"] 4 (#$ . 278224)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-calls-module-calls #[514 "\300\301#\210\207" [puthash "module_calls"] 6 (#$ . 278381)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&terraform-ls:Module #[514 "\300>\204\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 :docs-link :version :source-type :dependent-modules) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:name :docs-link :version :source-type :dependent-modules) gethash 1 nil assoc ((:name . :name) (:docs-link . :docs_link) (:version . :version) (:source-type . :source_type) (:dependent-modules . :dependent_modules))] 7 (#$ . 278536)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&terraform-ls:Module? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:name :docs-link :version :source-type :dependent-modules) error "Unknown key: %s. Available keys: %s" (:name :docs-link :version :source-type :dependent-modules) when ht? gethash symbol-name assoc ((:name . :name) (:docs-link . :docs_link) (:version . :version) (:source-type . :source_type) (:dependent-modules . :dependent_modules)) 1 nil] 9 (#$ . 279118)])#@15 (fn OBJECT) (defalias 'lsp-terraform-ls-module? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\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" "docs_link" "version" "source_type" "dependent_modules") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:name :docs_link :version :source_type :dependent_modules)] 6 (#$ . 279638)])#@216 Constructs terraform-ls:Module from `plist.' Allowed params: (:dependent-modules :source-type :version :docs-link :name) (fn &rest PLIST &key NAME DOCS-LINK VERSION SOURCE-TYPE DEPENDENT-MODULES &allow-other-keys) (defalias 'lsp-make-terraform-ls-module #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\311\312\313\"\314\315\n\"\"\210\207" [plist-member :name :docs-link :version :source-type :dependent-modules make-hash-table :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) (:docs-link . :docs_link) (:version . :version) (:source-type . :source_type) (:dependent-modules . :dependent_modules))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 280073)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-terraform-ls:Module #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :docs_link :version :source_type :dependent_modules) nil lsp-keyword->string alist-get ((:name . :name) (:docs-link . :docs_link) (:version . :version) (:source-type . :source_type) (:dependent-modules . :dependent_modules)) error "Unknown key: %s. Available keys: %s" symbol-name (:name :docs-link :version :source-type :dependent-modules) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 280876)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 281888)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 282023)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-docs-link #[257 "\300!\205\n\301\302\"\207" [ht? gethash "docs_link"] 4 (#$ . 282156)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-docs-link #[514 "\300\301#\210\207" [puthash "docs_link"] 6 (#$ . 282301)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-version #[257 "\300!\205\n\301\302\"\207" [ht? gethash "version"] 4 (#$ . 282444)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-version #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 282585)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-source-type #[257 "\300!\205\n\301\302\"\207" [ht? gethash "source_type"] 4 (#$ . 282724)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-source-type #[514 "\300\301#\210\207" [puthash "source_type"] 6 (#$ . 282873)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-dependent-modules #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dependent_modules"] 4 (#$ . 283020)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-dependent-modules #[514 "\300\301#\210\207" [puthash "dependent_modules"] 6 (#$ . 283181)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&terraform-ls:Providers #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:v :provider-requirements :installed-providers) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:v :provider-requirements :installed-providers) gethash 1 nil assoc ((:v . :v) (:provider-requirements . :provider_requirements) (:installed-providers . :installed_providers))] 7 (#$ . 283340)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&terraform-ls:Providers? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:v :provider-requirements :installed-providers) error "Unknown key: %s. Available keys: %s" (:v :provider-requirements :installed-providers) when ht? gethash symbol-name assoc ((:v . :v) (:provider-requirements . :provider_requirements) (:installed-providers . :installed_providers)) 1 nil] 9 (#$ . 283873)])#@15 (fn OBJECT) (defalias 'lsp-terraform-ls-providers? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("v" "provider_requirements" "installed_providers") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:v :provider_requirements :installed_providers)] 6 (#$ . 284344)])#@199 Constructs terraform-ls:Providers from `plist.' Allowed params: (:installed-providers :provider-requirements :v) (fn &rest PLIST &key V PROVIDER-REQUIREMENTS INSTALLED-PROVIDERS &allow-other-keys) (defalias 'lsp-make-terraform-ls-providers #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :v :provider-requirements :installed-providers make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:v . :v) (:provider-requirements . :provider_requirements) (:installed-providers . :installed_providers))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 284758)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-terraform-ls:Providers #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:v :provider_requirements :installed_providers) nil lsp-keyword->string alist-get ((:v . :v) (:provider-requirements . :provider_requirements) (:installed-providers . :installed_providers)) error "Unknown key: %s. Available keys: %s" symbol-name (:v :provider-requirements :installed-providers) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 285479)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-providers-v #[257 "\300!\205\n\301\302\"\207" [ht? gethash "v"] 4 (#$ . 286442)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-providers-v #[514 "\300\301#\210\207" [puthash "v"] 6 (#$ . 286574)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-providers-provider-requirements #[257 "\300!\205\n\301\302\"\207" [ht? gethash "provider_requirements"] 4 (#$ . 286704)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-providers-provider-requirements #[514 "\300\301#\210\207" [puthash "provider_requirements"] 6 (#$ . 286876)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-providers-installed-providers #[257 "\300!\205\n\301\302\"\207" [ht? gethash "installed_providers"] 4 (#$ . 287046)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-providers-installed-providers #[514 "\300\301#\210\207" [puthash "installed_providers"] 6 (#$ . 287214)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&terraform-ls:module.terraform #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:v :required-version :discovered-version) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:v :required-version :discovered-version) gethash 1 nil assoc ((:v . :v) (:required-version . :required_version) (:discovered-version . :discovered_version))] 7 (#$ . 287380)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&terraform-ls:module.terraform? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:v :required-version :discovered-version) error "Unknown key: %s. Available keys: %s" (:v :required-version :discovered-version) when ht? gethash symbol-name assoc ((:v . :v) (:required-version . :required_version) (:discovered-version . :discovered_version)) 1 nil] 9 (#$ . 287896)])#@15 (fn OBJECT) (defalias 'lsp-terraform-ls-module-terraform? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("v" "required_version" "discovered_version") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:v :required_version :discovered_version)] 6 (#$ . 288350)])#@194 Constructs terraform-ls:module.terraform from `plist.' Allowed params: (:discovered-version :required-version :v) (fn &rest PLIST &key V REQUIRED-VERSION DISCOVERED-VERSION &allow-other-keys) (defalias 'lsp-make-terraform-ls-module-terraform #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :v :required-version :discovered-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 ((:v . :v) (:required-version . :required_version) (:discovered-version . :discovered_version))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 288759)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-terraform-ls:module.terraform #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:v :required_version :discovered_version) nil lsp-keyword->string alist-get ((:v . :v) (:required-version . :required_version) (:discovered-version . :discovered_version)) error "Unknown key: %s. Available keys: %s" symbol-name (:v :required-version :discovered-version) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 289464)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-terraform-v #[257 "\300!\205\n\301\302\"\207" [ht? gethash "v"] 4 (#$ . 290410)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-terraform-v #[514 "\300\301#\210\207" [puthash "v"] 6 (#$ . 290549)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-terraform-required-version #[257 "\300!\205\n\301\302\"\207" [ht? gethash "required_version"] 4 (#$ . 290686)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-terraform-required-version #[514 "\300\301#\210\207" [puthash "required_version"] 6 (#$ . 290855)])#@15 (fn OBJECT) (defalias 'lsp:terraform-ls-module-terraform-discovered-version #[257 "\300!\205\n\301\302\"\207" [ht? gethash "discovered_version"] 4 (#$ . 291022)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-terraform-ls-module-terraform-discovered-version #[514 "\300\301#\210\207" [puthash "discovered_version"] 6 (#$ . 291195)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&copilot-ls:SignInInitiateResponse #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:status :user-code :verification-uri :expires-in :interval :user) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:status :user-code :verification-uri :expires-in :interval :user) gethash 1 nil assoc ((:status . :status) (:user-code . :userCode) (:verification-uri . :verificationUri) (:expires-in . :expiresIn) (:interval . :interval) (:user . :user))] 7 (#$ . 291366)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&copilot-ls:SignInInitiateResponse? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:status :user-code :verification-uri :expires-in :interval :user) error "Unknown key: %s. Available keys: %s" (:status :user-code :verification-uri :expires-in :interval :user) when ht? gethash symbol-name assoc ((:status . :status) (:user-code . :userCode) (:verification-uri . :verificationUri) (:expires-in . :expiresIn) (:interval . :interval) (:user . :user)) 1 nil] 9 (#$ . 291991)])#@15 (fn OBJECT) (defalias 'lsp-copilot-ls-sign-in-initiate-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)"] ("status" "userCode" "verificationUri" "expiresIn" "interval" "user") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:status :userCode :verificationUri :expiresIn :interval :user)] 6 (#$ . 292554)])#@243 Constructs copilot-ls:SignInInitiateResponse from `plist.' Allowed params: (:user :interval :expires-in :verification-uri :user-code :status) (fn &rest PLIST &key STATUS USER-CODE VERIFICATION-URI EXPIRES-IN INTERVAL USER &allow-other-keys) (defalias 'lsp-make-copilot-ls-sign-in-initiate-response #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\307\310\311\"\312\313\314\"\315\316 \"\"\210\207" [plist-member :status :user-code :verification-uri :expires-in :interval :user make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:status . :status) (:user-code . :userCode) (:verification-uri . :verificationUri) (:expires-in . :expiresIn) (:interval . :interval) (:user . :user))] 9 "\n\n(fn INPUT0)"] -partition 2] 13 (#$ . 293015)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-copilot-ls:SignInInitiateResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:status :userCode :verificationUri :expiresIn :interval :user) nil lsp-keyword->string alist-get ((:status . :status) (:user-code . :userCode) (:verification-uri . :verificationUri) (:expires-in . :expiresIn) (:interval . :interval) (:user . :user)) error "Unknown key: %s. Available keys: %s" symbol-name (:status :user-code :verification-uri :expires-in :interval :user) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 293897)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-sign-in-initiate-response-status #[257 "\300!\205\n\301\302\"\207" [ht? gethash "status"] 4 (#$ . 294949)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-sign-in-initiate-response-status #[514 "\300\301#\210\207" [puthash "status"] 6 (#$ . 295105)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-sign-in-initiate-response-user-code #[257 "\300!\205\n\301\302\"\207" [ht? gethash "userCode"] 4 (#$ . 295259)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-sign-in-initiate-response-user-code #[514 "\300\301#\210\207" [puthash "userCode"] 6 (#$ . 295420)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-sign-in-initiate-response-verification-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "verificationUri"] 4 (#$ . 295579)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-sign-in-initiate-response-verification-uri #[514 "\300\301#\210\207" [puthash "verificationUri"] 6 (#$ . 295754)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-sign-in-initiate-response-expires-in #[257 "\300!\205\n\301\302\"\207" [ht? gethash "expiresIn"] 4 (#$ . 295927)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-sign-in-initiate-response-expires-in #[514 "\300\301#\210\207" [puthash "expiresIn"] 6 (#$ . 296090)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-sign-in-initiate-response-interval #[257 "\300!\205\n\301\302\"\207" [ht? gethash "interval"] 4 (#$ . 296251)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-sign-in-initiate-response-interval #[514 "\300\301#\210\207" [puthash "interval"] 6 (#$ . 296411)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-sign-in-initiate-response-user #[257 "\300!\205\n\301\302\"\207" [ht? gethash "user"] 4 (#$ . 296569)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-sign-in-initiate-response-user #[514 "\300\301#\210\207" [puthash "user"] 6 (#$ . 296721)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&copilot-ls:SignInConfirmResponse #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:status :user) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:status :user) gethash 1 nil assoc ((:status . :status) (:user . :user))] 7 (#$ . 296871)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&copilot-ls:SignInConfirmResponse? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:status :user) error "Unknown key: %s. Available keys: %s" (:status :user) when ht? gethash symbol-name assoc ((:status . :status) (:user . :user)) 1 nil] 9 (#$ . 297278)])#@15 (fn OBJECT) (defalias 'lsp-copilot-ls-sign-in-confirm-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)"] ("status" "user") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:status :user)] 6 (#$ . 297623)])#@144 Constructs copilot-ls:SignInConfirmResponse from `plist.' Allowed params: (:user :status) (fn &rest PLIST &key STATUS USER &allow-other-keys) (defalias 'lsp-make-copilot-ls-sign-in-confirm-response #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :status :user make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:status . :status) (:user . :user))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 297983)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-copilot-ls:SignInConfirmResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:status :user) nil lsp-keyword->string alist-get ((:status . :status) (:user . :user)) error "Unknown key: %s. Available keys: %s" symbol-name (:status :user) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 298545)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-sign-in-confirm-response-status #[257 "\300!\205\n\301\302\"\207" [ht? gethash "status"] 4 (#$ . 299382)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-sign-in-confirm-response-status #[514 "\300\301#\210\207" [puthash "status"] 6 (#$ . 299537)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-sign-in-confirm-response-user #[257 "\300!\205\n\301\302\"\207" [ht? gethash "user"] 4 (#$ . 299690)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-sign-in-confirm-response-user #[514 "\300\301#\210\207" [puthash "user"] 6 (#$ . 299841)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&copilot-ls:CheckStatusResponse #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:status :user) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:status :user) gethash 1 nil assoc ((:status . :status) (:user . :user))] 7 (#$ . 299990)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&copilot-ls:CheckStatusResponse? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:status :user) error "Unknown key: %s. Available keys: %s" (:status :user) when ht? gethash symbol-name assoc ((:status . :status) (:user . :user)) 1 nil] 9 (#$ . 300395)])#@15 (fn OBJECT) (defalias 'lsp-copilot-ls-check-status-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)"] ("status" "user") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:status :user)] 6 (#$ . 300738)])#@142 Constructs copilot-ls:CheckStatusResponse from `plist.' Allowed params: (:user :status) (fn &rest PLIST &key STATUS USER &allow-other-keys) (defalias 'lsp-make-copilot-ls-check-status-response #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :status :user make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:status . :status) (:user . :user))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 301095)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-copilot-ls:CheckStatusResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:status :user) nil lsp-keyword->string alist-get ((:status . :status) (:user . :user)) error "Unknown key: %s. Available keys: %s" symbol-name (:status :user) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 301652)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-check-status-response-status #[257 "\300!\205\n\301\302\"\207" [ht? gethash "status"] 4 (#$ . 302487)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-check-status-response-status #[514 "\300\301#\210\207" [puthash "status"] 6 (#$ . 302639)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-check-status-response-user #[257 "\300!\205\n\301\302\"\207" [ht? gethash "user"] 4 (#$ . 302789)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-check-status-response-user #[514 "\300\301#\210\207" [puthash "user"] 6 (#$ . 302937)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&copilot-ls:McpToolsNotification #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:servers s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:servers) gethash 1 nil assoc ((:servers . :servers))] 7 (#$ . 303083)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&copilot-ls:McpToolsNotification? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:servers error "Unknown key: %s. Available keys: %s" (:servers) when ht? gethash symbol-name assoc ((:servers . :servers)) 1 nil] 9 (#$ . 303463)])#@15 (fn OBJECT) (defalias 'lsp-copilot-ls-mcp-tools-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)"] ("servers") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:servers)] 6 (#$ . 303781)])#@134 Constructs copilot-ls:McpToolsNotification from `plist.' Allowed params: (:servers) (fn &rest PLIST &key SERVERS &allow-other-keys) (defalias 'lsp-make-copilot-ls-mcp-tools-notification #[128 "\300\301\"A@\302\303\304\"\305\306\307\"\310\311\"\"\210\207" [plist-member :servers make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:servers . :servers))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 304128)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-copilot-ls:McpToolsNotification #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:servers) nil lsp-keyword->string alist-get ((:servers . :servers)) error "Unknown key: %s. Available keys: %s" symbol-name (:servers) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 304646)])#@15 (fn OBJECT) (defalias 'lsp:copilot-ls-mcp-tools-notification-servers #[257 "\300!\205\n\301\302\"\207" [ht? gethash "servers"] 4 (#$ . 305458)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-copilot-ls-mcp-tools-notification-servers #[514 "\300\301#\210\207" [puthash "servers"] 6 (#$ . 305613)]) (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)#@148 Explicit invocation as per https://microsoft.github.io/language-server-protocol/specifications/lsp/3.18/specification/#inlineCompletionTriggerKind (defconst lsp/inline-completion-trigger-invoked 1 (#$ . 307465))#@149 Automatic invocation as per https://microsoft.github.io/language-server-protocol/specifications/lsp/3.18/specification/#inlineCompletionTriggerKind (defconst lsp/inline-completion-trigger-automatic 2 (#$ . 307683)) (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/completion-item-tag-lookup [nil Deprecated]) (defconst lsp/completion-item-tag-deprecated 1) (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 (#$ . 312223)])#@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 (#$ . 312651)])#@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 (#$ . 313017)])#@156 Constructs CallHierarchyCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-call-hierarchy-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 313339)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CallHierarchyCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 313913)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 314748)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 314923)])#@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 (#$ . 315096)])#@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 (#$ . 315677)])#@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 (#$ . 316196)])#@210 Constructs CallHierarchyItem from `plist.' Allowed params: (:uri :selection-range :range :name :kind :tags? :detail?) (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\"\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 (#$ . 316595)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CallHierarchyItem #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 317422)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-detail? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "detail"] 4 (#$ . 318416)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-detail? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 318556)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-tags? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tags"] 4 (#$ . 318694)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-tags? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 318830)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 318964)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 319099)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 319232)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 319367)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 319500)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 319637)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-selection-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "selectionRange"] 4 (#$ . 319772)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 319928)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-item-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 320082)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 320215)])#@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 (#$ . 320346)])#@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 (#$ . 320855)])#@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 (#$ . 321302)])#@187 Constructs ClientCapabilities from `plist.' Allowed params: (:workspace? :text-document? :experimental?) (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\"\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 (#$ . 321616)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ClientCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 322306)])#@15 (fn OBJECT) (defalias 'lsp:client-capabilities-experimental? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "experimental"] 4 (#$ . 323200)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-experimental? #[514 "\300\301#\210\207" [puthash "experimental"] 6 (#$ . 323352)])#@15 (fn OBJECT) (defalias 'lsp:client-capabilities-text-document? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 323502)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-text-document? #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 323655)])#@15 (fn OBJECT) (defalias 'lsp:client-capabilities-workspace? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspace"] 4 (#$ . 323806)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-capabilities-workspace? #[514 "\300\301#\210\207" [puthash "workspace"] 6 (#$ . 323952)])#@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 (#$ . 324096)])#@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 (#$ . 324488)])#@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 (#$ . 324818)])#@126 Constructs ClientInfo from `plist.' Allowed params: (:name :version?) (fn &rest PLIST &key VERSION? NAME &allow-other-keys) (defalias 'lsp-make-client-info #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 325137)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ClientInfo #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 325662)])#@15 (fn OBJECT) (defalias 'lsp:client-info-version? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "version"] 4 (#$ . 326474)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-info-version? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 326608)])#@15 (fn OBJECT) (defalias 'lsp:client-info-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 326740)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-client-info-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 326867)])#@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 (#$ . 326992)])#@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 (#$ . 327768)])#@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 (#$ . 328482)])#@321 Constructs CodeActionCapabilities from `plist.' Allowed params: (:resolve-support? :data-support? :is-preferred-support? :dynamic-registration? :code-action-literal-support?) (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\"\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 (#$ . 328801)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeActionCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 329854)])#@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-code-action-literal-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "codeActionLiteralSupport"] 4 (#$ . 330949)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-code-action-literal-support? #[514 "\300\301#\210\207" [puthash "codeActionLiteralSupport"] 6 (#$ . 331133)])#@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 331315)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 331487)])#@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-is-preferred-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "isPreferredSupport"] 4 (#$ . 331657)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-is-preferred-support? #[514 "\300\301#\210\207" [puthash "isPreferredSupport"] 6 (#$ . 331828)])#@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-data-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dataSupport"] 4 (#$ . 331997)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-data-support? #[514 "\300\301#\210\207" [puthash "dataSupport"] 6 (#$ . 332153)])#@15 (fn OBJECT) (defalias 'lsp:code-action-capabilities-resolve-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveSupport"] 4 (#$ . 332307)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-capabilities-resolve-support? #[514 "\300\301#\210\207" [puthash "resolveSupport"] 6 (#$ . 332469)])#@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 (#$ . 332629)])#@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 (#$ . 333044)])#@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 (#$ . 333397)])#@141 Constructs CodeActionContext from `plist.' Allowed params: (:diagnostics :only?) (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\"\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 (#$ . 333738)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeActionContext #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 334298)])#@15 (fn OBJECT) (defalias 'lsp:code-action-context-only? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "only"] 4 (#$ . 335136)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-context-only? #[514 "\300\301#\210\207" [puthash "only"] 6 (#$ . 335272)])#@15 (fn OBJECT) (defalias 'lsp:code-action-context-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht? gethash "diagnostics"] 4 (#$ . 335406)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-context-diagnostics #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 335555)])#@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 (#$ . 335702)])#@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 (#$ . 336084)])#@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 (#$ . 336404)])#@133 Constructs CodeActionKindCapabilities from `plist.' Allowed params: (:value-set) (fn &rest PLIST &key VALUE-SET &allow-other-keys) (defalias 'lsp-make-code-action-kind-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 336749)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeActionKindCapabilities #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 337267)])#@15 (fn OBJECT) (defalias 'lsp:code-action-kind-capabilities-value-set #[257 "\300!\205\n\301\302\"\207" [ht? gethash "valueSet"] 4 (#$ . 338080)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-kind-capabilities-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 338234)])#@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 (#$ . 338386)])#@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 (#$ . 338808)])#@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 (#$ . 339168)])#@159 Constructs CodeActionLiteralSupportCapabilities from `plist.' Allowed params: (:code-action-kind?) (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\"\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 (#$ . 339503)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeActionLiteralSupportCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 340080)])#@15 (fn OBJECT) (defalias 'lsp:code-action-literal-support-capabilities-code-action-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "codeActionKind"] 4 (#$ . 340913)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-literal-support-capabilities-code-action-kind? #[514 "\300\301#\210\207" [puthash "codeActionKind"] 6 (#$ . 341092)])#@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 (#$ . 341269)])#@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 (#$ . 341756)])#@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 (#$ . 342181)])#@179 Constructs CodeActionOptions from `plist.' Allowed params: (:resolve-provider? :code-action-kinds?) (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\"\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 (#$ . 342495)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeActionOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 343146)])#@15 (fn OBJECT) (defalias 'lsp:code-action-options-code-action-kinds? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "codeActionKinds"] 4 (#$ . 344022)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-options-code-action-kinds? #[514 "\300\301#\210\207" [puthash "codeActionKinds"] 6 (#$ . 344182)])#@15 (fn OBJECT) (defalias 'lsp:code-action-options-resolve-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveProvider"] 4 (#$ . 344340)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-options-resolve-provider? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 344499)])#@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 (#$ . 344656)])#@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 (#$ . 345079)])#@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 (#$ . 345440)])#@151 Constructs CodeLensCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-code-lens-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 345757)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeLensCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 346321)])#@15 (fn OBJECT) (defalias 'lsp:code-lens-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 347151)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 347321)])#@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 (#$ . 347489)])#@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 (#$ . 347888)])#@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 (#$ . 348225)])#@136 Constructs CodeLensOptions from `plist.' Allowed params: (:resolve-provider) (fn &rest PLIST &key RESOLVE-PROVIDER &allow-other-keys) (defalias 'lsp-make-code-lens-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 348572)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeLensOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 349102)])#@15 (fn OBJECT) (defalias 'lsp:code-lens-options-resolve-provider #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveProvider"] 4 (#$ . 349932)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-options-resolve-provider #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 350088)])#@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 (#$ . 350242)])#@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 (#$ . 350674)])#@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 (#$ . 351044)])#@137 Constructs Color from `plist.' Allowed params: (:alpha :blue :green :red) (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\"\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 (#$ . 351398)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Color #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 351991)])#@15 (fn OBJECT) (defalias 'lsp:color-red #[257 "\300!\205\n\301\302\"\207" [ht? gethash "red"] 4 (#$ . 352853)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-red #[514 "\300\301#\210\207" [puthash "red"] 6 (#$ . 352972)])#@15 (fn OBJECT) (defalias 'lsp:color-green #[257 "\300!\205\n\301\302\"\207" [ht? gethash "green"] 4 (#$ . 353089)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-green #[514 "\300\301#\210\207" [puthash "green"] 6 (#$ . 353212)])#@15 (fn OBJECT) (defalias 'lsp:color-blue #[257 "\300!\205\n\301\302\"\207" [ht? gethash "blue"] 4 (#$ . 353333)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-blue #[514 "\300\301#\210\207" [puthash "blue"] 6 (#$ . 353454)])#@15 (fn OBJECT) (defalias 'lsp:color-alpha #[257 "\300!\205\n\301\302\"\207" [ht? gethash "alpha"] 4 (#$ . 353573)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-alpha #[514 "\300\301#\210\207" [puthash "alpha"] 6 (#$ . 353696)])#@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 (#$ . 353817)])#@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 (#$ . 354245)])#@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 (#$ . 354611)])#@156 Constructs ColorProviderCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-color-provider-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 354933)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ColorProviderCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 355507)])#@15 (fn OBJECT) (defalias 'lsp:color-provider-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 356342)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 356517)])#@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 (#$ . 356690)])#@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 (#$ . 357126)])#@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 (#$ . 357500)])#@154 Constructs ColorProviderOptions from `plist.' Allowed params: (:id? :document-selector?) (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\"\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 (#$ . 357817)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ColorProviderOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 358406)])#@15 (fn OBJECT) (defalias 'lsp:color-provider-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 359245)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 359409)])#@15 (fn OBJECT) (defalias 'lsp:color-provider-options-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 359571)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-provider-options-id? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 359706)])#@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 (#$ . 359839)])#@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 (#$ . 360237)])#@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 (#$ . 360573)])#@133 Constructs ColoringInformation from `plist.' Allowed params: (:styles :range) (fn &rest PLIST &key RANGE STYLES &allow-other-keys) (defalias 'lsp-make-coloring-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 360920)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ColoringInformation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 361459)])#@15 (fn OBJECT) (defalias 'lsp:coloring-information-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 362287)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-information-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 362425)])#@15 (fn OBJECT) (defalias 'lsp:coloring-information-styles #[257 "\300!\205\n\301\302\"\207" [ht? gethash "styles"] 4 (#$ . 362561)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-information-styles #[514 "\300\301#\210\207" [puthash "styles"] 6 (#$ . 362701)])#@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 (#$ . 362839)])#@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 (#$ . 363280)])#@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 (#$ . 363659)])#@146 Constructs Command from `plist.' Allowed params: (:command :title :arguments?) (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\"\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 (#$ . 363995)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Command #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 364590)])#@15 (fn OBJECT) (defalias 'lsp:command-arguments? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "arguments"] 4 (#$ . 365449)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-arguments? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 365583)])#@15 (fn OBJECT) (defalias 'lsp:command-title #[257 "\300!\205\n\301\302\"\207" [ht? gethash "title"] 4 (#$ . 365715)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 365840)])#@15 (fn OBJECT) (defalias 'lsp:command-command #[257 "\300!\205\n\301\302\"\207" [ht? gethash "command"] 4 (#$ . 365963)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-command-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 366092)])#@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 (#$ . 366219)])#@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 (#$ . 366887)])#@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 (#$ . 367493)])#@268 Constructs CompletionCapabilities from `plist.' Allowed params: (:dynamic-registration? :context-support? :completion-item-kind? :completion-item?) (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\"\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 (#$ . 367811)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 368715)])#@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-completion-item? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "completionItem"] 4 (#$ . 369729)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-completion-item? #[514 "\300\301#\210\207" [puthash "completionItem"] 6 (#$ . 369890)])#@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-completion-item-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "completionItemKind"] 4 (#$ . 370049)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-completion-item-kind? #[514 "\300\301#\210\207" [puthash "completionItemKind"] 6 (#$ . 370219)])#@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-context-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "contextSupport"] 4 (#$ . 370387)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-context-support? #[514 "\300\301#\210\207" [puthash "contextSupport"] 6 (#$ . 370548)])#@15 (fn OBJECT) (defalias 'lsp:completion-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 370707)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 370878)])#@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 (#$ . 371047)])#@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 (#$ . 371516)])#@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 (#$ . 371923)])#@169 Constructs CompletionContext from `plist.' Allowed params: (:trigger-kind :trigger-character?) (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\"\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 (#$ . 372263)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionContext #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 372890)])#@15 (fn OBJECT) (defalias 'lsp:completion-context-trigger-character? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerCharacter"] 4 (#$ . 373768)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-context-trigger-character? #[514 "\300\301#\210\207" [puthash "triggerCharacter"] 6 (#$ . 373928)])#@15 (fn OBJECT) (defalias 'lsp:completion-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerKind"] 4 (#$ . 374086)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 374235)])#@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-details? :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-details? :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-details? . :labelDetails) (:label . :label))] 7 (#$ . 374382)])#@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-details? :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-details? :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-details? . :labelDetails) (:label . :label)) 1 nil] 9 (#$ . 375745)])#@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 (#$ . 377046)])#@577 Constructs CompletionItem from `plist.' Allowed params: (:label :label-details? :score? :text-edit? :tags? :sort-text? :preselect? :kind? :insert-text-mode? :insert-text-format? :insert-text? :filter-text? :documentation? :detail? :deprecated? :data? :commit-characters? :command? :additional-text-edits?) (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-DETAILS? 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@\300\323\"A@\324\325\326\"\327\330\331\"\332\333\"\"\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-details? :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-details? . :labelDetails) (:label . :label))] 9 "\n\n(fn INPUT0)"] -partition 2] 26 (#$ . 377371)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionItem #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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-details? . :labelDetails) (: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-details? :label) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 379324)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-additional-text-edits? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "additionalTextEdits"] 4 (#$ . 380876)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-additional-text-edits? #[514 "\300\301#\210\207" [puthash "additionalTextEdits"] 6 (#$ . 381040)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-command? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "command"] 4 (#$ . 381202)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-command? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 381340)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-commit-characters? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "commitCharacters"] 4 (#$ . 381476)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-commit-characters? #[514 "\300\301#\210\207" [puthash "commitCharacters"] 6 (#$ . 381633)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 381788)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 381920)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-deprecated? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "deprecated"] 4 (#$ . 382050)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-deprecated? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 382194)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-detail? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "detail"] 4 (#$ . 382336)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-detail? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 382472)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-documentation? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentation"] 4 (#$ . 382606)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-documentation? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 382756)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-filter-text? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "filterText"] 4 (#$ . 382904)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-filter-text? #[514 "\300\301#\210\207" [puthash "filterText"] 6 (#$ . 383049)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insertText"] 4 (#$ . 383192)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text? #[514 "\300\301#\210\207" [puthash "insertText"] 6 (#$ . 383337)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text-format? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insertTextFormat"] 4 (#$ . 383480)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text-format? #[514 "\300\301#\210\207" [puthash "insertTextFormat"] 6 (#$ . 383638)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-insert-text-mode? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insertTextMode"] 4 (#$ . 383794)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-insert-text-mode? #[514 "\300\301#\210\207" [puthash "insertTextMode"] 6 (#$ . 383948)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 384100)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-kind? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 384232)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-preselect? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "preselect"] 4 (#$ . 384362)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-preselect? #[514 "\300\301#\210\207" [puthash "preselect"] 6 (#$ . 384504)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-sort-text? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "sortText"] 4 (#$ . 384644)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-sort-text? #[514 "\300\301#\210\207" [puthash "sortText"] 6 (#$ . 384785)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-tags? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tags"] 4 (#$ . 384924)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-tags? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 385056)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-text-edit? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textEdit"] 4 (#$ . 385186)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-text-edit? #[514 "\300\301#\210\207" [puthash "textEdit"] 6 (#$ . 385327)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-score? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "score"] 4 (#$ . 385466)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-score? #[514 "\300\301#\210\207" [puthash "score"] 6 (#$ . 385600)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-label-details? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "labelDetails"] 4 (#$ . 385732)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-label-details? #[514 "\300\301#\210\207" [puthash "labelDetails"] 6 (#$ . 385881)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-label #[257 "\300!\205\n\301\302\"\207" [ht? gethash "label"] 4 (#$ . 386028)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 386161)])#@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? :label-details-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? :label-details-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) (:label-details-support? . :labelDetailsSupport))] 7 (#$ . 386292)])#@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? :label-details-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? :label-details-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) (:label-details-support? . :labelDetailsSupport)) 1 nil] 9 (#$ . 387408)])#@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 (#$ . 388462)])#@485 Constructs CompletionItemCapabilities from `plist.' Allowed params: (:label-details-support? :resolve-support? :insert-replace-support? :tag-support? :snippet-support? :preselect-support? :documentation-format? :deprecated-support? :commit-characters-support?) (fn &rest PLIST &key COMMIT-CHARACTERS-SUPPORT? DEPRECATED-SUPPORT? DOCUMENTATION-FORMAT? PRESELECT-SUPPORT? SNIPPET-SUPPORT? TAG-SUPPORT? INSERT-REPLACE-SUPPORT? RESOLVE-SUPPORT? LABEL-DETAILS-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@\300 \311\"A@\312\313\314\"\315\316\317\"\320\321\"\"\210\207" [plist-member :commit-characters-support? :deprecated-support? :documentation-format? :preselect-support? :snippet-support? :tag-support? :insert-replace-support? :resolve-support? :label-details-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) (:label-details-support? . :labelDetailsSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 16 (#$ . 388785)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionItemCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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) (:label-details-support? . :labelDetailsSupport)) 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? :label-details-support?) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 390315)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-commit-characters-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "commitCharactersSupport"] 4 (#$ . 391668)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-commit-characters-support? #[514 "\300\301#\210\207" [puthash "commitCharactersSupport"] 6 (#$ . 391853)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-deprecated-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "deprecatedSupport"] 4 (#$ . 392036)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-deprecated-support? #[514 "\300\301#\210\207" [puthash "deprecatedSupport"] 6 (#$ . 392208)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-documentation-format? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentationFormat"] 4 (#$ . 392378)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-documentation-format? #[514 "\300\301#\210\207" [puthash "documentationFormat"] 6 (#$ . 392554)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-preselect-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "preselectSupport"] 4 (#$ . 392728)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-preselect-support? #[514 "\300\301#\210\207" [puthash "preselectSupport"] 6 (#$ . 392898)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-snippet-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "snippetSupport"] 4 (#$ . 393066)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-snippet-support? #[514 "\300\301#\210\207" [puthash "snippetSupport"] 6 (#$ . 393232)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-tag-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tagSupport"] 4 (#$ . 393396)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-tag-support? #[514 "\300\301#\210\207" [puthash "tagSupport"] 6 (#$ . 393554)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-insert-replace-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insertReplaceSupport"] 4 (#$ . 393710)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-insert-replace-support? #[514 "\300\301#\210\207" [puthash "insertReplaceSupport"] 6 (#$ . 393889)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-resolve-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveSupport"] 4 (#$ . 394066)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-resolve-support? #[514 "\300\301#\210\207" [puthash "resolveSupport"] 6 (#$ . 394232)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-capabilities-label-details-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "labelDetailsSupport"] 4 (#$ . 394396)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-capabilities-label-details-support? #[514 "\300\301#\210\207" [puthash "labelDetailsSupport"] 6 (#$ . 394573)])#@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 (#$ . 394748)])#@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 (#$ . 395137)])#@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 (#$ . 395464)])#@139 Constructs CompletionItemKindCapabilities from `plist.' Allowed params: (:value-set?) (fn &rest PLIST &key VALUE-SET? &allow-other-keys) (defalias 'lsp-make-completion-item-kind-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 395792)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionItemKindCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 396322)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-kind-capabilities-value-set? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "valueSet"] 4 (#$ . 397129)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-kind-capabilities-value-set? #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 397288)])#@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 (#$ . 397445)])#@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 (#$ . 397837)])#@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 (#$ . 398167)])#@143 Constructs CompletionItemTagSupportCapabilities from `plist.' Allowed params: (:value-set) (fn &rest PLIST &key VALUE-SET &allow-other-keys) (defalias 'lsp-make-completion-item-tag-support-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 398523)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionItemTagSupportCapabilities #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 399062)])#@15 (fn OBJECT) (defalias 'lsp:completion-item-tag-support-capabilities-value-set #[257 "\300!\205\n\301\302\"\207" [ht? gethash "valueSet"] 4 (#$ . 399885)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-item-tag-support-capabilities-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 400050)])#@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 (#$ . 400213)])#@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 (#$ . 400802)])#@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 (#$ . 401329)])#@228 Constructs CompletionOptions from `plist.' Allowed params: (:all-commit-characters? :trigger-characters? :resolve-provider?) (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\"\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 (#$ . 401642)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 402432)])#@15 (fn OBJECT) (defalias 'lsp:completion-options-resolve-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveProvider"] 4 (#$ . 403385)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-resolve-provider? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 403543)])#@15 (fn OBJECT) (defalias 'lsp:completion-options-trigger-characters? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerCharacters"] 4 (#$ . 403699)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-trigger-characters? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 403861)])#@15 (fn OBJECT) (defalias 'lsp:completion-options-all-commit-characters? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "allCommitCharacters"] 4 (#$ . 404021)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-options-all-commit-characters? #[514 "\300\301#\210\207" [puthash "allCommitCharacters"] 6 (#$ . 404188)])#@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 (#$ . 404353)])#@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 (#$ . 404774)])#@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 (#$ . 405133)])#@145 Constructs ConfigurationItem from `plist.' Allowed params: (:section? :scope-uri?) (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\"\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 (#$ . 405446)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ConfigurationItem #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 406013)])#@15 (fn OBJECT) (defalias 'lsp:configuration-item-scope-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "scopeUri"] 4 (#$ . 406840)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-item-scope-uri? #[514 "\300\301#\210\207" [puthash "scopeUri"] 6 (#$ . 406984)])#@15 (fn OBJECT) (defalias 'lsp:configuration-item-section? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "section"] 4 (#$ . 407126)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-item-section? #[514 "\300\301#\210\207" [puthash "section"] 6 (#$ . 407267)])#@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 (#$ . 407406)])#@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 (#$ . 407862)])#@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 (#$ . 408256)])#@163 Constructs CreateFileOptions from `plist.' Allowed params: (:overwrite? :ignore-if-exists?) (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\"\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 (#$ . 408570)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CreateFileOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 409182)])#@15 (fn OBJECT) (defalias 'lsp:create-file-options-ignore-if-exists? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ignoreIfExists"] 4 (#$ . 410035)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options-ignore-if-exists? #[514 "\300\301#\210\207" [puthash "ignoreIfExists"] 6 (#$ . 410193)])#@15 (fn OBJECT) (defalias 'lsp:create-file-options-overwrite? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "overwrite"] 4 (#$ . 410349)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options-overwrite? #[514 "\300\301#\210\207" [puthash "overwrite"] 6 (#$ . 410495)])#@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 (#$ . 410639)])#@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 (#$ . 411129)])#@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 (#$ . 411557)])#@183 Constructs DeclarationCapabilities from `plist.' Allowed params: (:link-support? :dynamic-registration?) (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\"\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 (#$ . 411876)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DeclarationCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 412534)])#@15 (fn OBJECT) (defalias 'lsp:declaration-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 413414)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 413586)])#@15 (fn OBJECT) (defalias 'lsp:declaration-capabilities-link-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "linkSupport"] 4 (#$ . 413756)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-capabilities-link-support? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 413912)])#@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 (#$ . 414066)])#@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 (#$ . 414555)])#@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 (#$ . 414982)])#@182 Constructs DefinitionCapabilities from `plist.' Allowed params: (:link-support? :dynamic-registration?) (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\"\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 (#$ . 415300)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DefinitionCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 415956)])#@15 (fn OBJECT) (defalias 'lsp:definition-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 416835)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 417006)])#@15 (fn OBJECT) (defalias 'lsp:definition-capabilities-link-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "linkSupport"] 4 (#$ . 417175)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-capabilities-link-support? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 417330)])#@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 (#$ . 417483)])#@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 (#$ . 417954)])#@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 (#$ . 418363)])#@171 Constructs DeleteFileOptions from `plist.' Allowed params: (:recursive? :ignore-if-not-exists?) (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\"\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 (#$ . 418677)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DeleteFileOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 419308)])#@15 (fn OBJECT) (defalias 'lsp:delete-file-options-ignore-if-not-exists? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ignoreIfNotExists"] 4 (#$ . 420172)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options-ignore-if-not-exists? #[514 "\300\301#\210\207" [puthash "ignoreIfNotExists"] 6 (#$ . 420337)])#@15 (fn OBJECT) (defalias 'lsp:delete-file-options-recursive? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "recursive"] 4 (#$ . 420500)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options-recursive? #[514 "\300\301#\210\207" [puthash "recursive"] 6 (#$ . 420646)])#@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 (#$ . 420790)])#@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 (#$ . 421421)])#@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 (#$ . 421990)])#@233 Constructs Diagnostic from `plist.' Allowed params: (:message :range :tags? :source? :severity? :related-information? :code?) (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\"\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 (#$ . 422329)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Diagnostic #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 423212)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-code? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "code"] 4 (#$ . 424217)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-code? #[514 "\300\301#\210\207" [puthash "code"] 6 (#$ . 424344)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "relatedInformation"] 4 (#$ . 424469)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information? #[514 "\300\301#\210\207" [puthash "relatedInformation"] 6 (#$ . 424625)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-severity? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "severity"] 4 (#$ . 424779)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-severity? #[514 "\300\301#\210\207" [puthash "severity"] 6 (#$ . 424914)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-source? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "source"] 4 (#$ . 425047)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-source? #[514 "\300\301#\210\207" [puthash "source"] 6 (#$ . 425178)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-tags? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tags"] 4 (#$ . 425307)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-tags? #[514 "\300\301#\210\207" [puthash "tags"] 6 (#$ . 425434)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 425559)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 425687)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-message #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 425813)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 425945)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticClientCapabilities #[514 "\300>\204\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? :related-document-support?) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:dynamic-registration? :related-document-support?) gethash 1 nil assoc ((:dynamic-registration? . :dynamicRegistration) (:related-document-support? . :relatedDocumentSupport))] 7 (#$ . 426075)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticClientCapabilities? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:dynamic-registration? :related-document-support?) error "Unknown key: %s. Available keys: %s" (:dynamic-registration? :related-document-support?) when ht? gethash symbol-name assoc ((:dynamic-registration? . :dynamicRegistration) (:related-document-support? . :relatedDocumentSupport)) 1 nil] 9 (#$ . 426617)])#@15 (fn OBJECT) (defalias 'lsp-diagnostic-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 (#$ . 427097)])#@212 Constructs DiagnosticClientCapabilities from `plist.' Allowed params: (:related-document-support? :dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? RELATED-DOCUMENT-SUPPORT? &allow-other-keys) (defalias 'lsp-make-diagnostic-client-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :dynamic-registration? :related-document-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) (:related-document-support? . :relatedDocumentSupport))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 427422)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DiagnosticClientCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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) (:related-document-support? . :relatedDocumentSupport)) error "Unknown key: %s. Available keys: %s" symbol-name (:dynamic-registration? :related-document-support?) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 428150)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-client-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 429070)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-client-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 429248)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-client-capabilities-related-document-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "relatedDocumentSupport"] 4 (#$ . 429424)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-client-capabilities-related-document-support? #[514 "\300\301#\210\207" [puthash "relatedDocumentSupport"] 6 (#$ . 429609)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:identifier? :inter-file-dependencies :workspace-diagnostics) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:identifier? :inter-file-dependencies :workspace-diagnostics) gethash 1 nil assoc ((:identifier? . :identifier) (:inter-file-dependencies . :interFileDependencies) (:workspace-diagnostics . :workspaceDiagnostics))] 7 (#$ . 429792)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticOptions? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:identifier? :inter-file-dependencies :workspace-diagnostics) error "Unknown key: %s. Available keys: %s" (:identifier? :inter-file-dependencies :workspace-diagnostics) when ht? gethash symbol-name assoc ((:identifier? . :identifier) (:inter-file-dependencies . :interFileDependencies) (:workspace-diagnostics . :workspaceDiagnostics)) 1 nil] 9 (#$ . 430372)])#@15 (fn OBJECT) (defalias 'lsp-diagnostic-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)"] ("interFileDependencies" "workspaceDiagnostics") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:interFileDependencies :workspaceDiagnostics)] 6 (#$ . 430890)])#@222 Constructs DiagnosticOptions from `plist.' Allowed params: (:workspace-diagnostics :inter-file-dependencies :identifier?) (fn &rest PLIST &key IDENTIFIER? INTER-FILE-DEPENDENCIES WORKSPACE-DIAGNOSTICS &allow-other-keys) (defalias 'lsp-make-diagnostic-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :identifier? :inter-file-dependencies :workspace-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 ((:identifier? . :identifier) (:inter-file-dependencies . :interFileDependencies) (:workspace-diagnostics . :workspaceDiagnostics))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 431295)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DiagnosticOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:interFileDependencies :workspaceDiagnostics) nil lsp-keyword->string alist-get ((:identifier? . :identifier) (:inter-file-dependencies . :interFileDependencies) (:workspace-diagnostics . :workspaceDiagnostics)) error "Unknown key: %s. Available keys: %s" symbol-name (:identifier? :inter-file-dependencies :workspace-diagnostics) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 432073)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-options-identifier? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "identifier"] 4 (#$ . 433067)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-options-identifier? #[514 "\300\301#\210\207" [puthash "identifier"] 6 (#$ . 433214)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-options-inter-file-dependencies #[257 "\300!\205\n\301\302\"\207" [ht? gethash "interFileDependencies"] 4 (#$ . 433359)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-options-inter-file-dependencies #[514 "\300\301#\210\207" [puthash "interFileDependencies"] 6 (#$ . 433529)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-options-workspace-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspaceDiagnostics"] 4 (#$ . 433697)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-options-workspace-diagnostics #[514 "\300\301#\210\207" [puthash "workspaceDiagnostics"] 6 (#$ . 433864)])#@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 (#$ . 434029)])#@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 (#$ . 434452)])#@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 (#$ . 434813)])#@150 Constructs DiagnosticRelatedInformation from `plist.' Allowed params: (:message :location) (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\"\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 (#$ . 435178)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DiagnosticRelatedInformation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 435756)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information-location #[257 "\300!\205\n\301\302\"\207" [ht? gethash "location"] 4 (#$ . 436609)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information-location #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 436763)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-related-information-message #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 436915)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-related-information-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 437067)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticServerCancellationData #[514 "\300=\204\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-request s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:retrigger-request) gethash 1 nil assoc ((:retrigger-request . :retriggerRequest))] 7 (#$ . 437217)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DiagnosticServerCancellationData? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:retrigger-request error "Unknown key: %s. Available keys: %s" (:retrigger-request) when ht? gethash symbol-name assoc ((:retrigger-request . :retriggerRequest)) 1 nil] 9 (#$ . 437637)])#@15 (fn OBJECT) (defalias 'lsp-diagnostic-server-cancellation-data? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("retriggerRequest") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:retriggerRequest)] 6 (#$ . 437995)])#@155 Constructs DiagnosticServerCancellationData from `plist.' Allowed params: (:retrigger-request) (fn &rest PLIST &key RETRIGGER-REQUEST &allow-other-keys) (defalias 'lsp-make-diagnostic-server-cancellation-data #[128 "\300\301\"A@\302\303\304\"\305\306\307\"\310\311\"\"\210\207" [plist-member :retrigger-request make-hash-table :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-request . :retriggerRequest))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 438362)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DiagnosticServerCancellationData #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:retriggerRequest) nil lsp-keyword->string alist-get ((:retrigger-request . :retriggerRequest)) error "Unknown key: %s. Available keys: %s" symbol-name (:retrigger-request) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 438932)])#@15 (fn OBJECT) (defalias 'lsp:diagnostic-server-cancellation-data-retrigger-request #[257 "\300!\205\n\301\302\"\207" [ht? gethash "retriggerRequest"] 4 (#$ . 439783)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostic-server-cancellation-data-retrigger-request #[514 "\300\301#\210\207" [puthash "retriggerRequest"] 6 (#$ . 439959)])#@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 (#$ . 440133)])#@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 (#$ . 440510)])#@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 (#$ . 440825)])#@128 Constructs DiagnosticsTagSupport from `plist.' Allowed params: (:value-set) (fn &rest PLIST &key VALUE-SET &allow-other-keys) (defalias 'lsp-make-diagnostics-tag-support #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 441164)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DiagnosticsTagSupport #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 441671)])#@15 (fn OBJECT) (defalias 'lsp:diagnostics-tag-support-value-set #[257 "\300!\205\n\301\302\"\207" [ht? gethash "valueSet"] 4 (#$ . 442479)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-diagnostics-tag-support-value-set #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 442627)])#@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 (#$ . 442773)])#@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 (#$ . 443210)])#@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 (#$ . 443585)])#@165 Constructs DidChangeConfigurationCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-did-change-configuration-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 443917)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidChangeConfigurationCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 444510)])#@15 (fn OBJECT) (defalias 'lsp:did-change-configuration-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 445354)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-configuration-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 445539)])#@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 (#$ . 445722)])#@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 (#$ . 446158)])#@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 (#$ . 446532)])#@164 Constructs DidChangeWatchedFilesCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-did-change-watched-files-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 446864)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidChangeWatchedFilesCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 447456)])#@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 448299)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 448484)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentDiagnosticParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:identifier? :previous-result-id? :text-document) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:identifier? :previous-result-id? :text-document) gethash 1 nil assoc ((:identifier? . :identifier) (:previous-result-id? . :previousResultId) (:text-document . :textDocument))] 7 (#$ . 448667)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentDiagnosticParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:identifier? :previous-result-id? :text-document) error "Unknown key: %s. Available keys: %s" (:identifier? :previous-result-id? :text-document) when ht? gethash symbol-name assoc ((:identifier? . :identifier) (:previous-result-id? . :previousResultId) (:text-document . :textDocument)) 1 nil] 9 (#$ . 449205)])#@15 (fn OBJECT) (defalias 'lsp-document-diagnostic-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 (#$ . 449681)])#@205 Constructs DocumentDiagnosticParams from `plist.' Allowed params: (:text-document :previous-result-id? :identifier?) (fn &rest PLIST &key IDENTIFIER? PREVIOUS-RESULT-ID? TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-document-diagnostic-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :identifier? :previous-result-id? :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 ((:identifier? . :identifier) (:previous-result-id? . :previousResultId) (:text-document . :textDocument))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 450031)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentDiagnosticParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 ((:identifier? . :identifier) (:previous-result-id? . :previousResultId) (:text-document . :textDocument)) error "Unknown key: %s. Available keys: %s" symbol-name (:identifier? :previous-result-id? :text-document) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 450763)])#@15 (fn OBJECT) (defalias 'lsp:document-diagnostic-params-identifier? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "identifier"] 4 (#$ . 451696)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-diagnostic-params-identifier? #[514 "\300\301#\210\207" [puthash "identifier"] 6 (#$ . 451851)])#@15 (fn OBJECT) (defalias 'lsp:document-diagnostic-params-previous-result-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "previousResultId"] 4 (#$ . 452004)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-diagnostic-params-previous-result-id? #[514 "\300\301#\210\207" [puthash "previousResultId"] 6 (#$ . 452173)])#@15 (fn OBJECT) (defalias 'lsp:document-diagnostic-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 452340)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-diagnostic-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 452499)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentDiagnosticReport #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:result-id? :items? :related-documents? :kind) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:result-id? :items? :related-documents? :kind) gethash 1 nil assoc ((:result-id? . :resultId) (:items? . :items) (:related-documents? . :relatedDocuments) (:kind . :kind))] 7 (#$ . 452656)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&DocumentDiagnosticReport? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:result-id? :items? :related-documents? :kind) error "Unknown key: %s. Available keys: %s" (:result-id? :items? :related-documents? :kind) when ht? gethash symbol-name assoc ((:result-id? . :resultId) (:items? . :items) (:related-documents? . :relatedDocuments) (:kind . :kind)) 1 nil] 9 (#$ . 453186)])#@15 (fn OBJECT) (defalias 'lsp-document-diagnostic-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 (#$ . 453654)])#@198 Constructs DocumentDiagnosticReport from `plist.' Allowed params: (:kind :related-documents? :items? :result-id?) (fn &rest PLIST &key RESULT-ID? ITEMS? RELATED-DOCUMENTS? KIND &allow-other-keys) (defalias 'lsp-make-document-diagnostic-report #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\310\311\312\"\313\314 \"\"\210\207" [plist-member :result-id? :items? :related-documents? :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 ((:result-id? . :resultId) (:items? . :items) (:related-documents? . :relatedDocuments) (:kind . :kind))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 453988)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentDiagnosticReport #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 ((:result-id? . :resultId) (:items? . :items) (:related-documents? . :relatedDocuments) (:kind . :kind)) error "Unknown key: %s. Available keys: %s" symbol-name (:result-id? :items? :related-documents? :kind) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 454721)])#@15 (fn OBJECT) (defalias 'lsp:document-diagnostic-report-result-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resultId"] 4 (#$ . 455641)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-diagnostic-report-result-id? #[514 "\300\301#\210\207" [puthash "resultId"] 6 (#$ . 455793)])#@15 (fn OBJECT) (defalias 'lsp:document-diagnostic-report-items? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "items"] 4 (#$ . 455943)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-diagnostic-report-items? #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 456088)])#@15 (fn OBJECT) (defalias 'lsp:document-diagnostic-report-related-documents? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "relatedDocuments"] 4 (#$ . 456231)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-diagnostic-report-related-documents? #[514 "\300\301#\210\207" [puthash "relatedDocuments"] 6 (#$ . 456399)])#@15 (fn OBJECT) (defalias 'lsp:document-diagnostic-report-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 456565)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-diagnostic-report-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 456707)])#@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 (#$ . 456847)])#@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 (#$ . 457301)])#@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 (#$ . 457693)])#@157 Constructs DocumentFilter from `plist.' Allowed params: (:scheme? :pattern? :language?) (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\"\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 (#$ . 458003)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentFilter #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 458621)])#@15 (fn OBJECT) (defalias 'lsp:document-filter-language? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "language"] 4 (#$ . 459473)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-language? #[514 "\300\301#\210\207" [puthash "language"] 6 (#$ . 459613)])#@15 (fn OBJECT) (defalias 'lsp:document-filter-pattern? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "pattern"] 4 (#$ . 459751)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-pattern? #[514 "\300\301#\210\207" [puthash "pattern"] 6 (#$ . 459889)])#@15 (fn OBJECT) (defalias 'lsp:document-filter-scheme? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "scheme"] 4 (#$ . 460025)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-filter-scheme? #[514 "\300\301#\210\207" [puthash "scheme"] 6 (#$ . 460161)])#@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 (#$ . 460295)])#@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 (#$ . 460727)])#@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 (#$ . 461097)])#@160 Constructs DocumentHighlightCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-document-highlight-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 461423)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentHighlightCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 462005)])#@15 (fn OBJECT) (defalias 'lsp:document-highlight-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 462844)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 463023)])#@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 (#$ . 463200)])#@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 (#$ . 463703)])#@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 (#$ . 464144)])#@190 Constructs DocumentLinkCapabilities from `plist.' Allowed params: (:tooltip-support? :dynamic-registration?) (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\"\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 (#$ . 464465)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentLinkCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 465141)])#@15 (fn OBJECT) (defalias 'lsp:document-link-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 466031)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 466205)])#@15 (fn OBJECT) (defalias 'lsp:document-link-capabilities-tooltip-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tooltipSupport"] 4 (#$ . 466377)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-capabilities-tooltip-support? #[514 "\300\301#\210\207" [puthash "tooltipSupport"] 6 (#$ . 466541)])#@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 (#$ . 466703)])#@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 (#$ . 467109)])#@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 (#$ . 467453)])#@142 Constructs DocumentLinkOptions from `plist.' Allowed params: (:resolve-provider?) (fn &rest PLIST &key RESOLVE-PROVIDER? &allow-other-keys) (defalias 'lsp-make-document-link-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 467769)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentLinkOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 468311)])#@15 (fn OBJECT) (defalias 'lsp:document-link-options-resolve-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveProvider"] 4 (#$ . 469128)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-options-resolve-provider? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 469289)])#@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 (#$ . 469448)])#@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 (#$ . 469993)])#@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 (#$ . 470476)])#@215 Constructs DocumentOnTypeFormattingOptions from `plist.' Allowed params: (:first-trigger-character :more-trigger-character?) (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\"\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 (#$ . 470853)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentOnTypeFormattingOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 471589)])#@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-options-more-trigger-character? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "moreTriggerCharacter"] 4 (#$ . 472537)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-options-more-trigger-character? #[514 "\300\301#\210\207" [puthash "moreTriggerCharacter"] 6 (#$ . 472723)])#@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-options-first-trigger-character #[257 "\300!\205\n\301\302\"\207" [ht? gethash "firstTriggerCharacter"] 4 (#$ . 472907)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-options-first-trigger-character #[514 "\300\301#\210\207" [puthash "firstTriggerCharacter"] 6 (#$ . 473094)])#@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 (#$ . 473279)])#@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 (#$ . 473904)])#@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 (#$ . 474467)])#@231 Constructs DocumentSymbol from `plist.' Allowed params: (:selection-range :range :name :kind :detail? :deprecated? :children?) (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\"\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 (#$ . 474851)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentSymbol #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 475730)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-children? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "children"] 4 (#$ . 476751)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-children? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 476891)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-deprecated? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "deprecated"] 4 (#$ . 477029)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-deprecated? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 477173)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-detail? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "detail"] 4 (#$ . 477315)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-detail? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 477451)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 477585)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 477716)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 477845)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 477976)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 478105)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 478238)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-selection-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "selectionRange"] 4 (#$ . 478369)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 478521)])#@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 (#$ . 478671)])#@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 (#$ . 479316)])#@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 (#$ . 479899)])#@261 Constructs DocumentSymbolCapabilities from `plist.' Allowed params: (:symbol-kind? :hierarchical-document-symbol-support? :dynamic-registration?) (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\"\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 (#$ . 480222)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentSymbolCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 481090)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 482087)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 482263)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-hierarchical-document-symbol-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "hierarchicalDocumentSymbolSupport"] 4 (#$ . 482437)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-hierarchical-document-symbol-support? #[514 "\300\301#\210\207" [puthash "hierarchicalDocumentSymbolSupport"] 6 (#$ . 482643)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-capabilities-symbol-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "symbolKind"] 4 (#$ . 482847)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-capabilities-symbol-kind? #[514 "\300\301#\210\207" [puthash "symbolKind"] 6 (#$ . 483005)])#@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 (#$ . 483161)])#@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 (#$ . 483590)])#@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 (#$ . 483957)])#@157 Constructs ExecuteCommandCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-execute-command-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 484280)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ExecuteCommandCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 484856)])#@15 (fn OBJECT) (defalias 'lsp:execute-command-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 485692)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 485868)])#@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 (#$ . 486042)])#@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 (#$ . 486416)])#@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 (#$ . 486728)])#@126 Constructs ExecuteCommandOptions from `plist.' Allowed params: (:commands) (fn &rest PLIST &key COMMANDS &allow-other-keys) (defalias 'lsp-make-execute-command-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 487067)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ExecuteCommandOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 487570)])#@15 (fn OBJECT) (defalias 'lsp:execute-command-options-commands #[257 "\300!\205\n\301\302\"\207" [ht? gethash "commands"] 4 (#$ . 488376)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-options-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 488523)])#@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 (#$ . 488668)])#@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 (#$ . 489040)])#@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 (#$ . 489350)])#@115 Constructs FileEvent from `plist.' Allowed params: (:uri :type) (fn &rest PLIST &key TYPE URI &allow-other-keys) (defalias 'lsp-make-file-event #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 489679)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FileEvent #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 490178)])#@15 (fn OBJECT) (defalias 'lsp:file-event-type #[257 "\300!\205\n\301\302\"\207" [ht? gethash "type"] 4 (#$ . 490980)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-event-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 491106)])#@15 (fn OBJECT) (defalias 'lsp:file-event-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 491230)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-event-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 491354)])#@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 (#$ . 491476)])#@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 (#$ . 491894)])#@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 (#$ . 492250)])#@143 Constructs FileSystemWatcher from `plist.' Allowed params: (:glob-pattern :kind?) (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\"\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 (#$ . 492591)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FileSystemWatcher #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 493155)])#@15 (fn OBJECT) (defalias 'lsp:file-system-watcher-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 493995)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-system-watcher-kind? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 494131)])#@15 (fn OBJECT) (defalias 'lsp:file-system-watcher-glob-pattern #[257 "\300!\205\n\301\302\"\207" [ht? gethash "globPattern"] 4 (#$ . 494265)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-system-watcher-glob-pattern #[514 "\300\301#\210\207" [puthash "globPattern"] 6 (#$ . 494415)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileOperationFilter #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:scheme? :pattern) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:scheme? :pattern) gethash 1 nil assoc ((:scheme? . :scheme) (:pattern . :pattern))] 7 (#$ . 494563)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileOperationFilter? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:scheme? :pattern) error "Unknown key: %s. Available keys: %s" (:scheme? :pattern) when ht? gethash symbol-name assoc ((:scheme? . :scheme) (:pattern . :pattern)) 1 nil] 9 (#$ . 494972)])#@15 (fn OBJECT) (defalias 'lsp-file-operation-filter? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("pattern") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:pattern)] 6 (#$ . 495319)])#@139 Constructs FileOperationFilter from `plist.' Allowed params: (:pattern :scheme?) (fn &rest PLIST &key SCHEME? PATTERN &allow-other-keys) (defalias 'lsp-make-file-operation-filter #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :scheme? :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 ((:scheme? . :scheme) (:pattern . :pattern))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 495654)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FileOperationFilter #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:pattern) nil lsp-keyword->string alist-get ((:scheme? . :scheme) (:pattern . :pattern)) error "Unknown key: %s. Available keys: %s" symbol-name (:scheme? :pattern) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 496208)])#@15 (fn OBJECT) (defalias 'lsp:file-operation-filter-scheme? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "scheme"] 4 (#$ . 497038)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-operation-filter-scheme? #[514 "\300\301#\210\207" [puthash "scheme"] 6 (#$ . 497180)])#@15 (fn OBJECT) (defalias 'lsp:file-operation-filter-pattern #[257 "\300!\205\n\301\302\"\207" [ht? gethash "pattern"] 4 (#$ . 497320)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-operation-filter-pattern #[514 "\300\301#\210\207" [puthash "pattern"] 6 (#$ . 497463)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileOperationPattern #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:matches? :options? :glob) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:matches? :options? :glob) gethash 1 nil assoc ((:matches? . :matches) (:options? . :options) (:glob . :glob))] 7 (#$ . 497604)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileOperationPattern? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:matches? :options? :glob) error "Unknown key: %s. Available keys: %s" (:matches? :options? :glob) when ht? gethash symbol-name assoc ((:matches? . :matches) (:options? . :options) (:glob . :glob)) 1 nil] 9 (#$ . 498049)])#@15 (fn OBJECT) (defalias 'lsp-file-operation-pattern? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("glob") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:glob)] 6 (#$ . 498432)])#@155 Constructs FileOperationPattern from `plist.' Allowed params: (:glob :options? :matches?) (fn &rest PLIST &key MATCHES? OPTIONS? GLOB &allow-other-keys) (defalias 'lsp-make-file-operation-pattern #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :matches? :options? :glob make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:matches? . :matches) (:options? . :options) (:glob . :glob))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 498762)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FileOperationPattern #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:glob) nil lsp-keyword->string alist-get ((:matches? . :matches) (:options? . :options) (:glob . :glob)) error "Unknown key: %s. Available keys: %s" symbol-name (:matches? :options? :glob) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 499374)])#@15 (fn OBJECT) (defalias 'lsp:file-operation-pattern-matches? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "matches"] 4 (#$ . 500229)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-operation-pattern-matches? #[514 "\300\301#\210\207" [puthash "matches"] 6 (#$ . 500374)])#@15 (fn OBJECT) (defalias 'lsp:file-operation-pattern-options? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "options"] 4 (#$ . 500517)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-operation-pattern-options? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 500662)])#@15 (fn OBJECT) (defalias 'lsp:file-operation-pattern-glob #[257 "\300!\205\n\301\302\"\207" [ht? gethash "glob"] 4 (#$ . 500805)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-operation-pattern-glob #[514 "\300\301#\210\207" [puthash "glob"] 6 (#$ . 500943)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileOperationPatternOptions #[514 "\300=\204\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-case? s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:ignore-case?) gethash 1 nil assoc ((:ignore-case? . :ignoreCase))] 7 (#$ . 501079)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileOperationPatternOptions? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:ignore-case? error "Unknown key: %s. Available keys: %s" (:ignore-case?) when ht? gethash symbol-name assoc ((:ignore-case? . :ignoreCase)) 1 nil] 9 (#$ . 501473)])#@15 (fn OBJECT) (defalias 'lsp-file-operation-pattern-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 (#$ . 501805)])#@140 Constructs FileOperationPatternOptions from `plist.' Allowed params: (:ignore-case?) (fn &rest PLIST &key IGNORE-CASE? &allow-other-keys) (defalias 'lsp-make-file-operation-pattern-options #[128 "\300\301\"A@\302\303\304\"\305\306\307\"\310\311\"\"\210\207" [plist-member :ignore-case? make-hash-table :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-case? . :ignoreCase))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 502130)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FileOperationPatternOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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-case? . :ignoreCase)) error "Unknown key: %s. Available keys: %s" symbol-name (:ignore-case?) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 502664)])#@15 (fn OBJECT) (defalias 'lsp:file-operation-pattern-options-ignore-case? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ignoreCase"] 4 (#$ . 503474)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-operation-pattern-options-ignore-case? #[514 "\300\301#\210\207" [puthash "ignoreCase"] 6 (#$ . 503634)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileOperationRegistrationOptions #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:filters s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:filters) gethash 1 nil assoc ((:filters . :filters))] 7 (#$ . 503792)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileOperationRegistrationOptions? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:filters error "Unknown key: %s. Available keys: %s" (:filters) when ht? gethash symbol-name assoc ((:filters . :filters)) 1 nil] 9 (#$ . 504173)])#@15 (fn OBJECT) (defalias 'lsp-file-operation-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)"] ("filters") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:filters)] 6 (#$ . 504492)])#@135 Constructs FileOperationRegistrationOptions from `plist.' Allowed params: (:filters) (fn &rest PLIST &key FILTERS &allow-other-keys) (defalias 'lsp-make-file-operation-registration-options #[128 "\300\301\"A@\302\303\304\"\305\306\307\"\310\311\"\"\210\207" [plist-member :filters make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:filters . :filters))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 504841)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FileOperationRegistrationOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:filters) nil lsp-keyword->string alist-get ((:filters . :filters)) error "Unknown key: %s. Available keys: %s" symbol-name (:filters) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 505362)])#@15 (fn OBJECT) (defalias 'lsp:file-operation-registration-options-filters #[257 "\300!\205\n\301\302\"\207" [ht? gethash "filters"] 4 (#$ . 506175)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-operation-registration-options-filters #[514 "\300\301#\210\207" [puthash "filters"] 6 (#$ . 506332)])#@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 (#$ . 506487)])#@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 (#$ . 507055)])#@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 (#$ . 507561)])#@221 Constructs FoldingRangeCapabilities from `plist.' Allowed params: (:range-limit? :line-folding-only? :dynamic-registration?) (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\"\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 (#$ . 507882)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FoldingRangeCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 508652)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 509591)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 509765)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-line-folding-only? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "lineFoldingOnly"] 4 (#$ . 509937)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-line-folding-only? #[514 "\300\301#\210\207" [puthash "lineFoldingOnly"] 6 (#$ . 510104)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-capabilities-range-limit? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "rangeLimit"] 4 (#$ . 510269)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-capabilities-range-limit? #[514 "\300\301#\210\207" [puthash "rangeLimit"] 6 (#$ . 510425)])#@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 (#$ . 510579)])#@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 (#$ . 511022)])#@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 (#$ . 511403)])#@161 Constructs FoldingRangeProviderOptions from `plist.' Allowed params: (:id? :document-selector?) (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\"\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 (#$ . 511728)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FoldingRangeProviderOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 512332)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-provider-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 513178)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-provider-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 513350)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-provider-options-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 513520)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-provider-options-id? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 513663)])#@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 (#$ . 513804)])#@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 (#$ . 514229)])#@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 (#$ . 514592)])#@153 Constructs FormattingCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-formatting-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 514910)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FormattingCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 515477)])#@15 (fn OBJECT) (defalias 'lsp:formatting-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 516309)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 516480)])#@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 (#$ . 516649)])#@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 (#$ . 517374)])#@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 (#$ . 518037)])#@292 Constructs FormattingOptions from `plist.' Allowed params: (:insert-spaces :tab-size :trim-final-newlines? :insert-final-newline? :trim-trailing-whitespace?) (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\"\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 (#$ . 518398)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FormattingOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 519382)])#@15 (fn OBJECT) (defalias 'lsp:formatting-options-trim-trailing-whitespace? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "trimTrailingWhitespace"] 4 (#$ . 520463)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-trim-trailing-whitespace? #[514 "\300\301#\210\207" [puthash "trimTrailingWhitespace"] 6 (#$ . 520636)])#@15 (fn OBJECT) (defalias 'lsp:formatting-options-insert-final-newline? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insertFinalNewline"] 4 (#$ . 520807)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-insert-final-newline? #[514 "\300\301#\210\207" [puthash "insertFinalNewline"] 6 (#$ . 520972)])#@15 (fn OBJECT) (defalias 'lsp:formatting-options-trim-final-newlines? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "trimFinalNewlines"] 4 (#$ . 521135)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-trim-final-newlines? #[514 "\300\301#\210\207" [puthash "trimFinalNewlines"] 6 (#$ . 521298)])#@15 (fn OBJECT) (defalias 'lsp:formatting-options-tab-size #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tabSize"] 4 (#$ . 521459)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-tab-size #[514 "\300\301#\210\207" [puthash "tabSize"] 6 (#$ . 521600)])#@15 (fn OBJECT) (defalias 'lsp:formatting-options-insert-spaces #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insertSpaces"] 4 (#$ . 521739)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-formatting-options-insert-spaces #[514 "\300\301#\210\207" [puthash "insertSpaces"] 6 (#$ . 521890)])#@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 (#$ . 522039)])#@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 (#$ . 522531)])#@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 (#$ . 522961)])#@181 Constructs HoverCapabilities from `plist.' Allowed params: (:dynamic-registration? :content-format?) (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\"\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 (#$ . 523274)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-HoverCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 523930)])#@15 (fn OBJECT) (defalias 'lsp:hover-capabilities-content-format? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "contentFormat"] 4 (#$ . 524810)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-capabilities-content-format? #[514 "\300\301#\210\207" [puthash "contentFormat"] 6 (#$ . 524964)])#@15 (fn OBJECT) (defalias 'lsp:hover-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 525116)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 525282)])#@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 (#$ . 525446)])#@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 (#$ . 525939)])#@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 (#$ . 526370)])#@186 Constructs ImplementationCapabilities from `plist.' Allowed params: (:link-support? :dynamic-registration?) (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\"\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 (#$ . 526692)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ImplementationCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 527356)])#@15 (fn OBJECT) (defalias 'lsp:implementation-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 528239)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 528414)])#@15 (fn OBJECT) (defalias 'lsp:implementation-capabilities-link-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "linkSupport"] 4 (#$ . 528587)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-capabilities-link-support? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 528746)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&LinkedEditingRanges #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:word-pattern? :ranges) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:word-pattern? :ranges) gethash 1 nil assoc ((:word-pattern? . :wordPattern) (:ranges . :ranges))] 7 (#$ . 528903)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&LinkedEditingRanges? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:word-pattern? :ranges) error "Unknown key: %s. Available keys: %s" (:word-pattern? :ranges) when ht? gethash symbol-name assoc ((:word-pattern? . :wordPattern) (:ranges . :ranges)) 1 nil] 9 (#$ . 529331)])#@15 (fn OBJECT) (defalias 'lsp-linked-editing-ranges? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("ranges") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:ranges)] 6 (#$ . 529697)])#@149 Constructs LinkedEditingRanges from `plist.' Allowed params: (:ranges :word-pattern?) (fn &rest PLIST &key WORD-PATTERN? RANGES &allow-other-keys) (defalias 'lsp-make-linked-editing-ranges #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :word-pattern? :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 ((:word-pattern? . :wordPattern) (:ranges . :ranges))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 530030)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-LinkedEditingRanges #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:ranges) nil lsp-keyword->string alist-get ((:word-pattern? . :wordPattern) (:ranges . :ranges)) error "Unknown key: %s. Available keys: %s" symbol-name (:word-pattern? :ranges) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 530608)])#@15 (fn OBJECT) (defalias 'lsp:linked-editing-ranges-word-pattern? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "wordPattern"] 4 (#$ . 531451)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-linked-editing-ranges-word-pattern? #[514 "\300\301#\210\207" [puthash "wordPattern"] 6 (#$ . 531604)])#@15 (fn OBJECT) (defalias 'lsp:linked-editing-ranges-ranges #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ranges"] 4 (#$ . 531755)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-linked-editing-ranges-ranges #[514 "\300\301#\210\207" [puthash "ranges"] 6 (#$ . 531896)])#@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 (#$ . 532035)])#@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 (#$ . 532410)])#@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 (#$ . 532723)])#@116 Constructs Location from `plist.' Allowed params: (:uri :range) (fn &rest PLIST &key RANGE URI &allow-other-keys) (defalias 'lsp-make-location #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 533052)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Location #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 533553)])#@15 (fn OBJECT) (defalias 'lsp:location-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 534358)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 534484)])#@15 (fn OBJECT) (defalias 'lsp:location-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 534608)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 534730)])#@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 (#$ . 534850)])#@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 (#$ . 535249)])#@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 (#$ . 535586)])#@130 Constructs MarkedString from `plist.' Allowed params: (:value :language) (fn &rest PLIST &key LANGUAGE VALUE &allow-other-keys) (defalias 'lsp-make-marked-string #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 535930)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-MarkedString #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 536465)])#@15 (fn OBJECT) (defalias 'lsp:marked-string-language #[257 "\300!\205\n\301\302\"\207" [ht? gethash "language"] 4 (#$ . 537294)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-marked-string-language #[514 "\300\301#\210\207" [puthash "language"] 6 (#$ . 537431)])#@15 (fn OBJECT) (defalias 'lsp:marked-string-value #[257 "\300!\205\n\301\302\"\207" [ht? gethash "value"] 4 (#$ . 537566)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-marked-string-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 537697)])#@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 (#$ . 537826)])#@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 (#$ . 538210)])#@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 (#$ . 538532)])#@123 Constructs MarkupContent from `plist.' Allowed params: (:value :kind) (fn &rest PLIST &key KIND VALUE &allow-other-keys) (defalias 'lsp-make-markup-content #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 538869)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-MarkupContent #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 539386)])#@15 (fn OBJECT) (defalias 'lsp:markup-content-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 540200)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-markup-content-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 540330)])#@15 (fn OBJECT) (defalias 'lsp:markup-content-value #[257 "\300!\205\n\301\302\"\207" [ht? gethash "value"] 4 (#$ . 540458)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-markup-content-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 540590)])#@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 (#$ . 540720)])#@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 (#$ . 541078)])#@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 (#$ . 541374)])#@116 Constructs MessageActionItem from `plist.' Allowed params: (:title) (fn &rest PLIST &key TITLE &allow-other-keys) (defalias 'lsp-make-message-action-item #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 541703)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-MessageActionItem #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 542183)])#@15 (fn OBJECT) (defalias 'lsp:message-action-item-title #[257 "\300!\205\n\301\302\"\207" [ht? gethash "title"] 4 (#$ . 542973)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-action-item-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 543110)])#@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 (#$ . 543245)])#@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 (#$ . 543676)])#@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 (#$ . 544045)])#@159 Constructs OnTypeFormattingCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-on-type-formatting-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 544371)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-OnTypeFormattingCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 544952)])#@15 (fn OBJECT) (defalias 'lsp:on-type-formatting-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 545790)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-on-type-formatting-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 545969)])#@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 (#$ . 546146)])#@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 (#$ . 546576)])#@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 (#$ . 546944)])#@150 Constructs ParameterInformation from `plist.' Allowed params: (:label :documentation?) (fn &rest PLIST &key DOCUMENTATION? LABEL &allow-other-keys) (defalias 'lsp-make-parameter-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 547275)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ParameterInformation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 547855)])#@15 (fn OBJECT) (defalias 'lsp:parameter-information-documentation? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentation"] 4 (#$ . 548699)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-documentation? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 548855)])#@15 (fn OBJECT) (defalias 'lsp:parameter-information-label #[257 "\300!\205\n\301\302\"\207" [ht? gethash "label"] 4 (#$ . 549009)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 549148)])#@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 (#$ . 549285)])#@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 (#$ . 549719)])#@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 (#$ . 550091)])#@163 Constructs ParameterInformationCapabilities from `plist.' Allowed params: (:label-offset-support?) (fn &rest PLIST &key LABEL-OFFSET-SUPPORT? &allow-other-keys) (defalias 'lsp-make-parameter-information-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 550420)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ParameterInformationCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 551007)])#@15 (fn OBJECT) (defalias 'lsp:parameter-information-capabilities-label-offset-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "labelOffsetSupport"] 4 (#$ . 551848)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-parameter-information-capabilities-label-offset-support? #[514 "\300\301#\210\207" [puthash "labelOffsetSupport"] 6 (#$ . 552029)])#@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 (#$ . 552208)])#@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 (#$ . 552603)])#@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 (#$ . 552936)])#@126 Constructs Position from `plist.' Allowed params: (:line :character) (fn &rest PLIST &key CHARACTER LINE &allow-other-keys) (defalias 'lsp-make-position #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 553275)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Position #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 553801)])#@15 (fn OBJECT) (defalias 'lsp:position-character #[257 "\300!\205\n\301\302\"\207" [ht? gethash "character"] 4 (#$ . 554626)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-position-character #[514 "\300\301#\210\207" [puthash "character"] 6 (#$ . 554760)])#@15 (fn OBJECT) (defalias 'lsp:position-line #[257 "\300!\205\n\301\302\"\207" [ht? gethash "line"] 4 (#$ . 554892)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-position-line #[514 "\300\301#\210\207" [puthash "line"] 6 (#$ . 555016)])#@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 (#$ . 555138)])#@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 (#$ . 555701)])#@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 (#$ . 556202)])#@221 Constructs PublishDiagnosticsCapabilities from `plist.' Allowed params: (:version-support? :tag-support? :related-information?) (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\"\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 (#$ . 556529)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-PublishDiagnosticsCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 557297)])#@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-related-information? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "relatedInformation"] 4 (#$ . 558234)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-related-information? #[514 "\300\301#\210\207" [puthash "relatedInformation"] 6 (#$ . 558412)])#@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-tag-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tagSupport"] 4 (#$ . 558588)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-tag-support? #[514 "\300\301#\210\207" [puthash "tagSupport"] 6 (#$ . 558750)])#@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-capabilities-version-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "versionSupport"] 4 (#$ . 558910)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-capabilities-version-support? #[514 "\300\301#\210\207" [puthash "versionSupport"] 6 (#$ . 559080)])#@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 (#$ . 559248)])#@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 (#$ . 559620)])#@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 (#$ . 559930)])#@113 Constructs Range from `plist.' Allowed params: (:end :start) (fn &rest PLIST &key START END &allow-other-keys) (defalias 'lsp-make-range #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 560256)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Range #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 560751)])#@15 (fn OBJECT) (defalias 'lsp:range-start #[257 "\300!\205\n\301\302\"\207" [ht? gethash "start"] 4 (#$ . 561553)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-start #[514 "\300\301#\210\207" [puthash "start"] 6 (#$ . 561676)])#@15 (fn OBJECT) (defalias 'lsp:range-end #[257 "\300!\205\n\301\302\"\207" [ht? gethash "end"] 4 (#$ . 561797)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-end #[514 "\300\301#\210\207" [puthash "end"] 6 (#$ . 561916)])#@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 (#$ . 562033)])#@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 (#$ . 562463)])#@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 (#$ . 562831)])#@158 Constructs RangeFormattingCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-range-formatting-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 563155)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RangeFormattingCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 563733)])#@15 (fn OBJECT) (defalias 'lsp:range-formatting-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 564570)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-range-formatting-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 564747)])#@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 (#$ . 564922)])#@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 (#$ . 565334)])#@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 (#$ . 565684)])#@143 Constructs ReferenceContext from `plist.' Allowed params: (:include-declaration) (fn &rest PLIST &key INCLUDE-DECLARATION &allow-other-keys) (defalias 'lsp-make-reference-context #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 566037)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ReferenceContext #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 566583)])#@15 (fn OBJECT) (defalias 'lsp:reference-context-include-declaration #[257 "\300!\205\n\301\302\"\207" [ht? gethash "includeDeclaration"] 4 (#$ . 567426)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-context-include-declaration #[514 "\300\301#\210\207" [puthash "includeDeclaration"] 6 (#$ . 567588)])#@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 (#$ . 567748)])#@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 (#$ . 568173)])#@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 (#$ . 568536)])#@153 Constructs ReferencesCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-references-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 568854)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ReferencesCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 569421)])#@15 (fn OBJECT) (defalias 'lsp:references-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 570253)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-references-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 570424)])#@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 (#$ . 570593)])#@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 (#$ . 571050)])#@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 (#$ . 571445)])#@157 Constructs Registration from `plist.' Allowed params: (:id :method :register-options?) (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\"\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 (#$ . 571778)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Registration #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 572397)])#@15 (fn OBJECT) (defalias 'lsp:registration-register-options? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "registerOptions"] 4 (#$ . 573265)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-register-options? #[514 "\300\301#\210\207" [puthash "registerOptions"] 6 (#$ . 573417)])#@15 (fn OBJECT) (defalias 'lsp:registration-method #[257 "\300!\205\n\301\302\"\207" [ht? gethash "method"] 4 (#$ . 573567)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 573699)])#@15 (fn OBJECT) (defalias 'lsp:registration-id #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 573829)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 573953)])#@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 (#$ . 574075)])#@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 (#$ . 574572)])#@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 (#$ . 575007)])#@184 Constructs RenameCapabilities from `plist.' Allowed params: (:prepare-support? :dynamic-registration?) (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\"\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 (#$ . 575321)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RenameCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 575984)])#@15 (fn OBJECT) (defalias 'lsp:rename-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 576868)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 577035)])#@15 (fn OBJECT) (defalias 'lsp:rename-capabilities-prepare-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "prepareSupport"] 4 (#$ . 577200)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-capabilities-prepare-support? #[514 "\300\301#\210\207" [puthash "prepareSupport"] 6 (#$ . 577357)])#@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 (#$ . 577512)])#@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 (#$ . 577968)])#@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 (#$ . 578362)])#@163 Constructs RenameFileOptions from `plist.' Allowed params: (:overwrite? :ignore-if-exists?) (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\"\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 (#$ . 578676)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RenameFileOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 579288)])#@15 (fn OBJECT) (defalias 'lsp:rename-file-options-ignore-if-exists? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ignoreIfExists"] 4 (#$ . 580141)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options-ignore-if-exists? #[514 "\300\301#\210\207" [puthash "ignoreIfExists"] 6 (#$ . 580299)])#@15 (fn OBJECT) (defalias 'lsp:rename-file-options-overwrite? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "overwrite"] 4 (#$ . 580455)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options-overwrite? #[514 "\300\301#\210\207" [puthash "overwrite"] 6 (#$ . 580601)])#@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 (#$ . 580745)])#@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 (#$ . 581252)])#@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 (#$ . 581697)])#@184 Constructs RenameOptions from `plist.' Allowed params: (:prepare-provider? :id? :document-selector?) (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\"\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 (#$ . 582006)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RenameOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 582690)])#@15 (fn OBJECT) (defalias 'lsp:rename-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 583581)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 583737)])#@15 (fn OBJECT) (defalias 'lsp:rename-options-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 583891)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-id? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 584018)])#@15 (fn OBJECT) (defalias 'lsp:rename-options-prepare-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "prepareProvider"] 4 (#$ . 584143)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-options-prepare-provider? #[514 "\300\301#\210\207" [puthash "prepareProvider"] 6 (#$ . 584297)])#@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 (#$ . 584449)])#@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 (#$ . 584859)])#@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 (#$ . 585207)])#@138 Constructs ResourceChange from `plist.' Allowed params: (:new-uri? :current?) (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\"\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 (#$ . 585517)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ResourceChange #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 586068)])#@15 (fn OBJECT) (defalias 'lsp:resource-change-current? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "current"] 4 (#$ . 586886)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-change-current? #[514 "\300\301#\210\207" [puthash "current"] 6 (#$ . 587024)])#@15 (fn OBJECT) (defalias 'lsp:resource-change-new-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "newUri"] 4 (#$ . 587160)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-change-new-uri? #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 587297)])#@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 (#$ . 587432)])#@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 (#$ . 587786)])#@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 (#$ . 588078)])#@114 Constructs ResourceOperation from `plist.' Allowed params: (:kind) (fn &rest PLIST &key KIND &allow-other-keys) (defalias 'lsp-make-resource-operation #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 588404)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ResourceOperation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 588878)])#@15 (fn OBJECT) (defalias 'lsp:resource-operation-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 589664)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-resource-operation-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 589798)])#@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 (#$ . 589930)])#@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 (#$ . 590312)])#@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 (#$ . 590632)])#@126 Constructs SaveOptions from `plist.' Allowed params: (:include-text?) (fn &rest PLIST &key INCLUDE-TEXT? &allow-other-keys) (defalias 'lsp-make-save-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 590939)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SaveOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 591444)])#@15 (fn OBJECT) (defalias 'lsp:save-options-include-text? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "includeText"] 4 (#$ . 592241)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-save-options-include-text? #[514 "\300\301#\210\207" [puthash "includeText"] 6 (#$ . 592385)])#@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 (#$ . 592527)])#@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 (#$ . 592923)])#@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 (#$ . 593257)])#@130 Constructs SelectionRange from `plist.' Allowed params: (:range :parent?) (fn &rest PLIST &key PARENT? RANGE &allow-other-keys) (defalias 'lsp-make-selection-range #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 593582)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SelectionRange #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 594115)])#@15 (fn OBJECT) (defalias 'lsp:selection-range-parent? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "parent"] 4 (#$ . 594932)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-parent? #[514 "\300\301#\210\207" [puthash "parent"] 6 (#$ . 595068)])#@15 (fn OBJECT) (defalias 'lsp:selection-range-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 595202)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 595335)])#@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 (#$ . 595466)])#@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 (#$ . 595895)])#@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 (#$ . 596262)])#@157 Constructs SelectionRangeCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-selection-range-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 596585)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SelectionRangeCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 597161)])#@15 (fn OBJECT) (defalias 'lsp:selection-range-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 597997)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 598173)])#@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 (#$ . 598347)])#@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 (#$ . 598786)])#@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 (#$ . 599163)])#@165 Constructs SemanticHighlightingCapabilities from `plist.' Allowed params: (:semantic-highlighting?) (fn &rest PLIST &key SEMANTIC-HIGHLIGHTING? &allow-other-keys) (defalias 'lsp-make-semantic-highlighting-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 599492)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticHighlightingCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 600085)])#@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-capabilities-semantic-highlighting? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "semanticHighlighting"] 4 (#$ . 600930)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-capabilities-semantic-highlighting? #[514 "\300\301#\210\207" [puthash "semanticHighlighting"] 6 (#$ . 601114)])#@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 (#$ . 601296)])#@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 (#$ . 601705)])#@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 (#$ . 602052)])#@145 Constructs SemanticHighlightingInformation from `plist.' Allowed params: (:line :tokens?) (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\"\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 (#$ . 602393)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticHighlightingInformation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 602956)])#@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-information-tokens? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tokens"] 4 (#$ . 603786)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-information-tokens? #[514 "\300\301#\210\207" [puthash "tokens"] 6 (#$ . 603940)])#@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-information-line #[257 "\300!\205\n\301\302\"\207" [ht? gethash "line"] 4 (#$ . 604092)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-information-line #[514 "\300\301#\210\207" [puthash "line"] 6 (#$ . 604241)])#@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 (#$ . 604388)])#@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 (#$ . 604774)])#@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 (#$ . 605098)])#@141 Constructs SemanticHighlightingServerCapabilities from `plist.' Allowed params: (:scopes?) (fn &rest PLIST &key SCOPES? &allow-other-keys) (defalias 'lsp-make-semantic-highlighting-server-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 605434)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticHighlightingServerCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 605966)])#@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-server-capabilities-scopes? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "scopes"] 4 (#$ . 606773)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-server-capabilities-scopes? #[514 "\300\301#\210\207" [puthash "scopes"] 6 (#$ . 606935)])#@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? :position-encoding? :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? :inline-completion-provider? :inlay-hint-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? :position-encoding? :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? :inline-completion-provider? :inlay-hint-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) (:position-encoding? . :positionEncoding) (: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) (:inline-completion-provider? . :inlineCompletionProvider) (:inlay-hint-provider? . :inlayHintProvider))] 7 (#$ . 607095)])#@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? :position-encoding? :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? :inline-completion-provider? :inlay-hint-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? :position-encoding? :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? :inline-completion-provider? :inlay-hint-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) (:position-encoding? . :positionEncoding) (: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) (:inline-completion-provider? . :inlineCompletionProvider) (:inlay-hint-provider? . :inlayHintProvider)) 1 nil] 9 (#$ . 610595)])#@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 (#$ . 614033)])#@1636 Constructs ServerCapabilities from `plist.' Allowed params: (:inlay-hint-provider? :inline-completion-provider? :semantic-tokens-provider? :workspace-symbol-provider? :workspace? :type-hierarchy-provider? :type-definition-provider? :text-document-sync? :signature-help-provider? :semantic-highlighting? :selection-range-provider? :rename-provider? :references-provider? :position-encoding? :implementation-provider? :hover-provider? :folding-range-provider? :experimental? :execute-command-provider? :document-symbol-provider? :document-range-formatting-provider? :document-on-type-formatting-provider? :document-link-provider? :document-highlight-provider? :document-formatting-provider? :definition-provider? :declaration-provider? :completion-provider? :color-provider? :code-lens-provider? :code-action-provider? :call-hierarchy-provider?) (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? POSITION-ENCODING? 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? INLINE-COMPLETION-PROVIDER? INLAY-HINT-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@\300\336\"A@\300\337\"A@\300 \340\"A@\341\342\343\"\344\345\346\"\347\350%\"\"\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? :position-encoding? :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? :inline-completion-provider? :inlay-hint-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) (:position-encoding? . :positionEncoding) (: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) (:inline-completion-provider? . :inlineCompletionProvider) (:inlay-hint-provider? . :inlayHintProvider))] 9 "\n\n(fn INPUT0)"] -partition 2] 39 (#$ . 614348)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ServerCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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) (:position-encoding? . :positionEncoding) (: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) (:inline-completion-provider? . :inlineCompletionProvider) (:inlay-hint-provider? . :inlayHintProvider)) 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? :position-encoding? :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? :inline-completion-provider? :inlay-hint-provider?) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 619145)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-call-hierarchy-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "callHierarchyProvider"] 4 (#$ . 622291)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-call-hierarchy-provider? #[514 "\300\301#\210\207" [puthash "callHierarchyProvider"] 6 (#$ . 622463)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-code-action-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "codeActionProvider"] 4 (#$ . 622633)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-code-action-provider? #[514 "\300\301#\210\207" [puthash "codeActionProvider"] 6 (#$ . 622799)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-code-lens-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "codeLensProvider"] 4 (#$ . 622963)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-code-lens-provider? #[514 "\300\301#\210\207" [puthash "codeLensProvider"] 6 (#$ . 623125)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-color-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "colorProvider"] 4 (#$ . 623285)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-color-provider? #[514 "\300\301#\210\207" [puthash "colorProvider"] 6 (#$ . 623440)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-completion-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "completionProvider"] 4 (#$ . 623593)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-completion-provider? #[514 "\300\301#\210\207" [puthash "completionProvider"] 6 (#$ . 623758)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-declaration-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "declarationProvider"] 4 (#$ . 623921)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-declaration-provider? #[514 "\300\301#\210\207" [puthash "declarationProvider"] 6 (#$ . 624088)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-definition-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "definitionProvider"] 4 (#$ . 624253)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-definition-provider? #[514 "\300\301#\210\207" [puthash "definitionProvider"] 6 (#$ . 624418)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-formatting-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentFormattingProvider"] 4 (#$ . 624581)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-formatting-provider? #[514 "\300\301#\210\207" [puthash "documentFormattingProvider"] 6 (#$ . 624763)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-highlight-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentHighlightProvider"] 4 (#$ . 624943)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-highlight-provider? #[514 "\300\301#\210\207" [puthash "documentHighlightProvider"] 6 (#$ . 625123)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-link-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentLinkProvider"] 4 (#$ . 625301)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-link-provider? #[514 "\300\301#\210\207" [puthash "documentLinkProvider"] 6 (#$ . 625471)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-on-type-formatting-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentOnTypeFormattingProvider"] 4 (#$ . 625639)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-on-type-formatting-provider? #[514 "\300\301#\210\207" [puthash "documentOnTypeFormattingProvider"] 6 (#$ . 625835)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-range-formatting-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentRangeFormattingProvider"] 4 (#$ . 626029)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-range-formatting-provider? #[514 "\300\301#\210\207" [puthash "documentRangeFormattingProvider"] 6 (#$ . 626222)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-document-symbol-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSymbolProvider"] 4 (#$ . 626413)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-document-symbol-provider? #[514 "\300\301#\210\207" [puthash "documentSymbolProvider"] 6 (#$ . 626587)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-execute-command-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "executeCommandProvider"] 4 (#$ . 626759)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-execute-command-provider? #[514 "\300\301#\210\207" [puthash "executeCommandProvider"] 6 (#$ . 626933)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-experimental? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "experimental"] 4 (#$ . 627105)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-experimental? #[514 "\300\301#\210\207" [puthash "experimental"] 6 (#$ . 627257)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-folding-range-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "foldingRangeProvider"] 4 (#$ . 627407)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-folding-range-provider? #[514 "\300\301#\210\207" [puthash "foldingRangeProvider"] 6 (#$ . 627577)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-hover-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "hoverProvider"] 4 (#$ . 627745)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-hover-provider? #[514 "\300\301#\210\207" [puthash "hoverProvider"] 6 (#$ . 627900)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-implementation-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "implementationProvider"] 4 (#$ . 628053)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-implementation-provider? #[514 "\300\301#\210\207" [puthash "implementationProvider"] 6 (#$ . 628226)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-position-encoding? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "positionEncoding"] 4 (#$ . 628397)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-position-encoding? #[514 "\300\301#\210\207" [puthash "positionEncoding"] 6 (#$ . 628558)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-references-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "referencesProvider"] 4 (#$ . 628717)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-references-provider? #[514 "\300\301#\210\207" [puthash "referencesProvider"] 6 (#$ . 628882)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-rename-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "renameProvider"] 4 (#$ . 629045)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-rename-provider? #[514 "\300\301#\210\207" [puthash "renameProvider"] 6 (#$ . 629202)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-selection-range-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "selectionRangeProvider"] 4 (#$ . 629357)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-selection-range-provider? #[514 "\300\301#\210\207" [puthash "selectionRangeProvider"] 6 (#$ . 629531)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-semantic-highlighting? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "semanticHighlighting"] 4 (#$ . 629703)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-semantic-highlighting? #[514 "\300\301#\210\207" [puthash "semanticHighlighting"] 6 (#$ . 629872)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-signature-help-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "signatureHelpProvider"] 4 (#$ . 630039)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-signature-help-provider? #[514 "\300\301#\210\207" [puthash "signatureHelpProvider"] 6 (#$ . 630211)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-text-document-sync? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocumentSync"] 4 (#$ . 630381)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-text-document-sync? #[514 "\300\301#\210\207" [puthash "textDocumentSync"] 6 (#$ . 630543)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-type-definition-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "typeDefinitionProvider"] 4 (#$ . 630703)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-type-definition-provider? #[514 "\300\301#\210\207" [puthash "typeDefinitionProvider"] 6 (#$ . 630877)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-type-hierarchy-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "typeHierarchyProvider"] 4 (#$ . 631049)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-type-hierarchy-provider? #[514 "\300\301#\210\207" [puthash "typeHierarchyProvider"] 6 (#$ . 631221)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-workspace? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspace"] 4 (#$ . 631391)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-workspace? #[514 "\300\301#\210\207" [puthash "workspace"] 6 (#$ . 631537)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-workspace-symbol-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspaceSymbolProvider"] 4 (#$ . 631681)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-workspace-symbol-provider? #[514 "\300\301#\210\207" [puthash "workspaceSymbolProvider"] 6 (#$ . 631857)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-semantic-tokens-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "semanticTokensProvider"] 4 (#$ . 632031)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-semantic-tokens-provider? #[514 "\300\301#\210\207" [puthash "semanticTokensProvider"] 6 (#$ . 632205)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-inline-completion-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "inlineCompletionProvider"] 4 (#$ . 632377)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-inline-completion-provider? #[514 "\300\301#\210\207" [puthash "inlineCompletionProvider"] 6 (#$ . 632555)])#@15 (fn OBJECT) (defalias 'lsp:server-capabilities-inlay-hint-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "inlayHintProvider"] 4 (#$ . 632731)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-capabilities-inlay-hint-provider? #[514 "\300\301#\210\207" [puthash "inlayHintProvider"] 6 (#$ . 632895)])#@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 (#$ . 633057)])#@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 (#$ . 633449)])#@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 (#$ . 633779)])#@126 Constructs ServerInfo from `plist.' Allowed params: (:name :version?) (fn &rest PLIST &key VERSION? NAME &allow-other-keys) (defalias 'lsp-make-server-info #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 634098)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ServerInfo #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 634623)])#@15 (fn OBJECT) (defalias 'lsp:server-info-version? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "version"] 4 (#$ . 635435)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-info-version? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 635569)])#@15 (fn OBJECT) (defalias 'lsp:server-info-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 635701)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-server-info-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 635828)])#@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 (#$ . 635953)])#@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 (#$ . 636485)])#@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 (#$ . 636955)])#@196 Constructs SignatureHelp from `plist.' Allowed params: (:signatures :active-signature? :active-parameter?) (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\"\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 (#$ . 637289)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SignatureHelp #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 638004)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-active-parameter? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "activeParameter"] 4 (#$ . 638928)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-active-parameter? #[514 "\300\301#\210\207" [puthash "activeParameter"] 6 (#$ . 639082)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-active-signature? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "activeSignature"] 4 (#$ . 639234)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-active-signature? #[514 "\300\301#\210\207" [puthash "activeSignature"] 6 (#$ . 639388)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-signatures #[257 "\300!\205\n\301\302\"\207" [ht? gethash "signatures"] 4 (#$ . 639540)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-signatures #[514 "\300\301#\210\207" [puthash "signatures"] 6 (#$ . 639682)])#@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 (#$ . 639822)])#@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 (#$ . 640424)])#@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 (#$ . 640964)])#@238 Constructs SignatureHelpCapabilities from `plist.' Allowed params: (:signature-information? :dynamic-registration? :context-support?) (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\"\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 (#$ . 641286)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SignatureHelpCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 642099)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-context-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "contextSupport"] 4 (#$ . 643064)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-context-support? #[514 "\300\301#\210\207" [puthash "contextSupport"] 6 (#$ . 643229)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 643392)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 643567)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-capabilities-signature-information? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "signatureInformation"] 4 (#$ . 643740)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-capabilities-signature-information? #[514 "\300\301#\210\207" [puthash "signatureInformation"] 6 (#$ . 643917)])#@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 (#$ . 644092)])#@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 (#$ . 644720)])#@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 (#$ . 645286)])#@246 Constructs SignatureHelpContext from `plist.' Allowed params: (:is-retrigger :trigger-kind :trigger-character? :active-signature-help?) (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\"\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 (#$ . 645657)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SignatureHelpContext #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 646510)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-context-active-signature-help? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "activeSignatureHelp"] 4 (#$ . 647522)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-active-signature-help? #[514 "\300\301#\210\207" [puthash "activeSignatureHelp"] 6 (#$ . 647693)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-context-trigger-character? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerCharacter"] 4 (#$ . 647862)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-trigger-character? #[514 "\300\301#\210\207" [puthash "triggerCharacter"] 6 (#$ . 648026)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerKind"] 4 (#$ . 648188)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 648341)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-context-is-retrigger #[257 "\300!\205\n\301\302\"\207" [ht? gethash "isRetrigger"] 4 (#$ . 648492)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-context-is-retrigger #[514 "\300\301#\210\207" [puthash "isRetrigger"] 6 (#$ . 648645)])#@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 (#$ . 648796)])#@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 (#$ . 649307)])#@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 (#$ . 649756)])#@192 Constructs SignatureHelpOptions from `plist.' Allowed params: (:trigger-characters? :retrigger-characters?) (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\"\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 (#$ . 650073)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SignatureHelpOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 650756)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-options-retrigger-characters? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "retriggerCharacters"] 4 (#$ . 651651)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-options-retrigger-characters? #[514 "\300\301#\210\207" [puthash "retriggerCharacters"] 6 (#$ . 651821)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-options-trigger-characters? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerCharacters"] 4 (#$ . 651989)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-options-trigger-characters? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 652155)])#@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? :active-parameter? :label) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:documentation? :parameters? :active-parameter? :label) gethash 1 nil assoc ((:documentation? . :documentation) (:parameters? . :parameters) (:active-parameter? . :activeParameter) (:label . :label))] 7 (#$ . 652319)])#@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? :active-parameter? :label) error "Unknown key: %s. Available keys: %s" (:documentation? :parameters? :active-parameter? :label) when ht? gethash symbol-name assoc ((:documentation? . :documentation) (:parameters? . :parameters) (:active-parameter? . :activeParameter) (:label . :label)) 1 nil] 9 (#$ . 652882)])#@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 (#$ . 653383)])#@212 Constructs SignatureInformation from `plist.' Allowed params: (:label :active-parameter? :parameters? :documentation?) (fn &rest PLIST &key DOCUMENTATION? PARAMETERS? ACTIVE-PARAMETER? LABEL &allow-other-keys) (defalias 'lsp-make-signature-information #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\310\311\312\"\313\314 \"\"\210\207" [plist-member :documentation? :parameters? :active-parameter? :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) (:active-parameter? . :activeParameter) (:label . :label))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 653714)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SignatureInformation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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) (:active-parameter? . :activeParameter) (:label . :label)) error "Unknown key: %s. Available keys: %s" symbol-name (:documentation? :parameters? :active-parameter? :label) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 654484)])#@15 (fn OBJECT) (defalias 'lsp:signature-information-documentation? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentation"] 4 (#$ . 655429)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-documentation? #[514 "\300\301#\210\207" [puthash "documentation"] 6 (#$ . 655585)])#@15 (fn OBJECT) (defalias 'lsp:signature-information-parameters? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "parameters"] 4 (#$ . 655739)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-parameters? #[514 "\300\301#\210\207" [puthash "parameters"] 6 (#$ . 655889)])#@15 (fn OBJECT) (defalias 'lsp:signature-information-active-parameter? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "activeParameter"] 4 (#$ . 656037)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-active-parameter? #[514 "\300\301#\210\207" [puthash "activeParameter"] 6 (#$ . 656198)])#@15 (fn OBJECT) (defalias 'lsp:signature-information-label #[257 "\300!\205\n\301\302\"\207" [ht? gethash "label"] 4 (#$ . 656357)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 656496)])#@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 (#$ . 656633)])#@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 (#$ . 657168)])#@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 (#$ . 657641)])#@210 Constructs SignatureInformationCapabilities from `plist.' Allowed params: (:parameter-information? :documentation-format?) (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\"\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 (#$ . 657970)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SignatureInformationCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 658692)])#@15 (fn OBJECT) (defalias 'lsp:signature-information-capabilities-documentation-format? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentationFormat"] 4 (#$ . 659608)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-capabilities-documentation-format? #[514 "\300\301#\210\207" [puthash "documentationFormat"] 6 (#$ . 659790)])#@15 (fn OBJECT) (defalias 'lsp:signature-information-capabilities-parameter-information? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "parameterInformation"] 4 (#$ . 659970)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-information-capabilities-parameter-information? #[514 "\300\301#\210\207" [puthash "parameterInformation"] 6 (#$ . 660154)])#@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 (#$ . 660336)])#@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 (#$ . 660777)])#@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 (#$ . 661156)])#@159 Constructs StaticRegistrationOptions from `plist.' Allowed params: (:id? :document-selector?) (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\"\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 (#$ . 661478)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-StaticRegistrationOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 662077)])#@15 (fn OBJECT) (defalias 'lsp:static-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 662921)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-static-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 663090)])#@15 (fn OBJECT) (defalias 'lsp:static-registration-options-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 663257)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-static-registration-options-id? #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 663397)])#@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 (#$ . 663535)])#@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 (#$ . 664016)])#@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 (#$ . 664435)])#@176 Constructs SymbolCapabilities from `plist.' Allowed params: (:symbol-kind? :dynamic-registration?) (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\"\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 (#$ . 664749)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SymbolCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 665392)])#@15 (fn OBJECT) (defalias 'lsp:symbol-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 666264)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 666431)])#@15 (fn OBJECT) (defalias 'lsp:symbol-capabilities-symbol-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "symbolKind"] 4 (#$ . 666596)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-capabilities-symbol-kind? #[514 "\300\301#\210\207" [puthash "symbolKind"] 6 (#$ . 666745)])#@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 (#$ . 666892)])#@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 (#$ . 667273)])#@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 (#$ . 667592)])#@131 Constructs SymbolKindCapabilities from `plist.' Allowed params: (:value-set?) (fn &rest PLIST &key VALUE-SET? &allow-other-keys) (defalias 'lsp-make-symbol-kind-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 667911)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SymbolKindCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 668424)])#@15 (fn OBJECT) (defalias 'lsp:symbol-kind-capabilities-value-set? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "valueSet"] 4 (#$ . 669223)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-kind-capabilities-value-set? #[514 "\300\301#\210\207" [puthash "valueSet"] 6 (#$ . 669373)])#@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 (#$ . 669521)])#@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 (#$ . 670141)])#@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 (#$ . 670699)])#@247 Constructs SynchronizationCapabilities from `plist.' Allowed params: (:will-save-wait-until? :will-save? :dynamic-registration? :did-save?) (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\"\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 (#$ . 671022)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SynchronizationCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 671870)])#@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-did-save? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "didSave"] 4 (#$ . 672849)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-did-save? #[514 "\300\301#\210\207" [puthash "didSave"] 6 (#$ . 673001)])#@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 673151)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 673327)])#@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-will-save? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "willSave"] 4 (#$ . 673501)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-will-save? #[514 "\300\301#\210\207" [puthash "willSave"] 6 (#$ . 673655)])#@15 (fn OBJECT) (defalias 'lsp:synchronization-capabilities-will-save-wait-until? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "willSaveWaitUntil"] 4 (#$ . 673807)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-synchronization-capabilities-will-save-wait-until? #[514 "\300\301#\210\207" [puthash "willSaveWaitUntil"] 6 (#$ . 673981)])#@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 (#$ . 674153)])#@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 (#$ . 676274)])#@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 (#$ . 678333)])#@953 Constructs TextDocumentClientCapabilities from `plist.' Allowed params: (:type-hierarchy-capabilities? :type-definition? :synchronization? :signature-help? :semantic-highlighting-capabilities? :selection-range? :rename? :references? :range-formatting? :publish-diagnostics? :on-type-formatting? :implementation? :hover? :formatting? :folding-range? :document-symbol? :document-link? :document-highlight? :definition? :declaration? :completion? :color-provider? :code-lens? :code-action? :call-hierarchy?) (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\"\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 (#$ . 678661)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentClientCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 681651)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-call-hierarchy? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "callHierarchy"] 4 (#$ . 683769)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-call-hierarchy? #[514 "\300\301#\210\207" [puthash "callHierarchy"] 6 (#$ . 683938)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-code-action? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "codeAction"] 4 (#$ . 684105)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-code-action? #[514 "\300\301#\210\207" [puthash "codeAction"] 6 (#$ . 684268)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-code-lens? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "codeLens"] 4 (#$ . 684429)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-code-lens? #[514 "\300\301#\210\207" [puthash "codeLens"] 6 (#$ . 684588)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-color-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "colorProvider"] 4 (#$ . 684745)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-color-provider? #[514 "\300\301#\210\207" [puthash "colorProvider"] 6 (#$ . 684914)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-completion? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "completion"] 4 (#$ . 685081)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-completion? #[514 "\300\301#\210\207" [puthash "completion"] 6 (#$ . 685243)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-declaration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "declaration"] 4 (#$ . 685403)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-declaration? #[514 "\300\301#\210\207" [puthash "declaration"] 6 (#$ . 685567)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-definition? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "definition"] 4 (#$ . 685729)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-definition? #[514 "\300\301#\210\207" [puthash "definition"] 6 (#$ . 685891)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-highlight? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentHighlight"] 4 (#$ . 686051)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-highlight? #[514 "\300\301#\210\207" [puthash "documentHighlight"] 6 (#$ . 686228)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-link? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentLink"] 4 (#$ . 686403)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-link? #[514 "\300\301#\210\207" [puthash "documentLink"] 6 (#$ . 686570)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-document-symbol? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSymbol"] 4 (#$ . 686735)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-document-symbol? #[514 "\300\301#\210\207" [puthash "documentSymbol"] 6 (#$ . 686906)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-folding-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "foldingRange"] 4 (#$ . 687075)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-folding-range? #[514 "\300\301#\210\207" [puthash "foldingRange"] 6 (#$ . 687242)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-formatting? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "formatting"] 4 (#$ . 687407)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-formatting? #[514 "\300\301#\210\207" [puthash "formatting"] 6 (#$ . 687569)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-hover? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "hover"] 4 (#$ . 687729)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-hover? #[514 "\300\301#\210\207" [puthash "hover"] 6 (#$ . 687881)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-implementation? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "implementation"] 4 (#$ . 688031)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-implementation? #[514 "\300\301#\210\207" [puthash "implementation"] 6 (#$ . 688201)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-on-type-formatting? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "onTypeFormatting"] 4 (#$ . 688369)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-on-type-formatting? #[514 "\300\301#\210\207" [puthash "onTypeFormatting"] 6 (#$ . 688545)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-publish-diagnostics? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "publishDiagnostics"] 4 (#$ . 688719)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-publish-diagnostics? #[514 "\300\301#\210\207" [puthash "publishDiagnostics"] 6 (#$ . 688898)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-range-formatting? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "rangeFormatting"] 4 (#$ . 689075)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-range-formatting? #[514 "\300\301#\210\207" [puthash "rangeFormatting"] 6 (#$ . 689248)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-references? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "references"] 4 (#$ . 689419)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-references? #[514 "\300\301#\210\207" [puthash "references"] 6 (#$ . 689581)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-rename? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "rename"] 4 (#$ . 689741)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-rename? #[514 "\300\301#\210\207" [puthash "rename"] 6 (#$ . 689895)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-selection-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "selectionRange"] 4 (#$ . 690047)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-selection-range? #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 690218)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-semantic-highlighting-capabilities? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "semanticHighlightingCapabilities"] 4 (#$ . 690387)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-semantic-highlighting-capabilities? #[514 "\300\301#\210\207" [puthash "semanticHighlightingCapabilities"] 6 (#$ . 690595)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-signature-help? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "signatureHelp"] 4 (#$ . 690801)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-signature-help? #[514 "\300\301#\210\207" [puthash "signatureHelp"] 6 (#$ . 690970)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-synchronization? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "synchronization"] 4 (#$ . 691137)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-synchronization? #[514 "\300\301#\210\207" [puthash "synchronization"] 6 (#$ . 691309)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-type-definition? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "typeDefinition"] 4 (#$ . 691479)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-type-definition? #[514 "\300\301#\210\207" [puthash "typeDefinition"] 6 (#$ . 691650)])#@15 (fn OBJECT) (defalias 'lsp:text-document-client-capabilities-type-hierarchy-capabilities? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "typeHierarchyCapabilities"] 4 (#$ . 691819)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-client-capabilities-type-hierarchy-capabilities? #[514 "\300\301#\210\207" [puthash "typeHierarchyCapabilities"] 6 (#$ . 692013)])#@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 (#$ . 692205)])#@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 (#$ . 692671)])#@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 (#$ . 693075)])#@171 Constructs TextDocumentContentChangeEvent from `plist.' Allowed params: (:text :range-length? :range?) (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\"\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 (#$ . 693417)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentContentChangeEvent #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 694065)])#@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 694938)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-range? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 695091)])#@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-range-length? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "rangeLength"] 4 (#$ . 695242)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-range-length? #[514 "\300\301#\210\207" [puthash "rangeLength"] 6 (#$ . 695408)])#@15 (fn OBJECT) (defalias 'lsp:text-document-content-change-event-text #[257 "\300!\205\n\301\302\"\207" [ht? gethash "text"] 4 (#$ . 695572)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-content-change-event-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 695722)])#@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 (#$ . 695870)])#@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 (#$ . 696292)])#@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 (#$ . 696652)])#@144 Constructs TextDocumentEdit from `plist.' Allowed params: (:edits :text-document) (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\"\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 (#$ . 697009)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentEdit #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 697577)])#@15 (fn OBJECT) (defalias 'lsp:text-document-edit-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 698428)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-edit-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 698579)])#@15 (fn OBJECT) (defalias 'lsp:text-document-edit-edits #[257 "\300!\205\n\301\302\"\207" [ht? gethash "edits"] 4 (#$ . 698728)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-edit-edits #[514 "\300\301#\210\207" [puthash "edits"] 6 (#$ . 698864)])#@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 (#$ . 698998)])#@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 (#$ . 699353)])#@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 (#$ . 699646)])#@117 Constructs TextDocumentIdentifier from `plist.' Allowed params: (:uri) (fn &rest PLIST &key URI &allow-other-keys) (defalias 'lsp-make-text-document-identifier #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 699976)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentIdentifier #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 700456)])#@15 (fn OBJECT) (defalias 'lsp:text-document-identifier-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 701243)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-identifier-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 701381)])#@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 (#$ . 701517)])#@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 (#$ . 701991)])#@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 (#$ . 702403)])#@164 Constructs TextDocumentItem from `plist.' Allowed params: (:version :uri :text :language-id) (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\"\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 (#$ . 702784)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentItem #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 703440)])#@15 (fn OBJECT) (defalias 'lsp:text-document-item-language-id #[257 "\300!\205\n\301\302\"\207" [ht? gethash "languageId"] 4 (#$ . 704343)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-language-id #[514 "\300\301#\210\207" [puthash "languageId"] 6 (#$ . 704490)])#@15 (fn OBJECT) (defalias 'lsp:text-document-item-text #[257 "\300!\205\n\301\302\"\207" [ht? gethash "text"] 4 (#$ . 704635)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 704769)])#@15 (fn OBJECT) (defalias 'lsp:text-document-item-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 704901)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 705033)])#@15 (fn OBJECT) (defalias 'lsp:text-document-item-version #[257 "\300!\205\n\301\302\"\207" [ht? gethash "version"] 4 (#$ . 705163)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-item-version #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 705303)])#@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 (#$ . 705441)])#@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 (#$ . 706041)])#@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 (#$ . 706579)])#@232 Constructs TextDocumentSyncOptions from `plist.' Allowed params: (:will-save-wait-until? :will-save? :save? :open-close? :change?) (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\"\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 (#$ . 706900)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentSyncOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 707734)])#@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-change? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "change"] 4 (#$ . 708698)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-change? #[514 "\300\301#\210\207" [puthash "change"] 6 (#$ . 708845)])#@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-open-close? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "openClose"] 4 (#$ . 708990)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-open-close? #[514 "\300\301#\210\207" [puthash "openClose"] 6 (#$ . 709144)])#@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-save? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "save"] 4 (#$ . 709296)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-save? #[514 "\300\301#\210\207" [puthash "save"] 6 (#$ . 709439)])#@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-will-save? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "willSave"] 4 (#$ . 709580)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-will-save? #[514 "\300\301#\210\207" [puthash "willSave"] 6 (#$ . 709732)])#@15 (fn OBJECT) (defalias 'lsp:text-document-sync-options-will-save-wait-until? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "willSaveWaitUntil"] 4 (#$ . 709882)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-sync-options-will-save-wait-until? #[514 "\300\301#\210\207" [puthash "willSaveWaitUntil"] 6 (#$ . 710054)])#@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 (#$ . 710224)])#@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 (#$ . 710618)])#@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 (#$ . 710950)])#@126 Constructs TextEdit from `plist.' Allowed params: (:range :new-text) (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\"\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 (#$ . 711288)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextEdit #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 711814)])#@15 (fn OBJECT) (defalias 'lsp:text-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht? gethash "newText"] 4 (#$ . 712637)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 712769)])#@15 (fn OBJECT) (defalias 'lsp:text-edit-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 712899)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-edit-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 713026)])#@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 (#$ . 713151)])#@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 (#$ . 713598)])#@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 (#$ . 713983)])#@154 Constructs InsertReplaceEdit from `plist.' Allowed params: (:replace :insert :new-text) (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\"\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 (#$ . 714352)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InsertReplaceEdit #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 714964)])#@15 (fn OBJECT) (defalias 'lsp:insert-replace-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht? gethash "newText"] 4 (#$ . 715840)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 715982)])#@15 (fn OBJECT) (defalias 'lsp:insert-replace-edit-insert #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insert"] 4 (#$ . 716122)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-insert #[514 "\300\301#\210\207" [puthash "insert"] 6 (#$ . 716261)])#@15 (fn OBJECT) (defalias 'lsp:insert-replace-edit-replace #[257 "\300!\205\n\301\302\"\207" [ht? gethash "replace"] 4 (#$ . 716398)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-insert-replace-edit-replace #[514 "\300\301#\210\207" [puthash "replace"] 6 (#$ . 716539)])#@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 (#$ . 716678)])#@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 (#$ . 717164)])#@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 (#$ . 717588)])#@174 Constructs SnippetTextEdit from `plist.' Allowed params: (:range :new-text :insert-text-format?) (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\"\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 (#$ . 717934)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SnippetTextEdit #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 718594)])#@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-insert-text-format? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insertTextFormat"] 4 (#$ . 719488)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-insert-text-format? #[514 "\300\301#\210\207" [puthash "insertTextFormat"] 6 (#$ . 719648)])#@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-new-text #[257 "\300!\205\n\301\302\"\207" [ht? gethash "newText"] 4 (#$ . 719806)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-new-text #[514 "\300\301#\210\207" [puthash "newText"] 6 (#$ . 719946)])#@15 (fn OBJECT) (defalias 'lsp:snippet-text-edit-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 720084)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-snippet-text-edit-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 720219)])#@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 (#$ . 720352)])#@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 (#$ . 720845)])#@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 (#$ . 721276)])#@186 Constructs TypeDefinitionCapabilities from `plist.' Allowed params: (:link-support? :dynamic-registration?) (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\"\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 (#$ . 721599)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TypeDefinitionCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 722264)])#@15 (fn OBJECT) (defalias 'lsp:type-definition-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 723147)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 723323)])#@15 (fn OBJECT) (defalias 'lsp:type-definition-capabilities-link-support? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "linkSupport"] 4 (#$ . 723497)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-capabilities-link-support? #[514 "\300\301#\210\207" [puthash "linkSupport"] 6 (#$ . 723657)])#@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 (#$ . 723815)])#@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 (#$ . 724243)])#@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 (#$ . 724609)])#@156 Constructs TypeHierarchyCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-type-hierarchy-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 724931)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TypeHierarchyCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 725505)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 726340)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 726515)])#@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 (#$ . 726688)])#@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 (#$ . 727414)])#@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 (#$ . 728078)])#@275 Constructs TypeHierarchyItem from `plist.' Allowed params: (:uri :selection-range :range :name :kind :parents? :detail? :deprecated? :data? :children?) (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\"\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 (#$ . 728477)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TypeHierarchyItem #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 729522)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-children? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "children"] 4 (#$ . 730627)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-children? #[514 "\300\301#\210\207" [puthash "children"] 6 (#$ . 730771)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 730913)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 731049)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-deprecated? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "deprecated"] 4 (#$ . 731183)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-deprecated? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 731331)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-detail? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "detail"] 4 (#$ . 731477)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-detail? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 731617)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-parents? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "parents"] 4 (#$ . 731755)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-parents? #[514 "\300\301#\210\207" [puthash "parents"] 6 (#$ . 731897)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 732037)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 732172)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 732305)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 732440)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 732573)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 732710)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-selection-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "selectionRange"] 4 (#$ . 732845)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-selection-range #[514 "\300\301#\210\207" [puthash "selectionRange"] 6 (#$ . 733001)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-item-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 733155)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-item-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 733288)])#@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 (#$ . 733419)])#@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 (#$ . 733800)])#@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 (#$ . 734119)])#@122 Constructs Unregistration from `plist.' Allowed params: (:id :method) (fn &rest PLIST &key METHOD ID &allow-other-keys) (defalias 'lsp-make-unregistration #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 734454)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Unregistration #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 734967)])#@15 (fn OBJECT) (defalias 'lsp:unregistration-method #[257 "\300!\205\n\301\302\"\207" [ht? gethash "method"] 4 (#$ . 735778)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-method #[514 "\300\301#\210\207" [puthash "method"] 6 (#$ . 735912)])#@15 (fn OBJECT) (defalias 'lsp:unregistration-id #[257 "\300!\205\n\301\302\"\207" [ht? gethash "id"] 4 (#$ . 736044)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-id #[514 "\300\301#\210\207" [puthash "id"] 6 (#$ . 736170)])#@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 (#$ . 736294)])#@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 (#$ . 736703)])#@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 (#$ . 737050)])#@145 Constructs VersionedTextDocumentIdentifier from `plist.' Allowed params: (:uri :version?) (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\"\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 (#$ . 737390)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-VersionedTextDocumentIdentifier #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 737954)])#@15 (fn OBJECT) (defalias 'lsp:versioned-text-document-identifier-version? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "version"] 4 (#$ . 738783)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-versioned-text-document-identifier-version? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 738940)])#@15 (fn OBJECT) (defalias 'lsp:versioned-text-document-identifier-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 739095)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-versioned-text-document-identifier-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 739243)])#@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 (#$ . 739389)])#@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 (#$ . 740330)])#@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 (#$ . 741209)])#@399 Constructs WorkspaceClientCapabilities from `plist.' Allowed params: (:workspace-folders? :workspace-edit? :symbol? :execute-command? :did-change-watched-files? :did-change-configuration? :configuration? :apply-edit?) (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\"\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 (#$ . 741533)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceClientCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 742832)])#@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-apply-edit? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "applyEdit"] 4 (#$ . 744054)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-apply-edit? #[514 "\300\301#\210\207" [puthash "applyEdit"] 6 (#$ . 744211)])#@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-configuration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "configuration"] 4 (#$ . 744366)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-configuration? #[514 "\300\301#\210\207" [puthash "configuration"] 6 (#$ . 744530)])#@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-did-change-configuration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "didChangeConfiguration"] 4 (#$ . 744692)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-did-change-configuration? #[514 "\300\301#\210\207" [puthash "didChangeConfiguration"] 6 (#$ . 744876)])#@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-did-change-watched-files? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "didChangeWatchedFiles"] 4 (#$ . 745058)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-did-change-watched-files? #[514 "\300\301#\210\207" [puthash "didChangeWatchedFiles"] 6 (#$ . 745241)])#@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-execute-command? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "executeCommand"] 4 (#$ . 745422)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-execute-command? #[514 "\300\301#\210\207" [puthash "executeCommand"] 6 (#$ . 745589)])#@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-symbol? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "symbol"] 4 (#$ . 745754)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-symbol? #[514 "\300\301#\210\207" [puthash "symbol"] 6 (#$ . 745904)])#@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-workspace-edit? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspaceEdit"] 4 (#$ . 746052)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-workspace-edit? #[514 "\300\301#\210\207" [puthash "workspaceEdit"] 6 (#$ . 746217)])#@15 (fn OBJECT) (defalias 'lsp:workspace-client-capabilities-workspace-folders? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspaceFolders"] 4 (#$ . 746380)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-client-capabilities-workspace-folders? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 746551)])#@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 (#$ . 746720)])#@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 (#$ . 747243)])#@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 (#$ . 747704)])#@192 Constructs WorkspaceEdit from `plist.' Allowed params: (:resource-changes? :document-changes? :changes?) (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\"\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 (#$ . 748013)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceEdit #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 748717)])#@15 (fn OBJECT) (defalias 'lsp:workspace-edit-changes? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "changes"] 4 (#$ . 749620)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-changes? #[514 "\300\301#\210\207" [puthash "changes"] 6 (#$ . 749757)])#@15 (fn OBJECT) (defalias 'lsp:workspace-edit-document-changes? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentChanges"] 4 (#$ . 749892)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-document-changes? #[514 "\300\301#\210\207" [puthash "documentChanges"] 6 (#$ . 750046)])#@15 (fn OBJECT) (defalias 'lsp:workspace-edit-resource-changes? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resourceChanges"] 4 (#$ . 750198)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-resource-changes? #[514 "\300\301#\210\207" [puthash "resourceChanges"] 6 (#$ . 750352)])#@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 (#$ . 750504)])#@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 (#$ . 751164)])#@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 (#$ . 751762)])#@265 Constructs WorkspaceEditCapabilities from `plist.' Allowed params: (:resource-operations? :resource-changes? :failure-handling? :document-changes?) (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\"\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 (#$ . 752084)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceEditCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 752981)])#@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-document-changes? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentChanges"] 4 (#$ . 753990)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-document-changes? #[514 "\300\301#\210\207" [puthash "documentChanges"] 6 (#$ . 754157)])#@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-failure-handling? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "failureHandling"] 4 (#$ . 754322)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-failure-handling? #[514 "\300\301#\210\207" [puthash "failureHandling"] 6 (#$ . 754489)])#@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-resource-changes? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resourceChanges"] 4 (#$ . 754654)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-resource-changes? #[514 "\300\301#\210\207" [puthash "resourceChanges"] 6 (#$ . 754821)])#@15 (fn OBJECT) (defalias 'lsp:workspace-edit-capabilities-resource-operations? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resourceOperations"] 4 (#$ . 754986)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-edit-capabilities-resource-operations? #[514 "\300\301#\210\207" [puthash "resourceOperations"] 6 (#$ . 755159)])#@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 (#$ . 755330)])#@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 (#$ . 755708)])#@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 (#$ . 756024)])#@121 Constructs WorkspaceFolder from `plist.' Allowed params: (:name :uri) (fn &rest PLIST &key URI NAME &allow-other-keys) (defalias 'lsp-make-workspace-folder #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 756359)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceFolder #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 756870)])#@15 (fn OBJECT) (defalias 'lsp:workspace-folder-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 757678)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folder-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 757808)])#@15 (fn OBJECT) (defalias 'lsp:workspace-folder-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 757936)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folder-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 758068)])#@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 (#$ . 758198)])#@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 (#$ . 758608)])#@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 (#$ . 758956)])#@143 Constructs WorkspaceFoldersChangeEvent from `plist.' Allowed params: (:added :removed) (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\"\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 (#$ . 759315)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceFoldersChangeEvent #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 759877)])#@15 (fn OBJECT) (defalias 'lsp:workspace-folders-change-event-removed #[257 "\300!\205\n\301\302\"\207" [ht? gethash "removed"] 4 (#$ . 760717)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-change-event-removed #[514 "\300\301#\210\207" [puthash "removed"] 6 (#$ . 760869)])#@15 (fn OBJECT) (defalias 'lsp:workspace-folders-change-event-added #[257 "\300!\205\n\301\302\"\207" [ht? gethash "added"] 4 (#$ . 761019)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-change-event-added #[514 "\300\301#\210\207" [puthash "added"] 6 (#$ . 761167)])#@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 (#$ . 761313)])#@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 (#$ . 761792)])#@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 (#$ . 762209)])#@177 Constructs WorkspaceFoldersOptions from `plist.' Allowed params: (:supported? :change-notifications?) (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\"\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 (#$ . 762529)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceFoldersOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 763174)])#@15 (fn OBJECT) (defalias 'lsp:workspace-folders-options-change-notifications? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "changeNotifications"] 4 (#$ . 764046)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-options-change-notifications? #[514 "\300\301#\210\207" [puthash "changeNotifications"] 6 (#$ . 764219)])#@15 (fn OBJECT) (defalias 'lsp:workspace-folders-options-supported? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "supported"] 4 (#$ . 764390)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-folders-options-supported? #[514 "\300\301#\210\207" [puthash "supported"] 6 (#$ . 764542)])#@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? :file-operations?) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:workspace-folders? :file-operations?) gethash 1 nil assoc ((:workspace-folders? . :workspaceFolders) (:file-operations? . :fileOperations))] 7 (#$ . 764692)])#@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? :file-operations?) error "Unknown key: %s. Available keys: %s" (:workspace-folders? :file-operations?) when ht? gethash symbol-name assoc ((:workspace-folders? . :workspaceFolders) (:file-operations? . :fileOperations)) 1 nil] 9 (#$ . 765186)])#@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 (#$ . 765618)])#@187 Constructs WorkspaceServerCapabilities from `plist.' Allowed params: (:file-operations? :workspace-folders?) (fn &rest PLIST &key WORKSPACE-FOLDERS? FILE-OPERATIONS? &allow-other-keys) (defalias 'lsp-make-workspace-server-capabilities #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :workspace-folders? :file-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 ((:workspace-folders? . :workspaceFolders) (:file-operations? . :fileOperations))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 765942)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceServerCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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) (:file-operations? . :fileOperations)) error "Unknown key: %s. Available keys: %s" symbol-name (:workspace-folders? :file-operations?) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 766609)])#@15 (fn OBJECT) (defalias 'lsp:workspace-server-capabilities-workspace-folders? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspaceFolders"] 4 (#$ . 767493)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-server-capabilities-workspace-folders? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 767664)])#@15 (fn OBJECT) (defalias 'lsp:workspace-server-capabilities-file-operations? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "fileOperations"] 4 (#$ . 767833)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-server-capabilities-file-operations? #[514 "\300\301#\210\207" [puthash "fileOperations"] 6 (#$ . 768000)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceFileOperations #[514 "\300>\204\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-create? :will-create? :did-rename? :will-rename? :did-delete? :will-delete?) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:did-create? :will-create? :did-rename? :will-rename? :did-delete? :will-delete?) gethash 1 nil assoc ((:did-create? . :didCreate) (:will-create? . :willCreate) (:did-rename? . :didRename) (:will-rename? . :willRename) (:did-delete? . :didDelete) (:will-delete? . :willDelete))] 7 (#$ . 768165)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&WorkspaceFileOperations? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:did-create? :will-create? :did-rename? :will-rename? :did-delete? :will-delete?) error "Unknown key: %s. Available keys: %s" (:did-create? :will-create? :did-rename? :will-rename? :did-delete? :will-delete?) when ht? gethash symbol-name assoc ((:did-create? . :didCreate) (:will-create? . :willCreate) (:did-rename? . :didRename) (:will-rename? . :willRename) (:did-delete? . :didDelete) (:will-delete? . :willDelete)) 1 nil] 9 (#$ . 768835)])#@15 (fn OBJECT) (defalias 'lsp-workspace-file-operations? #[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 (#$ . 769443)])#@265 Constructs WorkspaceFileOperations from `plist.' Allowed params: (:will-delete? :did-delete? :will-rename? :did-rename? :will-create? :did-create?) (fn &rest PLIST &key DID-CREATE? WILL-CREATE? DID-RENAME? WILL-RENAME? DID-DELETE? WILL-DELETE? &allow-other-keys) (defalias 'lsp-make-workspace-file-operations #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\307\310\311\"\312\313\314\"\315\316 \"\"\210\207" [plist-member :did-create? :will-create? :did-rename? :will-rename? :did-delete? :will-delete? make-hash-table :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-create? . :didCreate) (:will-create? . :willCreate) (:did-rename? . :didRename) (:will-rename? . :willRename) (:did-delete? . :didDelete) (:will-delete? . :willDelete))] 9 "\n\n(fn INPUT0)"] -partition 2] 13 (#$ . 769763)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceFileOperations #[128 "\300\301\302\303\304\305\"\305\203z\211\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-create? . :didCreate) (:will-create? . :willCreate) (:did-rename? . :didRename) (:will-rename? . :willRename) (:did-delete? . :didDelete) (:will-delete? . :willDelete)) error "Unknown key: %s. Available keys: %s" symbol-name (:did-create? :will-create? :did-rename? :will-rename? :did-delete? :will-delete?) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 770695)])#@15 (fn OBJECT) (defalias 'lsp:workspace-file-operations-did-create? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "didCreate"] 4 (#$ . 771712)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-file-operations-did-create? #[514 "\300\301#\210\207" [puthash "didCreate"] 6 (#$ . 771865)])#@15 (fn OBJECT) (defalias 'lsp:workspace-file-operations-will-create? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "willCreate"] 4 (#$ . 772016)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-file-operations-will-create? #[514 "\300\301#\210\207" [puthash "willCreate"] 6 (#$ . 772171)])#@15 (fn OBJECT) (defalias 'lsp:workspace-file-operations-did-rename? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "didRename"] 4 (#$ . 772324)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-file-operations-did-rename? #[514 "\300\301#\210\207" [puthash "didRename"] 6 (#$ . 772477)])#@15 (fn OBJECT) (defalias 'lsp:workspace-file-operations-will-rename? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "willRename"] 4 (#$ . 772628)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-file-operations-will-rename? #[514 "\300\301#\210\207" [puthash "willRename"] 6 (#$ . 772783)])#@15 (fn OBJECT) (defalias 'lsp:workspace-file-operations-did-delete? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "didDelete"] 4 (#$ . 772936)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-file-operations-did-delete? #[514 "\300\301#\210\207" [puthash "didDelete"] 6 (#$ . 773089)])#@15 (fn OBJECT) (defalias 'lsp:workspace-file-operations-will-delete? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "willDelete"] 4 (#$ . 773240)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-file-operations-will-delete? #[514 "\300\301#\210\207" [puthash "willDelete"] 6 (#$ . 773395)])#@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 (#$ . 773548)])#@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 (#$ . 773946)])#@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 (#$ . 774282)])#@136 Constructs ApplyWorkspaceEditParams from `plist.' Allowed params: (:edit :label?) (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\"\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 (#$ . 774617)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ApplyWorkspaceEditParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 775162)])#@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-params-label? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "label"] 4 (#$ . 775982)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-params-label? #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 776128)])#@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-params-edit #[257 "\300!\205\n\301\302\"\207" [ht? gethash "edit"] 4 (#$ . 776272)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-params-edit #[514 "\300\301#\210\207" [puthash "edit"] 6 (#$ . 776415)])#@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 (#$ . 776556)])#@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 (#$ . 776931)])#@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 (#$ . 777244)])#@129 Constructs ApplyWorkspaceEditResponse from `plist.' Allowed params: (:applied) (fn &rest PLIST &key APPLIED &allow-other-keys) (defalias 'lsp-make-apply-workspace-edit-response #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 777587)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ApplyWorkspaceEditResponse #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 778096)])#@15 (fn OBJECT) (defalias 'lsp:apply-workspace-edit-response-applied #[257 "\300!\205\n\301\302\"\207" [ht? gethash "applied"] 4 (#$ . 778903)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-apply-workspace-edit-response-applied #[514 "\300\301#\210\207" [puthash "applied"] 6 (#$ . 779054)])#@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 (#$ . 779203)])#@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 (#$ . 779622)])#@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 (#$ . 779979)])#@147 Constructs CallHierarchyIncomingCall from `plist.' Allowed params: (:from-ranges :from) (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\"\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 (#$ . 780340)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CallHierarchyIncomingCall #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 780912)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-call-from #[257 "\300!\205\n\301\302\"\207" [ht? gethash "from"] 4 (#$ . 781760)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-call-from #[514 "\300\301#\210\207" [puthash "from"] 6 (#$ . 781904)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-call-from-ranges #[257 "\300!\205\n\301\302\"\207" [ht? gethash "fromRanges"] 4 (#$ . 782046)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-call-from-ranges #[514 "\300\301#\210\207" [puthash "fromRanges"] 6 (#$ . 782203)])#@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 (#$ . 782358)])#@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 (#$ . 782727)])#@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 (#$ . 783034)])#@129 Constructs CallHierarchyIncomingCallsParams from `plist.' Allowed params: (:item) (fn &rest PLIST &key ITEM &allow-other-keys) (defalias 'lsp-make-call-hierarchy-incoming-calls-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 783378)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CallHierarchyIncomingCallsParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 783885)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-incoming-calls-params-item #[257 "\300!\205\n\301\302\"\207" [ht? gethash "item"] 4 (#$ . 784686)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-incoming-calls-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 784838)])#@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 (#$ . 784988)])#@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 (#$ . 785399)])#@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 (#$ . 785748)])#@143 Constructs CallHierarchyOutgoingCall from `plist.' Allowed params: (:from-ranges :to) (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\"\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 (#$ . 786105)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CallHierarchyOutgoingCall #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 786667)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-call-to #[257 "\300!\205\n\301\302\"\207" [ht? gethash "to"] 4 (#$ . 787507)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-call-to #[514 "\300\301#\210\207" [puthash "to"] 6 (#$ . 787647)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-call-from-ranges #[257 "\300!\205\n\301\302\"\207" [ht? gethash "fromRanges"] 4 (#$ . 787785)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-call-from-ranges #[514 "\300\301#\210\207" [puthash "fromRanges"] 6 (#$ . 787942)])#@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 (#$ . 788097)])#@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 (#$ . 788466)])#@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 (#$ . 788773)])#@129 Constructs CallHierarchyOutgoingCallsParams from `plist.' Allowed params: (:item) (fn &rest PLIST &key ITEM &allow-other-keys) (defalias 'lsp-make-call-hierarchy-outgoing-calls-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 789117)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CallHierarchyOutgoingCallsParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 789624)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-outgoing-calls-params-item #[257 "\300!\205\n\301\302\"\207" [ht? gethash "item"] 4 (#$ . 790425)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-outgoing-calls-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 790577)])#@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 (#$ . 790727)])#@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 (#$ . 791198)])#@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 (#$ . 791607)])#@171 Constructs CallHierarchyPrepareParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 791981)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CallHierarchyPrepareParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 792631)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 793525)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 793669)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 793811)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 793973)])#@15 (fn OBJECT) (defalias 'lsp:call-hierarchy-prepare-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 794133)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-call-hierarchy-prepare-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 794286)])#@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 (#$ . 794437)])#@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 (#$ . 795047)])#@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 (#$ . 795595)])#@223 Constructs CodeAction from `plist.' Allowed params: (:title :data? :kind? :is-preferred? :edit? :diagnostics? :command?) (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\"\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 (#$ . 795916)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeAction #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 796774)])#@15 (fn OBJECT) (defalias 'lsp:code-action-command? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "command"] 4 (#$ . 797754)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-command? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 797888)])#@15 (fn OBJECT) (defalias 'lsp:code-action-diagnostics? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "diagnostics"] 4 (#$ . 798020)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-diagnostics? #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 798162)])#@15 (fn OBJECT) (defalias 'lsp:code-action-edit? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "edit"] 4 (#$ . 798302)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-edit? #[514 "\300\301#\210\207" [puthash "edit"] 6 (#$ . 798430)])#@15 (fn OBJECT) (defalias 'lsp:code-action-is-preferred? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "isPreferred"] 4 (#$ . 798556)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-is-preferred? #[514 "\300\301#\210\207" [puthash "isPreferred"] 6 (#$ . 798699)])#@15 (fn OBJECT) (defalias 'lsp:code-action-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 798840)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-kind? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 798968)])#@15 (fn OBJECT) (defalias 'lsp:code-action-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 799094)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 799222)])#@15 (fn OBJECT) (defalias 'lsp:code-action-title #[257 "\300!\205\n\301\302\"\207" [ht? gethash "title"] 4 (#$ . 799348)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 799477)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionKind #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 799604)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&CodeActionKind? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 799899)])#@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 (#$ . 800117)])#@102 Constructs CodeActionKind from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-code-action-kind #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 800428)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeActionKind #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 800813)])#@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 (#$ . 801562)])#@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 (#$ . 802024)])#@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 (#$ . 802424)])#@161 Constructs CodeActionParams from `plist.' Allowed params: (:range :context :text-document) (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\"\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 (#$ . 802800)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeActionParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 803430)])#@15 (fn OBJECT) (defalias 'lsp:code-action-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 804321)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 804472)])#@15 (fn OBJECT) (defalias 'lsp:code-action-params-context #[257 "\300!\205\n\301\302\"\207" [ht? gethash "context"] 4 (#$ . 804621)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 804761)])#@15 (fn OBJECT) (defalias 'lsp:code-action-params-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 804899)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-action-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 805035)])#@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 (#$ . 805169)])#@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 (#$ . 805594)])#@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 (#$ . 805957)])#@139 Constructs CodeLens from `plist.' Allowed params: (:range :data? :command?) (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\"\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 (#$ . 806276)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeLens #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 806853)])#@15 (fn OBJECT) (defalias 'lsp:code-lens-command? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "command"] 4 (#$ . 807691)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-command? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 807823)])#@15 (fn OBJECT) (defalias 'lsp:code-lens-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 807953)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 808079)])#@15 (fn OBJECT) (defalias 'lsp:code-lens-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 808203)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 808330)])#@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 (#$ . 808455)])#@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 (#$ . 808841)])#@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 (#$ . 809165)])#@129 Constructs CodeLensParams from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-code-lens-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 809505)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeLensParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 810018)])#@15 (fn OBJECT) (defalias 'lsp:code-lens-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 810835)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 810984)])#@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 (#$ . 811131)])#@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 (#$ . 811629)])#@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 (#$ . 812065)])#@189 Constructs CodeLensRegistrationOptions from `plist.' Allowed params: (:resolve-provider? :document-selector?) (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\"\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 (#$ . 812390)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CodeLensRegistrationOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 813063)])#@15 (fn OBJECT) (defalias 'lsp:code-lens-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 813950)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 814122)])#@15 (fn OBJECT) (defalias 'lsp:code-lens-registration-options-resolve-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveProvider"] 4 (#$ . 814292)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-code-lens-registration-options-resolve-provider? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 814462)])#@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 (#$ . 814630)])#@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 (#$ . 815021)])#@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 (#$ . 815350)])#@128 Constructs ColorInformation from `plist.' Allowed params: (:range :color) (fn &rest PLIST &key COLOR RANGE &allow-other-keys) (defalias 'lsp-make-color-information #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 815692)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ColorInformation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 816220)])#@15 (fn OBJECT) (defalias 'lsp:color-information-color #[257 "\300!\205\n\301\302\"\207" [ht? gethash "color"] 4 (#$ . 817041)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-information-color #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 817176)])#@15 (fn OBJECT) (defalias 'lsp:color-information-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 817309)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-information-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 817444)])#@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 (#$ . 817577)])#@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 (#$ . 818084)])#@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 (#$ . 818529)])#@186 Constructs ColorPresentation from `plist.' Allowed params: (:label :text-edit? :additional-text-edits?) (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\"\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 (#$ . 818857)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ColorPresentation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 819544)])#@15 (fn OBJECT) (defalias 'lsp:color-presentation-additional-text-edits? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "additionalTextEdits"] 4 (#$ . 820445)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-additional-text-edits? #[514 "\300\301#\210\207" [puthash "additionalTextEdits"] 6 (#$ . 820612)])#@15 (fn OBJECT) (defalias 'lsp:color-presentation-text-edit? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textEdit"] 4 (#$ . 820777)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-text-edit? #[514 "\300\301#\210\207" [puthash "textEdit"] 6 (#$ . 820921)])#@15 (fn OBJECT) (defalias 'lsp:color-presentation-label #[257 "\300!\205\n\301\302\"\207" [ht? gethash "label"] 4 (#$ . 821063)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 821199)])#@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 (#$ . 821333)])#@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 (#$ . 821794)])#@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 (#$ . 822193)])#@164 Constructs ColorPresentationParams from `plist.' Allowed params: (:range :text-document :color) (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\"\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 (#$ . 822572)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ColorPresentationParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 823206)])#@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-color #[257 "\300!\205\n\301\302\"\207" [ht? gethash "color"] 4 (#$ . 824096)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-color #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 824239)])#@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 824380)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 824538)])#@15 (fn OBJECT) (defalias 'lsp:color-presentation-params-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 824694)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-color-presentation-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 824837)])#@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 (#$ . 824978)])#@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 (#$ . 825359)])#@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 (#$ . 825678)])#@122 Constructs ColoringParams from `plist.' Allowed params: (:infos :uri) (fn &rest PLIST &key URI INFOS &allow-other-keys) (defalias 'lsp-make-coloring-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 826014)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ColoringParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 826528)])#@15 (fn OBJECT) (defalias 'lsp:coloring-params-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 827339)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 827468)])#@15 (fn OBJECT) (defalias 'lsp:coloring-params-infos #[257 "\300!\205\n\301\302\"\207" [ht? gethash "infos"] 4 (#$ . 827595)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-coloring-params-infos #[514 "\300\301#\210\207" [puthash "infos"] 6 (#$ . 827728)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColoringStyle #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 827859)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ColoringStyle? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 828153)])#@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 (#$ . 828370)])#@101 Constructs ColoringStyle from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-coloring-style #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 828679)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ColoringStyle #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 829061)])#@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 (#$ . 829809)])#@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 (#$ . 830229)])#@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 (#$ . 830587)])#@142 Constructs CompletionList from `plist.' Allowed params: (:is-incomplete :items) (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\"\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 (#$ . 830941)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionList #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 831504)])#@15 (fn OBJECT) (defalias 'lsp:completion-list-items #[257 "\300!\205\n\301\302\"\207" [ht? gethash "items"] 4 (#$ . 832353)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-list-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 832486)])#@15 (fn OBJECT) (defalias 'lsp:completion-list-is-incomplete #[257 "\300!\205\n\301\302\"\207" [ht? gethash "isIncomplete"] 4 (#$ . 832617)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-list-is-incomplete #[514 "\300\301#\210\207" [puthash "isIncomplete"] 6 (#$ . 832765)])#@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 (#$ . 832911)])#@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 (#$ . 833415)])#@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 (#$ . 833857)])#@180 Constructs CompletionParams from `plist.' Allowed params: (:position :text-document :uri? :context?) (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\"\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 (#$ . 834219)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 834912)])#@15 (fn OBJECT) (defalias 'lsp:completion-params-context? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "context"] 4 (#$ . 835829)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-context? #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 835969)])#@15 (fn OBJECT) (defalias 'lsp:completion-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 836107)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 836239)])#@15 (fn OBJECT) (defalias 'lsp:completion-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 836369)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 836519)])#@15 (fn OBJECT) (defalias 'lsp:completion-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 836667)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 836808)])#@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 (#$ . 836947)])#@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 (#$ . 837533)])#@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 (#$ . 838057)])#@232 Constructs CompletionRegistrationOptions from `plist.' Allowed params: (:trigger-characters? :resolve-provider? :document-selector?) (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\"\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 (#$ . 838383)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CompletionRegistrationOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 839179)])#@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 840133)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 840306)])#@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-resolve-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveProvider"] 4 (#$ . 840477)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-resolve-provider? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 840648)])#@15 (fn OBJECT) (defalias 'lsp:completion-registration-options-trigger-characters? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerCharacters"] 4 (#$ . 840817)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-completion-registration-options-trigger-characters? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 840992)])#@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 (#$ . 841165)])#@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 (#$ . 841525)])#@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 (#$ . 841823)])#@118 Constructs ConfigurationParams from `plist.' Allowed params: (:items) (fn &rest PLIST &key ITEMS &allow-other-keys) (defalias 'lsp-make-configuration-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 842153)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ConfigurationParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 842636)])#@15 (fn OBJECT) (defalias 'lsp:configuration-params-items #[257 "\300!\205\n\301\302\"\207" [ht? gethash "items"] 4 (#$ . 843428)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-configuration-params-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 843566)])#@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 (#$ . 843702)])#@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 (#$ . 844118)])#@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 (#$ . 844472)])#@135 Constructs CreateFile from `plist.' Allowed params: (:uri :kind :options?) (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\"\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 (#$ . 844802)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-CreateFile #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 845369)])#@15 (fn OBJECT) (defalias 'lsp:create-file-options? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "options"] 4 (#$ . 846205)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-options? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 846339)])#@15 (fn OBJECT) (defalias 'lsp:create-file-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 846471)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 846598)])#@15 (fn OBJECT) (defalias 'lsp:create-file-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 846723)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-create-file-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 846848)])#@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 (#$ . 846971)])#@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 (#$ . 847433)])#@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 (#$ . 847833)])#@162 Constructs DeclarationParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 848196)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DeclarationParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 848826)])#@15 (fn OBJECT) (defalias 'lsp:declaration-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 849711)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 849844)])#@15 (fn OBJECT) (defalias 'lsp:declaration-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 849975)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 850126)])#@15 (fn OBJECT) (defalias 'lsp:declaration-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 850275)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-declaration-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 850417)])#@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 (#$ . 850557)])#@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 (#$ . 851018)])#@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 (#$ . 851417)])#@161 Constructs DefinitionParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 851779)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DefinitionParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 852407)])#@15 (fn OBJECT) (defalias 'lsp:definition-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 853291)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 853423)])#@15 (fn OBJECT) (defalias 'lsp:definition-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 853553)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 853703)])#@15 (fn OBJECT) (defalias 'lsp:definition-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 853851)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-definition-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 853992)])#@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 (#$ . 854131)])#@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 (#$ . 854547)])#@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 (#$ . 854901)])#@135 Constructs DeleteFile from `plist.' Allowed params: (:uri :kind :options?) (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\"\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 (#$ . 855231)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DeleteFile #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 855798)])#@15 (fn OBJECT) (defalias 'lsp:delete-file-options? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "options"] 4 (#$ . 856634)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-options? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 856768)])#@15 (fn OBJECT) (defalias 'lsp:delete-file-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 856900)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 857027)])#@15 (fn OBJECT) (defalias 'lsp:delete-file-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 857152)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-delete-file-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 857277)])#@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 (#$ . 857400)])#@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 (#$ . 857781)])#@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 (#$ . 858100)])#@133 Constructs DidChangeConfigurationParams from `plist.' Allowed params: (:settings) (fn &rest PLIST &key SETTINGS &allow-other-keys) (defalias 'lsp-make-did-change-configuration-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 858447)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidChangeConfigurationParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 858965)])#@15 (fn OBJECT) (defalias 'lsp:did-change-configuration-params-settings #[257 "\300!\205\n\301\302\"\207" [ht? gethash "settings"] 4 (#$ . 859778)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-configuration-params-settings #[514 "\300\301#\210\207" [puthash "settings"] 6 (#$ . 859933)])#@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 (#$ . 860086)])#@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 (#$ . 860585)])#@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 (#$ . 861022)])#@186 Constructs DidChangeTextDocumentParams from `plist.' Allowed params: (:text-document :content-changes :uri?) (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\"\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 (#$ . 861410)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidChangeTextDocumentParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 862097)])#@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 863018)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 863164)])#@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-content-changes #[257 "\300!\205\n\301\302\"\207" [ht? gethash "contentChanges"] 4 (#$ . 863308)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-content-changes #[514 "\300\301#\210\207" [puthash "contentChanges"] 6 (#$ . 863476)])#@15 (fn OBJECT) (defalias 'lsp:did-change-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 863642)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 863806)])#@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 (#$ . 863968)])#@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 (#$ . 864344)])#@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 (#$ . 864658)])#@130 Constructs DidChangeWatchedFilesParams from `plist.' Allowed params: (:changes) (fn &rest PLIST &key CHANGES &allow-other-keys) (defalias 'lsp-make-did-change-watched-files-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 865003)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidChangeWatchedFilesParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 865515)])#@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-params-changes #[257 "\300!\205\n\301\302\"\207" [ht? gethash "changes"] 4 (#$ . 866323)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-params-changes #[514 "\300\301#\210\207" [puthash "changes"] 6 (#$ . 866476)])#@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 (#$ . 866627)])#@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 (#$ . 867020)])#@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 (#$ . 867351)])#@145 Constructs DidChangeWatchedFilesRegistrationOptions from `plist.' Allowed params: (:watchers) (fn &rest PLIST &key WATCHERS &allow-other-keys) (defalias 'lsp-make-did-change-watched-files-registration-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 867712)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidChangeWatchedFilesRegistrationOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 868256)])#@15 (fn OBJECT) (defalias 'lsp:did-change-watched-files-registration-options-watchers #[257 "\300!\205\n\301\302\"\207" [ht? gethash "watchers"] 4 (#$ . 869081)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-watched-files-registration-options-watchers #[514 "\300\301#\210\207" [puthash "watchers"] 6 (#$ . 869250)])#@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 (#$ . 869417)])#@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 (#$ . 869789)])#@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 (#$ . 870099)])#@130 Constructs DidChangeWorkspaceFoldersParams from `plist.' Allowed params: (:event) (fn &rest PLIST &key EVENT &allow-other-keys) (defalias 'lsp-make-did-change-workspace-folders-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 870444)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidChangeWorkspaceFoldersParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 870954)])#@15 (fn OBJECT) (defalias 'lsp:did-change-workspace-folders-params-event #[257 "\300!\205\n\301\302\"\207" [ht? gethash "event"] 4 (#$ . 871758)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-change-workspace-folders-params-event #[514 "\300\301#\210\207" [puthash "event"] 6 (#$ . 871911)])#@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 (#$ . 872062)])#@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 (#$ . 872460)])#@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 (#$ . 872796)])#@141 Constructs DidCloseTextDocumentParams from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-did-close-text-document-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 873150)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidCloseTextDocumentParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 873689)])#@15 (fn OBJECT) (defalias 'lsp:did-close-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 874518)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-close-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 874681)])#@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 (#$ . 874842)])#@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 (#$ . 875272)])#@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 (#$ . 875640)])#@153 Constructs DidOpenTextDocumentParams from `plist.' Allowed params: (:text-document :text?) (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\"\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 (#$ . 875993)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidOpenTextDocumentParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 876580)])#@15 (fn OBJECT) (defalias 'lsp:did-open-text-document-params-text? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "text"] 4 (#$ . 877432)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-open-text-document-params-text? #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 877578)])#@15 (fn OBJECT) (defalias 'lsp:did-open-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 877722)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-open-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 877884)])#@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 (#$ . 878044)])#@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 (#$ . 878474)])#@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 (#$ . 878842)])#@153 Constructs DidSaveTextDocumentParams from `plist.' Allowed params: (:text-document :text?) (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\"\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 (#$ . 879195)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DidSaveTextDocumentParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 879782)])#@15 (fn OBJECT) (defalias 'lsp:did-save-text-document-params-text? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "text"] 4 (#$ . 880634)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-save-text-document-params-text? #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 880780)])#@15 (fn OBJECT) (defalias 'lsp:did-save-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 880924)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-did-save-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 881086)])#@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 (#$ . 881246)])#@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 (#$ . 881637)])#@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 (#$ . 881966)])#@134 Constructs DocumentColorParams from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-document-color-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 882311)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentColorParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 882834)])#@15 (fn OBJECT) (defalias 'lsp:document-color-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 883656)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-color-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 883810)])#@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 (#$ . 883962)])#@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 (#$ . 884400)])#@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 (#$ . 884776)])#@156 Constructs DocumentFormattingParams from `plist.' Allowed params: (:options :text-document) (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\"\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 (#$ . 885145)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentFormattingParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 885739)])#@15 (fn OBJECT) (defalias 'lsp:document-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 886606)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 886765)])#@15 (fn OBJECT) (defalias 'lsp:document-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht? gethash "options"] 4 (#$ . 886922)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 887070)])#@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 (#$ . 887216)])#@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 (#$ . 887607)])#@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 (#$ . 887936)])#@129 Constructs DocumentHighlight from `plist.' Allowed params: (:range :kind?) (fn &rest PLIST &key KIND? RANGE &allow-other-keys) (defalias 'lsp-make-document-highlight #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 888264)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentHighlight #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 888793)])#@15 (fn OBJECT) (defalias 'lsp:document-highlight-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 889607)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-kind? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 889742)])#@15 (fn OBJECT) (defalias 'lsp:document-highlight-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 889875)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 890011)])#@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 (#$ . 890145)])#@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 (#$ . 890613)])#@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 (#$ . 891019)])#@168 Constructs DocumentHighlightParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 891389)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentHighlightParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 892032)])#@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 892923)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 893063)])#@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 893201)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 893359)])#@15 (fn OBJECT) (defalias 'lsp:document-highlight-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 893515)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-highlight-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 893664)])#@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 (#$ . 893811)])#@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 (#$ . 894279)])#@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 (#$ . 894685)])#@160 Constructs DocumentLink from `plist.' Allowed params: (:range :tooltip? :target? :data?) (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\"\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 (#$ . 895008)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentLink #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 895653)])#@15 (fn OBJECT) (defalias 'lsp:document-link-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 896525)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 896655)])#@15 (fn OBJECT) (defalias 'lsp:document-link-target? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "target"] 4 (#$ . 896783)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-target? #[514 "\300\301#\210\207" [puthash "target"] 6 (#$ . 896917)])#@15 (fn OBJECT) (defalias 'lsp:document-link-tooltip? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tooltip"] 4 (#$ . 897049)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-tooltip? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 897185)])#@15 (fn OBJECT) (defalias 'lsp:document-link-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 897319)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 897450)])#@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 (#$ . 897579)])#@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 (#$ . 897969)])#@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 (#$ . 898297)])#@133 Constructs DocumentLinkParams from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-document-link-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 898641)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentLinkParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 899162)])#@15 (fn OBJECT) (defalias 'lsp:document-link-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 899983)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 900136)])#@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 (#$ . 900287)])#@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 (#$ . 900789)])#@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 (#$ . 901229)])#@193 Constructs DocumentLinkRegistrationOptions from `plist.' Allowed params: (:resolve-provider? :document-selector?) (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\"\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 (#$ . 901558)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentLinkRegistrationOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 902239)])#@15 (fn OBJECT) (defalias 'lsp:document-link-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 903130)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 903306)])#@15 (fn OBJECT) (defalias 'lsp:document-link-registration-options-resolve-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveProvider"] 4 (#$ . 903480)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-link-registration-options-resolve-provider? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 903654)])#@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 (#$ . 903826)])#@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 (#$ . 904334)])#@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 (#$ . 904780)])#@188 Constructs DocumentOnTypeFormattingParams from `plist.' Allowed params: (:position :options :text-document :ch) (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\"\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 (#$ . 905187)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentOnTypeFormattingParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 905898)])#@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-ch #[257 "\300!\205\n\301\302\"\207" [ht? gethash "ch"] 4 (#$ . 906835)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-ch #[514 "\300\301#\210\207" [puthash "ch"] 6 (#$ . 906981)])#@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 907125)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 907292)])#@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht? gethash "options"] 4 (#$ . 907457)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 907613)])#@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 907767)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 907925)])#@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 (#$ . 908081)])#@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 (#$ . 908720)])#@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 (#$ . 909297)])#@266 Constructs DocumentOnTypeFormattingRegistrationOptions from `plist.' Allowed params: (:first-trigger-character :more-trigger-character? :document-selector?) (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\"\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 (#$ . 909687)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentOnTypeFormattingRegistrationOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 910563)])#@15 (fn OBJECT) (defalias 'lsp:document-on-type-formatting-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 911585)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 911775)])#@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 (#$ . 911963)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-more-trigger-character? #[514 "\300\301#\210\207" [puthash "moreTriggerCharacter"] 6 (#$ . 912162)])#@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 (#$ . 912359)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-on-type-formatting-registration-options-first-trigger-character #[514 "\300\301#\210\207" [puthash "firstTriggerCharacter"] 6 (#$ . 912559)])#@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 (#$ . 912757)])#@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 (#$ . 913232)])#@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 (#$ . 913645)])#@174 Constructs DocumentRangeFormattingParams from `plist.' Allowed params: (:range :options :text-document) (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\"\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 (#$ . 914035)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentRangeFormattingParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 914692)])#@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 915596)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 915761)])#@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-options #[257 "\300!\205\n\301\302\"\207" [ht? gethash "options"] 4 (#$ . 915924)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 916078)])#@15 (fn OBJECT) (defalias 'lsp:document-range-formatting-params-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 916230)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-range-formatting-params-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 916380)])#@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 (#$ . 916528)])#@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 (#$ . 916920)])#@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 (#$ . 917250)])#@135 Constructs DocumentSymbolParams from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-document-symbol-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 917596)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DocumentSymbolParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 918121)])#@15 (fn OBJECT) (defalias 'lsp:document-symbol-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 918944)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-document-symbol-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 919099)])#@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 (#$ . 919252)])#@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 (#$ . 919686)])#@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 (#$ . 920058)])#@162 Constructs DynamicRegistrationCapabilities from `plist.' Allowed params: (:dynamic-registration?) (fn &rest PLIST &key DYNAMIC-REGISTRATION? &allow-other-keys) (defalias 'lsp-make-dynamic-registration-capabilities #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 920386)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-DynamicRegistrationCapabilities #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 920972)])#@15 (fn OBJECT) (defalias 'lsp:dynamic-registration-capabilities-dynamic-registration? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "dynamicRegistration"] 4 (#$ . 921813)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-dynamic-registration-capabilities-dynamic-registration? #[514 "\300\301#\210\207" [puthash "dynamicRegistration"] 6 (#$ . 921994)])#@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 (#$ . 922173)])#@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 (#$ . 922595)])#@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 (#$ . 922955)])#@146 Constructs ExecuteCommandParams from `plist.' Allowed params: (:command :arguments?) (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\"\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 (#$ . 923291)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ExecuteCommandParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 923862)])#@15 (fn OBJECT) (defalias 'lsp:execute-command-params-arguments? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "arguments"] 4 (#$ . 924702)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-params-arguments? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 924851)])#@15 (fn OBJECT) (defalias 'lsp:execute-command-params-command #[257 "\300!\205\n\301\302\"\207" [ht? gethash "command"] 4 (#$ . 924998)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-params-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 925142)])#@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 (#$ . 925284)])#@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 (#$ . 925670)])#@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 (#$ . 925994)])#@138 Constructs ExecuteCommandRegistrationOptions from `plist.' Allowed params: (:commands) (fn &rest PLIST &key COMMANDS &allow-other-keys) (defalias 'lsp-make-execute-command-registration-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 926346)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ExecuteCommandRegistrationOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 926874)])#@15 (fn OBJECT) (defalias 'lsp:execute-command-registration-options-commands #[257 "\300!\205\n\301\302\"\207" [ht? gethash "commands"] 4 (#$ . 927692)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-execute-command-registration-options-commands #[514 "\300\301#\210\207" [puthash "commands"] 6 (#$ . 927852)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FailureHandlingKind #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 928010)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FailureHandlingKind? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 928310)])#@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 (#$ . 928533)])#@107 Constructs FailureHandlingKind from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-failure-handling-kind #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 928849)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FailureHandlingKind #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 929244)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileRename #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:old-uri :new-uri) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:old-uri :new-uri) gethash 1 nil assoc ((:old-uri . :oldUri) (:new-uri . :newUri))] 7 (#$ . 929998)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FileRename? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:old-uri :new-uri) error "Unknown key: %s. Available keys: %s" (:old-uri :new-uri) when ht? gethash symbol-name assoc ((:old-uri . :oldUri) (:new-uri . :newUri)) 1 nil] 9 (#$ . 930397)])#@15 (fn OBJECT) (defalias 'lsp-file-rename? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("oldUri" "newUri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:oldUri :newUri)] 6 (#$ . 930734)])#@130 Constructs FileRename from `plist.' Allowed params: (:new-uri :old-uri) (fn &rest PLIST &key OLD-URI NEW-URI &allow-other-keys) (defalias 'lsp-make-file-rename #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :old-uri :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 ((:old-uri . :oldUri) (:new-uri . :newUri))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 931074)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FileRename #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:oldUri :newUri) nil lsp-keyword->string alist-get ((:old-uri . :oldUri) (:new-uri . :newUri)) error "Unknown key: %s. Available keys: %s" symbol-name (:old-uri :new-uri) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 931608)])#@15 (fn OBJECT) (defalias 'lsp:file-rename-old-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "oldUri"] 4 (#$ . 932435)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-rename-old-uri #[514 "\300\301#\210\207" [puthash "oldUri"] 6 (#$ . 932567)])#@15 (fn OBJECT) (defalias 'lsp:file-rename-new-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "newUri"] 4 (#$ . 932697)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-file-rename-new-uri #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 932829)])#@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 (#$ . 932959)])#@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 (#$ . 933547)])#@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 (#$ . 934073)])#@219 Constructs FoldingRange from `plist.' Allowed params: (:start-line :end-line :start-character? :kind? :end-character?) (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\"\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 (#$ . 934423)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FoldingRange #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 935231)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-end-character? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "endCharacter"] 4 (#$ . 936206)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-end-character? #[514 "\300\301#\210\207" [puthash "endCharacter"] 6 (#$ . 936353)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 936498)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-kind? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 936628)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-start-character? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "startCharacter"] 4 (#$ . 936756)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-start-character? #[514 "\300\301#\210\207" [puthash "startCharacter"] 6 (#$ . 936907)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-end-line #[257 "\300!\205\n\301\302\"\207" [ht? gethash "endLine"] 4 (#$ . 937056)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-end-line #[514 "\300\301#\210\207" [puthash "endLine"] 6 (#$ . 937192)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-start-line #[257 "\300!\205\n\301\302\"\207" [ht? gethash "startLine"] 4 (#$ . 937326)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-start-line #[514 "\300\301#\210\207" [puthash "startLine"] 6 (#$ . 937466)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeKind #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 937604)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&FoldingRangeKind? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 937901)])#@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 (#$ . 938121)])#@104 Constructs FoldingRangeKind from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-folding-range-kind #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 938434)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FoldingRangeKind #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 938823)])#@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 (#$ . 939574)])#@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 (#$ . 939971)])#@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 (#$ . 940306)])#@140 Constructs FoldingRangeRequestParams from `plist.' Allowed params: (:text-document) (fn &rest PLIST &key TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-folding-range-request-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 940658)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-FoldingRangeRequestParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 941194)])#@15 (fn OBJECT) (defalias 'lsp:folding-range-request-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 942022)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-folding-range-request-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 942183)])#@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 (#$ . 942342)])#@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 (#$ . 942737)])#@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 (#$ . 943070)])#@125 Constructs Hover from `plist.' Allowed params: (:contents :range?) (fn &rest PLIST &key RANGE? CONTENTS &allow-other-keys) (defalias 'lsp-make-hover #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 943391)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-Hover #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 943915)])#@15 (fn OBJECT) (defalias 'lsp:hover-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 944732)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-range? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 944856)])#@15 (fn OBJECT) (defalias 'lsp:hover-contents #[257 "\300!\205\n\301\302\"\207" [ht? gethash "contents"] 4 (#$ . 944978)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-contents #[514 "\300\301#\210\207" [puthash "contents"] 6 (#$ . 945107)])#@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 (#$ . 945234)])#@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 (#$ . 945690)])#@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 (#$ . 946084)])#@156 Constructs HoverParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 946441)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-HoverParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 947059)])#@15 (fn OBJECT) (defalias 'lsp:hover-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 947938)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 948065)])#@15 (fn OBJECT) (defalias 'lsp:hover-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 948190)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 948335)])#@15 (fn OBJECT) (defalias 'lsp:hover-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 948478)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-hover-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 948614)])#@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 (#$ . 948748)])#@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 (#$ . 949213)])#@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 (#$ . 949616)])#@165 Constructs ImplementationParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 949982)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ImplementationParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 950618)])#@15 (fn OBJECT) (defalias 'lsp:implementation-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 951506)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 951642)])#@15 (fn OBJECT) (defalias 'lsp:implementation-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 951776)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 951930)])#@15 (fn OBJECT) (defalias 'lsp:implementation-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 952082)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-implementation-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 952227)])#@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 (#$ . 952370)])#@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 (#$ . 952726)])#@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 (#$ . 953020)])#@114 Constructs InitializeError from `plist.' Allowed params: (:retry) (fn &rest PLIST &key RETRY &allow-other-keys) (defalias 'lsp-make-initialize-error #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 953346)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InitializeError #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 953821)])#@15 (fn OBJECT) (defalias 'lsp:initialize-error-retry #[257 "\300!\205\n\301\302\"\207" [ht? gethash "retry"] 4 (#$ . 954609)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-error-retry #[514 "\300\301#\210\207" [puthash "retry"] 6 (#$ . 954743)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeErrorCode #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 954875)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializeErrorCode? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 955175)])#@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 (#$ . 955398)])#@107 Constructs InitializeErrorCode from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-initialize-error-code #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 955714)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InitializeErrorCode #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 956109)])#@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 (#$ . 956863)])#@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 (#$ . 957738)])#@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 (#$ . 958551)])#@357 Constructs InitializeParams from `plist.' Allowed params: (:workspace-folders? :trace? :root-uri? :root-path? :process-id? :initialization-options? :client-name? :client-info? :capabilities?) (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\"\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 (#$ . 958863)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InitializeParams #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 960082)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-capabilities? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "capabilities"] 4 (#$ . 961253)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-capabilities? #[514 "\300\301#\210\207" [puthash "capabilities"] 6 (#$ . 961403)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-client-info? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "clientInfo"] 4 (#$ . 961551)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-client-info? #[514 "\300\301#\210\207" [puthash "clientInfo"] 6 (#$ . 961698)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-client-name? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "clientName"] 4 (#$ . 961843)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-client-name? #[514 "\300\301#\210\207" [puthash "clientName"] 6 (#$ . 961990)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-initialization-options? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "initializationOptions"] 4 (#$ . 962135)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-initialization-options? #[514 "\300\301#\210\207" [puthash "initializationOptions"] 6 (#$ . 962304)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-process-id? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "processId"] 4 (#$ . 962471)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-process-id? #[514 "\300\301#\210\207" [puthash "processId"] 6 (#$ . 962616)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-root-path? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "rootPath"] 4 (#$ . 962759)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-root-path? #[514 "\300\301#\210\207" [puthash "rootPath"] 6 (#$ . 962902)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-root-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "rootUri"] 4 (#$ . 963043)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-root-uri? #[514 "\300\301#\210\207" [puthash "rootUri"] 6 (#$ . 963184)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-trace? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "trace"] 4 (#$ . 963323)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-trace? #[514 "\300\301#\210\207" [puthash "trace"] 6 (#$ . 963459)])#@15 (fn OBJECT) (defalias 'lsp:initialize-params-workspace-folders? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "workspaceFolders"] 4 (#$ . 963593)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-params-workspace-folders? #[514 "\300\301#\210\207" [puthash "workspaceFolders"] 6 (#$ . 963752)])#@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 (#$ . 963909)])#@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 (#$ . 964354)])#@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 (#$ . 964737)])#@156 Constructs InitializeResult from `plist.' Allowed params: (:capabilities :server-info?) (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\"\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 (#$ . 965078)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InitializeResult #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 965674)])#@15 (fn OBJECT) (defalias 'lsp:initialize-result-server-info? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "serverInfo"] 4 (#$ . 966535)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-result-server-info? #[514 "\300\301#\210\207" [puthash "serverInfo"] 6 (#$ . 966682)])#@15 (fn OBJECT) (defalias 'lsp:initialize-result-capabilities #[257 "\300!\205\n\301\302\"\207" [ht? gethash "capabilities"] 4 (#$ . 966827)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-initialize-result-capabilities #[514 "\300\301#\210\207" [puthash "capabilities"] 6 (#$ . 966976)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializedParams #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 967123)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InitializedParams? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 967421)])#@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 (#$ . 967642)])#@105 Constructs InitializedParams from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-initialized-params #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 967955)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InitializedParams #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 968345)])#@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 (#$ . 969097)])#@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 (#$ . 969729)])#@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 (#$ . 970299)])#@244 Constructs LocationLink from `plist.' Allowed params: (:target-range :target-uri :target-selection-range :origin-selection-range?) (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\"\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 (#$ . 970702)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-LocationLink #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 971553)])#@15 (fn OBJECT) (defalias 'lsp:location-link-origin-selection-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "originSelectionRange"] 4 (#$ . 972586)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-origin-selection-range? #[514 "\300\301#\210\207" [puthash "originSelectionRange"] 6 (#$ . 972750)])#@15 (fn OBJECT) (defalias 'lsp:location-link-target-selection-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "targetSelectionRange"] 4 (#$ . 972912)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-selection-range #[514 "\300\301#\210\207" [puthash "targetSelectionRange"] 6 (#$ . 973075)])#@15 (fn OBJECT) (defalias 'lsp:location-link-target-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "targetUri"] 4 (#$ . 973236)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-uri #[514 "\300\301#\210\207" [puthash "targetUri"] 6 (#$ . 973376)])#@15 (fn OBJECT) (defalias 'lsp:location-link-target-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "targetRange"] 4 (#$ . 973514)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-location-link-target-range #[514 "\300\301#\210\207" [puthash "targetRange"] 6 (#$ . 973658)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&MarkupKind #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 973800)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&MarkupKind? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 974091)])#@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 (#$ . 974305)])#@98 Constructs MarkupKind from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-markup-kind #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 974610)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-MarkupKind #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 974986)])#@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 (#$ . 975731)])#@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 (#$ . 976123)])#@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 (#$ . 976453)])#@127 Constructs MessageParams from `plist.' Allowed params: (:message :type) (fn &rest PLIST &key TYPE MESSAGE &allow-other-keys) (defalias 'lsp-make-message-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 976794)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-MessageParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 977321)])#@15 (fn OBJECT) (defalias 'lsp:message-params-type #[257 "\300!\205\n\301\302\"\207" [ht? gethash "type"] 4 (#$ . 978143)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-params-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 978273)])#@15 (fn OBJECT) (defalias 'lsp:message-params-message #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 978401)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-message-params-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 978537)])#@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 (#$ . 978671)])#@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 (#$ . 979135)])#@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 (#$ . 979537)])#@164 Constructs PrepareRenameParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 979903)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-PrepareRenameParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 980538)])#@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 981425)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 981561)])#@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 981695)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 981849)])#@15 (fn OBJECT) (defalias 'lsp:prepare-rename-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 982001)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 982146)])#@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 (#$ . 982289)])#@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 (#$ . 982707)])#@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 (#$ . 983063)])#@143 Constructs PrepareRenameResult from `plist.' Allowed params: (:placeholder :range) (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\"\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 (#$ . 983421)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-PrepareRenameResult #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 983986)])#@15 (fn OBJECT) (defalias 'lsp:prepare-rename-result-range #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 984834)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-result-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 984973)])#@15 (fn OBJECT) (defalias 'lsp:prepare-rename-result-placeholder #[257 "\300!\205\n\301\302\"\207" [ht? gethash "placeholder"] 4 (#$ . 985110)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-prepare-rename-result-placeholder #[514 "\300\301#\210\207" [puthash "placeholder"] 6 (#$ . 985261)])#@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 (#$ . 985410)])#@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 (#$ . 985868)])#@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 (#$ . 986264)])#@163 Constructs PublishDiagnosticsParams from `plist.' Allowed params: (:uri :diagnostics :version?) (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\"\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 (#$ . 986623)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-PublishDiagnosticsParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 987254)])#@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-version? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "version"] 4 (#$ . 988132)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-version? #[514 "\300\301#\210\207" [puthash "version"] 6 (#$ . 988281)])#@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-diagnostics #[257 "\300!\205\n\301\302\"\207" [ht? gethash "diagnostics"] 4 (#$ . 988428)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-diagnostics #[514 "\300\301#\210\207" [puthash "diagnostics"] 6 (#$ . 988584)])#@15 (fn OBJECT) (defalias 'lsp:publish-diagnostics-params-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 988738)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-diagnostics-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 988878)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&QuickPickItem #[514 "\300>\204\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 :picked :user-data) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:label :picked :user-data) gethash 1 nil assoc ((:label . :label) (:picked . :picked) (:user-data . :userData))] 7 (#$ . 989016)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&QuickPickItem? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:label :picked :user-data) error "Unknown key: %s. Available keys: %s" (:label :picked :user-data) when ht? gethash symbol-name assoc ((:label . :label) (:picked . :picked) (:user-data . :userData)) 1 nil] 9 (#$ . 989455)])#@15 (fn OBJECT) (defalias 'lsp-quick-pick-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" "picked" "userData") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:label :picked :userData)] 6 (#$ . 989832)])#@148 Constructs QuickPickItem from `plist.' Allowed params: (:user-data :picked :label) (fn &rest PLIST &key LABEL PICKED USER-DATA &allow-other-keys) (defalias 'lsp-make-quick-pick-item #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :label :picked :user-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 ((:label . :label) (:picked . :picked) (:user-data . :userData))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 990195)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-QuickPickItem #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :picked :userData) nil lsp-keyword->string alist-get ((:label . :label) (:picked . :picked) (:user-data . :userData)) error "Unknown key: %s. Available keys: %s" symbol-name (:label :picked :user-data) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 990794)])#@15 (fn OBJECT) (defalias 'lsp:quick-pick-item-label #[257 "\300!\205\n\301\302\"\207" [ht? gethash "label"] 4 (#$ . 991662)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-quick-pick-item-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 991795)])#@15 (fn OBJECT) (defalias 'lsp:quick-pick-item-picked #[257 "\300!\205\n\301\302\"\207" [ht? gethash "picked"] 4 (#$ . 991926)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-quick-pick-item-picked #[514 "\300\301#\210\207" [puthash "picked"] 6 (#$ . 992061)])#@15 (fn OBJECT) (defalias 'lsp:quick-pick-item-user-data #[257 "\300!\205\n\301\302\"\207" [ht? gethash "userData"] 4 (#$ . 992194)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-quick-pick-item-user-data #[514 "\300\301#\210\207" [puthash "userData"] 6 (#$ . 992334)])#@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 (#$ . 992472)])#@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 (#$ . 992972)])#@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 (#$ . 993410)])#@177 Constructs ReferenceParams from `plist.' Allowed params: (:position :context :text-document :uri?) (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\"\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 (#$ . 993790)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ReferenceParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 994477)])#@15 (fn OBJECT) (defalias 'lsp:reference-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 995400)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 995531)])#@15 (fn OBJECT) (defalias 'lsp:reference-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 995660)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 995809)])#@15 (fn OBJECT) (defalias 'lsp:reference-params-context #[257 "\300!\205\n\301\302\"\207" [ht? gethash "context"] 4 (#$ . 995956)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 996094)])#@15 (fn OBJECT) (defalias 'lsp:reference-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 996230)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-reference-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 996370)])#@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 (#$ . 996508)])#@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 (#$ . 996899)])#@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 (#$ . 997228)])#@133 Constructs RegistrationParams from `plist.' Allowed params: (:registrations) (fn &rest PLIST &key REGISTRATIONS &allow-other-keys) (defalias 'lsp-make-registration-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 997573)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RegistrationParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 998094)])#@15 (fn OBJECT) (defalias 'lsp:registration-params-registrations #[257 "\300!\205\n\301\302\"\207" [ht? gethash "registrations"] 4 (#$ . 998917)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-registration-params-registrations #[514 "\300\301#\210\207" [puthash "registrations"] 6 (#$ . 999070)])#@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 (#$ . 999221)])#@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 (#$ . 999691)])#@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 (#$ . 1000099)])#@160 Constructs RenameFile from `plist.' Allowed params: (:old-uri :new-uri :kind :options?) (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\"\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 (#$ . 1000453)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RenameFile #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1001100)])#@15 (fn OBJECT) (defalias 'lsp:rename-file-options? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "options"] 4 (#$ . 1001989)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-options? #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 1002124)])#@15 (fn OBJECT) (defalias 'lsp:rename-file-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 1002257)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 1002385)])#@15 (fn OBJECT) (defalias 'lsp:rename-file-new-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "newUri"] 4 (#$ . 1002511)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-new-uri #[514 "\300\301#\210\207" [puthash "newUri"] 6 (#$ . 1002644)])#@15 (fn OBJECT) (defalias 'lsp:rename-file-old-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "oldUri"] 4 (#$ . 1002775)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-file-old-uri #[514 "\300\301#\210\207" [puthash "oldUri"] 6 (#$ . 1002908)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameFilesParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:files s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:files) gethash 1 nil assoc ((:files . :files))] 7 (#$ . 1003039)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&RenameFilesParams? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:files error "Unknown key: %s. Available keys: %s" (:files) when ht? gethash symbol-name assoc ((:files . :files)) 1 nil] 9 (#$ . 1003398)])#@15 (fn OBJECT) (defalias 'lsp-rename-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)"] ("files") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:files)] 6 (#$ . 1003695)])#@116 Constructs RenameFilesParams from `plist.' Allowed params: (:files) (fn &rest PLIST &key FILES &allow-other-keys) (defalias 'lsp-make-rename-files-params #[128 "\300\301\"A@\302\303\304\"\305\306\307\"\310\311\"\"\210\207" [plist-member :files make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:files . :files))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 1004025)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RenameFilesParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:files) nil lsp-keyword->string alist-get ((:files . :files)) error "Unknown key: %s. Available keys: %s" symbol-name (:files) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1004506)])#@15 (fn OBJECT) (defalias 'lsp:rename-files-params-files #[257 "\300!\205\n\301\302\"\207" [ht? gethash "files"] 4 (#$ . 1005297)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-files-params-files #[514 "\300\301#\210\207" [puthash "files"] 6 (#$ . 1005435)])#@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 (#$ . 1005571)])#@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 (#$ . 1006072)])#@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 (#$ . 1006511)])#@176 Constructs RenameParams from `plist.' Allowed params: (:position :text-document :new-name :uri?) (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\"\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 (#$ . 1006889)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RenameParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1007575)])#@15 (fn OBJECT) (defalias 'lsp:rename-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 1008498)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 1008627)])#@15 (fn OBJECT) (defalias 'lsp:rename-params-new-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "newName"] 4 (#$ . 1008754)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-new-name #[514 "\300\301#\210\207" [puthash "newName"] 6 (#$ . 1008891)])#@15 (fn OBJECT) (defalias 'lsp:rename-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1009026)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1009173)])#@15 (fn OBJECT) (defalias 'lsp:rename-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 1009318)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-rename-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 1009456)])#@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 (#$ . 1009592)])#@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 (#$ . 1010050)])#@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 (#$ . 1010446)])#@165 Constructs ResolveTypeHierarchyItemParams from `plist.' Allowed params: (:direction :resolve :item) (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\"\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 (#$ . 1010831)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ResolveTypeHierarchyItemParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1011468)])#@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-item #[257 "\300!\205\n\301\302\"\207" [ht? gethash "item"] 4 (#$ . 1012356)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-item #[514 "\300\301#\210\207" [puthash "item"] 6 (#$ . 1012507)])#@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-resolve #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolve"] 4 (#$ . 1012656)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-resolve #[514 "\300\301#\210\207" [puthash "resolve"] 6 (#$ . 1012813)])#@15 (fn OBJECT) (defalias 'lsp:resolve-type-hierarchy-item-params-direction #[257 "\300!\205\n\301\302\"\207" [ht? gethash "direction"] 4 (#$ . 1012968)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-resolve-type-hierarchy-item-params-direction #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 1013129)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResourceOperationKind #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 1013288)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ResourceOperationKind? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 1013591)])#@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 (#$ . 1013817)])#@109 Constructs ResourceOperationKind from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-resource-operation-kind #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 1014136)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ResourceOperationKind #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 1014536)])#@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 (#$ . 1015293)])#@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 (#$ . 1015736)])#@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 (#$ . 1016117)])#@156 Constructs SelectionRangeParams from `plist.' Allowed params: (:positions :text-document) (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\"\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 (#$ . 1016487)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SelectionRangeParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1017084)])#@15 (fn OBJECT) (defalias 'lsp:selection-range-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1017956)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1018112)])#@15 (fn OBJECT) (defalias 'lsp:selection-range-params-positions #[257 "\300!\205\n\301\302\"\207" [ht? gethash "positions"] 4 (#$ . 1018266)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-selection-range-params-positions #[514 "\300\301#\210\207" [puthash "positions"] 6 (#$ . 1018415)])#@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 (#$ . 1018562)])#@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 (#$ . 1018995)])#@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 (#$ . 1019366)])#@154 Constructs SemanticHighlightingParams from `plist.' Allowed params: (:lines :text-document) (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\"\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 (#$ . 1019734)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SemanticHighlightingParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1020323)])#@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1021185)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1021347)])#@15 (fn OBJECT) (defalias 'lsp:semantic-highlighting-params-lines #[257 "\300!\205\n\301\302\"\207" [ht? gethash "lines"] 4 (#$ . 1021507)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-semantic-highlighting-params-lines #[514 "\300\301#\210\207" [puthash "lines"] 6 (#$ . 1021654)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowDocumentParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:external? :take-focus? :selection? :uri) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:external? :take-focus? :selection? :uri) gethash 1 nil assoc ((:external? . :external) (:take-focus? . :takeFocus) (:selection? . :selection) (:uri . :uri))] 7 (#$ . 1021799)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowDocumentParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:external? :take-focus? :selection? :uri) error "Unknown key: %s. Available keys: %s" (:external? :take-focus? :selection? :uri) when ht? gethash symbol-name assoc ((:external? . :external) (:take-focus? . :takeFocus) (:selection? . :selection) (:uri . :uri)) 1 nil] 9 (#$ . 1022305)])#@15 (fn OBJECT) (defalias 'lsp-show-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)"] ("uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri)] 6 (#$ . 1022749)])#@182 Constructs ShowDocumentParams from `plist.' Allowed params: (:uri :selection? :take-focus? :external?) (fn &rest PLIST &key EXTERNAL? TAKE-FOCUS? SELECTION? URI &allow-other-keys) (defalias 'lsp-make-show-document-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\310\311\312\"\313\314 \"\"\210\207" [plist-member :external? :take-focus? :selection? :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 ((:external? . :external) (:take-focus? . :takeFocus) (:selection? . :selection) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 1023076)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ShowDocumentParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 ((:external? . :external) (:take-focus? . :takeFocus) (:selection? . :selection) (:uri . :uri)) error "Unknown key: %s. Available keys: %s" symbol-name (:external? :take-focus? :selection? :uri) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1023774)])#@15 (fn OBJECT) (defalias 'lsp:show-document-params-external? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "external"] 4 (#$ . 1024674)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-document-params-external? #[514 "\300\301#\210\207" [puthash "external"] 6 (#$ . 1024820)])#@15 (fn OBJECT) (defalias 'lsp:show-document-params-take-focus? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "takeFocus"] 4 (#$ . 1024964)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-document-params-take-focus? #[514 "\300\301#\210\207" [puthash "takeFocus"] 6 (#$ . 1025113)])#@15 (fn OBJECT) (defalias 'lsp:show-document-params-selection? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "selection"] 4 (#$ . 1025260)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-document-params-selection? #[514 "\300\301#\210\207" [puthash "selection"] 6 (#$ . 1025408)])#@15 (fn OBJECT) (defalias 'lsp:show-document-params-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 1025554)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-document-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 1025689)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowDocumentResult #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:success s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:success) gethash 1 nil assoc ((:success . :success))] 7 (#$ . 1025822)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowDocumentResult? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:success error "Unknown key: %s. Available keys: %s" (:success) when ht? gethash symbol-name assoc ((:success . :success)) 1 nil] 9 (#$ . 1026190)])#@15 (fn OBJECT) (defalias 'lsp-show-document-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)"] ("success") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:success)] 6 (#$ . 1026496)])#@121 Constructs ShowDocumentResult from `plist.' Allowed params: (:success) (fn &rest PLIST &key SUCCESS &allow-other-keys) (defalias 'lsp-make-show-document-result #[128 "\300\301\"A@\302\303\304\"\305\306\307\"\310\311\"\"\210\207" [plist-member :success make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:success . :success))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 1026831)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ShowDocumentResult #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:success) nil lsp-keyword->string alist-get ((:success . :success)) error "Unknown key: %s. Available keys: %s" symbol-name (:success) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1027324)])#@15 (fn OBJECT) (defalias 'lsp:show-document-result-success #[257 "\300!\205\n\301\302\"\207" [ht? gethash "success"] 4 (#$ . 1028124)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-document-result-success #[514 "\300\301#\210\207" [puthash "success"] 6 (#$ . 1028267)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowInputBoxParams #[514 "\300>\204\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? :prompt) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:value? :prompt) gethash 1 nil assoc ((:value? . :value) (:prompt . :prompt))] 7 (#$ . 1028408)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowInputBoxParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:value? :prompt) error "Unknown key: %s. Available keys: %s" (:value? :prompt) when ht? gethash symbol-name assoc ((:value? . :value) (:prompt . :prompt)) 1 nil] 9 (#$ . 1028809)])#@15 (fn OBJECT) (defalias 'lsp-show-input-box-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)"] ("prompt") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:prompt)] 6 (#$ . 1029148)])#@134 Constructs ShowInputBoxParams from `plist.' Allowed params: (:prompt :value?) (fn &rest PLIST &key VALUE? PROMPT &allow-other-keys) (defalias 'lsp-make-show-input-box-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :value? :prompt make-hash-table :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? . :value) (:prompt . :prompt))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 1029482)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ShowInputBoxParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:prompt) nil lsp-keyword->string alist-get ((:value? . :value) (:prompt . :prompt)) error "Unknown key: %s. Available keys: %s" symbol-name (:value? :prompt) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1030026)])#@15 (fn OBJECT) (defalias 'lsp:show-input-box-params-value? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "value"] 4 (#$ . 1030849)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-input-box-params-value? #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 1030990)])#@15 (fn OBJECT) (defalias 'lsp:show-input-box-params-prompt #[257 "\300!\205\n\301\302\"\207" [ht? gethash "prompt"] 4 (#$ . 1031129)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-input-box-params-prompt #[514 "\300\301#\210\207" [puthash "prompt"] 6 (#$ . 1031271)])#@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 (#$ . 1031411)])#@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 (#$ . 1031858)])#@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 (#$ . 1032243)])#@157 Constructs ShowMessageRequestParams from `plist.' Allowed params: (:message :type :actions?) (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\"\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 (#$ . 1032598)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ShowMessageRequestParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1033216)])#@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-actions? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "actions"] 4 (#$ . 1034083)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-actions? #[514 "\300\301#\210\207" [puthash "actions"] 6 (#$ . 1034234)])#@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-type #[257 "\300!\205\n\301\302\"\207" [ht? gethash "type"] 4 (#$ . 1034383)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-type #[514 "\300\301#\210\207" [puthash "type"] 6 (#$ . 1034527)])#@15 (fn OBJECT) (defalias 'lsp:show-message-request-params-message #[257 "\300!\205\n\301\302\"\207" [ht? gethash "message"] 4 (#$ . 1034669)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-message-request-params-message #[514 "\300\301#\210\207" [puthash "message"] 6 (#$ . 1034819)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowQuickPickParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:place-holder :can-pick-many :items) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:place-holder :can-pick-many :items) gethash 1 nil assoc ((:place-holder . :placeHolder) (:can-pick-many . :canPickMany) (:items . :items))] 7 (#$ . 1034967)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&ShowQuickPickParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:place-holder :can-pick-many :items) error "Unknown key: %s. Available keys: %s" (:place-holder :can-pick-many :items) when ht? gethash symbol-name assoc ((:place-holder . :placeHolder) (:can-pick-many . :canPickMany) (:items . :items)) 1 nil] 9 (#$ . 1035451)])#@15 (fn OBJECT) (defalias 'lsp-show-quick-pick-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)"] ("placeHolder" "canPickMany" "items") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:placeHolder :canPickMany :items)] 6 (#$ . 1035873)])#@174 Constructs ShowQuickPickParams from `plist.' Allowed params: (:items :can-pick-many :place-holder) (fn &rest PLIST &key PLACE-HOLDER CAN-PICK-MANY ITEMS &allow-other-keys) (defalias 'lsp-make-show-quick-pick-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :place-holder :can-pick-many :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 ((:place-holder . :placeHolder) (:can-pick-many . :canPickMany) (:items . :items))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 1036260)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-ShowQuickPickParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:placeHolder :canPickMany :items) nil lsp-keyword->string alist-get ((:place-holder . :placeHolder) (:can-pick-many . :canPickMany) (:items . :items)) error "Unknown key: %s. Available keys: %s" symbol-name (:place-holder :can-pick-many :items) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1036921)])#@15 (fn OBJECT) (defalias 'lsp:show-quick-pick-params-place-holder #[257 "\300!\205\n\301\302\"\207" [ht? gethash "placeHolder"] 4 (#$ . 1037832)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-quick-pick-params-place-holder #[514 "\300\301#\210\207" [puthash "placeHolder"] 6 (#$ . 1037986)])#@15 (fn OBJECT) (defalias 'lsp:show-quick-pick-params-can-pick-many #[257 "\300!\205\n\301\302\"\207" [ht? gethash "canPickMany"] 4 (#$ . 1038138)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-quick-pick-params-can-pick-many #[514 "\300\301#\210\207" [puthash "canPickMany"] 6 (#$ . 1038293)])#@15 (fn OBJECT) (defalias 'lsp:show-quick-pick-params-items #[257 "\300!\205\n\301\302\"\207" [ht? gethash "items"] 4 (#$ . 1038446)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-show-quick-pick-params-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 1038587)])#@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 (#$ . 1038726)])#@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 (#$ . 1039234)])#@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 (#$ . 1039680)])#@183 Constructs SignatureHelpParams from `plist.' Allowed params: (:position :text-document :uri? :context?) (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\"\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 (#$ . 1040047)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SignatureHelpParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1040748)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-params-context? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "context"] 4 (#$ . 1041669)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-context? #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 1041814)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 1041957)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 1042094)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1042229)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1042384)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 1042537)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 1042683)])#@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 (#$ . 1042827)])#@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 (#$ . 1043339)])#@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 (#$ . 1043789)])#@198 Constructs SignatureHelpRegistrationOptions from `plist.' Allowed params: (:trigger-characters? :document-selector?) (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\"\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 (#$ . 1044120)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SignatureHelpRegistrationOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 1044814)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 1045713)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 1045891)])#@15 (fn OBJECT) (defalias 'lsp:signature-help-registration-options-trigger-characters? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerCharacters"] 4 (#$ . 1046067)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-signature-help-registration-options-trigger-characters? #[514 "\300\301#\210\207" [puthash "triggerCharacters"] 6 (#$ . 1046247)])#@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 (#$ . 1046425)])#@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 (#$ . 1046979)])#@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 (#$ . 1047471)])#@202 Constructs SymbolInformation from `plist.' Allowed params: (:location :name :kind :deprecated? :container-name?) (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\"\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 (#$ . 1047832)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-SymbolInformation #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1048600)])#@15 (fn OBJECT) (defalias 'lsp:symbol-information-container-name? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "containerName"] 4 (#$ . 1049554)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-container-name? #[514 "\300\301#\210\207" [puthash "containerName"] 6 (#$ . 1049709)])#@15 (fn OBJECT) (defalias 'lsp:symbol-information-deprecated? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "deprecated"] 4 (#$ . 1049862)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-deprecated? #[514 "\300\301#\210\207" [puthash "deprecated"] 6 (#$ . 1050010)])#@15 (fn OBJECT) (defalias 'lsp:symbol-information-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 1050156)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-kind #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 1050291)])#@15 (fn OBJECT) (defalias 'lsp:symbol-information-name #[257 "\300!\205\n\301\302\"\207" [ht? gethash "name"] 4 (#$ . 1050424)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 1050559)])#@15 (fn OBJECT) (defalias 'lsp:symbol-information-location #[257 "\300!\205\n\301\302\"\207" [ht? gethash "location"] 4 (#$ . 1050692)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-symbol-information-location #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 1050835)])#@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 (#$ . 1050976)])#@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 (#$ . 1051454)])#@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 (#$ . 1051870)])#@183 Constructs TextDocumentChangeRegistrationOptions from `plist.' Allowed params: (:sync-kind :document-selector?) (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\"\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 (#$ . 1052228)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentChangeRegistrationOptions #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1052884)])#@15 (fn OBJECT) (defalias 'lsp:text-document-change-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 1053771)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-change-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 1053955)])#@15 (fn OBJECT) (defalias 'lsp:text-document-change-registration-options-sync-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "syncKind"] 4 (#$ . 1054137)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-change-registration-options-sync-kind #[514 "\300\301#\210\207" [puthash "syncKind"] 6 (#$ . 1054304)])#@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 (#$ . 1054469)])#@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 (#$ . 1054941)])#@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 (#$ . 1055351)])#@171 Constructs TextDocumentPositionParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 1055726)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentPositionParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1056377)])#@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 1057272)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 1057417)])#@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1057560)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1057723)])#@15 (fn OBJECT) (defalias 'lsp:text-document-position-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 1057884)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-position-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 1058038)])#@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 (#$ . 1058190)])#@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 (#$ . 1058613)])#@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 (#$ . 1058974)])#@156 Constructs TextDocumentRegistrationOptions from `plist.' Allowed params: (:document-selector?) (fn &rest PLIST &key DOCUMENT-SELECTOR? &allow-other-keys) (defalias 'lsp-make-text-document-registration-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 1059304)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentRegistrationOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 1059877)])#@15 (fn OBJECT) (defalias 'lsp:text-document-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 1060710)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 1060887)])#@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 (#$ . 1061062)])#@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 (#$ . 1061553)])#@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 (#$ . 1061982)])#@189 Constructs TextDocumentSaveRegistrationOptions from `plist.' Allowed params: (:include-text? :document-selector?) (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\"\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 (#$ . 1062317)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TextDocumentSaveRegistrationOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 1062988)])#@15 (fn OBJECT) (defalias 'lsp:text-document-save-registration-options-document-selector? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "documentSelector"] 4 (#$ . 1063872)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-save-registration-options-document-selector? #[514 "\300\301#\210\207" [puthash "documentSelector"] 6 (#$ . 1064054)])#@15 (fn OBJECT) (defalias 'lsp:text-document-save-registration-options-include-text? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "includeText"] 4 (#$ . 1064234)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-text-document-save-registration-options-include-text? #[514 "\300\301#\210\207" [puthash "includeText"] 6 (#$ . 1064406)])#@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 (#$ . 1064576)])#@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 (#$ . 1065042)])#@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 (#$ . 1065446)])#@165 Constructs TypeDefinitionParams from `plist.' Allowed params: (:position :text-document :uri?) (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\"\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 (#$ . 1065814)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TypeDefinitionParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1066452)])#@15 (fn OBJECT) (defalias 'lsp:type-definition-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 1067341)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 1067479)])#@15 (fn OBJECT) (defalias 'lsp:type-definition-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1067615)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1067771)])#@15 (fn OBJECT) (defalias 'lsp:type-definition-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 1067925)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-definition-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 1068072)])#@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 (#$ . 1068217)])#@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 (#$ . 1068773)])#@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 (#$ . 1069267)])#@204 Constructs TypeHierarchyParams from `plist.' Allowed params: (:position :text-document :resolve :uri? :direction?) (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\"\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 (#$ . 1069653)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-TypeHierarchyParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1070426)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-direction? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "direction"] 4 (#$ . 1071393)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-direction? #[514 "\300\301#\210\207" [puthash "direction"] 6 (#$ . 1071542)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-uri? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "uri"] 4 (#$ . 1071689)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-uri? #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 1071826)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-resolve #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolve"] 4 (#$ . 1071961)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-resolve #[514 "\300\301#\210\207" [puthash "resolve"] 6 (#$ . 1072105)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1072247)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1072402)])#@15 (fn OBJECT) (defalias 'lsp:type-hierarchy-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 1072555)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-type-hierarchy-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 1072701)])#@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 (#$ . 1072845)])#@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 (#$ . 1073251)])#@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 (#$ . 1073595)])#@141 Constructs UnregistrationParams from `plist.' Allowed params: (:unregisterations) (fn &rest PLIST &key UNREGISTERATIONS &allow-other-keys) (defalias 'lsp-make-unregistration-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 1073949)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-UnregistrationParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1074490)])#@15 (fn OBJECT) (defalias 'lsp:unregistration-params-unregisterations #[257 "\300!\205\n\301\302\"\207" [ht? gethash "unregisterations"] 4 (#$ . 1075328)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-unregistration-params-unregisterations #[514 "\300\301#\210\207" [puthash "unregisterations"] 6 (#$ . 1075490)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&WatchKind #[514 "\300\301\302!\"\204\303\304\305#\210\306\300\301\302!\"\203\"\302!\307\305O\202&\310\307\305OE\207" [s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" nil gethash 1 "nil"] 7 (#$ . 1075650)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&WatchKind? #[514 "\300\301\302#\210\303\304D\305\306\307\302OEE\207" [error "Unknown key: %s. Available keys: %s" nil when ht? gethash "nil" 1] 8 (#$ . 1075941)])#@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 (#$ . 1076155)])#@97 Constructs WatchKind from `plist.' Allowed params: nil (fn &rest PLIST &key &allow-other-keys) (defalias 'lsp-make-watch-kind #[128 "\300\301\302\"\303\304\305\"\306\307\"\"\210\207" [make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302!\300#\207" [V0 puthash lsp-keyword->string] 8 "\n\n(fn INPUT0)"] -partition 2] 7 (#$ . 1076460)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WatchKind #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 1076835)])#@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 (#$ . 1077580)])#@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 (#$ . 1078017)])#@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 (#$ . 1078392)])#@156 Constructs WillSaveTextDocumentParams from `plist.' Allowed params: (:text-document :reason) (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\"\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 (#$ . 1078764)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WillSaveTextDocumentParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1079360)])#@15 (fn OBJECT) (defalias 'lsp:will-save-text-document-params-reason #[257 "\300!\205\n\301\302\"\207" [ht? gethash "reason"] 4 (#$ . 1080226)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-will-save-text-document-params-reason #[514 "\300\301#\210\207" [puthash "reason"] 6 (#$ . 1080377)])#@15 (fn OBJECT) (defalias 'lsp:will-save-text-document-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1080526)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-will-save-text-document-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1080690)])#@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 (#$ . 1080852)])#@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 (#$ . 1081215)])#@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 (#$ . 1081516)])#@120 Constructs WorkspaceSymbolParams from `plist.' Allowed params: (:query) (fn &rest PLIST &key QUERY &allow-other-keys) (defalias 'lsp-make-workspace-symbol-params #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 1081850)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-WorkspaceSymbolParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1082339)])#@15 (fn OBJECT) (defalias 'lsp:workspace-symbol-params-query #[257 "\300!\205\n\301\302\"\207" [ht? gethash "query"] 4 (#$ . 1083134)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-workspace-symbol-params-query #[514 "\300\301#\210\207" [puthash "query"] 6 (#$ . 1083276)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&RelativePattern #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:base-uri :pattern) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:base-uri :pattern) gethash 1 nil assoc ((:base-uri . :baseUri) (:pattern . :pattern))] 7 (#$ . 1083416)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&RelativePattern? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:base-uri :pattern) error "Unknown key: %s. Available keys: %s" (:base-uri :pattern) when ht? gethash symbol-name assoc ((:base-uri . :baseUri) (:pattern . :pattern)) 1 nil] 9 (#$ . 1083826)])#@15 (fn OBJECT) (defalias 'lsp-relative-pattern? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("baseUri" "pattern") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:baseUri :pattern)] 6 (#$ . 1084174)])#@137 Constructs RelativePattern from `plist.' Allowed params: (:pattern :base-uri) (fn &rest PLIST &key BASE-URI PATTERN &allow-other-keys) (defalias 'lsp-make-relative-pattern #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :base-uri :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 ((:base-uri . :baseUri) (:pattern . :pattern))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 1084524)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-RelativePattern #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:baseUri :pattern) nil lsp-keyword->string alist-get ((:base-uri . :baseUri) (:pattern . :pattern)) error "Unknown key: %s. Available keys: %s" symbol-name (:base-uri :pattern) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1085075)])#@15 (fn OBJECT) (defalias 'lsp:relative-pattern-base-uri #[257 "\300!\205\n\301\302\"\207" [ht? gethash "baseUri"] 4 (#$ . 1085914)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-relative-pattern-base-uri #[514 "\300\301#\210\207" [puthash "baseUri"] 6 (#$ . 1086054)])#@15 (fn OBJECT) (defalias 'lsp:relative-pattern-pattern #[257 "\300!\205\n\301\302\"\207" [ht? gethash "pattern"] 4 (#$ . 1086192)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-relative-pattern-pattern #[514 "\300\301#\210\207" [puthash "pattern"] 6 (#$ . 1086331)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&LabelDetails #[514 "\300>\204\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? :description?) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:detail? :description?) gethash 1 nil assoc ((:detail? . :detail) (:description? . :description))] 7 (#$ . 1086468)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&LabelDetails? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:detail? :description?) error "Unknown key: %s. Available keys: %s" (:detail? :description?) when ht? gethash symbol-name assoc ((:detail? . :detail) (:description? . :description)) 1 nil] 9 (#$ . 1086890)])#@15 (fn OBJECT) (defalias 'lsp-label-details? #[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 (#$ . 1087250)])#@142 Constructs LabelDetails from `plist.' Allowed params: (:description? :detail?) (fn &rest PLIST &key DETAIL? DESCRIPTION? &allow-other-keys) (defalias 'lsp-make-label-details #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\306\307\310\"\311\312\"\"\210\207" [plist-member :detail? :description? make-hash-table :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) (:description? . :description))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 1087559)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-LabelDetails #[128 "\300\301\302\303\304\305\"\305\203z\211\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 ((:detail? . :detail) (:description? . :description)) error "Unknown key: %s. Available keys: %s" symbol-name (:detail? :description?) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1088123)])#@15 (fn OBJECT) (defalias 'lsp:label-details-detail? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "detail"] 4 (#$ . 1088950)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-label-details-detail? #[514 "\300\301#\210\207" [puthash "detail"] 6 (#$ . 1089085)])#@15 (fn OBJECT) (defalias 'lsp:label-details-description? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "description"] 4 (#$ . 1089218)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-label-details-description? #[514 "\300\301#\210\207" [puthash "description"] 6 (#$ . 1089363)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlayHintOptions #[514 "\300=\204\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 (#$ . 1089506)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlayHintOptions? #[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 (#$ . 1089910)])#@15 (fn OBJECT) (defalias 'lsp-inlay-hint-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 (#$ . 1090252)])#@139 Constructs InlayHintOptions from `plist.' Allowed params: (:resolve-provider?) (fn &rest PLIST &key RESOLVE-PROVIDER? &allow-other-keys) (defalias 'lsp-make-inlay-hint-options #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 1090566)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InlayHintOptions #[128 "\300\301\302\303\304\305\"\305\203z\211\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 (#$ . 1091103)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-options-resolve-provider? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "resolveProvider"] 4 (#$ . 1091918)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-options-resolve-provider? #[514 "\300\301#\210\207" [puthash "resolveProvider"] 6 (#$ . 1092077)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&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" [(:kind? :padding-left? :padding-right? :text-edits? :tooltip? :data? :label :position) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:kind? :padding-left? :padding-right? :text-edits? :tooltip? :data? :label :position) gethash 1 nil assoc ((:kind? . :kind) (:padding-left? . :paddingLeft) (:padding-right? . :paddingRight) (:text-edits? . :textEdits) (:tooltip? . :tooltip) (:data? . :data) (:label . :label) (:position . :position))] 7 (#$ . 1092234)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlayHint? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:kind? :padding-left? :padding-right? :text-edits? :tooltip? :data? :label :position) error "Unknown key: %s. Available keys: %s" (:kind? :padding-left? :padding-right? :text-edits? :tooltip? :data? :label :position) when ht? gethash symbol-name assoc ((:kind? . :kind) (:padding-left? . :paddingLeft) (:padding-right? . :paddingRight) (:text-edits? . :textEdits) (:tooltip? . :tooltip) (:data? . :data) (:label . :label) (:position . :position)) 1 nil] 9 (#$ . 1092918)])#@15 (fn OBJECT) (defalias 'lsp-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)"] ("label" "position") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:label :position)] 6 (#$ . 1093540)])#@257 Constructs InlayHint from `plist.' Allowed params: (:position :label :data? :tooltip? :text-edits? :padding-right? :padding-left? :kind?) (fn &rest PLIST &key KIND? PADDING-LEFT? PADDING-RIGHT? TEXT-EDITS? TOOLTIP? DATA? LABEL POSITION &allow-other-keys) (defalias 'lsp-make-inlay-hint #[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\"\314\315\316\"\317\320 \"\"\210\207" [plist-member :kind? :padding-left? :padding-right? :text-edits? :tooltip? :data? :label :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 ((:kind? . :kind) (:padding-left? . :paddingLeft) (:padding-right? . :paddingRight) (:text-edits? . :textEdits) (:tooltip? . :tooltip) (:data? . :data) (:label . :label) (:position . :position))] 9 "\n\n(fn INPUT0)"] -partition 2] 15 (#$ . 1093882)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InlayHint #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :position) nil lsp-keyword->string alist-get ((:kind? . :kind) (:padding-left? . :paddingLeft) (:padding-right? . :paddingRight) (:text-edits? . :textEdits) (:tooltip? . :tooltip) (:data? . :data) (:label . :label) (:position . :position)) error "Unknown key: %s. Available keys: %s" symbol-name (:kind? :padding-left? :padding-right? :text-edits? :tooltip? :data? :label :position) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1094843)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-kind? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "kind"] 4 (#$ . 1095889)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-kind? #[514 "\300\301#\210\207" [puthash "kind"] 6 (#$ . 1096017)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-padding-left? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "paddingLeft"] 4 (#$ . 1096143)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-padding-left? #[514 "\300\301#\210\207" [puthash "paddingLeft"] 6 (#$ . 1096286)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-padding-right? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "paddingRight"] 4 (#$ . 1096427)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-padding-right? #[514 "\300\301#\210\207" [puthash "paddingRight"] 6 (#$ . 1096572)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-text-edits? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textEdits"] 4 (#$ . 1096715)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-text-edits? #[514 "\300\301#\210\207" [puthash "textEdits"] 6 (#$ . 1096854)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-tooltip? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tooltip"] 4 (#$ . 1096991)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-tooltip? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 1097125)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-data? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "data"] 4 (#$ . 1097257)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-data? #[514 "\300\301#\210\207" [puthash "data"] 6 (#$ . 1097385)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-label #[257 "\300!\205\n\301\302\"\207" [ht? gethash "label"] 4 (#$ . 1097511)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 1097640)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 1097767)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 1097902)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlayHintLabelPart #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:tooltip? :location? :command? :value) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:tooltip? :location? :command? :value) gethash 1 nil assoc ((:tooltip? . :tooltip) (:location? . :location) (:command? . :command) (:value . :value))] 7 (#$ . 1098035)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlayHintLabelPart? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:tooltip? :location? :command? :value) error "Unknown key: %s. Available keys: %s" (:tooltip? :location? :command? :value) when ht? gethash symbol-name assoc ((:tooltip? . :tooltip) (:location? . :location) (:command? . :command) (:value . :value)) 1 nil] 9 (#$ . 1098530)])#@15 (fn OBJECT) (defalias 'lsp-inlay-hint-label-part? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht? -all? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("value") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:value)] 6 (#$ . 1098963)])#@176 Constructs InlayHintLabelPart from `plist.' Allowed params: (:value :command? :location? :tooltip?) (fn &rest PLIST &key TOOLTIP? LOCATION? COMMAND? VALUE &allow-other-keys) (defalias 'lsp-make-inlay-hint-label-part #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\310\311\312\"\313\314 \"\"\210\207" [plist-member :tooltip? :location? :command? :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 ((:tooltip? . :tooltip) (:location? . :location) (:command? . :command) (:value . :value))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 1099295)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InlayHintLabelPart #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:value) nil lsp-keyword->string alist-get ((:tooltip? . :tooltip) (:location? . :location) (:command? . :command) (:value . :value)) error "Unknown key: %s. Available keys: %s" symbol-name (:tooltip? :location? :command? :value) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1099980)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-label-part-tooltip? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "tooltip"] 4 (#$ . 1100874)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-label-part-tooltip? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 1101019)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-label-part-location? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "location"] 4 (#$ . 1101162)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-label-part-location? #[514 "\300\301#\210\207" [puthash "location"] 6 (#$ . 1101309)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-label-part-command? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "command"] 4 (#$ . 1101454)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-label-part-command? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 1101599)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hint-label-part-value #[257 "\300!\205\n\301\302\"\207" [ht? gethash "value"] 4 (#$ . 1101742)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hint-label-part-value #[514 "\300\301#\210\207" [puthash "value"] 6 (#$ . 1101882)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&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" [(: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 (#$ . 1102020)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlayHintsParams? #[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 (#$ . 1102446)])#@15 (fn OBJECT) (defalias 'lsp-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 (#$ . 1102810)])#@146 Constructs InlayHintsParams from `plist.' Allowed params: (:text-document :range?) (fn &rest PLIST &key RANGE? TEXT-DOCUMENT &allow-other-keys) (defalias 'lsp-make-inlay-hints-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\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 (#$ . 1103153)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InlayHintsParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1103726)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hints-params-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 1104573)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hints-params-range? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 1104711)])#@15 (fn OBJECT) (defalias 'lsp:inlay-hints-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1104847)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inlay-hints-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1104999)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlineCompletionParams #[514 "\300>\204\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 :context) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:text-document :position :context) gethash 1 nil assoc ((:text-document . :textDocument) (:position . :position) (:context . :context))] 7 (#$ . 1105149)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlineCompletionParams? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:text-document :position :context) error "Unknown key: %s. Available keys: %s" (:text-document :position :context) when ht? gethash symbol-name assoc ((:text-document . :textDocument) (:position . :position) (:context . :context)) 1 nil] 9 (#$ . 1105630)])#@15 (fn OBJECT) (defalias 'lsp-inline-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" "context") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:textDocument :position :context)] 6 (#$ . 1106049)])#@173 Constructs InlineCompletionParams from `plist.' Allowed params: (:context :position :text-document) (fn &rest PLIST &key TEXT-DOCUMENT POSITION CONTEXT &allow-other-keys) (defalias 'lsp-make-inline-completion-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\307\310\311\"\312\313\"\"\210\207" [plist-member :text-document :position :context make-hash-table :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) (:context . :context))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 1106438)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InlineCompletionParams #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 :context) nil lsp-keyword->string alist-get ((:text-document . :textDocument) (:position . :position) (:context . :context)) error "Unknown key: %s. Available keys: %s" symbol-name (:text-document :position :context) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1107096)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-params-text-document #[257 "\300!\205\n\301\302\"\207" [ht? gethash "textDocument"] 4 (#$ . 1108006)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-params-text-document #[514 "\300\301#\210\207" [puthash "textDocument"] 6 (#$ . 1108164)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-params-position #[257 "\300!\205\n\301\302\"\207" [ht? gethash "position"] 4 (#$ . 1108320)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-params-position #[514 "\300\301#\210\207" [puthash "position"] 6 (#$ . 1108469)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-params-context #[257 "\300!\205\n\301\302\"\207" [ht? gethash "context"] 4 (#$ . 1108616)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-params-context #[514 "\300\301#\210\207" [puthash "context"] 6 (#$ . 1108763)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlineCompletionContext #[514 "\300=\204\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-kind s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:trigger-kind) gethash 1 nil assoc ((:trigger-kind . :triggerKind))] 7 (#$ . 1108908)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlineCompletionContext? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:trigger-kind error "Unknown key: %s. Available keys: %s" (:trigger-kind) when ht? gethash symbol-name assoc ((:trigger-kind . :triggerKind)) 1 nil] 9 (#$ . 1109300)])#@15 (fn OBJECT) (defalias 'lsp-inline-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 (#$ . 1109630)])#@136 Constructs InlineCompletionContext from `plist.' Allowed params: (:trigger-kind) (fn &rest PLIST &key TRIGGER-KIND &allow-other-keys) (defalias 'lsp-make-inline-completion-context #[128 "\300\301\"A@\302\303\304\"\305\306\307\"\310\311\"\"\210\207" [plist-member :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-kind . :triggerKind))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 1109978)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InlineCompletionContext #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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-kind . :triggerKind)) error "Unknown key: %s. Available keys: %s" symbol-name (:trigger-kind) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1110505)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-context-trigger-kind #[257 "\300!\205\n\301\302\"\207" [ht? gethash "triggerKind"] 4 (#$ . 1111328)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-context-trigger-kind #[514 "\300\301#\210\207" [puthash "triggerKind"] 6 (#$ . 1111485)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlineCompletionItem #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:filter-text? :range? :command? :insert-text) s-starts-with? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:filter-text? :range? :command? :insert-text) gethash 1 nil assoc ((:filter-text? . :filterText) (:range? . :range) (:command? . :command) (:insert-text . :insertText))] 7 (#$ . 1111640)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlineCompletionItem? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:filter-text? :range? :command? :insert-text) error "Unknown key: %s. Available keys: %s" (:filter-text? :range? :command? :insert-text) when ht? gethash symbol-name assoc ((:filter-text? . :filterText) (:range? . :range) (:command? . :command) (:insert-text . :insertText)) 1 nil] 9 (#$ . 1112163)])#@15 (fn OBJECT) (defalias 'lsp-inline-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)"] ("insertText") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:insertText)] 6 (#$ . 1112624)])#@192 Constructs InlineCompletionItem from `plist.' Allowed params: (:insert-text :command? :range? :filter-text?) (fn &rest PLIST &key FILTER-TEXT? RANGE? COMMAND? INSERT-TEXT &allow-other-keys) (defalias 'lsp-make-inline-completion-item #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\310\311\312\"\313\314 \"\"\210\207" [plist-member :filter-text? :range? :command? :insert-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 ((:filter-text? . :filterText) (:range? . :range) (:command? . :command) (:insert-text . :insertText))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 1112967)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InlineCompletionItem #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\300\301\302\303\304\305!EED\207" [pred lambda (hash-table) ht-contains? hash-table lsp-keyword->string] 8 "\n\n(fn KEY)"] (:insertText) nil lsp-keyword->string alist-get ((:filter-text? . :filterText) (:range? . :range) (:command? . :command) (:insert-text . :insertText)) error "Unknown key: %s. Available keys: %s" symbol-name (:filter-text? :range? :command? :insert-text) lsp-keyword->symbol s-starts-with? ":" app lambda (hash-table) ht-get hash-table (hash-table)] 20 (#$ . 1113688)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-item-filter-text? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "filterText"] 4 (#$ . 1114608)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-item-filter-text? #[514 "\300\301#\210\207" [puthash "filterText"] 6 (#$ . 1114761)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-item-range? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "range"] 4 (#$ . 1114912)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-item-range? #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 1115054)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-item-command? #[257 "\300!\205\n\301\302\"\207" [ht? gethash "command"] 4 (#$ . 1115194)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-item-command? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 1115340)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-item-insert-text #[257 "\300!\205\n\301\302\"\207" [ht? gethash "insertText"] 4 (#$ . 1115484)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-item-insert-text #[514 "\300\301#\210\207" [puthash "insertText"] 6 (#$ . 1115636)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlineCompletionList #[514 "\300=\204\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 (#$ . 1115786)])#@19 (fn KEY SOURCE) (defalias 'dash-expand:&InlineCompletionList? #[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 (#$ . 1116148)])#@15 (fn OBJECT) (defalias 'lsp-inline-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") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:items)] 6 (#$ . 1116448)])#@119 Constructs InlineCompletionList from `plist.' Allowed params: (:items) (fn &rest PLIST &key ITEMS &allow-other-keys) (defalias 'lsp-make-inline-completion-list #[128 "\300\301\"A@\302\303\304\"\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 (#$ . 1116781)])#@32 (fn &rest PROPERTY-BINDINGS) (defalias 'lsp--pcase-macroexpander-InlineCompletionList #[128 "\300\301\302\303\304\305\"\306\203z\211\211A\262\242\211A\262\242\306\307\310\311\"\206+\312\313\314!\315#!\316!9\205@?\206@\317\320\314!\"\211\203^\321\322\323\324\325EEEB\262A\262 \266\202 \321\322\326\324\325EEEB\262AA\262 \266\202 \262\"BB\207" [and (pred ht?) append -map #[257 "\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 (#$ . 1117268)])#@15 (fn OBJECT) (defalias 'lsp:inline-completion-list-items #[257 "\300!\205\n\301\302\"\207" [ht? gethash "items"] 4 (#$ . 1118062)])#@21 (fn OBJECT VALUE) (defalias 'lsp:set-inline-completion-list-items #[514 "\300\301#\210\207" [puthash "items"] 6 (#$ . 1118203)]) (defconst lsp/inlay-hint-kind-type-hint 1) (defconst lsp/inlay-hint-kind-parameter-hint 2) (provide 'lsp-protocol)