ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/eieio-core.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require cl-lib pcase] 2)
#@69 This hook is executed, then cleared each time `defclass' is called.
(defvar eieio-hook nil (#$ . 476))
#@184 Non-nil to throw an error if an encountered tag is unsupported.
This may prevent classes from CLOS applications from being used with EIEIO
since EIEIO does not support all CLOS tags.
(defvar eieio-error-unsupported-class-tags nil (#$ . 586))
#@223 If non-nil, skip all slot typechecking.
Set this to t permanently if a program is functioning well to get a
small speed increase. This variable is also used internally to handle
default setting for optimization purposes.
(defvar eieio-skip-typecheck nil (#$ . 835))
#@67 Non-nil means to optimize the method dispatch on primary methods.
(defvar eieio-optimize-primary-methods-flag t (#$ . 1108))
#@263 If nil, drop support for some behaviors of older versions of EIEIO.
Currently under control of this var:
- Define every class as a var whose value is the class symbol.
- Define <class>-child-p and <class>-list-p predicates.
- Allow object names in constructors.
(defvar eieio-backward-compatibility t (#$ . 1240))
#@62 Uninterned symbol representing an unbound slot in an object.
(defconst eieio-unbound (byte-code "\301\300!\203
9\203
\207\302\303!\207" [eieio-unbound boundp make-symbol "unbound"] 2) (#$ . 1560))
(defvar eieio-default-superclass nil)
(cl-proclaim '(optimize (safety 0)))
(defalias 'eieio--class-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-eieio--class-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-p 'compiler-macro 'eieio--class-p--cmacro)
(defalias 'eieio--class-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-eieio--class-tags vectorp 12 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put eieio--class-p side-effect-free error-free put eieio--class cl-deftype-satisfies] 4)
(defalias 'eieio--class-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-name (declare (side-effect-free t)) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-name 'compiler-macro 'eieio--class-name--cmacro)
(defalias 'eieio--class-name #[257 "\211\300H\207" [1] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-name 'side-effect-free t)
(defalias 'eieio--class-docstring--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-docstring (declare (side-effect-free t)) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-docstring 'compiler-macro 'eieio--class-docstring--cmacro)
(defalias 'eieio--class-docstring #[257 "\211\300H\207" [2] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-docstring 'side-effect-free t)
(defalias 'eieio--class-parents--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-parents (declare (side-effect-free t)) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-parents 'compiler-macro 'eieio--class-parents--cmacro)
(defalias 'eieio--class-parents #[257 "\211\300H\207" [3] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-parents 'side-effect-free t)
(defalias 'eieio--class-slots--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-slots (declare (side-effect-free t)) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-slots 'compiler-macro 'eieio--class-slots--cmacro)
(defalias 'eieio--class-slots #[257 "\211\300H\207" [4] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-slots 'side-effect-free t)
(defalias 'eieio--class-index-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-index-table (declare (side-effect-free t)) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-index-table 'compiler-macro 'eieio--class-index-table--cmacro)
(defalias 'eieio--class-index-table #[257 "\211\300H\207" [5] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-index-table 'side-effect-free t)
(defalias 'eieio--class-children--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-children (declare (side-effect-free t)) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-children 'compiler-macro 'eieio--class-children--cmacro)
(defalias 'eieio--class-children #[257 "\211\300H\207" [6] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-children 'side-effect-free t)
(defalias 'eieio--class-initarg-tuples--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-initarg-tuples (declare (side-effect-free t)) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-initarg-tuples 'compiler-macro 'eieio--class-initarg-tuples--cmacro)
(defalias 'eieio--class-initarg-tuples #[257 "\211\300H\207" [7] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-initarg-tuples 'side-effect-free t)
(defalias 'eieio--class-class-slots--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-class-slots (declare (side-effect-free t)) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-class-slots 'compiler-macro 'eieio--class-class-slots--cmacro)
(defalias 'eieio--class-class-slots #[257 "\211\300H\207" [8] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-class-slots 'side-effect-free t)
(defalias 'eieio--class-class-allocation-values--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-class-allocation-values (declare (side-effect-free t)) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-class-allocation-values 'compiler-macro 'eieio--class-class-allocation-values--cmacro)
(defalias 'eieio--class-class-allocation-values #[257 "\211\300H\207" [9] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-class-allocation-values 'side-effect-free t)
(defalias 'eieio--class-default-object-cache--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-default-object-cache (declare (side-effect-free t)) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-default-object-cache 'compiler-macro 'eieio--class-default-object-cache--cmacro)
(defalias 'eieio--class-default-object-cache #[257 "\211\300H\207" [10] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-default-object-cache 'side-effect-free t)
(defalias 'eieio--class-options--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--class-options (declare (side-effect-free t)) (aref cl-x 11)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--class-options 'compiler-macro 'eieio--class-options--cmacro)
(defalias 'eieio--class-options #[257 "\211\300H\207" [11] 3 "\n\n(fn CL-X)"])
(function-put 'eieio--class-options 'side-effect-free t)
(defalias 'eieio--class-make--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (name) (cl-block eieio--class-make "Constructor for objects of type `eieio--class'." (declare (side-effect-free t)) (vector 'cl-struct-eieio--class name nil nil nil nil nil nil nil nil nil nil)) nil] 9 "\n\n(fn CL-WHOLE-ARG NAME)"])
(put 'eieio--class-make 'compiler-macro 'eieio--class-make--cmacro)
#@60 Constructor for objects of type `eieio--class'.
(fn NAME)
(defalias 'eieio--class-make #[257 "\300\301\302\211\211\211\211\211\211\211\211\211&\f\207" [vector cl-struct-eieio--class nil] 14 (#$ . 7932)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \210\313\314!\207" [function-put eieio--class-make side-effect-free t cl-struct-define eieio--class nil cl--class ((cl-tag-slot) (name nil :type symbol) (docstring nil :type string) (parents nil :type (list-of cl--class)) (slots nil :type (vector cl-slot-descriptor)) (index-table nil :type hash-table) (children) (initarg-tuples) (class-slots nil :type eieio--slot) (class-allocation-values) (default-object-cache) (options)) cl-struct-eieio--class-tags cl-struct-eieio--class cl-proclaim (optimize (safety 1))] 10)
(defalias 'eieio--object-class-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block eieio--object-class-tag (declare (side-effect-free t)) (aref cl-x 0)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'eieio--object-class-tag 'compiler-macro 'eieio--object-class-tag--cmacro)
(defalias 'eieio--object-class-tag #[257 "\211\300H\207" [0] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\211\307\306\310\311\312\306& \207" [function-put eieio--object-class-tag side-effect-free t cl-struct-define eieio--object nil vector ((class-tag)) cl-struct-eieio--object-tags cl-struct-eieio--object] 10)
(defalias 'eieio--object-class #[257 "\211\300HJ\207" [0] 3 "\n\n(fn OBJ)"])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eieio--object-class byte-optimizer byte-compile-inline-expand require cl-macs] 4)
#@38 Return the class object.
(fn CLASS)
(defalias 'eieio--class-object #[257 "\2119\203\f \211\300N\206
\207\211\207" [cl--class] 3 (#$ . 9591)])
(put 'eieio--class-object 'byte-optimizer 'byte-compile-inline-expand)
#@81 Return non-nil if X is a valid class vector.
X can also be is a symbol.
(fn X)
(defalias 'class-p #[257 "\2119\203 \211\301N\202\f \211\302!\205\" \211G\303Y\205\" \211\304H>\205\" \305\207" [cl-struct-eieio--class-tags cl--class vectorp 12 0 t] 4 (#$ . 9812)])
#@55 Return a printed representation of CLASS.
(fn CLASS)
(defalias 'eieio--class-print-name #[257 "\300\301\302!\"\207" [format "#<class %s>" eieio-class-name] 5 (#$ . 10084)])
#@55 Return a Lisp like symbol name for CLASS.
(fn CLASS)
(defalias 'eieio-class-name #[257 "\211\2119\203 \211\301N\206 \202 \211\262\262\302!\203) \211G\303Y\203) \211\304H>\2041 \305\306\307\310E\"\210\211\311H\207" [cl-struct-eieio--class-tags cl--class vectorp 12 0 signal wrong-type-argument eieio--class class 1] 6 (#$ . 10265)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\310#\207" [defalias class-name eieio-class-name nil make-obsolete "24.4" eieio--class-constructor identity "Return the symbol representing the constructor of CLASS."] 4)
#@82 Return from LIST the found OPTION, or nil if it doesn't exist.
(fn LIST OPTION)
(defalias 'eieio--class-option-assoc '(macro . #[514 "\300\301\302EDD\207" [car-safe cdr memq] 7 (#$ . 10849)]))
#@104 Return the value stored for CLASS' OPTION.
Return nil if that option doesn't exist.
(fn CLASS OPTION)
(defalias 'eieio--class-option #[514 "\211\300H>A\242\207" [11] 5 (#$ . 11052)])
(put 'eieio--class-option 'byte-optimizer 'byte-compile-inline-expand)
#@53 Return non-nil if OBJ is an EIEIO object.
(fn OBJ)
(defalias 'eieio-object-p #[257 "\301!\2056 \211G\302V\2056 \211\302H\2119\2054 \303!\2054 \301J!\2054 \211JG\304Y\2054 \211J\302H>\2054 \305\262\207" [cl-struct-eieio--class-tags vectorp 0 boundp 12 t] 4 (#$ . 11314)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias object-p eieio-object-p nil make-obsolete "25.1"] 4)
#@91 Return non-nil if CLASS is abstract.
Abstract classes cannot be instantiated.
(fn CLASS)
(defalias 'class-abstract-p #[257 "\211\300N\301\211\302H>A\242\207" [cl--class :abstract 11] 6 (#$ . 11716)])
#@92 Return the invocation order of CLASS.
Abstract classes cannot be instantiated.
(fn CLASS)
(defalias 'eieio--class-method-invocation-order #[257 "\211\300\211\301H>A\242\266\202\206 \302\207" [:method-invocation-order 11 :breadth-first] 6 (#$ . 11924)])
(put 'eieio--class-method-invocation-order 'byte-optimizer 'byte-compile-inline-expand)
#@50 Symbol map of superclasses we find in autoloads.
(defvar eieio-defclass-autoload-map (make-hash-table) (#$ . 12274))
#@327 Create autoload symbols for the EIEIO class CNAME.
SUPERCLASSES are the superclasses that CNAME inherits from.
DOC is the docstring for CNAME.
This function creates a mock-class for CNAME and adds it into
SUPERCLASSES as children.
It creates an autoload function for CNAME's constructor.
(fn CNAME SUPERCLASSES FILENAME DOC)
(defalias 'eieio-defclass-autoload #[1028 "\302N\303\304\305\211\211\211\211\211\211\211\211\211&\f\306!\205) G\307Y\205) \310H>\205) \311?\205~ \203@ \211L\210\312\313\314 \"\315#\210\316\302#\266\317\305\211%\210\317\320\313\321 \"!\322\305\211%\210 \205~ \317\320\313\323 \"!\322\305\211%\210\317\320\313\324 \"!\322\305\211%\207" [cl-struct-eieio--class-tags eieio-backward-compatibility cl--class vector cl-struct-eieio--class nil vectorp 12 0 t make-obsolete-variable format "use \\='%s instead" "25.1" put autoload intern "%s-p" "" "%s-child-p" "%s-list-p"] 18 (#$ . 12398)])
#@68 If class CNAME is in an autoload state, load its file.
(fn CNAME)
(defalias 'eieio-class-un-autoload #[257 "\300K!\207" [autoload-do-load] 3 (#$ . 13339)])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [put eieio-class-un-autoload byte-optimizer byte-compile-inline-expand list-of cl-deftype-handler #[257 "\300\301\302\303\304\305\303\306\307\310\311 DEE\312BBEDE\207" [and list satisfies lambda (list) cl-every (elem) cl-typep elem quote (list)] 13 "\n\n(fn ELEM-TYPE)"]] 4)
(defalias 'eieio-make-class-predicate #[257 "\300\301\302\303\304!\305\"\306\307\310\"%\207" [make-byte-code 257 "\301!\205\n \302\300\"\207" vconcat vector [eieio-object-p same-class-p] 4 format "Return non-nil if OBJ is an object of type `%S'.\n\n(fn OBJ)"] 9 "\n\n(fn CLASS)"])
(defalias 'eieio-make-child-predicate #[257 "\300\301\302\303\304!\305\"\306\307\310\"%\207" [make-byte-code 257 "\301!\205\n \302\300\"\207" vconcat vector [eieio-object-p object-of-class-p] 4 format "Return non-nil if OBJ is an object of type `%S' or a subclass.\n\n(fn OBJ)"] 9 "\n\n(fn CLASS)"])
(defvar eieio--known-slot-names nil)
#@217 Define CNAME as a new subclass of SUPERCLASSES.
SLOTS are the slots residing in that class definition, and OPTIONS
holds the class options.
See `defclass' for more information.
(fn CNAME SUPERCLASSES SLOTS OPTIONS)
(defalias 'eieio-defclass-internal #[1028 "\306\300!\210\307\310N\311!\205 \211G\312Y\205 \211\313H >\205 \211\262\211\2065 \314\315\307\211\211\211\211\211\211\211\211\211&\f\307C\307\203e =\204F \316\317!\210\211\320\307I\266\211\321\307I\266\211\322\307I\266\211\323\307I\266\202| \324\n\"\211\203{ \211\325I\266\326 \n\"\210\210\203\211\203\211@\211\203\222 \2119\204\232 \327\330\"\210\202\374 \211\310N\311!\203\262 \211G\312Y\203\262 \211\313H >\204\272 \327\331\"\210\202\373 \n\211\325\325H\332\"\203\315 \211\202\320 B\262I\266\333\334\335\336\337\314\n!\340\"\321\341%\342\211\343H>A\242\266\202\"\210\211\320\320HBI\266\210A\266\202\202\203 \210\211\320\320H\237I\266\202>\303=\204>\344\262 \211\325\325H\332\"\203.\211\2021B\262I\266\211\320 CI\266\f\203R\211L\210\345\346\347 \"\350#\210\f\203\217\351\352 !\353P!\354\355\356\346\357\"\360\361\362\363\364\365\366\367\370\371\372\373EEE\374BBB\375BBBEF\"\210\376\346\377\f\"\350#\266\201B !\210\201C \310#\266\211\203S\211@\211@A\211\201D \201E \"\206\303\201E \235?\205\303
\201D \201F \"\201D \201G \"\201D \201H \"\201D \201I \"\201D \201J \"\201D \201K \"\201D \201L \"\201D \n\201M \"\201D \201N \"\201O >A\242\201P >\203&\307\202Q\201Q >\2035\201R \202Q\201S >\203D\201T \202Q\201U \201V \201H \nD\"\262\204Z\344\262\f\203| \203|\201W \n!\204| \211L\210\345\n\346\347
\"\350#\210\204\214\203\214\201X \262\202\225<\204\225C\262\211\203\265\211@\2119\204\256\201U \201V \201M D\"\210A\266\202\202\226\210\201Y
\201Z \205\320\201G BC \205\334\201K \fBC \205\350\201L \fBC \205\364\201M \fBC \205 \201N \fBC\205\f\201H BC&\314\201[ %\266\204\f\n\201\\ &\210\211\203J\211@\242\235\203<\242\202A\242B\240\210A\266\202\202&\266A\266\202\202\242\210\211\321\321H\201] \314\237\"\262I\266\211\322\322H\237I\266\211\323\323H\201] \314\"\262I\266\323H\211G\201^ \307\"\313\211W\203\316\211\201_ \nH\313H@>\204\272\201U \201` \201a
HD\"\210\nH\201b H!I\266\211T\262\202\216\266\211\201c I\266\321H\201d \201e \201f \"G\313\211W\203#\211H\313H@>\204 \201U \201` \201a HD\"\210H\201g H\201h #\266\211T\262\202\351\266\211\201i I\266\201G >A\242\211\201b I\266\f\203M\201C \201j #\210\210\201k \201l \201m \nB\"\210\342>A\242C\333\334\335\336\337\314!\340\"\321\201n %\242\"\210\342>\203\211\342>A\242\240\210\202\222\342\242BB\262\210\211\343I\266\211\203\246\211\320\307I\266\201^ \321HGT\307\"\351\346\201o \"!\211L\210\211\201p M\210\211\313I\266\344 A\201q \344\"\210)\211\201r I\266\207" [eieio-hook cl-struct-eieio--class-tags eieio-defclass-autoload-map eieio-default-superclass eieio-backward-compatibility eieio-unbound run-hooks nil cl--class vectorp 12 0 vector cl-struct-eieio--class cl--assertion-failed (eq newc oldc) 3 4 7 8 gethash 6 remhash error "Invalid parent class %S" "Given parent class %S is not a class" memql mapc make-byte-code 257 "\300\300\242\235\203
\300\242\202 \300\242B\240\207" vconcat [] "\n\n(fn G)" :custom-groups 11 t make-obsolete-variable format "use \\='%s instead" "25.1" intern symbol-name "-list-p" defalias lambda (obj) "Test OBJ to see if it a list of objects which are a child of type %s" when (listp obj) let ((ans t)) while (and obj ans) setq ans and (eieio-object-p (car obj)) object-of-class-p (car obj) ((setq obj (cdr obj))) (ans) make-obsolete "use (cl-typep ... \\='(list-of %s)) instead" cl-struct-cl-slot-descriptor-tags eieio-skip-typecheck eieio-copy-parents-into-subclass put plist-get :initform :initarg :documentation :protection :allocation :type :custom :label :group :printer :allow-nil-initform (:public public nil) (:protected protected) protected (:private private) private signal invalid-slot-type keywordp (default) eieio--add-new-slot append cl-struct-cl-slot-descriptor defaultoverride apply make-vector eieio-default-eval-maybe wrong-type-argument cl-slot-descriptor 2 9 make-hash-table :test eq 1 puthash 5 variable-documentation add-to-list current-load-list define-type "\n\n(fn CG)" "eieio-class-tag--%s" :quick-object-witness-check eieio-set-defaults 10] 38 (#$ . 14464)])
#@70 Whether the default value VAL should be evaluated for use.
(fn VAL)
(defalias 'eieio-eval-default-p #[257 "\211:\205 \211@9\205 \300@!\207" [fboundp] 3 (#$ . 19030)])
(put 'eieio-eval-default-p 'byte-optimizer 'byte-compile-inline-expand)
#@153 For SLOT, signal if its type does not match its default value.
If SKIPNIL is non-nil, then if default value is nil return t instead.
(fn SLOT SKIPNIL)
(defalias 'eieio--perform-slot-validation-for-default #[514 "\302H>\204 \303\304\305D\"\210\306H\302H>\204! \303\304\305D\"\210\307H\211:\2054 \211@9\2054 \310@!\262\206J \206J \203F ?\206J \311\"?\205g \303\312\302H>\204` \303\304\305D\"\210\313HE\"\207" [cl-struct-cl-slot-descriptor-tags eieio-skip-typecheck 0 signal wrong-type-argument cl-slot-descriptor 2 3 fboundp eieio--perform-slot-validation invalid-slot-type 1] 10 (#$ . 19280)])
(defalias 'eieio--slot-override #[771 "\302H>\204 \303\304\305D\"\210\306H\302H>\204! \303\304\305D\"\210\306H=\204, \307\310!\210\302H>\204; \303\304\305D\"\210\306H\302H>\204N \303\304\305D\"\210\311H\302H>\204a \303\304\305D\"\210\312H\302H>\204t \303\304\305D\"\210\311H\302H>\204\210 \303\304\305 D\"\210\313H\302H>\204\235 \303\304\305 D\"\210\313H\314\315\"\316=\204\276 \232\204\330 \317\320\n$\210\202\330 \302H>\204\317 \303\304\305 D\"\210\211\311I\266 =\204\377 \321 \"\210 \302H>\204\366 \303\304\305\fD\"\210 \211\312I\266\314\322\"\314\322\"\211=\204\317\323\f$\210\266\211\203m\314\315\"\211\2038\211@\211>\2041\211B\262A\266\202\202 \210\n\302H>\204J\303\304\305
D\"\210\n\315\313H\236\203]\241\210\202k\313\315B\211\262\313HBI\210\266\324\211\205\341\211@\314\f\302H>\204\207\303\304\305D\"\210\f\313H\"\203\332 \302H>\204\240\303\304\305D\"\210 \313H\236\314\302H>\204\272\303\304\305D\"\210\313H\"\203\312\241\210\202\330\313B\211\262\313HBI\210\266A\266\202\202n\262\207" [cl-struct-cl-slot-descriptor-tags eieio-unbound 0 signal wrong-type-argument cl-slot-descriptor 1 cl--assertion-failed (eq (cl--slot-descriptor-name old) (cl--slot-descriptor-name new)) 3 2 4 alist-get :group t error "Child slot type `%s' does not match inherited type `%s' for `%s'" eieio--perform-slot-validation-for-default :protection "Child slot protection `%s' does not match inherited protection `%s' for `%s'" (:custom :label :documentation :printer)] 20 "\n\n(fn OLD NEW SKIPNIL)"])
#@489 Add into NEWC attribute SLOT.
If a slot of that name already exists in NEWC, then do nothing. If it doesn't exist,
INIT is the initarg, if any.
Argument ALLOC specifies if the slot is allocated per instance, or per class.
If optional DEFAULTOVERRIDE is non-nil, then if A exists in NEWC,
we must override its value for a default.
Optional argument SKIPNIL indicates if type checking should be skipped
if default value is nil.
(fn NEWC SLOT INIT ALLOC &optional DEFAULTOVERRIDE SKIPNIL)
(defalias 'eieio--add-new-slot #[1540 "\302H>\204 \303\304\305D\"\210\306H\302H>\204# \303\304\305D\"\210\307H\310 \311H\312\313$@\310\n\314H\312\313$@\315 \"\204F \211 B\210\3161[ \317!\205W \320!\211\2620\202_ \210\202` \210\211\203g \321\262\322>\203\274 \204\211 \323 \"\210 \211\311 \311HBI\266\202\225 \203\225 \324\n#\210\205\342 B\n\211\325\325H\235\203\257 \211\202\262 B\262I\262\262\202\342 \211\204\327 \323 \"\210 \211\314 \314HBI\262\202\342 \205\342 \324\n#\207" [cl-struct-cl-slot-descriptor-tags eieio--known-slot-names 0 signal wrong-type-argument cl-slot-descriptor 1 2 cl-member 4 :key cl--slot-descriptor-name 8 memql (error) sequencep copy-sequence :class (nil :instance) eieio--perform-slot-validation-for-default eieio--slot-override 7] 17 (#$ . 21536)])
#@137 Copy into NEWC the slots of PARENTS.
Follow the rules of not overwriting early parents when applying to
the new child class.
(fn NEWC)
(defalias 'eieio-copy-parents-into-subclass #[257 "\301\302H>A\242\303H\211\205 \211@\211\304H\305HG\306\211W\203P \211\307H!\310\306H>\2045 \311\312\313D\"\210\314H\"@\315 \316\211&\266\211T\262\202 \266\211\317H\211G\306\211W\203v \211\315\307H!\316\320 %\266\211T\262\202X \266A\266\202\202\n \262\207" [cl-struct-cl-slot-descriptor-tags :allow-nil-initform 11 3 4 7 0 cl--copy-slot-descriptor rassq signal wrong-type-argument cl-slot-descriptor 1 eieio--add-new-slot nil 8 :class] 18 (#$ . 22873)])
#@63 Return non-nil if SPEC does not match VALUE.
(fn SPEC VALUE)
(defalias 'eieio--perform-slot-validation #[514 "\301=\206 \211=\206 \302\"\207" [eieio-unbound t cl-typep] 5 (#$ . 23554)])
#@205 Make sure that for CLASS referencing SLOT-IDX, VALUE is valid.
Checks the :type specifier.
SLOT is the slot that is being checked, and is only used when throwing
an error.
(fn CLASS SLOT-IDX VALUE SLOT)
(defalias 'eieio--validate-slot-value #[1028 "?\2058 S\262\302HH\211\303H >\204 \304\305\306D\"\210\211\307H\262\310\"?\2056 \304\311\312HF\"\262\207" [eieio-skip-typecheck cl-struct-cl-slot-descriptor-tags 4 0 signal wrong-type-argument cl-slot-descriptor 3 eieio--perform-slot-validation invalid-slot-type 1] 11 (#$ . 23754)])
#@205 Make sure that for CLASS referencing SLOT-IDX, VALUE is valid.
Checks the :type specifier.
SLOT is the slot that is being checked, and is only used when throwing
an error.
(fn CLASS SLOT-IDX VALUE SLOT)
(defalias 'eieio--validate-class-slot-value #[1028 "?\2054 \302HH\211\303H >\204 \304\305\306D\"\210\211\307H\262\310\"?\2052 \304\311\312HF\"\262\207" [eieio-skip-typecheck cl-struct-cl-slot-descriptor-tags 8 0 signal wrong-type-argument cl-slot-descriptor 3 eieio--perform-slot-validation invalid-slot-type 1] 11 (#$ . 24311)])
#@257 Throw a signal if VALUE is a representation of an UNBOUND slot.
INSTANCE is the object being referenced. SLOTNAME is the offending
slot. If the slot is ok, return VALUE.
Argument FN is the function calling this verifier.
(fn VALUE INSTANCE SLOTNAME FN)
(defalias 'eieio-barf-if-slot-unbound #[1028 "=\203 \204 \302\211\211\303HJ\262$\207\207" [eieio-unbound eieio-skip-typecheck slot-unbound 0] 9 (#$ . 24867)])
#@70 Return the value in OBJ at SLOT in the object vector.
(fn OBJ SLOT)
(defalias 'eieio-oref #[514 "\2119\204
\301\302\303\304E\"\210\305!\204! \306!\204! \301\302\307\310E\"\2109\203P \311\312\"\210\313N\314!\203J \211G\315Y\203J \211\316H>\203J \317K!\266\211\262\202W \211\316HJ\262\320\"\211\204y \321\"\211\262\203q \322HH\202\220 \323\324#\202\220 \305!\204\210 \301\302\325\310E\"\210\326H\324$\207" [cl-struct-eieio--class-tags signal wrong-type-argument symbol slot eieio-object-p class-p (or eieio-object class) obj error "eieio-oref called on a class: %s" cl--class vectorp 12 0 autoload-do-load eieio--slot-name-index eieio--class-slot-name-index 9 slot-missing oref eieio-object eieio-barf-if-slot-unbound] 9 (#$ . 25298)])
(function-put 'eieio-oref 'compiler-macro 'eieio-oref--anon-cmacro)
(defalias 'eieio-oref--anon-cmacro #[771 "\301:\203\252 @\211\302=\203\215 A\211:\203o \211@A\211\204N \211>?\262\203/ \"\202j \303!\203@ \211>?\262\204E \202j \"\202j \303!\203_ \211>?\262\204d \202j \"\266\202\202\210 \303!\203 \211>?\262\204\203 \202\210 \"\262\202\245 \303!\203\235 \211>?\262\204\241 \202\245 \"\262\202\302 \303!\203\272 \211>?\262\204\276 \202\302 \211\"\207" [eieio--known-slot-names #[514 "\300\301\302\"\303#\207" [macroexp--warn-and-return format-message "Unknown slot `%S'" compile-only] 6 "\n\n(fn EXP NAME)"] quote keywordp] 11 "\n\n(fn EXP OBJ SLOT)"])
#@126 Do the work for the macro `oref-default' with similar parameters.
Fills in OBJ's SLOT with its default value.
(fn OBJ SLOT)
(defalias 'eieio-oref-default #[514 "\301!\204 \302!\204 \303\304\305\306E\"\210\2119\204! \303\304\307\310E\"\2109\203, \311N\202= \301!\203< \211\312HJ\262\202= \313\"\211\204_ \314\"\211\262\203W \315HH\202\205 \316\317#\202\205 \320\321HSH\211\312H>\204u \303\304\322D\"\210\211\323H\262\324!\262\325H\317$\207" [cl-struct-cl-slot-descriptor-tags eieio-object-p class-p signal wrong-type-argument (or eieio-object class) obj symbol slot cl--class 0 eieio--slot-name-index eieio--class-slot-name-index 9 slot-missing oref-default eieio-barf-if-slot-unbound 4 cl-slot-descriptor 2 eieio-default-eval-maybe 1] 10 (#$ . 26789)])
#@68 Check VAL, and return what `oref-default' would provide.
(fn VAL)
(defalias 'eieio-default-eval-maybe #[257 "\211\211:\205 \211@9\205 \300@!\262\203 \301!\207\207" [fboundp eval] 4 (#$ . 27579)])
#@88 Do the work for the macro `oset'.
Fills in OBJ's SLOT with VALUE.
(fn OBJ SLOT VALUE)
(defalias 'eieio-oset #[771 "\300!\204 \301\302\303\304E\"\2109\204 \301\302\305\306E\"\210\211\307HJ\262\310\"\211\204O \311\"\211\262\203E \312$\210\313HI\202[ \314\315$\202[ \316$\210I\207" [eieio-object-p signal wrong-type-argument eieio-object obj symbol slot 0 eieio--slot-name-index eieio--class-slot-name-index eieio--validate-class-slot-value 9 slot-missing oset eieio--validate-slot-value] 10 (#$ . 27788)])
#@123 Do the work for the macro `oset-default'.
Fills in the default value in CLASS' in SLOT with VALUE.
(fn CLASS SLOT VALUE)
(defalias 'eieio-oset-default #[771 "\2119\203 \211\302N\206 \202 \211\262\262\303!\203) G\304Y\203) \305H>\2041 \306\307\310\311E\"\2109\204> \306\307\312\313E\"\210\314\"\211\204l \315\"\211\262\203a \316$\210\317HI\202\260 \306\320\321HD\"\202\260 \322$\210\211:\205\204 \211@9\205\204 \323@!\262\203\215 \324\325!\210\326HSH\211\305H >\204\242 \306\307\327D\"\210\211\211\330I\266\331\332H#\207" [cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags cl--class vectorp 12 0 signal wrong-type-argument eieio--class class symbol slot eieio--slot-name-index eieio--class-slot-name-index eieio--validate-class-slot-value 9 invalid-slot-name 1 eieio--validate-slot-value fboundp error "Can't set default to a sexp that gets evaluated again" 4 cl-slot-descriptor 2 eieio-oset 10] 9 (#$ . 28333)])
#@256 In CLASS find the index of the named SLOT.
The slot is a symbol which is installed in CLASS by the `defclass' call.
If SLOT is the value created with :initarg instead,
reverse-lookup that name, and recurse with the associated slot value.
(fn CLASS SLOT)
(defalias 'eieio--slot-name-index #[514 "\300\301H\"\211\250\203 \211T\202 \302\"\211\205 \303\"\262\207" [gethash 5 eieio--initarg-to-attribute eieio--slot-name-index] 7 (#$ . 29309)])
#@257 In CLASS find the index of the named SLOT.
The slot is a symbol which is installed in CLASS by the `defclass'
call. If SLOT is the value created with :initarg instead,
reverse-lookup that name, and recurse with the associated slot value.
(fn CLASS SLOT)
(defalias 'eieio--class-slot-name-index #[514 "\301\302H\211G\303\211W\2037 \211H\303H>\204# \304\305\306HD\"\210H\307H=\203/ \211\262\210\211T\262\202 \266\207" [cl-struct-cl-slot-descriptor-tags nil 8 0 signal wrong-type-argument cl-slot-descriptor 1] 13 (#$ . 29767)])
#@229 Take object OBJ, and reset all slots to their defaults.
If SET-ALL is non-nil, then when a default is nil, that value is
reset. If SET-ALL is nil, the slots are only reset if the default is
not nil.
(fn OBJ &optional SET-ALL)
(defalias 'eieio-set-defaults #[513 "\211\301HJ\262\211\302H\262\211G\301\211W\205M \211H\301H>\204* \303\304\305HD\"\210H\306H\307\"\211\204= \203D \310#\210\266\211T\262\202 \266\202\207" [cl-struct-cl-slot-descriptor-tags 0 4 signal wrong-type-argument cl-slot-descriptor 1 eieio-oref-default eieio-oset] 12 (#$ . 30318)])
#@183 For CLASS, convert INITARG to the actual attribute name.
If there is no translation, pass it in directly (so we can cheat if
need be... May remove that later...)
(fn CLASS INITARG)
(defalias 'eieio--initarg-to-attribute #[514 "\300\301H\"\211\205\f \211A\207" [assoc 7] 6 (#$ . 30903)])
#@90 Return CLASS if it can go in the result now, otherwise nil.
(fn CLASS REMAINING-INPUTS)
(defalias 'eieio--c3-candidate #[514 "\300\203 \211\204 @A\235\262A\262\202 \211\262?\205 \207" [nil] 5 (#$ . 31199)])
#@186 Merge REVERSED-PARTIAL-RESULT REMAINING-INPUTS in a consistent order, if possible.
If a consistent order does not exist, signal an error.
(fn REVERSED-PARTIAL-RESULT REMAINING-INPUTS)
(defalias 'eieio--c3-merge-lists #[514 "\300\301\"\262\211\204
\237\207\301\211\203& \204& \302@@\"\262\211A\262\202 \211\203E \303B\304\305\306\307\310\311!\312\"\313\314%\"\"\202J \315\316C\"\207" [delq nil eieio--c3-candidate eieio--c3-merge-lists mapcar make-byte-code 257 "\211@\300=\203\n \211A\207\207" vconcat vector [] 3 "\n\n(fn L)" signal inconsistent-class-hierarchy] 14 (#$ . 31426)])
(defalias 'eieio--class/struct-parents #[257 "\211\301H\206 C\207" [eieio-default-superclass 3] 3 "\n\n(fn CLASS)"])
(put 'eieio--class/struct-parents 'byte-optimizer 'byte-compile-inline-expand)
#@54 Return all parents of CLASS in c3 order.
(fn CLASS)
(defalias 'eieio--class-precedence-c3 #[257 "\211\301H\302C\303\304\305\"\206 CCC\"\"\207" [eieio-default-superclass 3 eieio--c3-merge-lists append mapcar eieio--class-precedence-c3] 8 (#$ . 32233)])
#@63 Return all parents of CLASS in depth-first order.
(fn CLASS)
(defalias 'eieio--class-precedence-dfs #[257 "\211\301H\302\303\304C\305\306\"\206 CC#!\211\211\203* \211\307@A\"\241\210\211A\262\202 \207" [eieio-default-superclass 3 copy-sequence apply append mapcar #[257 "\211\300!B\207" [eieio--class-precedence-dfs] 4 "\n\n(fn PARENT)"] delq] 9 (#$ . 32497)])
#@65 Return all parents of CLASS in breadth-first order.
(fn CLASS)
(defalias 'eieio--class-precedence-bfs #[257 "\301\211\302H\206\n C\262\211\203; \211A\262\242\211\235\2047 \211B\262\211=\2047 \303\211\302H\2062 C\262\"\262\210\202\f \237B\207" [eieio-default-superclass nil 3 append] 9 (#$ . 32876)])
#@178 Return (transitively closed) list of parents of CLASS.
The order, in which the parents are returned depends on the
method invocation orders of the involved classes.
(fn CLASS)
(defalias 'eieio--class-precedence-list #[257 "\211?\206 \211=?\205S \211\301H\204 \211\302H\303K!\266\211\211\304\211\305H>A\242\266\202\206+ \306\262\307\310\"\203: \311!\202Q \307\306\"\203G \312!\202Q \307\313\"\205Q \314!\262\207" [eieio-default-superclass 10 1 autoload-do-load :method-invocation-order 11 :breadth-first eql :depth-first eieio--class-precedence-dfs eieio--class-precedence-bfs :c3 eieio--class-precedence-c3] 7 (#$ . 33200)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\317\320!\207" [defalias class-precedence-list eieio--class-precedence-list nil make-obsolete "24.4" define-error invalid-slot-name "Invalid slot name" invalid-slot-type "Invalid slot type" unbound-slot "Unbound slot" inconsistent-class-hierarchy "Inconsistent class hierarchy" require cl-generic] 4)
(defconst eieio--generic-generalizer (byte-code "\300\301\302\303\304\305%\207" [#[385 "9\205* \301!\205* \302J!\205* JG\303Y\205* J\304H>\205* \305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"] vector cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag] 7))
(cl-generic-define-method 'cl-generic-generalizers '(:extra "class") '(specializer) t #[514 "\211\2119\203 \211\302N\206 \202 \211\262\303!\205( \211G\304Y\205( \211\305H>\205( \306\262\2032 C\2064 \207" [cl-struct-eieio--class-tags eieio--generic-generalizer cl--class vectorp 12 0 t] 5 "\n\n(fn CL--CNM SPECIALIZER)"])
(defalias 'eieio--generic-subclass-specializers #[385 "\301!\205 G\302Y\205 \303H>\205 \304\305\306!\"\207" [cl-struct-eieio--class-tags vectorp 12 0 mapcar #[257 "\300\301HD\207" [subclass 1] 4 "\n\n(fn CLASS)"] eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"])
(defconst eieio--generic-subclass-generalizer (byte-code "\300\301\302\303\304\305%\207" [#[385 "\300\301D\302DE\207" [and symbolp cl--find-class] 6 "\n\n(fn NAME &rest _)"] vector cl-struct-cl--generic-generalizer eieio--generic-subclass-generalizer 60 eieio--generic-subclass-specializers] 7))
(cl-generic-define-method 'cl-generic-generalizers nil '((_specializer (head subclass))) nil #[257 "C\207" [eieio--generic-subclass-generalizer] 2 "\n\n(fn SPECIALIZER)"])
#@179 Like `defalias', but with less side-effects.
More specifically, it has no side-effects at all when the new function
definition is the same (`eq') as the old one.
(fn NAME BODY)
(autoload 'eieio--defalias "eieio-compat" '(#$ . 35759) nil nil)
#@440 Create a generic function METHOD.
DOC-STRING is the base documentation for this class. A generic
function has no body, as its purpose is to decide which method body
is appropriate to use. Uses `defmethod' to create methods, and calls
`defgeneric' for you. With this implementation the ARGS are
currently ignored. You can use `defgeneric' to apply specialized
top level documentation to a method.
(fn METHOD ARGS &optional DOC-STRING)
(autoload 'defgeneric "eieio-compat" '(#$ . 36009) nil t)
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put defgeneric doc-string-elt 3 make-obsolete cl-defgeneric "25.1"] 4)
#@1054 Create a new METHOD through `defgeneric' with ARGS.
The optional second argument KEY is a specifier that
modifies how the method is called, including:
:before - Method will be called before the :primary
:primary - The default if not specified
:after - Method will be called after the :primary
:static - First arg could be an object or class
The next argument is the ARGLIST. The ARGLIST specifies the arguments
to the method as with `defun'. The first argument can have a type
specifier, such as:
((VARNAME CLASS) ARG2 ...)
where VARNAME is the name of the local variable for the method being
created. The CLASS is a class symbol for a class made with `defclass'.
A DOCSTRING comes after the ARGLIST, and is optional.
All the rest of the args are the BODY of the method. A method will
return the value of the last form in the BODY.
Summary:
(defmethod mymethod [:before | :primary | :after | :static]
((typearg class-name) arg2 &optional opt &rest rest)
"doc-string"
body)
(fn METHOD &rest ARGS)
(autoload 'defmethod "eieio-compat" '(#$ . 36651) nil t)
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put defmethod doc-string-elt 3 make-obsolete cl-defmethod "25.1"] 4)
#@26
(fn METHOD DOC-STRING)
(autoload 'eieio--defgeneric-init-form "eieio-compat" '(#$ . 37902) nil nil)
#@34
(fn METHOD KIND ARGCLASS CODE)
(autoload 'eieio--defmethod "eieio-compat" '(#$ . 38010) nil nil)
#@82 Obsolete work part of an old version of the `defmethod' macro.
(fn METHOD ARGS)
(autoload 'eieio-defmethod "eieio-compat" '(#$ . 38115) nil nil)
(make-obsolete 'eieio-defmethod 'cl-defmethod "24.1")
#@89 Obsolete work part of an old version of the `defgeneric' macro.
(fn METHOD DOC-STRING)
(autoload 'eieio-defgeneric "eieio-compat" '(#$ . 38321) nil nil)
(make-obsolete 'eieio-defgeneric 'cl-defgeneric "24.1")
#@41
(fn CNAME SUPERCLASSES SLOTS OPTIONS)
(autoload 'eieio-defclass "eieio-compat" '(#$ . 38537) nil nil)
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete eieio-defclass eieio-defclass-internal "25.1" provide eieio-core] 4)
Kontol Shell Bypass