ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/cl-preloaded.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; 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\302\303!\"\207" [define-error cl-assertion-failed purecopy "Assertion failed"] 4)
(defalias 'cl--assertion-failed #[1025 "\203 \302\303BBD\"\207\203 \304\302\305\"#\207\306\303B\"\207" [debug-on-error debugger error cl-assertion-failed apply append signal] 10 "\n\n(fn FORM &optional STRING SARGS ARGS)"])
(defvar cl-struct-cl-structure-object-tags nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305M\207" [cl-structure-object cl--class put dummy cl--make-slot-desc #[1025 "\300\301%\207" [vector cl-struct-cl-slot-descriptor] 10 "\n\n(fn NAME &optional INITFORM TYPE PROPS)"]] 4)
(defalias 'cl--struct-get-class #[257 "\2119\204 \211\206_ \211\300N\206_ \211\301N\204 \302\303\"\207\304\305\306\"!\301N\307N\310\311\312N@\313=\205> A@?\205> \314\236?\205D @A@\304\305\315
\"!\n\f\316N& \210\300N\266\203\207" [cl--class cl-struct-type error "%S is not a struct name" intern format "cl-struct-%s" cl-struct-slots cl-struct-define nil cl-struct-include vector cl-tag-slot "cl-struct-%s-tags" cl-struct-print] 15 "\n\n(fn NAME)"])
(defalias 'cl--plist-remove #[514 "\204 \300\207\211\204\f \207=\203 AA\207@A@\301AA\"BB\207" [nil cl--plist-remove] 7 "\n\n(fn PLIST MEMBER)"])
(defalias 'cl--struct-register-child #[514 "\301!\205N \302\301!\203 G\303Y\203 \304H>\204# \305\306\307D\"\210\310H\"\210\301!\203> G\303Y\203> \304H>\204E \305\306\307D\"\210\311H@\262\202 \207" [cl-struct-cl-structure-class-tags vectorp add-to-list 11 0 signal wrong-type-argument cl-structure-class 10 3] 7 "\n\n(fn PARENT TAG)"])
(defalias 'cl-struct-define #[2313 "\204\f \203\f \302\303!\210\304!\203 \305\"\210\202 CL\210\204/ @@\306=\203/ A\262\2058 \307!G\310\311\312\313$\314\315\"\316\n\203N \316\202O \317 \211\203\225 \211@\211AA\320\321\"\211\203h \211A@\202i \322\323@A@\324 \"$I\266\325@\\#\210T\262A\266\202\202Q \210\266\203\f\f9?\205\245 C\f\f
\326\327 \n
& \266\2129\204{\330!\203\346 G\331Y\203\346 \316H>\204\356 \332\333\334D\"\210\335HGY\204z\322G\316\211W\203j\211\330H!\203 HG\336Y\203 H\316H >\204(\332\333\337HD\"\210H\317H\330H!\203KHG\336Y\203KH\316H >\204U\332\333\337\nHD\"\210H\317H=\204b\315\262\210\211T\262\202\374 \266\211\262\204z\340\341#\210\210\305\342\343B\"\210\344\"\210 \322=\204\240\345\346\347DE\322\"\210\350M\210
\351\352#\262\207" [cl-struct-cl-structure-class-tags cl-struct-cl-slot-descriptor-tags cl--assertion-failed (or type (not named)) boundp add-to-list cl-tag-slot cl--struct-get-class make-hash-table :test eq :size make-vector nil 0 1 plist-member :type t cl--make-slot-desc cl--plist-remove puthash vector cl-struct-cl-structure-class vectorp 11 signal wrong-type-argument cl-structure-class 4 5 cl-slot-descriptor error "Included struct %S has changed since compilation of %S" current-load-list define-type cl--struct-register-child eval defconst quote :quick-object-witness-check put cl--class] 35 "\n\n(fn NAME DOCSTRING PARENT TYPE NAMED SLOTS CHILDREN-SYM TAG PRINT)"])
(defalias 'cl--struct-class-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 11) (memq (aref cl-x 0) cl-struct-cl-structure-class-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-p 'compiler-macro 'cl--struct-class-p--cmacro)
(defalias 'cl--struct-class-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-cl-structure-class-tags vectorp 11 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-class-p side-effect-free error-free put cl-structure-class cl-deftype-satisfies] 4)
(defalias 'cl--struct-class-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-name 'compiler-macro 'cl--struct-class-name--cmacro)
(defalias 'cl--struct-class-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 1] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-name 'side-effect-free t)
(defalias 'cl--struct-class-docstring--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-docstring (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-docstring 'compiler-macro 'cl--struct-class-docstring--cmacro)
(defalias 'cl--struct-class-docstring #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 2] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-docstring 'side-effect-free t)
(defalias 'cl--struct-class-parents--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-parents (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-parents 'compiler-macro 'cl--struct-class-parents--cmacro)
(defalias 'cl--struct-class-parents #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 3] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-parents 'side-effect-free t)
(defalias 'cl--struct-class-slots--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-slots (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-slots 'compiler-macro 'cl--struct-class-slots--cmacro)
(defalias 'cl--struct-class-slots #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 4] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-slots 'side-effect-free t)
(defalias 'cl--struct-class-index-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-index-table (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-index-table 'compiler-macro 'cl--struct-class-index-table--cmacro)
(defalias 'cl--struct-class-index-table #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 5] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-index-table 'side-effect-free t)
(defalias 'cl--struct-class-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-tag 'compiler-macro 'cl--struct-class-tag--cmacro)
(defalias 'cl--struct-class-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 6] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-tag 'side-effect-free t)
(defalias 'cl--struct-class-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-type 'compiler-macro 'cl--struct-class-type--cmacro)
(defalias 'cl--struct-class-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 7] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-type 'side-effect-free t)
(defalias 'cl--struct-class-named--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-named (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-named 'compiler-macro 'cl--struct-class-named--cmacro)
(defalias 'cl--struct-class-named #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 8] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-named 'side-effect-free t)
(defalias 'cl--struct-class-print--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-print (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-print 'compiler-macro 'cl--struct-class-print--cmacro)
(defalias 'cl--struct-class-print #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 9] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-print 'side-effect-free t)
(defalias 'cl--struct-class-children-sym--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-class-children-sym (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-structure-class-tags)) (signal 'wrong-type-argument (list 'cl-structure-class cl-x))) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-class-children-sym 'compiler-macro 'cl--struct-class-children-sym--cmacro)
(defalias 'cl--struct-class-children-sym #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-structure-class-tags 0 signal wrong-type-argument cl-structure-class 10] 5 "\n\n(fn CL-X)"])
(function-put 'cl--struct-class-children-sym 'side-effect-free t)
(defalias 'cl--struct-new-class--cmacro #[2827 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (name docstring parents type named slots index-table children-sym tag print) (cl-block cl--struct-new-class "Constructor for objects of type `cl-structure-class'." (declare (side-effect-free t)) (vector 'cl-struct-cl-structure-class name docstring parents slots index-table tag type named print children-sym)) nil] 27 "\n\n(fn CL-WHOLE-ARG NAME DOCSTRING PARENTS TYPE NAMED SLOTS INDEX-TABLE CHILDREN-SYM TAG PRINT)"])
(put 'cl--struct-new-class 'compiler-macro 'cl--struct-new-class--cmacro)
#@136 Constructor for objects of type `cl-structure-class'.
(fn NAME DOCSTRING PARENTS TYPE NAMED SLOTS INDEX-TABLE CHILDREN-SYM TAG PRINT)
(defalias 'cl--struct-new-class #[2570 "\300\301 \n
& \207" [vector cl-struct-cl-structure-class] 22 (#$ . 11911)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\211\311\312\313\303& \207" [function-put cl--struct-new-class side-effect-free t cl-struct-define cl-structure-class "The type of CL structs descriptors." cl-structure-object nil ((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) (tag nil :type symbol) (type nil :type (memq (vector list))) (named nil :type bool) (print nil :type bool) (children-sym nil :type symbol)) cl-struct-cl-structure-class-tags cl-struct-cl-structure-class] 10)
(defalias 'cl-struct-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl-struct-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 1) (memq (aref cl-x 0) cl-struct-cl-structure-object-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl-struct-p 'compiler-macro 'cl-struct-p--cmacro)
(defalias 'cl-struct-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-cl-structure-object-tags vectorp 1 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\301\302\303\304#\210\305\306\307\302#\210\310\306\311\306\312\211\313\314\315\316& \210\306\312\207" [cl--struct-default-parent function-put cl-struct-p side-effect-free error-free put cl-structure-object cl-deftype-satisfies cl-struct-define "The root parent of all \"normal\" CL structs" nil ((cl-tag-slot)) cl-struct-cl-structure-object-tags cl-struct-cl-structure-object t] 10)
(defalias 'cl-slot-descriptor-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl-slot-descriptor-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-cl-slot-descriptor-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl-slot-descriptor-p 'compiler-macro 'cl-slot-descriptor-p--cmacro)
(defalias 'cl-slot-descriptor-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-cl-slot-descriptor-tags vectorp 5 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl-slot-descriptor-p side-effect-free error-free put cl-slot-descriptor cl-deftype-satisfies] 4)
(defalias 'cl--slot-descriptor-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--slot-descriptor-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-slot-descriptor-tags)) (signal 'wrong-type-argument (list 'cl-slot-descriptor cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--slot-descriptor-name 'compiler-macro 'cl--slot-descriptor-name--cmacro)
(defalias 'cl--slot-descriptor-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-slot-descriptor-tags 0 signal wrong-type-argument cl-slot-descriptor 1] 5 "\n\n(fn CL-X)"])
(function-put 'cl--slot-descriptor-name 'side-effect-free t)
(defalias 'cl--slot-descriptor-initform--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--slot-descriptor-initform (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-slot-descriptor-tags)) (signal 'wrong-type-argument (list 'cl-slot-descriptor cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--slot-descriptor-initform 'compiler-macro 'cl--slot-descriptor-initform--cmacro)
(defalias 'cl--slot-descriptor-initform #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-slot-descriptor-tags 0 signal wrong-type-argument cl-slot-descriptor 2] 5 "\n\n(fn CL-X)"])
(function-put 'cl--slot-descriptor-initform 'side-effect-free t)
(defalias 'cl--slot-descriptor-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--slot-descriptor-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-slot-descriptor-tags)) (signal 'wrong-type-argument (list 'cl-slot-descriptor cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--slot-descriptor-type 'compiler-macro 'cl--slot-descriptor-type--cmacro)
(defalias 'cl--slot-descriptor-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-slot-descriptor-tags 0 signal wrong-type-argument cl-slot-descriptor 3] 5 "\n\n(fn CL-X)"])
(function-put 'cl--slot-descriptor-type 'side-effect-free t)
(defalias 'cl--slot-descriptor-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--slot-descriptor-props (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl-slot-descriptor-tags)) (signal 'wrong-type-argument (list 'cl-slot-descriptor cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--slot-descriptor-props 'compiler-macro 'cl--slot-descriptor-props--cmacro)
(defalias 'cl--slot-descriptor-props #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl-slot-descriptor-tags 0 signal wrong-type-argument cl-slot-descriptor 4] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put cl--slot-descriptor-props side-effect-free t defalias cl--copy-slot-descriptor-1 copy-sequence] 4)
(defalias 'cl--make-slot-descriptor--cmacro #[1282 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (name initform type props) (cl-block cl--make-slot-descriptor "Constructor for objects of type `cl-slot-descriptor'." (declare (side-effect-free t)) (vector 'cl-struct-cl-slot-descriptor name initform type props)) nil] 15 "\n\n(fn CL-WHOLE-ARG NAME &optional INITFORM TYPE PROPS)"])
(put 'cl--make-slot-descriptor 'compiler-macro 'cl--make-slot-descriptor--cmacro)
#@96 Constructor for objects of type `cl-slot-descriptor'.
(fn NAME &optional INITFORM TYPE PROPS)
(defalias 'cl--make-slot-descriptor #[1025 "\300\301%\207" [vector cl-struct-cl-slot-descriptor] 10 (#$ . 17876)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\211\311\312\313\303& \207" [function-put cl--make-slot-descriptor side-effect-free t cl-struct-define cl-slot-descriptor "Descriptor of structure slot." cl-structure-object nil ((cl-tag-slot) (name) (initform) (type) (props nil :type alist)) cl-struct-cl-slot-descriptor-tags cl-struct-cl-slot-descriptor] 10)
(defalias 'cl--copy-slot-descriptor #[257 "\301!\211\302H>\204 \303\304\305D\"\210\211\211\306\307\306H!I\266\211\207" [cl-struct-cl-slot-descriptor-tags cl--copy-slot-descriptor-1 0 signal wrong-type-argument cl-slot-descriptor 4 copy-alist] 8 "\n\n(fn SLOT)"])
(defalias 'cl--class-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--class-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-cl--class-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--class-p 'compiler-macro 'cl--class-p--cmacro)
(defalias 'cl--class-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-cl--class-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--class-p side-effect-free error-free put cl--class cl-deftype-satisfies] 4)
(defalias 'cl--class-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--class-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl--class-tags)) (signal 'wrong-type-argument (list 'cl--class cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--class-name 'compiler-macro 'cl--class-name--cmacro)
(defalias 'cl--class-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl--class-tags 0 signal wrong-type-argument cl--class 1] 5 "\n\n(fn CL-X)"])
(function-put 'cl--class-name 'side-effect-free t)
(defalias 'cl--class-docstring--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--class-docstring (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl--class-tags)) (signal 'wrong-type-argument (list 'cl--class cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--class-docstring 'compiler-macro 'cl--class-docstring--cmacro)
(defalias 'cl--class-docstring #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl--class-tags 0 signal wrong-type-argument cl--class 2] 5 "\n\n(fn CL-X)"])
(function-put 'cl--class-docstring 'side-effect-free t)
(defalias 'cl--class-parents--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--class-parents (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl--class-tags)) (signal 'wrong-type-argument (list 'cl--class cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--class-parents 'compiler-macro 'cl--class-parents--cmacro)
(defalias 'cl--class-parents #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl--class-tags 0 signal wrong-type-argument cl--class 3] 5 "\n\n(fn CL-X)"])
(function-put 'cl--class-parents 'side-effect-free t)
(defalias 'cl--class-slots--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--class-slots (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl--class-tags)) (signal 'wrong-type-argument (list 'cl--class cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--class-slots 'compiler-macro 'cl--class-slots--cmacro)
(defalias 'cl--class-slots #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl--class-tags 0 signal wrong-type-argument cl--class 4] 5 "\n\n(fn CL-X)"])
(function-put 'cl--class-slots 'side-effect-free t)
(defalias 'cl--class-index-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--class-index-table (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-cl--class-tags)) (signal 'wrong-type-argument (list 'cl--class cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--class-index-table 'compiler-macro 'cl--class-index-table--cmacro)
(defalias 'cl--class-index-table #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cl--class-tags 0 signal wrong-type-argument cl--class 5] 5 "\n\n(fn CL-X)"])
(byte-code "\304\305\306\307#\210\310\311\312\313\314\211\315\303\316\307& \210\317\311N\211\320H>\204% \321\322\317D\"\210\211\323H\262\311\211N\211\320H>\204< \321\322\317D\"\210\211\323H\262\307G\320\211W\203\206 \211HH\320H >\204a \321\322\324D\"\210\325H\320H >\204s \321\322\324D\"\210\325H=\204} \314\262\266\211T\262\202E \266\266\202\204\221 \326\327!\210\317\311N\211\320H>\204\243 \321\322\317D\"\210\211\211\330\311\211NCI\266\331\311\211N\317\311N\211\320H>\204\303 \321\322\317D\"\210\211\332H\262\"\210\317\311N\204\324 \326\333!\210\313\311N\204\336 \326\334!\210\317\311N\335!\205\367 \211G\325Y\205\367 \211\320H\n>\205\367 \307\262\204 \326\336!\210\313\311N\335!\205\211G\325Y\205\211\320H\n>\205\307\262\204\"\326\337!\210\317\311N\335!\205;\211G\332Y\205;\211\320H >\205;\307\262\204D\326\340!\210\313\311N\335!\205]\211G\332Y\205]\211\320H >\205]\307\262\204f\326\341!\210\342\343\344\"\210\345\346\347\330#\210\345\350\347\330#\210\345\351\347\330#\210\345\352\347\353#\210\354\355!\207" [cl-struct-cl-structure-class-tags cl-struct-cl-slot-descriptor-tags cl-struct-cl-structure-object-tags cl-struct-cl--class-tags function-put cl--class-index-table side-effect-free t cl-struct-define cl--class "Type of descriptors for any kind of structure-like data." cl-structure-object nil ((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)) cl-struct-cl--class cl-structure-class 0 signal wrong-type-argument 4 cl-slot-descriptor 1 cl--assertion-failed (let ((sc-slots (cl--struct-class-slots (cl--find-class 'cl-structure-class))) (c-slots (cl--struct-class-slots (cl--find-class 'cl--class))) (eq t)) (dotimes (i (length c-slots)) (let ((sc-slot (aref sc-slots i)) (c-slot (aref c-slots i))) (unless (eq (cl--slot-descriptor-name sc-slot) (cl--slot-descriptor-name c-slot)) (setq eq nil)))) eq) 3 cl--struct-register-child 6 (cl--find-class 'cl-structure-class) (cl--find-class 'cl-structure-object) vectorp (cl-struct-p (cl--find-class 'cl-structure-class)) (cl-struct-p (cl--find-class 'cl-structure-object)) (cl--class-p (cl--find-class 'cl-structure-class)) (cl--class-p (cl--find-class 'cl-structure-object)) autoload cl--defsubst-expand "cl-macs" put cl-defun doc-string-elt cl-defmacro cl-defsubst cl-defstruct 2 provide cl-preloaded] 13)
Kontol Shell Bypass