HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/emacs-lisp/
Current File : //usr/share/emacs/26.1/lisp/emacs-lisp/generator.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'cl-lib)
(defvar cps--bindings nil)
(defvar cps--states nil)
(defvar cps--value-symbol nil)
(defvar cps--state-symbol nil)
(defvar cps--cleanup-table-symbol nil)
(defvar cps--cleanup-function nil)
#@23 

(fn FMT &rest ARGS)
(defalias 'cps--gensym '(macro . #[385 "\300\301BBD\207" [gensym format] 6 (#$ . 614)]))
#@84 List of transformer functions to apply to atomic forms we
evaluate in CPS context.
(defvar cps--dynamic-wrappers '(identity) (#$ . 733))
#@81 List of special forms that we treat just like ordinary
  function applications.
(defconst cps-standard-special-forms '(setq setq-default throw interactive) (#$ . 876))
#@24 

(fn FUNC &rest ARGS)
(defalias 'cps--trace-funcall #[385 "\300\301#\210\302\"\300\303#\210\211\207" [message "%S: args=%S" apply "%S: result=%S"] 7 (#$ . 1050)])
#@23 

(fn FMT &rest ARGS)
(defalias 'cps--trace #[385 "\300\301\302\303P#!\207" [princ apply format "\n"] 7 (#$ . 1226)])
#@71 Non-nil if and only if DEFINITION is a special form.

(fn DEFINITION)
(defalias 'cps--special-form-p #[257 "\2119\203\300!\203\301!\262\302!\205\303!A\304=\207" [fboundp indirect-function subrp subr-arity unevalled] 3 (#$ . 1352)])
#@17 

(fn FUNCTION)
(defalias 'cps--define-unsupported '(macro . #[257 "\300\301\302\303\"!\304\305EE\207" [defun intern format "cps--transform-%s" error "%s not supported in generators"] 6 (#$ . 1601)]))
#@534 Continue generating CPS code with an atomic-form wrapper
to the current stack of such wrappers.  WRAPPER is a function that
takes a form and returns a wrapped form.

Whenever we generate an atomic form (i.e., a form that can't
iter-yield), we first (before actually inserting that form in our
generated code) pass that form through all the transformer
functions.  We use this facility to wrap forms that can transfer
control flow non-locally in goo that diverts this control flow to
the CPS state machinery.

(fn WRAPPER &rest BODY)
(defalias 'cps--with-value-wrapper '(macro . #[385 "\300\301\302\303BBDCBB\207" [let cps--dynamic-wrappers cons (cps--dynamic-wrappers)] 7 (#$ . 1811)]))
(byte-code "\300\301\302\303#\300\207" [function-put cps--with-value-wrapper lisp-indent-function 1] 4)
#@31 

(fn DYNAMIC-VAR STATIC-VAR)
(defalias 'cps--make-dynamic-binding-wrapper #[514 "\204\301\300!\210\302\303\304\305\306\"\307\"\310\311%\207" [lexical-binding cl--assertion-failed make-byte-code 257 "\302\300\301DC\303\304\301\300EEE\207" vconcat vector [let unwind-protect setf] 8 "\n\n(fn FORM)"] 9 (#$ . 2610)])
#@136 Evaluate BODY such that generated atomic evaluations run with
DYNAMIC-VAR bound to STATIC-VAR.

(fn DYNAMIC-VAR STATIC-VAR &rest BODY)
(defalias 'cps--with-dynamic-binding '(macro . #[642 "\300\301EBB\207" [cps--with-value-wrapper cps--make-dynamic-binding-wrapper] 7 (#$ . 2940)]))
(byte-code "\300\301\302\303#\300\207" [function-put cps--with-dynamic-binding lisp-indent-function 2] 4)
#@84 Create a new CPS state with body BODY and return the state's name.

(fn KIND BODY)
(defalias 'cps--add-state #[514 "\303\304\305\"!\211E	B\211\nB\211\207" [cps--cleanup-function cps--states cps--bindings gensym format "cps-state-%s-"] 6 (#$ . 3338)])
(byte-code "\300\301\302\303#\300\207" [function-put cps--add-state lisp-indent-function 1] 4)
#@22 

(fn ORIGINAL-NAME)
(defalias 'cps--add-binding #[257 "\301\302\211\303\"!!B\211@\207" [cps--bindings gensym format "cps-binding-%s-"] 6 (#$ . 3695)])
#@13 

(fn FORM)
(defalias 'cps--find-special-form-handler #[257 "\300\301\242\"\302!\303!\205\211\207" [format "cps--transform-%s" intern-soft fboundp] 5 (#$ . 3856)])
#@67 When t, always rewrite forms into cps even when they
don't yield.
(defvar cps-inhibit-atomic-optimization nil (#$ . 4031))
#@56 Return whether the given form never yields.

(fn FORM)
(defalias 'cps--atomic-p #[257 "?\205\303\304\305\306E\n\"\210	)?\207" [cps-inhibit-atomic-optimization cps--yield-seen macroexpand-all-environment nil macroexpand-all cl-macrolet ((cps-internal-yield (_val) (setf cps--yield-seen t)))] 5 (#$ . 4160)])
#@24 

(fn FORM NEXT-STATE)
(defalias 'cps--make-atomic-state #[514 "\304\305EE	\306:\203@\262\211!\262A\262\202	\266\306\307\310\305E\")\207" [cps--state-symbol cps--dynamic-wrappers cps--cleanup-function cps--value-symbol prog1 setf nil cps--add-state "atom"] 8 (#$ . 4478)])
#@24 

(fn FORM NEXT-STATE)
(defalias 'cps--transform-1 #[514 "\306\307\310!\204
:\204\311\"\202@\211\312\267\202~A\211\204*\313\314\"\202\357\211:\203a\211@A\211\204B\313	\"\262\202\\\211\313\315\316\317\320	\313\321B\"FE\"\"\266\202\266\202\202\357\322!\262\203\267\211\n>?\262\203|\"\202\357\211\211\323\314:\203\231@\262:?\211\262\203\231A\262\202\200\211\205\236\314\266\203?\262\203\256#\202\357\311\"\202\357\211\211\323\314:\203\324@\262:?\211\262\203\324A\262\202\273\211\205\331\314\266\203?\262\203\351#\202\357\311\"\262\202A\211:\203+\211@A\211\324\325!\313\315\326\317	\327	\"B\313\330\fB\")\257\"\"\262\266\202\266\202\202\271\322!\262\203\201\211\n>?\262\203F\"\202\271\211\211\323\314:\203c@\262:?\211\262\203cA\262\202J\211\205h\314\266\203?\262\203x#\202\271\311\"\202\271\211\211\323\314:\203\236@\262:?\211\262\203\236A\262\202\205\211\205\243\314\266\203?\262\203\263#\202\271\311\"\262\202A\211\204\314\313\323\"\2024\211:\203\246\211@\211:\203\211@A\211\204\365A\211\313\331\332BE\f\"\266\202\262\202\fA\211\313\320\330B\332BF
\"\266\203\262\266\202\202\241\322!\262\203h\211\n>?\262\203,\"\202\241\211\323\314:\203I@\262:?\211\262\203IA\262\2020\211\205N\314\266\203?\262\203_#\202\241\311\"\202\241\211\323\314:\203\205@\262:?\211\262\203\205A\262\202l\211\205\212\314\266\203?\262\203\233#\202\241\311\"\262\2024\322!\262\203\374\211\n>?\262\203\301\"\2024\211\211\323\314:\203\336@\262:?\211\262\203\336A\262\202\305\211\205\343\314\266\203?\262\203\363#\2024\311\"\2024\211\211\323\314:\203@\262:?\211\262\203A\262\202\211\205\314\266\203?\262\203.#\2024\311\"\262\202A\211:\203\375\211@A\211:\203f\211@A\211\333
#B\313
\")\266\203\266\202\202\370\322!\262\203\276\211\n>?\262\203\201\"\202\370\211\323\314:\203\236@\262:?\211\262\203\236A\262\202\205\211\205\243\314\266\203?\262\203\265#\202\370\311\"\202\370\211\323\314:\203\333@\262:?\211\262\203\333A\262\202\302\211\205\340\314\266\203?\262\203\362#\202\370\311\"\266\202\202\213\322!\262\203S\211\n>?\262\203\"\202\213\211\211\323\314:\2035@\262:?\211\262\2035A\262\202\211\205:\314\266\203?\262\203J#\202\213\311\"\202\213\211\211\323\314:\203p@\262:?\211\262\203pA\262\202W\211\205u\314\266\203?\262\203\205#\202\213\311\"\262\202A\211:\203_\211@A\211:\203\310\211@A\211\313\315\334\317\320	\313\n\"\313\330
B\"FE\"\"\266\203\266\202\202Z\322!\262\203 \211\n>?\262\203\343\"\202Z\211\323\314:\203@\262:?\211\262\203A\262\202\347\211\205\314\266\203?\262\203#\202Z\311\"\202Z\211\323\314:\203=@\262:?\211\262\203=A\262\202$\211\205B\314\266\203?\262\203T#\202Z\311\"\266\202\202\355\322!\262\203\265\211\n>?\262\203z\"\202\355\211\211\323\314:\203\227@\262:?\211\262\203\227A\262\202~\211\205\234\314\266\203?\262\203\254#\202\355\311\"\202\355\211\211\323\314:\203\322@\262:?\211\262\203\322A\262\202\271\211\205\327\314\266\203?\262\203\347#\202\355\311\"\262\202A\211\204\313\323\"\202\276\211:\2030\211@A\211\204\313\n\"\266\202\202+\211	\313\313\335B
\"\"\266\203\266\202\202\276\322!\262\203\206\211\n>?\262\203K\"\202\276\211\211\323\314:\203h@\262:?\211\262\203hA\262\202O\211\205m\314\266\203?\262\203}#\202\276\311\"\202\276\211\211\323\314:\203\243@\262:?\211\262\203\243A\262\202\212\211\205\250\314\266\203?\262\203\270#\202\276\311\"\262\202A\211\204\321\313\323\"\202\217\211:\203\211@A\211\204\353\313\n\"\266\202\202\374\211	\313\313\330B
\"\"\266\203\266\202\202\217\322!\262\203W\211\n>?\262\203\"\202\217\211\211\323\314:\2039@\262:?\211\262\2039A\262\202 \211\205>\314\266\203?\262\203N#\202\217\311\"\202\217\211\211\323\314:\203t@\262:?\211\262\203tA\262\202[\211\205y\314\266\203?\262\203\211#\202\217\311\"\262\202A\211:\203\207\211@A\211\211\323\211:\203\304@\2629\203\270\323D\202\271B\262A\262\202\244\211\237\266\203\211\323\211\211\211:\203\360@\262\211A\262\242\262@\262\324!B\262A\262\202\315\211\237\266\205\313\336\337\323\211\211\323\211:\2033@\262\211A\262\242\262@\262:\2033@\262DB\262A\262A\262\202\377\211\237\266\207\323\211\211\323\211:\203r@\262\211A\262\242\262@\262:\203r@\262DB\262A\262A\262\202?\211\237\266\207\"BB\f\"\266\202\266\202\266\202\202	\322!\262\203\335\211\n>?\262\203\242\"\202	\211\211\323\314:\203\277@\262:?\211\262\203\277A\262\202\246\211\205\304\314\266\203?\262\203\324#\202	\311\"\202	\211\211\323\314:\203\372@\262:?\211\262\203\372A\262\202\341\211\205\377\314\266\203?\262\203	#\202	\311\"\262\202A\211:\2035\n\211@\211\2048	A\211\313\330B	\"\262\262\2020\n\211:\203\240	\211@AA\211\2119\203O	\211\202Q	\211@\243@\324!\313\315\340\317	\f\203j	\341!\203\202	\342\n\"B\313\336BB\")\202\223	\313\343\f\336BB#\"\257\"\"\266\203\266\203\266\203\2020\n\322!\262\203\367	\211\n>?\262\203\273	\"\2020\n\211\323\314:\203\330	@\262:?\211\262\203\330	A\262\202\277	\211\205\335	\314\266\203?\262\203\356	#\2020\n\311\"\2020\n\211\323\314:\203\n@\262:?\211\262\203\nA\262\202\373	\211\205\n\314\266\203?\262\203*\n#\2020\n\311\"\262\202\303\n\322!\262\203\213\n\211\n>?\262\203P\n\"\202\303\n\211\211\323\314:\203m\n@\262:?\211\262\203m\nA\262\202T\n\211\205r\n\314\266\203?\262\203\202\n#\202\303\n\311\"\202\303\n\211\211\323\314:\203\250\n@\262:?\211\262\203\250\nA\262\202\217\n\211\205\255\n\314\266\203?\262\203\275\n#\202\303\n\311\"\262\202A\211\204\326\n\313\323\"\202\233\211:\203
\211@A\211\204\356\n\313	\"\262\202\211\313\315\344\317\320	\313\331\fB\"FE\"\"\266\202\266\202\202\233\322!\262\203c\211\n>?\262\203(\"\202\233\211\211\323\314:\203E@\262:?\211\262\203EA\262\202,\211\205J\314\266\203?\262\203Z#\202\233\311\"\202\233\211\211\323\314:\203\200@\262:?\211\262\203\200A\262\202g\211\205\205\314\266\203?\262\203\225#\202\233\311\"\262\202A\211:\203\346\211@A\211\204\272\313	\"\262\202\341\211\313\324\345!\315\346\317	\313\330\fB\315\347\317	\f\257\"\"\257\"\262\"\266\202\266\202\202t\f\322!\262\203<\f\211\n>?\262\203\f\"\202t\f\211\211\323\314:\203\f@\262:?\211\262\203\fA\262\202\f\211\205#\f\314\266\203?\262\2033\f#\202t\f\311\"\202t\f\211\211\323\314:\203Y\f@\262:?\211\262\203Y\fA\262\202@\f\211\205^\f\314\266\203?\262\203n\f#\202t\f\311\"\262\202A\211:\203;
\211@A\211:\203\244\f\211@A\211\313\330\350BBE
\"\266\203\266\202\2026
\322!\262\203\374\f\211\n>?\262\203\277\f\"\2026
\211\323\314:\203\334\f@\262:?\211\262\203\334\fA\262\202\303\f\211\205\341\f\314\266\203?\262\203\363\f#\2026
\311\"\2026
\211\323\314:\203
@\262:?\211\262\203
A\262\202
\211\205
\314\266\203?\262\2030
#\2026
\311\"\266\202\202\311
\322!\262\203\221
\211\n>?\262\203V
\"\202\311
\211\211\323\314:\203s
@\262:?\211\262\203s
A\262\202Z
\211\205x
\314\266\203?\262\203\210
#\202\311
\311\"\202\311
\211\211\323\314:\203\256
@\262:?\211\262\203\256
A\262\202\225
\211\205\263
\314\266\203?\262\203\303
#\202\311
\311\"\262\202A\211:\203\211@A\211
\204\345
\351\352\353!!\315\354\330\337\317EC\"B\"9\3239\315\355\330\205\356DBB\")9\357!B\313\"*\266\202\266\202\266\202\202\254\322!\262\203t\211\n>?\262\2039\"\202\254\211\211\323\314:\203V@\262:?\211\262\203VA\262\202=\211\205[\314\266\203?\262\203k#\202\254\311\"\202\254\211\211\323\314:\203\221@\262:?\211\262\203\221A\262\202x\211\205\226\314\266\203?\262\203\246#\202\254\311\"\262\202A\211:\203\363\211@A\211\351\352\360!!\313\"\330\317\320	\313\330\nB\"FED9E:B:;B;\266\203\266\202\266\202\202\201\322!\262\203I\211\n>?\262\203\"\202\201\211\211\323\314:\203+@\262:?\211\262\203+A\262\202\211\2050\314\266\203?\262\203@#\202\201\311\"\202\201\211\211\323\314:\203f@\262:?\211\262\203fA\262\202M\211\205k\314\266\203?\262\203{#\202\201\311\"\262\202A\211:\203?\211@A\211\204\250\315\361\317	\362D
\257\"\262\202:\322!\262\203\211\n>?\262\203\303\"\202:\211\323\314:\203\340@\262:?\211\262\203\340A\262\202\307\211\205\345\314\266\203?\262\203\367#\202:\311\"\202:\211\323\314:\203@\262:?\211\262\203A\262\202\211\205\"\314\266\203?\262\2034#\202:\311\"\266\202\202\315\322!\262\203\225\211\n>?\262\203Z\"\202\315\211\211\323\314:\203w@\262:?\211\262\203wA\262\202^\211\205|\314\266\203?\262\203\214#\202\315\311\"\202\315\211\211\323\314:\203\262@\262:?\211\262\203\262A\262\202\231\211\205\267\314\266\203?\262\203\307#\202\315\311\"\262\202A\211:\203\213\211@A\211\204\364\315\363\317	\364D
\257\"\262\202\206\322!\262\203L\211\n>?\262\203\"\202\206\211\323\314:\203,@\262:?\211\262\203,A\262\202\211\2051\314\266\203?\262\203C#\202\206\311\"\202\206\211\323\314:\203i@\262:?\211\262\203iA\262\202P\211\205n\314\266\203?\262\203\200#\202\206\311\"\266\202\202\322!\262\203\341\211\n>?\262\203\246\"\202\211\211\323\314:\203\303@\262:?\211\262\203\303A\262\202\252\211\205\310\314\266\203?\262\203\330#\202\311\"\202\211\211\323\314:\203\376@\262:?\211\262\203\376A\262\202\345\211\205\314\266\203?\262\203#\202\311\"\262\202A\211:\203\353\211@A\211\204T\313\315\365\330\3179\203E\315\366\317E\"\202GE\367\370	EE\"\"\262\202\346\322!\262\203\254\211\n>?\262\203o\"\202\346\211\323\314:\203\214@\262:?\211\262\203\214A\262\202s\211\205\221\314\266\203?\262\203\243#\202\346\311\"\202\346\211\323\314:\203\311@\262:?\211\262\203\311A\262\202\260\211\205\316\314\266\203?\262\203\340#\202\346\311\"\266\202\202y\322!\262\203A\211\n>?\262\203\"\202y\211\211\323\314:\203#@\262:?\211\262\203#A\262\202\n\211\205(\314\266\203?\262\2038#\202y\311\"\202y\211\211\323\314:\203^@\262:?\211\262\203^A\262\202E\211\205c\314\266\203?\262\203s#\202y\311\"\262\202A\322!\262\203\326\211\n>?\262\203\233\"\202\211\211\323\314:\203\270@\262:?\211\262\203\270A\262\202\237\211\205\275\314\266\203?\262\203\315#\202\311\"\202\211\211\323\314:\203\363@\262:?\211\262\203\363A\262\202\332\211\205\370\314\266\203?\262\203#\202\311\"\262\262\207" [cps--state-symbol cps--value-symbol cps-standard-special-forms cps--dynamic-wrappers lexical-binding cps--cleanup-table-symbol #[514 "\300\301\"\207" [error "special form %S incorrect or not supported"] 5 "\n\n(fn FORM NAME)"] #[771 "\300\211:\203%@\262:\204\202\301\302\303!!B\262A\262\202\211\237\266\203\304\305\300\300\211:\203Z@\262:\203Z@\262=\204ODB\262A\262A\262\2020\211\237\266\205BE\"\207" [nil gensym format "cps-argument-" cps--transform-1 let*] 13 "\n\n(fn NEXT-STATE ARGUMENTS FUNCTION)"] cps--atomic-p cps--make-atomic-state #s(hash-table size 17 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (and 28 catch 244 cond 446 condition-case 825 if 1168 inline 1522 progn 1731 let 1940 let* 2330 or 2760 prog1 2976 prog2 3193 unwind-protect 3534 while 3761 quote 3974 function 4306 cps-internal-yield 4638)) cps--transform-1 t cps--add-state "and" setf if and cps--special-form-p nil cps--add-binding "catch-tag" "cps-update-tag" cps--make-catch-wrapper progn or cond cps--make-condition-wrapper "if" inline let* append "let*" special-variable-p cps--make-dynamic-binding-wrapper cps--replace-variable-references "or" "prog1-temp" "prog1" "prog1inner" prog1 gensym format "cps-cleanup-table-" "unwind" "cleanup" funcall cps--make-unwind-wrapper "cps-state-while-" "quote" quote "function" function "iter-yield" "after-yield" throw 'cps--yield cps--cleanup-function cps--states cps--bindings] 31 (#$ . 4774)])
#@31 

(fn TAG-BINDING NEXT-STATE)
(defalias 'cps--make-catch-wrapper #[514 "\300\301\302\303\304\"\305\"\306\307%\207" [make-byte-code 257 "\303\304\305!!\306C\307\310\300\307\311\312BBEE\313\311\n\301EEEE\207" vconcat vector [cps--state-symbol gensym format "cps-normal-exit-from-catch-" let prog1 catch setf (t) unless] 12 "\n\n(fn FORM)"] 9 (#$ . 17766)])
#@32 

(fn VAR NEXT-STATE HANDLERS)
(defalias 'cps--make-condition-wrapper #[771 "\300\301!\302\303\304!!\305\211\211:\2038@\262\211A\262\242\262\306\307	\310B#\n\"BB\262A\262\202\f\211\237\266\204\311\312\313\314\315#\316\"\317\320%\207" [cps--add-binding "condition-case-error" gensym format "cps-lexical-error-" nil cps--transform-1 cps--replace-variable-references progn make-byte-code 257 "\304\301\302\305\211\211:\203-@\262\211A\262\242\262\306\300\301\257DB\262A\262\202\211\237\266\204BBB\207" vconcat vector [cps--state-symbol condition-case nil setf] 14 "\n\n(fn FORM)"] 16 (#$ . 18137)])
#@161 Replace all non-shadowed references to VAR with NEW-VAR in FORM.
This routine does not modify FORM. Instead, it returns a
modified copy.

(fn VAR NEW-VAR FORM)
(defalias 'cps--replace-variable-references #[771 "\301\302DCE\"\207" [macroexpand-all-environment macroexpand-all cl-symbol-macrolet] 7 (#$ . 18784)])
#@21 

(fn UNWIND-FORMS)
(defalias 'cps--make-unwind-wrapper #[257 "\204\301\300!\210\302\303\304\305\306!\307\"\310\311%\207" [lexical-binding cl--assertion-failed make-byte-code 257 "\301\302\303!!\304C\305\306\307\310BBE\311\300BBEE\207" vconcat vector [gensym format "cps-normal-exit-from-unwind-" let unwind-protect prog1 setf (t) unless] 10 "\n\n(fn FORM)"] 7 (#$ . 19106)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put iter-end-of-sequence error-conditions (iter-end-of-sequence) error-message "iteration terminated"] 4)
#@23 

(fn TERMINAL-STATE)
(defalias 'cps--make-close-iterator-form #[257 "\203\303\304\305\306	EDDC\307	\n\310BBBB\311BBB\207\307	\n\312BBBB\207" [cps--cleanup-table-symbol cps--state-symbol cps--value-symbol let cleanup cdr assq setf (nil) ((when cleanup (funcall cleanup))) (nil)] 8 (#$ . 19660)])
#@13 

(fn BODY)
(defalias 'cps-generate-evaluator #[257 "\306\211\306\307\310\311!!\307\310\312!!\306\313\314\315\316E\"\317\320\321\322BB3\"\"
\2054
\2054\307\310\323!!\324\325\fD
\205?
C\205EC	\237$\325\237\306\211\211\211\211:\203\230@\262\211A\262\242\262\211A\262\242\262@\262\326\327\306EEB\262\203\221
\204\205\330\305!\210\331\332E
EB\262A\262\202P\211\237\266\206\326\fE\324\333\327\334\335\325\205\271\336\326
\337BBD\340
DD\341\342!D\343\326\344BB\324\345\346\347\350\351\352\353\354\fDEE\355BB\356\357\342!EEEE\360BB\"BEDC\205\355\361\362BBBD\".BB\207" [cps--states cps--bindings cps--cleanup-function cps--value-symbol cps--state-symbol cps--cleanup-table-symbol nil gensym format "cps-current-value-" "cps-current-state-" cps--add-state "terminal" signal 'iter-end-of-sequence cps--transform-1 macroexpand-all cl-macrolet ((iter-yield (value) `(cps-internal-yield ,value))) "cps-iterator-finalizer-" let append setf lambda cl--assertion-failed push cons iterator (op value) cond (eq op :stash-finalizer) (value) (eq op :get-finalizer) (eq op :close) cps--make-close-iterator-form (eq op :next) (value) ((yielded nil)) unwind-protect prog1 catch 'cps--yield while t funcall ((setf yielded t)) unless yielded ((t (error "unknown iterator operation %S" op))) (funcall iterator :stash-finalizer (make-finalizer (lambda nil (iter-close iterator)))) (iterator) macroexpand-all-environment] 30 (#$ . 19968)])
#@197 When used inside a generator, yield control to caller.
The caller of `iter-next' receives VALUE, and the next call to
`iter-next' resumes execution at the previous
`iter-yield' point.

(fn VALUE)
(defalias 'iter-yield #[257 "\300\301!\207" [error "`iter-yield' used outside a generator"] 3 (#$ . 21449)])
#@329 When used inside a generator function, delegate to a sub-iterator.
The values that the sub-iterator yields are passed directly to
the caller, and values supplied to `iter-next' are sent to the
sub-iterator.  `iter-yield-from' evaluates to the value that the
sub-iterator function returns via `iter-end-of-sequence'.

(fn VALUE)
(defalias 'iter-yield-from '(macro . #[257 "\300\301\302!!\300\301\303!!\304DC\305\306\304\307\310\311\312\313\314\315
\316BBDEEE\317\320	DDF\321DEE\207" [gensym format "yield-from-result" "yield-from-value" let unwind-protect condition-case ((vs nil)) while t setf vs iter-yield iter-next (vs) iter-end-of-sequence cdr iter-close] 18 (#$ . 21761)]))
#@248 Creates a generator NAME.
When called as a function, NAME returns an iterator value that
encapsulates the state of a computation that produces a sequence
of values.  Callers can retrieve each value using `iter-next'.

(fn NAME ARGLIST &rest BODY)
(defalias 'iter-defun '(macro . #[642 "\204\301\300!\210\302!\211@A\303\304\305!C\"BBB\207" [lexical-binding cl--assertion-failed macroexp-parse-body defun append cps-generate-evaluator] 13 (#$ . 22453)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\300\301\307\310#\300\207" [function-put iter-defun lisp-indent-function defun put edebug-form-spec (&define name lambda-list lambda-doc def-body) doc-string-elt 3] 5)
#@113 Return a lambda generator.
`iter-lambda' is to `iter-defun' as `lambda' is to `defun'.

(fn ARGLIST &rest BODY)
(defalias 'iter-lambda '(macro . #[385 "\204\301\300!\210\302\303!E\207" [lexical-binding cl--assertion-failed lambda cps-generate-evaluator] 6 (#$ . 23143)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put iter-lambda lisp-indent-function defun put edebug-form-spec (&define lambda-list lambda-doc def-body)] 5)
#@261 Extract a value from an iterator.
YIELD-RESULT becomes the return value of `iter-yield' in the
context of the generator.

This routine raises the `iter-end-of-sequence' condition if the
iterator cannot supply more values.

(fn ITERATOR &optional YIELD-RESULT)
(defalias 'iter-next #[513 "\300\"\207" [:next] 5 (#$ . 23599)])
#@121 Terminate an iterator early.
Run any unwind-protect handlers in scope at the point  ITERATOR
is blocked.

(fn ITERATOR)
(defalias 'iter-close #[257 "\211\300\301\"\207" [:close nil] 4 (#$ . 23933)])
#@183 Loop over values from an iterator.
Evaluate BODY with VAR bound to each value from ITERATOR.
Return the value with which ITERATOR finished iteration.

(fn (VAR ITERATOR) &rest BODY)
(defalias 'iter-do '(macro . #[128 "\211\203
\211A\262\242\202\300\301\302GD\"\211G\303U\203$\211A\262\242\202+\300\301\302GD\"@\304\305\306!!\304\305\307!!\304\305\310!!\304\305\311!!\312\313B	DF\314\315D\316\317\f\320\nDE\321\317	\322
DE\317
\323BBEF\324	BBFF\266\204\207" [signal wrong-number-of-arguments iter-do 2 gensym format "iter-do-iterator-done" "iter-do-condition" "iter-do-iterator" "iter-do-result" let (nil) while not condition-case setf iter-next iter-end-of-sequence cdr (t) unless] 20 (#$ . 24139)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put iter-do lisp-indent-function 1 put edebug-form-spec ((symbolp form) body)] 5)
#@17 

(fn CONSCELL)
(defalias 'cps--advance-for '(macro . #[257 "\300\301\302\303\304\305DDEE\306BBB\207" [condition-case nil progn setcar iter-next cdr ((iter-end-of-sequence nil))] 9 (#$ . 25022)]))
#@17 

(fn ITERATOR)
(defalias 'cps--initialize-for '(macro . #[257 "\300\301\302!!\303\304\305EDC\306DE\207" [gensym format "cps--loop-temp" let cons nil cps--advance-for] 7 (#$ . 25229)]))
#@42 Support `iter-by' in `loop'.  

(fn VAR)
(defalias 'cps--handle-loop-for #[257 "\211A\242\301\302\303\304D\305BBBB\"\211\207" [cl--loop-args append for in cps--initialize-for (by 'cps--advance-for)] 8 (#$ . 25424)])
(byte-code "\300\301\302\303#\210\304\305\306\"\210\307\310!\207" [put iter-by cl-loop-for-handler cps--handle-loop-for eval-after-load elisp-mode #[0 "\300\301\302\"\207" [font-lock-add-keywords emacs-lisp-mode (("(\\(iter-defun\\)\\_>\\s *\\(\\(?:\\sw\\|\\s_\\)+\\)?" (1 font-lock-keyword-face nil t) (2 font-lock-function-name-face nil t)) ("(\\(iter-\\(?:next\\|lambda\\|yield\\|yield-from\\)\\)\\_>" (1 font-lock-keyword-face nil t)))] 3] provide generator] 4)