;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib map subr-x] 2)#@63 compiler-macro for inlining `taxy-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-p (and (memq (type-of cl-x) cl-struct-taxy-tags) t)) nil] 9 (#$ . 167)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-p compiler-macro taxy-p--cmacro] 4)#@13 (fn CL-X) (defalias 'taxy-p #[257 "\301!>\205 \302\207" [cl-struct-taxy-tags type-of t] 3 (#$ . 517)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put taxy-p side-effect-free error-free pure t define-symbol-prop taxy cl-deftype-satisfies] 6)#@66 compiler-macro for inlining `taxy-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-name (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 1))) nil] 9 (#$ . 808)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-name compiler-macro taxy-name--cmacro] 4)#@54 Access slot "name" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 1] 5 (#$ . 1212)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-name side-effect-free t] 4)#@73 compiler-macro for inlining `taxy-description'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-description--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-description (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1513)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-description compiler-macro taxy-description--cmacro] 4)#@61 Access slot "description" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-description #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 2] 5 (#$ . 1953)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-description side-effect-free t] 4)#@65 compiler-macro for inlining `taxy-key'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-key (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2275)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-key compiler-macro taxy-key--cmacro] 4)#@53 Access slot "key" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-key #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 3] 5 (#$ . 2675)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-key side-effect-free t] 4)#@67 compiler-macro for inlining `taxy-items'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-items--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-items (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 4))) nil] 9 (#$ . 2973)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-items compiler-macro taxy-items--cmacro] 4)#@55 Access slot "items" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-items #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 4] 5 (#$ . 3383)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-items side-effect-free t] 4)#@67 compiler-macro for inlining `taxy-taxys'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-taxys--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-taxys (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 5))) nil] 9 (#$ . 3687)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-taxys compiler-macro taxy-taxys--cmacro] 4)#@55 Access slot "taxys" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-taxys #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 5] 5 (#$ . 4097)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-taxys side-effect-free t] 4)#@71 compiler-macro for inlining `taxy-predicate'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-predicate--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-predicate (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 6))) nil] 9 (#$ . 4401)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-predicate compiler-macro taxy-predicate--cmacro] 4)#@59 Access slot "predicate" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-predicate #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 6] 5 (#$ . 4831)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-predicate side-effect-free t] 4)#@66 compiler-macro for inlining `taxy-then'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-then--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-then (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 7))) nil] 9 (#$ . 5147)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-then compiler-macro taxy-then--cmacro] 4)#@54 Access slot "then" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-then #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 7] 5 (#$ . 5552)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-then side-effect-free t] 4)#@66 compiler-macro for inlining `taxy-make'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-make--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-make (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 8))) nil] 9 (#$ . 5853)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-make compiler-macro taxy-make--cmacro] 4)#@54 Access slot "make" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-make #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 8] 5 (#$ . 6258)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-make side-effect-free t] 4)#@66 compiler-macro for inlining `taxy-take'. (fn CL-WHOLE-ARG CL-X) (defalias 'taxy-take--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block taxy-take (progn (or (taxy-p cl-x) (signal 'wrong-type-argument (list 'taxy cl-x))) (aref cl-x 9))) nil] 9 (#$ . 6559)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop taxy-take compiler-macro taxy-take--cmacro] 4)#@54 Access slot "take" of `taxy' struct CL-X. (fn CL-X) (defalias 'taxy-take #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 9] 5 (#$ . 6964)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put taxy-take side-effect-free t defalias copy-taxy copy-sequence] 4)#@130 compiler-macro for inlining `make-taxy'. (fn CL-WHOLE &cl-quote &key NAME DESCRIPTION KEY ITEMS TAXYS PREDICATE THEN MAKE TAKE) (defalias 'make-taxy--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206'\307A@\300\310\"\2062\311A@\300\312\"\206=\313A@\300 \314\"A@ \211\203~\211@\315>\203f\211A\204^\316\317@\"\210\211AA\262\202H\320 >A@\203u\321\262\202H\316\322@\"\210\202H\210\323\324\325\321\321&\207" [plist-member :name :description :key :items :taxys :predicate (nil #'identity) :then (nil #'ignore) :make (nil #'make-taxy) :take (:name :description :key :items :taxys :predicate :then :make :take :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:name :description :key :items :taxys :predicate :then :make :take)" cl--defsubst-expand (name description key items taxys predicate then make take) (cl-block make-taxy (record 'taxy name description key items taxys predicate then make take))] 26 (#$ . 7309)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop make-taxy compiler-macro make-taxy--cmacro] 4)#@110 Constructor for objects of type `taxy'. (fn &key NAME DESCRIPTION KEY ITEMS TAXYS PREDICATE THEN MAKE TAKE) (defalias 'make-taxy #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"\206'\307A@\300\310\"\2062\311A@\300\312\"\206=\313A@\300 \314\"A@ \211\203~\211@\315>\203f\211A\204^\316\317@\"\210\211AA\262\202H\320 >A@\203u\321\262\202H\316\322@\"\210\202H\210\323\324\n\n\n\n\n\n\n\n\n&\n\207" [plist-member :name :description :key :items :taxys :predicate (nil identity) :then (nil ignore) :make (nil make-taxy) :take (:name :description :key :items :taxys :predicate :then :make :take :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:name :description :key :items :taxys :predicate :then :make :take)" record taxy] 21 (#$ . 8479)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-taxy side-effect-free t cl-struct-define taxy nil cl-structure-object record ((cl-tag-slot) (name) (description) (key) (items) (taxys) (predicate #'identity) (then #'ignore) (make #'make-taxy) (take)) cl-struct-taxy-tags] 11)#@68 Fill TAXY with ITEMS according to its definition. (fn ITEMS TAXY) (defalias 'taxy-fill #[514 "\300C\211\301\302\"\240\210\211\203\211@\242\"\210A\266\202\202\n\207" [nil make-closure #[514 "\302! >\204\303\304\305D\"\210\211\306H\203-\302! >\204$\303\304\305D\"\210\211\306H\"\202\302! >\204<\303\304\305D\"\210\211\307H\310\311\310:\203@\262\302! >\204Z\303\304\305D\"\210\312H!\203\374\302! >\204r\303\304\305D\"\210\306H\203\222\302! >\204\207\303\304\305D\"\210\306H\"\210\202\345\302! >\204\241\303\304\305D\"\210\307H\203\314\300\242\"\204\345\302! >\204\277\303\304\305D\"\210\313\313HBI\210\202\345\302! >\204\333\303\304\305D\"\210\313\313HBI\210\302! >\204\364\303\304\305D\"\210\314H!\262\204\n\311\262\310\211\262\203A\262\202B?\205\211\266\204\206u\302! >\204+\303\304\305D\"\210\211\312H!\205u\302! >\204B\303\304\305D\"\210\211\306H\203^\302! >\204W\303\304\305D\"\210\211\306H\"\207\302! >\204m\303\304\305D\"\210\211\313\313HBI\207" [V0 cl-struct-taxy-tags type-of signal wrong-type-argument taxy 9 5 nil t 6 4 7] 11 "\n\n(fn ITEM TAXY)"]] 8 (#$ . 9664)])#@63 Return a list of the human-readable parts of TAXY. (fn TAXY) (defalias 'taxy-plain #[257 "\301\302\303!>\204\304\305\306D\"\210\307H\303!>\204$\304\305\306D\"\210\310H\303!>\2047\304\305\306D\"\210\311H\312\313\303!>\204M\304\305\306\nD\"\210\314H\"F\"\207" [cl-struct-taxy-tags delq nil type-of signal wrong-type-argument taxy 1 2 4 mapcar taxy-plain 5] 12 (#$ . 10856)])#@142 Return a copy of TAXY without items. Omits TAXY's items and those of its descendant taxys. Useful when reusing taxy definitions. (fn TAXY) (defalias 'taxy-emptied #[257 "\301!\262\302!>\204\303\304\305D\"\210\211\306\307I\210\302!>\204(\303\304\305D\"\210\211\310\311\312\302!>\204<\303\304\305D\"\210\310H\"I\210\207" [cl-struct-taxy-tags copy-taxy type-of signal wrong-type-argument taxy 4 nil 5 mapcar taxy-emptied] 9 (#$ . 11261)])#@62 Return a list of items in TAXY and its sub-taxys. (fn TAXY) (defalias 'taxy-flatten #[257 "\301\302!>\204\303\304\305D\"\210\306H\302!>\204\"\303\304\305D\"\210\307H\310\211:\203@@\262\311\312!!\244\262A\262\202'\211\237\266\203\"\207" [cl-struct-taxy-tags append type-of signal wrong-type-argument taxy 4 5 nil reverse taxy-flatten] 9 (#$ . 11721)])#@212 Return copy of TAXY, having replaced its items with the value of FN on each. Replaces every item in TAXY and its descendants. Useful to replace items with a more useful form after classification. (fn FN TAXY) (defalias 'taxy-mapcar-items #[514 "\301!>\204\302\303\304D\"\210\211\305\306\301!>\204#\302\303\304D\"\210\305H\"I\210\301!>\2048\302\303\304D\"\210\211\307\301!>\204I\302\303\304D\"\210\307H\310\211:\203g@\262\311\"B\262A\262\202N\211\237\266\203I\210\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 4 mapcar 5 nil taxy-mapcar-items] 10 (#$ . 12100)]) (byte-code "\300\301\302\303#\304\305\301\"\207" [function-put taxy-mapcar-items lisp-indent-function defun defalias taxy-mapcar] 4)#@134 Return TAXY having applied FN to it and its descendants. Does not copy TAXY. Destructively modifies TAXY, if FN does. (fn FN TAXY) (defalias 'taxy-mapc-taxys #[514 "!\210\301!>\204\302\303\304D\"\210\211\305H\211:\203*\211\306@\"\240\210\211A\262\202\210\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 5 taxy-mapc-taxys] 7 (#$ . 12855)]) (byte-code "\300\301\302\303#\304\305\301\"\207" [function-put taxy-mapc-taxys lisp-indent-function defun defalias taxy-mapc*] 4)#@1211 Take ITEM into TAXY, adding new taxys dynamically and recursively. Places ITEM into a taxy in TAXY for the value returned by KEY-FNS called with ITEM. The new taxys are added to TAXY recursively as necessary. Each new taxy's name is that returned by KEY-NAME-FN called with ITEM. Each element of KEY-FNS may be a function or a list of functions. A list of functions creates a "chain" of functions: when an item is matched by the first function in a chain, it is placed in that chain's taxonomy, and is not "offered" to functions outside of that chain. For example, if KEY-FNS were: '(((lambda (n) (< n 10)) oddp) ((lambda (n) (>= n 10)) evenp)) Then a list of numbers from 0-19 would be classified like (listing numbers on a single line for the sake of example): - <10: - 0, 2, 4, 6, 8 - oddp: - 1, 3, 5, 7, 9 - >=10: - 11, 13, 15, 17, 19 - evenp: - 10, 12, 14, 16, 18 So only numbers below 10 are tested against `oddp', and only numbers greater-than-or-equal-to 10 are tested against `evenp'. (A contrived example, of course, since testing against `evenp' or `oddp' is just the inverse.) (fn KEY-FNS ITEM TAXY &key (KEY-NAME-FN #\='identity) (THEN #\='ignore)) (defalias 'taxy-take-keyed #[899 "\301\302\"\206\303A@\301\304\"\206\305A@\211\203J\211@\306>\2033\211A\204+\307\310@\"\210\211AA\262\202\311>A@\203A\312\262\202\307\313@\"\210\202\210@\314!\2038@\211!\211\203\315\316\317\"\320 !>\204t\321\322\323 D\"\210\324H\325\326$\206\325\320!>\204\217\321\322\323 D\"\210\327H\330!\325\331\316\332\n#\333A\205\262\316\334 $\304 &\n\320!>\204\310\321\322\323\nD\"\210\324\n\324HBI\262@ A\203\353\335\nA\n\302\n\304 &\207\320!>\204\372\321\322\323D\"\210\211\336\n\336HBI\207A\203\335 A  \302 \304\n&\207\320!>\204,\321\322\323 D\"\210\336  \336HBI\207\211<\205\213@@!\203Z\335@\302\304&\206\213A\203q\335A\302\304&\207\320!>\204\201\321\322\323D\"\210\336\336HBI\207" [cl-struct-taxy-tags plist-member :key-name-fn (nil identity) :then (nil ignore) (:key-name-fn :then :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:key-name-fn :then)" functionp cl-find-if make-closure #[257 "\300\232\207" [V0] 3 "\n\n(fn TAXY-KEY)"] type-of signal wrong-type-argument taxy 5 :key taxy-key 8 :name :predicate #[257 "\300\301!\232\207" [V0 V1] 4 "\n\n(fn ITEM)"] :take #[514 "\303\302A\304\301\305\300&\207" [V0 V1 V2 taxy-take-keyed :key-name-fn :then] 10 "\n\n(fn ITEM TAXY)"] taxy-take-keyed 4] 22 (#$ . 13364)]) (byte-code "\300\301\302\303#\300\207" [function-put taxy-take-keyed lisp-indent-function defun] 4)#@87 Return the number of items TAXY holds. Includes items in TAXY's sub-taxys. (fn TAXY) (defalias 'taxy-size #[257 "\301!>\204\302\303\304D\"\210\211\305H\306\307:\203+@\262\211\310!\\\262A\262\202\211\301!>\204<\302\303\304D\"\210\311HG\\\207" [cl-struct-taxy-tags type-of signal wrong-type-argument taxy 5 nil 0 taxy-size 4] 9 (#$ . 16130)])#@135 Sort TAXY's items by PRED and KEY. Sorts items in TAXY and its sub-taxys. KEY is passed to `cl-sort', which see. (fn PRED KEY TAXY) (defalias 'taxy-sort-items #[771 "\300\301\302#\"\207" [taxy-mapc* make-closure #[257 "\303!\n>\204\304\305\306D\"\210\211\307\310\303!\n>\204\"\304\305\306D\"\210\307H\301\311\300$I\207" [V0 V1 cl-struct-taxy-tags type-of signal wrong-type-argument taxy 4 cl-sort :key] 8 "\n\n(fn TAXY)"]] 8 (#$ . 16499)]) (byte-code "\300\301\302\303#\304\305\301\"\207" [function-put taxy-sort-items lisp-indent-function defun defalias taxy-sort] 4)#@99 Sort TAXY's sub-taxys by PRED and KEY. KEY is passed to `cl-sort', which see. (fn PRED KEY TAXY) (defalias 'taxy-sort-taxys #[771 "\300\301\302#\"\207" [taxy-mapc* make-closure #[257 "\303!\n>\204\304\305\306D\"\210\211\307\310\303!\n>\204\"\304\305\306D\"\210\307H\301\311\300$I\207" [V0 V1 cl-struct-taxy-tags type-of signal wrong-type-argument taxy 5 cl-sort :key] 8 "\n\n(fn TAXY)"]] 8 (#$ . 17088)]) (byte-code "\300\301\302\303#\304\305\301\"\207" [function-put taxy-sort-taxys lisp-indent-function defun defalias taxy-sort*] 4)#@470 Define a macro NAME that defines a key-function-defining macro. The defined macro, having string DOCSTRING, associates the defined key functions with their aliases in an alist stored in symbol VARIABLE. The defined key functions are named having string PREFIX, which will have a hyphen appended to it. The key functions take one or more arguments, the first of which is the item being tested, bound within the function to `item'. (fn NAME VARIABLE PREFIX DOCSTRING) (defalias 'taxy-define-key-definer '(macro . #[1028 "\300\301\302DDC\303\304\305\306\n\"F\307\310\311\312\313\314\305\315\316BBBDD\317B\320BB\257F\207" [let variable quote defvar nil format "Alist mapping key aliases to key functions.\nThis instance is defined with the macro:\n`%s'." defmacro (name args &rest body) (declare (indent defun) (debug (&define symbolp listp &rest def-form))) let* fn-symbol intern "%s-%s" (name) ((fn `(cl-function (lambda (item ,@args) ,@body)))) (`(progn (fset ',fn-symbol ,fn) (setf (map-elt ,variable ',name) ',fn-symbol)))] 19 (#$ . 17643)])) (byte-code "\300\301\302\303#\300\207" [function-put taxy-define-key-definer lisp-indent-function defun] 4)#@319 Return a `taxy' "take" function for KEYS. Each of KEYS should be a function alias defined in ALIASES, or a list of such KEY-FNS (recursively, ad infinitum, approximately). ALIASES should be an alist mapping aliases to functions (such as defined with a definer defined by `taxy-define-key-definer'). (fn KEYS ALIASES) (defalias 'taxy-make-take-function #[514 "\211\300\211\211:\203%@\262\211A\262\242\262\301DDB\262A\262\202\211\237\266\204\302\303\"\300C\211\302\304#\240\210\305\242\"\262\306\307\310\301D\311BBE\207" [nil quote make-closure #[257 "\301\302\300E!A@\207" [V0 macroexpand-all cl-symbol-macrolet] 5 "\n\n(fn FORM)"] #[257 "\302\3039\203 \301!\207:\203\242\211\304>\203\273\243\305!\203`\306\307\"\306\310\"\311\312\313\314\315\316\317\320\321\300\242\n\206:\f\"D \322\267\202O\323\202P\324\202P\325\202P\326\327BBBBBB\330\331BBEE\2079\203\260\211@\332!\203q\333\202\232\211:\204|\2119?\202\232\211:\205\232\211\242\211\320=\205\230\243\211:\205\226\211\243\211?\262\262\262\262\203\245\301#\207<\205\272\300\"\207<\205\272\300\"\207\2119\203 \243\211@\332!\203\316\333\202\367\211:\204\331\2119?\202\367\211:\205\367\211\242\211\320=\205\365\243\211:\205\363\211\243\211?\262\262\262\262\203\301#\207<\205\f\300\"\207<\205\300\"\207<\205 \211\300\"\207" [V0 V1 #[771 "\300\301!\302BBE\207" [lambda (element) element] 8 "\n\n(fn --CL-EXPAND-FORM-- FN ARGS)"] #[514 "\300\242\"\207" [mapcar] 5 "\n\n(fn --CL-QUOTE-FN-- FN)"] (not or and) mapp map-elt :name :keys lambda (buffer) when cl-loop for fn in quote mapcar #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (and 67 or 71 not 75)) always thereis never nil ((funcall fn buffer)) or ("") keywordp t] 18 "\n\n(fn FN)"] mapcar lambda (item taxy) taxy-take-keyed (item taxy)] 10 (#$ . 18814)]) (byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load shortdoc #[0 "\300\301\302\"\207" [mapc #[257 "\300\301\302#\207" [shortdoc-add-function taxy nil] 5 "\n\n(fn ELEM)"] ((taxy-flatten :eval (taxy-flatten (make-taxy :items '(a b c) :taxys (list (make-taxy :items '(d e f)))))) (taxy-emptied :eval (taxy-emptied (make-taxy :items '(a b c) :taxys (list (make-taxy :items '(d e f)))))) (taxy-fill :eval (taxy-fill '(0 1 2 3) (make-taxy :name "Numbers" :taxys (list (make-taxy :name "Odd" :predicate #'cl-oddp) (make-taxy :name "Even" :predicate #'cl-evenp))))) (taxy-make-take-function :eval (taxy-make-take-function '(first-char second-char) '((first-char (lambda (s) (substring s nil 1))) (second-char (lambda (s) (substring s 1 2)))))) (taxy-mapc-taxys :eval (taxy-mapc-taxys (lambda (taxy) (setf (taxy-name taxy) (upcase (taxy-name taxy)))) (make-taxy :name "a" :taxys (list (make-taxy :name "b"))))) (taxy-mapcar-items :eval (taxy-mapcar-items #'upcase (make-taxy :items (list "a" "b" "c") :taxys (list (make-taxy :items (list "d" "e" "f")))))) (taxy-plain :eval (taxy-plain (taxy-fill '(0 1 2 3) (make-taxy :name "Numbers" :taxys (list (make-taxy :name "Odd" :predicate #'cl-oddp) (make-taxy :name "Even" :predicate #'cl-evenp)))))) (taxy-size :eval (taxy-size (make-taxy :items '(a b c) :taxys (list (make-taxy :items '(d e f)))))) (taxy-sort-items :eval (taxy-sort-items #'string< #'identity (make-taxy :items (list "c" "b" "a") :taxys (list (make-taxy :items (list "f" "e" "d")))))) (taxy-sort-taxys :eval (taxy-sort-taxys #'string< #'taxy-name (make-taxy :name "Taxy" :taxys (list (make-taxy :name "Beta") (make-taxy :name "Alpha"))))))] 3] provide taxy] 3)