Variable: cl--generic-combined-method-memoization
cl--generic-combined-method-memoization is a variable defined in
cl-generic.el.gz.
Value
Large value
#s(hash-table size 217 test equal weakness value rehash-size 1.5 rehash-threshold 0.8125 data
((#s(cl--generic cl-generic-generalizers
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head eieio--static))
nil nil
#[257 " D\207"
[eieio--generic-static-symbol-generalizer eieio--generic-static-object-generalizer]
3 "\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
((head subclass))
nil nil
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head derived-mode))
nil nil
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]
(#s(cl--generic cl-generic-combine-methods
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\"\207"
[cl--generic-standard-method-combination]
5 "Standard support for :after, :before, :around, and `:extra NAME' qualifiers.\n\n(fn GENERIC METHODS)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\"\207"
[cl--generic-standard-method-combination]
5 "Standard support for :after, :before, :around, and `:extra NAME' qualifiers.\n\n(fn GENERIC METHODS)"]))
#[514 "\300\"\207"
[cl--generic-standard-method-combination]
5 "Standard support for :after, :before, :around, and `:extra NAME' qualifiers.\n\n(fn GENERIC METHODS)"]
(#s(cl--generic cl-no-next-method
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[642 "\301\302\303!>\204�\301\304\305D\"\210\306HBB\"\207"
[cl-struct-cl--generic-tags signal cl-no-next-method type-of wrong-type-argument cl--generic 1]
9 "\n\n(fn GENERIC METHOD &rest ARGS)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[642 "\301\302\303!>\204�\301\304\305D\"\210\306HBB\"\207"
[cl-struct-cl--generic-tags signal cl-no-next-method type-of wrong-type-argument cl--generic 1]
9 "\n\n(fn GENERIC METHOD &rest ARGS)"]))
#[642 "\301\302\303!>\204�\301\304\305D\"\210\306HBB\"\207"
[cl-struct-cl--generic-tags signal cl-no-next-method type-of wrong-type-argument cl--generic 1]
9 "\n\n(fn GENERIC METHOD &rest ARGS)"]
(#s(cl--generic cl-no-applicable-method
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[385 "\301\302\303!>\204�\301\304\305D\"\210\306HB\"\207"
[cl-struct-cl--generic-tags signal cl-no-applicable-method type-of wrong-type-argument cl--generic 1]
8 "\n\n(fn GENERIC &rest ARGS)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[385 "\301\302\303!>\204�\301\304\305D\"\210\306HB\"\207"
[cl-struct-cl--generic-tags signal cl-no-applicable-method type-of wrong-type-argument cl--generic 1]
8 "\n\n(fn GENERIC &rest ARGS)"]))
#[385 "\301\302\303!>\204�\301\304\305D\"\210\306HB\"\207"
[cl-struct-cl--generic-tags signal cl-no-applicable-method type-of wrong-type-argument cl--generic 1]
8 "\n\n(fn GENERIC &rest ARGS)"]
(#s(cl--generic cl-no-primary-method
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[385 "\301\302\303!>\204�\301\304\305D\"\210\306HB\"\207"
[cl-struct-cl--generic-tags signal cl-no-primary-method type-of wrong-type-argument cl--generic 1]
8 "\n\n(fn GENERIC &rest ARGS)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[385 "\301\302\303!>\204�\301\304\305D\"\210\306HB\"\207"
[cl-struct-cl--generic-tags signal cl-no-primary-method type-of wrong-type-argument cl--generic 1]
8 "\n\n(fn GENERIC &rest ARGS)"]))
#[385 "\301\302\303!>\204�\301\304\305D\"\210\306HB\"\207"
[cl-struct-cl--generic-tags signal cl-no-primary-method type-of wrong-type-argument cl--generic 1]
8 "\n\n(fn GENERIC &rest ARGS)"]
(#s(cl--generic seq-do
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\"\207"
[mapc]
5 "\n\n(fn FUNCTION SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\"\207"
[mapc]
5 "\n\n(fn FUNCTION SEQUENCE)"]))
#[514 "\300\"\207"
[mapc]
5 "\n\n(fn FUNCTION SEQUENCE)"]
(#s(cl--generic cl-generic-generalizers
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head eieio--static))
nil nil
#[257 " D\207"
[eieio--generic-static-symbol-generalizer eieio--generic-static-object-generalizer]
3 "\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
((head subclass))
nil nil
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head derived-mode))
nil nil
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
nil)
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"]
(#s(cl--generic oclosure-interactive-form
((0 #s(cl--generic-generalizer cl--generic-oclosure-generalizer 51 cl--generic-oclosure-tag cl-generic--oclosure-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(kmacro)
nil nil
#[257 "\300\207"
[(interactive "p")]
2 "\n\n(fn _)"])
#s(cl--generic-method
(advice)
nil nil
#[513 "\300!\301!\302!\302!\204�\211\205�\303\304\"D\207"
[advice--car advice--cdr advice--interactive-form interactive advice--make-interactive-form]
10 "\n\n(fn AD &optional _)"])
#s(cl--generic-method
(cconv--interactive-helper)
nil nil
#[257 "\300\301\302\303!DDD\207"
[interactive funcall quote cconv--interactive-helper--if]
6 "\n\n(fn F)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn FUNCTION)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn FUNCTION)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn FUNCTION)"]
(#s(cl--generic seq-elt
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\234\207"
[]
4 "\n\n(fn SEQUENCE N)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\234\207"
[]
4 "\n\n(fn SEQUENCE N)"]))
#[514 "\234\207"
[]
4 "\n\n(fn SEQUENCE N)"]
(#s(cl--generic seq-length
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\211G\207"
[]
2 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\211G\207"
[]
2 "\n\n(fn SEQUENCE)"]))
#[257 "\211G\207"
[]
2 "\n\n(fn SEQUENCE)"]
(#s(cl--generic function-documentation
((0 #s(cl--generic-generalizer cl--generic-oclosure-generalizer 51 cl--generic-oclosure-tag cl-generic--oclosure-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(cconv--interactive-helper)
nil nil
#[257 "\300\301!!\207"
[function-documentation cconv--interactive-helper--fun]
4 "\n\n(fn F)"])
#s(cl--generic-method
(accessor)
nil nil
#[257 "\300!\207"
[oclosure--accessor-docstring]
3 "\n\n(fn FUNCTION)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303!\203�G\304V\205\236�\304H!\205�\211\207;\203$�\266\305\207\306!\203.�\266\305\207:\203\233�\242\211\307\267\202\227�\310\207\243\211:\203Q�\211\242\243\311\311%\207!\207\243\211:\203y�\211\242\243\211:\203t�\211\242\243 \311%\207!\207!\207\243\211:\203\222�\211\242\243\311\211%\207!\207!\207\211!\207"
[#[257 "\211;\206�\300!\206�\300\243!\207"
[fixnump]
3 "\n\n(fn DOC)"]
#[1285 "\211@!\205 �\211\207"
[]
8 "\n\n(fn DOCSTRING-P ENV ARGS FILE BODY)"]
#[257 "\300\301C\"\207"
[signal invalid-function]
4 "\n\n(fn FUNCTION)"]
byte-code-function-p 4 "Keyboard macro." vectorp #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(keymap 59 lambda 61 closure 86 autoload 126))
"Prefix command (definition is a keymap associating keystrokes with commands)." nil]
16 "\n\n(fn FUNCTION)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303!\203�G\304V\205\236�\304H!\205�\211\207;\203$�\266\305\207\306!\203.�\266\305\207:\203\233�\242\211\307\267\202\227�\310\207\243\211:\203Q�\211\242\243\311\311%\207!\207\243\211:\203y�\211\242\243\211:\203t�\211\242\243 \311%\207!\207!\207\243\211:\203\222�\211\242\243\311\211%\207!\207!\207\211!\207"
[#[257 "\211;\206�\300!\206�\300\243!\207"
[fixnump]
3 "\n\n(fn DOC)"]
#[1285 "\211@!\205 �\211\207"
[]
8 "\n\n(fn DOCSTRING-P ENV ARGS FILE BODY)"]
#[257 "\300\301C\"\207"
[signal invalid-function]
4 "\n\n(fn FUNCTION)"]
byte-code-function-p 4 "Keyboard macro." vectorp #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(keymap 59 lambda 61 closure 86 autoload 126))
"Prefix command (definition is a keymap associating keystrokes with commands)." nil]
16 "\n\n(fn FUNCTION)"]))
#[257 "\300\301\302\303!\203�G\304V\205\236�\304H!\205�\211\207;\203$�\266\305\207\306!\203.�\266\305\207:\203\233�\242\211\307\267\202\227�\310\207\243\211:\203Q�\211\242\243\311\311%\207!\207\243\211:\203y�\211\242\243\211:\203t�\211\242\243 \311%\207!\207!\207\243\211:\203\222�\211\242\243\311\211%\207!\207!\207\211!\207"
[#[257 "\211;\206�\300!\206�\300\243!\207"
[fixnump]
3 "\n\n(fn DOC)"]
#[1285 "\211@!\205 �\211\207"
[]
8 "\n\n(fn DOCSTRING-P ENV ARGS FILE BODY)"]
#[257 "\300\301C\"\207"
[signal invalid-function]
4 "\n\n(fn FUNCTION)"]
byte-code-function-p 4 "Keyboard macro." vectorp #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(keymap 59 lambda 61 closure 86 autoload 126))
"Prefix command (definition is a keymap associating keystrokes with commands)." nil]
16 "\n\n(fn FUNCTION)"]
(#s(cl--generic cl-generic-generalizers
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head eieio--static))
nil nil
#[257 " D\207"
[eieio--generic-static-symbol-generalizer eieio--generic-static-object-generalizer]
3 "\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
((head subclass))
nil nil
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head derived-mode))
nil nil
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
nil)
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"]
(#s(cl--generic seqp
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300!\207"
[sequencep]
3 "\n\n(fn OBJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\207"
[sequencep]
3 "\n\n(fn OBJECT)"]))
#[257 "\300!\207"
[sequencep]
3 "\n\n(fn OBJECT)"]
(#s(cl--generic seq-copy
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300!\207"
[copy-sequence]
3 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\207"
[copy-sequence]
3 "\n\n(fn SEQUENCE)"]))
#[257 "\300!\207"
[copy-sequence]
3 "\n\n(fn SEQUENCE)"]
(#s(cl--generic seq-subseq
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 ";\204 �\300!\203�O\207<\203\233�\301\211\203,�\302W\203,�G\211\262\\\262\302W\203@�\206=�G\211\262\\\262\302Y\204K�\303\304\"\210\302V\203e�S\233\262\204a�\303\304\"\210A\262\203\226�Z\211\302W\204\213�\203|�V\202\210�\211\302V\203\220�\211S\233?\203\220�\303\305\"\210\306\"\207\307!\207\303\310\"\207"
[vectorp nil 0 error "Start index out of bounds: %s" "End index out of bounds: %s" take copy-sequence "Unsupported sequence: %s"]
10 "\n\n(fn SEQUENCE START &optional END)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 ";\204 �\300!\203�O\207<\203\233�\301\211\203,�\302W\203,�G\211\262\\\262\302W\203@�\206=�G\211\262\\\262\302Y\204K�\303\304\"\210\302V\203e�S\233\262\204a�\303\304\"\210A\262\203\226�Z\211\302W\204\213�\203|�V\202\210�\211\302V\203\220�\211S\233?\203\220�\303\305\"\210\306\"\207\307!\207\303\310\"\207"
[vectorp nil 0 error "Start index out of bounds: %s" "End index out of bounds: %s" take copy-sequence "Unsupported sequence: %s"]
10 "\n\n(fn SEQUENCE START &optional END)"]))
#[770 ";\204 �\300!\203�O\207<\203\233�\301\211\203,�\302W\203,�G\211\262\\\262\302W\203@�\206=�G\211\262\\\262\302Y\204K�\303\304\"\210\302V\203e�S\233\262\204a�\303\304\"\210A\262\203\226�Z\211\302W\204\213�\203|�V\202\210�\211\302V\203\220�\211S\233?\203\220�\303\305\"\210\306\"\207\307!\207\303\310\"\207"
[vectorp nil 0 error "Start index out of bounds: %s" "End index out of bounds: %s" take copy-sequence "Unsupported sequence: %s"]
10 "\n\n(fn SEQUENCE START &optional END)"]
(#s(cl--generic seq-map
((1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t sequence)
nil nil
#[514 "\300\"\207"
[mapcar]
5 "\n\n(fn FUNCTION SEQUENCE)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil seq-do make-closure
#[257 "\300\301!\300\242B\240\207"
[V0 V1]
4 "\n\n(fn ELT)"]]
8 "\n\n(fn FUNCTION SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil seq-do make-closure
#[257 "\300\301!\300\242B\240\207"
[V0 V1]
4 "\n\n(fn ELT)"]]
8 "\n\n(fn FUNCTION SEQUENCE)"]))
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil seq-do make-closure
#[257 "\300\301!\300\242B\240\207"
[V0 V1]
4 "\n\n(fn ELT)"]]
8 "\n\n(fn FUNCTION SEQUENCE)"]
(#s(cl--generic seq-mapn
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[642 "\300\301\302B\"\300>\204!�\303\301\304\"\"B\262\301\305\"\262\202�\237\207"
[nil seq-map
#[257 "\300\301\"\207"
[seq-into list]
4 "\n\n(fn S)"]
apply car cdr]
10 "\n\n(fn FUNCTION SEQUENCE &rest SEQUENCES)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[642 "\300\301\302B\"\300>\204!�\303\301\304\"\"B\262\301\305\"\262\202�\237\207"
[nil seq-map
#[257 "\300\301\"\207"
[seq-into list]
4 "\n\n(fn S)"]
apply car cdr]
10 "\n\n(fn FUNCTION SEQUENCE &rest SEQUENCES)"]))
#[642 "\300\301\302B\"\300>\204!�\303\301\304\"\"B\262\301\305\"\262\202�\237\207"
[nil seq-map
#[257 "\300\301\"\207"
[seq-into list]
4 "\n\n(fn S)"]
apply car cdr]
10 "\n\n(fn FUNCTION SEQUENCE &rest SEQUENCES)"]
(#s(cl--generic seq-drop
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(list t)
nil nil
#[514 "\211\233\207"
[]
4 "Optimized implementation of `seq-drop' for lists.\n\n(fn LIST N)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\211\300X\203�\207\301!\302^#\207"
[0 seq-length seq-subseq]
7 "\n\n(fn SEQUENCE N)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\211\300X\203�\207\301!\302^#\207"
[0 seq-length seq-subseq]
7 "\n\n(fn SEQUENCE N)"]))
#[514 "\211\300X\203�\207\301!\302^#\207"
[0 seq-length seq-subseq]
7 "\n\n(fn SEQUENCE N)"]
(#s(cl--generic seq-take
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(list t)
nil nil
#[514 "\300\"\207"
[take]
5 "Optimized implementation of `seq-take' for lists.\n\n(fn LIST N)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\301]\302!^#\207"
[seq-subseq 0 seq-length]
8 "\n\n(fn SEQUENCE N)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\301]\302!^#\207"
[seq-subseq 0 seq-length]
8 "\n\n(fn SEQUENCE N)"]))
#[514 "\300\301\301]\302!^#\207"
[seq-subseq 0 seq-length]
8 "\n\n(fn SEQUENCE N)"]
(#s(cl--generic seq-drop-while
((1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t list)
nil nil
#[514 "\211\203�@!\203�\211A\262\202��\207"
[]
4 "Optimized implementation of `seq-drop-while' for lists.\n\n(fn PRED LIST)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\"\"\207"
[seq-drop seq--count-successive]
7 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\"\"\207"
[seq-drop seq--count-successive]
7 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\300\301\"\"\207"
[seq-drop seq--count-successive]
7 "\n\n(fn PRED SEQUENCE)"]
(#s(cl--generic seq-take-while
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\"\"\207"
[seq-take seq--count-successive]
7 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\"\"\207"
[seq-take seq--count-successive]
7 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\300\301\"\"\207"
[seq-take seq--count-successive]
7 "\n\n(fn PRED SEQUENCE)"]
(#s(cl--generic seq-empty-p
((0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(list)
nil nil
#[257 "\211?\207"
[]
2 "Optimized implementation of `seq-empty-p' for lists.\n\n(fn LIST)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\301U\207"
[seq-length 0]
3 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\301U\207"
[seq-length 0]
3 "\n\n(fn SEQUENCE)"]))
#[257 "\300!\301U\207"
[seq-length 0]
3 "\n\n(fn SEQUENCE)"]
(#s(cl--generic seq-sort
((1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t list)
nil nil
#[514 "\300\301!\"\207"
[sort seq-copy]
5 "\n\n(fn PRED LIST)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\303\304!\"\207"
[seq-sort append nil seq-into type-of]
7 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\303\304!\"\207"
[seq-sort append nil seq-into type-of]
7 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\300\301\302\"\"\303\304!\"\207"
[seq-sort append nil seq-into type-of]
7 "\n\n(fn PRED SEQUENCE)"]
(#s(cl--generic seq-reverse
((0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(sequence)
nil nil
#[257 "\300!\207"
[reverse]
3 "\n\n(fn SEQUENCE)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300C\301\302\303\"\"\210\304\242\305!\"\207"
[nil seq-map make-closure
#[257 "\300\300\242B\240\207"
[V0]
4 "\n\n(fn ELT)"]
seq-into type-of]
6 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300C\301\302\303\"\"\210\304\242\305!\"\207"
[nil seq-map make-closure
#[257 "\300\300\242B\240\207"
[V0]
4 "\n\n(fn ELT)"]
seq-into type-of]
6 "\n\n(fn SEQUENCE)"]))
#[257 "\300C\301\302\303\"\"\210\304\242\305!\"\207"
[nil seq-map make-closure
#[257 "\300\300\242B\240\207"
[V0]
4 "\n\n(fn ELT)"]
seq-into type-of]
6 "\n\n(fn SEQUENCE)"]
(#s(cl--generic seq-concatenate
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[385 "\300\301\"\262\302\267\202 �\303\304\"\207\303\305\"\207\303\306\211\307\"\"\207\310\311\"\207"
[mapcar seq-into-sequence #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(vector 12 string 17 list 22))
apply vconcat concat append
(nil)
error "Not a sequence type name: %S"]
7 "\n\n(fn TYPE &rest SEQUENCES)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[385 "\300\301\"\262\302\267\202 �\303\304\"\207\303\305\"\207\303\306\211\307\"\"\207\310\311\"\207"
[mapcar seq-into-sequence #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(vector 12 string 17 list 22))
apply vconcat concat append
(nil)
error "Not a sequence type name: %S"]
7 "\n\n(fn TYPE &rest SEQUENCES)"]))
#[385 "\300\301\"\262\302\267\202 �\303\304\"\207\303\305\"\207\303\306\211\307\"\"\207\310\311\"\207"
[mapcar seq-into-sequence #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(vector 12 string 17 list 22))
apply vconcat concat append
(nil)
error "Not a sequence type name: %S"]
7 "\n\n(fn TYPE &rest SEQUENCES)"]
(#s(cl--generic seq-into-sequence
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300!\204 �\301\302\"\210\207"
[sequencep error "Cannot convert %S into a sequence"]
4 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\204 �\301\302\"\210\207"
[sequencep error "Cannot convert %S into a sequence"]
4 "\n\n(fn SEQUENCE)"]))
#[257 "\300!\204 �\301\302\"\210\207"
[sequencep error "Cannot convert %S into a sequence"]
4 "\n\n(fn SEQUENCE)"]
(#s(cl--generic seq-into
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\211\300\267\202�\301!\207\302!\207\303!\207\304\305\"\207"
[#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(vector 6 string 10 list 14))
seq--into-vector seq--into-string seq--into-list error "Not a sequence type name: %S"]
5 "\n\n(fn SEQUENCE TYPE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\211\300\267\202�\301!\207\302!\207\303!\207\304\305\"\207"
[#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(vector 6 string 10 list 14))
seq--into-vector seq--into-string seq--into-list error "Not a sequence type name: %S"]
5 "\n\n(fn SEQUENCE TYPE)"]))
#[514 "\211\300\267\202�\301!\207\302!\207\303!\207\304\305\"\207"
[#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(vector 6 string 10 list 14))
seq--into-vector seq--into-string seq--into-list error "Not a sequence type name: %S"]
5 "\n\n(fn SEQUENCE TYPE)"]
(#s(cl--generic seq-filter
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301!\302\303\304\305#\"\"\207"
[make-symbol "exclude" delq seq-map make-closure
#[257 "\301!\203�\207\300\207"
[V0 V1]
3 "\n\n(fn ELT)"]]
10 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301!\302\303\304\305#\"\"\207"
[make-symbol "exclude" delq seq-map make-closure
#[257 "\301!\203�\207\300\207"
[V0 V1]
3 "\n\n(fn ELT)"]]
10 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\300\301!\302\303\304\305#\"\"\207"
[make-symbol "exclude" delq seq-map make-closure
#[257 "\301!\203�\207\300\207"
[V0 V1]
3 "\n\n(fn ELT)"]]
10 "\n\n(fn PRED SEQUENCE)"]
(#s(cl--generic seq-remove
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\207"
[seq-filter make-closure
#[257 "\300!?\207"
[V0]
3 "\n\n(fn ELT)"]]
6 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\207"
[seq-filter make-closure
#[257 "\300!?\207"
[V0]
3 "\n\n(fn ELT)"]]
6 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\300\301\302\"\"\207"
[seq-filter make-closure
#[257 "\300!?\207"
[V0]
3 "\n\n(fn ELT)"]]
6 "\n\n(fn PRED SEQUENCE)"]
(#s(cl--generic seq-remove-at-position
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301!\211\302=\203�\303\202�\211\262\304\305#\304T\"#\207"
[seq-concatenate type-of cons list seq-subseq 0]
8 "\n\n(fn SEQUENCE N)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301!\211\302=\203�\303\202�\211\262\304\305#\304T\"#\207"
[seq-concatenate type-of cons list seq-subseq 0]
8 "\n\n(fn SEQUENCE N)"]))
#[514 "\300\301!\211\302=\203�\303\202�\211\262\304\305#\304T\"#\207"
[seq-concatenate type-of cons list seq-subseq 0]
8 "\n\n(fn SEQUENCE N)"]
(#s(cl--generic seq-reduce
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t t)
nil nil
#[771 "\300!\203�\207\211C\301\302\303#\"\210\211\242\207"
[seq-empty-p seq-do make-closure
#[257 "\300\301\300\242\"\240\207"
[V0 V1]
5 "\n\n(fn ELT)"]]
9 "\n\n(fn FUNCTION SEQUENCE INITIAL-VALUE)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[771 "\300!\203�\207\211C\301\302\303#\"\210\211\242\207"
[seq-empty-p seq-do make-closure
#[257 "\300\301\300\242\"\240\207"
[V0 V1]
5 "\n\n(fn ELT)"]]
9 "\n\n(fn FUNCTION SEQUENCE INITIAL-VALUE)"]))
#[771 "\300!\203�\207\211C\301\302\303#\"\210\211\242\207"
[seq-empty-p seq-do make-closure
#[257 "\300\301\300\242\"\240\207"
[V0 V1]
5 "\n\n(fn ELT)"]]
9 "\n\n(fn FUNCTION SEQUENCE INITIAL-VALUE)"]
(#s(cl--generic seq-every-p
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300!\206\n�\301\302\303\"\207"
[V0 throw seq--break nil]
4 "\n\n(fn ELT)"]
t]
6 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300!\206\n�\301\302\303\"\207"
[V0 throw seq--break nil]
4 "\n\n(fn ELT)"]
t]
6 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300!\206\n�\301\302\303\"\207"
[V0 throw seq--break nil]
4 "\n\n(fn ELT)"]
t]
6 "\n\n(fn PRED SEQUENCE)"]
(#s(cl--generic seq-some
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300!\211\205 �\301\302\"\207"
[V0 throw seq--break]
5 "\n\n(fn ELT)"]
nil]
6 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300!\211\205 �\301\302\"\207"
[V0 throw seq--break]
5 "\n\n(fn ELT)"]
nil]
6 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300!\211\205 �\301\302\"\207"
[V0 throw seq--break]
5 "\n\n(fn ELT)"]
nil]
6 "\n\n(fn PRED SEQUENCE)"]
(#s(cl--generic seq-find
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\3002�\301\302\303\"\"\210\2110\207"
[seq--break seq-do make-closure
#[257 "\300!\205\n�\301\302\"\207"
[V0 throw seq--break]
4 "\n\n(fn ELT)"]]
7 "\n\n(fn PRED SEQUENCE &optional DEFAULT)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\3002�\301\302\303\"\"\210\2110\207"
[seq--break seq-do make-closure
#[257 "\300!\205\n�\301\302\"\207"
[V0 throw seq--break]
4 "\n\n(fn ELT)"]]
7 "\n\n(fn PRED SEQUENCE &optional DEFAULT)"]))
#[770 "\3002�\301\302\303\"\"\210\2110\207"
[seq--break seq-do make-closure
#[257 "\300!\205\n�\301\302\"\207"
[V0 throw seq--break]
4 "\n\n(fn ELT)"]]
7 "\n\n(fn PRED SEQUENCE &optional DEFAULT)"]
(#s(cl--generic seq-count
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\207"
[0 seq-do make-closure
#[257 "\301!\205 �\300\211\242T\240\207"
[V0 V1]
3 "\n\n(fn ELT)"]]
8 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\207"
[0 seq-do make-closure
#[257 "\301!\205 �\300\211\242T\240\207"
[V0 V1]
3 "\n\n(fn ELT)"]]
8 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\300C\301\302\303#\"\210\211\242\207"
[0 seq-do make-closure
#[257 "\301!\205 �\300\211\242T\240\207"
[V0 V1]
3 "\n\n(fn ELT)"]]
8 "\n\n(fn PRED SEQUENCE)"]
(#s(cl--generic seq-contains
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\302#\"\207"
[seq-some make-closure
#[257 "\300\206�\302\301\"\205\f�\211\207"
[V0 V1 equal]
4 "\n\n(fn E)"]]
8 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\302#\"\207"
[seq-some make-closure
#[257 "\300\206�\302\301\"\205\f�\211\207"
[V0 V1 equal]
4 "\n\n(fn E)"]]
8 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]))
#[770 "\300\301\302#\"\207"
[seq-some make-closure
#[257 "\300\206�\302\301\"\205\f�\211\207"
[V0 V1 equal]
4 "\n\n(fn E)"]]
8 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]
(#s(cl--generic seq-contains-p
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\3002�\301\302\303#\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300\206�\302\301\"\211\205�\303\304\"\207"
[V0 V1 equal throw seq--break]
5 "\n\n(fn E)"]
nil]
8 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\3002�\301\302\303#\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300\206�\302\301\"\211\205�\303\304\"\207"
[V0 V1 equal throw seq--break]
5 "\n\n(fn E)"]
nil]
8 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]))
#[770 "\3002�\301\302\303#\"\210\3040\207"
[seq--break seq-do make-closure
#[257 "\300\206�\302\301\"\211\205�\303\304\"\207"
[V0 V1 equal throw seq--break]
5 "\n\n(fn E)"]
nil]
8 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]
(#s(cl--generic seq-set-equal-p
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\302#\"\205�\300\301\303#\"\207"
[seq-every-p make-closure
#[257 "\302\301\300#\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ITEM1)"]
#[257 "\302\301\300#\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ITEM2)"]]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\302#\"\205�\300\301\303#\"\207"
[seq-every-p make-closure
#[257 "\302\301\300#\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ITEM1)"]
#[257 "\302\301\300#\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ITEM2)"]]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]))
#[770 "\300\301\302#\"\205�\300\301\303#\"\207"
[seq-every-p make-closure
#[257 "\302\301\300#\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ITEM1)"]
#[257 "\302\301\300#\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ITEM2)"]]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]
(#s(cl--generic seq-position
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\300C\3012�\302\303\304$\"\210\3050\207"
[0 seq--break seq-do make-closure
#[257 "\301\206�\303\302\"\203�\304\305\300\242\"\210\300\211\242T\240\207"
[V0 V1 V2 equal throw seq--break]
4 "\n\n(fn E)"]
nil]
10 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\300C\3012�\302\303\304$\"\210\3050\207"
[0 seq--break seq-do make-closure
#[257 "\301\206�\303\302\"\203�\304\305\300\242\"\210\300\211\242T\240\207"
[V0 V1 V2 equal throw seq--break]
4 "\n\n(fn E)"]
nil]
10 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]))
#[770 "\300C\3012�\302\303\304$\"\210\3050\207"
[0 seq--break seq-do make-closure
#[257 "\301\206�\303\302\"\203�\304\305\300\242\"\210\300\211\242T\240\207"
[V0 V1 V2 equal throw seq--break]
4 "\n\n(fn E)"]
nil]
10 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]
(#s(cl--generic seq-positions
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\300C\301\302\303$\"\210\211\242\237\207"
[nil seq-do-indexed make-closure
#[514 "\301\206�\303\302\"\205�\300\300\242B\240\207"
[V0 V1 V2 equal]
5 "\n\n(fn E INDEX)"]]
10 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\300C\301\302\303$\"\210\211\242\237\207"
[nil seq-do-indexed make-closure
#[514 "\301\206�\303\302\"\205�\300\300\242B\240\207"
[V0 V1 V2 equal]
5 "\n\n(fn E INDEX)"]]
10 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]))
#[770 "\300C\301\302\303$\"\210\211\242\237\207"
[nil seq-do-indexed make-closure
#[514 "\301\206�\303\302\"\205�\300\300\242B\240\207"
[V0 V1 V2 equal]
5 "\n\n(fn E INDEX)"]]
10 "\n\n(fn SEQUENCE ELT &optional TESTFN)"]
(#s(cl--generic seq-uniq
((0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(list)
nil nil
#[513 "C\300\204d�\242G\211\301V\203C�\302\303\304\305$\242\203>�\306\242@\"\2045�\242@\307\310#\266\242@B\262\211\242A\240\210\202�\266\202\204�\242\203`�\242@\235\204W�\242@B\262\211\242A\240\210\202C�\210\202\204�\242\203\204�\311\312\313#\"\204{�\242@B\262\211\242A\240\210\202d�\211\237\207"
[nil 100 make-hash-table :test equal :size gethash puthash t seq-find make-closure
#[257 "\300\301\242@\"\207"
[V0 V1]
4 "\n\n(fn ELEM)"]]
11 "\n\n(fn SEQUENCE &optional TESTFN)"])
#s(cl--generic-method
(t)
nil nil
#[513 "\300C\301\302\303#\"\210\211\242\237\207"
[nil seq-do make-closure
#[257 "\302\300\242\301#?\205�\300\300\242B\240\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ELT)"]]
8 "\n\n(fn SEQUENCE &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[513 "\300C\301\302\303#\"\210\211\242\237\207"
[nil seq-do make-closure
#[257 "\302\300\242\301#?\205�\300\300\242B\240\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ELT)"]]
8 "\n\n(fn SEQUENCE &optional TESTFN)"]))
#[513 "\300C\301\302\303#\"\210\211\242\237\207"
[nil seq-do make-closure
#[257 "\302\300\242\301#?\205�\300\300\242B\240\207"
[V0 V1 seq-contains-p]
5 "\n\n(fn ELT)"]]
8 "\n\n(fn SEQUENCE &optional TESTFN)"]
(#s(cl--generic seq-mapcat
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\206�\302\303\"#\207"
[apply seq-concatenate list seq-map]
9 "\n\n(fn FUNCTION SEQUENCE &optional TYPE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\206�\302\303\"#\207"
[apply seq-concatenate list seq-map]
9 "\n\n(fn FUNCTION SEQUENCE &optional TYPE)"]))
#[770 "\300\301\206�\302\303\"#\207"
[apply seq-concatenate list seq-map]
9 "\n\n(fn FUNCTION SEQUENCE &optional TYPE)"]
(#s(cl--generic seq-partition
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\211\300W?\205#�\301\302!\204 �\303\"B\262\304\"\262\202�\211\237\262\207"
[1 nil seq-empty-p seq-take seq-drop]
6 "\n\n(fn SEQUENCE N)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\211\300W?\205#�\301\302!\204 �\303\"B\262\304\"\262\202�\211\237\262\207"
[1 nil seq-empty-p seq-take seq-drop]
6 "\n\n(fn SEQUENCE N)"]))
#[514 "\211\300W?\205#�\301\302!\204 �\303\"B\262\304\"\262\202�\211\237\262\207"
[1 nil seq-empty-p seq-take seq-drop]
6 "\n\n(fn SEQUENCE N)"]
(#s(cl--generic seq-union
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\"\302\302\303##\211\237\207"
[make-closure
#[514 "\301\300#\203\n�\207\211B\207"
[V0 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reduce nil]
11 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\"\302\302\303##\211\237\207"
[make-closure
#[514 "\301\300#\203\n�\207\211B\207"
[V0 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reduce nil]
11 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]))
#[770 "\300\301\"\302\302\303##\211\237\207"
[make-closure
#[514 "\301\300#\203\n�\207\211B\207"
[V0 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reduce nil]
11 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]
(#s(cl--generic seq-intersection
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\302#\303!\304#\207"
[seq-reduce make-closure
#[514 "\302\301\300#\203\f�\211B\207\207"
[V0 V1 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reverse nil]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\302#\303!\304#\207"
[seq-reduce make-closure
#[514 "\302\301\300#\203\f�\211B\207\207"
[V0 V1 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reverse nil]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]))
#[770 "\300\301\302#\303!\304#\207"
[seq-reduce make-closure
#[514 "\302\301\300#\203\f�\211B\207\207"
[V0 V1 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reverse nil]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]
(#s(cl--generic seq-difference
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\302#\303!\304#\207"
[seq-reduce make-closure
#[514 "\302\301\300#\203\n�\207\211B\207"
[V0 V1 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reverse nil]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\300\301\302#\303!\304#\207"
[seq-reduce make-closure
#[514 "\302\301\300#\203\n�\207\211B\207"
[V0 V1 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reverse nil]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]))
#[770 "\300\301\302#\303!\304#\207"
[seq-reduce make-closure
#[514 "\302\301\300#\203\n�\207\211B\207"
[V0 V1 seq-contains-p]
6 "\n\n(fn ACC ELT)"]
seq-reverse nil]
8 "\n\n(fn SEQUENCE1 SEQUENCE2 &optional TESTFN)"]
(#s(cl--generic seq-group-by
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\303!\304#\207"
[seq-reduce make-closure
#[514 "\300!\301\"\211\203�\211AB\241\241\210\202 �DB\262\207"
[V0 assoc]
8 "\n\n(fn ACC ELT)"]
seq-reverse nil]
6 "\n\n(fn FUNCTION SEQUENCE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\303!\304#\207"
[seq-reduce make-closure
#[514 "\300!\301\"\211\203�\211AB\241\241\210\202 �DB\262\207"
[V0 assoc]
8 "\n\n(fn ACC ELT)"]
seq-reverse nil]
6 "\n\n(fn FUNCTION SEQUENCE)"]))
#[514 "\300\301\302\"\303!\304#\207"
[seq-reduce make-closure
#[514 "\300!\301\"\211\203�\211AB\241\241\210\202 �DB\262\207"
[V0 assoc]
8 "\n\n(fn ACC ELT)"]
seq-reverse nil]
6 "\n\n(fn FUNCTION SEQUENCE)"]
(#s(cl--generic seq-min
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303\"\"\207"
[apply min seq-into list]
6 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303\"\"\207"
[apply min seq-into list]
6 "\n\n(fn SEQUENCE)"]))
#[257 "\300\301\302\303\"\"\207"
[apply min seq-into list]
6 "\n\n(fn SEQUENCE)"]
(#s(cl--generic seq-max
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303\"\"\207"
[apply max seq-into list]
6 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303\"\"\207"
[apply max seq-into list]
6 "\n\n(fn SEQUENCE)"]))
#[257 "\300\301\302\303\"\"\207"
[apply max seq-into list]
6 "\n\n(fn SEQUENCE)"]
(#s(cl--generic seq-random-elt
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300!\203\n�\301\302!\207\303\304\305!!\"\207"
[seq-empty-p error "Sequence cannot be empty" seq-elt random seq-length]
6 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\203\n�\301\302!\207\303\304\305!!\"\207"
[seq-empty-p error "Sequence cannot be empty" seq-elt random seq-length]
6 "\n\n(fn SEQUENCE)"]))
#[257 "\300!\203\n�\301\302!\207\303\304\305!!\"\207"
[seq-empty-p error "Sequence cannot be empty" seq-elt random seq-length]
6 "\n\n(fn SEQUENCE)"]
(#s(cl--generic cl-generic-generalizers
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head eieio--static))
nil nil
#[257 " D\207"
[eieio--generic-static-symbol-generalizer eieio--generic-static-object-generalizer]
3 "\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
((head subclass))
nil nil
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head derived-mode))
nil nil
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
nil)
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"]
(#s(cl--generic window-system-initialization nil
(#s(cl--generic-method nil nil nil
#[256 "\300\207"
[nil]
2 "\n\n(fn &optional DISPLAY)"]))
nil)
#s(cl--generic-method nil nil nil
#[256 "\300\207"
[nil]
2 "\n\n(fn &optional DISPLAY)"]))
#[256 "\300\207"
[nil]
2 "\n\n(fn &optional DISPLAY)"]
(#s(cl--generic gui-backend-get-selection
(((&context eq
(terminal-parameter nil 'terminal-initted)
'terminal-init-screen)
#s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
((&context terminal-parameter nil 'xterm--get-selection)
#s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
((&context . window-system)
#s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t
((&context . window-system)
eql 'nil)
((&context terminal-parameter nil 'xterm--get-selection)
eql t)
((&context eq
(terminal-parameter nil 'terminal-initted)
'terminal-init-screen)
eql nil))
nil nil
#[514 "\211\300=\204 �\301\302\"\210\303\304!\305Q\306\307\310\"r\211q\210\311\312\"\216\313\314!\210\315\316P\317BC\320#\210\321ed\"\210\322ed\323\310$*\207"
[STRING error "Unsupported data type %S" "]52;" xterm--selection-char ";" generate-new-buffer " *temp*" t make-closure
#[0 "\301\300!\205 �\302\300!\207"
[V0 buffer-name kill-buffer]
2]
set-buffer-multibyte nil xterm--query "?\\"
#[0 "\301\211\302\301\211#\211\262\205'�\303=\205�\211\304=?\205'�\211\203!�\211c\210\262\202�\207"
[xterm-query-timeout nil read-char 92 27]
6]
no-async base64-decode-region decode-coding-region utf-8-unix]
9 "\n\n(fn TYPE DATA-TYPE)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[nil]
3 "\n\n(fn SELECTION-SYMBOL TARGET-TYPE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[nil]
3 "\n\n(fn SELECTION-SYMBOL TARGET-TYPE)"]))
#[514 "\300\207"
[nil]
3 "\n\n(fn SELECTION-SYMBOL TARGET-TYPE)"]
(#s(cl--generic gui-backend-set-selection
(((&context terminal-parameter nil 'xterm--set-selection)
#s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
((&context . window-system)
#s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t
((&context . window-system)
eql 'nil)
((&context terminal-parameter nil 'xterm--set-selection)
eql t))
nil nil
#[514 "\301\302\303\"\304=\305\306\"\203�\307\310\311\312!#\202 �\312\313\"\211G\211V\203-�\314\315\"\210\316\317!\207\320\2053�\321\322\323 !\324\325\n\205B�\326\260!\207"
[xterm-max-cut-length terminal-parameter nil terminal-initted terminal-init-screen encode-coding-string utf-8-unix string-replace "\n" "\\P" base64-encode-string :no-line-break warn "Selection too long to send to terminal: %d bytes" sit-for 2 send-string-to-terminal "P" "]52;" xterm--selection-char ";" "" "\\"]
14 "Copy DATA to the X selection using the OSC 52 escape sequence.\n\nTYPE specifies which selection to set; it must be either\n`PRIMARY' or `CLIPBOARD'. DATA must be a string.\n\nThis can be used as a `gui-set-selection' method for\nxterm-compatible terminal emulators. Then your system clipboard\nwill be updated whenever you copy a region of text in Emacs.\n\nIf the resulting OSC 52 sequence would be longer than\n`xterm-max-cut-length', then the TEXT is not sent to the system\nclipboard.\n\nThis function either sends a raw OSC 52 sequence or wraps the OSC\n52 in a Device Control String sequence. This way, it will work\non a bare terminal emulators as well as inside the screen\nprogram. When inside the screen program, this function also\nchops long DCS sequences into multiple smaller ones to avoid\nhitting screen's max DCS length.\n\n(fn TYPE DATA)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[nil]
3 "\n\n(fn SELECTION VALUE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[nil]
3 "\n\n(fn SELECTION VALUE)"]))
#[514 "\300\207"
[nil]
3 "\n\n(fn SELECTION VALUE)"]
(#s(cl--generic gui-backend-selection-owner-p
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn SELECTION)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn SELECTION)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn SELECTION)"]
(#s(cl--generic gui-backend-selection-exists-p
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn SELECTION)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn SELECTION)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn SELECTION)"]
(#s(cl--generic register-val-jump-to
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(hui-register-but t)
nil nil
#[514 "\301\302!>\204�\303\304\305D\"\210\306H!\307\302!>\204%�\303\304\305D\"\210\306H!\2041�\310\311!\210\312!\210\211b\207"
[cl-struct-hui-register-but-tags marker-buffer type-of signal wrong-type-argument hui-register-but 3 marker-position user-error "That Hyperbole button's buffer no longer exists" switch-to-buffer]
8 "Move point to location for Hyperbole button stored in VAL.\n\n(fn VAL ARG)"])
#s(cl--generic-method
(senator-register t)
nil nil
#[514 "\301!>\204�\302\303\304D\"\210\305H\306\307!!\210\211\211\3108\262\311!\203-�\312!\266\202\2022�\211\313H\266\202b\207"
[cl-struct-senator-register-tags type-of signal wrong-type-argument senator-register 1 switch-to-buffer semantic-tag-buffer 4 overlayp overlay-start 0]
7 "\n\n(fn DATA ARG)"])
#s(cl--generic-method
(frameset-register t)
nil nil
#[514 "\302\303!>\204�\304\305\306D\"\210\307H\310 \311\203 �\312\202 �\313\314?\205'�\315&\210\316\303!>\204:�\304\305\306D\"\210\317H!\303!>\204M�\304\305\306D\"\210\320H\321\211\205~�\322!\210\323\324!\211\262!\205~�\325\326\"\211\262!\205~�\327\"\210rq\210b)\207"
[cl-struct-frameset-register-tags frameset-session-filter-alist frameset-restore type-of signal wrong-type-argument frameset-register 1 :filters :reuse-frames t match :cleanup-frames
#[514 "\211\300\267\202�\301!\207\302!\207\303\207"
[#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(rejected 6 ignored 10))
iconify-frame delete-frame nil]
4 "\n\n(fn FRAME ACTION)"]
frameset-frame-with-id 2 3 nil select-frame-set-input-focus buffer-live-p marker-buffer window-live-p get-buffer-window set-frame-selected-window]
10 "\n\n(fn DATA ARG)"])
#s(cl--generic-method
(kmacro-register t)
nil nil
#[514 "\302\303\211\304! >\204�\305\306\307D\"\210\310H$\207"
[current-prefix-arg cl-struct-kmacro-register-tags kmacro-call-macro nil type-of signal wrong-type-argument kmacro-register 1]
10 "\n\n(fn DATA ARG)"])
#s(cl--generic-method
(cons t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 "\300@!\203�\301@?\"\210A@b\207\302@!\203$�\303@!\210A@b\207@\304=\2030�\305A!\207@\306=\203<�\307A!\207@\310=\203e�\311A@!\204Z�\312\313\314A@\"!\204Z�\315\316!\210\305A@!\210\3178b\207\"\207"
[frame-configuration-p set-frame-configuration window-configuration-p set-window-configuration file find-file buffer switch-to-buffer file-query find-buffer-visiting y-or-n-p format "Visit file %s again? " user-error "Register access aborted" 2]
7 "\n\n(fn CL--CNM VAL DELETE)"]]
6 "\n\n(fn VAL DELETE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(marker t)
nil nil
#[514 "\301!\204\n�\302\303!\210\304\301!!\210`\305!U\204!�\306=\204!�\307 \210b\207"
[last-command marker-buffer user-error "That register's buffer no longer exists" switch-to-buffer marker-position jump-to-register push-mark]
5 "\n\n(fn VAL ARG)"])
#s(cl--generic-method
(registerv t)
nil nil
#[514 "\301!>\204�\302\303\304D\"\210\305H\204 �\306\307\310\311C$\210\301!>\204,�\302\303\304D\"\210\305H\301!>\204>�\302\303\304D\"\210\312H!\207"
[cl-struct-registerv-tags type-of signal wrong-type-argument registerv 3 cl--assertion-failed
(registerv-jump-func val)
"Don't know how to jump to register value %S" nil 1]
7 "\n\n(fn VAL ARG)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301!\207"
[user-error "Register doesn't contain a buffer position or configuration"]
4 "\n\n(fn VAL ARG)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301!\207"
[user-error "Register doesn't contain a buffer position or configuration"]
4 "\n\n(fn VAL ARG)"]))
#[514 "\300\301!\207"
[user-error "Register doesn't contain a buffer position or configuration"]
4 "\n\n(fn VAL ARG)"]
(#s(cl--generic register-val-describe
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(hui-register-but t)
nil nil
#[514 "\301\302!\210\301\303\304\305!>\204�\306\307\310D\"\210\311H\305!>\204+�\306\307\310D\"\210\312H#!\207"
[cl-struct-hui-register-but-tags princ "Hyperbole button\n " format "%s in file %s\n" type-of signal wrong-type-argument hui-register-but 1 2]
10 "Print description of Hyperbole button register value VAL to `standard-output'.\n\n(fn VAL VERBOSE)"])
#s(cl--generic-method
(senator-register t)
nil nil
#[514 "\301\302!>\204�\303\304\305D\"\210\306H!\207"
[cl-struct-senator-register-tags cl-prin1-to-string type-of signal wrong-type-argument senator-register 1]
7 "\n\n(fn DATA VERBOSE)"])
#s(cl--generic-method
(frameset-register t)
nil nil
#[514 "\302!>\204�\303\304\305D\"\210\306H\211\307H >\204!�\303\304\310D\"\210\211\311HG\312\313\314\211\306U\2033�\315\2024�\316\317\320\307H >\204G�\303\304\310 D\"\210\321H\"$!\207"
[cl-struct-frameset-register-tags cl-struct-frameset-tags type-of signal wrong-type-argument frameset-register 1 0 frameset 7 princ format "a frameset (%d frame%s, saved on %s)." "" "s" format-time-string "%c" 2]
15 "Print basic info about frameset stored in DATA.\nCalled from `list-registers' and `view-register'. Internal use only.\n\n(fn DATA VERBOSE)"])
#s(cl--generic-method
(kmacro-register t)
nil nil
#[514 "\301\302\303\304\305!>\204�\306\307\310D\"\210\311H!\"!\207"
[cl-struct-kmacro-register-tags princ format "a keyboard macro:\n %s" key-description type-of signal wrong-type-argument kmacro-register 1]
10 "\n\n(fn DATA VERBOSE)"])
#s(cl--generic-method
(string t)
nil nil
#[514 "\301!\262\302=\203�\303\304G\305$\210\202 �\306\304G$\210\211\203*�\307\310!\210\307!\207\311\312\313\314\304\315 \316Z]^\"\"\203F�\307\317!\210\307\320\304\"!\207\311\321\"\203Q�\307\322!\207\307\323!\207"
[yank-excluded-properties copy-sequence t set-text-properties 0 nil remove-list-of-text-properties princ "the text:\n" string-match format "[^ \n].\\{,%d\\}" 20 window-width 6 "text starting with\n " match-string "^[ \n]+$" "whitespace" "the empty string"]
9 "\n\n(fn VAL VERBOSE)"])
#s(cl--generic-method
(cons t)
nil nil
#[514 "\300@!\203Q�@\301!\302 \303\304\305\306!\203M�\302 p\307\310#\216\311\312\"\210\313 \307\314\"\216\315 !\210\316\317\320\302 !\321# =?\205D�\322P*\262\266\202\202N�\323\"!\207\324@!\203\\�\303\325!\207@\326=\203p�\303\327!\210\330A!\210\303\331!\207@\332=\203\204�\303\333!\210\330A!\210\303\331!\207@\334=\203\244�\303\335!\210\330A@!\210\303\336!\210\303AA@!\210\303\331!\207\211\203\303�\303\337!\210\205\313�\303\340!\210\303@!\210\341 \210A\262\202\254�\303\342!\210\303@!\207"
[window-configuration-p window-configuration-frame selected-frame princ format "a window configuration: %s." frame-live-p make-closure
#[0 "\302\301!\203 �\303\301\304\"\210\305\300!\205�\300q\207"
[V0 V1 frame-live-p select-frame norecord buffer-live-p]
3]
select-frame norecord current-window-configuration
#[0 "\301\300!\207"
[V0 set-window-configuration]
2]
set-window-configuration mapconcat
#[257 "\300\301!!\207"
[buffer-name window-buffer]
4 "\n\n(fn W)"]
window-list ", " " in another frame" "dead frame" frame-configuration-p "a frame configuration." file "the file " prin1 "." buffer "the buffer " file-query "a file-query reference:\n file " ",\n position " "the rectangle:\n" " " terpri "a rectangle starting with "]
15 "\n\n(fn VAL VERBOSE)"])
#s(cl--generic-method
(marker t)
nil nil
#[514 "\300!\211\204 �\301\302!\207\301\303!\210\301\304!!\210\301\305!\210\301\306!!\207"
[marker-buffer princ "a marker in no buffer" "a buffer position:\n buffer " buffer-name ", position " marker-position]
6 "\n\n(fn VAL VERBOSE)"])
#s(cl--generic-method
(number t)
nil nil
#[514 "\300!\207"
[princ]
4 "\n\n(fn VAL VERBOSE)"])
#s(cl--generic-method
(registerv t)
nil nil
#[514 "\301!>\204�\302\303\304D\"\210\305H\203;�\301!>\204$�\302\303\304D\"\210\305H\301!>\2046�\302\303\304D\"\210\306H!\207\307\310!\207"
[cl-struct-registerv-tags type-of signal wrong-type-argument registerv 2 1 princ "[UNPRINTABLE CONTENTS]."]
7 "\n\n(fn VAL VERBOSE)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301!\210\211\205 �\302!\207"
[princ "Garbage:\n" prin1]
4 "\n\n(fn VAL VERBOSE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301!\210\211\205 �\302!\207"
[princ "Garbage:\n" prin1]
4 "\n\n(fn VAL VERBOSE)"]))
#[514 "\300\301!\210\211\205 �\302!\207"
[princ "Garbage:\n" prin1]
4 "\n\n(fn VAL VERBOSE)"]
(#s(cl--generic register-val-insert
((0 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(hui-register-but)
nil nil
#[257 "\301\302!>\204�\303\304\305D\"\210\306H\302!>\204\"�\303\304\305D\"\210\307H\302!>\2045�\303\304\305D\"\210\306H\302!>\204H�\303\304\305D\"\210\310H$\207"
[cl-struct-hui-register-but-tags ebut:program type-of signal wrong-type-argument hui-register-but 1 4 2]
9 "Insert an ebut linking to the register button stored in VAL.\n\n(fn VAL)"])
#s(cl--generic-method
(senator-register)
nil nil
#[257 "\301\302!>\204�\303\304\305D\"\210\306H!\207"
[cl-struct-senator-register-tags semantic-insert-foreign-tag type-of signal wrong-type-argument senator-register 1]
6 "\n\n(fn DATA)"])
#s(cl--generic-method
(kmacro-register)
nil nil
#[257 "\301\302!>\204�\303\304\305D\"\210\306H!c\207"
[cl-struct-kmacro-register-tags format-kbd-macro type-of signal wrong-type-argument kmacro-register 1]
6 "\n\n(fn DATA)"])
#s(cl--generic-method
(marker)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\300!\203
�\301\300!p\"\207!\207"
[marker-position princ]
5 "\n\n(fn CL--CNM VAL)"]]
6 "\n\n(fn VAL)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(number)
nil nil
#[257 "\300p\"\207"
[princ]
4 "\n\n(fn VAL)"])
#s(cl--generic-method
(string)
nil nil
#[257 "\300!\207"
[insert-for-yank]
3 "\n\n(fn VAL)"])
#s(cl--generic-method
(cons)
nil nil
#[257 "\300!\207"
[insert-rectangle]
3 "\n\n(fn VAL)"])
#s(cl--generic-method
(registerv)
nil nil
#[257 "\301!>\204�\302\303\304D\"\210\211\305H\204 �\306\307\310\311C$\210\301!>\204,�\302\303\304D\"\210\211\305H\301!>\204>�\302\303\304D\"\210\312H!\207"
[cl-struct-registerv-tags type-of signal wrong-type-argument registerv 4 cl--assertion-failed
(registerv-insert-func val)
"Don't know how to insert register value %S" nil 1]
6 "\n\n(fn VAL)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301!\207"
[user-error "Register does not contain text"]
3 "\n\n(fn VAL)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301!\207"
[user-error "Register does not contain text"]
3 "\n\n(fn VAL)"]))
#[257 "\300\301!\207"
[user-error "Register does not contain text"]
3 "\n\n(fn VAL)"]
(#s(cl--generic map-keys
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\"\207"
[map-apply
#[514 "\207"
[]
3 "\n\n(fn KEY _)"]]
4 "\n\n(fn MAP)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\"\207"
[map-apply
#[514 "\207"
[]
3 "\n\n(fn KEY _)"]]
4 "\n\n(fn MAP)"]))
#[257 "\300\301\"\207"
[map-apply
#[514 "\207"
[]
3 "\n\n(fn KEY _)"]]
4 "\n\n(fn MAP)"]
(#s(cl--generic map-values
((0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(array)
nil nil
#[257 "\300\301\"\207"
[append nil]
4 "Convert MAP into a list.\n\n(fn MAP)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\"\207"
[map-apply
#[514 "\207"
[]
3 "\n\n(fn _ VALUE)"]]
4 "\n\n(fn MAP)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\"\207"
[map-apply
#[514 "\207"
[]
3 "\n\n(fn _ VALUE)"]]
4 "\n\n(fn MAP)"]))
#[257 "\300\301\"\207"
[map-apply
#[514 "\207"
[]
3 "\n\n(fn _ VALUE)"]]
4 "\n\n(fn MAP)"]
(#s(cl--generic map-pairs
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\"\207"
[map-apply cons]
4 "\n\n(fn MAP)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\"\207"
[map-apply cons]
4 "\n\n(fn MAP)"]))
#[257 "\300\301\"\207"
[map-apply cons]
4 "\n\n(fn MAP)"]
(#s(cl--generic map-length
((0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(array)
nil nil
#[257 "\211G\207"
[]
2 "\n\n(fn MAP)"])
#s(cl--generic-method
(list)
nil nil
#[257 "\211\211:\205\n�\211@:?\262\203�\211G\300\245\207\211G\207"
[2]
3 "\n\n(fn MAP)"])
#s(cl--generic-method
(hash-table)
nil nil
#[257 "\300!\207"
[hash-table-count]
3 "\n\n(fn MAP)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300C\301\302\303\"\"\210\211\242\207"
[0 map-do make-closure
#[514 "\300\211\242T\240\207"
[V0]
4 "\n\n(fn K V)"]]
6 "\n\n(fn MAP)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300C\301\302\303\"\"\210\211\242\207"
[0 map-do make-closure
#[514 "\300\211\242T\240\207"
[V0]
4 "\n\n(fn K V)"]]
6 "\n\n(fn MAP)"]))
#[257 "\300C\301\302\303\"\"\210\211\242\207"
[0 map-do make-closure
#[514 "\300\211\242T\240\207"
[V0]
4 "\n\n(fn K V)"]]
6 "\n\n(fn MAP)"]
(#s(cl--generic map-apply
((1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t array)
nil nil
#[514 "\300\301\302\"\"\207"
[seq-map-indexed make-closure
#[514 "\300\"\207"
[V0]
5 "\n\n(fn ELT INDEX)"]]
6 "\n\n(fn FUNCTION MAP)"])
#s(cl--generic-method
(t hash-table)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil maphash make-closure
#[514 "\300\301\"\300\242B\240\207"
[V0 V1]
6 "\n\n(fn KEY VALUE)"]]
8 "\n\n(fn FUNCTION MAP)"])
#s(cl--generic-method
(t list)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 "\211\211:\205\n�\211@:?\262\203� \207\300\301\302\"\"\207"
[mapcar make-closure
#[257 "\300@A\"\207"
[V0]
4 "\n\n(fn PAIR)"]]
7 "\n\n(fn CL--CNM FUNCTION MAP)"]]
6 "\n\n(fn FUNCTION MAP)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil map-do make-closure
#[514 "\300\301\"\300\242B\240\207"
[V0 V1]
6 "\n\n(fn K V)"]]
8 "\n\n(fn FUNCTION MAP)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil map-do make-closure
#[514 "\300\301\"\300\242B\240\207"
[V0 V1]
6 "\n\n(fn K V)"]]
8 "\n\n(fn FUNCTION MAP)"]))
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil map-do make-closure
#[514 "\300\301\"\300\242B\240\207"
[V0 V1]
6 "\n\n(fn K V)"]]
8 "\n\n(fn FUNCTION MAP)"]
(#s(cl--generic map-keys-apply
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\207"
[map-apply make-closure
#[514 "\300!\207"
[V0]
4 "\n\n(fn KEY _)"]]
6 "\n\n(fn FUNCTION MAP)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\207"
[map-apply make-closure
#[514 "\300!\207"
[V0]
4 "\n\n(fn KEY _)"]]
6 "\n\n(fn FUNCTION MAP)"]))
#[514 "\300\301\302\"\"\207"
[map-apply make-closure
#[514 "\300!\207"
[V0]
4 "\n\n(fn KEY _)"]]
6 "\n\n(fn FUNCTION MAP)"]
(#s(cl--generic map-values-apply
((1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t array)
nil nil
#[514 "\300\"\207"
[mapcar]
5 "\n\n(fn FUNCTION MAP)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\207"
[map-apply make-closure
#[514 "\300!\207"
[V0]
4 "\n\n(fn _ VAL)"]]
6 "\n\n(fn FUNCTION MAP)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\207"
[map-apply make-closure
#[514 "\300!\207"
[V0]
4 "\n\n(fn _ VAL)"]]
6 "\n\n(fn FUNCTION MAP)"]))
#[514 "\300\301\302\"\"\207"
[map-apply make-closure
#[514 "\300!\207"
[V0]
4 "\n\n(fn _ VAL)"]]
6 "\n\n(fn FUNCTION MAP)"]
(#s(cl--generic map-filter
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\303\304\"\"\"\207"
[delq nil map-apply make-closure
#[514 "\300\"\205\n�B\207"
[V0]
5 "\n\n(fn KEY VAL)"]]
8 "\n\n(fn PRED MAP)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\303\304\"\"\"\207"
[delq nil map-apply make-closure
#[514 "\300\"\205\n�B\207"
[V0]
5 "\n\n(fn KEY VAL)"]]
8 "\n\n(fn PRED MAP)"]))
#[514 "\300\301\302\303\304\"\"\"\207"
[delq nil map-apply make-closure
#[514 "\300\"\205\n�B\207"
[V0]
5 "\n\n(fn KEY VAL)"]]
8 "\n\n(fn PRED MAP)"]
(#s(cl--generic map-remove
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\207"
[map-filter make-closure
#[514 "\300\"?\207"
[V0]
5 "\n\n(fn KEY VAL)"]]
6 "\n\n(fn PRED MAP)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\207"
[map-filter make-closure
#[514 "\300\"?\207"
[V0]
5 "\n\n(fn KEY VAL)"]]
6 "\n\n(fn PRED MAP)"]))
#[514 "\300\301\302\"\"\207"
[map-filter make-closure
#[514 "\300\"?\207"
[V0]
5 "\n\n(fn KEY VAL)"]]
6 "\n\n(fn PRED MAP)"]
(#s(cl--generic mapp
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\211<\206�\300!\206�\301!\207"
[hash-table-p arrayp]
3 "\n\n(fn MAP)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\211<\206�\300!\206�\301!\207"
[hash-table-p arrayp]
3 "\n\n(fn MAP)"]))
#[257 "\211<\206�\300!\206�\301!\207"
[hash-table-p arrayp]
3 "\n\n(fn MAP)"]
(#s(cl--generic map-empty-p
((0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(list)
nil nil
#[257 "\211?\207"
[]
2 "\n\n(fn MAP)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\301U\207"
[map-length 0]
3 "\n\n(fn MAP)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\301U\207"
[map-length 0]
3 "\n\n(fn MAP)"]))
#[257 "\300!\301U\207"
[map-length 0]
3 "\n\n(fn MAP)"]
(#s(cl--generic map-contains-key
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(hash-table t)
nil nil
#[770 "\300\211\301#=?\207"
[(nil)
gethash]
9 "Return non-nil if MAP contains KEY, ignoring TESTFN.\n\n(fn MAP KEY &optional TESTFN)"])
#s(cl--generic-method
(array t)
nil nil
#[770 "\300!\205\n�GW\207"
[natnump]
5 "Return non-nil if KEY is an index of MAP, ignoring TESTFN.\n\n(fn MAP KEY &optional TESTFN)"])
#s(cl--generic-method
(list t)
nil nil
#[770 "\211:\205\n�\211@:?\262\203�\300#\207\301\211\302\303\206#�\304%=?\207"
[map--plist-member
(nil)
alist-get nil equal]
11 "Return non-nil if MAP contains KEY.\nIf MAP is an alist, TESTFN defaults to `equal'.\nIf MAP is a plist, TESTFN defaults to `eq'.\n\n(fn MAP KEY &optional TESTFN)"])
#s(cl--generic-method
(t t)
nil nil
#[770 "\211C\211\242\204 �\211\300\240\210\301\302\303#\"\207"
[equal map-some make-closure
#[514 "\300\242\301\"\207"
[V0 V1]
5 "\n\n(fn K V)"]]
9 "\n\n(fn MAP KEY &optional TESTFN)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[770 "\211C\211\242\204 �\211\300\240\210\301\302\303#\"\207"
[equal map-some make-closure
#[514 "\300\242\301\"\207"
[V0 V1]
5 "\n\n(fn K V)"]]
9 "\n\n(fn MAP KEY &optional TESTFN)"]))
#[770 "\211C\211\242\204 �\211\300\240\210\301\302\303#\"\207"
[equal map-some make-closure
#[514 "\300\242\301\"\207"
[V0 V1]
5 "\n\n(fn K V)"]]
9 "\n\n(fn MAP KEY &optional TESTFN)"]
(#s(cl--generic map-some
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[map--break map-do make-closure
#[514 "\300\"\211\205\f�\301\302\"\207"
[V0 throw map--break]
6 "\n\n(fn KEY VALUE)"]
nil]
6 "\n\n(fn PRED MAP)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[map--break map-do make-closure
#[514 "\300\"\211\205\f�\301\302\"\207"
[V0 throw map--break]
6 "\n\n(fn KEY VALUE)"]
nil]
6 "\n\n(fn PRED MAP)"]))
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[map--break map-do make-closure
#[514 "\300\"\211\205\f�\301\302\"\207"
[V0 throw map--break]
6 "\n\n(fn KEY VALUE)"]
nil]
6 "\n\n(fn PRED MAP)"]
(#s(cl--generic map-every-p
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[map--break map-do make-closure
#[514 "\300\"\206 �\301\302\303\"\207"
[V0 throw map--break nil]
5 "\n\n(fn KEY VALUE)"]
t]
6 "\n\n(fn PRED MAP)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[map--break map-do make-closure
#[514 "\300\"\206 �\301\302\303\"\207"
[V0 throw map--break nil]
5 "\n\n(fn KEY VALUE)"]
t]
6 "\n\n(fn PRED MAP)"]))
#[514 "\3002�\301\302\303\"\"\210\3040\207"
[map--break map-do make-closure
#[514 "\300\"\206 �\301\302\303\"\207"
[V0 throw map--break nil]
5 "\n\n(fn KEY VALUE)"]
t]
6 "\n\n(fn PRED MAP)"]
(#s(cl--generic map-insert
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(list t t)
nil nil
#[771 "\211:\205\n�\211@:?\262\203�BB\207BB\207"
[]
6 "Cons KEY and VALUE to the front of MAP.\n\n(fn MAP KEY VALUE)"])
#s(cl--generic-method
(t t t)
nil nil
#[771 "\300!\301#\210\207"
[map-copy map-put!]
8 "\n\n(fn MAP KEY VALUE)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[771 "\300!\301#\210\207"
[map-copy map-put!]
8 "\n\n(fn MAP KEY VALUE)"]))
#[771 "\300!\301#\210\207"
[map-copy map-put!]
8 "\n\n(fn MAP KEY VALUE)"]
(#s(cl--generic cl-generic-generalizers
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head eieio--static))
nil nil
#[257 " D\207"
[eieio--generic-static-symbol-generalizer eieio--generic-static-object-generalizer]
3 "\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
((head subclass))
nil nil
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head derived-mode))
nil nil
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
nil)
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
#[128 "\301\302\300#\303\304#\207"
[#[128 "\301\302\300#\303\304#\207"
[#[128 "\301\302\300#\303\304#\207"
[#[128 "\301\302\300#\303\304#\207"
[#[128 "\301\302\300#\303\304#\207"
[#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]
make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]
make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]
make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]
make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]
make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]
(#s(cl--generic eieio-object-name-string
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(eieio-named)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\300\301\"\206 � \207"
[slot-value object-name]
5 "\n\n(fn CL--CNM OBJ)"]]
6 "Return a string which is OBJ's name.\n\n(fn OBJ)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\301\"\206�\302\303\304!\305!#\207"
[eieio--object-names gethash format "%s-%x" eieio-object-class sxhash-eq]
6 "\n\n(fn OBJ)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\301\"\206�\302\303\304!\305!#\207"
[eieio--object-names gethash format "%s-%x" eieio-object-class sxhash-eq]
6 "\n\n(fn OBJ)"]))
#[257 "\301\"\206�\302\303\304!\305!#\207"
[eieio--object-names gethash format "%s-%x" eieio-object-class sxhash-eq]
6 "\n\n(fn OBJ)"]
(#s(cl--generic cl-generic-generalizers
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head eieio--static))
nil nil
#[257 " D\207"
[eieio--generic-static-symbol-generalizer eieio--generic-static-object-generalizer]
3 "\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
((head subclass))
nil nil
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head derived-mode))
nil nil
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
nil)
#s(cl--generic-method
((head subclass))
nil nil
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"]
(#s(cl--generic slot-missing
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(forge-repository t t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[1284 "\300=\203�\301=\203�\302\303\"\304\302\305\"Q\207 \207"
[oref slug eieio-oref owner "/" name]
10 "\n\n(fn CL--CNM OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"]]
6 "\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t t t)
nil nil
#[1027 "\300\301\302!\203�\303!\202�D\"\207"
[signal invalid-slot-name eieio-object-p eieio-object-name]
8 "\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[1027 "\300\301\302!\203�\303!\202�D\"\207"
[signal invalid-slot-name eieio-object-p eieio-object-name]
8 "\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"]))
#[1027 "\300\301\302!\203�\303!\202�D\"\207"
[signal invalid-slot-name eieio-object-p eieio-object-name]
8 "\n\n(fn OBJECT SLOT-NAME OPERATION &optional NEW-VALUE)"]
(#s(cl--generic destructor
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[385 "\300\207"
[nil]
3 "\n\n(fn THIS &rest PARAMS)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[385 "\300\207"
[nil]
3 "\n\n(fn THIS &rest PARAMS)"]))
#[385 "\300\207"
[nil]
3 "\n\n(fn THIS &rest PARAMS)"]
(#s(cl--generic object-print
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[385 "\300\301\302\"\"\207"
[eieio-object-name apply concat]
7 "Pretty printer for object THIS. Call function `object-name' with STRINGS.\nThe default method for printing object THIS is to use the\nfunction `object-name'.\n\nIt is sometimes useful to put a summary of the object into the\ndefault #<notation> string when using EIEIO browsing tools.\n\nImplement this function and specify STRINGS in a call to\n`call-next-method' to provide additional summary information.\nWhen passing in extra strings from child classes, always remember\nto prepend a space.\n\n(fn THIS &rest STRINGS)"])
#s(cl--generic-method
(t)
nil nil
#[385 "\300\301\"\207"
[format "%S"]
5 "\n\n(fn THIS &rest STRINGS)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[385 "\300\301\"\207"
[format "%S"]
5 "\n\n(fn THIS &rest STRINGS)"]))
#[385 "\300\301\"\207"
[format "%S"]
5 "\n\n(fn THIS &rest STRINGS)"]
(#s(cl--generic project-roots
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\301\302!)C\207"
[project--within-roots-fallback t project-root]
3 "\n\n(fn PROJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\301\302!)C\207"
[project--within-roots-fallback t project-root]
3 "\n\n(fn PROJECT)"]))
#[257 "\301\302!)C\207"
[project--within-roots-fallback t project-root]
3 "\n\n(fn PROJECT)"]
(#s(cl--generic project-external-roots
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head vc))
nil nil
#[257 "\301\302\303\304 \"!\305!C\"\207"
[project-vc-external-roots-function project-subtract-directories project-combine-directories mapcar file-name-as-directory project-root]
6 "\n\n(fn PROJECT)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn PROJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn PROJECT)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn PROJECT)"]
(#s(cl--generic project-name
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head projectile))
nil nil
#[257 "\300A!\207"
[projectile-project-name]
3 "\n\n(fn PROJECT)"])
#s(cl--generic-method
((head vc))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\300\301\302!\"\206 � \207"
[project--value-in-dir project-vc-name project-root]
6 "\n\n(fn CL--CNM PROJECT)"]]
6 "\n\n(fn PROJECT)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302!!!\207"
[file-name-nondirectory directory-file-name project-root]
5 "\n\n(fn PROJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302!!!\207"
[file-name-nondirectory directory-file-name project-root]
5 "\n\n(fn PROJECT)"]))
#[257 "\300\301\302!!!\207"
[file-name-nondirectory directory-file-name project-root]
5 "\n\n(fn PROJECT)"]
(#s(cl--generic project-ignores
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head vc)
t)
nil nil
#[514 "\3018\302\303\304\"\305\306\"\"\207"
[vc-directory-exclusion-list 2 append project--value-in-dir project-vc-ignores mapcar
#[257 "\211\300P\207"
["/"]
3 "\n\n(fn DIR)"]]
8 "\n\n(fn PROJECT DIR)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\302\303!\210\304\305\" \244\207"
[vc-directory-exclusion-list grep-find-ignored-files require grep mapcar
#[257 "\211\300P\207"
["/"]
3 "\n\n(fn DIR)"]]
5 "\n\n(fn PROJECT DIR)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\302\303!\210\304\305\" \244\207"
[vc-directory-exclusion-list grep-find-ignored-files require grep mapcar
#[257 "\211\300P\207"
["/"]
3 "\n\n(fn DIR)"]]
5 "\n\n(fn PROJECT DIR)"]))
#[514 "\302\303!\210\304\305\" \244\207"
[vc-directory-exclusion-list grep-find-ignored-files require grep mapcar
#[257 "\211\300P\207"
["/"]
3 "\n\n(fn DIR)"]]
5 "\n\n(fn PROJECT DIR)"]
(#s(cl--generic project-files
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head projectile))
nil nil
#[513 "\300!\301\302\303\"\304!\"\207"
[project-root mapcar make-closure
#[257 "\300P\207"
[V0]
3 "\n\n(fn F)"]
projectile-project-files]
7 "\n\n(fn PROJECT &optional DIRS)"])
#s(cl--generic-method
((head vc))
nil nil
#[513 "\300\301\302\"\206
�\303!C\"\207"
[mapcan make-closure
#[257 "\301\302\303\3008\"\300A@\211\203�\304\305\306\307!\227P!!\210\310\303\3008\"\203?�\211\311=\2049�\211\312=\203?�\2039�\313\314\315 \"\203?�\316#\207\317\320\300\"\"\207"
[V0 project--value-in-dir project-vc-ignores 2 require intern "vc-" symbol-name file-equal-p Hg Git version<= "1.9" vc-git--program-version project--vc-list-files project--files-in-directory project--dir-ignores]
8 "\n\n(fn DIR)"]
project-root]
6 "\n\n(fn PROJECT &optional DIRS)"])
#s(cl--generic-method
(t)
nil nil
#[513 "\300\301\302\"\206
�\303!C\"\207"
[mapcan make-closure
#[257 "\301\302\300\"\"\207"
[V0 project--files-in-directory project--dir-ignores]
6 "\n\n(fn DIR)"]
project-root]
6 "\n\n(fn PROJECT &optional DIRS)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[513 "\300\301\302\"\206
�\303!C\"\207"
[mapcan make-closure
#[257 "\301\302\300\"\"\207"
[V0 project--files-in-directory project--dir-ignores]
6 "\n\n(fn DIR)"]
project-root]
6 "\n\n(fn PROJECT &optional DIRS)"]))
#[513 "\300\301\302\"\206
�\303!C\"\207"
[mapcan make-closure
#[257 "\301\302\300\"\"\207"
[V0 project--files-in-directory project--dir-ignores]
6 "\n\n(fn DIR)"]
project-root]
6 "\n\n(fn PROJECT &optional DIRS)"]
(#s(cl--generic project-buffers
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head projectile))
nil nil
#[257 "\300A!\207"
[projectile-project-buffers]
3 "\n\n(fn PROJECT)"])
#s(cl--generic-method
((head vc))
nil nil
#[257 "\300\301\302!!!\303!\206�\304!?\205 �\305\306\307\"\310 \"\311C\311\312 \211\203Q�\211@\300\313\314\"!\240\210\315\242\"\203J�\316\306\317\"\"\204J�\211B\262A\266\202\202!�\210\211\237\207"
[expand-file-name file-name-as-directory project-root project--vc-merge-submodules-p project--submodule-p mapcar make-closure
#[257 "\301\302\300#\207"
[V0 format "%s%s/"]
5 "\n\n(fn M)"]
project--git-submodules nil buffer-list buffer-local-value default-directory string-prefix-p cl-find-if
#[257 "\301\300\242\"\207"
[V0 string-prefix-p]
4 "\n\n(fn MODULE)"]]
12 "\n\n(fn PROJECT)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302!!!\303\304 \211\203(�\211@\305\300\306\307\"!\"\203!�\211B\262A\266\202\202\n�\210\211\237\207"
[expand-file-name file-name-as-directory project-root nil buffer-list string-prefix-p buffer-local-value default-directory]
11 "\n\n(fn PROJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302!!!\303\304 \211\203(�\211@\305\300\306\307\"!\"\203!�\211B\262A\266\202\202\n�\210\211\237\207"
[expand-file-name file-name-as-directory project-root nil buffer-list string-prefix-p buffer-local-value default-directory]
11 "\n\n(fn PROJECT)"]))
#[257 "\300\301\302!!!\303\304 \211\203(�\211@\305\300\306\307\"!\"\203!�\211B\262A\266\202\202\n�\210\211\237\207"
[expand-file-name file-name-as-directory project-root nil buffer-list string-prefix-p buffer-local-value default-directory]
11 "\n\n(fn PROJECT)"]
(#s(cl--generic xref-location-line
((0 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(xref-etags-location)
nil nil
#[257 "\301!>\210\211\302H\211A@\207"
[cl-struct-xref-etags-location-tags type-of 1]
3 "\n\n(fn L)"])
#s(cl--generic-method
(xref-file-location)
nil nil
#[257 "\301!>\204�\302\303\304D\"\210\211\305H\207"
[cl-struct-xref-file-location-tags type-of signal wrong-type-argument xref-file-location 2]
5 "\n\n(fn L)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn LOCATION)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn LOCATION)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn LOCATION)"]
(#s(cl--generic xref-match-length
((0 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(xref-match-item)
nil nil
#[257 "\300!\207"
[xref-match-item-length]
3 "Return the length of the match.\n\n(fn ITEM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn ITEM)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn ITEM)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn ITEM)"]
(#s(cl--generic xref-backend-references
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((eql cider)
t)
nil nil
#[514 "\300 \210\301\302!\210\303 \211\205�\304\"\211\205�\305 \211\205%�\306\307\310\311\312\"\"\"\207"
[cider-ensure-connected cider-ensure-op-supported "fn-refs" cider-current-ns cider-sync-request:fn-refs buffer-list seq-filter identity mapcar make-closure
#[257 "\301!\302\303\"\302\304\"\305!\306!\211\205�\307!\205K�\211\203/�\310\311\206+�\312$\202K�rq\210\212\312b\210y\210\313\206@�\312!\210`*\310\314#\262\205]�\300\235?\205]�\205]�\315!\211\203e�\316!\210\205m�\317\"\207"
[V0 cider--xref-extract-file nrepl-dict-get "column" "line" cider--xref-extract-friendly-file-name cider--find-buffer-for-file buffer-file-name record xref-file-location 0 move-to-column xref-buffer-location file-exists-p kill-buffer xref-make]
12 "\n\n(fn INFO)"]]
11 "Find references of VAR.\n\n(fn BACKEND VAR)"])
#s(cl--generic-method
((eql eglot)
t)
nil nil
#[514 "\206 �\301\302\303\304#\207"
[eglot--lsp-xref-refs eglot--lsp-xrefs-for-method :textDocument/references :extra-params
(:context
(:includeDeclaration t))]
6 "\n\n(fn BACKEND IDENTIFIER)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\303\304!\305!\306!B\262\"\207"
[mapcan make-closure
#[257 "\301\302\"\210\303 \210\304\300\"\301\305\"\210\207"
[V0 message "Searching %s..." redisplay xref-references-in-directory "Searching %s... done"]
5 "\n\n(fn DIR)"]
project-current t xref--project-root project-external-roots]
8 "\n\n(fn BACKEND IDENTIFIER)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\303\304!\305!\306!B\262\"\207"
[mapcan make-closure
#[257 "\301\302\"\210\303 \210\304\300\"\301\305\"\210\207"
[V0 message "Searching %s..." redisplay xref-references-in-directory "Searching %s... done"]
5 "\n\n(fn DIR)"]
project-current t xref--project-root project-external-roots]
8 "\n\n(fn BACKEND IDENTIFIER)"]))
#[514 "\300\301\302\"\303\304!\305!\306!B\262\"\207"
[mapcan make-closure
#[257 "\301\302\"\210\303 \210\304\300\"\301\305\"\210\207"
[V0 message "Searching %s..." redisplay xref-references-in-directory "Searching %s... done"]
5 "\n\n(fn DIR)"]
project-current t xref--project-root project-external-roots]
8 "\n\n(fn BACKEND IDENTIFIER)"]
(#s(cl--generic xref-backend-identifier-completion-ignore-case
((0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((eql 'etags))
nil nil
#[257 "\300 \207"
[find-tag--completion-ignore-case]
2 "\n\n(fn BACKEND)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\207"
[completion-ignore-case]
2 "\n\n(fn BACKEND)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\207"
[completion-ignore-case]
2 "\n\n(fn BACKEND)"]))
#[257 "\207"
[completion-ignore-case]
2 "\n\n(fn BACKEND)"]
(#s(cl--generic jsonrpc-connection-ready-p
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(eglot-lsp-server t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 " \205�?\207"
[eglot--recent-changes]
4 "\n\n(fn CL--CNM SERVER WHAT)"]]
6 "Tell if SERVER is ready for WHAT in current buffer.\n\n(fn SERVER WHAT)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[t]
3 "\n\n(fn S WHAT)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[t]
3 "\n\n(fn S WHAT)"]))
#[514 "\300\207"
[t]
3 "\n\n(fn S WHAT)"]
(#s(cl--generic eglot-initialization-options
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\301\302!\303\"\304!\203�\211!\207\211\206�\207"
[eglot--{} plist-get eglot--saved-initargs :initializationOptions functionp]
4 "\n\n(fn S)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\301\302!\303\"\304!\203�\211!\207\211\206�\207"
[eglot--{} plist-get eglot--saved-initargs :initializationOptions functionp]
4 "\n\n(fn S)"]))
#[257 "\301\302!\303\"\304!\203�\211!\207\211\206�\207"
[eglot--{} plist-get eglot--saved-initargs :initializationOptions functionp]
4 "\n\n(fn S)"]
(#s(cl--generic eglot-register-capability
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t
(eql workspace/didChangeWatchedFiles)
t)
nil nil
#[899 "\300\301\"A@\211\203<�\211@\302>\203%�\211A\204 �\303\304@\"\210\211AA\262\202�\305>A@\2033�\306\262\202�\303\307@\"\210\202�\210\310#\210\306C\311\312\"\313\311\314\315\316 !!\"!\306C\211\317\320
$\240\210\317\321
%\216\211\203\230�\211@\322!\203\221�\323\324\242#\325\f!\326 \327\"B#\266A\266\202\202m�\210\330\331\332G G#D\240)\207"
[plist-member :watchers
(:watchers :allow-other-keys)
error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:watchers)" eglot-unregister-capability mapcar
#[257 "\301\302\"A@\301\303\"A@\304\305\306>\307>\310>%\210\311\312\211#\206$�\313B\207"
[eglot-strict-mode plist-member :globPattern :kind eglot--check-object FileSystemWatcher enforce-required-keys disallow-non-standard-keys check-types eglot--glob-compile t 7]
10 "\n\n(fn JSONRPC-LAMBDA-ELEM18)"]
delete-dups file-name-directory project-files eglot--project make-closure
#[257 "\303\211\242\243\211\242\243\211\242\243\211\242\243\304\267\202$�\305\202%�\306\202%�\307\202%�\303\211\205.�\310\305S\"\311>\203\210�\301\303\211\211\211:\203j�@\262\211A\262\242\262\312\"\313V\205Y� !\211\262?\211\262\203j�A\262\202:�\266\204\203\210�\314\302\315\316\317\320\321\f!\322 F!D#\262\f\266\n\303\202\243�\323=\205\241�\300\242\n\324E!\210 \325E\262
\326\266\212\262\204�\207"
[V0 V1 V2 nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(created 24 changed 28 deleted 32))
1 2 3 ash
(created changed deleted)
logand 0 jsonrpc-notify :workspace/didChangeWatchedFiles :changes vector :uri eglot--path-to-uri :type renamed 'deleted 'created :recurse]
22 "\n\n(fn EVENT)"]
#[0 "\300\242?\205 �\304\303\302\301#\207"
[V0 V1 V2 V3 eglot-unregister-capability]
4]
file-readable-p file-notify-add-watch
(change)
eglot--file-watches puthash gethash :message format "OK, watching %s directories in %s watchers"]
19 "Handle dynamic registration of workspace/didChangeWatchedFiles.\n\n(fn SERVER METHOD ID &key WATCHERS)"])
#s(cl--generic-method
(t t t)
nil nil
#[899 "\300\301\"\207"
[eglot--warn "Server tried to register unsupported capability `%s'"]
7 "\n\n(fn S METHOD ID &rest PARAMS)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[899 "\300\301\"\207"
[eglot--warn "Server tried to register unsupported capability `%s'"]
7 "\n\n(fn S METHOD ID &rest PARAMS)"]))
#[899 "\300\301\"\207"
[eglot--warn "Server tried to register unsupported capability `%s'"]
7 "\n\n(fn S METHOD ID &rest PARAMS)"]
(#s(cl--generic eglot-unregister-capability
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t
(eql workspace/didChangeWatchedFiles)
t)
nil nil
#[771 "\300\301\302\303!\"\"\210\304\303!\"\210\305\306D\207"
[mapc file-notify-rm-watch gethash eglot--file-watches remhash t "OK"]
9 "Handle dynamic unregistration of workspace/didChangeWatchedFiles.\n\n(fn SERVER METHOD ID)"])
#s(cl--generic-method
(t t t)
nil nil
#[899 "\300\301\"\207"
[eglot--warn "Server tried to unregister unsupported capability `%s'"]
7 "\n\n(fn S METHOD ID &rest PARAMS)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[899 "\300\301\"\207"
[eglot--warn "Server tried to unregister unsupported capability `%s'"]
7 "\n\n(fn S METHOD ID &rest PARAMS)"]))
#[899 "\300\301\"\207"
[eglot--warn "Server tried to unregister unsupported capability `%s'"]
7 "\n\n(fn S METHOD ID &rest PARAMS)"]
(#s(cl--generic eglot-client-capabilities
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\303\304\305\306\307\310\311\312\313\314\n!\203�\315\202�\305D\316\317\320\305\321\305\257\322\323\313\315\324\305\325\305\326\305\257\327\313\315\330\331\332\333!\204>�\334 \203>�\305\202?�\315\335BB\336\305\257\337\313\315\340\341\342!\203T�\343\202U�\344F\345\313\315\346\347F\350\351\352\313\315\353\305F\354\313\315\353\305F\355\313\315\353\305F\356\313\315\353\305F\357\313\315\360\305\361\362\363\364\365\366\"\"D\257\367\370\371\313\315\372\373\374\305\257\375\376\377\201@�\201A�\201B�\201C�\201D�\201E�\201F�\315\201G�\315\201H�\362\363\364\365\366 \"\"D\257\257\"\201I�\201J�\201K�\201L�\201M�D\201N�\n\257\n\207"
[eglot--symbol-kind-names eglot--tag-faces eglot--{} :workspace :applyEdit t :executeCommand
(:dynamicRegistration :json-false)
:workspaceEdit
(:documentChanges t)
:didChangeWatchedFiles :dynamicRegistration eglot--trampish-p :json-false :symbol
(:dynamicRegistration :json-false)
:configuration :workspaceFolders :textDocument :synchronization :willSave :willSaveWaitUntil :didSave :completion :completionItem :snippetSupport eglot--stay-out-of-p yasnippet eglot--snippet-expansion-fn
(:deprecatedSupport t :resolveSupport
(:properties
["documentation" "details" "additionalTextEdits"])
:tagSupport
(:valueSet
[1]))
:contextSupport :hover :contentFormat fboundp gfm-view-mode
["markdown" "plaintext"]
["plaintext"]
:signatureHelp :signatureInformation
(:parameterInformation
(:labelOffsetSupport t)
:activeParameterSupport t)
:references
(:dynamicRegistration :json-false)
:definition :linkSupport :declaration :implementation :typeDefinition :documentSymbol :hierarchicalDocumentSymbolSupport :symbolKind :valueSet apply vector mapcar car :documentHighlight
(:dynamicRegistration :json-false)
:codeAction :codeActionLiteralSupport
(:codeActionKind
(:valueSet
["quickfix" "refactor" "refactor.extract" "refactor.inline" "refactor.rewrite" "source" "source.organizeImports"]))
:isPreferredSupport :formatting
(:dynamicRegistration :json-false)
:rangeFormatting
(:dynamicRegistration :json-false)
:rename
(:dynamicRegistration :json-false)
:inlayHint
(:dynamicRegistration :json-false)
:publishDiagnostics :relatedInformation :codeDescriptionSupport :tagSupport :window
(:workDoneProgress t)
:general :positionEncodings
["utf-32" "utf-8" "utf-16"]
:experimental]
48 "\n\n(fn S)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\303\304\305\306\307\310\311\312\313\314\n!\203�\315\202�\305D\316\317\320\305\321\305\257\322\323\313\315\324\305\325\305\326\305\257\327\313\315\330\331\332\333!\204>�\334 \203>�\305\202?�\315\335BB\336\305\257\337\313\315\340\341\342!\203T�\343\202U�\344F\345\313\315\346\347F\350\351\352\313\315\353\305F\354\313\315\353\305F\355\313\315\353\305F\356\313\315\353\305F\357\313\315\360\305\361\362\363\364\365\366\"\"D\257\367\370\371\313\315\372\373\374\305\257\375\376\377\201@�\201A�\201B�\201C�\201D�\201E�\201F�\315\201G�\315\201H�\362\363\364\365\366 \"\"D\257\257\"\201I�\201J�\201K�\201L�\201M�D\201N�\n\257\n\207"
[eglot--symbol-kind-names eglot--tag-faces eglot--{} :workspace :applyEdit t :executeCommand
(:dynamicRegistration :json-false)
:workspaceEdit
(:documentChanges t)
:didChangeWatchedFiles :dynamicRegistration eglot--trampish-p :json-false :symbol
(:dynamicRegistration :json-false)
:configuration :workspaceFolders :textDocument :synchronization :willSave :willSaveWaitUntil :didSave :completion :completionItem :snippetSupport eglot--stay-out-of-p yasnippet eglot--snippet-expansion-fn
(:deprecatedSupport t :resolveSupport
(:properties
["documentation" "details" "additionalTextEdits"])
:tagSupport
(:valueSet
[1]))
:contextSupport :hover :contentFormat fboundp gfm-view-mode
["markdown" "plaintext"]
["plaintext"]
:signatureHelp :signatureInformation
(:parameterInformation
(:labelOffsetSupport t)
:activeParameterSupport t)
:references
(:dynamicRegistration :json-false)
:definition :linkSupport :declaration :implementation :typeDefinition :documentSymbol :hierarchicalDocumentSymbolSupport :symbolKind :valueSet apply vector mapcar car :documentHighlight
(:dynamicRegistration :json-false)
:codeAction :codeActionLiteralSupport
(:codeActionKind
(:valueSet
["quickfix" "refactor" "refactor.extract" "refactor.inline" "refactor.rewrite" "source" "source.organizeImports"]))
:isPreferredSupport :formatting
(:dynamicRegistration :json-false)
:rangeFormatting
(:dynamicRegistration :json-false)
:rename
(:dynamicRegistration :json-false)
:inlayHint
(:dynamicRegistration :json-false)
:publishDiagnostics :relatedInformation :codeDescriptionSupport :tagSupport :window
(:workDoneProgress t)
:general :positionEncodings
["utf-32" "utf-8" "utf-16"]
:experimental]
48 "\n\n(fn S)"]))
#[257 "\303\304\305\306\307\310\311\312\313\314\n!\203�\315\202�\305D\316\317\320\305\321\305\257\322\323\313\315\324\305\325\305\326\305\257\327\313\315\330\331\332\333!\204>�\334 \203>�\305\202?�\315\335BB\336\305\257\337\313\315\340\341\342!\203T�\343\202U�\344F\345\313\315\346\347F\350\351\352\313\315\353\305F\354\313\315\353\305F\355\313\315\353\305F\356\313\315\353\305F\357\313\315\360\305\361\362\363\364\365\366\"\"D\257\367\370\371\313\315\372\373\374\305\257\375\376\377\201@�\201A�\201B�\201C�\201D�\201E�\201F�\315\201G�\315\201H�\362\363\364\365\366 \"\"D\257\257\"\201I�\201J�\201K�\201L�\201M�D\201N�\n\257\n\207"
[eglot--symbol-kind-names eglot--tag-faces eglot--{} :workspace :applyEdit t :executeCommand
(:dynamicRegistration :json-false)
:workspaceEdit
(:documentChanges t)
:didChangeWatchedFiles :dynamicRegistration eglot--trampish-p :json-false :symbol
(:dynamicRegistration :json-false)
:configuration :workspaceFolders :textDocument :synchronization :willSave :willSaveWaitUntil :didSave :completion :completionItem :snippetSupport eglot--stay-out-of-p yasnippet eglot--snippet-expansion-fn
(:deprecatedSupport t :resolveSupport
(:properties
["documentation" "details" "additionalTextEdits"])
:tagSupport
(:valueSet
[1]))
:contextSupport :hover :contentFormat fboundp gfm-view-mode
["markdown" "plaintext"]
["plaintext"]
:signatureHelp :signatureInformation
(:parameterInformation
(:labelOffsetSupport t)
:activeParameterSupport t)
:references
(:dynamicRegistration :json-false)
:definition :linkSupport :declaration :implementation :typeDefinition :documentSymbol :hierarchicalDocumentSymbolSupport :symbolKind :valueSet apply vector mapcar car :documentHighlight
(:dynamicRegistration :json-false)
:codeAction :codeActionLiteralSupport
(:codeActionKind
(:valueSet
["quickfix" "refactor" "refactor.extract" "refactor.inline" "refactor.rewrite" "source" "source.organizeImports"]))
:isPreferredSupport :formatting
(:dynamicRegistration :json-false)
:rangeFormatting
(:dynamicRegistration :json-false)
:rename
(:dynamicRegistration :json-false)
:inlayHint
(:dynamicRegistration :json-false)
:publishDiagnostics :relatedInformation :codeDescriptionSupport :tagSupport :window
(:workDoneProgress t)
:general :positionEncodings
["utf-32" "utf-8" "utf-16"]
:experimental]
48 "\n\n(fn S)"]
(#s(cl--generic eglot-workspace-folders
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300!\301\302\303\304!\305!B\"!\207"
[eglot--project vconcat mapcar
#[257 "\300\301!\302\303!F\207"
[:uri eglot--path-to-uri :name abbreviate-file-name]
6 "\n\n(fn DIR)"]
project-root project-external-roots]
8 "\n\n(fn SERVER)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\301\302\303\304!\305!B\"!\207"
[eglot--project vconcat mapcar
#[257 "\300\301!\302\303!F\207"
[:uri eglot--path-to-uri :name abbreviate-file-name]
6 "\n\n(fn DIR)"]
project-root project-external-roots]
8 "\n\n(fn SERVER)"]))
#[257 "\300!\301\302\303\304!\305!B\"!\207"
[eglot--project vconcat mapcar
#[257 "\300\301!\302\303!F\207"
[:uri eglot--path-to-uri :name abbreviate-file-name]
6 "\n\n(fn DIR)"]
project-root project-external-roots]
8 "\n\n(fn SERVER)"]
(#s(cl--generic eglot-handle-notification
((1 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t
(eql textDocument/publishDiagnostics))
nil nil
#[642 "\306\307\"A@\306\310\"A@\311\312\313\314!!\211\205�\315!\211\203@r\211q\210\316\317\211\320\321#\210T\262GW\203'H\262\211\306\322\"A@\306\323\"A@\306\324\"A@\306\325\"A@\306\326\"A@\306\327\"A@\330\331\n\332 >\333 >\334 >%\210\f#\262\335!\211\242\243U\203\324�\336 \337\"\211\205\243�\340p\336\341\"T\336\342\"#\211\203\262�\211@\262\211A\266\203\202\324�\212\214~\210eb\210\343\336\211\337\"\341\"T!\262\344\336\211\345\"\341\"T!*\266\203\346p\f!
\347BC\316\317\211T\262GW\203\nH\262\350\n\"\211\203\211B\262\210\202\347�\211\237\266\203\211\205\351BC\262&\266\204\262\266\206C\244\262\202+� \2037\f\2037\352!\266\202;\211\266)\266\317\207\316\317\211T\262GW\203\264H\262\211\306\323\"A@\306\322\"A@\306\324\"A@\306\325\"A@\306\326\"A@\330\331 \332 >\333 >\334 >%\210 #\262\336\337\"\336\341\"T\336\342\"T\346B\317 !\n%\266\210C\244\262\202C\320\321#BB\266\317\207"
[flymake-list-only-diagnostics eglot-strict-mode eglot--tag-faces flymake-no-changes-timeout eglot--current-flymake-report-fn eglot--diagnostics plist-member :uri :diagnostics
#[257 "\211\204�\300\207\211\301X\203�\300\207\211\302U\203�\303\207\304\207"
[eglot-error 1 2 eglot-warning eglot-note]
3 "\n\n(fn SEV)"]
#[771 "\205 �\300\301\"\302R\207"
[format " [%s]" ": "]
7 "\n\n(fn SOURCE CODE MESSAGE)"]
expand-file-name eglot--uri-to-path find-buffer-visiting -1 nil assoc-delete-all string= :range :code :message :severity :source :tags eglot--check-object Diagnostic enforce-required-keys disallow-non-standard-keys check-types eglot--range-region plist-get :start flymake-diag-region :line :character eglot--bol line-end-position :end eglot--make-diag eglot-lsp-diag alist-get face eglot--report-to-flymake]
37 "Handle notification publishDiagnostics.\n\n(fn SERVER METHOD &key URI DIAGNOSTICS &allow-other-keys)"])
#s(cl--generic-method
(t
(eql $/progress))
nil nil
#[642 "\302\303\"A@\302\304\"A@\211\203B�\211@\305>\203+�\211A\204#�\306\307@\"\210\211AA\262\202
�\310>A@\2039�\311\262\202
�\306\312@\"\210\202
�\210\205\352�\313\314\302\315\"A@\302\316\"A@\302\317\"A@\302\320\"A@\321\322\323 >\324 >\325 >%\210\326\267\266\202\351�\327\330\205\200�\331P\332
!\n#\f\n\n\"\333 \203\253�\334\335\336
\337\335&\202\265�\334\311\211\211\337\335&\340!#%\207 \"$\207 \206\325�\336 \"$\210\341\340
!\"\207\266\311\207"
[eglot-report-progress eglot-strict-mode plist-member :token :value
(:token :value :allow-other-keys)
error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:token :value)"
#[128 "\300\301\302#\207"
[mapconcat identity " "]
5 "\n\n(fn &rest ARGS)"]
#[1156 "\211\203
�\211A\262\242\202�\300\301!\"\203\"�\302\303\304\305G\\D\"\210\211\205<�\211\247\2035�@Y\205:�\306#\266\203\207"
[gethash eglot--progress-reporters signal wrong-number-of-arguments nil 3 progress-reporter-do-update]
13 "\n\n(fn PCNT MSG &optional (PR (gethash token (eglot--progress-reporters server))))"]
:kind :title :percentage :message eglot--check-object WorkDoneProgress enforce-required-keys disallow-non-standard-keys check-types #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
("begin" 121 "report" 188 "end" 203))
format "[eglot] %s %s:" " " eglot-project-nickname puthash make-progress-reporter 0 100 1 eglot--progress-reporters remhash]
26 "Handle $/progress notification identified by TOKEN from SERVER.\n\n(fn SERVER METHOD &key TOKEN VALUE)"])
#s(cl--generic-method
(t
(eql telemetry/event))
nil nil
#[642 "\300\207"
["Handle notification telemetry/event."]
4 "\n\n(fn SERVER METHOD &rest ANY)"])
#s(cl--generic-method
(t
(eql window/logMessage))
nil nil
#[642 "\300\301\"A@\210\302\300\303\"A@\210\302\211\203F�\211@\304>\203/�\211A\204'�\305\306@\"\210\211AA\262\202�\307>A@\203=�\302\262\202�\305\310@\"\210\202�\210\311\207"
[plist-member :type nil :message
(:type :message :allow-other-keys)
error "Missing argument for %s" :allow-other-keys "Keyword argument %s not one of (:type :message)" "Handle notification window/logMessage."]
9 "\n\n(fn SERVER METHOD &key TYPE MESSAGE)"])
#s(cl--generic-method
(t
(eql window/showMessage))
nil nil
#[642 "\300\301\"A@\300\302\"A@\211\203B�\211@\303>\203+�\211A\204#�\304\305@\"\210\211AA\262\202
�\306>A@\2039�\307\262\202
�\304\310@\"\210\202
�\210\311\312\313\314\315X\205N�\304##\207"
[plist-member :type :message
(:type :message :allow-other-keys)
error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:type :message)" eglot--message propertize "Server reports (type=%s): %s" face 1]
11 "Handle notification window/showMessage.\n\n(fn SERVER METHOD &key TYPE MESSAGE)"])
#s(cl--generic-method
(t t)
nil nil
#[642 "\301\302\303\304\"\"\206�\305>??\205�\306\307\"\207"
[eglot-strict-mode string-prefix-p "$" format "%s" disallow-unknown-methods eglot--warn "Server sent unknown notification method `%s'"]
8 "Handle unknown notification.\n\n(fn SERVER METHOD &key &allow-other-keys)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[642 "\301\302\303\304\"\"\206�\305>??\205�\306\307\"\207"
[eglot-strict-mode string-prefix-p "$" format "%s" disallow-unknown-methods eglot--warn "Server sent unknown notification method `%s'"]
8 "Handle unknown notification.\n\n(fn SERVER METHOD &key &allow-other-keys)"]))
#[642 "\301\302\303\304\"\"\206�\305>??\205�\306\307\"\207"
[eglot-strict-mode string-prefix-p "$" format "%s" disallow-unknown-methods eglot--warn "Server sent unknown notification method `%s'"]
8 "Handle unknown notification.\n\n(fn SERVER METHOD &key &allow-other-keys)"]
(#s(cl--generic eglot-handle-request
((1 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t
(eql workspace/configuration))
nil nil
#[642 "\300\301\"A@\211\203<�\211@\302>\203%�\211A\204 �\303\304@\"\210\211AA\262\202�\305>A@\2033�\306\262\202�\303\307@\"\210\202�\210\310\311\312\313\314\"\"\"\207"
[plist-member :items
(:items :allow-other-keys)
error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:items)" apply vector mapcar make-closure
#[257 "\302\303\"A@\302\304\"A@\305\306\307 >\310 >\311 >%\210\205!�\312!\313\300\"\314\211\211\211\211:\203j�\262\211A\262\242\262@\262\315!\203M�\316!\317\314O\202N�\230\203^�\262\314\211\262\202_�\320\203j�AA\262\202*�\207"
[V0 eglot-strict-mode plist-member :scopeUri :section eglot--check-object ConfigurationItem enforce-required-keys disallow-non-standard-keys check-types eglot--uri-to-path eglot--workspace-configuration-plist nil keywordp symbol-name 1 t]
13 "\n\n(fn JSONRPC-LAMBDA-ELEM5)"]]
10 "Handle server request workspace/configuration.\n\n(fn SERVER METHOD &key ITEMS)"])
#s(cl--generic-method
(t
(eql workspace/workspaceFolders))
nil nil
#[514 "\300!\207"
[eglot-workspace-folders]
4 "Handle server request workspace/workspaceFolders.\n\n(fn SERVER METHOD)"])
#s(cl--generic-method
(t
(eql workspace/applyEdit))
nil nil
#[642 "\301\302\"A@\210\303\301\304\"A@\211\203D�\211@\305>\203-�\211A\204%�\306\307@\"\210\211AA\262\202�\310>A@\203;�\303\262\202�\306\311@\"\210\202�\210\312\"\210\313\207"
[eglot-confirm-server-initiated-edits plist-member :label nil :edit
(:label :edit :allow-other-keys)
error "Missing argument for %s" :allow-other-keys "Keyword argument %s not one of (:label :edit)" eglot--apply-workspace-edit
(:applied t)]
9 "Handle server request workspace/applyEdit.\n\n(fn SERVER METHOD &key LABEL EDIT)"])
#s(cl--generic-method
(t
(eql client/unregisterCapability))
nil nil
#[642 "\300\301\"A@\211\203<�\211@\302>\203%�\211A\204 �\303\304@\"\210\211AA\262\202�\305>A@\2033�\306\262\202�\303\307@\"\210\202�\210\310\311#\207"
[plist-member :unregisterations
(:unregisterations :allow-other-keys)
error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:unregisterations)" eglot--register-unregister unregister]
8 "Handle server request client/unregisterCapability.\n\n(fn SERVER METHOD &key UNREGISTERATIONS)"])
#s(cl--generic-method
(t
(eql client/registerCapability))
nil nil
#[642 "\300\301\"A@\211\203<�\211@\302>\203%�\211A\204 �\303\304@\"\210\211AA\262\202�\305>A@\2033�\306\262\202�\303\307@\"\210\202�\210\310\311#\207"
[plist-member :registrations
(:registrations :allow-other-keys)
error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:registrations)" eglot--register-unregister register]
8 "Handle server request client/registerCapability.\n\n(fn SERVER METHOD &key REGISTRATIONS)"])
#s(cl--generic-method
(t
(eql window/showMessageRequest))
nil nil
#[642 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203H�\211@\304>\2031�\211A\204)�\305\306@\"\210\211AA\262\202�\307>A@\203?�\310\262\202�\305\311@\"\210\202�\210\312\310\"\313\314\315\316\317\320X\205Z�\305##\321P\322\323\"\206j�\324\310\325\326\327\234\330\"%\211\203|�\330D\207\266\331\207"
[plist-member :type :message :actions
(:type :message :actions :allow-other-keys)
error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:type :message :actions)" append completing-read format propertize "[eglot] Server reports (type=%s): %s" face 1 "\nChoose an option: " mapcar
#[257 "\300\301\"\207"
[plist-get :title]
4 "\n\n(fn OBJ)"]
("OK")
t plist-get 0 :title :null]
15 "Handle server request window/showMessageRequest.\n\n(fn SERVER METHOD &key TYPE MESSAGE ACTIONS)"])
#s(cl--generic-method
(t t)
nil nil
#[642 "\301>\205\n�\302\303\"\207"
[eglot-strict-mode disallow-unknown-methods jsonrpc-error "Unknown request method `%s'"]
6 "Handle unknown request.\n\n(fn SERVER METHOD &key &allow-other-keys)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[642 "\301>\205\n�\302\303\"\207"
[eglot-strict-mode disallow-unknown-methods jsonrpc-error "Unknown request method `%s'"]
6 "Handle unknown request.\n\n(fn SERVER METHOD &key &allow-other-keys)"]))
#[642 "\301>\205\n�\302\303\"\207"
[eglot-strict-mode disallow-unknown-methods jsonrpc-error "Unknown request method `%s'"]
6 "Handle unknown request.\n\n(fn SERVER METHOD &key &allow-other-keys)"]
(#s(cl--generic eglot-execute-command
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t t)
nil nil
#[771 "\300\301\302\303\304\"\305F#\207"
[jsonrpc-request :workspace/executeCommand :command format "%s" :arguments]
10 "Execute COMMAND on SERVER with `:workspace/executeCommand'.\nCOMMAND is a symbol naming the command.\n\n(fn SERVER COMMAND ARGUMENTS)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[771 "\300\301\302\303\304\"\305F#\207"
[jsonrpc-request :workspace/executeCommand :command format "%s" :arguments]
10 "Execute COMMAND on SERVER with `:workspace/executeCommand'.\nCOMMAND is a symbol naming the command.\n\n(fn SERVER COMMAND ARGUMENTS)"]))
#[771 "\300\301\302\303\304\"\305F#\207"
[jsonrpc-request :workspace/executeCommand :command format "%s" :arguments]
10 "Execute COMMAND on SERVER with `:workspace/executeCommand'.\nCOMMAND is a symbol naming the command.\n\n(fn SERVER COMMAND ARGUMENTS)"]
(#s(cl--generic memory-report--object-size-1
((1 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t cl-structure-object)
nil nil
#[514 "\300!\301\302\303\304!\305\306\307\n$\310!\"#\207"
[type-of apply + memory-report--size vector mapcar make-closure
#[257 "\211@\303=\203 �\304\207\305\302@\306\301\300\"\204�\307\310\300\301D\"\210\311\300!\312=\203,�\313\300\"\3018\2022�\301\313\300\"H\262\"\207"
[V0 V1 V2 cl-tag-slot 0 memory-report--object-size cl-typep signal wrong-type-argument cl-struct-sequence-type list cl-struct-slot-offset]
8 "\n\n(fn SLOT)"]
cl-struct-slot-info]
12 "\n\n(fn COUNTED VALUE)"])
#s(cl--generic-method
(t hash-table)
nil nil
#[514 "\300\301!\300\302!\303!_\\C\304\305\306#\"\210\211\242\207"
[memory-report--size vector object hash-table-size maphash make-closure
#[514 "\300\211\242\302\301\"\\\240\210\300\211\242\302\301\"\\\240\207"
[V0 V1 memory-report--object-size]
7 "\n\n(fn KEY ELEM)"]]
8 "\n\n(fn COUNTED VALUE)"])
#s(cl--generic-method
(t vector)
nil nil
#[514 "\300\301!\300\302!G_\\\303\304T\262GW\203(�H\262\305\"\\\262\202\f�\266\207"
[memory-report--size vector object -1 nil memory-report--object-size]
9 "\n\n(fn COUNTED VALUE)"])
#s(cl--generic-method
(t list)
nil nil
#[514 "\300\301\302!\203K�\\\262\303\304#\210@\203\"�\305@\"\\\262A\211\205E�\211:\203;�\306\"?\205E�A\202E�\305\"\\\262\307\262\210\202�\207"
[0 memory-report--size cons puthash t memory-report--object-size gethash nil]
9 "\n\n(fn COUNTED VALUE)"])
#s(cl--generic-method
(t string)
nil nil
#[514 "\300\301!\302!\\\303\304!\"\\\207"
[memory-report--size string string-bytes memory-report--interval-size object-intervals]
7 "\n\n(fn COUNTED VALUE)"])
#s(cl--generic-method
(t buffer)
nil nil
#[514 "\300\301!\207"
[memory-report--size buffer]
4 "\n\n(fn _ VALUE)"])
#s(cl--generic-method
(t symbol)
nil nil
#[514 "\301\"\203 �\302\207\303\304!\207"
[obarray intern-soft 0 memory-report--size symbol]
5 "\n\n(fn _ VALUE)"])
#s(cl--generic-method
(t symbol-with-pos)
nil nil
#[514 "\300\301!\207"
[memory-report--size symbol]
4 "\n\n(fn _ VALUE)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[0]
3 "\n\n(fn COUNTED VALUE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[0]
3 "\n\n(fn COUNTED VALUE)"]))
#[514 "\300\207"
[0]
3 "\n\n(fn COUNTED VALUE)"]
(#s(cl--generic make-instance
((0 #s(cl--generic-generalizer eieio--generic-subclass-generalizer 60
#[385 "\300\301D\302DE\207"
[and symbolp cl--find-class]
6 "\n\n(fn NAME &rest _)"]
eieio--generic-subclass-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((subclass semantic-collector-buffer-abstract))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\211\203�\204�\302@!=\203�\211@\262\202�\204,� \211\235\204*�\211B\262\303\304\"\210\303\305\"\210\303\306\"\210\207"
[semantic-collector-per-buffer-list nil eieio-object-class slot-makeunbound last-completion last-prefix current-exact-match]
8 "\n\n(fn CL--CNM THIS &rest ARGS)"]]
6 "Reuse previously created objects of this type in buffer.\n\n(fn THIS &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-named))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\211@;\204 � \207\203�\301\202�\302\303\"\210\304\305$\207"
[eieio-backward-compatibility ignore message "Obsolete: name passed without :object-name to %S constructor" apply :object-name]
8 "\n\n(fn CL--CNM CLASS &rest ARGS)"]]
6 "\n\n(fn CLASS &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-singleton))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302\"\211=\203�\303\302 #\207\207"
[eieio--unbound eieio-oref-default singleton eieio-oset-default]
8 "\n\n(fn CL--CNM CLASS &rest SLOTS)"]]
6 "Constructor for singleton CLASS.\nNAME and SLOTS initialize the new object.\nThis constructor guarantees that no matter how many you request,\nonly one object ever exists.\n\n(fn CLASS &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-default-superclass))
nil nil
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]))
nil)
#s(cl--generic-method
((subclass eieio-default-superclass))
nil nil
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]))
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]
(#s(cl--generic initialize-instance
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(ede-locate-cscope)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301!\210\302 \210\303\304\305\"!?\205�\306\307\304\305\"\"\207"
[require cedet-cscope cedet-cscope-version-check cedet-cscope-support-for-directory eieio-oref root error "Cannot use Cscope in %s"]
8 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use Cscope.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-idutils)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301!\210\302 \210\303\304\305\"!?\205�\306\307\304\305\"\"\207"
[require cedet-idutils cedet-idutils-version-check cedet-idutils-support-for-directory eieio-oref root error "Cannot use IDUtils in %s"]
8 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use IDUtils.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-global)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302!\210 \210\303 \210\304\305\"\306 \211?\205 �\307\310\304\305\"\")\207"
[default-directory require cedet-global cedet-gnu-global-version-check eieio-oref root cedet-gnu-global-root error "No GNU Global project found for %s"]
9 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use GNU Global.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-base)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300!\207"
[ede-locate-flush-hash]
5 "\n\n(fn CL--CNM LOC &rest FIELDS)"]]
6 "Make sure we have a hash table.\n\n(fn LOC &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-generic-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\"?\205�\302\303\304#\207"
[slot-boundp targets eieio-oset :targets nil]
7 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(forge--topics-filter-command)
(:after)
nil
#[513 "\300\301\"?\205�\302\301\303\304\305\306\307\"\"!#\207"
[slot-boundp reader eieio-oset intern format "forge-read-topic-%s" eieio-oref slot]
11 "\n\n(fn OBJ &optional SLOTS)"])
#s(cl--generic-method
(forge--topic-set-slot-command)
(:after)
nil
#[513 "\300\301\302\"!\303\304\"\2044�\305\306\"\203(�\211\307\310O\262\311\304\312\313\"#\210\2024�\311\304\314\315\316\"!#\210\311\317\314\315\320\"!#\210\303\321\"?\205S�\311\321\314\315\322\"!#\207"
[symbol-name slot-value slot slot-boundp reader string-suffix-p "-p" 0 -2 eieio-oset make-closure
#[257 "\301\302\300\303\"\"?\207"
[V0 eieio-oref slot-value slot]
6 "\n\n(fn %)"]
intern format "forge-read-topic-%s" setter "forge--set-topic-%s" formatter "forge--format-topic-%s"]
11 "\n\n(fn OBJ &optional SLOTS)"])
#s(cl--generic-method
(srecode-dictionary-compound-variable)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\300\211\203'�@\301=\203�A@\262\202 �A@@BB\262AA\262\202�\237\"\210\302\303\"?\205�\304\305\"\300\203v�@\211;\203M�\211B\266\202\202o�\211<\203i�\211@\306=\203i�\307\310!\210\311A\"B\266\202\202o�\312\313\"\266A\262\202:�\314\303\237#\266\202\207"
[nil :state slot-boundp compiled eieio-oref value macro require srecode/compile srecode-compile-parse-inserter error "Don't know how to handle variable value %S" eieio-oset]
11 "\n\n(fn CL--CNM THIS &optional FIELDS)"]]
6 "Initialize the compound variable THIS.\nMakes sure that :value is compiled.\n\n(fn THIS &optional FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-field)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\235\204\f�\301C\" \207"
[srecode-field-archive append]
6 "\n\n(fn CL--CNM FIELD &optional ARGS)"]]
6 "Initialize FIELD, being sure it archived.\n\n(fn FIELD &optional ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-template-inserted-region)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302#\210\303 \207"
[srecode-field-archive eieio-oset fields nil]
7 "\n\n(fn CL--CNM IR &rest ARGS)"]]
6 "Initialize IR, capturing the active fields, and creating the overlay.\n\n(fn IR &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-overlaid)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\300\211\211\211\203K�@\301=\203 �A\262@\262A\262\202�@\302=\2034�A\262@\262A\262\202�@B\262A\262@B\262A\262\202�\303p\304\300%\262\305\306\304#\210\307\310#\210\237\"\207"
[nil :start :end make-overlay t overlay-put srecode-init-only eieio-oset overlay]
13 "\n\n(fn CL--CNM OLAID &optional ARGS)"]]
6 "Initialize OLAID, being sure it archived.\n\n(fn OLAID &optional ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(semantic-bookmark)
(:after)
nil
#[385 "\3001!�\212\301\302\303\304\305\"!#\210\306\304\305\"!\210\301\307\310 #)0\207\210\311\312!\207"
[(error)
eieio-oset filename semantic-tag-file-name eieio-oref tag semantic-go-to-tag parent semantic-current-tag-parent message "Error bookmarking tag."]
9 "Initialize the bookmark SBM with details about :tag.\n\n(fn SBM &rest FIELDS)"])
#s(cl--generic-method
(semantic-displayer-tooltip)
(:after)
nil
#[385 "\300\301!\207"
[require tooltip]
4 "Make sure we have tooltips required.\n\n(fn OBJ &rest ARGS)"])
#s(cl--generic-method
(ede-linker)
(:after)
nil
#[385 "\235\203�\207B\211\207"
[ede-linker-list]
4 "Make sure that all ede compiler objects are cached in\n`ede-linker-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(ede-compiler)
(:after)
nil
#[385 "\235\203�\207B\211\207"
[ede-compiler-list]
4 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(ede-linux-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\"?\205�\302\303\304#\207"
[slot-boundp targets eieio-oset :targets nil]
7 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-cpp-root-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\302\"!\303\304!\305\306#\211\203\"�\211=\204\"�\307!\210\310!\210\210\311!\203/�\312!\2037�\310!\210\313\314!\210\315\302#\210\315\316\304!#\210\317\304!!\210\320!\210\321\322\"?\205\\�\315\322\323#\207"
[expand-file-name eieio-oref file eieio-instance-tracker-find file-name-directory :directory ede-cpp-root-project-list ede-delete-project-from-global-list delete-instance file-exists-p file-directory-p error ":file for ede-cpp-root-project must be a file" eieio-oset directory ede-project-directory-remove-hash ede-add-project-to-global-list slot-boundp targets nil]
9 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the :file is fully expanded.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(chart)
(:after)
nil
#[385 "\300\301\302 \303Z#\210\300\304\305 \306Z#\207"
[eieio-oset x-width window-width 10 y-width window-height 12]
7 "Initialize the chart OBJ being created with FIELDS.\nMake sure the width/height is correct.\n\n(fn OBJ &rest FIELDS)"])
#s(cl--generic-method
(ede-sourcecode)
(:after)
nil
#[385 "\211\203�\301\302\"\301@\302\"\230\204�\211A\262\202�\211\203!�\211\240\207B\211\207"
[ede-sourcecode-list eieio-oref name]
7 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(registry-db t)
(:after)
nil
#[514 "\300>\204�\301\302\303\304\305\306\307\310\311&#\210\312>?\205%�\301\313\303\304\314\306\307$#\207"
[:data eieio-oset data make-hash-table :size 10000 :rehash-size 2.0 :test equal :tracker tracker 100]
12 "Set value of data slot of THIS after initialization.\n\n(fn THIS SLOTS)"])
#s(cl--generic-method
(registry-db t)
(:before)
nil
#[514 "\301\302\"\205 �\303\302\"\211\203�\304\305\"\205M�\306\307\303\310\"#\262\306\302#\262@\310=\2036�AA\262\202;�\311\310\"\210@\312=\203I�AA\262\313\207\311\312\"\207"
[registry-db-version plist-member :version plist-get eql 0.1 plist-put :max-size :max-hard cl--do-remf :max-soft t]
9 "Check whether a registry object needs to be upgraded.\n\n(fn THIS SLOTS)"])
#s(cl--generic-method
(eieio-instance-tracker)
(:after)
nil
#[385 "\300\301\"J>?\205�\211\302JC\"L\207"
[eieio-oref tracking-symbol append]
7 "Make sure THIS is in our master list of this class.\nOptional argument SLOTS are the initialization arguments.\n\n(fn THIS &rest SLOTS)"])
#s(cl--generic-method
(eglot-lsp-server)
(:before)
nil
#[513 "\211@\300=\203�\211AA\262\301\207\302\300\"\207"
[:initializationOptions t cl--do-remf]
5 "\n\n(fn SERVER &optional ARGS)"])
#s(cl--generic-method
(jsonrpc-process-connection t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 " \210\302\303\"A@\302\304\"A@pr\305\306\307\"!q\210\310\311\312 P\313 \210\314 \210\315\316\317\320\n\"\321\310$\210\322!\203A�rq\210 )\202B�\262\3231P�\324!0\210\202Q�\210\325!\210\326\327p#\210\310*\266\330\"\210\331\305\306\332\"!\"\210\333\334\"\210\335\336\"\210r\337!q\210\314 \210\340!e\321\223\210\310\313 )\210\310)\326\341#\207"
[inhibit-read-only buffer-read-only plist-member :process :name get-buffer-create format "*%s stderr*" t " " buffer-name erase-buffer buffer-disable-undo add-hook after-change-functions make-closure
#[771 "\302\211b\210\302y\210n\203�\303\304!\305\304!{\262r\306\300!q\210db\210\307\310\311\"c*\210m\2041�\302\262\202�\302\207"
[V0 inhibit-read-only nil line-beginning-position 0 line-end-position jsonrpc-events-buffer t format "[stderr] %s\n"]
8 "\n\n(fn BEG END PRE-CHANGE-LEN)"]
nil functionp
(error)
kill-buffer rename-buffer process-put jsonrpc-stderr \(setf\ jsonrpc--process\) set-process-buffer " *%s output*" set-process-filter jsonrpc--process-filter set-process-sentinel jsonrpc--process-sentinel process-buffer process-mark jsonrpc-connection]
13 "\n\n(fn CL--CNM CONN SLOTS)"]]
6 "\n\n(fn CONN SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]))
nil)
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]))
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]
(#s(cl--generic shared-initialize
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(gnus-search-process t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 "\300\301\302\303!#\262\"\207"
[plist-put :proc-buffer generate-new-buffer " *gnus-search-"]
8 "\n\n(fn CL--CNM ENGINE SLOTS)"]]
6 "\n\n(fn ENGINE SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-default-superclass t)
nil nil
#[514 "\211\205E�\300\211\211\301H\262\2119\203 �\211\302N\206 �\262\202 �\211\266\202@\"\211\2044�\303@\304A@$\266\202=�\305A@#\266\211AA\262\202��\207"
[eieio--initarg-to-attribute 0 cl--class slot-missing oset eieio-oset]
8 "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine.\n\n(fn OBJ SLOTS)"]))
nil)
#s(cl--generic-method
(eieio-default-superclass t)
nil nil
#[514 "\211\205E�\300\211\211\301H\262\2119\203 �\211\302N\206 �\262\202 �\211\266\202@\"\211\2044�\303@\304A@$\266\202=�\305A@#\266\211AA\262\202��\207"
[eieio--initarg-to-attribute 0 cl--class slot-missing oset eieio-oset]
8 "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine.\n\n(fn OBJ SLOTS)"]))
#[514 "\211\205E�\300\211\211\301H\262\2119\203 �\211\302N\206 �\262\202 �\211\266\202@\"\211\2044�\303@\304A@$\266\202=�\305A@#\266\211AA\262\202��\207"
[eieio--initarg-to-attribute 0 cl--class slot-missing oset eieio-oset]
8 "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine.\n\n(fn OBJ SLOTS)"]
(#s(cl--generic eieio-object-set-name-string
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(eieio-named t)
nil nil
#[514 "\211;\204
�\300\301\302\303E\"\210\304\305#\207"
[signal wrong-type-argument string name eieio-oset object-name]
7 "Set the string which is OBJ's NAME.\n\n(fn OBJ NAME)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\211;\204
�\301\302\303\304E\"\210\305#\207"
[eieio--object-names signal wrong-type-argument string name puthash]
7 "\n\n(fn OBJ NAME)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\211;\204
�\301\302\303\304E\"\210\305#\207"
[eieio--object-names signal wrong-type-argument string name puthash]
7 "\n\n(fn OBJ NAME)"]))
#[514 "\211;\204
�\301\302\303\304E\"\210\305#\207"
[eieio--object-names signal wrong-type-argument string name puthash]
7 "\n\n(fn OBJ NAME)"]
(#s(cl--generic smtpmail-try-auth-method
((3 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t
(eql xoauth2)
t t)
nil nil
#[1028 "\300\301\302\303\304\305\260\306\"P\"\207"
[smtpmail-command-or-throw "AUTH XOAUTH2 " base64-encode-string "user=" "auth=Bearer " "" t]
13 "\n\n(fn PROCESS MECH USER PASSWORD)"])
#s(cl--generic-method
(t
(eql 'plain)
t t)
nil nil
#[1028 "\300\301\302\303\303R\304\"P\305#\207"
[smtpmail-command-or-throw "AUTH PLAIN " base64-encode-string "�" t 235]
12 "\n\n(fn PROCESS MECH USER PASSWORD)"])
#s(cl--generic-method
(t
(eql 'login)
t t)
nil nil
#[1028 "\300\301\"\210\300\302\303\"\"\210\300\302\303\"\"\207"
[smtpmail-command-or-throw "AUTH LOGIN" base64-encode-string t]
9 "\n\n(fn PROCESS MECH USER PASSWORD)"])
#s(cl--generic-method
(t
(eql 'cram-md5)
t t)
nil nil
#[1028 "\300\301\"\211@\302=\205+�\211A@\303\304O\305!\306\307\310\311%\312Q\313\314\"\300\n\"\266\205\207"
[smtpmail-command-or-throw "AUTH CRAM-MD5" 334 4 nil base64-decode-string rfc2104-hash md5 64 16 " " base64-encode-string t]
13 "\n\n(fn PROCESS MECH USER PASSWORD)"])
#s(cl--generic-method
(t t t t)
nil nil
#[1028 "\300\301\"\207"
[error "Mechanism %S not implemented"]
7 "\n\n(fn PROCESS MECH USER PASSWORD)"]))
nil)
#s(cl--generic-method
(t t t t)
nil nil
#[1028 "\300\301\"\207"
[error "Mechanism %S not implemented"]
7 "\n\n(fn PROCESS MECH USER PASSWORD)"]))
#[1028 "\300\301\"\207"
[error "Mechanism %S not implemented"]
7 "\n\n(fn PROCESS MECH USER PASSWORD)"]
(#s(cl--generic make-instance
((0 #s(cl--generic-generalizer eieio--generic-subclass-generalizer 60
#[385 "\300\301D\302DE\207"
[and symbolp cl--find-class]
6 "\n\n(fn NAME &rest _)"]
eieio--generic-subclass-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((subclass semantic-collector-buffer-abstract))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\211\203�\204�\302@!=\203�\211@\262\202�\204,� \211\235\204*�\211B\262\303\304\"\210\303\305\"\210\303\306\"\210\207"
[semantic-collector-per-buffer-list nil eieio-object-class slot-makeunbound last-completion last-prefix current-exact-match]
8 "\n\n(fn CL--CNM THIS &rest ARGS)"]]
6 "Reuse previously created objects of this type in buffer.\n\n(fn THIS &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-named))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\211@;\204 � \207\203�\301\202�\302\303\"\210\304\305$\207"
[eieio-backward-compatibility ignore message "Obsolete: name passed without :object-name to %S constructor" apply :object-name]
8 "\n\n(fn CL--CNM CLASS &rest ARGS)"]]
6 "\n\n(fn CLASS &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-singleton))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302\"\211=\203�\303\302 #\207\207"
[eieio--unbound eieio-oref-default singleton eieio-oset-default]
8 "\n\n(fn CL--CNM CLASS &rest SLOTS)"]]
6 "Constructor for singleton CLASS.\nNAME and SLOTS initialize the new object.\nThis constructor guarantees that no matter how many you request,\nonly one object ever exists.\n\n(fn CLASS &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-default-superclass))
nil nil
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]))
nil)
#s(cl--generic-method
((subclass eieio-default-superclass))
nil nil
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]))
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]
(#s(cl--generic initialize-instance
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(ede-locate-cscope)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301!\210\302 \210\303\304\305\"!?\205�\306\307\304\305\"\"\207"
[require cedet-cscope cedet-cscope-version-check cedet-cscope-support-for-directory eieio-oref root error "Cannot use Cscope in %s"]
8 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use Cscope.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-idutils)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301!\210\302 \210\303\304\305\"!?\205�\306\307\304\305\"\"\207"
[require cedet-idutils cedet-idutils-version-check cedet-idutils-support-for-directory eieio-oref root error "Cannot use IDUtils in %s"]
8 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use IDUtils.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-global)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302!\210 \210\303 \210\304\305\"\306 \211?\205 �\307\310\304\305\"\")\207"
[default-directory require cedet-global cedet-gnu-global-version-check eieio-oref root cedet-gnu-global-root error "No GNU Global project found for %s"]
9 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use GNU Global.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-base)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300!\207"
[ede-locate-flush-hash]
5 "\n\n(fn CL--CNM LOC &rest FIELDS)"]]
6 "Make sure we have a hash table.\n\n(fn LOC &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-generic-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\"?\205�\302\303\304#\207"
[slot-boundp targets eieio-oset :targets nil]
7 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(forge--topics-filter-command)
(:after)
nil
#[513 "\300\301\"?\205�\302\301\303\304\305\306\307\"\"!#\207"
[slot-boundp reader eieio-oset intern format "forge-read-topic-%s" eieio-oref slot]
11 "\n\n(fn OBJ &optional SLOTS)"])
#s(cl--generic-method
(forge--topic-set-slot-command)
(:after)
nil
#[513 "\300\301\302\"!\303\304\"\2044�\305\306\"\203(�\211\307\310O\262\311\304\312\313\"#\210\2024�\311\304\314\315\316\"!#\210\311\317\314\315\320\"!#\210\303\321\"?\205S�\311\321\314\315\322\"!#\207"
[symbol-name slot-value slot slot-boundp reader string-suffix-p "-p" 0 -2 eieio-oset make-closure
#[257 "\301\302\300\303\"\"?\207"
[V0 eieio-oref slot-value slot]
6 "\n\n(fn %)"]
intern format "forge-read-topic-%s" setter "forge--set-topic-%s" formatter "forge--format-topic-%s"]
11 "\n\n(fn OBJ &optional SLOTS)"])
#s(cl--generic-method
(srecode-dictionary-compound-variable)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\300\211\203'�@\301=\203�A@\262\202 �A@@BB\262AA\262\202�\237\"\210\302\303\"?\205�\304\305\"\300\203v�@\211;\203M�\211B\266\202\202o�\211<\203i�\211@\306=\203i�\307\310!\210\311A\"B\266\202\202o�\312\313\"\266A\262\202:�\314\303\237#\266\202\207"
[nil :state slot-boundp compiled eieio-oref value macro require srecode/compile srecode-compile-parse-inserter error "Don't know how to handle variable value %S" eieio-oset]
11 "\n\n(fn CL--CNM THIS &optional FIELDS)"]]
6 "Initialize the compound variable THIS.\nMakes sure that :value is compiled.\n\n(fn THIS &optional FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-field)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\235\204\f�\301C\" \207"
[srecode-field-archive append]
6 "\n\n(fn CL--CNM FIELD &optional ARGS)"]]
6 "Initialize FIELD, being sure it archived.\n\n(fn FIELD &optional ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-template-inserted-region)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302#\210\303 \207"
[srecode-field-archive eieio-oset fields nil]
7 "\n\n(fn CL--CNM IR &rest ARGS)"]]
6 "Initialize IR, capturing the active fields, and creating the overlay.\n\n(fn IR &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-overlaid)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\300\211\211\211\203K�@\301=\203 �A\262@\262A\262\202�@\302=\2034�A\262@\262A\262\202�@B\262A\262@B\262A\262\202�\303p\304\300%\262\305\306\304#\210\307\310#\210\237\"\207"
[nil :start :end make-overlay t overlay-put srecode-init-only eieio-oset overlay]
13 "\n\n(fn CL--CNM OLAID &optional ARGS)"]]
6 "Initialize OLAID, being sure it archived.\n\n(fn OLAID &optional ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(semantic-bookmark)
(:after)
nil
#[385 "\3001!�\212\301\302\303\304\305\"!#\210\306\304\305\"!\210\301\307\310 #)0\207\210\311\312!\207"
[(error)
eieio-oset filename semantic-tag-file-name eieio-oref tag semantic-go-to-tag parent semantic-current-tag-parent message "Error bookmarking tag."]
9 "Initialize the bookmark SBM with details about :tag.\n\n(fn SBM &rest FIELDS)"])
#s(cl--generic-method
(semantic-displayer-tooltip)
(:after)
nil
#[385 "\300\301!\207"
[require tooltip]
4 "Make sure we have tooltips required.\n\n(fn OBJ &rest ARGS)"])
#s(cl--generic-method
(ede-linker)
(:after)
nil
#[385 "\235\203�\207B\211\207"
[ede-linker-list]
4 "Make sure that all ede compiler objects are cached in\n`ede-linker-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(ede-compiler)
(:after)
nil
#[385 "\235\203�\207B\211\207"
[ede-compiler-list]
4 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(ede-linux-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\"?\205�\302\303\304#\207"
[slot-boundp targets eieio-oset :targets nil]
7 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-cpp-root-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\302\"!\303\304!\305\306#\211\203\"�\211=\204\"�\307!\210\310!\210\210\311!\203/�\312!\2037�\310!\210\313\314!\210\315\302#\210\315\316\304!#\210\317\304!!\210\320!\210\321\322\"?\205\\�\315\322\323#\207"
[expand-file-name eieio-oref file eieio-instance-tracker-find file-name-directory :directory ede-cpp-root-project-list ede-delete-project-from-global-list delete-instance file-exists-p file-directory-p error ":file for ede-cpp-root-project must be a file" eieio-oset directory ede-project-directory-remove-hash ede-add-project-to-global-list slot-boundp targets nil]
9 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the :file is fully expanded.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(chart)
(:after)
nil
#[385 "\300\301\302 \303Z#\210\300\304\305 \306Z#\207"
[eieio-oset x-width window-width 10 y-width window-height 12]
7 "Initialize the chart OBJ being created with FIELDS.\nMake sure the width/height is correct.\n\n(fn OBJ &rest FIELDS)"])
#s(cl--generic-method
(ede-sourcecode)
(:after)
nil
#[385 "\211\203�\301\302\"\301@\302\"\230\204�\211A\262\202�\211\203!�\211\240\207B\211\207"
[ede-sourcecode-list eieio-oref name]
7 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(registry-db t)
(:after)
nil
#[514 "\300>\204�\301\302\303\304\305\306\307\310\311&#\210\312>?\205%�\301\313\303\304\314\306\307$#\207"
[:data eieio-oset data make-hash-table :size 10000 :rehash-size 2.0 :test equal :tracker tracker 100]
12 "Set value of data slot of THIS after initialization.\n\n(fn THIS SLOTS)"])
#s(cl--generic-method
(registry-db t)
(:before)
nil
#[514 "\301\302\"\205 �\303\302\"\211\203�\304\305\"\205M�\306\307\303\310\"#\262\306\302#\262@\310=\2036�AA\262\202;�\311\310\"\210@\312=\203I�AA\262\313\207\311\312\"\207"
[registry-db-version plist-member :version plist-get eql 0.1 plist-put :max-size :max-hard cl--do-remf :max-soft t]
9 "Check whether a registry object needs to be upgraded.\n\n(fn THIS SLOTS)"])
#s(cl--generic-method
(eieio-instance-tracker)
(:after)
nil
#[385 "\300\301\"J>?\205�\211\302JC\"L\207"
[eieio-oref tracking-symbol append]
7 "Make sure THIS is in our master list of this class.\nOptional argument SLOTS are the initialization arguments.\n\n(fn THIS &rest SLOTS)"])
#s(cl--generic-method
(eglot-lsp-server)
(:before)
nil
#[513 "\211@\300=\203�\211AA\262\301\207\302\300\"\207"
[:initializationOptions t cl--do-remf]
5 "\n\n(fn SERVER &optional ARGS)"])
#s(cl--generic-method
(jsonrpc-process-connection t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 " \210\302\303\"A@\302\304\"A@pr\305\306\307\"!q\210\310\311\312 P\313 \210\314 \210\315\316\317\320\n\"\321\310$\210\322!\203A�rq\210 )\202B�\262\3231P�\324!0\210\202Q�\210\325!\210\326\327p#\210\310*\266\330\"\210\331\305\306\332\"!\"\210\333\334\"\210\335\336\"\210r\337!q\210\314 \210\340!e\321\223\210\310\313 )\210\310)\326\341#\207"
[inhibit-read-only buffer-read-only plist-member :process :name get-buffer-create format "*%s stderr*" t " " buffer-name erase-buffer buffer-disable-undo add-hook after-change-functions make-closure
#[771 "\302\211b\210\302y\210n\203�\303\304!\305\304!{\262r\306\300!q\210db\210\307\310\311\"c*\210m\2041�\302\262\202�\302\207"
[V0 inhibit-read-only nil line-beginning-position 0 line-end-position jsonrpc-events-buffer t format "[stderr] %s\n"]
8 "\n\n(fn BEG END PRE-CHANGE-LEN)"]
nil functionp
(error)
kill-buffer rename-buffer process-put jsonrpc-stderr \(setf\ jsonrpc--process\) set-process-buffer " *%s output*" set-process-filter jsonrpc--process-filter set-process-sentinel jsonrpc--process-sentinel process-buffer process-mark jsonrpc-connection]
13 "\n\n(fn CL--CNM CONN SLOTS)"]]
6 "\n\n(fn CONN SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]))
nil)
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]))
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]
(#s(cl--generic eieio-speedbar-description
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(ede-target)
nil nil
#[257 "\300!\207"
[ede-description]
3 "Provide a speedbar description for OBJ.\n\n(fn OBJ)"])
#s(cl--generic-method
(ede-project)
nil nil
#[257 "\300!\207"
[ede-description]
3 "Provide a speedbar description for OBJ.\n\n(fn OBJ)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\207"
[eieio-object-name-string]
3 "Return a string describing OBJECT.\n\n(fn OBJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\207"
[eieio-object-name-string]
3 "Return a string describing OBJECT.\n\n(fn OBJECT)"]))
#[257 "\300!\207"
[eieio-object-name-string]
3 "Return a string describing OBJECT.\n\n(fn OBJECT)"]
(#s(cl--generic eieio-speedbar-derive-line-path
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(ede-target)
nil nil
#[513 "\300!\212\301 \302!\204�\211;\203�\303!\202 �\303!\304 P)\207"
[ede-target-parent speedbar-line-token eieio-object-p eieio-speedbar-derive-line-path ede-find-nearest-file-line]
6 "Return the path to OBJ.\nOptional DEPTH is the depth we start at.\n\n(fn OBJ &optional DEPTH)"])
#s(cl--generic-method
(ede-project)
nil nil
#[513 "\300\301\302\"!\207"
[file-name-directory eieio-oref file]
6 "Return the path to OBJ.\nOptional DEPTH is the depth we start at.\n\n(fn OBJ &optional DEPTH)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "Return the path which OBJECT has something to do with.\n\n(fn OBJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "Return the path which OBJECT has something to do with.\n\n(fn OBJECT)"]))
#[257 "\300\207"
[nil]
2 "Return the path which OBJECT has something to do with.\n\n(fn OBJECT)"]
(#s(cl--generic eieio-speedbar-object-buttonname
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(ede-target)
nil nil
#[257 "\300!\207"
[ede-name]
3 "Return a string to use as a speedbar button for OBJECT.\n\n(fn OBJECT)"])
#s(cl--generic-method
(ede-project)
nil nil
#[257 "\300!\203\n�\301!\207\301!\302\303\304\"Q\207"
[ede-parent-project ede-name " " eieio-oref version]
6 "Return a string to use as a speedbar button for OBJECT.\n\n(fn OBJECT)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\207"
[eieio-object-name-string]
3 "Return a string to use as a speedbar button for OBJECT.\n\n(fn OBJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\207"
[eieio-object-name-string]
3 "Return a string to use as a speedbar button for OBJECT.\n\n(fn OBJECT)"]))
#[257 "\300!\207"
[eieio-object-name-string]
3 "Return a string to use as a speedbar button for OBJECT.\n\n(fn OBJECT)"]
(#s(cl--generic eieio-speedbar-make-tag-line
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(eieio-speedbar t)
nil nil
#[514 "\300!\301\302\"\204C�\301\303\"\304=\203*�\305\306\307\310\211\311 !\312\n\301\f\313\" & \207\305\301\303\"\307\310\211\311 !\312\n\301\f\313\" & \207\305\301\303\"\203P�\314\202Q�\315\316\311 !\312\n\301\f\313\" & \210\211\205n�\317T\"\207"
[eieio-speedbar-object-children eieio-oref expanded buttontype expandtag speedbar-make-tag-line statictag 32 nil eieio-speedbar-object-buttonname eieio-speedbar-object-click buttonface 45 43 eieio-speedbar-object-expand eieio-speedbar-expand]
15 "Insert a tag line into speedbar at point for OBJECT.\nAll objects a child of symbol `eieio-speedbar' can be created from\nthis method. Override this if you need non-traditional tag lines.\nArgument DEPTH is the depth at which the tag line is inserted.\n\n(fn OBJECT DEPTH)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\211\211\211\302!\303\304 & \207"
[speedbar-make-tag-line nil eieio-speedbar-object-buttonname eieio-speedbar-object-click speedbar-tag-face]
12 "Insert a tag line into speedbar at point for OBJECT.\nBy default, all objects appear as simple TAGS with no need to inherit from\nthe special `eieio-speedbar' classes. Child classes should redefine this\nmethod to create more accurate tag lines.\nArgument DEPTH is the depth at which the tag line is inserted.\n\n(fn OBJECT DEPTH)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\211\211\211\302!\303\304 & \207"
[speedbar-make-tag-line nil eieio-speedbar-object-buttonname eieio-speedbar-object-click speedbar-tag-face]
12 "Insert a tag line into speedbar at point for OBJECT.\nBy default, all objects appear as simple TAGS with no need to inherit from\nthe special `eieio-speedbar' classes. Child classes should redefine this\nmethod to create more accurate tag lines.\nArgument DEPTH is the depth at which the tag line is inserted.\n\n(fn OBJECT DEPTH)"]))
#[514 "\300\301\211\211\211\302!\303\304 & \207"
[speedbar-make-tag-line nil eieio-speedbar-object-buttonname eieio-speedbar-object-click speedbar-tag-face]
12 "Insert a tag line into speedbar at point for OBJECT.\nBy default, all objects appear as simple TAGS with no need to inherit from\nthe special `eieio-speedbar' classes. Child classes should redefine this\nmethod to create more accurate tag lines.\nArgument DEPTH is the depth at which the tag line is inserted.\n\n(fn OBJECT DEPTH)"]
(#s(cl--generic eieio-speedbar-handle-click
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300\301!\210\302 r\303\304\"\216\305 \210\306!\210\307 *\266\307 \207"
[require eieio-custom internal--before-save-selected-window make-closure
#[0 "\301\300!\207"
[V0 internal--after-save-selected-window]
2]
dframe-select-attached-frame eieio-customize-object dframe-maybee-jump-to-attached-frame]
5 "Handle a click action on OBJECT in speedbar.\nAny object can be represented as a tag in SPEEDBAR without special\nattributes. These default objects will be pulled up in a custom\nobject edit buffer doing an in-place edit.\n\nIf your object represents some other item, override this method\nand take the appropriate action.\n\n(fn OBJECT)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301!\210\302 r\303\304\"\216\305 \210\306!\210\307 *\266\307 \207"
[require eieio-custom internal--before-save-selected-window make-closure
#[0 "\301\300!\207"
[V0 internal--after-save-selected-window]
2]
dframe-select-attached-frame eieio-customize-object dframe-maybee-jump-to-attached-frame]
5 "Handle a click action on OBJECT in speedbar.\nAny object can be represented as a tag in SPEEDBAR without special\nattributes. These default objects will be pulled up in a custom\nobject edit buffer doing an in-place edit.\n\nIf your object represents some other item, override this method\nand take the appropriate action.\n\n(fn OBJECT)"]))
#[257 "\300\301!\210\302 r\303\304\"\216\305 \210\306!\210\307 *\266\307 \207"
[require eieio-custom internal--before-save-selected-window make-closure
#[0 "\301\300!\207"
[V0 internal--after-save-selected-window]
2]
dframe-select-attached-frame eieio-customize-object dframe-maybee-jump-to-attached-frame]
5 "Handle a click action on OBJECT in speedbar.\nAny object can be represented as a tag in SPEEDBAR without special\nattributes. These default objects will be pulled up in a custom\nobject edit buffer doing an in-place edit.\n\nIf your object represents some other item, override this method\nand take the appropriate action.\n\n(fn OBJECT)"]
(#s(cl--generic semanticdb-get-buffer
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(semanticdb-table)
nil nil
#[257 "\300!\206�\301 \302\303\"\216\304\305!\306\")\262\207"
[semanticdb-in-buffer-p match-data make-closure
#[0 "\301\300\302\"\207"
[V0 set-match-data t]
3]
find-file-noselect semanticdb-full-filename t]
5 "Return a buffer associated with OBJ.\nIf the buffer is in memory, return that buffer.\nIf the buffer is not in memory, load it with `find-file-noselect'.\n\n(fn OBJ)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn OBJ)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn OBJ)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn OBJ)"]
(#s(cl--generic erc-sasl--create-client
((0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((eql ecdsa-nist256p-challenge))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\301\236A\211;\203�\302!\204�\303\304\305\"\210\304\207\306\307!\204#�\303\304\310\"\210\304\207 \311\312#\210\207"
[erc-sasl--options password file-readable-p erc-display-error-notice nil "`erc-sasl-password' not accessible as a file" executable-find "openssl" "Could not find openssl program" sasl-client-set-property ecdsa-keyfile]
8 "\n\n(fn CL--CNM _)"]]
6 "Create and return a new ECDSA-NIST256P-CHALLENGE client.\n\n(fn _)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((eql scram-sha-512))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\300\301!\205� \207"
[featurep sasl-scram-sha256]
4 "\n\n(fn CL--CNM _)"]]
6 "Create and return a new SCRAM-SHA-512 client.\n\n(fn _)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((eql scram-sha-256))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\300\301!\205� \207"
[featurep sasl-scram-sha256]
4 "\n\n(fn CL--CNM _)"]]
6 "Create and return a new SCRAM-SHA-256 client.\n\n(fn _)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((eql plain))
nil nil
#[257 "\305\306\307\"\"\310B\311 \247\203�\312 !\202�\313\n\206 � \314\315!\316$\317\320\321\322\f\"#)\210\207"
[sasl-mechanism-alist erc-session-port erc-server-announced-name erc-session-server erc-sasl--options remq assoc "PLAIN"
("PLAIN" erc-sasl-plain)
erc-sasl--get-user number-to-string "0" sasl-find-mechanism
("PLAIN")
sasl-make-client sasl-client-set-property authenticator-name alist-get authzid]
13 "Create and return a new PLAIN client object.\n\n(fn _)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\303! \304!\226\305\306\304!P!\307\205[�\310\311#C\203,�\241\266\2027�B\211\262B\266 \235\203A� \202D� B\312\313C!\314 \315\211$\262\316\317\320\321\n\"#\210\211*\207"
[sasl-mechanism-alist sasl-mechanisms erc-sasl--options copy-sequence symbol-name intern-soft "erc-sasl-" nil assoc equal sasl-make-client sasl-find-mechanism erc-sasl--get-user "N/A" sasl-client-set-property authenticator-name alist-get authzid]
12 "\n\n(fn MECHANISM)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\303! \304!\226\305\306\304!P!\307\205[�\310\311#C\203,�\241\266\2027�B\211\262B\266 \235\203A� \202D� B\312\313C!\314 \315\211$\262\316\317\320\321\n\"#\210\211*\207"
[sasl-mechanism-alist sasl-mechanisms erc-sasl--options copy-sequence symbol-name intern-soft "erc-sasl-" nil assoc equal sasl-make-client sasl-find-mechanism erc-sasl--get-user "N/A" sasl-client-set-property authenticator-name alist-get authzid]
12 "\n\n(fn MECHANISM)"]))
#[257 "\303! \304!\226\305\306\304!P!\307\205[�\310\311#C\203,�\241\266\2027�B\211\262B\266 \235\203A� \202D� B\312\313C!\314 \315\211$\262\316\317\320\321\n\"#\210\211*\207"
[sasl-mechanism-alist sasl-mechanisms erc-sasl--options copy-sequence symbol-name intern-soft "erc-sasl-" nil assoc equal sasl-make-client sasl-find-mechanism erc-sasl--get-user "N/A" sasl-client-set-property authenticator-name alist-get authzid]
12 "\n\n(fn MECHANISM)"]
(#s(cl--generic initialize-instance
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(ede-locate-cscope)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301!\210\302 \210\303\304\305\"!?\205�\306\307\304\305\"\"\207"
[require cedet-cscope cedet-cscope-version-check cedet-cscope-support-for-directory eieio-oref root error "Cannot use Cscope in %s"]
8 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use Cscope.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-idutils)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301!\210\302 \210\303\304\305\"!?\205�\306\307\304\305\"\"\207"
[require cedet-idutils cedet-idutils-version-check cedet-idutils-support-for-directory eieio-oref root error "Cannot use IDUtils in %s"]
8 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use IDUtils.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-global)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302!\210 \210\303 \210\304\305\"\306 \211?\205 �\307\310\304\305\"\")\207"
[default-directory require cedet-global cedet-gnu-global-version-check eieio-oref root cedet-gnu-global-root error "No GNU Global project found for %s"]
9 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use GNU Global.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-base)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300!\207"
[ede-locate-flush-hash]
5 "\n\n(fn CL--CNM LOC &rest FIELDS)"]]
6 "Make sure we have a hash table.\n\n(fn LOC &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-generic-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\"?\205�\302\303\304#\207"
[slot-boundp targets eieio-oset :targets nil]
7 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(forge--topics-filter-command)
(:after)
nil
#[513 "\300\301\"?\205�\302\301\303\304\305\306\307\"\"!#\207"
[slot-boundp reader eieio-oset intern format "forge-read-topic-%s" eieio-oref slot]
11 "\n\n(fn OBJ &optional SLOTS)"])
#s(cl--generic-method
(forge--topic-set-slot-command)
(:after)
nil
#[513 "\300\301\302\"!\303\304\"\2044�\305\306\"\203(�\211\307\310O\262\311\304\312\313\"#\210\2024�\311\304\314\315\316\"!#\210\311\317\314\315\320\"!#\210\303\321\"?\205S�\311\321\314\315\322\"!#\207"
[symbol-name slot-value slot slot-boundp reader string-suffix-p "-p" 0 -2 eieio-oset make-closure
#[257 "\301\302\300\303\"\"?\207"
[V0 eieio-oref slot-value slot]
6 "\n\n(fn %)"]
intern format "forge-read-topic-%s" setter "forge--set-topic-%s" formatter "forge--format-topic-%s"]
11 "\n\n(fn OBJ &optional SLOTS)"])
#s(cl--generic-method
(srecode-dictionary-compound-variable)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\300\211\203'�@\301=\203�A@\262\202 �A@@BB\262AA\262\202�\237\"\210\302\303\"?\205�\304\305\"\300\203v�@\211;\203M�\211B\266\202\202o�\211<\203i�\211@\306=\203i�\307\310!\210\311A\"B\266\202\202o�\312\313\"\266A\262\202:�\314\303\237#\266\202\207"
[nil :state slot-boundp compiled eieio-oref value macro require srecode/compile srecode-compile-parse-inserter error "Don't know how to handle variable value %S" eieio-oset]
11 "\n\n(fn CL--CNM THIS &optional FIELDS)"]]
6 "Initialize the compound variable THIS.\nMakes sure that :value is compiled.\n\n(fn THIS &optional FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-field)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\235\204\f�\301C\" \207"
[srecode-field-archive append]
6 "\n\n(fn CL--CNM FIELD &optional ARGS)"]]
6 "Initialize FIELD, being sure it archived.\n\n(fn FIELD &optional ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-template-inserted-region)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302#\210\303 \207"
[srecode-field-archive eieio-oset fields nil]
7 "\n\n(fn CL--CNM IR &rest ARGS)"]]
6 "Initialize IR, capturing the active fields, and creating the overlay.\n\n(fn IR &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-overlaid)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\300\211\211\211\203K�@\301=\203 �A\262@\262A\262\202�@\302=\2034�A\262@\262A\262\202�@B\262A\262@B\262A\262\202�\303p\304\300%\262\305\306\304#\210\307\310#\210\237\"\207"
[nil :start :end make-overlay t overlay-put srecode-init-only eieio-oset overlay]
13 "\n\n(fn CL--CNM OLAID &optional ARGS)"]]
6 "Initialize OLAID, being sure it archived.\n\n(fn OLAID &optional ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(semantic-bookmark)
(:after)
nil
#[385 "\3001!�\212\301\302\303\304\305\"!#\210\306\304\305\"!\210\301\307\310 #)0\207\210\311\312!\207"
[(error)
eieio-oset filename semantic-tag-file-name eieio-oref tag semantic-go-to-tag parent semantic-current-tag-parent message "Error bookmarking tag."]
9 "Initialize the bookmark SBM with details about :tag.\n\n(fn SBM &rest FIELDS)"])
#s(cl--generic-method
(semantic-displayer-tooltip)
(:after)
nil
#[385 "\300\301!\207"
[require tooltip]
4 "Make sure we have tooltips required.\n\n(fn OBJ &rest ARGS)"])
#s(cl--generic-method
(ede-linker)
(:after)
nil
#[385 "\235\203�\207B\211\207"
[ede-linker-list]
4 "Make sure that all ede compiler objects are cached in\n`ede-linker-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(ede-compiler)
(:after)
nil
#[385 "\235\203�\207B\211\207"
[ede-compiler-list]
4 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(ede-linux-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\"?\205�\302\303\304#\207"
[slot-boundp targets eieio-oset :targets nil]
7 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-cpp-root-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\302\"!\303\304!\305\306#\211\203\"�\211=\204\"�\307!\210\310!\210\210\311!\203/�\312!\2037�\310!\210\313\314!\210\315\302#\210\315\316\304!#\210\317\304!!\210\320!\210\321\322\"?\205\\�\315\322\323#\207"
[expand-file-name eieio-oref file eieio-instance-tracker-find file-name-directory :directory ede-cpp-root-project-list ede-delete-project-from-global-list delete-instance file-exists-p file-directory-p error ":file for ede-cpp-root-project must be a file" eieio-oset directory ede-project-directory-remove-hash ede-add-project-to-global-list slot-boundp targets nil]
9 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the :file is fully expanded.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(chart)
(:after)
nil
#[385 "\300\301\302 \303Z#\210\300\304\305 \306Z#\207"
[eieio-oset x-width window-width 10 y-width window-height 12]
7 "Initialize the chart OBJ being created with FIELDS.\nMake sure the width/height is correct.\n\n(fn OBJ &rest FIELDS)"])
#s(cl--generic-method
(ede-sourcecode)
(:after)
nil
#[385 "\211\203�\301\302\"\301@\302\"\230\204�\211A\262\202�\211\203!�\211\240\207B\211\207"
[ede-sourcecode-list eieio-oref name]
7 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(registry-db t)
(:after)
nil
#[514 "\300>\204�\301\302\303\304\305\306\307\310\311&#\210\312>?\205%�\301\313\303\304\314\306\307$#\207"
[:data eieio-oset data make-hash-table :size 10000 :rehash-size 2.0 :test equal :tracker tracker 100]
12 "Set value of data slot of THIS after initialization.\n\n(fn THIS SLOTS)"])
#s(cl--generic-method
(registry-db t)
(:before)
nil
#[514 "\301\302\"\205 �\303\302\"\211\203�\304\305\"\205M�\306\307\303\310\"#\262\306\302#\262@\310=\2036�AA\262\202;�\311\310\"\210@\312=\203I�AA\262\313\207\311\312\"\207"
[registry-db-version plist-member :version plist-get eql 0.1 plist-put :max-size :max-hard cl--do-remf :max-soft t]
9 "Check whether a registry object needs to be upgraded.\n\n(fn THIS SLOTS)"])
#s(cl--generic-method
(eieio-instance-tracker)
(:after)
nil
#[385 "\300\301\"J>?\205�\211\302JC\"L\207"
[eieio-oref tracking-symbol append]
7 "Make sure THIS is in our master list of this class.\nOptional argument SLOTS are the initialization arguments.\n\n(fn THIS &rest SLOTS)"])
#s(cl--generic-method
(eglot-lsp-server)
(:before)
nil
#[513 "\211@\300=\203�\211AA\262\301\207\302\300\"\207"
[:initializationOptions t cl--do-remf]
5 "\n\n(fn SERVER &optional ARGS)"])
#s(cl--generic-method
(jsonrpc-process-connection t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 " \210\302\303\"A@\302\304\"A@pr\305\306\307\"!q\210\310\311\312 P\313 \210\314 \210\315\316\317\320\n\"\321\310$\210\322!\203A�rq\210 )\202B�\262\3231P�\324!0\210\202Q�\210\325!\210\326\327p#\210\310*\266\330\"\210\331\305\306\332\"!\"\210\333\334\"\210\335\336\"\210r\337!q\210\314 \210\340!e\321\223\210\310\313 )\210\310)\326\341#\207"
[inhibit-read-only buffer-read-only plist-member :process :name get-buffer-create format "*%s stderr*" t " " buffer-name erase-buffer buffer-disable-undo add-hook after-change-functions make-closure
#[771 "\302\211b\210\302y\210n\203�\303\304!\305\304!{\262r\306\300!q\210db\210\307\310\311\"c*\210m\2041�\302\262\202�\302\207"
[V0 inhibit-read-only nil line-beginning-position 0 line-end-position jsonrpc-events-buffer t format "[stderr] %s\n"]
8 "\n\n(fn BEG END PRE-CHANGE-LEN)"]
nil functionp
(error)
kill-buffer rename-buffer process-put jsonrpc-stderr \(setf\ jsonrpc--process\) set-process-buffer " *%s output*" set-process-filter jsonrpc--process-filter set-process-sentinel jsonrpc--process-sentinel process-buffer process-mark jsonrpc-connection]
13 "\n\n(fn CL--CNM CONN SLOTS)"]]
6 "\n\n(fn CONN SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]))
nil)
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]))
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]
(#s(cl--generic erc-networks--id-given
((0 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(erc-networks--id-fixed)
nil nil
#[257 "\301!>\204�\302\303\304D\"\210\211\305H\207"
[cl-struct-erc-networks--id-tags type-of signal wrong-type-argument erc-networks--id 2]
5 "\n\n(fn NID)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn _)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn _)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn _)"]
(#s(cl--generic erc-networks--id-create
(((&context with-suppressed-warnings
((obsolete erc-reuse-buffers)
(free-vars erc-reuse-buffers))
erc-reuse-buffers)
#s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
((&context with-suppressed-warnings
((obsolete erc-rename-buffers)
(free-vars erc-rename-buffers))
erc-rename-buffers)
#s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(symbol
((&context with-suppressed-warnings
((obsolete erc-reuse-buffers)
(free-vars erc-reuse-buffers))
erc-reuse-buffers)
. null))
nil nil
#[257 "\300\301\302 !!\207"
[erc-networks--id-fixed-create intern buffer-name]
4 "\n\n(fn _)"])
#s(cl--generic-method
(null
((&context with-suppressed-warnings
((obsolete erc-reuse-buffers)
(free-vars erc-reuse-buffers))
erc-reuse-buffers)
. null))
nil nil
#[257 "\300\301\302 !!\207"
[erc-networks--id-fixed-create intern buffer-name]
4 "\n\n(fn _)"])
#s(cl--generic-method
(null
((&context with-suppressed-warnings
((obsolete erc-rename-buffers)
(free-vars erc-rename-buffers))
erc-rename-buffers)
. null))
nil nil
#[257 "\300\301\302 !!\207"
[erc-networks--id-fixed-create intern buffer-name]
4 "\n\n(fn _)"])
#s(cl--generic-method
(null)
nil nil
#[257 "\300 \207"
[erc-networks--id-qualifying-create]
2 "\n\n(fn _)"])
#s(cl--generic-method
(symbol)
nil nil
#[257 "\300!\207"
[erc-networks--id-fixed-create]
3 "\n\n(fn ID)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303\"!!\207"
[erc-networks--id-fixed-create intern format "%s"]
6 "\n\n(fn ID)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303\"!!\207"
[erc-networks--id-fixed-create intern format "%s"]
6 "\n\n(fn ID)"]))
#[257 "\300\301\302\303\"!!\207"
[erc-networks--id-fixed-create intern format "%s"]
6 "\n\n(fn ID)"]
(#s(cl--generic erc-networks--id-reload
((0 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(erc-networks--id-qualifying)
nil nil
#[769 "\302\303 \304\305!>\204�\306\307\310 D\"\210\311H$\210\312\206\"� \"\210\313 \210\314\315\316\" \"\207"
[cl-struct-erc-networks--id-qualifying-tags erc-server-process erc-networks--id-qualifying-update erc-networks--id-qualifying-create :len type-of signal wrong-type-argument erc-networks--id-qualifying 4 erc-networks--rename-server-buffer erc-networks--shrink-ids-and-buffer-names-any erc-buffer-filter make-closure
#[0 "\302 \205 �\303 \300\"\211\205�\304 \232?\211\205�\305\306\"\266\202\207"
[V0 erc--target erc--default-target erc-networks--reconcile-buffer-names buffer-name rename-buffer unique]
5]]
11 "Refresh identity after an `erc-networks--id-qualifying-parts'update.\n\n(fn NID &optional PROC PARSED)"])
#s(cl--generic-method
(t)
nil nil
#[769 "\300\207"
[nil]
4 "\n\n(fn NID &optional PROC PARSED)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[769 "\300\207"
[nil]
4 "\n\n(fn NID &optional PROC PARSED)"]))
#[769 "\300\207"
[nil]
4 "\n\n(fn NID &optional PROC PARSED)"]
(#s(cl--generic erc-networks--shrink-ids-and-buffer-names
(((&context . erc-networks--id)
#s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(((&context . erc-networks--id)
. erc-networks--id-qualifying))
nil nil
#[0 "\300p!\207"
[erc-networks--shrink-ids-and-buffer-names-any]
2])
#s(cl--generic-method nil nil nil
#[0 "\300\207"
[nil]
1]))
nil)
#s(cl--generic-method nil nil nil
#[0 "\300\207"
[nil]
1]))
#[0 "\300\207"
[nil]
1]
(#s(cl--generic erc--register-connection
(((&context . erc-sasl-mode)
#s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(((&context . erc-sasl-mode)
eql t))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[257 "\306! >\204�\307\310\300D\"\210\311H\211\205�\312\313!!\211\203^�\314\n\203(�\315\202)�\316!\210 \205:�\317\320\f\"\321=?\205:� \317\322\f\"\323=\203H�\324 \202I�
*\210\n\203W�\314\316!\210\314\325\326\"!\207\327!\207"
[erc-sasl--state cl-struct-erc-sasl--state-tags erc-sasl--send-cap-ls erc-session-password erc-sasl--options erc-session-username type-of signal wrong-type-argument 1 sasl-mechanism-name sasl-client-mechanism erc-server-send "CAP LS" "CAP REQ :sasl" alist-get password :password user :user erc-current-nick format "AUTHENTICATE %s" erc-sasl--destroy erc-server-process]
7 "\n\n(fn CL--CNM)"]]
6 "Send speculative CAP and pipelined AUTHENTICATE and hope for the best.\n\n(fn)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method nil nil nil
#[0 "\300\301!\210\302 \207"
[run-hooks erc--server-post-connect-hook erc-login]
2 "Perform opening IRC protocol exchange with server."]))
nil)
#s(cl--generic-method nil nil nil
#[0 "\300\301!\210\302 \207"
[run-hooks erc--server-post-connect-hook erc-login]
2 "Perform opening IRC protocol exchange with server."]))
#[0 "\300\301!\210\302 \207"
[run-hooks erc--server-post-connect-hook erc-login]
2 "Perform opening IRC protocol exchange with server."]
(#s(cl--generic erc--parse-message-tags
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\205 �\301=\204�\302\303N\204�\304\302\303\305#\210\306\307\310\"\210\311!\207"
[erc-tags-format legacy erc-parse-tags erc-v3-warned-p put t display-warning erc "Legacy ERC tags behavior is currently in effect, but other modules, including those bundled with ERC, may override this in future releases. See `erc-tags-format' for more info." erc--parse-tags]
5 "\n\n(fn STRING)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\205 �\301=\204�\302\303N\204�\304\302\303\305#\210\306\307\310\"\210\311!\207"
[erc-tags-format legacy erc-parse-tags erc-v3-warned-p put t display-warning erc "Legacy ERC tags behavior is currently in effect, but other modules, including those bundled with ERC, may override this in future releases. See `erc-tags-format' for more info." erc--parse-tags]
5 "\n\n(fn STRING)"]))
#[257 "\205 �\301=\204�\302\303N\204�\304\302\303\305#\210\306\307\310\"\210\311!\207"
[erc-tags-format legacy erc-parse-tags erc-v3-warned-p put t display-warning erc "Legacy ERC tags behavior is currently in effect, but other modules, including those bundled with ERC, may override this in future releases. See `erc-tags-format' for more info." erc--parse-tags]
5 "\n\n(fn STRING)"]
(#s(cl--generic seq-empty-p
((0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(list)
nil nil
#[257 "\211?\207"
[]
2 "Optimized implementation of `seq-empty-p' for lists.\n\n(fn LIST)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\301U\207"
[seq-length 0]
3 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(list)
nil nil
#[257 "\211?\207"
[]
2 "Optimized implementation of `seq-empty-p' for lists.\n\n(fn LIST)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300!\301U\207"
[seq-length 0]
3 "\n\n(fn SEQUENCE)"]))
#[257 "\211?\207"
[]
2 "Optimized implementation of `seq-empty-p' for lists.\n\n(fn LIST)"]
(#s(cl--generic shared-initialize
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(gnus-search-process t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 "\300\301\302\303!#\262\"\207"
[plist-put :proc-buffer generate-new-buffer " *gnus-search-"]
8 "\n\n(fn CL--CNM ENGINE SLOTS)"]]
6 "\n\n(fn ENGINE SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-default-superclass t)
nil nil
#[514 "\211\205E�\300\211\211\301H\262\2119\203 �\211\302N\206 �\262\202 �\211\266\202@\"\211\2044�\303@\304A@$\266\202=�\305A@#\266\211AA\262\202��\207"
[eieio--initarg-to-attribute 0 cl--class slot-missing oset eieio-oset]
8 "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine.\n\n(fn OBJ SLOTS)"]))
nil)
#s(cl--generic-method
(eieio-default-superclass t)
nil nil
#[514 "\211\205E�\300\211\211\301H\262\2119\203 �\211\302N\206 �\262\202 �\211\266\202@\"\211\2044�\303@\304A@$\266\202=�\305A@#\266\211AA\262\202��\207"
[eieio--initarg-to-attribute 0 cl--class slot-missing oset eieio-oset]
8 "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine.\n\n(fn OBJ SLOTS)"]))
#[514 "\211\205E�\300\211\211\301H\262\2119\203 �\211\302N\206 �\262\202 �\211\266\202@\"\211\2044�\303@\304A@$\266\202=�\305A@#\266\211AA\262\202��\207"
[eieio--initarg-to-attribute 0 cl--class slot-missing oset eieio-oset]
8 "Set slots of OBJ with SLOTS which is a list of name/value pairs.\nCalled from the constructor routine.\n\n(fn OBJ SLOTS)"]
(#s(cl--generic semanticdb-equivalent-mode-for-search
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[513 "\302N\206� \206�\303\"\207"
[major-mode semanticdb-match-any-mode semantic-match-any-mode semanticdb-equivalent-mode]
5 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nSee `semanticdb-equivalent-mode' for details.\nThis version is used during searches. Major-modes that opt\nto set the `semantic-match-any-mode' property will be able to search\nall files of any type.\n\n(fn TABLE &optional BUFFER)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[513 "\302N\206� \206�\303\"\207"
[major-mode semanticdb-match-any-mode semantic-match-any-mode semanticdb-equivalent-mode]
5 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nSee `semanticdb-equivalent-mode' for details.\nThis version is used during searches. Major-modes that opt\nto set the `semantic-match-any-mode' property will be able to search\nall files of any type.\n\n(fn TABLE &optional BUFFER)"]))
#[513 "\302N\206� \206�\303\"\207"
[major-mode semanticdb-match-any-mode semantic-match-any-mode semanticdb-equivalent-mode]
5 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nSee `semanticdb-equivalent-mode' for details.\nThis version is used during searches. Major-modes that opt\nto set the `semantic-match-any-mode' property will be able to search\nall files of any type.\n\n(fn TABLE &optional BUFFER)"]
(#s(cl--generic initialize-instance
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(ede-locate-cscope)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301!\210\302 \210\303\304\305\"!?\205�\306\307\304\305\"\"\207"
[require cedet-cscope cedet-cscope-version-check cedet-cscope-support-for-directory eieio-oref root error "Cannot use Cscope in %s"]
8 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use Cscope.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-idutils)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301!\210\302 \210\303\304\305\"!?\205�\306\307\304\305\"\"\207"
[require cedet-idutils cedet-idutils-version-check cedet-idutils-support-for-directory eieio-oref root error "Cannot use IDUtils in %s"]
8 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use IDUtils.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-global)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302!\210 \210\303 \210\304\305\"\306 \211?\205 �\307\310\304\305\"\")\207"
[default-directory require cedet-global cedet-gnu-global-version-check eieio-oref root cedet-gnu-global-root error "No GNU Global project found for %s"]
9 "\n\n(fn CL--CNM LOC &rest SLOTS)"]]
6 "Make sure that we can use GNU Global.\n\n(fn LOC &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-locate-base)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300!\207"
[ede-locate-flush-hash]
5 "\n\n(fn CL--CNM LOC &rest FIELDS)"]]
6 "Make sure we have a hash table.\n\n(fn LOC &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-generic-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\"?\205�\302\303\304#\207"
[slot-boundp targets eieio-oset :targets nil]
7 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(forge--topics-filter-command)
(:after)
nil
#[513 "\300\301\"?\205�\302\301\303\304\305\306\307\"\"!#\207"
[slot-boundp reader eieio-oset intern format "forge-read-topic-%s" eieio-oref slot]
11 "\n\n(fn OBJ &optional SLOTS)"])
#s(cl--generic-method
(forge--topic-set-slot-command)
(:after)
nil
#[513 "\300\301\302\"!\303\304\"\2044�\305\306\"\203(�\211\307\310O\262\311\304\312\313\"#\210\2024�\311\304\314\315\316\"!#\210\311\317\314\315\320\"!#\210\303\321\"?\205S�\311\321\314\315\322\"!#\207"
[symbol-name slot-value slot slot-boundp reader string-suffix-p "-p" 0 -2 eieio-oset make-closure
#[257 "\301\302\300\303\"\"?\207"
[V0 eieio-oref slot-value slot]
6 "\n\n(fn %)"]
intern format "forge-read-topic-%s" setter "forge--set-topic-%s" formatter "forge--format-topic-%s"]
11 "\n\n(fn OBJ &optional SLOTS)"])
#s(cl--generic-method
(srecode-dictionary-compound-variable)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\300\211\203'�@\301=\203�A@\262\202 �A@@BB\262AA\262\202�\237\"\210\302\303\"?\205�\304\305\"\300\203v�@\211;\203M�\211B\266\202\202o�\211<\203i�\211@\306=\203i�\307\310!\210\311A\"B\266\202\202o�\312\313\"\266A\262\202:�\314\303\237#\266\202\207"
[nil :state slot-boundp compiled eieio-oref value macro require srecode/compile srecode-compile-parse-inserter error "Don't know how to handle variable value %S" eieio-oset]
11 "\n\n(fn CL--CNM THIS &optional FIELDS)"]]
6 "Initialize the compound variable THIS.\nMakes sure that :value is compiled.\n\n(fn THIS &optional FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-field)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\235\204\f�\301C\" \207"
[srecode-field-archive append]
6 "\n\n(fn CL--CNM FIELD &optional ARGS)"]]
6 "Initialize FIELD, being sure it archived.\n\n(fn FIELD &optional ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-template-inserted-region)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302#\210\303 \207"
[srecode-field-archive eieio-oset fields nil]
7 "\n\n(fn CL--CNM IR &rest ARGS)"]]
6 "Initialize IR, capturing the active fields, and creating the overlay.\n\n(fn IR &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(srecode-overlaid)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[770 "\300\211\211\211\203K�@\301=\203 �A\262@\262A\262\202�@\302=\2034�A\262@\262A\262\202�@B\262A\262@B\262A\262\202�\303p\304\300%\262\305\306\304#\210\307\310#\210\237\"\207"
[nil :start :end make-overlay t overlay-put srecode-init-only eieio-oset overlay]
13 "\n\n(fn CL--CNM OLAID &optional ARGS)"]]
6 "Initialize OLAID, being sure it archived.\n\n(fn OLAID &optional ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(semantic-bookmark)
(:after)
nil
#[385 "\3001!�\212\301\302\303\304\305\"!#\210\306\304\305\"!\210\301\307\310 #)0\207\210\311\312!\207"
[(error)
eieio-oset filename semantic-tag-file-name eieio-oref tag semantic-go-to-tag parent semantic-current-tag-parent message "Error bookmarking tag."]
9 "Initialize the bookmark SBM with details about :tag.\n\n(fn SBM &rest FIELDS)"])
#s(cl--generic-method
(semantic-displayer-tooltip)
(:after)
nil
#[385 "\300\301!\207"
[require tooltip]
4 "Make sure we have tooltips required.\n\n(fn OBJ &rest ARGS)"])
#s(cl--generic-method
(ede-linker)
(:after)
nil
#[385 "\235\203�\207B\211\207"
[ede-linker-list]
4 "Make sure that all ede compiler objects are cached in\n`ede-linker-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(ede-compiler)
(:after)
nil
#[385 "\235\203�\207B\211\207"
[ede-compiler-list]
4 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(ede-linux-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\"?\205�\302\303\304#\207"
[slot-boundp targets eieio-oset :targets nil]
7 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(ede-cpp-root-project)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 " \210\300\301\302\"!\303\304!\305\306#\211\203\"�\211=\204\"�\307!\210\310!\210\210\311!\203/�\312!\2037�\310!\210\313\314!\210\315\302#\210\315\316\304!#\210\317\304!!\210\320!\210\321\322\"?\205\\�\315\322\323#\207"
[expand-file-name eieio-oref file eieio-instance-tracker-find file-name-directory :directory ede-cpp-root-project-list ede-delete-project-from-global-list delete-instance file-exists-p file-directory-p error ":file for ede-cpp-root-project must be a file" eieio-oset directory ede-project-directory-remove-hash ede-add-project-to-global-list slot-boundp targets nil]
9 "\n\n(fn CL--CNM THIS &rest FIELDS)"]]
6 "Make sure the :file is fully expanded.\n\n(fn THIS &rest FIELDS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(chart)
(:after)
nil
#[385 "\300\301\302 \303Z#\210\300\304\305 \306Z#\207"
[eieio-oset x-width window-width 10 y-width window-height 12]
7 "Initialize the chart OBJ being created with FIELDS.\nMake sure the width/height is correct.\n\n(fn OBJ &rest FIELDS)"])
#s(cl--generic-method
(ede-sourcecode)
(:after)
nil
#[385 "\211\203�\301\302\"\301@\302\"\230\204�\211A\262\202�\211\203!�\211\240\207B\211\207"
[ede-sourcecode-list eieio-oref name]
7 "Make sure that all ede compiler objects are cached in\n`ede-compiler-list'.\n\n(fn THIS &rest FIELDS)"])
#s(cl--generic-method
(registry-db t)
(:after)
nil
#[514 "\300>\204�\301\302\303\304\305\306\307\310\311&#\210\312>?\205%�\301\313\303\304\314\306\307$#\207"
[:data eieio-oset data make-hash-table :size 10000 :rehash-size 2.0 :test equal :tracker tracker 100]
12 "Set value of data slot of THIS after initialization.\n\n(fn THIS SLOTS)"])
#s(cl--generic-method
(registry-db t)
(:before)
nil
#[514 "\301\302\"\205 �\303\302\"\211\203�\304\305\"\205M�\306\307\303\310\"#\262\306\302#\262@\310=\2036�AA\262\202;�\311\310\"\210@\312=\203I�AA\262\313\207\311\312\"\207"
[registry-db-version plist-member :version plist-get eql 0.1 plist-put :max-size :max-hard cl--do-remf :max-soft t]
9 "Check whether a registry object needs to be upgraded.\n\n(fn THIS SLOTS)"])
#s(cl--generic-method
(eieio-instance-tracker)
(:after)
nil
#[385 "\300\301\"J>?\205�\211\302JC\"L\207"
[eieio-oref tracking-symbol append]
7 "Make sure THIS is in our master list of this class.\nOptional argument SLOTS are the initialization arguments.\n\n(fn THIS &rest SLOTS)"])
#s(cl--generic-method
(eglot-lsp-server)
(:before)
nil
#[513 "\211@\300=\203�\211AA\262\301\207\302\300\"\207"
[:initializationOptions t cl--do-remf]
5 "\n\n(fn SERVER &optional ARGS)"])
#s(cl--generic-method
(jsonrpc-process-connection t)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[771 " \210\302\303\"A@\302\304\"A@pr\305\306\307\"!q\210\310\311\312 P\313 \210\314 \210\315\316\317\320\n\"\321\310$\210\322!\203A�rq\210 )\202B�\262\3231P�\324!0\210\202Q�\210\325!\210\326\327p#\210\310*\266\330\"\210\331\305\306\332\"!\"\210\333\334\"\210\335\336\"\210r\337!q\210\314 \210\340!e\321\223\210\310\313 )\210\310)\326\341#\207"
[inhibit-read-only buffer-read-only plist-member :process :name get-buffer-create format "*%s stderr*" t " " buffer-name erase-buffer buffer-disable-undo add-hook after-change-functions make-closure
#[771 "\302\211b\210\302y\210n\203�\303\304!\305\304!{\262r\306\300!q\210db\210\307\310\311\"c*\210m\2041�\302\262\202�\302\207"
[V0 inhibit-read-only nil line-beginning-position 0 line-end-position jsonrpc-events-buffer t format "[stderr] %s\n"]
8 "\n\n(fn BEG END PRE-CHANGE-LEN)"]
nil functionp
(error)
kill-buffer rename-buffer process-put jsonrpc-stderr \(setf\ jsonrpc--process\) set-process-buffer " *%s output*" set-process-filter jsonrpc--process-filter set-process-sentinel jsonrpc--process-sentinel process-buffer process-mark jsonrpc-connection]
13 "\n\n(fn CL--CNM CONN SLOTS)"]]
6 "\n\n(fn CONN SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]))
nil)
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]))
#[513 "\211\211\302H\262\2119\203�\211\303N\206�\262\202�\211\266\202\304!>\204)�\305\306\307D\"\210\211\310H\211G\302\211W\203\215�H\311!\304! >\204J�\305\306\312D\"\210\313H\314\304 !>\204`�\305\306\307 D\"\210\315H\"@\211\205o�\316 \"\262\204\204�\317!\204\204�\320 \321\322\"#\210\266\211T\262\202/�\266\323\"\207"
[cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags 0 cl--class type-of signal wrong-type-argument eieio--class 4 eieio-slot-descriptor-name cl-slot-descriptor 2 rassq 7 plist-get macroexp-const-p eieio-oset eval t shared-initialize]
15 "Construct the new object THIS based on ARGS.\nARGS is a property list where odd numbered elements are tags, and\neven numbered elements are the values to store in the tagged slot.\nIf you overload the `initialize-instance', there you will need to\ncall `shared-initialize' yourself, or you can call `call-next-method'\nto have this constructor called automatically. If these steps are\nnot taken, then new objects of your class will not have their values\ndynamically set from ARGS.\n\n(fn THIS &optional ARGS)"]
(#s(cl--generic cl-print-object-contents
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-struct-generalizer 50 cl--generic-struct-tag cl--generic-struct-specializers)
#s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(string t t)
nil nil
#[771 "G:\2046�\301!\203�\\^\202�\211\302#\303!\211\304GSO\305!\210W\2055�\306#\207\307\301!\205B�\304\310\245]\311@\312 #\203V�W\203\247�W\203\247�\313\n\"\211\203\230�\203p�\314\262\202v�\305\315 \"\210\305 \"\210\305\315 \"\210\305 \"\210\305\315 \"\210\316 \"\210T\262\262\312 #\266\202\202L�W\205\274�\305\315\"\210\306 C #\207"
[print-length natnump substring-no-properties prin1-to-string 1 princ cl-print-insert-ellipsis t 3 0 next-property-change text-properties-at nil " " cl-print-object]
14 "\n\n(fn OBJECT START STREAM)"])
#s(cl--generic-method
(cl-structure-object t t)
nil nil
#[771 "\303\304!!\304!>\204�\305\306\307D\"\210\211\310H\211G\311 !\203'� \\^\202(�\211\211W\203t�HU\204?�\312\313\"\210\312\314\"\210\312\304!\n>\204U�\305\306\315D\"\210\316H\"\210\312\313\"\210\317 TH\"\266\211T\262\202)�W\205\207�\312\313\"\210\320#\207"
[cl-struct-cl-structure-class-tags print-length cl-struct-cl-slot-descriptor-tags cl-find-class type-of signal wrong-type-argument cl-structure-class 4 natnump princ " " ":" cl-slot-descriptor 1 cl-print-object cl-print-insert-ellipsis]
14 "\n\n(fn OBJECT START STREAM)"])
#s(cl--generic-method
(vector t t)
nil nil
#[771 "G\301!\203�\\^\202�\211\211W\2032�\211U\204#�\302\303\"\210\304H\"\210\211T\262\202�W\205D�\302\303\"\210\305#\207"
[print-length natnump princ " " cl-print-object cl-print-insert-ellipsis]
10 "\n\n(fn OBJECT START STREAM)"])
#s(cl--generic-method
(cons t t)
nil nil
#[771 "\303:\203T�\203�\304\"\247\202 � >\204T� B\305\204T�\211\303U\204+�\306\307\"\210\310\n!\2037�\nV\203D�\311\211A\262\242\"\210\202M�\312\n#\210\305\262\211T\262\202�\205a�\306\313\"\210\311\"\207"
[cl-print--number-table cl-print--currently-printing print-length 0 gethash nil princ " " natnump cl-print-object cl-print-insert-ellipsis " . "]
8 "\n\n(fn OBJECT START STREAM)"])
#s(cl--generic-method
(t t t)
nil nil
#[771 "\300\301!\207"
[error "Missing cl-print-object-contents method"]
5 "\n\n(fn OBJECT START STREAM)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[771 "\300\301!\207"
[error "Missing cl-print-object-contents method"]
5 "\n\n(fn OBJECT START STREAM)"]))
#[771 "\300\301!\207"
[error "Missing cl-print-object-contents method"]
5 "\n\n(fn OBJECT START STREAM)"]
(#s(cl--generic srecode-map-update-file-entry
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(srecode-map t t)
nil nil
#[771 "\300\"\301\203�A=\203�\302\207\203�\241\210\207\303\304B#\210\207"
[srecode-map-entry-for-file t nil object-add-to-list files]
10 "Update a MAP entry for FILE to be used with MODE.\nReturn non-nil if the MAP was changed.\n\n(fn MAP FILE MODE)"]))
nil)
#s(cl--generic-method
(srecode-map t t)
nil nil
#[771 "\300\"\301\203�A=\203�\302\207\203�\241\210\207\303\304B#\210\207"
[srecode-map-entry-for-file t nil object-add-to-list files]
10 "Update a MAP entry for FILE to be used with MODE.\nReturn non-nil if the MAP was changed.\n\n(fn MAP FILE MODE)"]))
#[771 "\300\"\301\203�A=\203�\302\207\203�\241\210\207\303\304B#\210\207"
[srecode-map-entry-for-file t nil object-add-to-list files]
10 "Update a MAP entry for FILE to be used with MODE.\nReturn non-nil if the MAP was changed.\n\n(fn MAP FILE MODE)"]
(#s(cl--generic srecode-map-update-app-file-entry
((3 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(srecode-map t t t)
nil nil
#[1028 "\300\"\301A\"\302\203�A=\203�\303\207\203 �\241\210\207\304\"\211\203J�\211@\204:�\305\"\266\202K�\300\"\211\306AA\"\241\266\210\203[�BAB\241\210\207\307\310 BD#\210\207"
[srecode-map-entry-for-app assoc t nil srecode-map-entry-for-file-anywhere srecode-map-delete-file-entry delete object-add-to-list apps]
13 "Update the MAP entry for FILE to be used with MODE within APP.\nReturn non-nil if the map was changed.\n\n(fn MAP FILE MODE APP)"]))
nil)
#s(cl--generic-method
(srecode-map t t t)
nil nil
#[1028 "\300\"\301A\"\302\203�A=\203�\303\207\203 �\241\210\207\304\"\211\203J�\211@\204:�\305\"\266\202K�\300\"\211\306AA\"\241\266\210\203[�BAB\241\210\207\307\310 BD#\210\207"
[srecode-map-entry-for-app assoc t nil srecode-map-entry-for-file-anywhere srecode-map-delete-file-entry delete object-add-to-list apps]
13 "Update the MAP entry for FILE to be used with MODE within APP.\nReturn non-nil if the map was changed.\n\n(fn MAP FILE MODE APP)"]))
#[1028 "\300\"\301A\"\302\203�A=\203�\303\207\203 �\241\210\207\304\"\211\203J�\211@\204:�\305\"\266\202K�\300\"\211\306AA\"\241\266\210\203[�BAB\241\210\207\307\310 BD#\210\207"
[srecode-map-entry-for-app assoc t nil srecode-map-entry-for-file-anywhere srecode-map-delete-file-entry delete object-add-to-list apps]
13 "Update the MAP entry for FILE to be used with MODE within APP.\nReturn non-nil if the map was changed.\n\n(fn MAP FILE MODE APP)"]
(#s(cl--generic clone
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(eieio-named)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\211@;\205\f�\211A\262\242\300#\301\302\"\303\302\206Z�\301 \302\"\232\203Y�\304 \305\306\"\216\203P�\307\310\"\203P�\311\312\313\"!T\314\211\224O\315\316!Q\262\202S�\317P)\262\202Z�#\210\207"
[apply slot-value object-name eieio-oset match-data make-closure
#[0 "\301\300\302\"\207"
[V0 set-match-data t]
3]
string-match "-\\([0-9]+\\)" string-to-number match-string 1 0 "-" int-to-string "-1"]
15 "\n\n(fn CL--CNM OBJ &rest PARAMS)"]]
6 "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-instance-inheritor)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\211@;\203�\211A\262\242\"\202�!\300\301!!\211\2030�\211@\302!\303\"\266A\266\202\202�\210\203:�\304\"\210\305\306#\210\207"
[eieio-class-slots eieio-object-class eieio-slot-descriptor-name slot-makeunbound shared-initialize eieio-oset parent-instance]
10 "\n\n(fn CL--CNM OBJ &rest PARAMS)"]]
6 "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[385 "\301!@;\203�\203�\302\202�\303\304\211A\262\242\"\210\203$�\305\"\210\207"
[eieio-backward-compatibility copy-sequence ignore message "Obsolete name %S passed to clone" shared-initialize]
7 "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)"]))
nil)
#s(cl--generic-method
(eieio-instance-inheritor)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\211@;\203�\211A\262\242\"\202�!\300\301!!\211\2030�\211@\302!\303\"\266A\266\202\202�\210\203:�\304\"\210\305\306#\210\207"
[eieio-class-slots eieio-object-class eieio-slot-descriptor-name slot-makeunbound shared-initialize eieio-oset parent-instance]
10 "\n\n(fn CL--CNM OBJ &rest PARAMS)"]]
6 "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(eieio-default-superclass)
nil nil
#[385 "\301!@;\203�\203�\302\202�\303\304\211A\262\242\"\210\203$�\305\"\210\207"
[eieio-backward-compatibility copy-sequence ignore message "Obsolete name %S passed to clone" shared-initialize]
7 "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)"]))
#[128 "\301\302\300#\303\304#\207"
[#[385 "\301!@;\203�\203�\302\202�\303\304\211A\262\242\"\210\203$�\305\"\210\207"
[eieio-backward-compatibility copy-sequence ignore message "Obsolete name %S passed to clone" shared-initialize]
7 "Make a copy of OBJ, and then apply PARAMS.\n\n(fn OBJ &rest PARAMS)"]
make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\211@;\203�\211A\262\242\"\202�!\300\301!!\211\2030�\211@\302!\303\"\266A\266\202\202�\210\203:�\304\"\210\305\306#\210\207"
[eieio-class-slots eieio-object-class eieio-slot-descriptor-name slot-makeunbound shared-initialize eieio-oset parent-instance]
10 "\n\n(fn CL--CNM OBJ &rest PARAMS)"]]
6 "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)"]
(#s(cl--generic seq-map
((1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t sequence)
nil nil
#[514 "\300\"\207"
[mapcar]
5 "\n\n(fn FUNCTION SEQUENCE)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil seq-do make-closure
#[257 "\300\301!\300\242B\240\207"
[V0 V1]
4 "\n\n(fn ELT)"]]
8 "\n\n(fn FUNCTION SEQUENCE)"]))
nil)
#s(cl--generic-method
(t sequence)
nil nil
#[514 "\300\"\207"
[mapcar]
5 "\n\n(fn FUNCTION SEQUENCE)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300C\301\302\303#\"\210\211\242\237\207"
[nil seq-do make-closure
#[257 "\300\301!\300\242B\240\207"
[V0 V1]
4 "\n\n(fn ELT)"]]
8 "\n\n(fn FUNCTION SEQUENCE)"]))
#[514 "\300\"\207"
[mapcar]
5 "\n\n(fn FUNCTION SEQUENCE)"]
(#s(cl--generic srecode-map-entry-for-app
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(srecode-map t)
nil nil
#[514 "\300\301\302\"\"\207"
[assoc eieio-oref apps]
7 "Return the entry in MAP for APP.\n\n(fn MAP APP)"]))
nil)
#s(cl--generic-method
(srecode-map t)
nil nil
#[514 "\300\301\302\"\"\207"
[assoc eieio-oref apps]
7 "Return the entry in MAP for APP.\n\n(fn MAP APP)"]))
#[514 "\300\301\302\"\"\207"
[assoc eieio-oref apps]
7 "Return the entry in MAP for APP.\n\n(fn MAP APP)"]
(#s(cl--generic make-instance
((0 #s(cl--generic-generalizer eieio--generic-subclass-generalizer 60
#[385 "\300\301D\302DE\207"
[and symbolp cl--find-class]
6 "\n\n(fn NAME &rest _)"]
eieio--generic-subclass-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((subclass semantic-collector-buffer-abstract))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\211\203�\204�\302@!=\203�\211@\262\202�\204,� \211\235\204*�\211B\262\303\304\"\210\303\305\"\210\303\306\"\210\207"
[semantic-collector-per-buffer-list nil eieio-object-class slot-makeunbound last-completion last-prefix current-exact-match]
8 "\n\n(fn CL--CNM THIS &rest ARGS)"]]
6 "Reuse previously created objects of this type in buffer.\n\n(fn THIS &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-named))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\211@;\204 � \207\203�\301\202�\302\303\"\210\304\305$\207"
[eieio-backward-compatibility ignore message "Obsolete: name passed without :object-name to %S constructor" apply :object-name]
8 "\n\n(fn CL--CNM CLASS &rest ARGS)"]]
6 "\n\n(fn CLASS &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-singleton))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302\"\211=\203�\303\302 #\207\207"
[eieio--unbound eieio-oref-default singleton eieio-oset-default]
8 "\n\n(fn CL--CNM CLASS &rest SLOTS)"]]
6 "Constructor for singleton CLASS.\nNAME and SLOTS initialize the new object.\nThis constructor guarantees that no matter how many you request,\nonly one object ever exists.\n\n(fn CLASS &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-default-superclass))
nil nil
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]))
nil)
#s(cl--generic-method
((subclass eieio-singleton))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302\"\211=\203�\303\302 #\207\207"
[eieio--unbound eieio-oref-default singleton eieio-oset-default]
8 "\n\n(fn CL--CNM CLASS &rest SLOTS)"]]
6 "Constructor for singleton CLASS.\nNAME and SLOTS initialize the new object.\nThis constructor guarantees that no matter how many you request,\nonly one object ever exists.\n\n(fn CLASS &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-default-superclass))
nil nil
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]))
#[128 "\301\302\300#\303\304#\207"
[#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]
make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302\"\211=\203�\303\302 #\207\207"
[eieio--unbound eieio-oref-default singleton eieio-oset-default]
8 "\n\n(fn CL--CNM CLASS &rest SLOTS)"]]
6 "Constructor for singleton CLASS.\nNAME and SLOTS initialize the new object.\nThis constructor guarantees that no matter how many you request,\nonly one object ever exists.\n\n(fn CLASS &rest SLOTS)"]
(#s(cl--generic make-instance
((0 #s(cl--generic-generalizer eieio--generic-subclass-generalizer 60
#[385 "\300\301D\302DE\207"
[and symbolp cl--find-class]
6 "\n\n(fn NAME &rest _)"]
eieio--generic-subclass-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((subclass semantic-collector-buffer-abstract))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\211\203�\204�\302@!=\203�\211@\262\202�\204,� \211\235\204*�\211B\262\303\304\"\210\303\305\"\210\303\306\"\210\207"
[semantic-collector-per-buffer-list nil eieio-object-class slot-makeunbound last-completion last-prefix current-exact-match]
8 "\n\n(fn CL--CNM THIS &rest ARGS)"]]
6 "Reuse previously created objects of this type in buffer.\n\n(fn THIS &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-named))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\211@;\204 � \207\203�\301\202�\302\303\"\210\304\305$\207"
[eieio-backward-compatibility ignore message "Obsolete: name passed without :object-name to %S constructor" apply :object-name]
8 "\n\n(fn CL--CNM CLASS &rest ARGS)"]]
6 "\n\n(fn CLASS &rest ARGS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-singleton))
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[642 "\301\302\"\211=\203�\303\302 #\207\207"
[eieio--unbound eieio-oref-default singleton eieio-oset-default]
8 "\n\n(fn CL--CNM CLASS &rest SLOTS)"]]
6 "Constructor for singleton CLASS.\nNAME and SLOTS initialize the new object.\nThis constructor guarantees that no matter how many you request,\nonly one object ever exists.\n\n(fn CLASS &rest SLOTS)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((subclass eieio-default-superclass))
nil nil
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]))
nil)
#s(cl--generic-method
((subclass eieio-default-superclass))
nil nil
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]))
#[385 "\302\2119\203�\211\303N\206�\202�\211\262\304!>\204\"�\305\306\307D\"\210\211\310H\262!\203M�@\211;\2065�\211?\262\203M� \203B�\311\202C�\312\313\211A\262\242#\210\314\"\210 \203[�\211\315I\210\207"
[cl-struct-eieio--class-tags eieio-backward-compatibility copy-sequence cl--class type-of signal wrong-type-argument eieio--class 10 ignore message "Obsolete name %S passed to %S constructor" initialize-instance 0]
8 "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object.\n\n(fn CLASS &rest SLOTS)"]
(#s(cl--generic srecord-compile-inserter-newline-p
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(srecode-template-inserter-newline)
nil nil
#[257 "\300\207"
[t]
2 "\n\n(fn _)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn OBJ)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn OBJ)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn OBJ)"]
(#s(cl--generic srecode-map-entry-for-file-anywhere
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(srecode-map t)
nil nil
#[514 "\300\"\211\205 �\301B\262\2065�\301\302\303\"\211\2031�\211@\304A\"\211\203)�B\262\210A\266\202\202�\210\211\262\207"
[srecode-map-entry-for-file nil eieio-oref apps assoc]
8 "Search in all entry points in MAP for FILE.\nReturn a list ( APP . FILE-ASSOC ) where APP is nil\nin the global map.\n\n(fn MAP FILE)"]))
nil)
#s(cl--generic-method
(srecode-map t)
nil nil
#[514 "\300\"\211\205 �\301B\262\2065�\301\302\303\"\211\2031�\211@\304A\"\211\203)�B\262\210A\266\202\202�\210\211\262\207"
[srecode-map-entry-for-file nil eieio-oref apps assoc]
8 "Search in all entry points in MAP for FILE.\nReturn a list ( APP . FILE-ASSOC ) where APP is nil\nin the global map.\n\n(fn MAP FILE)"]))
#[514 "\300\"\211\205 �\301B\262\2065�\301\302\303\"\211\2031�\211@\304A\"\211\203)�B\262\210A\266\202\202�\210\211\262\207"
[srecode-map-entry-for-file nil eieio-oref apps assoc]
8 "Search in all entry points in MAP for FILE.\nReturn a list ( APP . FILE-ASSOC ) where APP is nil\nin the global map.\n\n(fn MAP FILE)"]
(#s(cl--generic srecode-map-entry-for-file
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(srecode-map t)
nil nil
#[514 "\300\301\302\"\"\207"
[assoc eieio-oref files]
7 "Return the entry in MAP for FILE.\n\n(fn MAP FILE)"]))
nil)
#s(cl--generic-method
(srecode-map t)
nil nil
#[514 "\300\301\302\"\"\207"
[assoc eieio-oref files]
7 "Return the entry in MAP for FILE.\n\n(fn MAP FILE)"]))
#[514 "\300\301\302\"\"\207"
[assoc eieio-oref files]
7 "Return the entry in MAP for FILE.\n\n(fn MAP FILE)"]
(#s(cl--generic magit-menu-common-value
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(magit-commit-section)
nil nil
#[257 "\300 \206\n�\301\302 \303\"\207"
[magit-diff--region-range eieio-oref magit-current-section value]
4 "\n\n(fn SECTION)"])
#s(cl--generic-method
(magit-diff-section)
nil nil
#[257 "\300 \207"
[magit-diff-scope]
2 "\n\n(fn SECTION)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn SECTION)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn SECTION)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn SECTION)"]
(#s(cl--generic magit-bookmark-get-filename
(((&context . major-mode)
#s(cl--generic-generalizer cl--generic-derived-generalizer 90
#[257 "\300\301D\302DF\207"
[and symbolp functionp]
5 "\n\n(fn NAME)"]
cl--generic-derived-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-mode))
nil nil
#[0 "\300 \207"
[magit-toplevel]
1])
#s(cl--generic-method nil nil nil
#[0 "\300 \206�\301 \207"
[buffer-file-name buffer-name]
1]))
nil)
#s(cl--generic-method nil nil nil
#[0 "\300 \206�\301 \207"
[buffer-file-name buffer-name]
1]))
#[0 "\300 \206�\301 \207"
[buffer-file-name buffer-name]
1]
(#s(cl--generic magit-bookmark--get-child-value
(((&context . major-mode)
#s(cl--generic-generalizer cl--generic-derived-generalizer 90
#[257 "\300\301D\302DF\207"
[and symbolp functionp]
5 "\n\n(fn NAME)"]
cl--generic-derived-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t
((&context . major-mode)
derived-mode magit-stash-mode))
nil nil
#[257 "\302 \303\304\"#\207"
[magit-buffer-revision magit-buffer-revision-oid string-replace eieio-oref value]
7 "\n\n(fn SECTION)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\"\207"
[eieio-oref value]
4 "\n\n(fn SECTION)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\"\207"
[eieio-oref value]
4 "\n\n(fn SECTION)"]))
#[257 "\300\301\"\207"
[eieio-oref value]
4 "\n\n(fn SECTION)"]
(#s(cl--generic magit-bookmark-name
(((&context . major-mode)
#s(cl--generic-generalizer cl--generic-derived-generalizer 90
#[257 "\300\301D\302DF\207"
[and symbolp functionp]
5 "\n\n(fn NAME)"]
cl--generic-derived-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(((&context . major-mode)
derived-mode forge-topic-mode))
nil nil
#[0 "\301\302!\303\"\301\303\"P\207"
[forge-buffer-topic eieio-oref forge-get-repository slug]
4])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-stashes-mode))
nil nil
#[0 "\301\302\"\207"
[magit-buffer-refname format "magit-states(%s)"]
3])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-reflog-mode))
nil nil
#[0 "\301\302\"\207"
[magit-buffer-refname format "magit-reflog(%s)"]
3])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-cherry-mode))
nil nil
#[0 "\302\303 #\207"
[magit-buffer-refname magit-buffer-cherry-upstream format "magit-cherry(%s > %s)"]
4])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-log-mode))
nil nil
#[0 "\302\303\304\305\306#\266\202 \203 �\307 \304\305\306#\266\202P\202 �\310#\207"
[magit-buffer-log-revisions magit-buffer-log-files format "magit-log(%s%s)" " " mapconcat identity " -- " ""]
10])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-stash-mode))
nil nil
#[0 "\302\303\304! \203� \305\306\307#\266\202\202�\310\311\"#\207"
[magit-buffer-revision magit-buffer-diff-files format "magit-stash(%s %s)" magit-rev-abbrev " " mapconcat identity magit-rev-format "%s"]
9])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-revision-mode))
nil nil
#[0 "\302\303\304! \203� \305\306\307#\266\202\202�\310\311\"#\207"
[magit-buffer-revision magit-buffer-diff-files format "magit-revision(%s %s)" magit-rev-abbrev " " mapconcat identity magit-rev-format "%s"]
9])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-diff-mode))
nil nil
#[0 "\304\305\306 \211\307\267\202 �\310\202 �\311\202 �\202 �\312\313 \nD\"\202 �\313\262 \2034�\314 \315\316\317#\266\202P\2025�\320#\207"
[magit-buffer-diff-range magit-buffer-diff-typearg magit-buffer-diff-range-oids magit-buffer-diff-files format "magit-diff(%s%s)" magit-diff-type #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(staged 10 unstaged 14 committed 18 undefined 22))
"staged" "unstaged" delq nil " -- " " " mapconcat identity ""]
10])
#s(cl--generic-method nil nil nil
#[0 "\301\302\303!\304\305O\306\307N\211\262\203�\310\311\"\202�\312\262#\207"
[major-mode format "%s%s" symbol-name 0 -5 nil magit-bookmark-variables mapcan
#[257 "\300J!\207"
[ensure-list]
3 "\n\n(fn %)"]
""]
7]))
nil)
#s(cl--generic-method nil nil nil
#[0 "\301\302\303!\304\305O\306\307N\211\262\203�\310\311\"\202�\312\262#\207"
[major-mode format "%s%s" symbol-name 0 -5 nil magit-bookmark-variables mapcan
#[257 "\300J!\207"
[ensure-list]
3 "\n\n(fn %)"]
""]
7]))
#[0 "\301\302\303!\304\305O\306\307N\211\262\203�\310\311\"\202�\312\262#\207"
[major-mode format "%s%s" symbol-name 0 -5 nil magit-bookmark-variables mapcan
#[257 "\300J!\207"
[ensure-list]
3 "\n\n(fn %)"]
""]
7]
(#s(cl--generic magit-bare-repo-p nil
(#s(cl--generic-method nil nil nil
#[256 "\301!\205�\3021�\303\304!0\207\210\211?\205�\305\306\"\207"
[default-directory magit--assert-default-directory
(magit-invalid-git-boolean)
magit-rev-parse-true "--is-bare-repository" signal magit-outside-git-repo]
4 "\n\n(fn &optional NOERROR)"]))
nil)
#s(cl--generic-method nil nil nil
#[256 "\301!\205�\3021�\303\304!0\207\210\211?\205�\305\306\"\207"
[default-directory magit--assert-default-directory
(magit-invalid-git-boolean)
magit-rev-parse-true "--is-bare-repository" signal magit-outside-git-repo]
4 "\n\n(fn &optional NOERROR)"]))
#[256 "\301!\205�\3021�\303\304!0\207\210\211?\205�\305\306\"\207"
[default-directory magit--assert-default-directory
(magit-invalid-git-boolean)
magit-rev-parse-true "--is-bare-repository" signal magit-outside-git-repo]
4 "\n\n(fn &optional NOERROR)"]
(#s(cl--generic magit-buffer-value
(((&context . major-mode)
#s(cl--generic-generalizer cl--generic-derived-generalizer 90
#[257 "\300\301D\302DF\207"
[and symbolp functionp]
5 "\n\n(fn NAME)"]
cl--generic-derived-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(((&context . major-mode)
derived-mode forge-topic-mode))
nil nil
#[0 "\301\302\"\207"
[forge-buffer-topic eieio-oref slug]
3])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-stash-mode))
nil nil
#[0 "\207"
[magit-buffer-revision]
1])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-stashes-mode))
nil nil
#[0 "\207"
[magit-buffer-refname]
1])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-reflog-mode))
nil nil
#[0 "\207"
[magit-buffer-refname]
1])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-refs-mode))
nil nil
#[0 " B\207"
[magit-buffer-refs-upstream magit-buffer-refs-args]
2])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-cherry-mode))
nil nil
#[0 "\207"
[magit-buffer-cherry-range]
1])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-log-select-mode))
nil nil
#[0 "\207"
[magit-buffer-log-revisions]
1])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-log-mode))
nil nil
#[0 "\302\211\203� \203�\303 B\202� \"\207"
[magit-buffer-log-revisions magit-buffer-log-files append "--"]
4])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-merge-preview-mode))
nil nil
#[0 "\207"
[magit-buffer-revision]
1])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-revision-mode))
nil nil
#[0 " B\207"
[magit-buffer-revision magit-buffer-diff-files]
2])
#s(cl--generic-method
(((&context . major-mode)
derived-mode magit-diff-mode))
nil nil
#[0 "\203
�\303\304 D\"\202� \305\232\203�\306C\202�\307 D\n\205\"�\310\nB\244\207"
[magit-buffer-diff-range magit-buffer-diff-typearg magit-buffer-diff-files delq nil "--cached" staged unstaged "--"]
4])
#s(cl--generic-method nil nil nil
#[0 "\300\207"
[nil]
1]))
nil)
#s(cl--generic-method nil nil nil
#[0 "\300\207"
[nil]
1]))
#[0 "\300\207"
[nil]
1]
(#s(cl--generic cl-generic-generalizers
((0 #s(cl--generic-generalizer cl--generic-head-generalizer 80
#[385 "\300\301D\302BB\207"
[gethash car-safe
(cl--generic-head-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �C\207"
[head]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((head eieio--static))
nil nil
#[257 " D\207"
[eieio--generic-static-symbol-generalizer eieio--generic-static-object-generalizer]
3 "\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
((head subclass))
nil nil
#[257 "C\207"
[eieio--generic-subclass-generalizer]
2 "Support for (subclass CLASS) specializers.\nThese match if the argument is the name of a subclass of CLASS.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head derived-mode))
nil nil
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
((head eql))
nil nil
#[257 "\211A@\2119\203�\302!\203�\303\304\"\202�\211\305\"A\235\203%�\211\202(�B\262\306\307B#\266 C\207"
[cl--generic-eql-used cl--generic-eql-generalizer macroexp-const-p eval t gethash puthash eql]
8 "Support for (eql VAL) specializers.\nThese match if the argument is `eql' to VAL.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
nil)
#s(cl--generic-method
((head derived-mode))
nil nil
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"])
#s(cl--generic-method
(t)
(:extra "class")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\2119\203�\211\302N\206�\202�\211\262\303!>\205�\304\262\203%� C\206'� \207"
[cl-struct-eieio--class-tags eieio--generic-generalizer cl--class type-of t]
5 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for dispatch on types defined by EIEIO's `defclass'.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "oclosure-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203�\211\302N\303!>\205� C\262\206� \207"
[cl-struct-oclosure--class-tags cl--generic-oclosure-generalizer cl--class type-of]
5 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `oclosure-define'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "typeof")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211>\203 � C\206
� \207"
[cl--all-builtin-types cl--generic-typeof-generalizer]
4 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on builtin types.\nSee the full list and their hierarchy in `cl--typeof-types'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "cl-struct")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\2119\203_�\211\302N\303!>\205Z�\303!>\204 �\304\305\306D\"\210\211\307H\203?�\310\311\303!>\2048�\304\305\306D\"\210\307H#\205Z�\303!>\204N�\304\305\306D\"\210\211\312H\203X�\313\314!\210 C\262\206a� \207"
[cl-struct-cl-structure-class-tags cl--generic-struct-generalizer cl--class type-of signal wrong-type-argument cl-structure-class 7 error "Can't dispatch on cl-struct %S: type is %S" 8 cl--assertion-failed
(null
(cl--struct-class-named class))]
10 "\n\n(fn CL--CNM TYPE)"]]
6 "Support for dispatch on types defined by `cl-defstruct'.\n\n(fn TYPE)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
(:extra "head")
curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\211\242\302=\204\n� \207\211A@\303\"\204�\304#\210\266 C\207"
[cl--generic-head-used cl--generic-head-generalizer head gethash puthash]
8 "\n\n(fn CL--CNM SPECIALIZER)"]]
6 "Support for (head VAL) specializers.\nThese match if the argument is a cons cell whose car is `eql' to VAL.\n\n(fn SPECIALIZER)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\211\301=\203 �C\207\302\303\"\207"
[cl--generic-t-generalizer t error "Unknown specializer %S"]
4 "Support for the catch-all t specializer which always matches.\n\n(fn SPECIALIZER)"]))
#[257 "C\207"
[cl--generic-derived-generalizer]
2 "Support for (derived-mode MODE) specializers.\nUsed internally for the (major-mode MODE) context specializers.\n\n(fn SPECIALIZER)"]
(#s(cl--generic closql-dref
((1 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(forge-pullreq
(eql marks))
nil nil
#[514 "\300\301\302\303\"\"\207"
[forge-sql-cdr
[:select mark:* :from mark :join pullreq-mark :on
(= pullreq-mark:id mark:id)
:where
(= pullreq-mark:pullreq $s1)
:order-by
[(asc name)]]
closql--oref id]
7 "\n\n(fn OBJ _)"])
#s(cl--generic-method
(forge-pullreq
(eql review-requests))
nil nil
#[514 "\300\301\302\303\"\"\207"
[forge-sql-cdr
[:select assignee:* :from assignee :join pullreq-review-request :on
(= pullreq-review-request:id assignee:id)
:where
(= pullreq-review-request:pullreq $s1)
:order-by
[(asc login)]]
closql--oref id]
7 "\n\n(fn OBJ _)"])
#s(cl--generic-method
(forge-pullreq
(eql labels))
nil nil
#[514 "\300\301\302\303\"\"\207"
[forge-sql-cdr
[:select label:* :from label :join pullreq-label :on
(= pullreq-label:id label:id)
:where
(= pullreq-label:pullreq $s1)
:order-by
[(asc name)]]
closql--oref id]
7 "\n\n(fn OBJ _)"])
#s(cl--generic-method
(forge-pullreq
(eql assignees))
nil nil
#[514 "\300\301\302\303\"\"\207"
[forge-sql-cdr
[:select assignee:* :from assignee :join pullreq-assignee :on
(= pullreq-assignee:id assignee:id)
:where
(= pullreq-assignee:pullreq $s1)
:order-by
[(asc login)]]
closql--oref id]
7 "\n\n(fn OBJ _)"])
#s(cl--generic-method
(forge-issue
(eql marks))
nil nil
#[514 "\300\301\302\303\"\"\207"
[forge-sql-cdr
[:select mark:* :from mark :join issue-mark :on
(= issue-mark:id mark:id)
:where
(= issue-mark:issue $s1)
:order-by
[(asc name)]]
closql--oref id]
7 "\n\n(fn OBJ _)"])
#s(cl--generic-method
(forge-issue
(eql labels))
nil nil
#[514 "\300\301\302\303\"\"\207"
[forge-sql-cdr
[:select label:* :from label :join issue-label :on
(= issue-label:id label:id)
:where
(= issue-label:issue $s1)
:order-by
[(asc name)]]
closql--oref id]
7 "\n\n(fn OBJ _)"])
#s(cl--generic-method
(forge-issue
(eql assignees))
nil nil
#[514 "\300\301\302\303\"\"\207"
[forge-sql-cdr
[:select assignee:* :from assignee :join issue-assignee :on
(= issue-assignee:id assignee:id)
:where
(= issue-assignee:issue $s1)
:order-by
[(asc login)]]
closql--oref id]
7 "\n\n(fn OBJ _)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\211\211\301H\262\2119\203�\211\302N\206�\262\202�\211\266\202\"\303\304\"\305\"\3062'\307\310\"\211\203o�\311\306\312\313\n\314\315\316\317\320\321\322\323\324\325\"\206O�\326&\324 \327\"\324\f\330\"\303\324\331\"\"\324\331\"&#I\"\210\210\307\332\"\211\203\255�\311\306\333\"\334\335\336\"\203\216�\337\202\217�\340\313\n\341\n@\303\324\331\"\"\nA@&\"I\262\"\210\210\307\342\"\211\203\311\306\242\243\211\242\243 \n\334\340\313
\343\344\345\346 \"! \f\344\345\347\"!\344\345\347\"!\344\345\350\324 \327\"#!\303\324\331\"\"\303\351\"&\n\"I\266\204\"\210\210\352\211\211\211\301H\262\2119\203 \211\302N\206 \262\202\"\211\266\202\353$0\207"
[eieio--slot-name-index 0 cl--class closql--oref closql-database closql--slot-properties :cond-let4870 alist-get :closql-class throw closql--remake-instances emacsql vector :select * :from $i1 :where
(= $i2 $s3)
:order-by closql--oref-default closql-order-by
[(asc $i4)]
closql-table closql-foreign-key closql-primary-key :closql-table closql--table-columns mapcar length= 2 cadr cdr
[:select * :from $i1 :where
(= $i2 $s3)
:order-by
[(asc $i4)]]
:closql-tables
[:select $i1 :from $i2 :join $i3 :on
(= $i4 $i5)
:where
(= $i6 $s7)
:order-by
[(asc id)]]
intern format "%s:*" "%s:id" "%s:%s" id slot-unbound oref]
31 "\n\n(fn OBJ SLOT)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\211\211\301H\262\2119\203�\211\302N\206�\262\202�\211\266\202\"\303\304\"\305\"\3062'\307\310\"\211\203o�\311\306\312\313\n\314\315\316\317\320\321\322\323\324\325\"\206O�\326&\324 \327\"\324\f\330\"\303\324\331\"\"\324\331\"&#I\"\210\210\307\332\"\211\203\255�\311\306\333\"\334\335\336\"\203\216�\337\202\217�\340\313\n\341\n@\303\324\331\"\"\nA@&\"I\262\"\210\210\307\342\"\211\203\311\306\242\243\211\242\243 \n\334\340\313
\343\344\345\346 \"! \f\344\345\347\"!\344\345\347\"!\344\345\350\324 \327\"#!\303\324\331\"\"\303\351\"&\n\"I\266\204\"\210\210\352\211\211\211\301H\262\2119\203 \211\302N\206 \262\202\"\211\266\202\353$0\207"
[eieio--slot-name-index 0 cl--class closql--oref closql-database closql--slot-properties :cond-let4870 alist-get :closql-class throw closql--remake-instances emacsql vector :select * :from $i1 :where
(= $i2 $s3)
:order-by closql--oref-default closql-order-by
[(asc $i4)]
closql-table closql-foreign-key closql-primary-key :closql-table closql--table-columns mapcar length= 2 cadr cdr
[:select * :from $i1 :where
(= $i2 $s3)
:order-by
[(asc $i4)]]
:closql-tables
[:select $i1 :from $i2 :join $i3 :on
(= $i4 $i5)
:where
(= $i6 $s7)
:order-by
[(asc id)]]
intern format "%s:*" "%s:id" "%s:%s" id slot-unbound oref]
31 "\n\n(fn OBJ SLOT)"]))
#[514 "\300\211\211\301H\262\2119\203�\211\302N\206�\262\202�\211\266\202\"\303\304\"\305\"\3062'\307\310\"\211\203o�\311\306\312\313\n\314\315\316\317\320\321\322\323\324\325\"\206O�\326&\324 \327\"\324\f\330\"\303\324\331\"\"\324\331\"&#I\"\210\210\307\332\"\211\203\255�\311\306\333\"\334\335\336\"\203\216�\337\202\217�\340\313\n\341\n@\303\324\331\"\"\nA@&\"I\262\"\210\210\307\342\"\211\203\311\306\242\243\211\242\243 \n\334\340\313
\343\344\345\346 \"! \f\344\345\347\"!\344\345\347\"!\344\345\350\324 \327\"#!\303\324\331\"\"\303\351\"&\n\"I\266\204\"\210\210\352\211\211\211\301H\262\2119\203 \211\302N\206 \262\202\"\211\266\202\353$0\207"
[eieio--slot-name-index 0 cl--class closql--oref closql-database closql--slot-properties :cond-let4870 alist-get :closql-class throw closql--remake-instances emacsql vector :select * :from $i1 :where
(= $i2 $s3)
:order-by closql--oref-default closql-order-by
[(asc $i4)]
closql-table closql-foreign-key closql-primary-key :closql-table closql--table-columns mapcar length= 2 cadr cdr
[:select * :from $i1 :where
(= $i2 $s3)
:order-by
[(asc $i4)]]
:closql-tables
[:select $i1 :from $i2 :join $i3 :on
(= $i4 $i5)
:where
(= $i6 $s7)
:order-by
[(asc id)]]
intern format "%s:*" "%s:id" "%s:%s" id slot-unbound oref]
31 "\n\n(fn OBJ SLOT)"]
(#s(cl--generic closql-dset
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t t)
nil nil
#[1027 "\302\303\"\304\305\"\302\"\306\"\3072\304\310\311\"\203%�\312\307\313\314!\"\210\310\315\"\310\316\"\2062�\211@\211\203\243\312\307\317\320\"\321CT\321\322\323#\216\242\204\236\3241\221\325U\203_�\326\327\"\210\330\f\"\331 #\210\332\"\321\211\f\203\227�\333\334\"\262\333@:\204\216�\335\202\217�\336\"\262\202\252�\337\340\"\203\252�\333\335\"\262\333\335\"\262\341\342\343\344$\262\341\342\343\344$\262@\262@\262\204\312�\211\205u@@\203\203\334�\231\203\345\326\346\347\350\351\352\fB\325\"$\353\335
\fB#%\210A\262\266\202\272�\230\2037\232\204*\354\322\355\n&AAAA$\210A\262A\262\266\202\272�\203]\3561S\326\357\360B!$0\210\202T\210A\262\266\202\272�\326\361\360B!$\210A\262\266\202\272�\266\204\262\211\262\325U\203\207\326\362\"\210\363\240\2620\210\202K�\210\326\364\"\210\365\366!\210\202K�*\266\203\"\210\210\326\367\304\f\370\" =\203\271\371\202\273 &\2620\207"
[emacsql--transaction-level eieio--unbound closql--oref closql-database eieio-oref-default closql-primary-key closql--slot-properties :cond-let4876 alist-get :closql-class throw error "Not implemented for closql-class slots: oset" :closql-tables :closql-table eieio-oref connection nil make-closure
#[0 "\n\303U\205�\300\242?\205�\304\301\305\"\207"
[V0 V1 emacsql--transaction-level 1 emacsql
[:rollback]]
3]
(emacsql-locked)
1 emacsql
[:begin]
closql--table-columns closql--oset closql-oref mapcar
#[257 "\211@C\207"
[]
2 "\n\n(fn E)"]
list
#[257 "\211@C\207"
[]
2 "\n\n(fn E)"]
length= 2 cl-sort string< :key car apply vector :delete-from $i1 :where closql--where-equal cl-mapcan cl-mapc
#[771 "\232?\205�\305\304\306\302\301@\303\301A@\300& \207"
[V0 V1 V2 V3 V4 emacsql
[:update $i1 :set
(= $i2 $s3)
:where
(and
(= $i4 $s5)
(= $i6 $s7))]]
13 "\n\n(fn COL VAL1 VAL2)"]
(error)
[:insert-into $i1 :values $v2]
vconcat
[:insert-into $i1 :values $v2]
[:commit]
t
[:rollback]
sleep-for 0.05
[:update $i1 :set
(= $i2 $s3)
:where
(= $i4 $s5)]
closql-table eieio-unbound]
33 "\n\n(fn OBJ SLOT VALUE &optional DROP-UNKNOWN)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[1027 "\302\303\"\304\305\"\302\"\306\"\3072\304\310\311\"\203%�\312\307\313\314!\"\210\310\315\"\310\316\"\2062�\211@\211\203\243\312\307\317\320\"\321CT\321\322\323#\216\242\204\236\3241\221\325U\203_�\326\327\"\210\330\f\"\331 #\210\332\"\321\211\f\203\227�\333\334\"\262\333@:\204\216�\335\202\217�\336\"\262\202\252�\337\340\"\203\252�\333\335\"\262\333\335\"\262\341\342\343\344$\262\341\342\343\344$\262@\262@\262\204\312�\211\205u@@\203\203\334�\231\203\345\326\346\347\350\351\352\fB\325\"$\353\335
\fB#%\210A\262\266\202\272�\230\2037\232\204*\354\322\355\n&AAAA$\210A\262A\262\266\202\272�\203]\3561S\326\357\360B!$0\210\202T\210A\262\266\202\272�\326\361\360B!$\210A\262\266\202\272�\266\204\262\211\262\325U\203\207\326\362\"\210\363\240\2620\210\202K�\210\326\364\"\210\365\366!\210\202K�*\266\203\"\210\210\326\367\304\f\370\" =\203\271\371\202\273 &\2620\207"
[emacsql--transaction-level eieio--unbound closql--oref closql-database eieio-oref-default closql-primary-key closql--slot-properties :cond-let4876 alist-get :closql-class throw error "Not implemented for closql-class slots: oset" :closql-tables :closql-table eieio-oref connection nil make-closure
#[0 "\n\303U\205�\300\242?\205�\304\301\305\"\207"
[V0 V1 emacsql--transaction-level 1 emacsql
[:rollback]]
3]
(emacsql-locked)
1 emacsql
[:begin]
closql--table-columns closql--oset closql-oref mapcar
#[257 "\211@C\207"
[]
2 "\n\n(fn E)"]
list
#[257 "\211@C\207"
[]
2 "\n\n(fn E)"]
length= 2 cl-sort string< :key car apply vector :delete-from $i1 :where closql--where-equal cl-mapcan cl-mapc
#[771 "\232?\205�\305\304\306\302\301@\303\301A@\300& \207"
[V0 V1 V2 V3 V4 emacsql
[:update $i1 :set
(= $i2 $s3)
:where
(and
(= $i4 $s5)
(= $i6 $s7))]]
13 "\n\n(fn COL VAL1 VAL2)"]
(error)
[:insert-into $i1 :values $v2]
vconcat
[:insert-into $i1 :values $v2]
[:commit]
t
[:rollback]
sleep-for 0.05
[:update $i1 :set
(= $i2 $s3)
:where
(= $i4 $s5)]
closql-table eieio-unbound]
33 "\n\n(fn OBJ SLOT VALUE &optional DROP-UNKNOWN)"]))
#[1027 "\302\303\"\304\305\"\302\"\306\"\3072\304\310\311\"\203%�\312\307\313\314!\"\210\310\315\"\310\316\"\2062�\211@\211\203\243\312\307\317\320\"\321CT\321\322\323#\216\242\204\236\3241\221\325U\203_�\326\327\"\210\330\f\"\331 #\210\332\"\321\211\f\203\227�\333\334\"\262\333@:\204\216�\335\202\217�\336\"\262\202\252�\337\340\"\203\252�\333\335\"\262\333\335\"\262\341\342\343\344$\262\341\342\343\344$\262@\262@\262\204\312�\211\205u@@\203\203\334�\231\203\345\326\346\347\350\351\352\fB\325\"$\353\335
\fB#%\210A\262\266\202\272�\230\2037\232\204*\354\322\355\n&AAAA$\210A\262A\262\266\202\272�\203]\3561S\326\357\360B!$0\210\202T\210A\262\266\202\272�\326\361\360B!$\210A\262\266\202\272�\266\204\262\211\262\325U\203\207\326\362\"\210\363\240\2620\210\202K�\210\326\364\"\210\365\366!\210\202K�*\266\203\"\210\210\326\367\304\f\370\" =\203\271\371\202\273 &\2620\207"
[emacsql--transaction-level eieio--unbound closql--oref closql-database eieio-oref-default closql-primary-key closql--slot-properties :cond-let4876 alist-get :closql-class throw error "Not implemented for closql-class slots: oset" :closql-tables :closql-table eieio-oref connection nil make-closure
#[0 "\n\303U\205�\300\242?\205�\304\301\305\"\207"
[V0 V1 emacsql--transaction-level 1 emacsql
[:rollback]]
3]
(emacsql-locked)
1 emacsql
[:begin]
closql--table-columns closql--oset closql-oref mapcar
#[257 "\211@C\207"
[]
2 "\n\n(fn E)"]
list
#[257 "\211@C\207"
[]
2 "\n\n(fn E)"]
length= 2 cl-sort string< :key car apply vector :delete-from $i1 :where closql--where-equal cl-mapcan cl-mapc
#[771 "\232?\205�\305\304\306\302\301@\303\301A@\300& \207"
[V0 V1 V2 V3 V4 emacsql
[:update $i1 :set
(= $i2 $s3)
:where
(and
(= $i4 $s5)
(= $i6 $s7))]]
13 "\n\n(fn COL VAL1 VAL2)"]
(error)
[:insert-into $i1 :values $v2]
vconcat
[:insert-into $i1 :values $v2]
[:commit]
t
[:rollback]
sleep-for 0.05
[:update $i1 :set
(= $i2 $s3)
:where
(= $i4 $s5)]
closql-table eieio-unbound]
33 "\n\n(fn OBJ SLOT VALUE &optional DROP-UNKNOWN)"]
(#s(cl--generic ghub--auth
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t t)
nil nil
#[1026 "\204\n�\300\"\262\301=\203+�\211\302\267\202&�\303\304\"B\207\305\306\307\310!!\"\207\305\311\"\207\211\312\267\2029�\303\202=�\313\202=�\305\311\"\314=\203Y�\315\316\317\320 \n\321\n%Q\322\"P\202\231�\323=?\205a�\324\325;\203k�\202\226�\204|�\320\326\321%\202\226�9\203\217�\320\321%\202\226�\327\330\331D\"\332\"PB\207"
[ghub--username basic #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(bitbucket 22 gogs 22 gitea 22 forgejo 22 nil 22 gitlab 29 github 29))
"Authorization" ghub--basic-auth error "%s does not support basic authentication" capitalize symbol-name "No clause matching `%S'" #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(bitbucket 49 gogs 49 gitea 49 github 49 forgejo 49 nil 49 gitlab 53))
"Private-Token" bitbucket "Basic " base64-encode-string ":" ghub--token nil t gitlab "token " encode-coding-string ghub signal wrong-type-argument
(or stringp symbolp)
utf-8]
15 "\n\n(fn HOST AUTH &optional USERNAME FORGE)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[1026 "\204\n�\300\"\262\301=\203+�\211\302\267\202&�\303\304\"B\207\305\306\307\310!!\"\207\305\311\"\207\211\312\267\2029�\303\202=�\313\202=�\305\311\"\314=\203Y�\315\316\317\320 \n\321\n%Q\322\"P\202\231�\323=?\205a�\324\325;\203k�\202\226�\204|�\320\326\321%\202\226�9\203\217�\320\321%\202\226�\327\330\331D\"\332\"PB\207"
[ghub--username basic #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(bitbucket 22 gogs 22 gitea 22 forgejo 22 nil 22 gitlab 29 github 29))
"Authorization" ghub--basic-auth error "%s does not support basic authentication" capitalize symbol-name "No clause matching `%S'" #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(bitbucket 49 gogs 49 gitea 49 github 49 forgejo 49 nil 49 gitlab 53))
"Private-Token" bitbucket "Basic " base64-encode-string ":" ghub--token nil t gitlab "token " encode-coding-string ghub signal wrong-type-argument
(or stringp symbolp)
utf-8]
15 "\n\n(fn HOST AUTH &optional USERNAME FORGE)"]))
#[1026 "\204\n�\300\"\262\301=\203+�\211\302\267\202&�\303\304\"B\207\305\306\307\310!!\"\207\305\311\"\207\211\312\267\2029�\303\202=�\313\202=�\305\311\"\314=\203Y�\315\316\317\320 \n\321\n%Q\322\"P\202\231�\323=?\205a�\324\325;\203k�\202\226�\204|�\320\326\321%\202\226�9\203\217�\320\321%\202\226�\327\330\331D\"\332\"PB\207"
[ghub--username basic #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(bitbucket 22 gogs 22 gitea 22 forgejo 22 nil 22 gitlab 29 github 29))
"Authorization" ghub--basic-auth error "%s does not support basic authentication" capitalize symbol-name "No clause matching `%S'" #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(bitbucket 49 gogs 49 gitea 49 github 49 forgejo 49 nil 49 gitlab 53))
"Private-Token" bitbucket "Basic " base64-encode-string ":" ghub--token nil t gitlab "token " encode-coding-string ghub signal wrong-type-argument
(or stringp symbolp)
utf-8]
15 "\n\n(fn HOST AUTH &optional USERNAME FORGE)"]
(#s(cl--generic ghub--host
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(forge-repository)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\300\301!!!\207"
[forge--ghub-type-symbol eieio-object-class]
6 "\n\n(fn CL--CNM REPO)"]]
6 "\n\n(fn REPO)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method nil nil nil
#[256 "\211\206�\301\302\303\304\"!\206�\305\"\207"
[ghub-default-host-alist github ghub--git-get format "%s.host" alist-get]
6 "\n\n(fn &optional FORGE)"]))
nil)
#s(cl--generic-method nil nil nil
#[256 "\211\206�\301\302\303\304\"!\206�\305\"\207"
[ghub-default-host-alist github ghub--git-get format "%s.host" alist-get]
6 "\n\n(fn &optional FORGE)"]))
#[256 "\211\206�\301\302\303\304\"!\206�\305\"\207"
[ghub-default-host-alist github ghub--git-get format "%s.host" alist-get]
6 "\n\n(fn &optional FORGE)"]
(#s(cl--generic ghub--username
((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
#[385 "\301N\302!>\205�\303\304\305!\"\207"
[cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
7 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(forge-repository)
nil curried
#[257 "\300!\210\301\302\303\"\207"
[cl--generic-isnot-nnm-p nil make-closure
#[128 "\301\302\300#\303\304#\207"
[V0 make-closure
#[128 "\302\301\206�\300\"\207"
[V0 V1 apply]
4 "\n\n(fn &rest ARGS)"]
apply
#[514 "\301\302\303!\"\204�\304!\211\203�\211\210\305\306\"\307\310!!\")\207"
[default-directory forge-repository-equal forge-get-repository :stub? forge-get-worktree eieio-oref apihost forge--ghub-type-symbol eieio-object-class]
7 "\n\n(fn CL--CNM REPO)"]]
6 "\n\n(fn REPO)"]]
5 "\n\n(fn CL--NM)"])
#s(cl--generic-method
(t)
nil nil
#[513 "\211\206�\301\206\f�\302!\303\304#\303\305\"\306!\2065�\307\"\232\204)�\310\311\"\207\306!\2065�\310\312\313$\207"
[ghub-default-host-alist github ghub--host format "%s.%s.user" "%s.user" ghub--git-get alist-get user-error "Cannot determine username; `%s' is unset" "%s; `%s' and `%s' are both unset" "Cannot determine username"]
11 "\n\n(fn HOST &optional FORGE)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[513 "\211\206�\301\206\f�\302!\303\304#\303\305\"\306!\2065�\307\"\232\204)�\310\311\"\207\306!\2065�\310\312\313$\207"
[ghub-default-host-alist github ghub--host format "%s.%s.user" "%s.user" ghub--git-get alist-get user-error "Cannot determine username; `%s' is unset" "%s; `%s' and `%s' are both unset" "Cannot determine username"]
11 "\n\n(fn HOST &optional FORGE)"]))
#[513 "\211\206�\301\206\f�\302!\303\304#\303\305\"\306!\2065�\307\"\232\204)�\310\311\"\207\306!\2065�\310\312\313$\207"
[ghub-default-host-alist github ghub--host format "%s.%s.user" "%s.user" ghub--git-get alist-get user-error "Cannot determine username; `%s' is unset" "%s; `%s' and `%s' are both unset" "Cannot determine username"]
11 "\n\n(fn HOST &optional FORGE)"]
(#s(cl--generic oclosure-interactive-form
((0 #s(cl--generic-generalizer cl--generic-oclosure-generalizer 51 cl--generic-oclosure-tag cl-generic--oclosure-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(kmacro)
nil nil
#[257 "\300\207"
[(interactive "p")]
2 "\n\n(fn _)"])
#s(cl--generic-method
(advice)
nil nil
#[513 "\300!\301!\302!\302!\204�\211\205�\303\304\"D\207"
[advice--car advice--cdr advice--interactive-form interactive advice--make-interactive-form]
10 "\n\n(fn AD &optional _)"])
#s(cl--generic-method
(cconv--interactive-helper)
nil nil
#[257 "\300\301\302\303!DDD\207"
[interactive funcall quote cconv--interactive-helper--if]
6 "\n\n(fn F)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn FUNCTION)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn FUNCTION)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn FUNCTION)"]
(#s(cl--generic oclosure-interactive-form
((0 #s(cl--generic-generalizer cl--generic-oclosure-generalizer 51 cl--generic-oclosure-tag cl-generic--oclosure-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(kmacro)
nil nil
#[257 "\300\207"
[(interactive "p")]
2 "\n\n(fn _)"])
#s(cl--generic-method
(advice)
nil nil
#[513 "\300!\301!\302!\302!\204�\211\205�\303\304\"D\207"
[advice--car advice--cdr advice--interactive-form interactive advice--make-interactive-form]
10 "\n\n(fn AD &optional _)"])
#s(cl--generic-method
(cconv--interactive-helper)
nil nil
#[257 "\300\301\302\303!DDD\207"
[interactive funcall quote cconv--interactive-helper--if]
6 "\n\n(fn F)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn FUNCTION)"]))
nil)
#s(cl--generic-method
(advice)
nil nil
#[513 "\300!\301!\302!\302!\204�\211\205�\303\304\"D\207"
[advice--car advice--cdr advice--interactive-form interactive advice--make-interactive-form]
10 "\n\n(fn AD &optional _)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn FUNCTION)"]))
#[513 "\300!\301!\302!\302!\204�\211\205�\303\304\"D\207"
[advice--car advice--cdr advice--interactive-form interactive advice--make-interactive-form]
10 "\n\n(fn AD &optional _)"]
(#s(cl--generic seq-sort
((1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t list)
nil nil
#[514 "\300\301!\"\207"
[sort seq-copy]
5 "\n\n(fn PRED LIST)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\303\304!\"\207"
[seq-sort append nil seq-into type-of]
7 "\n\n(fn PRED SEQUENCE)"]))
nil)
#s(cl--generic-method
(t list)
nil nil
#[514 "\300\301!\"\207"
[sort seq-copy]
5 "\n\n(fn PRED LIST)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\301\302\"\"\303\304!\"\207"
[seq-sort append nil seq-into type-of]
7 "\n\n(fn PRED SEQUENCE)"]))
#[514 "\300\301!\"\207"
[sort seq-copy]
5 "\n\n(fn PRED LIST)"]
(#s(cl--generic sesman-restart-session
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((eql CIDER)
t)
nil nil
#[514 "\211@A\300!\211\203*�\301\302\"\303\304\"\210\305!\210\306\307\310\"\307\311\"\312\313 ##\207\211\205M�\211@\314\315\"\210\316\317\211\301\302\"\320 #\321#!\210A\266\202\202+�\207"
[cider--session-server cider--gather-connect-params nil mapc
#[257 "\300\301\"\207"
[cider--close-connection no-kill]
4 "\n\n(fn CONN)"]
nrepl-kill-server-buffer nrepl-start-server-process plist-get :project-dir :server-command make-closure
#[257 "\300\211\203\"�\211@\302\303\211\304\211\305\"\"\306\301#\307#!\210A\266\202\202�\210\310\311!\210\312\313\301\"\207"
[V0 V1 cider-nrepl-connect plist-put cider--gather-connect-params nil :session-name :repl-buffer sesman-browser-revert-all CIDER message "Restarted CIDER %s session"]
10 "\n\n(fn SERVER-BUF)"]
cider--close-connection no-kill cider-nrepl-connect plist-put :session-name :repl-buffer]
13 "Restart a CIDER SESSION.\n\n(fn SYSTEM SESSION)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\211@\300\"\210\301!\211\240\207"
[sesman-quit-session sesman-start-session]
6 "\n\n(fn SYSTEM SESSION)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\211@\300\"\210\301!\211\240\207"
[sesman-quit-session sesman-start-session]
6 "\n\n(fn SYSTEM SESSION)"]))
#[514 "\211@\300\"\210\301!\211\240\207"
[sesman-quit-session sesman-start-session]
6 "\n\n(fn SYSTEM SESSION)"]
(#s(cl--generic sesman-session-info
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((eql CIDER)
t)
nil nil
#[514 "\301A\302F\207"
[cider-sesman-browser-map :objects :map]
6 "Obtain info for a CIDER SESSION.\n\n(fn SYSTEM SESSION)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300AD\207"
[:objects]
4 "\n\n(fn SYSTEM SESSION)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300AD\207"
[:objects]
4 "\n\n(fn SYSTEM SESSION)"]))
#[514 "\300AD\207"
[:objects]
4 "\n\n(fn SYSTEM SESSION)"]
(#s(cl--generic sesman-project
((0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((eql CIDER))
nil nil
#[257 "\300\301 !\207"
[clojure-project-dir cider-current-dir]
3 "Find project directory.\n\n(fn SYSTEM)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn SYSTEM)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[nil]
2 "\n\n(fn SYSTEM)"]))
#[257 "\300\207"
[nil]
2 "\n\n(fn SYSTEM)"]
(#s(cl--generic sesman-more-relevant-p
((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((eql CIDER)
t t)
nil nil
#[771 "\300AA\"\207"
[sesman-more-recent-p]
6 "Figure out if SESSION1 or SESSION2 is more relevant.\n\n(fn SYSTEM SESSION1 SESSION2)"])
#s(cl--generic-method
(t t t)
nil nil
#[771 "@@\231\262?\207"
[]
6 "\n\n(fn SYSTEM SESSION1 SESSION2)"]))
nil)
#s(cl--generic-method
(t t t)
nil nil
#[771 "@@\231\262?\207"
[]
6 "\n\n(fn SYSTEM SESSION1 SESSION2)"]))
#[771 "@@\231\262?\207"
[]
6 "\n\n(fn SYSTEM SESSION1 SESSION2)"]
(#s(cl--generic sesman-friendly-session-p
((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"]))
(0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100
#[385 "\300\301BB\207"
[gethash
(cl--generic-eql-used)]
5 "\n\n(fn NAME &rest _)"]
#[385 "\242\300=\205 �A\207"
[eql]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
((eql CIDER)
t)
nil nil
#[514 "\300!\207"
[cider--sesman-friendly-session-p]
4 "Check if SESSION is a friendly session.\n\n(fn SYSTEM SESSION)"])
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[nil]
3 "\n\n(fn SYSTEM SESSION)"]))
nil)
#s(cl--generic-method
(t t)
nil nil
#[514 "\300\207"
[nil]
3 "\n\n(fn SYSTEM SESSION)"]))
#[514 "\300\207"
[nil]
3 "\n\n(fn SYSTEM SESSION)"]
(#s(cl--generic sesman-context-types
((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[(buffer directory project)]
2 "\n\n(fn SYSTEM)"]))
nil)
#s(cl--generic-method
(t)
nil nil
#[257 "\300\207"
[(buffer directory project)]
2 "\n\n(fn SYSTEM)"]))
#[257 "\300\207"
[(buffer directory project)]
2 "\n\n(fn SYSTEM)"]
(#s(cl--generic seq-reverse
((0 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
#[385 "\300\301D\302BBB\207"
[if type-of
('null)]
6 "\n\n(fn NAME &rest _)"]
#[385 "9\205�\236\207"
[cl--typeof-types]
4 "\n\n(fn TAG &rest _)"])
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(sequence)
nil nil
#[257 "\300!\207"
[reverse]
3 "\n\n(fn SEQUENCE)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300C\301\302\303\"\"\210\304\242\305!\"\207"
[nil seq-map make-closure
#[257 "\300\300\242B\240\207"
[V0]
4 "\n\n(fn ELT)"]
seq-into type-of]
6 "\n\n(fn SEQUENCE)"]))
nil)
#s(cl--generic-method
(sequence)
nil nil
#[257 "\300!\207"
[reverse]
3 "\n\n(fn SEQUENCE)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300C\301\302\303\"\"\210\304\242\305!\"\207"
[nil seq-map make-closure
#[257 "\300\300\242B\240\207"
[V0]
4 "\n\n(fn ELT)"]
seq-into type-of]
6 "\n\n(fn SEQUENCE)"]))
#[257 "\300!\207"
[reverse]
3 "\n\n(fn SEQUENCE)"]
(#s(cl--generic function-documentation
((0 #s(cl--generic-generalizer cl--generic-oclosure-generalizer 51 cl--generic-oclosure-tag cl-generic--oclosure-specializers)
#s(cl--generic-generalizer cl--generic-t-generalizer 0
#[385 "\300\207"
[nil]
3 "\n\n(fn NAME &rest _)"]
#[385 "\300\207"
[(t)]
3 "\n\n(fn TAG &rest _)"])))
(#s(cl--generic-method
(cconv--interactive-helper)
nil nil
#[257 "\300\301!!\207"
[function-documentation cconv--interactive-helper--fun]
4 "\n\n(fn F)"])
#s(cl--generic-method
(accessor)
nil nil
#[257 "\300!\207"
[oclosure--accessor-docstring]
3 "\n\n(fn FUNCTION)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303!\203�G\304V\205\236�\304H!\205�\211\207;\203$�\266\305\207\306!\203.�\266\305\207:\203\233�\242\211\307\267\202\227�\310\207\243\211:\203Q�\211\242\243\311\311%\207!\207\243\211:\203y�\211\242\243\211:\203t�\211\242\243 \311%\207!\207!\207\243\211:\203\222�\211\242\243\311\211%\207!\207!\207\211!\207"
[#[257 "\211;\206�\300!\206�\300\243!\207"
[fixnump]
3 "\n\n(fn DOC)"]
#[1285 "\211@!\205 �\211\207"
[]
8 "\n\n(fn DOCSTRING-P ENV ARGS FILE BODY)"]
#[257 "\300\301C\"\207"
[signal invalid-function]
4 "\n\n(fn FUNCTION)"]
byte-code-function-p 4 "Keyboard macro." vectorp #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(keymap 59 lambda 61 closure 86 autoload 126))
"Prefix command (definition is a keymap associating keystrokes with commands)." nil]
16 "\n\n(fn FUNCTION)"]))
nil)
#s(cl--generic-method
(accessor)
nil nil
#[257 "\300!\207"
[oclosure--accessor-docstring]
3 "\n\n(fn FUNCTION)"])
#s(cl--generic-method
(t)
nil nil
#[257 "\300\301\302\303!\203�G\304V\205\236�\304H!\205�\211\207;\203$�\266\305\207\306!\203.�\266\305\207:\203\233�\242\211\307\267\202\227�\310\207\243\211:\203Q�\211\242\243\311\311%\207!\207\243\211:\203y�\211\242\243\211:\203t�\211\242\243 \311%\207!\207!\207\243\211:\203\222�\211\242\243\311\211%\207!\207!\207\211!\207"
[#[257 "\211;\206�\300!\206�\300\243!\207"
[fixnump]
3 "\n\n(fn DOC)"]
#[1285 "\211@!\205 �\211\207"
[]
8 "\n\n(fn DOCSTRING-P ENV ARGS FILE BODY)"]
#[257 "\300\301C\"\207"
[signal invalid-function]
4 "\n\n(fn FUNCTION)"]
byte-code-function-p 4 "Keyboard macro." vectorp #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data
(keymap 59 lambda 61 closure 86 autoload 126))
"Prefix command (definition is a keymap associating keystrokes with commands)." nil]
16 "\n\n(fn FUNCTION)"]))
#[257 "\300!\207"
[oclosure--accessor-docstring]
3 "\n\n(fn FUNCTION)"]))
Documentation
Table storing previously built combined-methods.
This is particularly useful when many different tags select the same set of methods, since this table then allows us to share a single combined-method for all those different tags in the method-cache.
Source Code
;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-generic.el.gz
(defvar cl--generic-combined-method-memoization
(make-hash-table :test #'equal :weakness 'value)
"Table storing previously built combined-methods.
This is particularly useful when many different tags select the same set
of methods, since this table then allows us to share a single combined-method
for all those different tags in the method-cache.")