;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\207" [require eieio jupiter-operation defalias jupiter-compound-p eieio-make-class-predicate jupiter-compound jupiter-compound--eieio-childp eieio-make-child-predicate jupiter-compound-child-p make-obsolete "use (cl-typep ... \\='jupiter-compound) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (jupiter-operation) ((children :initarg :children :type list :initform nil :documentation "")) (:documentation "Objects of this class are operations, which are composed of a\nnumber of child operation.")] 6) #@73 Create a new object of class type `jupiter-compound'. (fn &rest SLOTS) (defalias 'jupiter-compound #[128 "\300\301\302#\207" [apply make-instance jupiter-compound] 5 (#$ . 1106)]) (byte-code "\300\301\302\303#\300\207" [function-put jupiter-compound compiler-macro jupiter-compound--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'jupiter-compound--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1413)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\312\313%\210\314\315!\207" [cl-generic-define-method rudel-apply nil ((this jupiter-compound) object) #[514 "\300\301\"@\300\301\"A\2054\302\"\210\211\211\203(\211@\303\"\262A\266\202\202\210\211A\262\242\262\202 \266\202\207" [slot-value children rudel-apply jupiter-transform] 10 "Apply THIS to BUFFER by applying the child operation.\n\n(fn THIS OBJECT)"] jupiter-transform ((this jupiter-compound) other) #[514 "\300\301\"\211\203\211@\302\"\262A\266\202\202\210\207" [slot-value children jupiter-transform] 8 "Transform OTHER using the child operations of THIS.\n\n(fn THIS OTHER)"] object-print ((this jupiter-compound) &rest _strings) t #[642 "\300\301\302\303\"G\"\"\207" [format " children %d" slot-value children] 11 "Add number of children to string representation of THIS.\n\n(fn THIS &rest STRINGS)"] provide jupiter-compound] 6)