ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/eieio-compat.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!\210\303\304\305\306#\207" [require eieio-core cl-generic put eieio--defalias byte-hunk-handler byte-compile-file-form-defalias] 4)
#@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)
(defalias 'eieio--defalias #[514 "\2119\203 \300\301!\210\302!\203 K9\203 K\262\202 \302!\205& K=?\205. \303\"\207" [cl--assertion-failed (not (symbolp body)) fboundp defalias] 5 (#$ . 577)])
#@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)
(defalias 'defgeneric '(macro . #[770 "\300\301D\302\301D\205 \303\"EE\207" [eieio--defalias quote eieio--defgeneric-init-form help-add-fundoc-usage] 10 (#$ . 967)]))
(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)
(defalias 'defmethod '(macro . #[385 "\300@!\205
\211A\262\242@\211@\211:\203 \211@AB\202 :\205' A@\301ABB\302\303 E\304\305 D\305\nD\305D\306D\257E\207" [keywordp lambda progn defgeneric eieio--defmethod quote function] 16 (#$ . 1726)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\210\307\301\310\311#\207" [function-put defmethod doc-string-elt 3 make-obsolete cl-defmethod "25.1" put edebug-form-spec (&define [&or name ("setf" :name setf name)] [&optional symbolp] list [&optional stringp] def-body)] 4)
(defalias 'eieio--generic-static-symbol-specializers #[385 "\203 \301!\203 G\302Y\203 \303H>\204 \304\305!\210\301!\205W G\302Y\205W \303H>\205W \306!\307\211\203R \211@\211B\262\310A@DB\262A\266\202\2027 \210\211\237\266\202\207" [cl-struct-eieio--class-tags vectorp 12 0 cl--assertion-failed (or (null tag) (eieio--class-p tag)) eieio--generic-subclass-specializers nil eieio--static] 8 "\n\n(fn TAG &rest _)"])
(defconst eieio--generic-static-symbol-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-static-symbol-generalizer 61 eieio--generic-static-symbol-specializers] 7))
(defconst eieio--generic-static-object-generalizer (byte-code "\300\301\302\303\304\305%\207" [#[385 "9\205P \301!\205P J\211\262\205P \302!\205P G\303Y\205P \304H>\205P \305!\306\211\203K \211@\211\307H\262\211B\262\310DB\262A\266\202\202- \210\211\237\266\202\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 eieio--class-precedence-list nil 1 eieio--static] 8 "\n\n(fn TAG &rest _)"] vector cl-struct-cl--generic-generalizer eieio--generic-static-object-generalizer 51 cl--generic-struct-tag] 7))
(cl-generic-define-method 'cl-generic-generalizers nil '((_specializer (head eieio--static))) nil #[257 " D\207" [eieio--generic-static-symbol-generalizer eieio--generic-static-object-generalizer] 3 "\n\n(fn SPECIALIZER)"])
(defalias 'eieio--defgeneric-init-form #[514 "\211\203\n \301\302#\210\303>\203 K\207\304!\211\305H>\204% \306\307\310D\"\210\211\311HK\207" [cl-struct-cl--generic-tags put function-documentation (no-next-method no-applicable-method) cl-generic-ensure-function 0 signal wrong-type-argument cl--generic 1] 7 "\n\n(fn METHOD DOC-STRING)"])
(defalias 'eieio--defmethod #[1028 "\300\301!\227!\262\302=\204 \206 \303\202 \304\262\305D\306>?\307DC\310=\203E \311\262\312\313BB\262\314\315\316\317\320!\321\"\322\323%\202e \324=\203d \325\262\312B\262\314\315\326\317\320!\327\"\330\331%\202e \332\333>?\205s C\211\203\261 \334\335\"\336\337\"\205\230 \340\304\"\211\203\225 \211A\202\226 \262\314\341\342\317\320
!\343\"\344\345\346 B\"%\266\203\202\262 %\210\347>\203\321 \350\304\351\352\"#\204\321 \332\304\303\353%\210\207" [intern symbol-name :static t nil eieio--static (:before :after) arg no-next-method cl-no-next-method generic method make-byte-code 642 "\301\300\"\207" vconcat vector [apply] 6 "\n\n(fn GENERIC METHOD &rest ARGS)" no-applicable-method cl-no-applicable-method "\302\300\303H >\204 \304\305\306D\"\210\307HB$\207" [cl-struct-cl--generic-tags apply 0 signal wrong-type-argument cl--generic 1] 10 "\n\n(fn GENERIC ARG &rest ARGS)" cl-generic-define-method (nil :primary) documentation raw help-function-arglist preserve-names help-split-fundoc 385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 help-add-fundoc-usage cl-cnm (:before :after) cl-find-method mapcar #[257 "\211:\203 \211A@\207\300\207" [t] 2 "\n\n(fn ARG)"] #[385 "\300!\205\n \301\"\207" [cl--generic-isnot-nnm-p apply] 5 "\n\n(fn CNM &rest ARGS)"]] 25 "\n\n(fn METHOD KIND ARGCLASS CODE)"])
(byte-code "\300\301\302\303\301\302NB#\207" [put cl-no-applicable-method error-conditions no-method-definition] 6)
(defalias 'generic-p #[257 "\211\300N??\207" [cl--generic] 3 "\n\n(fn FNAME)"])
(defalias 'no-next-method #[128 "\300\301\302\303$\207" [apply cl-no-next-method unknown nil] 6 "\n\n(fn &rest ARGS)"])
(make-obsolete 'no-next-method 'cl-no-next-method "25.1")
(defalias 'no-applicable-method #[642 "\300\301$\207" [apply cl-no-applicable-method] 8 "\n\n(fn OBJECT METHOD &rest ARGS)"])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\300\305\306\303#\207" [make-obsolete no-applicable-method cl-no-applicable-method "25.1" defalias call-next-method cl-call-next-method nil] 4)
(defalias 'next-method-p #[0 "\300\301!\210\302\207" [message "next-method-p called outside of a primary or around method" nil] 2])
(make-obsolete 'next-method-p 'cl-next-method-p "25.1")
#@82 Obsolete work part of an old version of the `defmethod' macro.
(fn METHOD ARGS)
(defalias 'eieio-defmethod #[514 "\300\301BB!\210\207" [eval defmethod] 6 (#$ . 7727)])
(make-obsolete 'eieio-defmethod 'cl-defmethod "24.1")
#@89 Obsolete work part of an old version of the `defgeneric' macro.
(fn METHOD DOC-STRING)
(defalias 'eieio-defgeneric #[514 "\300\301\302\205\n CBBB!\210\303\207" [eval defgeneric (x) method] 7 (#$ . 7959)])
(make-obsolete 'eieio-defgeneric 'cl-defgeneric "24.1")
(defalias 'eieio-defclass #[1028 "\300\301BBBB!\207" [eval defclass] 10 "\n\n(fn CNAME SUPERCLASSES SLOTS OPTIONS)"])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete eieio-defclass eieio-defclass-internal "25.1" provide eieio-compat] 4)
Kontol Shell Bypass