| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 69 74 65 72 32 2d 32 30 32 32 31 31 30 34 2e 31 39 33 38 2f 00 00 00 00 00 00 00 00 00 00 00 00 | iter2-20221104.1938/............ |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 30 33 36 00 20 35 00 00 00 | 0000000.00000000000.012036..5... |
| 00a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0200 | 69 74 65 72 32 2d 32 30 32 32 31 31 30 34 2e 31 39 33 38 2f 69 74 65 72 32 2e 65 6c 00 00 00 00 | iter2-20221104.1938/iter2.el.... |
| 0220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0280 | 30 31 35 37 37 30 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 32 33 00 20 30 00 00 00 | 0157704.00000000000.013423..0... |
| 02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0400 | 3b 3b 3b 20 69 74 65 72 32 2e 65 6c 20 2d 2d 2d 20 52 65 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | ;;;.iter2.el.---.Reimplementatio |
| 0420 | 6e 20 6f 66 20 45 6c 69 73 70 20 67 65 6e 65 72 61 74 6f 72 73 20 20 2d 2a 2d 20 6c 65 78 69 63 | n.of.Elisp.generators..-*-.lexic |
| 0440 | 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 3b 20 43 6f 70 79 72 69 67 68 74 | al-binding:.t.-*-..;;;.Copyright |
| 0460 | 20 28 43 29 20 32 30 31 37 2d 32 30 32 32 20 50 61 75 6c 20 50 6f 67 6f 6e 79 73 68 65 76 0a 0a | .(C).2017-2022.Paul.Pogonyshev.. |
| 0480 | 3b 3b 20 41 75 74 68 6f 72 3a 20 20 20 20 20 50 61 75 6c 20 50 6f 67 6f 6e 79 73 68 65 76 20 3c | ;;.Author:.....Paul.Pogonyshev.< |
| 04a0 | 70 6f 67 6f 6e 79 73 68 65 76 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 4d 61 69 6e 74 61 69 | pogonyshev@gmail.com>.;;.Maintai |
| 04c0 | 6e 65 72 3a 20 50 61 75 6c 20 50 6f 67 6f 6e 79 73 68 65 76 20 3c 70 6f 67 6f 6e 79 73 68 65 76 | ner:.Paul.Pogonyshev.<pogonyshev |
| 04e0 | 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 20 20 20 31 2e 35 73 6e | @gmail.com>.;;.Version:....1.5sn |
| 0500 | 61 70 73 68 6f 74 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 20 20 65 6c 69 73 70 2c 20 65 78 74 | apshot.;;.Keywords:...elisp,.ext |
| 0520 | 65 6e 73 69 6f 6e 73 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 20 20 68 74 74 70 73 3a 2f 2f 67 | ensions.;;.Homepage:...https://g |
| 0540 | 69 74 68 75 62 2e 63 6f 6d 2f 64 6f 75 62 6c 65 70 2f 69 74 65 72 32 0a 3b 3b 20 50 61 63 6b 61 | ithub.com/doublep/iter2.;;.Packa |
| 0560 | 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 29 0a 0a 3b | ge-Requires:.((emacs."25.1"))..; |
| 0580 | 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b | ;.This.program.is.free.software; |
| 05a0 | 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a | .you.can.redistribute.it.and/or. |
| 05c0 | 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 | ;;.modify.it.under.the.terms.of. |
| 05e0 | 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 | the.GNU.General.Public.License.a |
| 0600 | 73 0a 3b 3b 20 70 75 62 6c 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 | s.;;.published.by.the.Free.Softw |
| 0620 | 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 | are.Foundation,.either.version.3 |
| 0640 | 20 6f 66 0a 3b 3b 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 20 28 61 74 20 79 6f 75 72 20 | .of.;;.the.License,.or.(at.your. |
| 0660 | 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 | option).any.later.version...;;.T |
| 0680 | 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 | his.program.is.distributed.in.th |
| 06a0 | 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b | e.hope.that.it.will.be.useful,.; |
| 06c0 | 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 | ;.but.WITHOUT.ANY.WARRANTY;.with |
| 06e0 | 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 | out.even.the.implied.warranty.of |
| 0700 | 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 | .;;.MERCHANTABILITY.or.FITNESS.F |
| 0720 | 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 | OR.A.PARTICULAR.PURPOSE...See.th |
| 0740 | 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 | e.;;.GNU.General.Public.License. |
| 0760 | 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 3b 3b 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 | for.more.details..;;.;;.You.shou |
| 0780 | 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 | ld.have.received.a.copy.of.the.G |
| 07a0 | 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f | NU.General.Public.License.;;.alo |
| 07c0 | 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 | ng.with.this.program...If.not,.s |
| 07e0 | 65 65 20 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2e 0a | ee.http://www.gnu.org/licenses.. |
| 0800 | 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 46 75 6c 6c 79 20 63 6f 6d 70 | ..;;;.Commentary:..;;.Fully.comp |
| 0820 | 61 74 69 62 6c 65 20 66 61 73 74 20 72 65 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 | atible.fast.reimplementation.of. |
| 0840 | 60 67 65 6e 65 72 61 74 6f 72 27 20 62 75 69 6c 74 2d 69 6e 0a 3b 3b 20 45 6d 61 63 73 20 70 61 | `generator'.built-in.;;.Emacs.pa |
| 0860 | 63 6b 61 67 65 2e 20 20 54 68 69 73 20 6c 69 62 72 61 72 79 20 70 72 6f 76 69 64 65 73 20 60 69 | ckage...This.library.provides.`i |
| 0880 | 74 65 72 32 2d 64 65 66 75 6e 60 20 61 6e 64 0a 3b 3b 20 60 69 74 65 72 32 2d 6c 61 6d 62 64 61 | ter2-defun`.and.;;.`iter2-lambda |
| 08a0 | 60 20 66 6f 72 6d 73 20 74 68 61 74 20 63 61 6e 20 62 65 20 75 73 65 64 20 69 6e 20 70 6c 61 63 | `.forms.that.can.be.used.in.plac |
| 08c0 | 65 20 6f 66 20 60 69 74 65 72 2d 64 65 66 75 6e 60 20 61 6e 64 0a 3b 3b 20 60 69 74 65 72 2d 6c | e.of.`iter-defun`.and.;;.`iter-l |
| 08e0 | 61 6d 62 64 61 60 2e 20 20 41 6c 6c 20 6f 74 68 65 72 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 | ambda`...All.other.functions.and |
| 0900 | 20 6d 61 63 72 6f 73 20 28 65 2e 67 2e 20 60 69 74 65 72 2d 79 69 65 6c 64 60 2c 0a 3b 3b 20 60 | .macros.(e.g..`iter-yield`,.;;.` |
| 0920 | 69 74 65 72 2d 6e 65 78 74 60 29 20 61 72 65 20 69 6e 74 65 6e 74 69 6f 6e 61 6c 6c 79 20 6e 6f | iter-next`).are.intentionally.no |
| 0940 | 74 20 64 75 70 6c 69 63 61 74 65 64 3a 20 6a 75 73 74 20 75 73 65 20 74 68 65 0a 3b 3b 20 6f 72 | t.duplicated:.just.use.the.;;.or |
| 0960 | 69 67 69 6e 61 6c 20 6f 6e 65 73 2e 0a 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 3b 3b 20 46 6f 72 | iginal.ones....;;;.Code:..;;.For |
| 0980 | 20 60 69 74 65 72 2d 79 69 65 6c 64 27 20 65 74 63 2e 20 66 72 6f 6d 20 74 68 65 20 6f 72 69 67 | .`iter-yield'.etc..from.the.orig |
| 09a0 | 69 6e 61 6c 20 60 67 65 6e 65 72 61 74 6f 72 27 20 70 61 63 6b 61 67 65 2e 0a 28 72 65 71 75 69 | inal.`generator'.package..(requi |
| 09c0 | 72 65 20 27 67 65 6e 65 72 61 74 6f 72 29 0a 28 72 65 71 75 69 72 65 20 27 6d 61 63 72 6f 65 78 | re.'generator).(require.'macroex |
| 09e0 | 70 29 0a 28 72 65 71 75 69 72 65 20 27 73 75 62 72 2d 78 29 0a 0a 28 72 65 71 75 69 72 65 20 27 | p).(require.'subr-x)..(require.' |
| 0a00 | 62 79 74 65 63 6f 6d 70 29 0a 3b 3b 20 53 65 65 20 74 68 65 20 75 73 61 67 65 20 62 65 6c 6f 77 | bytecomp).;;.See.the.usage.below |
| 0a20 | 2e 0a 28 64 65 66 76 61 72 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 62 6f 75 6e 64 2d 76 61 72 | ..(defvar.byte-compile-bound-var |
| 0a40 | 69 61 62 6c 65 73 29 0a 0a 0a 28 64 65 66 67 72 6f 75 70 20 69 74 65 72 32 20 6e 69 6c 0a 20 20 | iables)...(defgroup.iter2.nil... |
| 0a60 | 22 52 65 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 45 6c 69 73 70 20 67 65 6e 65 72 | "Reimplementation.of.Elisp.gener |
| 0a80 | 61 74 6f 72 73 22 0a 20 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 29 0a 0a 28 64 65 66 63 75 73 74 | ators"...:group.'lisp)..(defcust |
| 0aa0 | 6f 6d 20 69 74 65 72 32 2d 64 65 74 65 63 74 2d 6e 65 73 74 65 64 2d 6c 61 6d 62 64 61 2d 79 69 | om.iter2-detect-nested-lambda-yi |
| 0ac0 | 65 6c 64 73 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 65 74 65 63 74 20 6e | elds.nil..."If.non-nil,.detect.n |
| 0ae0 | 6f 6e 2d 77 6f 72 6b 69 6e 67 20 79 69 65 6c 64 73 20 69 6e 20 6e 65 73 74 65 64 20 6c 61 6d 62 | on-working.yields.in.nested.lamb |
| 0b00 | 64 61 73 2e 0a 44 75 65 20 74 6f 20 74 68 65 20 77 61 79 20 60 69 74 65 72 32 27 20 28 6f 72 20 | das..Due.to.the.way.`iter2'.(or. |
| 0b20 | 6f 72 69 67 69 6e 61 6c 20 60 67 65 6e 65 72 61 74 6f 72 27 2c 20 66 6f 72 20 74 68 61 74 20 6d | original.`generator',.for.that.m |
| 0b40 | 61 74 74 65 72 29 0a 77 6f 72 6b 73 2c 20 69 74 20 69 73 20 69 6d 70 6f 73 73 69 62 6c 65 20 74 | atter).works,.it.is.impossible.t |
| 0b60 | 6f 20 79 69 65 6c 64 20 66 72 6f 6d 20 6e 65 73 74 65 64 20 6c 61 6d 62 64 61 73 3a 20 6f 6e 6c | o.yield.from.nested.lambdas:.onl |
| 0b80 | 79 20 66 72 6f 6d 0a 74 68 65 20 6d 61 69 6e 20 66 75 6e 63 74 69 6f 6e 2e 20 20 53 75 63 68 20 | y.from.the.main.function...Such. |
| 0ba0 | 60 69 74 65 72 2d 79 69 65 6c 64 27 20 69 6e 76 6f 63 61 74 69 6f 6e 73 20 77 69 6c 6c 20 66 61 | `iter-yield'.invocations.will.fa |
| 0bc0 | 69 6c 20 61 74 0a 72 75 6e 74 69 6d 65 2e 0a 0a 57 68 65 6e 20 74 68 69 73 20 76 61 72 69 61 62 | il.at.runtime...When.this.variab |
| 0be0 | 6c 65 20 69 73 20 73 65 74 2c 20 60 69 74 65 72 32 27 20 74 72 69 65 73 20 74 6f 20 64 65 74 65 | le.is.set,.`iter2'.tries.to.dete |
| 0c00 | 63 74 20 73 75 63 68 20 70 72 6f 62 6c 65 6d 73 0a 64 75 72 69 6e 67 20 63 6f 6e 76 65 72 73 69 | ct.such.problems.during.conversi |
| 0c20 | 6f 6e 2e 20 20 48 6f 77 65 76 65 72 2c 20 74 68 69 73 20 74 65 73 74 20 69 73 20 6e 6f 74 20 65 | on...However,.this.test.is.not.e |
| 0c40 | 6e 61 62 6c 65 64 20 62 79 20 64 65 66 61 75 6c 74 0a 62 65 63 61 75 73 65 20 69 74 20 6d 69 67 | nabled.by.default.because.it.mig |
| 0c60 | 68 74 2c 20 69 6e 20 70 72 69 6e 63 69 70 6c 65 2c 20 67 69 76 65 20 66 61 6c 73 65 20 70 6f 73 | ht,.in.principle,.give.false.pos |
| 0c80 | 69 74 69 76 65 73 20 69 66 20 79 6f 75 20 6e 65 76 65 72 0a 63 61 6c 6c 20 73 61 69 64 20 6c 61 | itives.if.you.never.call.said.la |
| 0ca0 | 6d 62 64 61 2e 20 20 49 74 20 61 6c 73 6f 20 6e 65 67 61 74 69 76 65 6c 79 20 61 66 66 65 63 74 | mbda...It.also.negatively.affect |
| 0cc0 | 73 20 70 65 72 66 6f 72 6d 61 6e 63 65 2e 0a 0a 4f 6e 20 74 68 65 20 6f 74 68 65 72 20 68 61 6e | s.performance...On.the.other.han |
| 0ce0 | 64 2c 20 74 68 69 73 20 6d 69 67 68 74 20 62 65 20 75 73 65 66 75 6c 2c 20 61 73 20 69 74 20 69 | d,.this.might.be.useful,.as.it.i |
| 0d00 | 73 20 76 65 72 79 20 65 61 73 79 20 74 6f 0a 61 63 63 69 64 65 6e 74 61 6c 6c 79 20 74 72 79 20 | s.very.easy.to.accidentally.try. |
| 0d20 | 74 6f 20 79 69 65 6c 64 20 66 72 6f 6d 20 61 20 6d 61 63 72 6f 2d 67 65 6e 65 72 61 74 65 64 20 | to.yield.from.a.macro-generated. |
| 0d40 | 6c 61 6d 62 64 61 2c 20 65 2e 67 2e 3a 0a 0a 20 20 20 20 23 20 52 65 70 6c 61 63 65 20 65 61 63 | lambda,.e.g.:......#.Replace.eac |
| 0d60 | 68 20 65 6c 65 6d 65 6e 74 20 77 69 74 68 20 77 68 61 74 20 60 69 74 65 72 2d 79 69 65 6c 64 27 | h.element.with.what.`iter-yield' |
| 0d80 | 20 72 65 74 75 72 6e 73 2e 20 20 4e 6f 74 0a 20 20 20 20 23 20 6f 62 76 69 6f 75 73 20 74 68 61 | .returns...Not.....#.obvious.tha |
| 0da0 | 74 20 74 68 69 73 20 66 6f 72 6d 20 77 69 6c 6c 20 6e 6f 74 20 77 6f 72 6b 2e 0a 20 20 20 20 28 | t.this.form.will.not.work......( |
| 0dc0 | 73 65 74 66 20 6c 69 73 74 20 28 2d 2d 6d 61 70 20 28 69 74 65 72 2d 79 69 65 6c 64 20 69 74 29 | setf.list.(--map.(iter-yield.it) |
| 0de0 | 20 6c 69 73 74 29 29 22 0a 20 20 3a 74 79 70 65 20 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 | .list))"...:type..'boolean...:gr |
| 0e00 | 6f 75 70 20 27 69 74 65 72 32 29 0a 0a 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 67 65 6e 65 | oup.'iter2)...(defvar.iter2-gene |
| 0e20 | 72 61 74 65 2d 74 72 61 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 22 53 65 | rate-tracing-functions.nil..."Se |
| 0e40 | 74 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 20 74 6f 20 61 6c 77 61 79 73 20 67 65 6e 65 72 61 74 65 20 | t.to.non-nil.to.always.generate. |
| 0e60 | 74 72 61 63 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 4e 6f 72 6d 61 6c 6c 79 2c 20 6f 6e 6c | tracing.functions..Normally,.onl |
| 0e80 | 79 20 60 69 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 64 65 66 75 6e 27 20 61 6e 64 20 60 69 74 65 | y.`iter2-tracing-defun'.and.`ite |
| 0ea0 | 72 32 2d 74 72 61 63 69 6e 67 2d 6c 61 6d 62 64 61 27 0a 77 69 6c 6c 20 64 6f 20 74 68 69 73 2e | r2-tracing-lambda'.will.do.this. |
| 0ec0 | 20 20 42 75 74 20 69 66 20 74 68 69 73 20 66 6c 61 67 20 69 73 20 73 65 74 2c 20 60 69 74 65 72 | ..But.if.this.flag.is.set,.`iter |
| 0ee0 | 32 2d 64 65 66 75 6e 27 20 61 6e 64 0a 60 69 74 65 72 32 2d 6c 61 6d 62 64 61 27 20 77 69 6c 6c | 2-defun'.and.`iter2-lambda'.will |
| 0f00 | 20 62 65 68 61 76 65 20 73 69 6d 69 6c 61 72 6c 79 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 69 74 | .behave.similarly.")..(defvar.it |
| 0f20 | 65 72 32 2d 74 72 61 63 69 6e 67 2d 70 72 69 6e 74 2d 6c 65 76 65 6c 20 74 0a 20 20 22 56 61 6c | er2-tracing-print-level.t..."Val |
| 0f40 | 75 65 20 75 73 65 64 20 66 6f 72 20 60 70 72 69 6e 74 2d 6c 65 76 65 6c 27 20 77 68 65 6e 20 74 | ue.used.for.`print-level'.when.t |
| 0f60 | 72 61 63 69 6e 67 20 67 65 6e 65 72 61 74 6f 72 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 49 66 20 73 | racing.generator.functions..If.s |
| 0f80 | 65 74 20 74 6f 20 74 2c 20 76 61 6c 75 65 20 6f 66 20 60 70 72 69 6e 74 2d 6c 65 76 65 6c 27 20 | et.to.t,.value.of.`print-level'. |
| 0fa0 | 61 74 20 74 68 65 20 74 69 6d 65 20 6f 66 20 74 72 61 63 69 6e 67 20 69 73 0a 70 72 65 73 65 72 | at.the.time.of.tracing.is.preser |
| 0fc0 | 76 65 64 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 69 74 20 69 73 20 6f 76 65 72 77 72 69 74 74 | ved...Otherwise,.it.is.overwritt |
| 0fe0 | 65 6e 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 69 73 0a 76 61 72 69 61 62 | en.with.the.value.of.this.variab |
| 1000 | 6c 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 70 72 69 | le.")..(defvar.iter2-tracing-pri |
| 1020 | 6e 74 2d 6c 65 6e 67 74 68 20 74 0a 20 20 22 56 61 6c 75 65 20 75 73 65 64 20 66 6f 72 20 60 70 | nt-length.t..."Value.used.for.`p |
| 1040 | 72 69 6e 74 2d 6c 65 6e 67 74 68 27 20 77 68 65 6e 20 74 72 61 63 69 6e 67 20 67 65 6e 65 72 61 | rint-length'.when.tracing.genera |
| 1060 | 74 6f 72 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 49 66 20 73 65 74 20 74 6f 20 74 2c 20 76 61 6c 75 | tor.functions..If.set.to.t,.valu |
| 1080 | 65 20 6f 66 20 60 70 72 69 6e 74 2d 6c 65 6e 67 74 68 27 20 61 74 20 74 68 65 20 74 69 6d 65 20 | e.of.`print-length'.at.the.time. |
| 10a0 | 6f 66 20 74 72 61 63 69 6e 67 20 69 73 0a 70 72 65 73 65 72 76 65 64 2e 20 20 4f 74 68 65 72 77 | of.tracing.is.preserved...Otherw |
| 10c0 | 69 73 65 2c 20 69 74 20 69 73 20 6f 76 65 72 77 72 69 74 74 65 6e 20 77 69 74 68 20 74 68 65 20 | ise,.it.is.overwritten.with.the. |
| 10e0 | 76 61 6c 75 65 20 6f 66 20 74 68 69 73 0a 76 61 72 69 61 62 6c 65 2e 22 29 0a 0a 28 64 65 66 76 | value.of.this.variable.")..(defv |
| 1100 | 61 72 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 20 23 27 69 74 65 72 | ar.iter2-tracing-function.#'iter |
| 1120 | 32 2d 6c 6f 67 2d 6d 65 73 73 61 67 65 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 64 | 2-log-message..."Function.called |
| 1140 | 20 74 6f 20 74 72 61 63 65 20 69 74 65 72 61 74 6f 72 20 65 78 65 63 75 74 69 6f 6e 2e 0a 54 68 | .to.trace.iterator.execution..Th |
| 1160 | 65 20 66 75 6e 63 74 69 6f 6e 20 6d 75 73 74 20 61 63 63 65 70 74 20 74 68 65 20 73 61 6d 65 20 | e.function.must.accept.the.same. |
| 1180 | 61 72 67 75 6d 65 6e 74 73 20 61 73 20 62 75 69 6c 74 2d 69 6e 0a 60 6d 65 73 73 61 67 65 27 2c | arguments.as.built-in.`message', |
| 11a0 | 20 62 75 74 20 69 73 20 6e 6f 74 20 72 65 73 74 72 69 63 74 65 64 20 69 6e 20 77 68 61 74 20 69 | .but.is.not.restricted.in.what.i |
| 11c0 | 74 20 64 6f 65 73 20 77 69 74 68 20 74 68 65 0a 6d 65 73 73 61 67 65 73 2e 20 20 49 66 20 74 68 | t.does.with.the.messages...If.th |
| 11e0 | 65 20 76 61 6c 75 65 20 69 73 20 6e 69 6c 2c 20 74 72 61 63 69 6e 67 20 69 73 20 64 69 73 61 62 | e.value.is.nil,.tracing.is.disab |
| 1200 | 6c 65 64 20 65 76 65 6e 20 66 6f 72 0a 69 74 65 72 61 74 6f 72 20 66 75 6e 63 74 69 6f 6e 73 20 | led.even.for.iterator.functions. |
| 1220 | 74 68 61 74 20 61 72 65 20 73 75 70 70 6f 73 65 64 20 74 6f 20 74 72 61 63 65 2e 22 29 0a 0a 0a | that.are.supposed.to.trace.")... |
| 1240 | 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 2d 74 72 61 63 69 6e 67 2d 64 65 70 74 68 20 30 29 0a | (defvar.iter2--tracing-depth.0). |
| 1260 | 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 2d 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 | .(defvar.iter2--value........... |
| 1280 | 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e | nil).(defvar.iter2--continuation |
| 12a0 | 73 20 20 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 | s...nil).(defvar.iter2--cleanups |
| 12c0 | 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 2d 73 74 61 63 | ........nil).(defvar.iter2--stac |
| 12e0 | 6b 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 2d | k...........nil).(defvar.iter2-- |
| 1300 | 79 69 65 6c 64 69 6e 67 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 69 74 65 | yielding........nil).(defvar.ite |
| 1320 | 72 32 2d 2d 64 6f 6e 65 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 | r2--done............nil).(defvar |
| 1340 | 20 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 74 61 74 65 20 20 20 20 20 6e 69 6c 29 0a 28 64 65 | .iter2--stack-state.....nil).(de |
| 1360 | 66 76 61 72 20 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 20 20 20 20 20 20 20 20 20 6e 69 6c 29 | fvar.iter2--catcher.........nil) |
| 1380 | 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 2d 75 73 65 64 20 20 20 | .(defvar.iter2--cleanups-used... |
| 13a0 | 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 65 72 2d 64 65 | nil).(defvar.iter2--converter-de |
| 13c0 | 70 74 68 20 30 29 0a 0a 0a 28 64 65 66 6d 61 63 72 6f 20 69 74 65 72 32 2d 64 65 66 75 6e 20 28 | pth.0)...(defmacro.iter2-defun.( |
| 13e0 | 6e 61 6d 65 20 61 72 67 6c 69 73 74 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 43 72 65 61 | name.arglist.&rest.body)..."Crea |
| 1400 | 74 65 20 61 20 67 65 6e 65 72 61 74 6f 72 20 66 75 6e 63 74 69 6f 6e 20 4e 41 4d 45 2e 0a 57 68 | te.a.generator.function.NAME..Wh |
| 1420 | 65 6e 20 63 61 6c 6c 65 64 2c 20 67 65 6e 65 72 61 74 6f 72 20 72 65 74 75 72 6e 73 20 61 6e 20 | en.called,.generator.returns.an. |
| 1440 | 69 74 65 72 61 74 6f 72 20 6f 62 6a 65 63 74 2e 20 20 53 75 63 63 65 73 73 69 76 65 0a 76 61 6c | iterator.object...Successive.val |
| 1460 | 75 65 73 20 63 61 6e 20 62 65 20 72 65 74 72 69 65 76 65 64 20 66 72 6f 6d 20 61 6e 20 69 74 65 | ues.can.be.retrieved.from.an.ite |
| 1480 | 72 61 74 6f 72 20 75 73 69 6e 67 20 60 69 74 65 72 2d 6e 65 78 74 27 2e 0a 0a 46 72 6f 6d 20 67 | rator.using.`iter-next'...From.g |
| 14a0 | 65 6e 65 72 61 74 6f 72 20 70 65 72 73 70 65 63 74 69 76 65 2c 20 42 4f 44 59 20 69 73 20 65 78 | enerator.perspective,.BODY.is.ex |
| 14c0 | 65 63 75 74 65 64 20 77 68 65 6e 65 76 65 72 20 61 20 6e 65 77 0a 69 74 65 72 61 74 6f 72 20 6f | ecuted.whenever.a.new.iterator.o |
| 14e0 | 62 6a 65 63 74 20 69 73 20 63 72 65 61 74 65 64 2e 20 20 41 74 20 65 61 63 68 20 70 6f 69 6e 74 | bject.is.created...At.each.point |
| 1500 | 20 60 69 74 65 72 2d 79 69 65 6c 64 27 20 69 73 20 63 61 6c 6c 65 64 0a 69 6e 20 74 68 65 20 62 | .`iter-yield'.is.called.in.the.b |
| 1520 | 6f 64 79 2c 20 65 76 61 6c 75 61 74 69 6f 6e 20 73 74 6f 70 73 2c 20 61 6e 64 20 69 73 20 72 65 | ody,.evaluation.stops,.and.is.re |
| 1540 | 73 75 6d 65 64 20 61 74 20 65 78 61 63 74 6c 79 20 74 68 65 20 73 61 6d 65 0a 70 6f 69 6e 74 20 | sumed.at.exactly.the.same.point. |
| 1560 | 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 73 74 61 74 65 20 28 62 6f 74 68 20 6c 6f 63 61 6c 20 | with.the.same.state.(both.local. |
| 1580 | 61 6e 64 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 29 20 69 66 0a 60 69 74 65 72 2d 6e | and.global.variables).if.`iter-n |
| 15a0 | 65 78 74 27 20 69 73 20 75 73 65 64 20 74 6f 20 71 75 65 72 79 20 61 6e 6f 74 68 65 72 20 76 61 | ext'.is.used.to.query.another.va |
| 15c0 | 6c 75 65 2e 0a 0a 49 74 65 72 61 74 6f 72 20 6f 62 6a 65 63 74 73 20 6d 75 73 74 20 62 65 20 63 | lue...Iterator.objects.must.be.c |
| 15e0 | 6c 6f 73 65 64 20 77 69 74 68 20 60 69 74 65 72 2d 63 6c 6f 73 65 27 20 75 6e 6c 65 73 73 20 74 | losed.with.`iter-close'.unless.t |
| 1600 | 68 65 79 20 61 72 65 0a 66 75 6c 6c 79 20 65 78 68 61 75 73 74 65 64 2c 20 69 2e 65 2e 20 73 69 | hey.are.fully.exhausted,.i.e..si |
| 1620 | 67 6e 61 6c 20 60 69 74 65 72 2d 65 6e 64 2d 6f 66 2d 73 65 71 75 65 6e 63 65 27 2e 20 20 43 61 | gnal.`iter-end-of-sequence'...Ca |
| 1640 | 6c 6c 69 6e 67 0a 60 69 74 65 72 2d 63 6c 6f 73 65 27 20 6f 6e 20 61 6e 20 65 78 68 61 75 73 74 | lling.`iter-close'.on.an.exhaust |
| 1660 | 65 64 20 69 74 65 72 61 74 6f 72 20 6f 62 6a 65 63 74 20 6f 72 20 65 76 65 6e 20 73 65 76 65 72 | ed.iterator.object.or.even.sever |
| 1680 | 61 6c 0a 74 69 6d 65 73 20 69 73 20 6e 6f 74 20 61 6e 20 65 72 72 6f 72 2e 22 0a 20 20 28 64 65 | al.times.is.not.an.error."...(de |
| 16a0 | 63 6c 61 72 65 20 28 64 65 62 75 67 20 64 65 66 75 6e 29 20 28 69 6e 64 65 6e 74 20 32 29 20 28 | clare.(debug.defun).(indent.2).( |
| 16c0 | 64 6f 63 2d 73 74 72 69 6e 67 20 33 29 29 0a 20 20 28 6c 65 74 20 28 28 70 61 72 73 65 64 2d 62 | doc-string.3))...(let.((parsed-b |
| 16e0 | 6f 64 79 20 28 6d 61 63 72 6f 65 78 70 2d 70 61 72 73 65 2d 62 6f 64 79 20 62 6f 64 79 29 29 29 | ody.(macroexp-parse-body.body))) |
| 1700 | 0a 20 20 20 20 60 28 64 65 66 75 6e 20 2c 6e 61 6d 65 20 2c 61 72 67 6c 69 73 74 0a 20 20 20 20 | .....`(defun.,name.,arglist..... |
| 1720 | 20 20 20 2c 40 28 63 61 72 20 70 61 72 73 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 2c 28 | ...,@(car.parsed-body)........,( |
| 1740 | 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 75 6e 63 74 69 6f 6e 2d 62 6f 64 79 20 28 63 64 | iter2--convert-function-body.(cd |
| 1760 | 72 20 70 61 72 73 65 64 2d 62 6f 64 79 29 20 69 74 65 72 32 2d 67 65 6e 65 72 61 74 65 2d 74 72 | r.parsed-body).iter2-generate-tr |
| 1780 | 61 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 69 | acing-functions))))..(defmacro.i |
| 17a0 | 74 65 72 32 2d 6c 61 6d 62 64 61 20 28 61 72 67 6c 69 73 74 20 26 72 65 73 74 20 62 6f 64 79 29 | ter2-lambda.(arglist.&rest.body) |
| 17c0 | 0a 20 20 22 43 72 65 61 74 65 20 61 6e 20 61 6e 6f 6e 79 6d 6f 75 73 20 67 65 6e 65 72 61 74 6f | ..."Create.an.anonymous.generato |
| 17e0 | 72 20 66 75 6e 63 74 69 6f 6e 2e 0a 53 65 65 20 60 69 74 65 72 32 2d 64 65 66 75 6e 27 20 66 6f | r.function..See.`iter2-defun'.fo |
| 1800 | 72 20 64 65 74 61 69 6c 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 6c 61 | r.details."...(declare.(debug.la |
| 1820 | 6d 62 64 61 29 20 28 69 6e 64 65 6e 74 20 31 29 20 28 64 6f 63 2d 73 74 72 69 6e 67 20 32 29 29 | mbda).(indent.1).(doc-string.2)) |
| 1840 | 0a 20 20 28 6c 65 74 20 28 28 70 61 72 73 65 64 2d 62 6f 64 79 20 28 6d 61 63 72 6f 65 78 70 2d | ...(let.((parsed-body.(macroexp- |
| 1860 | 70 61 72 73 65 2d 62 6f 64 79 20 62 6f 64 79 29 29 29 0a 20 20 20 20 60 28 6c 61 6d 62 64 61 20 | parse-body.body))).....`(lambda. |
| 1880 | 2c 61 72 67 6c 69 73 74 0a 20 20 20 20 20 20 20 2c 40 28 63 61 72 20 70 61 72 73 65 64 2d 62 6f | ,arglist........,@(car.parsed-bo |
| 18a0 | 64 79 29 0a 20 20 20 20 20 20 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 75 6e 63 | dy)........,(iter2--convert-func |
| 18c0 | 74 69 6f 6e 2d 62 6f 64 79 20 28 63 64 72 20 70 61 72 73 65 64 2d 62 6f 64 79 29 20 69 74 65 72 | tion-body.(cdr.parsed-body).iter |
| 18e0 | 32 2d 67 65 6e 65 72 61 74 65 2d 74 72 61 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 29 29 29 29 | 2-generate-tracing-functions)))) |
| 1900 | 0a 0a 28 64 65 66 6d 61 63 72 6f 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 64 65 66 75 6e 20 | ..(defmacro.iter2-tracing-defun. |
| 1920 | 28 6e 61 6d 65 20 61 72 67 6c 69 73 74 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 43 72 65 | (name.arglist.&rest.body)..."Cre |
| 1940 | 61 74 65 20 61 20 74 72 61 63 69 6e 67 20 67 65 6e 65 72 61 74 6f 72 20 66 75 6e 63 74 69 6f 6e | ate.a.tracing.generator.function |
| 1960 | 20 4e 41 4d 45 2e 0a 53 65 65 20 60 69 74 65 72 32 2d 64 65 66 75 6e 27 20 66 6f 72 20 64 65 74 | .NAME..See.`iter2-defun'.for.det |
| 1980 | 61 69 6c 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 64 65 66 75 6e 29 20 | ails."...(declare.(debug.defun). |
| 19a0 | 28 69 6e 64 65 6e 74 20 32 29 20 28 64 6f 63 2d 73 74 72 69 6e 67 20 33 29 29 0a 20 20 28 6c 65 | (indent.2).(doc-string.3))...(le |
| 19c0 | 74 20 28 28 69 74 65 72 32 2d 67 65 6e 65 72 61 74 65 2d 74 72 61 63 69 6e 67 2d 66 75 6e 63 74 | t.((iter2-generate-tracing-funct |
| 19e0 | 69 6f 6e 73 20 74 29 29 0a 20 20 20 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 2d 31 20 60 28 69 74 | ions.t)).....(macroexpand-1.`(it |
| 1a00 | 65 72 32 2d 64 65 66 75 6e 20 2c 6e 61 6d 65 20 2c 61 72 67 6c 69 73 74 20 2c 40 62 6f 64 79 29 | er2-defun.,name.,arglist.,@body) |
| 1a20 | 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 6c 61 6d | )))..(defmacro.iter2-tracing-lam |
| 1a40 | 62 64 61 20 28 61 72 67 6c 69 73 74 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 43 72 65 61 | bda.(arglist.&rest.body)..."Crea |
| 1a60 | 74 65 20 61 20 74 72 61 63 69 6e 67 20 61 6e 6f 6e 79 6d 6f 75 73 20 67 65 6e 65 72 61 74 6f 72 | te.a.tracing.anonymous.generator |
| 1a80 | 20 66 75 6e 63 74 69 6f 6e 20 4e 41 4d 45 2e 0a 53 65 65 20 60 69 74 65 72 32 2d 64 65 66 75 6e | .function.NAME..See.`iter2-defun |
| 1aa0 | 27 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 | '.for.details."...(declare.(debu |
| 1ac0 | 67 20 6c 61 6d 62 64 61 29 20 28 69 6e 64 65 6e 74 20 31 29 20 28 64 6f 63 2d 73 74 72 69 6e 67 | g.lambda).(indent.1).(doc-string |
| 1ae0 | 20 32 29 29 0a 20 20 28 6c 65 74 20 28 28 69 74 65 72 32 2d 67 65 6e 65 72 61 74 65 2d 74 72 61 | .2))...(let.((iter2-generate-tra |
| 1b00 | 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 20 74 29 29 0a 20 20 20 20 28 6d 61 63 72 6f 65 78 70 | cing-functions.t)).....(macroexp |
| 1b20 | 61 6e 64 2d 31 20 60 28 69 74 65 72 32 2d 6c 61 6d 62 64 61 20 2c 61 72 67 6c 69 73 74 20 2c 40 | and-1.`(iter2-lambda.,arglist.,@ |
| 1b40 | 62 6f 64 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 6c 69 74 65 72 61 6c 70 | body))))..(defun.iter2--literalp |
| 1b60 | 20 28 78 29 0a 20 20 22 44 65 74 65 72 6d 69 6e 65 20 69 66 20 58 20 69 6e 76 6f 6c 76 65 73 20 | .(x)..."Determine.if.X.involves. |
| 1b80 | 6e 6f 20 65 76 61 6c 75 61 74 69 6f 6e 2e 22 0a 20 20 28 69 66 20 28 61 74 6f 6d 20 78 29 0a 20 | no.evaluation."...(if.(atom.x).. |
| 1ba0 | 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 28 73 79 6d 62 6f 6c 70 20 78 29 29 0a 20 20 20 20 20 | .....(or.(not.(symbolp.x))...... |
| 1bc0 | 20 20 20 20 20 28 6d 65 6d 71 20 78 20 27 28 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 | .....(memq.x.'(nil.t)).......... |
| 1be0 | 20 28 6b 65 79 77 6f 72 64 70 20 78 29 29 0a 20 20 20 20 3b 3b 20 44 6f 6e 27 74 20 63 68 65 63 | .(keywordp.x)).....;;.Don't.chec |
| 1c00 | 6b 20 66 6f 72 20 77 72 6f 6e 67 20 66 6f 72 6d 73 20 68 65 72 65 3a 20 6a 75 73 74 20 6c 65 74 | k.for.wrong.forms.here:.just.let |
| 1c20 | 20 69 74 20 66 61 69 6c 20 6c 61 74 65 72 20 69 6e 20 73 75 63 68 20 61 20 63 61 73 65 2e 0a 20 | .it.fail.later.in.such.a.case... |
| 1c40 | 20 20 20 28 6d 65 6d 71 20 28 63 61 72 20 78 29 20 27 28 71 75 6f 74 65 20 66 75 6e 63 74 69 6f | ...(memq.(car.x).'(quote.functio |
| 1c60 | 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 6c 69 74 65 72 61 6c 2d 6f 72 2d | n))))..(defun.iter2--literal-or- |
| 1c80 | 76 61 72 69 61 62 6c 65 2d 70 20 28 78 29 0a 20 20 28 6f 72 20 28 61 74 6f 6d 20 78 29 20 28 6d | variable-p.(x)...(or.(atom.x).(m |
| 1ca0 | 65 6d 71 20 28 63 61 72 20 78 29 20 27 28 71 75 6f 74 65 20 66 75 6e 63 74 69 6f 6e 29 29 29 29 | emq.(car.x).'(quote.function)))) |
| 1cc0 | 0a 0a 3b 3b 20 44 75 72 69 6e 67 20 62 79 74 65 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2c 20 66 75 | ..;;.During.byte-compilation,.fu |
| 1ce0 | 6e 63 74 69 6f 6e 20 60 73 70 65 63 69 61 6c 2d 76 61 72 69 61 62 6c 65 2d 70 27 20 77 6f 6e 27 | nction.`special-variable-p'.won' |
| 1d00 | 74 20 67 69 76 65 20 69 6e 74 65 6e 64 65 64 20 72 65 73 75 6c 74 73 20 66 6f 72 0a 3b 3b 20 76 | t.give.intended.results.for.;;.v |
| 1d20 | 61 72 69 61 62 6c 65 73 20 64 65 63 6c 61 72 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 20 62 65 | ariables.declared.in.the.file.be |
| 1d40 | 69 6e 67 20 63 6f 6d 70 69 6c 65 64 2e 20 20 45 2e 67 2e 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 | ing.compiled...E.g..byte-compile |
| 1d60 | 72 20 69 74 73 65 6c 66 20 75 73 65 64 20 28 70 72 65 2d 32 39 29 0a 3b 3b 20 74 6f 20 75 73 65 | r.itself.used.(pre-29).;;.to.use |
| 1d80 | 20 60 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 6e 6f 74 2d 6c 65 78 69 63 61 6c 2d 76 61 72 2d 70 | .`byte-compile-not-lexical-var-p |
| 1da0 | 27 20 74 6f 20 64 65 63 69 64 65 20 68 6f 77 20 74 6f 20 63 6f 6d 70 69 6c 65 20 6c 65 74 2d 62 | '.to.decide.how.to.compile.let-b |
| 1dc0 | 69 6e 64 69 6e 67 73 2e 20 20 4f 66 0a 3b 3b 20 63 6f 75 72 73 65 2c 20 74 68 65 79 20 68 61 64 | indings...Of.;;.course,.they.had |
| 1de0 | 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 2c 20 65 76 65 6e 20 69 66 | .to.remove.the.function,.even.if |
| 1e00 | 20 69 74 20 77 61 73 73 20 6e 6f 74 20 70 72 69 76 61 74 65 20 61 63 63 6f 72 64 69 6e 67 20 74 | .it.wass.not.private.according.t |
| 1e20 | 6f 20 45 6c 69 73 70 0a 3b 3b 20 6e 61 6d 69 6e 67 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 2e 20 20 | o.Elisp.;;.naming.conventions... |
| 1e40 | 49 74 20 73 65 65 6d 73 20 77 65 20 73 74 69 6c 6c 20 63 61 6e 20 75 73 65 20 76 61 72 69 61 62 | It.seems.we.still.can.use.variab |
| 1e60 | 6c 65 20 60 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 73 | le.`byte-compile-bound-variables |
| 1e80 | 27 0a 3b 3b 20 61 74 20 6c 65 61 73 74 2e 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 73 70 65 | '.;;.at.least..(defun.iter2--spe |
| 1ea0 | 63 69 61 6c 2d 76 61 72 69 61 62 6c 65 2d 70 20 28 76 61 72 20 26 6f 70 74 69 6f 6e 61 6c 20 77 | cial-variable-p.(var.&optional.w |
| 1ec0 | 61 72 6e 29 0a 20 20 28 63 6f 6e 64 20 28 28 62 6f 75 6e 64 70 20 27 62 79 74 65 2d 63 6f 6d 70 | arn)...(cond.((boundp.'byte-comp |
| 1ee0 | 69 6c 65 2d 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 28 6f | ile-bound-variables)..........(o |
| 1f00 | 72 20 28 73 70 65 63 69 61 6c 2d 76 61 72 69 61 62 6c 65 2d 70 20 76 61 72 29 20 28 6d 65 6d 71 | r.(special-variable-p.var).(memq |
| 1f20 | 20 76 61 72 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 | .var.byte-compile-bound-variable |
| 1f40 | 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 77 | s))).........(t..........(when.w |
| 1f60 | 61 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 61 72 6e 20 22 56 61 72 69 61 62 6c 65 20 60 | arn............(warn."Variable.` |
| 1f80 | 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 73 27 20 69 73 | byte-compile-bound-variables'.is |
| 1fa0 | 20 6d 69 73 73 69 6e 67 2c 20 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 20 62 69 6e 64 69 | .missing,.special.variable.bindi |
| 1fc0 | 6e 67 73 20 69 6e 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 64 20 60 69 74 65 72 32 2d 64 65 66 75 | ngs.in.byte-compiled.`iter2-defu |
| 1fe0 | 6e 27 20 6d 69 67 68 74 20 6d 69 73 62 65 68 61 76 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 | n'.might.misbehave"))..........( |
| 2000 | 73 70 65 63 69 61 6c 2d 76 61 72 69 61 62 6c 65 2d 70 20 76 61 72 29 29 29 29 0a 0a 28 64 65 66 | special-variable-p.var))))..(def |
| 2020 | 6d 61 63 72 6f 20 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 67 6e 20 28 66 6f 72 6d | macro.iter2--convert-progn.(form |
| 2040 | 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 28 66 6f 72 6d 29 29 29 0a 20 20 | s)...(declare.(debug.(form)))... |
| 2060 | 60 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 28 6d 61 63 72 6f 65 78 70 2d | `(iter2--convert-form.(macroexp- |
| 2080 | 70 72 6f 67 6e 20 2c 66 6f 72 6d 73 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 69 74 65 72 32 | progn.,forms)))..(defmacro.iter2 |
| 20a0 | 2d 2d 61 64 64 2d 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 28 70 6c 61 63 65 20 63 6f 6e 76 | --add-converted-form.(place.conv |
| 20c0 | 65 72 74 65 64 2d 66 6f 72 6d 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 28 70 | erted-form)...(declare.(debug.(p |
| 20e0 | 6c 61 63 65 20 66 6f 72 6d 29 29 29 0a 20 20 60 28 73 65 74 66 20 2c 70 6c 61 63 65 20 28 6e 63 | lace.form)))...`(setf.,place.(nc |
| 2100 | 6f 6e 63 20 28 72 65 76 65 72 73 65 20 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 2c | onc.(reverse.(macroexp-unprogn., |
| 2120 | 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 29 29 20 2c 70 6c 61 63 65 29 29 29 0a 0a 28 64 65 66 | converted-form)).,place)))..(def |
| 2140 | 6d 61 63 72 6f 20 69 74 65 72 32 2d 2d 66 69 6e 69 73 68 2d 63 68 75 6e 6b 20 28 63 6f 6e 76 65 | macro.iter2--finish-chunk.(conve |
| 2160 | 72 74 65 64 2d 63 68 75 6e 6b 73 20 63 6f 6e 76 65 72 74 65 64 20 26 72 65 73 74 20 6e 65 78 74 | rted-chunks.converted.&rest.next |
| 2180 | 2d 63 68 75 6e 6b 2d 66 6f 72 6d 73 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 | -chunk-forms)...(declare.(debug. |
| 21a0 | 28 70 6c 61 63 65 20 70 6c 61 63 65 20 26 72 65 73 74 20 66 6f 72 6d 29 29 29 0a 20 20 60 28 73 | (place.place.&rest.form)))...`(s |
| 21c0 | 65 74 66 20 2c 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 20 28 63 6f 6e 73 20 28 6d 61 63 | etf.,converted-chunks.(cons.(mac |
| 21e0 | 72 6f 65 78 70 2d 70 72 6f 67 6e 20 28 6e 72 65 76 65 72 73 65 20 2c 63 6f 6e 76 65 72 74 65 64 | roexp-progn.(nreverse.,converted |
| 2200 | 29 29 20 2c 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 29 0a 20 20 20 20 20 20 20 20 20 2c | )).,converted-chunks).........., |
| 2220 | 63 6f 6e 76 65 72 74 65 64 20 20 20 20 20 20 20 20 2c 28 77 68 65 6e 20 6e 65 78 74 2d 63 68 75 | converted........,(when.next-chu |
| 2240 | 6e 6b 2d 66 6f 72 6d 73 20 60 28 6c 69 73 74 20 2c 40 6e 65 78 74 2d 63 68 75 6e 6b 2d 66 6f 72 | nk-forms.`(list.,@next-chunk-for |
| 2260 | 6d 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 75 | ms))))..(defun.iter2--convert-fu |
| 2280 | 6e 63 74 69 6f 6e 2d 62 6f 64 79 20 28 62 6f 64 79 20 26 6f 70 74 69 6f 6e 61 6c 20 74 72 61 63 | nction-body.(body.&optional.trac |
| 22a0 | 69 6e 67 29 0a 20 20 28 75 6e 6c 65 73 73 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 0a 20 | ing)...(unless.lexical-binding.. |
| 22c0 | 20 20 20 28 65 72 72 6f 72 20 22 47 65 6e 65 72 61 74 6f 72 20 66 75 6e 63 74 69 6f 6e 73 20 72 | ...(error."Generator.functions.r |
| 22e0 | 65 71 75 69 72 65 20 6c 65 78 69 63 61 6c 20 62 69 6e 64 69 6e 67 22 29 29 0a 20 20 28 6c 65 74 | equire.lexical.binding"))...(let |
| 2300 | 2a 20 28 28 69 74 65 72 32 2d 67 65 6e 65 72 61 74 65 2d 74 72 61 63 69 6e 67 2d 66 75 6e 63 74 | *.((iter2-generate-tracing-funct |
| 2320 | 69 6f 6e 73 20 74 72 61 63 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 76 | ions.tracing)..........(iter2--v |
| 2340 | 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 | alue.....................(make-s |
| 2360 | 79 6d 62 6f 6c 20 22 24 76 61 6c 75 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 | ymbol."$value"))..........(iter2 |
| 2380 | 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b | --continuations.............(mak |
| 23a0 | 65 2d 73 79 6d 62 6f 6c 20 22 24 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 22 29 29 0a 20 20 20 20 | e-symbol."$continuations"))..... |
| 23c0 | 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 20 20 20 20 20 20 20 20 20 20 20 | .....(iter2--cleanups........... |
| 23e0 | 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 24 63 6c 65 61 6e 75 70 73 22 29 | .......(make-symbol."$cleanups") |
| 2400 | 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 73 74 61 63 6b 20 20 20 20 20 20 20 20 | )..........(iter2--stack........ |
| 2420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 24 73 74 61 63 | .............(make-symbol."$stac |
| 2440 | 6b 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 79 69 65 6c 64 69 6e 67 20 20 | k"))..........(iter2--yielding.. |
| 2460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 24 79 | ................(make-symbol."$y |
| 2480 | 69 65 6c 64 69 6e 67 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 64 6f 6e 65 | ielding"))..........(iter2--done |
| 24a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 79 6d 62 | ......................(make-symb |
| 24c0 | 6f 6c 20 22 24 64 6f 6e 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 73 74 | ol."$done"))..........(iter2--st |
| 24e0 | 61 63 6b 2d 73 74 61 74 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 79 | ack-state...............(make-sy |
| 2500 | 6d 62 6f 6c 20 22 24 73 74 61 63 6b 2d 73 74 61 74 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 | mbol."$stack-state"))..........( |
| 2520 | 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | iter2--catcher.................. |
| 2540 | 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 24 63 61 74 63 68 65 72 22 29 29 0a 20 20 20 20 20 | .(make-symbol."$catcher"))...... |
| 2560 | 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 2d 75 73 65 64 20 20 20 20 20 20 20 | ....(iter2--cleanups-used....... |
| 2580 | 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 2d 64 65 62 75 67 | ......nil)..........(apply-debug |
| 25a0 | 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 26 | ger...................(lambda.(& |
| 25c0 | 72 65 73 74 20 66 6f 72 6d 73 29 20 66 6f 72 6d 73 29 29 29 0a 20 20 20 20 28 70 63 61 73 65 20 | rest.forms).forms))).....(pcase. |
| 25e0 | 62 6f 64 79 0a 20 20 20 20 20 20 28 60 28 28 65 64 65 62 75 67 2d 65 6e 74 65 72 20 2c 65 64 65 | body.......(`((edebug-enter.,ede |
| 2600 | 62 75 67 2d 6e 61 6d 65 20 2c 65 64 65 62 75 67 2d 61 72 67 73 20 28 66 75 6e 63 74 69 6f 6e 20 | bug-name.,edebug-args.(function. |
| 2620 | 28 6c 61 6d 62 64 61 20 28 29 20 2e 20 2c 72 65 61 6c 2d 62 6f 64 79 29 29 29 29 0a 20 20 20 20 | (lambda.()...,real-body))))..... |
| 2640 | 20 20 20 3b 3b 20 54 68 69 73 20 69 73 20 61 20 68 61 63 6b 2c 20 62 75 74 20 73 69 6e 63 65 20 | ...;;.This.is.a.hack,.but.since. |
| 2660 | 45 6d 61 63 73 20 63 6f 64 65 20 28 45 64 65 62 75 67 20 69 6e 20 74 68 69 73 20 63 61 73 65 29 | Emacs.code.(Edebug.in.this.case) |
| 2680 | 20 69 73 20 70 72 65 74 74 79 20 73 74 61 62 6c 65 2c 20 49 27 6d 0a 20 20 20 20 20 20 20 3b 3b | .is.pretty.stable,.I'm........;; |
| 26a0 | 20 73 75 72 65 20 69 74 20 77 69 6c 6c 20 6b 65 65 70 20 77 6f 72 6b 69 6e 67 2e 20 20 54 68 65 | .sure.it.will.keep.working...The |
| 26c0 | 20 69 64 65 61 20 69 73 20 74 6f 20 69 6e 76 6f 6b 65 20 60 65 64 65 62 75 67 2d 65 6e 74 65 72 | .idea.is.to.invoke.`edebug-enter |
| 26e0 | 27 20 6e 6f 74 20 77 68 65 6e 20 74 68 65 0a 20 20 20 20 20 20 20 3b 3b 20 66 75 6e 63 74 69 6f | '.not.when.the........;;.functio |
| 2700 | 6e 20 69 73 20 66 69 72 73 74 20 63 61 6c 6c 65 64 20 28 74 68 69 73 20 63 72 65 61 74 65 73 20 | n.is.first.called.(this.creates. |
| 2720 | 61 6e 64 20 72 65 74 75 72 6e 73 20 61 6e 20 69 74 65 72 61 74 6f 72 20 6f 62 6a 65 63 74 20 61 | and.returns.an.iterator.object.a |
| 2740 | 6e 64 0a 20 20 20 20 20 20 20 3b 3b 20 64 6f 65 73 6e 27 74 20 69 6e 76 6f 6c 76 65 20 75 73 65 | nd........;;.doesn't.involve.use |
| 2760 | 72 20 63 6f 64 65 20 61 74 20 61 6c 6c 29 2c 20 62 75 74 20 69 6e 73 74 65 61 64 20 77 68 65 6e | r.code.at.all),.but.instead.when |
| 2780 | 20 69 74 20 72 65 63 65 69 76 65 73 20 63 6f 6e 74 72 6f 6c 20 61 66 74 65 72 0a 20 20 20 20 20 | .it.receives.control.after...... |
| 27a0 | 20 20 3b 3b 20 60 69 74 65 72 2d 6e 65 78 74 27 20 6f 72 20 60 69 74 65 72 2d 79 69 65 6c 64 27 | ..;;.`iter-next'.or.`iter-yield' |
| 27c0 | 20 63 61 6c 6c 2e 20 20 54 68 69 73 20 61 6c 73 6f 20 73 6f 6c 76 65 73 20 74 68 65 20 69 73 73 | .call...This.also.solves.the.iss |
| 27e0 | 75 65 20 77 69 74 68 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 76 65 72 73 69 6f | ue.with.form........;;.conversio |
| 2800 | 6e 3a 20 6e 6f 72 6d 61 6c 6c 79 20 60 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d | n:.normally.`iter2--convert-form |
| 2820 | 27 20 64 6f 65 73 6e 27 74 20 72 65 63 75 72 73 65 20 69 6e 74 6f 20 6e 65 73 74 65 64 20 6c 61 | '.doesn't.recurse.into.nested.la |
| 2840 | 6d 62 64 61 73 2e 0a 20 20 20 20 20 20 20 28 73 65 74 71 20 62 6f 64 79 20 20 20 20 20 20 20 20 | mbdas.........(setq.body........ |
| 2860 | 20 20 20 72 65 61 6c 2d 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 6c 79 2d | ...real-body..............apply- |
| 2880 | 64 65 62 75 67 67 65 72 20 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 66 6f 72 6d 73 29 20 60 | debugger.(lambda.(&rest.forms).` |
| 28a0 | 28 28 65 64 65 62 75 67 2d 65 6e 74 65 72 20 2c 65 64 65 62 75 67 2d 6e 61 6d 65 20 2c 65 64 65 | ((edebug-enter.,edebug-name.,ede |
| 28c0 | 62 75 67 2d 61 72 67 73 20 28 66 75 6e 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 | bug-args.(function.(lambda.().,@ |
| 28e0 | 66 6f 72 6d 73 29 29 29 29 29 29 29 29 0a 20 20 20 20 3b 3b 20 4e 65 65 64 20 74 6f 20 63 6f 6e | forms)))))))).....;;.Need.to.con |
| 2900 | 76 65 72 74 20 74 68 65 20 62 6f 64 79 20 6e 6f 77 2c 20 73 69 6e 63 65 20 74 68 69 73 20 61 66 | vert.the.body.now,.since.this.af |
| 2920 | 66 65 63 74 73 20 61 74 20 6c 65 61 73 74 20 60 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 2d | fects.at.least.`iter2--cleanups- |
| 2940 | 75 73 65 64 27 2e 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 20 28 69 74 65 | used'......(let.((converted.(ite |
| 2960 | 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 67 6e 20 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 | r2--convert-progn.body)))....... |
| 2980 | 60 28 6c 65 74 20 28 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 0a 20 20 20 | `(let.(,iter2--continuations.... |
| 29a0 | 20 20 20 20 20 20 20 20 20 20 2c 40 28 77 68 65 6e 20 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 | ..........,@(when.iter2--cleanup |
| 29c0 | 73 2d 75 73 65 64 20 28 6c 69 73 74 20 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 29 29 0a 20 | s-used.(list.iter2--cleanups)).. |
| 29e0 | 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 0a 20 20 20 20 20 20 | ............,iter2--stack....... |
| 2a00 | 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d 79 69 65 6c 64 69 6e 67 29 0a 20 20 20 20 20 20 20 | .......,iter2--yielding)........ |
| 2a20 | 20 20 3b 3b 20 4d 75 73 74 20 6e 6f 74 20 62 65 20 6d 6f 76 65 64 20 74 6f 20 60 6c 65 74 27 20 | ..;;.Must.not.be.moved.to.`let'. |
| 2a40 | 61 62 6f 76 65 2c 20 73 69 6e 63 65 20 74 68 65 20 6c 61 6d 62 64 61 20 61 63 63 65 73 73 65 73 | above,.since.the.lambda.accesses |
| 2a60 | 20 74 68 65 20 6f 74 68 65 72 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 76 61 72 69 61 62 6c 65 73 | .the.other..........;;.variables |
| 2a80 | 20 64 65 63 6c 61 72 65 64 20 74 68 65 72 65 2e 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | .declared.there...........(setq. |
| 2aa0 | 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 28 6c 69 73 74 20 28 6c 61 6d | ,iter2--continuations.(list.(lam |
| 2ac0 | 62 64 61 20 28 2c 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d | bda.(,iter2--value).,@(macroexp- |
| 2ae0 | 75 6e 70 72 6f 67 6e 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 | unprogn.(iter2--merge-continuati |
| 2b00 | 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | on-form.converted))))).......... |
| 2b20 | 28 6c 61 6d 62 64 61 20 28 6f 70 65 72 61 74 69 6f 6e 20 76 61 6c 75 65 29 0a 20 20 20 20 20 20 | (lambda.(operation.value)....... |
| 2b40 | 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 6f 70 65 72 61 74 69 6f 6e 20 3a 6e 65 78 74 29 | .....(cond.((eq.operation.:next) |
| 2b60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 66 75 6e 63 61 6c 6c 20 61 70 | ...................,@(funcall.ap |
| 2b80 | 70 6c 79 2d 64 65 62 75 67 67 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ply-debugger.................... |
| 2ba0 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 77 72 69 74 74 65 6e 20 69 6e 20 61 20 73 6f 6d 65 | ..........;;.Rewritten.in.a.some |
| 2bc0 | 77 68 61 74 20 77 65 69 72 64 20 66 6f 72 6d 20 74 6f 20 6d 61 78 69 6d 69 7a 65 20 70 65 72 66 | what.weird.form.to.maximize.perf |
| 2be0 | 6f 72 6d 61 6e 63 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ormance......................... |
| 2c00 | 20 20 20 20 20 20 60 28 77 68 69 6c 65 20 28 70 72 6f 67 6e 20 28 73 65 74 71 20 76 61 6c 75 65 | ......`(while.(progn.(setq.value |
| 2c20 | 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 69 6e 76 6f 63 61 74 69 6f | .,(iter2--continuation-invocatio |
| 2c40 | 6e 2d 66 6f 72 6d 20 27 76 61 6c 75 65 20 60 28 6f 72 20 28 70 6f 70 20 2c 69 74 65 72 32 2d 2d | n-form.'value.`(or.(pop.,iter2-- |
| 2c60 | 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | continuations).................. |
| 2c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c | .........................(signal |
| 2ce0 | 20 27 69 74 65 72 2d 65 6e 64 2d 6f 66 2d 73 65 71 75 65 6e 63 65 20 76 61 6c 75 65 29 29 29 29 | .'iter-end-of-sequence.value)))) |
| 2d00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 2c 69 74 65 72 32 2d 2d 79 69 65 6c 64 69 | .............(not.,iter2--yieldi |
| 2d40 | 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng)))........................... |
| 2d60 | 20 20 20 60 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 79 69 65 6c 64 69 6e 67 20 6e 69 6c 29 0a | ...`(setq.,iter2--yielding.nil). |
| 2d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 76 61 | .............................`va |
| 2da0 | 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6f 70 65 72 | lue))..................((eq.oper |
| 2dc0 | 61 74 69 6f 6e 20 3a 63 6c 6f 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ation.:close)................... |
| 2de0 | 2c 40 28 66 75 6e 63 61 6c 6c 20 61 70 70 6c 79 2d 64 65 62 75 67 67 65 72 0a 20 20 20 20 20 20 | ,@(funcall.apply-debugger....... |
| 2e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 69 74 65 72 32 | .......................(if.iter2 |
| 2e20 | 2d 2d 63 6c 65 61 6e 75 70 73 2d 75 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | --cleanups-used................. |
| 2e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6c 65 74 20 28 28 63 6c 65 61 6e 75 70 | .................`(let.((cleanup |
| 2e60 | 73 20 2c 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | s.,iter2--cleanups))............ |
| 2e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2c | .........................(setq., |
| 2ea0 | 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 20 20 20 20 20 | iter2--continuations.nil........ |
| 2ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2ee0 | 20 20 20 2c 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 | ...,iter2--cleanups......nil.... |
| 2f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 2f20 | 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 20 20 20 20 20 20 20 20 20 6e 69 6c | .......,iter2--stack.........nil |
| 2f40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 2f60 | 20 20 20 20 20 20 28 69 66 20 63 6c 65 61 6e 75 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(if.cleanups.............. |
| 2f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 | ...........................(iter |
| 2fa0 | 32 2d 2d 64 6f 2d 63 6c 65 61 6e 2d 75 70 20 63 6c 65 61 6e 75 70 73 29 29 29 0a 20 20 20 20 20 | 2--do-clean-up.cleanups)))...... |
| 2fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 73 65 74 71 | ..........................`(setq |
| 2fe0 | 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 6e 69 6c 0a 20 20 20 20 20 | .,iter2--continuations.nil...... |
| 3000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3020 | 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 0a 20 | .,iter2--stack.........nil)))).. |
| 3040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 65 72 72 6f 72 20 22 55 6e 6b 6e 6f | ................(t.(error."Unkno |
| 3060 | 77 6e 20 69 74 65 72 61 74 6f 72 20 6f 70 65 72 61 74 69 6f 6e 20 25 53 22 20 6f 70 65 72 61 74 | wn.iterator.operation.%S".operat |
| 3080 | 69 6f 6e 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 69 74 65 72 32 2d 2d 64 6f | ion))))))))..(defsubst.iter2--do |
| 30a0 | 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 28 66 6f 72 6d 29 0a 20 20 3b 3b 20 50 72 65 76 65 6e 74 | -macroexpand.(form)...;;.Prevent |
| 30c0 | 20 60 6d 61 63 72 6f 65 78 70 61 6e 64 27 20 66 72 6f 6d 20 65 78 70 61 6e 64 69 6e 67 20 6d 61 | .`macroexpand'.from.expanding.ma |
| 30e0 | 63 72 6f 73 20 66 6f 72 20 77 68 69 63 68 20 77 65 20 68 61 76 65 20 73 70 65 63 69 61 6c 20 68 | cros.for.which.we.have.special.h |
| 3100 | 61 6e 64 6c 69 6e 67 2e 0a 20 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 20 27 28 28 | andling....(macroexpand.form.'(( |
| 3120 | 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 20 2e 20 6e 69 6c 29 29 29 29 0a 0a 3b 3b 20 52 65 | save-match-data...nil))))..;;.Re |
| 3140 | 74 75 72 6e 73 20 28 43 4f 4e 56 45 52 54 45 44 2d 46 4f 52 4d 20 2e 20 43 4f 4e 54 49 4e 55 41 | turns.(CONVERTED-FORM...CONTINUA |
| 3160 | 54 49 4f 4e 2d 46 4f 52 4d 29 0a 3b 3b 0a 3b 3b 20 69 66 20 43 4f 4e 56 45 52 54 45 44 2d 46 4f | TION-FORM).;;.;;.if.CONVERTED-FO |
| 3180 | 52 4d 20 6e 65 76 65 72 20 79 69 65 6c 64 73 2c 20 43 4f 4e 54 49 4e 55 41 54 49 4f 4e 2d 46 4f | RM.never.yields,.CONTINUATION-FO |
| 31a0 | 52 4d 20 69 73 20 6e 69 6c 2e 20 20 43 4f 4e 54 49 4e 55 41 54 49 4f 4e 2d 46 4f 52 4d 20 69 74 | RM.is.nil...CONTINUATION-FORM.it |
| 31c0 | 73 65 6c 66 0a 3b 3b 20 6e 65 76 65 72 20 79 69 65 6c 64 73 2e 0a 3b 3b 0a 3b 3b 20 53 69 6e 63 | self.;;.never.yields..;;.;;.Sinc |
| 31e0 | 65 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 72 65 63 75 72 73 69 76 65 2c 20 69 74 | e.this.function.is.recursive,.it |
| 3200 | 20 63 61 6e 20 63 65 72 74 61 69 6e 6c 79 20 72 75 6e 20 6f 75 74 20 6f 66 20 73 74 61 63 6b 0a | .can.certainly.run.out.of.stack. |
| 3220 | 3b 3b 20 6f 6e 20 63 6f 6d 70 6c 69 63 61 74 65 64 20 66 6f 72 6d 73 20 69 66 20 6e 6f 74 20 62 | ;;.on.complicated.forms.if.not.b |
| 3240 | 79 74 65 2d 63 6f 6d 70 69 6c 65 64 2e 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 63 6f 6e 76 | yte-compiled..(defun.iter2--conv |
| 3260 | 65 72 74 2d 66 6f 72 6d 20 28 66 6f 72 6d 29 0a 20 20 28 69 66 20 28 61 74 6f 6d 20 66 6f 72 6d | ert-form.(form)...(if.(atom.form |
| 3280 | 29 0a 20 20 20 20 20 20 3b 3b 20 53 70 65 65 64 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2c 20 | ).......;;.Speed.optimizations,. |
| 32a0 | 61 6c 73 6f 20 73 69 6d 70 6c 69 66 69 65 73 20 64 65 62 75 67 67 69 6e 67 20 61 20 62 69 74 2e | also.simplifies.debugging.a.bit. |
| 32c0 | 0a 20 20 20 20 20 20 28 63 6f 6e 73 20 66 6f 72 6d 20 6e 69 6c 29 0a 20 20 20 20 28 6c 65 74 20 | .......(cons.form.nil).....(let. |
| 32e0 | 28 28 62 6f 64 79 20 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 66 6f 72 6d 29 29 0a | ((body.(macroexp-unprogn.form)). |
| 3300 | 20 20 20 20 20 20 20 20 20 20 63 61 6e 2d 79 69 65 6c 64 0a 20 20 20 20 20 20 20 20 20 20 63 6f | ..........can-yield...........co |
| 3320 | 6e 76 65 72 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e | nverted...........converted-chun |
| 3340 | 6b 73 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 62 6f 64 79 0a 20 20 20 20 20 20 20 20 28 6c | ks).......(while.body.........(l |
| 3360 | 65 74 20 28 28 66 6f 72 6d 20 28 69 74 65 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 | et.((form.(iter2--do-macroexpand |
| 3380 | 20 28 70 6f 70 20 62 6f 64 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 69 6d 70 | .(pop.body))))...........;;.Simp |
| 33a0 | 6c 69 66 79 20 63 65 72 74 61 69 6e 20 66 6f 72 6d 73 2c 20 72 65 77 72 69 74 65 20 63 65 72 74 | lify.certain.forms,.rewrite.cert |
| 33c0 | 61 69 6e 20 6f 74 68 65 72 73 20 75 73 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 70 | ain.others.using...........;;.sp |
| 33e0 | 65 63 69 61 6c 20 66 6f 72 6d 73 20 74 68 61 74 20 77 65 20 68 61 6e 64 6c 65 20 62 65 6c 6f 77 | ecial.forms.that.we.handle.below |
| 3400 | 2e 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6c 65 74 20 28 28 72 65 77 72 69 74 | ............(while.(let.((rewrit |
| 3420 | 74 65 6e 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ten-form........................ |
| 3440 | 20 28 70 63 61 73 65 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(pcase.form.................... |
| 3460 | 20 20 20 20 20 20 20 28 60 28 61 6e 64 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(`(and).................. |
| 3480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 | ......................t)........ |
| 34a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 6f 72 29 20 20 20 20 20 20 20 | ...................(`(or)....... |
| 34c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 34e0 | 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..nil).......................... |
| 3500 | 20 28 60 28 2c 28 6f 72 20 27 61 6e 64 20 27 6f 72 29 20 2c 6f 6e 6c 79 2d 63 6f 6e 64 69 74 69 | .(`(,(or.'and.'or).,only-conditi |
| 3520 | 6f 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f | on).............(iter2--do-macro |
| 3540 | 65 78 70 61 6e 64 20 6f 6e 6c 79 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 | expand.only-condition))......... |
| 3560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 63 6f 6e 64 29 20 20 20 20 20 20 | ..................(`(cond)...... |
| 3580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 35a0 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .nil)........................... |
| 35c0 | 28 60 28 63 6f 6e 64 20 28 2c 6f 6e 6c 79 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 20 20 20 20 20 20 | (`(cond.(,only-condition))...... |
| 35e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f 65 | ...............(iter2--do-macroe |
| 3600 | 78 70 61 6e 64 20 6f 6e 6c 79 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 | xpand.only-condition)).......... |
| 3620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 63 6f 6e 64 20 28 2c 6f 6e 6c 79 2d | .................(`(cond.(,only- |
| 3640 | 63 6f 6e 64 69 74 69 6f 6e 20 2e 20 2c 62 6f 64 79 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 | condition...,body))............. |
| 3660 | 60 28 69 66 20 2c 6f 6e 6c 79 2d 63 6f 6e 64 69 74 69 6f 6e 20 2c 28 6d 61 63 72 6f 65 78 70 2d | `(if.,only-condition.,(macroexp- |
| 3680 | 70 72 6f 67 6e 20 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | progn.body)))................... |
| 36a0 | 20 20 20 20 20 20 20 20 28 60 28 2c 28 6f 72 20 27 6c 65 74 20 27 6c 65 74 2a 29 20 28 29 20 2e | ........(`(,(or.'let.'let*).().. |
| 36c0 | 20 2c 6c 65 74 2d 62 6f 64 79 29 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 6f 64 | .,let-body)............(setq.bod |
| 36e0 | 79 20 28 61 70 70 65 6e 64 20 28 63 64 72 20 6c 65 74 2d 62 6f 64 79 29 20 62 6f 64 79 29 29 20 | y.(append.(cdr.let-body).body)). |
| 3700 | 28 69 74 65 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 28 63 61 72 20 6c 65 74 2d | (iter2--do-macroexpand.(car.let- |
| 3720 | 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | body)))......................... |
| 3740 | 20 20 28 60 28 2c 28 6f 72 20 27 70 72 6f 67 6e 20 27 69 6e 6c 69 6e 65 29 29 20 20 20 20 20 20 | ..(`(,(or.'progn.'inline))...... |
| 3760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | .................nil)........... |
| 3780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 2c 28 6f 72 20 27 70 72 6f 67 6e 20 27 | ................(`(,(or.'progn.' |
| 37a0 | 69 6e 6c 69 6e 65 20 27 70 72 6f 67 31 29 20 2c 6f 6e 6c 79 2d 66 6f 72 6d 29 20 20 20 20 20 28 | inline.'prog1).,only-form).....( |
| 37c0 | 69 74 65 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 6f 6e 6c 79 2d 66 6f 72 6d 29 | iter2--do-macroexpand.only-form) |
| 37e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 2c | )...........................(`(, |
| 3800 | 28 6f 72 20 27 70 72 6f 67 6e 20 27 69 6e 6c 69 6e 65 29 20 2c 66 69 72 73 74 20 2e 20 2c 6f 74 | (or.'progn.'inline).,first...,ot |
| 3820 | 68 65 72 73 29 20 20 20 20 20 20 28 73 65 74 71 20 62 6f 64 79 20 28 61 70 70 65 6e 64 20 6f 74 | hers)......(setq.body.(append.ot |
| 3840 | 68 65 72 73 20 62 6f 64 79 29 29 20 28 69 74 65 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f 65 78 70 61 | hers.body)).(iter2--do-macroexpa |
| 3860 | 6e 64 20 66 69 72 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.first))...................... |
| 3880 | 20 20 20 20 20 28 60 28 70 72 6f 67 31 20 2c 76 61 6c 75 65 20 2e 20 2c 72 65 73 74 29 20 20 20 | .....(`(prog1.,value...,rest)... |
| 38a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 62 6f 64 79 0a 20 20 20 | ....................(if.body.... |
| 38c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 38e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3900 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 69 73 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20 67 | ..........;;.This.value.is.not.g |
| 3920 | 6f 69 6e 67 20 74 6f 20 62 65 20 75 73 65 64 20 61 6e 79 77 61 79 2c 0a 20 20 20 20 20 20 20 20 | oing.to.be.used.anyway,......... |
| 3940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3980 | 20 20 20 20 20 3b 3b 20 73 6f 20 6a 75 73 74 20 69 6e 6c 69 6e 65 20 74 68 69 73 20 69 6e 74 6f | .....;;.so.just.inline.this.into |
| 39a0 | 20 60 62 6f 64 79 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .`body'......................... |
| 39c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 39e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 73 65 | ......................(progn.(se |
| 3a00 | 74 71 20 62 6f 64 79 20 28 61 70 70 65 6e 64 20 72 65 73 74 20 62 6f 64 79 29 29 20 28 69 74 65 | tq.body.(append.rest.body)).(ite |
| 3a20 | 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 | r2--do-macroexpand.value))...... |
| 3a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3a80 | 20 20 20 20 20 20 3b 3b 20 44 6f 20 6e 6f 74 68 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 20 20 20 | ......;;.Do.nothing............. |
| 3aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3ae0 | 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | form)).......................... |
| 3b00 | 20 28 60 28 70 72 6f 67 32 20 2c 66 69 72 73 74 20 2c 73 65 63 6f 6e 64 20 2e 20 2c 6f 74 68 65 | .(`(prog2.,first.,second...,othe |
| 3b20 | 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 70 72 6f 67 31 20 28 70 72 6f 67 6e 20 2c | rs).............`(prog1.(progn., |
| 3b40 | 66 69 72 73 74 20 2c 73 65 63 6f 6e 64 29 20 2c 40 6f 74 68 65 72 73 29 29 0a 20 20 20 20 20 20 | first.,second).,@others))....... |
| 3b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 75 6e 77 69 6e 64 2d 70 72 | ....................(`(unwind-pr |
| 3b80 | 6f 74 65 63 74 20 2c 62 6f 64 79 2d 66 6f 72 6d 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | otect.,body-form)............... |
| 3ba0 | 20 20 20 28 69 74 65 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f 65 78 70 61 6e 64 20 62 6f 64 79 2d 66 | ...(iter2--do-macroexpand.body-f |
| 3bc0 | 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | orm))........................... |
| 3be0 | 28 60 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 2c 5f 20 2c 62 6f 64 79 2d 66 6f 72 6d 29 | (`(condition-case.,_.,body-form) |
| 3c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 64 6f 2d 6d 61 63 72 6f 65 | ...............(iter2--do-macroe |
| 3c20 | 78 70 61 6e 64 20 62 6f 64 79 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xpand.body-form))............... |
| 3c40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(_.................. |
| 3c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 29 | ...........................form) |
| 3c80 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 66 | )))....................(if.(eq.f |
| 3ca0 | 6f 72 6d 20 72 65 77 72 69 74 74 65 6e 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | orm.rewritten-form)............. |
| 3cc0 | 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........nil.................. |
| 3ce0 | 20 20 20 20 28 73 65 74 71 20 66 6f 72 6d 20 72 65 77 72 69 74 74 65 6e 2d 66 6f 72 6d 29 29 29 | ....(setq.form.rewritten-form))) |
| 3d00 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 63 61 73 65 20 66 6f 72 6d 0a 0a 20 20 20 20 20 20 20 | )...........(pcase.form......... |
| 3d20 | 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 6e 65 73 74 65 64 20 6c 61 6d 62 64 61 73 3b 20 6f | .....;;.Handle.nested.lambdas;.o |
| 3d40 | 70 74 69 6f 6e 61 6c 6c 79 20 63 68 65 63 6b 20 74 68 65 6d 20 66 6f 72 20 79 69 65 6c 64 73 2e | ptionally.check.them.for.yields. |
| 3d60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 66 75 6e 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 | .............(`(function.(lambda |
| 3d80 | 20 2c 5f 6c 61 6d 62 64 61 2d 61 72 67 73 20 2e 20 2c 6c 61 6d 62 64 61 2d 62 6f 64 79 29 29 0a | .,_lambda-args...,lambda-body)). |
| 3da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 75 6c 64 20 77 72 69 74 65 20 61 20 66 61 | .............;;.Could.write.a.fa |
| 3dc0 | 73 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 68 65 72 65 2c 20 62 75 74 20 70 72 6f 62 61 62 6c 79 | ster.function.here,.but.probably |
| 3de0 | 20 6e 6f 74 20 70 65 72 66 6f 72 6d 61 6e 63 65 2d 63 72 69 74 69 63 61 6c 2e 0a 20 20 20 20 20 | .not.performance-critical....... |
| 3e00 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 69 74 65 72 32 2d 64 65 74 65 63 74 2d | ........(when.(and.iter2-detect- |
| 3e20 | 6e 65 73 74 65 64 2d 6c 61 6d 62 64 61 2d 79 69 65 6c 64 73 20 28 63 64 72 20 28 69 74 65 72 32 | nested-lambda-yields.(cdr.(iter2 |
| 3e40 | 2d 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 67 6e 20 6c 61 6d 62 64 61 2d 62 6f 64 79 29 29 29 0a 20 | --convert-progn.lambda-body))).. |
| 3e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 65 73 74 65 64 20 61 6e 6f | ..............(error."Nested.ano |
| 3e80 | 6e 79 6d 6f 75 73 20 66 75 6e 63 74 69 6f 6e 20 25 53 20 79 69 65 6c 64 73 2c 20 77 68 69 63 68 | nymous.function.%S.yields,.which |
| 3ea0 | 20 77 69 6c 6c 20 66 61 69 6c 20 61 74 20 72 75 6e 74 69 6d 65 22 20 28 63 61 64 72 20 66 6f 72 | .will.fail.at.runtime".(cadr.for |
| 3ec0 | 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 6f 72 6d 20 63 6f 6e | m)))..............(push.form.con |
| 3ee0 | 76 65 72 74 65 64 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 | verted))..............;;.Handle. |
| 3f00 | 71 75 6f 74 69 6e 67 20 28 27 5f 20 61 6e 64 20 23 27 5f 29 3a 20 6a 75 73 74 20 70 61 73 73 20 | quoting.('_.and.#'_):.just.pass. |
| 3f20 | 69 74 20 74 68 72 6f 75 67 68 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 2c 28 6f 72 20 | it.through..............(`(,(or. |
| 3f40 | 27 71 75 6f 74 65 20 27 66 75 6e 63 74 69 6f 6e 29 20 2c 5f 29 0a 20 20 20 20 20 20 20 20 20 20 | 'quote.'function).,_)........... |
| 3f60 | 20 20 20 28 70 75 73 68 20 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 29 29 0a 0a 20 20 20 20 20 | ...(push.form.converted))....... |
| 3f80 | 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 28 61 6e 64 20 43 4f 4e 44 49 54 49 4f 4e 53 | .......;;.Handle.(and.CONDITIONS |
| 3fa0 | 2e 2e 2e 29 20 61 6e 64 20 28 6f 72 20 43 4f 4e 44 49 54 49 4f 4e 53 2e 2e 2e 29 2e 0a 20 20 20 | ...).and.(or.CONDITIONS...)..... |
| 3fc0 | 20 20 20 20 20 20 20 20 20 28 60 28 2c 28 61 6e 64 20 28 6f 72 20 27 61 6e 64 20 27 6f 72 29 20 | .........(`(,(and.(or.'and.'or). |
| 3fe0 | 6f 70 65 72 61 74 6f 72 29 20 2e 20 2c 63 6f 6e 64 69 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 | operator)...,conditions)........ |
| 4000 | 20 20 20 20 20 20 28 6c 65 74 20 28 70 6c 61 69 6e 2d 63 6f 6e 64 69 74 69 6f 6e 73 29 0a 20 20 | ......(let.(plain-conditions)... |
| 4020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 63 6f 6e 64 69 74 69 6f 6e 73 0a 20 | .............(while.conditions.. |
| 4040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6e 76 65 72 74 65 | ................(let*.((converte |
| 4060 | 64 2d 63 6f 6e 64 69 74 69 6f 6e 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 | d-condition......(iter2--convert |
| 4080 | 2d 66 6f 72 6d 20 28 70 6f 70 20 63 6f 6e 64 69 74 69 6f 6e 73 29 29 29 0a 20 20 20 20 20 20 20 | -form.(pop.conditions)))........ |
| 40a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 | .................(converted-cond |
| 40c0 | 69 74 69 6f 6e 2d 66 6f 72 6d 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 | ition-form.(car.converted-condit |
| 40e0 | 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 | ion)))....................(if.(c |
| 4100 | 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | dr.converted-condition)......... |
| 4120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 | ...............(progn........... |
| 4140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 63 6f 6e 64 69 74 69 6f 6e 73 0a 20 20 | ...............(if.conditions... |
| 4160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | ...........................(let. |
| 4180 | 28 28 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 28 69 74 65 72 32 2d | ((converted-continuation.(iter2- |
| 41a0 | 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 60 28 2c 6f 70 65 72 61 74 6f 72 20 2c 28 63 64 72 20 | -convert-form.`(,operator.,(cdr. |
| 41c0 | 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 20 2c 40 63 6f 6e 64 69 74 69 6f 6e | converted-condition).,@condition |
| 41e0 | 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s))))........................... |
| 4200 | 20 20 20 20 20 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 | .....(setq.converted-condition-f |
| 4220 | 6f 72 6d 20 60 28 70 72 6f 67 6e 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f | orm.`(progn.,(iter2--continuatio |
| 4240 | 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 6c 69 73 74 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 | n-adding-form.(list.(iter2--merg |
| 4260 | 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f | e-continuation-form.converted-co |
| 4280 | 6e 74 69 6e 75 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ntinuation)))................... |
| 42a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 42c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d | ....................,@(macroexp- |
| 42e0 | 75 6e 70 72 6f 67 6e 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d | unprogn.converted-condition-form |
| 4300 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ))))............................ |
| 4320 | 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 20 28 | (setq.converted-condition-form.( |
| 4340 | 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 | iter2--merge-continuation-form.c |
| 4360 | 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | onverted-condition)))........... |
| 4380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 6c 61 69 6e 2d 63 6f 6e 64 69 | ...............(when.plain-condi |
| 43a0 | 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tions........................... |
| 43c0 | 20 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 20 | .(setq.converted-condition-form. |
| 43e0 | 60 28 2c 6f 70 65 72 61 74 6f 72 20 2c 40 28 6e 72 65 76 65 72 73 65 20 70 6c 61 69 6e 2d 63 6f | `(,operator.,@(nreverse.plain-co |
| 4400 | 6e 64 69 74 69 6f 6e 73 29 20 2c 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 | nditions).,converted-condition-f |
| 4420 | 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | orm))).......................... |
| 4440 | 28 69 74 65 72 32 2d 2d 61 64 64 2d 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 63 6f 6e 76 65 | (iter2--add-converted-form.conve |
| 4460 | 72 74 65 64 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 29 0a 20 | rted.converted-condition-form).. |
| 4480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 | ........................(setq.ca |
| 44a0 | 6e 2d 79 69 65 6c 64 20 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-yield..t...................... |
| 44c0 | 20 20 20 20 20 20 20 20 20 20 63 6f 6e 64 69 74 69 6f 6e 73 20 6e 69 6c 29 29 0a 20 20 20 20 20 | ..........conditions.nil))...... |
| 44e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 63 6f 6e 76 65 72 74 65 64 2d | ................(push.converted- |
| 4500 | 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 20 70 6c 61 69 6e 2d 63 6f 6e 64 69 74 69 6f 6e 73 29 | condition-form.plain-conditions) |
| 4520 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 2d 79 | )))................(unless.can-y |
| 4540 | 69 65 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 2c 6f | ield..................(push.`(,o |
| 4560 | 70 65 72 61 74 6f 72 20 2c 40 28 6e 72 65 76 65 72 73 65 20 70 6c 61 69 6e 2d 63 6f 6e 64 69 74 | perator.,@(nreverse.plain-condit |
| 4580 | 69 6f 6e 73 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 | ions)).converted))))............ |
| 45a0 | 20 20 3b 3b 20 48 61 6e 64 6c 65 20 28 69 66 20 43 4f 4e 44 49 54 49 4f 4e 20 54 48 45 4e 20 5b | ..;;.Handle.(if.CONDITION.THEN.[ |
| 45c0 | 45 4c 53 45 2e 2e 2e 5d 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 69 66 20 2c 63 6f | ELSE...])..............(`(if.,co |
| 45e0 | 6e 64 69 74 69 6f 6e 20 2c 74 68 65 6e 20 2e 20 2c 65 6c 73 65 29 0a 20 20 20 20 20 20 20 20 20 | ndition.,then...,else).......... |
| 4600 | 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 20 28 | ....(let.((converted-condition.( |
| 4620 | 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 63 6f 6e 64 69 74 69 6f 6e 29 29 0a | iter2--convert-form.condition)). |
| 4640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 64 2d 74 68 | ...................(converted-th |
| 4660 | 65 6e 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 20 74 68 | en......(iter2--convert-form..th |
| 4680 | 65 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 | en))....................(convert |
| 46a0 | 65 64 2d 65 6c 73 65 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 72 6f | ed-else......(iter2--convert-pro |
| 46c0 | 67 6e 20 65 6c 73 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 | gn.else)))................(if.(c |
| 46e0 | 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | dr.converted-condition)......... |
| 4700 | 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 69 74 65 72 32 2d 2d 61 64 64 2d 63 6f | ...........(progn.(iter2--add-co |
| 4720 | 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 20 28 63 61 72 20 63 6f 6e 76 | nverted-form.converted.(car.conv |
| 4740 | 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | erted-condition))............... |
| 4760 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 66 69 6e 69 73 68 2d 63 68 75 6e 6b | ............(iter2--finish-chunk |
| 4780 | 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 20 63 6f 6e 76 65 72 74 65 64 0a 20 20 20 20 | .converted-chunks.converted..... |
| 47a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 47c0 | 20 20 20 20 20 20 20 20 20 20 20 60 28 69 66 20 2c 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d | ...........`(if.,(cdr.converted- |
| 47e0 | 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | condition)...................... |
| 4800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | ..............................., |
| 4820 | 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 | (iter2--merge-continuation-form. |
| 4840 | 63 6f 6e 76 65 72 74 65 64 2d 74 68 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | converted-then)................. |
| 4860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4880 | 20 20 2c 40 28 77 68 65 6e 20 65 6c 73 65 20 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e | ..,@(when.else.(macroexp-unprogn |
| 48a0 | 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d | .(iter2--merge-continuation-form |
| 48c0 | 20 63 6f 6e 76 65 72 74 65 64 2d 65 6c 73 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .converted-else))))))........... |
| 48e0 | 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 69 66 20 2c 28 63 61 72 20 63 6f 6e 76 65 72 74 65 | .......(push.`(if.,(car.converte |
| 4900 | 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-condition).................... |
| 4920 | 20 20 20 20 20 20 20 20 20 2c 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 | .........,(iter2--merge-continua |
| 4940 | 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 74 68 65 6e 29 0a 20 20 20 20 20 20 | tion-form.converted-then)....... |
| 4960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 77 68 65 6e 20 65 6c 73 65 | ....................,@(when.else |
| 4980 | 20 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 | .(macroexp-unprogn.(iter2--merge |
| 49a0 | 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 65 6c 73 | -continuation-form.converted-els |
| 49c0 | 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e | e))))........................con |
| 49e0 | 76 65 72 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 | verted))................(setq.ca |
| 4a00 | 6e 2d 79 69 65 6c 64 20 28 6f 72 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 74 68 65 6e 29 | n-yield.(or.(cdr.converted-then) |
| 4a20 | 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 65 6c 73 65 29 29 29 29 29 0a 0a 20 20 20 20 20 | .(cdr.converted-else)))))....... |
| 4a40 | 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 28 63 6f 6e 64 20 5b 43 4c 41 55 53 45 53 2e | .......;;.Handle.(cond.[CLAUSES. |
| 4a60 | 2e 2e 5d 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 63 6f 6e 64 20 2e 20 2c 63 6c 61 | ..])..............(`(cond...,cla |
| 4a80 | 75 73 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 63 6f 6e 76 65 72 74 | uses)..............(let.(convert |
| 4aa0 | 65 64 2d 63 6c 61 75 73 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | ed-clauses....................co |
| 4ac0 | 6e 64 69 74 69 6f 6e 73 2d 63 61 6e 2d 79 69 65 6c 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nditions-can-yield)............. |
| 4ae0 | 20 20 20 28 77 68 69 6c 65 20 63 6c 61 75 73 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(while.clauses............... |
| 4b00 | 20 20 20 28 6c 65 74 2a 20 28 28 63 6c 61 75 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(let*.((clause............... |
| 4b20 | 20 20 20 20 28 70 6f 70 20 63 6c 61 75 73 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(pop.clauses)).............. |
| 4b40 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 20 | ...........(converted-condition. |
| 4b60 | 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 28 63 61 72 20 63 | .....(iter2--convert-form.(car.c |
| 4b80 | 6c 61 75 73 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lause)))........................ |
| 4ba0 | 20 28 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 20 28 63 61 72 20 | .(converted-condition-form.(car. |
| 4bc0 | 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | converted-condition))........... |
| 4be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 61 75 73 65 2d 62 6f 64 79 20 20 20 20 20 20 | ..............(clause-body...... |
| 4c00 | 20 20 20 20 20 20 20 20 28 63 64 72 20 63 6c 61 75 73 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ........(cdr.clause))).......... |
| 4c20 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e | ..........(if.(cdr.converted-con |
| 4c40 | 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | dition)........................( |
| 4c60 | 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 28 69 74 | let.((converted-continuation.(it |
| 4c80 | 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 60 28 63 6f 6e 64 20 28 2c 28 63 64 72 20 | er2--convert-form.`(cond.(,(cdr. |
| 4ca0 | 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 20 2c 40 63 6c 61 75 73 65 2d 62 6f | converted-condition).,@clause-bo |
| 4cc0 | 64 79 29 20 2c 40 63 6c 61 75 73 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dy).,@clauses))))............... |
| 4ce0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 | ...........(setq.converted-condi |
| 4d00 | 74 69 6f 6e 2d 66 6f 72 6d 20 60 28 70 72 6f 67 6e 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 | tion-form.`(progn.,(iter2--conti |
| 4d20 | 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 6c 69 73 74 20 28 69 74 65 72 32 | nuation-adding-form.(list.(iter2 |
| 4d40 | 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 | --merge-continuation-form.conver |
| 4d60 | 74 65 64 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ted-continuation)))............. |
| 4d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d | ....................,@(macroexp- |
| 4dc0 | 75 6e 70 72 6f 67 6e 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d | unprogn.converted-condition-form |
| 4de0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 | )))..........................(wh |
| 4e00 | 65 6e 20 63 6f 6e 76 65 72 74 65 64 2d 63 6c 61 75 73 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 | en.converted-clauses............ |
| 4e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 64 2d | ................(setq.converted- |
| 4e40 | 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d 20 60 28 63 6f 6e 64 20 2c 40 28 6e 72 65 76 65 72 73 | condition-form.`(cond.,@(nrevers |
| 4e60 | 65 20 63 6f 6e 76 65 72 74 65 64 2d 63 6c 61 75 73 65 73 29 20 28 74 20 2c 40 28 6d 61 63 72 6f | e.converted-clauses).(t.,@(macro |
| 4e80 | 65 78 70 2d 75 6e 70 72 6f 67 6e 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d | exp-unprogn.converted-condition- |
| 4ea0 | 66 6f 72 6d 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | form)))))....................... |
| 4ec0 | 20 20 20 28 69 74 65 72 32 2d 2d 61 64 64 2d 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 63 6f | ...(iter2--add-converted-form.co |
| 4ee0 | 6e 76 65 72 74 65 64 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 2d 66 6f 72 6d | nverted.converted-condition-form |
| 4f00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | )..........................(setq |
| 4f20 | 20 63 6f 6e 64 69 74 69 6f 6e 73 2d 63 61 6e 2d 79 69 65 6c 64 20 74 0a 20 20 20 20 20 20 20 20 | .conditions-can-yield.t......... |
| 4f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 61 75 73 65 73 20 20 | .......................clauses.. |
| 4f60 | 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............nil))............... |
| 4f80 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 20 28 77 68 | .......(let.((converted-body.(wh |
| 4fa0 | 65 6e 20 63 6c 61 75 73 65 2d 62 6f 64 79 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 | en.clause-body.(iter2--convert-p |
| 4fc0 | 72 6f 67 6e 20 63 6c 61 75 73 65 2d 62 6f 64 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | rogn.clause-body))))............ |
| 4fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 2c 28 63 61 72 20 63 6f 6e 76 65 72 | ............(push.`(,(car.conver |
| 5000 | 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 20 2c 40 28 77 68 65 6e 20 63 6c 61 75 73 65 2d 62 6f | ted-condition).,@(when.clause-bo |
| 5020 | 64 79 20 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 69 74 65 72 32 2d 2d 6d 65 72 | dy.(macroexp-unprogn.(iter2--mer |
| 5040 | 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 62 | ge-continuation-form.converted-b |
| 5060 | 6f 64 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ody))))......................... |
| 5080 | 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 2d 63 6c 61 75 73 65 73 29 0a 20 20 20 20 20 20 20 20 | .....converted-clauses)......... |
| 50a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 64 72 20 63 6f 6e 76 65 72 | ...............(when.(cdr.conver |
| 50c0 | 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ted-body)....................... |
| 50e0 | 20 20 20 28 73 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 74 29 29 29 29 29 29 0a 20 20 20 20 20 | ...(setq.can-yield.t))))))...... |
| 5100 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 63 6f 6e 64 69 74 69 6f 6e 73 2d 63 61 6e 2d 79 69 65 | ..........(if.conditions-can-yie |
| 5120 | 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 2d | ld....................(setq.can- |
| 5140 | 79 69 65 6c 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | yield.t)..................(push. |
| 5160 | 60 28 63 6f 6e 64 20 2c 40 28 6e 72 65 76 65 72 73 65 20 63 6f 6e 76 65 72 74 65 64 2d 63 6c 61 | `(cond.,@(nreverse.converted-cla |
| 5180 | 75 73 65 73 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 | uses)).converted))))............ |
| 51a0 | 20 20 3b 3b 20 48 61 6e 64 6c 65 20 28 77 68 69 6c 65 20 43 4f 4e 44 49 54 49 4f 4e 20 5b 57 48 | ..;;.Handle.(while.CONDITION.[WH |
| 51c0 | 49 4c 45 2d 42 4f 44 59 2e 2e 2e 5d 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 77 68 | ILE-BODY...])..............(`(wh |
| 51e0 | 69 6c 65 20 2c 63 6f 6e 64 69 74 69 6f 6e 20 2e 20 2c 77 68 69 6c 65 2d 62 6f 64 79 29 0a 20 20 | ile.,condition...,while-body)... |
| 5200 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e | ...........(let*.((converted-con |
| 5220 | 64 69 74 69 6f 6e 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 63 6f 6e | dition..(iter2--convert-form.con |
| 5240 | 64 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | dition)).....................(co |
| 5260 | 6e 76 65 72 74 65 64 2d 77 68 69 6c 65 2d 62 6f 64 79 20 28 77 68 65 6e 20 77 68 69 6c 65 2d 62 | nverted-while-body.(when.while-b |
| 5280 | 6f 64 79 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 67 6e 20 77 68 69 6c 65 2d | ody.(iter2--convert-progn.while- |
| 52a0 | 62 6f 64 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 | body))))................(if.(or. |
| 52c0 | 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 20 28 63 64 72 20 63 | (cdr.converted-condition).(cdr.c |
| 52e0 | 6f 6e 76 65 72 74 65 64 2d 77 68 69 6c 65 2d 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 | onverted-while-body))........... |
| 5300 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 70 65 63 69 61 6c 2d 65 6d 70 74 79 2d 62 6f | .........(let.((special-empty-bo |
| 5320 | 64 79 20 28 61 6e 64 20 28 6e 75 6c 6c 20 77 68 69 6c 65 2d 62 6f 64 79 29 20 28 65 71 20 28 63 | dy.(and.(null.while-body).(eq.(c |
| 5340 | 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 20 69 74 65 72 32 2d 2d 76 | dr.converted-condition).iter2--v |
| 5360 | 61 6c 75 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | alue))))......................(w |
| 5380 | 68 65 6e 20 77 68 69 6c 65 2d 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hen.while-body.................. |
| 53a0 | 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 64 2d 77 68 69 6c 65 2d 62 6f 64 79 | ......(setq.converted-while-body |
| 53c0 | 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d | .(iter2--merge-continuation-form |
| 53e0 | 20 63 6f 6e 76 65 72 74 65 64 2d 77 68 69 6c 65 2d 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 | .converted-while-body)))........ |
| 5400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 | ..............(if.(cdr.converted |
| 5420 | 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -condition)..................... |
| 5440 | 20 20 20 20 20 3b 3b 20 43 6f 6e 64 69 74 69 6f 6e 20 79 69 65 6c 64 73 3b 20 77 68 65 74 68 65 | .....;;.Condition.yields;.whethe |
| 5460 | 72 20 62 6f 64 79 20 79 69 65 6c 64 73 20 74 6f 6f 20 69 73 20 6e 6f 74 20 72 65 6c 65 76 61 6e | r.body.yields.too.is.not.relevan |
| 5480 | 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | t...........................(let |
| 54a0 | 20 28 28 69 6e 6e 65 72 2d 66 6f 72 6d 20 60 28 69 66 20 2c 28 63 64 72 20 63 6f 6e 76 65 72 74 | .((inner-form.`(if.,(cdr.convert |
| 54c0 | 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-condition)................... |
| 54e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | ..............................(p |
| 5500 | 72 6f 67 6e 20 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 | rogn.(setq.,iter2--continuations |
| 5520 | 20 28 63 6f 6e 73 20 28 63 61 72 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 20 2c 69 74 65 72 | .(cons.(car.,iter2--stack).,iter |
| 5540 | 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | 2--continuations)).............. |
| 5560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5580 | 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 69 | ..........,@(macroexp-unprogn.(i |
| 55a0 | 66 20 73 70 65 63 69 61 6c 2d 65 6d 70 74 79 2d 62 6f 64 79 20 28 63 61 72 20 63 6f 6e 76 65 72 | f.special-empty-body.(car.conver |
| 55c0 | 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 20 63 6f 6e 76 65 72 74 65 64 2d 77 68 69 6c 65 2d 62 | ted-condition).converted-while-b |
| 55e0 | 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ody))).......................... |
| 5600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2c 69 74 65 72 | .....................(setq.,iter |
| 5620 | 32 2d 2d 73 74 61 63 6b 20 28 63 64 72 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 29 29 29 29 | 2--stack.(cdr.,iter2--stack))))) |
| 5640 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | ............................(pus |
| 5660 | 68 20 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f | h.(iter2--continuation-adding-fo |
| 5680 | 72 6d 20 28 6c 69 73 74 20 28 69 66 20 73 70 65 63 69 61 6c 2d 65 6d 70 74 79 2d 62 6f 64 79 0a | rm.(list.(if.special-empty-body. |
| 56a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 56c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 56e0 | 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 6e 65 72 2d 66 6f 72 6d 0a 20 20 20 20 20 20 20 20 20 | ............inner-form.......... |
| 5700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5740 | 20 60 28 70 72 6f 67 6e 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 | .`(progn.,(iter2--continuation-a |
| 5760 | 64 64 69 6e 67 2d 66 6f 72 6d 20 28 6c 69 73 74 20 69 6e 6e 65 72 2d 66 6f 72 6d 29 29 0a 20 20 | dding-form.(list.inner-form))... |
| 5780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 57a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 57c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 | ................,@(macroexp-unpr |
| 57e0 | 6f 67 6e 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 29 29 29 | ogn.(car.converted-condition)))) |
| 5800 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 5820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5840 | 20 20 20 20 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....iter2--stack)............... |
| 5860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 29 29 0a 20 | ...................converted)).. |
| 5880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4f 6e 6c 79 20 62 6f | ......................;;.Only.bo |
| 58a0 | 64 79 20 79 69 65 6c 64 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dy.yields....................... |
| 58c0 | 20 20 28 70 75 73 68 20 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 | ..(push.(iter2--continuation-add |
| 58e0 | 69 6e 67 2d 66 6f 72 6d 20 28 6c 69 73 74 20 60 28 69 66 20 2c 28 63 61 72 20 63 6f 6e 76 65 72 | ing-form.(list.`(if.,(car.conver |
| 5900 | 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ted-condition).................. |
| 5920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 | ........................(progn.( |
| 5960 | 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 28 63 6f 6e 73 | setq.,iter2--continuations.(cons |
| 5980 | 20 28 63 61 72 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 20 2c 69 74 65 72 32 2d 2d 63 6f 6e | .(car.,iter2--stack).,iter2--con |
| 59a0 | 74 69 6e 75 61 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tinuations)).................... |
| 59c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 59e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 | .............................,@( |
| 5a00 | 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 63 6f 6e 76 65 72 74 65 64 2d 77 68 69 6c 65 | macroexp-unprogn.converted-while |
| 5a20 | 2d 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -body))......................... |
| 5a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 73 74 61 | ...............(setq.,iter2--sta |
| 5a80 | 63 6b 20 28 63 64 72 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 29 29 29 0a 20 20 20 20 20 20 | ck.(cdr.,iter2--stack))))....... |
| 5aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 74 65 72 32 2d 2d 73 | ........................iter2--s |
| 5ae0 | 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tack)........................... |
| 5b00 | 20 20 20 63 6f 6e 76 65 72 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...converted)).................. |
| 5b20 | 20 20 20 20 28 70 75 73 68 20 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 69 | ....(push.(iter2--continuation-i |
| 5b40 | 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 20 73 70 65 63 69 61 6c 2d 65 6d 70 74 79 2d 62 6f 64 | nvocation-form.special-empty-bod |
| 5b60 | 79 20 60 28 63 61 72 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 29 20 63 6f 6e 76 65 72 74 65 | y.`(car.,iter2--stack)).converte |
| 5b80 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 | d)......................(setq.ca |
| 5ba0 | 6e 2d 79 69 65 6c 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | n-yield.t))..................;;. |
| 5bc0 | 4e 6f 74 68 69 6e 67 20 79 69 65 6c 64 73 2c 20 74 68 65 20 73 69 6d 70 6c 65 73 74 20 63 61 73 | Nothing.yields,.the.simplest.cas |
| 5be0 | 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 77 68 69 6c | e...................(push.`(whil |
| 5c00 | 65 20 2c 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6f 6e 64 69 74 69 6f 6e 29 20 2c 40 28 | e.,(car.converted-condition).,@( |
| 5c20 | 77 68 65 6e 20 77 68 69 6c 65 2d 62 6f 64 79 20 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 | when.while-body.(macroexp-unprog |
| 5c40 | 6e 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 77 68 69 6c 65 2d 62 6f 64 79 29 29 29 29 20 | n.(car.converted-while-body)))). |
| 5c60 | 63 6f 6e 76 65 72 74 65 64 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 | converted))))..............;;.Ha |
| 5c80 | 6e 64 6c 65 20 28 6c 65 74 20 28 42 49 4e 44 49 4e 47 53 29 20 4c 45 54 2d 42 4f 44 59 29 20 61 | ndle.(let.(BINDINGS).LET-BODY).a |
| 5ca0 | 6e 64 20 28 6c 65 74 2a 20 28 42 49 4e 44 49 4e 47 53 29 20 4c 45 54 2d 42 4f 44 59 29 2e 0a 20 | nd.(let*.(BINDINGS).LET-BODY)... |
| 5cc0 | 20 20 20 20 20 20 20 20 20 20 20 28 60 28 2c 28 61 6e 64 20 28 6f 72 20 27 6c 65 74 20 27 6c 65 | ...........(`(,(and.(or.'let.'le |
| 5ce0 | 74 2a 29 20 6c 65 74 2d 6b 69 6e 64 29 20 2c 62 69 6e 64 69 6e 67 73 20 2e 20 2c 6c 65 74 2d 62 | t*).let-kind).,bindings...,let-b |
| 5d00 | 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6c 61 69 6e 2d 6c | ody)..............(let.((plain-l |
| 5d20 | 65 74 20 20 20 20 20 20 20 20 28 65 71 20 6c 65 74 2d 6b 69 6e 64 20 27 6c 65 74 29 29 0a 20 20 | et........(eq.let-kind.'let))... |
| 5d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 2d 62 69 6e 64 69 | .................converted-bindi |
| 5d60 | 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 63 68 65 72 2d 6f | ngs....................catcher-o |
| 5d80 | 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uter-bindings................... |
| 5da0 | 20 63 61 74 63 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 | .catcher-inner-bindings......... |
| 5dc0 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 72 65 73 74 20 61 72 65 20 75 6e 75 73 65 | ...........;;.The.rest.are.unuse |
| 5de0 | 64 20 66 6f 72 20 60 6c 65 74 2a 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.for.`let*'.................... |
| 5e00 | 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 73 0a 20 20 20 20 | .next-continuation-bindings..... |
| 5e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 73 2d 74 6f 2d 73 61 76 65 2d 6f 6e | ...............values-to-save-on |
| 5e40 | 2d 73 74 61 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 2d 73 | -stack....................(num-s |
| 5e60 | 74 61 63 6b 2d 76 61 6c 75 65 73 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | tack-values.0))................( |
| 5e80 | 77 68 69 6c 65 20 62 69 6e 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | while.bindings.................. |
| 5ea0 | 28 6c 65 74 2a 20 28 28 62 69 6e 64 69 6e 67 20 28 70 6f 70 20 62 69 6e 64 69 6e 67 73 29 29 0a | (let*.((binding.(pop.bindings)). |
| 5ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 72 0a 20 20 20 20 | ........................var..... |
| 5ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 29 0a 20 20 20 20 20 | ....................value)...... |
| 5f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 61 73 65 20 62 69 6e 64 69 6e 67 0a 20 20 20 | ..............(pcase.binding.... |
| 5f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 70 72 65 64 20 73 79 6d 62 6f 6c 70 | ..................((pred.symbolp |
| 5f40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 76 61 | ).......................(setq.va |
| 5f60 | 72 20 20 20 62 69 6e 64 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r...binding))................... |
| 5f80 | 20 20 20 28 60 28 2c 28 61 6e 64 20 28 70 72 65 64 20 73 79 6d 62 6f 6c 70 29 20 76 61 72 69 61 | ...(`(,(and.(pred.symbolp).varia |
| 5fa0 | 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | ble)).......................(set |
| 5fc0 | 71 20 76 61 72 20 20 20 76 61 72 69 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | q.var...variable)).............. |
| 5fe0 | 20 20 20 20 20 20 20 20 28 60 28 2c 28 61 6e 64 20 28 70 72 65 64 20 73 79 6d 62 6f 6c 70 29 20 | ........(`(,(and.(pred.symbolp). |
| 6000 | 76 61 72 69 61 62 6c 65 29 20 2c 76 61 6c 75 65 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 | variable).,value-form).......... |
| 6020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 76 61 72 20 20 20 76 61 72 69 61 62 6c | .............(setq.var...variabl |
| 6040 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 | e.............................va |
| 6060 | 6c 75 65 20 76 61 6c 75 65 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lue.value-form))................ |
| 6080 | 20 20 20 20 20 20 28 5f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ......(_.......................( |
| 60a0 | 65 72 72 6f 72 20 22 45 72 72 6f 6e 65 6f 75 73 20 62 69 6e 64 69 6e 67 20 25 53 22 20 62 69 6e | error."Erroneous.binding.%S".bin |
| 60c0 | 64 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | ding)))....................(let. |
| 60e0 | 28 28 73 70 65 63 69 61 6c 20 28 69 74 65 72 32 2d 2d 73 70 65 63 69 61 6c 2d 76 61 72 69 61 62 | ((special.(iter2--special-variab |
| 6100 | 6c 65 2d 70 20 76 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-p.var))...................... |
| 6120 | 20 20 20 20 28 6c 69 74 65 72 61 6c 20 28 69 74 65 72 32 2d 2d 6c 69 74 65 72 61 6c 70 20 76 61 | ....(literal.(iter2--literalp.va |
| 6140 | 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | lue)))......................(con |
| 6160 | 64 20 28 6c 69 74 65 72 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.(literal...................... |
| 6180 | 20 20 20 20 20 20 20 28 70 75 73 68 20 62 69 6e 64 69 6e 67 20 63 6f 6e 76 65 72 74 65 64 2d 62 | .......(push.binding.converted-b |
| 61a0 | 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | indings)........................ |
| 61c0 | 20 20 20 20 20 28 77 68 65 6e 20 70 6c 61 69 6e 2d 6c 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 | .....(when.plain-let............ |
| 61e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 62 69 6e 64 69 6e 67 | ...................(push.binding |
| 6200 | 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 73 29 29 29 0a 20 | .next-continuation-bindings))).. |
| 6220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 76 | ..........................((eq.v |
| 6240 | 61 6c 75 65 20 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 | alue.iter2--stack-state)........ |
| 6260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 69 73 20 69 73 20 | .....................;;.This.is. |
| 6280 | 6f 75 72 20 70 72 69 76 61 74 65 20 69 6e 74 65 72 6e 61 6c 20 66 6c 61 67 20 74 68 61 74 20 6d | our.private.internal.flag.that.m |
| 62a0 | 65 61 6e 73 20 22 74 61 6b 65 20 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eans."take.a.................... |
| 62c0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 70 72 65 76 69 6f 75 73 6c 79 20 63 6f 6d 70 75 74 65 64 20 | .........;;.previously.computed. |
| 62e0 | 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 65 20 73 74 61 63 6b 22 2e 20 20 53 74 61 63 6b 20 69 73 | value.from.the.stack"...Stack.is |
| 6300 | 20 6f 6e 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .only........................... |
| 6320 | 20 20 3b 3b 20 75 73 65 64 20 66 6f 72 20 70 6c 61 69 6e 20 60 6c 65 74 27 2c 20 6e 65 76 65 72 | ..;;.used.for.plain.`let',.never |
| 6340 | 20 66 6f 72 20 60 6c 65 74 2a 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .for.`let*'..................... |
| 6360 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 2c 76 61 72 20 28 70 6f 70 20 2c 69 74 65 72 | .........(push.`(,var.(pop.,iter |
| 6380 | 32 2d 2d 73 74 61 63 6b 29 29 20 63 6f 6e 76 65 72 74 65 64 2d 62 69 6e 64 69 6e 67 73 29 0a 20 | 2--stack)).converted-bindings).. |
| 63a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | ...........................(push |
| 63c0 | 20 60 28 2c 76 61 72 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 74 61 74 65 29 20 6e 65 78 | .`(,var.,iter2--stack-state).nex |
| 63e0 | 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 | t-continuation-bindings)........ |
| 6400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 75 6d 2d 73 | .....................(setq.num-s |
| 6420 | 74 61 63 6b 2d 76 61 6c 75 65 73 20 28 31 2b 20 6e 75 6d 2d 73 74 61 63 6b 2d 76 61 6c 75 65 73 | tack-values.(1+.num-stack-values |
| 6440 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )))............................( |
| 6460 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | t.............................(l |
| 6480 | 65 74 2a 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 20 20 20 20 20 20 28 69 74 65 72 | et*.((converted-value......(iter |
| 64a0 | 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 | 2--convert-form.value))......... |
| 64c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 | ...........................(conv |
| 64e0 | 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d | erted-value-form.(car.converted- |
| 6500 | 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | value)))........................ |
| 6520 | 20 20 20 20 20 20 20 28 69 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 29 | .......(if.(cdr.converted-value) |
| 6540 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6560 | 20 20 20 28 70 72 6f 67 6e 20 28 69 66 20 28 6f 72 20 70 6c 61 69 6e 2d 6c 65 74 20 28 6e 75 6c | ...(progn.(if.(or.plain-let.(nul |
| 6580 | 6c 20 63 6f 6e 76 65 72 74 65 64 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 | l.converted-bindings)).......... |
| 65a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 65c0 | 20 20 20 20 3b 3b 20 59 69 65 6c 64 69 6e 67 20 62 65 66 6f 72 65 20 61 6e 79 74 68 69 6e 67 20 | ....;;.Yielding.before.anything. |
| 65e0 | 69 73 20 62 6f 75 6e 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | is.bound........................ |
| 6600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 77 | .......................(progn.(w |
| 6620 | 68 65 6e 20 76 61 6c 75 65 73 2d 74 6f 2d 73 61 76 65 2d 6f 6e 2d 73 74 61 63 6b 0a 20 20 20 20 | hen.values-to-save-on-stack..... |
| 6640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 69 74 65 72 32 2d 2d | ..................(push.(iter2-- |
| 6680 | 73 74 61 63 6b 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 6e 72 65 76 65 72 73 65 20 76 61 6c 75 | stack-adding-form.(nreverse.valu |
| 66a0 | 65 73 2d 74 6f 2d 73 61 76 65 2d 6f 6e 2d 73 74 61 63 6b 29 29 20 63 6f 6e 76 65 72 74 65 64 29 | es-to-save-on-stack)).converted) |
| 66c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 66e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 61 64 | ......................(iter2--ad |
| 6700 | 64 2d 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 20 63 6f 6e 76 65 | d-converted-form.converted.conve |
| 6720 | 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rted-value-form)................ |
| 6740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6760 | 20 20 20 20 20 28 69 74 65 72 32 2d 2d 66 69 6e 69 73 68 2d 63 68 75 6e 6b 20 63 6f 6e 76 65 72 | .....(iter2--finish-chunk.conver |
| 6780 | 74 65 64 2d 63 68 75 6e 6b 73 20 63 6f 6e 76 65 72 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 | ted-chunks.converted............ |
| 67a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 67c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | ..............................(i |
| 67e0 | 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 28 69 | ter2--merge-continuation-form.(i |
| 6800 | 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 60 28 2c 6c 65 74 2d 6b 69 6e 64 20 28 | ter2--convert-form.`(,let-kind.( |
| 6820 | 2c 40 28 6e 72 65 76 65 72 73 65 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 62 69 | ,@(nreverse.next-continuation-bi |
| 6840 | 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ndings)......................... |
| 6860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 68a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 68c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2c 76 61 72 20 | ..........................(,var. |
| 68e0 | 2c 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 | ,(cdr.converted-value))......... |
| 6900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6980 | 20 20 20 20 20 20 20 20 20 20 2c 40 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 | ..........,@bindings)........... |
| 69a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 69c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 69e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c | ..............................., |
| 6a20 | 40 6c 65 74 2d 62 6f 64 79 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | @let-body))))).................. |
| 6a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 | ..........................;;.We. |
| 6a60 | 6e 65 65 64 20 74 6f 20 62 69 6e 64 20 61 6c 72 65 61 64 79 20 63 6f 6e 76 65 72 74 65 64 20 76 | need.to.bind.already.converted.v |
| 6a80 | 61 6c 75 65 73 20 6e 6f 77 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | alues.now....................... |
| 6aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 69 74 65 | ......................(push.(ite |
| 6ac0 | 72 32 2d 2d 6c 65 74 2a 2d 79 69 65 6c 64 69 6e 67 2d 66 6f 72 6d 20 63 61 74 63 68 65 72 2d 6f | r2--let*-yielding-form.catcher-o |
| 6ae0 | 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 20 63 61 74 63 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 | uter-bindings.catcher-inner-bind |
| 6b00 | 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ings............................ |
| 6b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 | .................(iter2--merge-c |
| 6b60 | 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 | ontinuation-form.(iter2--convert |
| 6b80 | 2d 66 6f 72 6d 20 60 28 6c 65 74 2a 20 28 28 2c 76 61 72 20 2c 69 74 65 72 32 2d 2d 76 61 6c 75 | -form.`(let*.((,var.,iter2--valu |
| 6ba0 | 65 29 20 2c 40 62 69 6e 64 69 6e 67 73 29 20 2c 40 6c 65 74 2d 62 6f 64 79 29 29 29 0a 20 20 20 | e).,@bindings).,@let-body))).... |
| 6bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6c00 | 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 | .........(iter2--merge-continuat |
| 6c20 | 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 29 29 0a 20 20 20 20 20 | ion-form.converted-value))...... |
| 6c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6c60 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 | ............converted))......... |
| 6c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6ca0 | 20 28 73 65 74 71 20 62 69 6e 64 69 6e 67 73 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 | .(setq.bindings..nil............ |
| 6cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6ce0 | 20 20 20 20 63 61 6e 2d 79 69 65 6c 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....can-yield.t))............... |
| 6d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 2c 76 61 72 20 2c | ..................(push.`(,var., |
| 6d20 | 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 29 20 63 6f 6e 76 65 72 74 65 64 2d | converted-value-form).converted- |
| 6d40 | 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bindings)....................... |
| 6d60 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 6c 61 69 6e 2d 6c 65 74 0a 20 20 20 20 20 20 | ..........(when.plain-let....... |
| 6d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | ............................(pus |
| 6da0 | 68 20 60 28 2c 76 61 72 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 74 61 74 65 29 20 6e 65 | h.`(,var.,iter2--stack-state).ne |
| 6dc0 | 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 | xt-continuation-bindings)....... |
| 6de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | ............................(pus |
| 6e00 | 68 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 20 76 61 6c 75 65 73 2d 74 6f | h.converted-value-form.values-to |
| 6e20 | 2d 73 61 76 65 2d 6f 6e 2d 73 74 61 63 6b 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -save-on-stack))))))............ |
| 6e40 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 6c 69 74 65 72 61 6c 20 28 6e 6f 74 20 73 | ..........(if.(or.literal.(not.s |
| 6e60 | 70 65 63 69 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pecial))........................ |
| 6e80 | 20 20 28 70 75 73 68 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 69 6e 64 69 6e 67 73 29 | ..(push.(car.converted-bindings) |
| 6ea0 | 20 28 69 66 20 73 70 65 63 69 61 6c 20 63 61 74 63 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 | .(if.special.catcher-inner-bindi |
| 6ec0 | 6e 67 73 20 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 | ngs.catcher-outer-bindings)).... |
| 6ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 69 76 61 | ....................(let.((priva |
| 6f00 | 74 65 2d 73 74 6f 72 61 67 65 2d 76 61 72 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 | te-storage-var.(make-symbol.(for |
| 6f20 | 6d 61 74 20 22 24 25 73 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 76 61 72 29 29 29 29 29 0a | mat."$%s".(symbol-name.var))))). |
| 6f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 | .........................(push.` |
| 6f60 | 28 2c 70 72 69 76 61 74 65 2d 73 74 6f 72 61 67 65 2d 76 61 72 20 2c 28 6e 74 68 20 31 20 28 63 | (,private-storage-var.,(nth.1.(c |
| 6f80 | 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 69 6e 64 69 6e 67 73 29 29 29 20 63 61 74 63 68 65 72 | ar.converted-bindings))).catcher |
| 6fa0 | 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -outer-bindings)................ |
| 6fc0 | 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 2c 76 61 72 20 20 20 20 20 20 20 20 20 20 | ..........(push.`(,var.......... |
| 6fe0 | 20 20 20 20 20 20 20 2c 70 72 69 76 61 74 65 2d 73 74 6f 72 61 67 65 2d 76 61 72 29 20 20 20 20 | .......,private-storage-var).... |
| 7000 | 20 20 20 20 20 20 20 20 20 20 63 61 74 63 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 6e 67 73 | ..........catcher-inner-bindings |
| 7020 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 69 73 | )))......................;;.This |
| 7040 | 20 69 73 20 61 20 6d 61 72 6b 65 72 20 77 65 20 75 73 65 20 74 6f 20 73 65 70 61 72 61 74 65 20 | .is.a.marker.we.use.to.separate. |
| 7060 | 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 64 69 66 66 65 72 65 6e 74 0a 20 20 20 20 20 20 20 20 20 | bindings.for.different.......... |
| 7080 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 61 74 63 68 65 72 73 20 66 6f 72 20 60 6c 65 74 | ............;;.catchers.for.`let |
| 70a0 | 2a 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 | *'.......................(when.( |
| 70c0 | 61 6e 64 20 73 70 65 63 69 61 6c 20 28 6e 6f 74 20 70 6c 61 69 6e 2d 6c 65 74 29 29 0a 20 20 20 | and.special.(not.plain-let)).... |
| 70e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6e 69 6c 20 63 61 | ....................(push.nil.ca |
| 7100 | 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 29 29 29 29 0a 20 20 20 20 20 20 | tcher-outer-bindings)))))....... |
| 7120 | 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 2d 79 69 65 6c 64 0a 20 20 20 20 20 | .........(unless.can-yield...... |
| 7140 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 6e 75 6d 2d 73 74 61 63 6b 2d 76 | ............(when.(>.num-stack-v |
| 7160 | 61 6c 75 65 73 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | alues.1)....................(pus |
| 7180 | 68 20 28 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 68 65 61 64 2d 72 65 76 65 72 73 69 6e 67 2d 66 | h.(iter2--stack-head-reversing-f |
| 71a0 | 6f 72 6d 20 6e 75 6d 2d 73 74 61 63 6b 2d 76 61 6c 75 65 73 29 20 63 6f 6e 76 65 72 74 65 64 29 | orm.num-stack-values).converted) |
| 71c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6e 76 65 | )..................(let*.((conve |
| 71e0 | 72 74 65 64 2d 6c 65 74 2d 62 6f 64 79 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 | rted-let-body......(iter2--conve |
| 7200 | 72 74 2d 70 72 6f 67 6e 20 6c 65 74 2d 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | rt-progn.let-body))............. |
| 7220 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 64 2d 6c 65 74 2d 62 6f 64 79 2d | ............(converted-let-body- |
| 7240 | 66 6f 72 6d 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d | form.(iter2--merge-continuation- |
| 7260 | 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 6c 65 74 2d 62 6f 64 79 29 29 29 0a 20 20 20 20 20 | form.converted-let-body)))...... |
| 7280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 6e 75 6c 6c 20 28 63 64 72 | ..............(if.(or.(null.(cdr |
| 72a0 | 20 63 6f 6e 76 65 72 74 65 64 2d 6c 65 74 2d 62 6f 64 79 29 29 20 28 6e 75 6c 6c 20 63 61 74 63 | .converted-let-body)).(null.catc |
| 72c0 | 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | her-inner-bindings))............ |
| 72e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 70 75 73 68 20 60 28 2c 6c 65 74 2d | ............(progn.(push.`(,let- |
| 7300 | 6b 69 6e 64 20 28 2c 40 28 6e 72 65 76 65 72 73 65 20 63 6f 6e 76 65 72 74 65 64 2d 62 69 6e 64 | kind.(,@(nreverse.converted-bind |
| 7320 | 69 6e 67 73 29 29 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 63 6f 6e 76 65 | ings)).,@(macroexp-unprogn.conve |
| 7340 | 72 74 65 64 2d 6c 65 74 2d 62 6f 64 79 2d 66 6f 72 6d 29 29 20 63 6f 6e 76 65 72 74 65 64 29 0a | rted-let-body-form)).converted). |
| 7360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ..............................(s |
| 7380 | 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 6c 65 74 | etq.can-yield.(cdr.converted-let |
| 73a0 | 2d 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | -body)))......................;; |
| 73c0 | 20 4c 65 74 20 62 6f 64 79 20 79 69 65 6c 64 73 20 61 6e 64 20 77 65 20 68 61 76 65 20 73 70 65 | .Let.body.yields.and.we.have.spe |
| 73e0 | 63 69 61 6c 20 28 64 79 6e 61 6d 69 63 29 20 62 69 6e 64 69 6e 67 73 2e 0a 20 20 20 20 20 20 20 | cial.(dynamic).bindings......... |
| 7400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 69 66 20 70 6c 61 69 6e 2d 6c 65 | ..............(push.(if.plain-le |
| 7420 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t............................... |
| 7440 | 20 60 28 6c 65 74 20 28 2c 40 28 6e 72 65 76 65 72 73 65 20 63 61 74 63 68 65 72 2d 6f 75 74 65 | .`(let.(,@(nreverse.catcher-oute |
| 7460 | 72 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-bindings)).................... |
| 7480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 2d | ...............,(iter2--catcher- |
| 74a0 | 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 60 28 6c 65 74 20 28 | continuation-adding-form.`(let.( |
| 74c0 | 2c 40 28 6e 72 65 76 65 72 73 65 20 63 61 74 63 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 6e | ,@(nreverse.catcher-inner-bindin |
| 74e0 | 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gs))............................ |
| 7500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 2c 28 69 74 65 | ....................(prog1.,(ite |
| 7540 | 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d | r2--continuation-invocation-form |
| 7560 | 20 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .iter2--value).................. |
| 7580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 75a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 75c0 | 28 75 6e 6c 65 73 73 20 28 65 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e | (unless.(eq.,iter2--continuation |
| 75e0 | 73 20 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.,iter2--done)................. |
| 7600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7640 | 20 20 20 28 70 75 73 68 20 2c 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 20 2c 69 74 65 72 32 2d | ...(push.,iter2--catcher.,iter2- |
| 7660 | 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -continuations)))).............. |
| 7680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 76a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | ...............................c |
| 76c0 | 6f 6e 76 65 72 74 65 64 2d 6c 65 74 2d 62 6f 64 79 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 | onverted-let-body-form))........ |
| 76e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 6c 65 | ......................(iter2--le |
| 7700 | 74 2a 2d 79 69 65 6c 64 69 6e 67 2d 66 6f 72 6d 20 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 | t*-yielding-form.catcher-outer-b |
| 7720 | 69 6e 64 69 6e 67 73 20 63 61 74 63 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 6e 67 73 20 63 | indings.catcher-inner-bindings.c |
| 7740 | 6f 6e 76 65 72 74 65 64 2d 6c 65 74 2d 62 6f 64 79 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 | onverted-let-body-form))........ |
| 7760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 29 0a 20 | ....................converted).. |
| 7780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 2d 79 69 | ....................(setq.can-yi |
| 77a0 | 65 6c 64 20 74 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 | eld.t))))))..............;;.Hand |
| 77c0 | 6c 65 20 28 70 72 6f 67 31 20 56 41 4c 55 45 20 5b 42 4f 44 59 2e 2e 2e 5d 29 2e 0a 20 20 20 20 | le.(prog1.VALUE.[BODY...])...... |
| 77e0 | 20 20 20 20 20 20 20 20 28 60 28 70 72 6f 67 31 20 2c 76 61 6c 75 65 20 2e 20 2c 72 65 73 74 29 | ........(`(prog1.,value...,rest) |
| 7800 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 76 | ..............(let.((converted-v |
| 7820 | 61 6c 75 65 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 20 76 61 6c 75 65 | alue.(iter2--convert-form..value |
| 7840 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 64 | ))....................(converted |
| 7860 | 2d 72 65 73 74 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 67 6e 20 72 65 73 | -rest..(iter2--convert-progn.res |
| 7880 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 63 64 72 | t)))................(if.(or.(cdr |
| 78a0 | 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 29 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 | .converted-value).(cdr.converted |
| 78c0 | 2d 72 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 | -rest))....................(prog |
| 78e0 | 6e 20 28 77 68 65 6e 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 29 0a 20 20 | n.(when.(cdr.converted-value)... |
| 7900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 | ..........................(iter2 |
| 7920 | 2d 2d 61 64 64 2d 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 20 28 | --add-converted-form.converted.( |
| 7940 | 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | car.converted-value))........... |
| 7960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 66 69 6e 69 73 68 | ..................(iter2--finish |
| 7980 | 2d 63 68 75 6e 6b 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 20 63 6f 6e 76 65 72 74 65 | -chunk.converted-chunks.converte |
| 79a0 | 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | d))...........................(i |
| 79c0 | 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 | f.(cdr.converted-rest).......... |
| 79e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 70 75 73 | .....................(progn.(pus |
| 7a00 | 68 20 60 28 70 75 73 68 20 2c 28 6f 72 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c | h.`(push.,(or.(cdr.converted-val |
| 7a20 | 75 65 29 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 29 29 20 2c 69 74 65 72 | ue).(car.converted-value)).,iter |
| 7a40 | 32 2d 2d 73 74 61 63 6b 29 20 63 6f 6e 76 65 72 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | 2--stack).converted)............ |
| 7a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 | ..........................(iter2 |
| 7a80 | 2d 2d 61 64 64 2d 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 20 28 | --add-converted-form.converted.( |
| 7aa0 | 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 72 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | car.converted-rest))............ |
| 7ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 | ..........................(iter2 |
| 7ae0 | 2d 2d 66 69 6e 69 73 68 2d 63 68 75 6e 6b 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 20 | --finish-chunk.converted-chunks. |
| 7b00 | 63 6f 6e 76 65 72 74 65 64 20 60 28 70 6f 70 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 29 29 | converted.`(pop.,iter2--stack))) |
| 7b20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | .............................(pu |
| 7b40 | 73 68 20 60 28 70 72 6f 67 31 20 2c 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 | sh.`(prog1.,(cdr.converted-value |
| 7b60 | 29 20 2c 40 72 65 73 74 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ).,@rest).converted))).......... |
| 7b80 | 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 70 72 6f 67 31 20 2c 28 63 61 72 20 63 6f 6e 76 | ........(push.`(prog1.,(car.conv |
| 7ba0 | 65 72 74 65 64 2d 76 61 6c 75 65 29 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e | erted-value).,@(macroexp-unprogn |
| 7bc0 | 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 72 65 73 74 29 29 29 20 63 6f 6e 76 65 72 74 65 | .(car.converted-rest))).converte |
| 7be0 | 64 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 28 75 6e | d))))..............;;.Handle.(un |
| 7c00 | 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 42 4f 44 59 2d 46 4f 52 4d 20 43 4c 45 41 4e 55 50 2d 46 | wind-protect.BODY-FORM.CLEANUP-F |
| 7c20 | 4f 52 4d 53 2e 2e 2e 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 75 6e 77 69 6e 64 2d | ORMS...)..............(`(unwind- |
| 7c40 | 70 72 6f 74 65 63 74 20 2c 62 6f 64 79 2d 66 6f 72 6d 20 2e 20 2c 63 6c 65 61 6e 75 70 2d 66 6f | protect.,body-form...,cleanup-fo |
| 7c60 | 72 6d 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 | rms)..............(let.((convert |
| 7c80 | 65 64 2d 62 6f 64 79 2d 66 6f 72 6d 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 | ed-body-form.....(iter2--convert |
| 7ca0 | 2d 66 6f 72 6d 20 62 6f 64 79 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -form.body-form))............... |
| 7cc0 | 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 64 2d 63 6c 65 61 6e 75 70 2d 66 6f 72 6d 73 20 28 69 | .....(converted-cleanup-forms.(i |
| 7ce0 | 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 67 6e 20 63 6c 65 61 6e 75 70 2d 66 6f 72 6d | ter2--convert-progn.cleanup-form |
| 7d00 | 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 64 72 20 63 | s)))................(when.(cdr.c |
| 7d20 | 6f 6e 76 65 72 74 65 64 2d 63 6c 65 61 6e 75 70 2d 66 6f 72 6d 73 29 0a 20 20 20 20 20 20 20 20 | onverted-cleanup-forms)......... |
| 7d40 | 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 59 69 65 6c 64 69 6e 67 20 66 72 6f 6d 20 63 | .........(error."Yielding.from.c |
| 7d60 | 6c 65 61 6e 75 70 20 66 6f 72 6d 73 20 69 6e 20 60 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 27 | leanup.forms.in.`unwind-protect' |
| 7d80 | 20 69 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 20 25 53 22 20 63 6c 65 61 6e 75 70 2d 66 6f 72 | .is.not.allowed:.%S".cleanup-for |
| 7da0 | 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 64 72 20 63 6f 6e | ms))................(if.(cdr.con |
| 7dc0 | 76 65 72 74 65 64 2d 62 6f 64 79 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | verted-body-form)............... |
| 7de0 | 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(progn..................... |
| 7e00 | 20 28 70 75 73 68 20 60 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 20 28 | .(push.`(setq.,iter2--cleanups.( |
| 7e20 | 63 6f 6e 73 20 28 6c 61 6d 62 64 61 20 28 29 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 | cons.(lambda.().,@(macroexp-unpr |
| 7e40 | 6f 67 6e 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6c 65 61 6e 75 70 2d 66 6f 72 6d 73 | ogn.(car.converted-cleanup-forms |
| 7e60 | 29 29 29 20 2c 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 29 29 20 63 6f 6e 76 65 72 74 65 64 | ))).,iter2--cleanups)).converted |
| 7e80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 20 6e 65 65 | )......................;;.No.nee |
| 7ea0 | 64 20 74 6f 20 75 73 65 20 70 72 69 76 61 74 65 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 73 20 | d.to.use.private.variable.names. |
| 7ec0 | 61 73 20 77 65 20 64 6f 6e 27 74 20 69 6e 63 6c 75 64 65 20 61 6e 79 20 75 73 65 72 20 63 6f 64 | as.we.don't.include.any.user.cod |
| 7ee0 | 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 69 | e.......................(push.(i |
| 7f00 | 74 65 72 32 2d 2d 63 61 74 63 68 65 72 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e | ter2--catcher-continuation-addin |
| 7f20 | 67 2d 66 6f 72 6d 20 60 28 6c 65 74 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 | g-form.`(let.(result)........... |
| 7f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e | .............................(un |
| 7f80 | 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | wind-protect.................... |
| 7fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 7fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 2c | ........................(prog1., |
| 7fe0 | 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d | (iter2--continuation-invocation- |
| 8000 | 66 6f 72 6d 20 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | form.iter2--value).............. |
| 8020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8060 | 28 73 65 74 71 20 72 65 73 75 6c 74 20 28 69 66 20 28 65 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e | (setq.result.(if.(eq.,iter2--con |
| 8080 | 74 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 29 20 2c 69 74 65 72 32 2d | tinuations.,iter2--done).,iter2- |
| 80a0 | 2d 79 69 65 6c 64 69 6e 67 20 27 63 6f 6e 74 69 6e 75 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 | -yielding.'continuing)))........ |
| 80c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 80e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8100 | 20 20 28 69 66 20 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(if.result.................... |
| 8120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | ..........................(push. |
| 8160 | 28 69 66 20 28 65 71 20 72 65 73 75 6c 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (if.(eq.result.t)............... |
| 8180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 81a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 81c0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 6d 70 6c 65 74 65 64 20 62 6f 64 79 2c 20 62 75 74 20 | .........;;.Completed.body,.but. |
| 81e0 | 79 69 65 6c 64 65 64 2e 20 20 43 6c 65 61 6e 20 75 70 20 77 68 65 6e 20 63 6f 6e 74 72 6f 6c 20 | yielded...Clean.up.when.control. |
| 8200 | 69 73 20 72 65 67 61 69 6e 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | is.regained..................... |
| 8220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8260 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 2c 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 20 2c 28 69 74 | ....(lambda.(,iter2--value).,(it |
| 8280 | 65 72 32 2d 2d 63 6c 65 61 6e 75 70 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 62 6f 64 79 29 20 2c 69 | er2--cleanup-invocation-body).,i |
| 82a0 | 74 65 72 32 2d 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ter2--value).................... |
| 82c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 82e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8300 | 20 20 3b 3b 20 43 6f 6e 74 69 6e 75 69 6e 67 2e 20 20 52 65 2d 61 64 64 20 73 65 6c 66 2e 0a 20 | ..;;.Continuing...Re-add.self... |
| 8320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d 63 61 74 63 | ....................,iter2--catc |
| 8380 | 68 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | her)............................ |
| 83a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 83c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d | ........................,iter2-- |
| 83e0 | 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | continuations).................. |
| 8400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 69 74 | ..........................;;.Eit |
| 8440 | 68 65 72 20 65 78 69 74 65 64 20 6e 6f 6e 2d 6c 6f 63 61 6c 6c 79 2c 20 6f 72 20 63 6f 6d 70 6c | her.exited.non-locally,.or.compl |
| 8460 | 65 74 65 64 20 62 6f 64 79 20 61 6e 64 20 68 61 76 65 6e 27 74 20 79 69 65 6c 64 65 64 2e 0a 20 | eted.body.and.haven't.yielded... |
| 8480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 84a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 84c0 | 20 20 20 20 20 20 20 20 20 20 2c 28 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 2d 69 6e 76 6f 63 | ..........,(iter2--cleanup-invoc |
| 84e0 | 61 74 69 6f 6e 2d 62 6f 64 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ation-body)))).................. |
| 8500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 | ...................(iter2--merge |
| 8540 | 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 | -continuation-form.converted-bod |
| 8560 | 79 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y-form))........................ |
| 8580 | 20 20 20 20 63 6f 6e 76 65 72 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....converted).................. |
| 85a0 | 20 20 20 20 28 73 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 20 20 20 20 20 20 20 20 20 20 20 74 | ....(setq.can-yield............t |
| 85c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 74 65 72 | ............................iter |
| 85e0 | 32 2d 2d 63 6c 65 61 6e 75 70 73 2d 75 73 65 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | 2--cleanups-used.t))............ |
| 8600 | 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 2c | ........(push.`(unwind-protect., |
| 8620 | 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 2d 66 6f 72 6d 29 20 2c 40 28 6d 61 63 | (car.converted-body-form).,@(mac |
| 8640 | 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 6c 65 | roexp-unprogn.(car.converted-cle |
| 8660 | 61 6e 75 70 2d 66 6f 72 6d 73 29 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 0a 0a 20 20 20 | anup-forms))).converted))))..... |
| 8680 | 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 28 63 61 74 63 68 20 54 41 47 20 42 4f | .........;;.Handle.(catch.TAG.BO |
| 86a0 | 44 59 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 63 61 74 63 68 20 2c 74 61 67 20 2e | DY)..............(`(catch.,tag.. |
| 86c0 | 20 2c 63 61 74 63 68 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a | .,catch-body)..............(let* |
| 86e0 | 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 74 61 67 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6f | .((converted-tag......(iter2--co |
| 8700 | 6e 76 65 72 74 2d 66 6f 72 6d 20 74 61 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nvert-form.tag))................ |
| 8720 | 20 20 20 20 20 28 63 6f 6e 76 65 72 74 65 64 2d 74 61 67 2d 66 6f 72 6d 20 28 63 61 72 20 63 6f | .....(converted-tag-form.(car.co |
| 8740 | 6e 76 65 72 74 65 64 2d 74 61 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | nverted-tag)))................(w |
| 8760 | 68 65 6e 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 74 61 67 29 0a 20 20 20 20 20 20 20 20 | hen.(cdr.converted-tag)......... |
| 8780 | 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 61 64 64 2d 63 6f 6e 76 65 72 74 65 64 2d 66 | .........(iter2--add-converted-f |
| 87a0 | 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 20 63 6f 6e 76 65 72 74 65 64 2d 74 61 67 2d 66 6f 72 6d | orm.converted.converted-tag-form |
| 87c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 66 69 6e 69 73 | )..................(iter2--finis |
| 87e0 | 68 2d 63 68 75 6e 6b 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 20 63 6f 6e 76 65 72 74 | h-chunk.converted-chunks.convert |
| 8800 | 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6e 76 65 | ed)..................(setq.conve |
| 8820 | 72 74 65 64 2d 74 61 67 2d 66 6f 72 6d 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 74 61 67 | rted-tag-form.(cdr.converted-tag |
| 8840 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 | )))................(let.((conver |
| 8860 | 74 65 64 2d 63 61 74 63 68 2d 62 6f 64 79 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 | ted-catch-body.(iter2--convert-p |
| 8880 | 72 6f 67 6e 20 63 61 74 63 68 2d 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | rogn.catch-body))).............. |
| 88a0 | 20 20 20 20 28 69 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 61 74 63 68 2d 62 6f 64 | ....(if.(cdr.converted-catch-bod |
| 88c0 | 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c | y)......................(let.((l |
| 88e0 | 69 74 65 72 61 6c 2d 74 61 67 20 28 69 74 65 72 32 2d 2d 6c 69 74 65 72 61 6c 70 20 63 6f 6e 76 | iteral-tag.(iter2--literalp.conv |
| 8900 | 65 72 74 65 64 2d 74 61 67 2d 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | erted-tag-form)))............... |
| 8920 | 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 20 6e 65 65 64 20 74 6f 20 75 73 65 20 70 72 69 76 61 | .........;;.No.need.to.use.priva |
| 8940 | 74 65 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 73 20 61 73 20 77 65 20 64 6f 6e 27 74 20 69 6e | te.variable.names.as.we.don't.in |
| 8960 | 63 6c 75 64 65 20 61 6e 79 20 75 73 65 72 20 63 6f 64 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 | clude.any.user.code............. |
| 8980 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 69 74 65 72 32 2d 2d 63 61 74 63 68 65 | ............(push.(iter2--catche |
| 89a0 | 72 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 60 28 6c 65 74 | r-continuation-adding-form.`(let |
| 89c0 | 20 28 63 6f 6d 70 6c 65 74 65 64 2d 6e 6f 72 6d 61 6c 6c 79 29 0a 20 20 20 20 20 20 20 20 20 20 | .(completed-normally)........... |
| 89e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 8a20 | 70 72 6f 67 31 20 28 63 61 74 63 68 20 2c 28 69 66 20 6c 69 74 65 72 61 6c 2d 74 61 67 20 63 6f | prog1.(catch.,(if.literal-tag.co |
| 8a40 | 6e 76 65 72 74 65 64 2d 74 61 67 2d 66 6f 72 6d 20 27 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 | nverted-tag-form.'tag).......... |
| 8a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8aa0 | 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 | .........(prog1.,(iter2--continu |
| 8ac0 | 61 74 69 6f 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 20 69 74 65 72 32 2d 2d 76 61 6c | ation-invocation-form.iter2--val |
| 8ae0 | 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ue)............................. |
| 8b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f | ........................(setq.co |
| 8b40 | 6d 70 6c 65 74 65 64 2d 6e 6f 72 6d 61 6c 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | mpleted-normally.t)............. |
| 8b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8ba0 | 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 | ........(unless.(eq.,iter2--cont |
| 8bc0 | 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 | inuations.,iter2--done)......... |
| 8be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 2c 69 74 65 72 32 2d 2d 63 61 74 63 | ..............(push.,iter2--catc |
| 8c40 | 68 65 72 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 29 0a 20 20 | her.,iter2--continuations))))... |
| 8c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8ca0 | 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 6f 6d 70 6c 65 74 65 64 2d 6e 6f 72 6d 61 | .........(unless.completed-norma |
| 8cc0 | 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lly............................. |
| 8ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 63 | .................(setq.,iter2--c |
| 8d20 | 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 0a 20 20 20 20 20 20 | ontinuations.,iter2--done....... |
| 8d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 20 20 20 20 20 20 | .............,iter2--stack...... |
| 8da0 | 20 20 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 20 | ...,iter2--stack-state))))...... |
| 8dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8e00 | 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d | .(iter2--merge-continuation-form |
| 8e20 | 20 63 6f 6e 76 65 72 74 65 64 2d 63 61 74 63 68 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 | .converted-catch-body).......... |
| 8e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c | .............................`(, |
| 8e80 | 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 74 61 74 65 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b | iter2--stack-state.,iter2--stack |
| 8ea0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 8ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8ee0 | 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6c 69 74 65 72 61 6c 2d 74 61 67 20 60 28 74 61 | ........(unless.literal-tag.`(ta |
| 8f00 | 67 20 2c 63 6f 6e 76 65 72 74 65 64 2d 74 61 67 2d 66 6f 72 6d 29 29 29 0a 20 20 20 20 20 20 20 | g.,converted-tag-form)))........ |
| 8f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 29 | ......................converted) |
| 8f40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 | ........................(setq.ca |
| 8f60 | 6e 2d 79 69 65 6c 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | n-yield.t))....................( |
| 8f80 | 70 75 73 68 20 60 28 63 61 74 63 68 20 2c 63 6f 6e 76 65 72 74 65 64 2d 74 61 67 2d 66 6f 72 6d | push.`(catch.,converted-tag-form |
| 8fa0 | 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 63 61 72 20 63 6f 6e 76 65 72 | .,@(macroexp-unprogn.(car.conver |
| 8fc0 | 74 65 64 2d 63 61 74 63 68 2d 62 6f 64 79 29 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 29 | ted-catch-body))).converted))))) |
| 8fe0 | 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 28 63 6f 6e 64 69 74 69 | ..............;;.Handle.(conditi |
| 9000 | 6f 6e 2d 63 61 73 65 20 56 41 52 20 42 4f 44 59 2d 46 4f 52 4d 20 48 41 4e 44 4c 45 52 53 2e 2e | on-case.VAR.BODY-FORM.HANDLERS.. |
| 9020 | 2e 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 | .)..............(`(condition-cas |
| 9040 | 65 20 2c 76 61 72 20 2c 62 6f 64 79 2d 66 6f 72 6d 20 2e 20 2c 68 61 6e 64 6c 65 72 73 29 0a 20 | e.,var.,body-form...,handlers).. |
| 9060 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 | ............(let.((converted-bod |
| 9080 | 79 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 62 6f 64 79 2d 66 6f 72 6d | y.(iter2--convert-form.body-form |
| 90a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 2d | ))....................converted- |
| 90c0 | 68 61 6e 64 6c 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 | handlers)................(dolist |
| 90e0 | 20 28 68 61 6e 64 6c 65 72 20 68 61 6e 64 6c 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(handler.handlers)............. |
| 9100 | 20 20 20 20 20 28 70 63 61 73 65 20 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .....(pcase.handler............. |
| 9120 | 20 20 20 20 20 20 20 28 60 28 2c 63 6f 6e 64 69 74 69 6f 6e 20 2e 20 2c 68 61 6e 64 6c 65 72 2d | .......(`(,condition...,handler- |
| 9140 | 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | body).....................(let.( |
| 9160 | 28 63 6f 6e 76 65 72 74 65 64 2d 68 61 6e 64 6c 65 72 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 | (converted-handler.(iter2--conve |
| 9180 | 72 74 2d 70 72 6f 67 6e 20 68 61 6e 64 6c 65 72 2d 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 | rt-progn.handler-body)))........ |
| 91a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 2c 63 6f 6e 64 69 74 69 6f | ...............(push.`(,conditio |
| 91c0 | 6e 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 69 74 65 72 32 2d 2d 6d 65 | n.,@(macroexp-unprogn.(iter2--me |
| 91e0 | 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d | rge-continuation-form.converted- |
| 9200 | 68 61 6e 64 6c 65 72 29 29 29 20 63 6f 6e 76 65 72 74 65 64 2d 68 61 6e 64 6c 65 72 73 29 0a 20 | handler))).converted-handlers).. |
| 9220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 64 72 20 | .....................(when.(cdr. |
| 9240 | 63 6f 6e 76 65 72 74 65 64 2d 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | converted-handler).............. |
| 9260 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 74 29 29 29 29 | ...........(setq.can-yield.t)))) |
| 9280 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 5f 0a 20 20 20 20 20 20 20 20 20 | ....................(_.......... |
| 92a0 | 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 60 63 6f 6e 64 | ...........(error."Invalid.`cond |
| 92c0 | 69 74 69 6f 6e 2d 63 61 73 65 27 20 65 72 72 6f 72 20 68 61 6e 64 6c 65 72 3a 20 25 53 22 20 68 | ition-case'.error.handler:.%S".h |
| 92e0 | 61 6e 64 6c 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | andler))))................(setq. |
| 9300 | 63 6f 6e 76 65 72 74 65 64 2d 68 61 6e 64 6c 65 72 73 20 28 6e 72 65 76 65 72 73 65 20 63 6f 6e | converted-handlers.(nreverse.con |
| 9320 | 76 65 72 74 65 64 2d 68 61 6e 64 6c 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | verted-handlers))............... |
| 9340 | 20 28 69 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 | .(if.(cdr.converted-body)....... |
| 9360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 70 75 73 68 20 28 69 74 65 72 32 | .............(progn.(push.(iter2 |
| 9380 | 2d 2d 63 61 74 63 68 65 72 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f | --catcher-continuation-adding-fo |
| 93a0 | 72 6d 20 60 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 2c 76 61 72 0a 20 20 20 20 20 20 20 | rm.`(condition-case.,var........ |
| 93c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 93e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9400 | 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 | .......(prog1.,(iter2--continuat |
| 9420 | 69 6f 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 20 69 74 65 72 32 2d 2d 76 61 6c 75 65 | ion-invocation-form.iter2--value |
| 9440 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 9460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 2c 69 | ..................(unless.(eq.,i |
| 94a0 | 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 | ter2--continuations.,iter2--done |
| 94c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 94e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 2c 69 74 65 72 32 | ....................(push.,iter2 |
| 9520 | 2d 2d 63 61 74 63 68 65 72 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 | --catcher.,iter2--continuations) |
| 9540 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )).............................. |
| 9560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 | ...............,@(mapcar.(lambda |
| 95a0 | 20 28 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(handler)...................... |
| 95c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 95e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9600 | 20 20 20 60 28 2c 28 63 61 72 20 68 61 6e 64 6c 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...`(,(car.handler)............. |
| 9620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 | ..............(setq.,iter2--cont |
| 9680 | 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 20 2c 69 74 65 72 32 2d 2d 73 | inuations.,iter2--done.,iter2--s |
| 96a0 | 74 61 63 6b 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 74 61 74 65 29 0a 20 20 20 20 20 20 | tack.,iter2--stack-state)....... |
| 96c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 96e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 63 64 72 20 68 61 6e 64 6c | ....................,@(cdr.handl |
| 9720 | 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er)))........................... |
| 9740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 | ............................conv |
| 9780 | 65 72 74 65 64 2d 68 61 6e 64 6c 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | erted-handlers))................ |
| 97a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 97c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 | ..........................(iter2 |
| 97e0 | 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 | --merge-continuation-form.conver |
| 9800 | 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ted-body)....................... |
| 9820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 69 74 65 72 32 2d 2d 73 74 61 | ...................`(,iter2--sta |
| 9860 | 63 6b 2d 73 74 61 74 65 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 29 0a 20 20 20 20 20 20 20 | ck-state.,iter2--stack))........ |
| 9880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 | .........................convert |
| 98a0 | 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ed)...........................(s |
| 98c0 | 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | etq.can-yield.t))............... |
| 98e0 | 20 20 20 28 70 75 73 68 20 60 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 2c 76 61 72 20 2c | ...(push.`(condition-case.,var., |
| 9900 | 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 20 2c 40 63 6f 6e 76 65 72 74 65 64 | (car.converted-body).,@converted |
| 9920 | 2d 68 61 6e 64 6c 65 72 73 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 0a 0a 20 20 20 20 20 20 | -handlers).converted))))........ |
| 9940 | 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 28 69 74 65 72 2d 79 69 65 6c 64 20 56 41 4c 55 | ......;;.Handle.(iter-yield.VALU |
| 9960 | 45 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 69 74 65 72 2d 79 69 65 6c 64 20 2e 20 | E)..............(`(iter-yield... |
| 9980 | 2c 72 65 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 | ,rest)..............(unless.(and |
| 99a0 | 20 28 63 6f 6e 73 70 20 72 65 73 74 29 20 28 6e 75 6c 6c 20 28 63 64 72 20 72 65 73 74 29 29 29 | .(consp.rest).(null.(cdr.rest))) |
| 99c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 46 6f 72 6d 20 60 69 74 | ................(error."Form.`it |
| 99e0 | 65 72 2d 79 69 65 6c 64 27 20 6d 75 73 74 20 62 65 20 75 73 65 64 20 77 69 74 68 20 65 78 61 63 | er-yield'.must.be.used.with.exac |
| 9a00 | 74 6c 79 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 3a 20 25 53 22 20 66 6f 72 6d 29 29 0a 20 20 20 | tly.one.argument:.%S".form)).... |
| 9a20 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 | ..........(let*.((converted-valu |
| 9a40 | 65 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 28 63 61 72 | e......(iter2--convert-form.(car |
| 9a60 | 20 72 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | .rest))).....................(co |
| 9a80 | 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 | nverted-value-form.(car.converte |
| 9aa0 | 64 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | d-value)))................(when. |
| 9ac0 | 69 74 65 72 32 2d 67 65 6e 65 72 61 74 65 2d 74 72 61 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 | iter2-generate-tracing-functions |
| 9ae0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 | ..................(setq.converte |
| 9b00 | 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 20 60 28 6c 65 74 20 28 28 2c 69 74 65 72 32 2d 2d 76 61 6c | d-value-form.`(let.((,iter2--val |
| 9b20 | 75 65 20 2c 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 | ue.,converted-value-form))...... |
| 9b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9b60 | 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 64 6f 2d 74 72 61 63 65 20 22 79 69 65 6c | ..........(iter2--do-trace."yiel |
| 9b80 | 64 69 6e 67 20 25 53 22 20 2c 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 | ding.%S".,iter2--value)......... |
| 9ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9bc0 | 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 | .......,iter2--value)))......... |
| 9be0 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 | .......(when.(cdr.converted-valu |
| 9c00 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 61 64 64 2d | e)..................(iter2--add- |
| 9c20 | 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 20 63 6f 6e 76 65 72 74 | converted-form.converted.convert |
| 9c40 | 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-value-form).................. |
| 9c60 | 28 69 74 65 72 32 2d 2d 66 69 6e 69 73 68 2d 63 68 75 6e 6b 20 63 6f 6e 76 65 72 74 65 64 2d 63 | (iter2--finish-chunk.converted-c |
| 9c80 | 68 75 6e 6b 73 20 63 6f 6e 76 65 72 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | hunks.converted)................ |
| 9ca0 | 20 20 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 20 28 63 64 | ..(setq.converted-value-form.(cd |
| 9cc0 | 72 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | r.converted-value)))............ |
| 9ce0 | 20 20 20 20 28 69 66 20 28 69 74 65 72 32 2d 2d 6c 69 74 65 72 61 6c 2d 6f 72 2d 76 61 72 69 61 | ....(if.(iter2--literal-or-varia |
| 9d00 | 62 6c 65 2d 70 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 29 0a 20 20 20 20 | ble-p.converted-value-form)..... |
| 9d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 70 75 73 68 20 60 28 73 65 | ...............(progn.(push.`(se |
| 9d40 | 74 71 20 2c 69 74 65 72 32 2d 2d 79 69 65 6c 64 69 6e 67 20 74 29 20 63 6f 6e 76 65 72 74 65 64 | tq.,iter2--yielding.t).converted |
| 9d60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 | )...........................(pus |
| 9d80 | 68 20 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 | h.converted-value-form.converted |
| 9da0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 74 20 6d 69 67 68 74 20 | ))..................;;.It.might. |
| 9dc0 | 62 65 20 75 6e 73 61 66 65 20 74 6f 20 73 65 74 20 79 69 65 6c 64 69 6e 67 20 66 6c 61 67 20 66 | be.unsafe.to.set.yielding.flag.f |
| 9de0 | 69 72 73 74 3a 20 77 68 61 74 20 69 66 20 74 68 65 20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 | irst:.what.if.the.value......... |
| 9e00 | 20 20 20 20 20 20 20 20 20 3b 3b 20 66 6f 72 6d 20 65 78 69 74 73 20 6e 6f 6e 2d 6c 6f 63 61 6c | .........;;.form.exits.non-local |
| 9e20 | 6c 79 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 70 72 6f | ly?..................(push.`(pro |
| 9e40 | 67 31 20 2c 63 6f 6e 76 65 72 74 65 64 2d 76 61 6c 75 65 2d 66 6f 72 6d 20 28 73 65 74 71 20 2c | g1.,converted-value-form.(setq., |
| 9e60 | 69 74 65 72 32 2d 2d 79 69 65 6c 64 69 6e 67 20 74 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 0a | iter2--yielding.t)).converted)). |
| 9e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 74 | ...............(setq.can-yield.t |
| 9ea0 | 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 60 73 61 76 65 | )))..............;;.Handle.`save |
| 9ec0 | 2d 65 78 63 75 72 73 69 6f 6e 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 73 61 76 65 | -excursion'..............(`(save |
| 9ee0 | 2d 65 78 63 75 72 73 69 6f 6e 20 2e 20 2c 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -excursion...,body)............. |
| 9f00 | 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 20 28 69 74 65 72 32 2d 2d 63 | .(let.((converted-body.(iter2--c |
| 9f20 | 6f 6e 76 65 72 74 2d 70 72 6f 67 6e 20 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | onvert-progn.body)))............ |
| 9f40 | 20 20 20 20 28 69 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 | ....(if.(cdr.converted-body).... |
| 9f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 70 75 73 68 20 28 69 74 | ................(progn.(push.(it |
| 9f80 | 65 72 32 2d 2d 63 61 74 63 68 65 72 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 | er2--catcher-continuation-adding |
| 9fa0 | 2d 66 6f 72 6d 20 60 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | -form.`(save-excursion.......... |
| 9fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a000 | 20 20 20 3b 3b 20 42 79 74 65 20 63 6f 6d 70 69 6c 65 72 20 67 69 76 65 73 20 61 20 64 75 6d 62 | ...;;.Byte.compiler.gives.a.dumb |
| a020 | 20 77 61 72 6e 69 6e 67 20 68 65 72 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .warning.here,.................. |
| a040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 75 | ...........................;;.su |
| a080 | 67 67 65 73 74 69 6e 67 20 74 6f 20 75 73 65 20 60 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 | ggesting.to.use.`with-current-bu |
| a0a0 | 66 66 65 72 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ffer'........................... |
| a0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a0e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6e 6f 2d 77 61 72 6e | ...................(with-no-warn |
| a100 | 69 6e 67 73 20 28 73 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 | ings.(set-buffer.buffer))....... |
| a120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a160 | 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 20 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 | ......(goto-char..point)........ |
| a180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a1c0 | 20 20 20 20 20 28 70 72 6f 67 31 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f | .....(prog1.,(iter2--continuatio |
| a1e0 | 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 20 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 0a | n-invocation-form.iter2--value). |
| a200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 2c 69 74 65 72 32 | ..............(unless.(eq.,iter2 |
| a260 | 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 29 0a 20 20 | --continuations.,iter2--done)... |
| a280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 20 28 63 75 72 72 | ..............(setq.buffer.(curr |
| a2e0 | 65 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent-buffer)..................... |
| a300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a340 | 20 20 70 6f 69 6e 74 20 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..point..(point))............... |
| a360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a3a0 | 20 20 28 70 75 73 68 20 2c 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 20 2c 69 74 65 72 32 2d 2d | ..(push.,iter2--catcher.,iter2-- |
| a3c0 | 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | continuations))))............... |
| a3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 | ...........................(iter |
| a420 | 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 | 2--merge-continuation-form.conve |
| a440 | 72 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rted-body)...................... |
| a460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 62 75 66 66 65 72 20 28 63 75 | ....................'(buffer.(cu |
| a4a0 | 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rrent-buffer)).................. |
| a4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 70 6f 69 6e 74 20 | ........................'(point. |
| a500 | 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(point)))...................... |
| a520 | 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 | ...........converted)........... |
| a540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 | ................(setq.can-yield. |
| a560 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 73 61 76 | t))..................(push.`(sav |
| a580 | 65 2d 65 78 63 75 72 73 69 6f 6e 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 | e-excursion.,@(macroexp-unprogn. |
| a5a0 | 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 29 29 20 63 6f 6e 76 65 72 74 65 64 | (car.converted-body))).converted |
| a5c0 | 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 60 73 61 76 | ))))..............;;.Handle.`sav |
| a5e0 | 65 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | e-current-buffer'..............( |
| a600 | 60 28 73 61 76 65 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 2e 20 2c 62 6f 64 79 29 0a 20 | `(save-current-buffer...,body).. |
| a620 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 | ............(let.((converted-bod |
| a640 | 79 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 72 6f 67 6e 20 62 6f 64 79 29 29 29 0a | y.(iter2--convert-progn.body))). |
| a660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 | ...............(if.(cdr.converte |
| a680 | 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 | d-body)....................(prog |
| a6a0 | 6e 20 28 70 75 73 68 20 28 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 2d 63 6f 6e 74 69 6e 75 61 | n.(push.(iter2--catcher-continua |
| a6c0 | 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 60 28 73 61 76 65 2d 63 75 72 72 65 6e 74 2d | tion-adding-form.`(save-current- |
| a6e0 | 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | buffer.......................... |
| a700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 62 | ...................(set-buffer.b |
| a740 | 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer).......................... |
| a760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 2c 28 69 74 65 72 | ...................(prog1.,(iter |
| a7a0 | 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 20 | 2--continuation-invocation-form. |
| a7c0 | 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | iter2--value)................... |
| a7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c | ............................(unl |
| a820 | 65 73 73 20 28 65 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 2c 69 | ess.(eq.,iter2--continuations.,i |
| a840 | 74 65 72 32 2d 2d 64 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ter2--done)..................... |
| a860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | ............................(set |
| a8a0 | 71 20 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 | q.buffer.(current-buffer))...... |
| a8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a900 | 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 2c 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 | ...........(push.,iter2--catcher |
| a920 | 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 | .,iter2--continuations))))...... |
| a940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a980 | 20 20 20 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 | ....(iter2--merge-continuation-f |
| a9a0 | 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | orm.converted-body)............. |
| a9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| a9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 62 | .............................'(b |
| aa00 | 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 | uffer.(current-buffer)))........ |
| aa20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 | .........................convert |
| aa40 | 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ed)...........................(s |
| aa60 | 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | etq.can-yield.t))............... |
| aa80 | 20 20 20 28 70 75 73 68 20 60 28 73 61 76 65 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 2c | ...(push.`(save-current-buffer., |
| aaa0 | 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 | @(macroexp-unprogn.(car.converte |
| aac0 | 64 2d 62 6f 64 79 29 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 0a 0a 20 20 20 20 20 20 20 | d-body))).converted))))......... |
| aae0 | 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 60 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e | .....;;.Handle.`save-restriction |
| ab00 | 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 | '..............(`(save-restricti |
| ab20 | 6f 6e 20 2e 20 2c 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 | on...,body)..............(let.(( |
| ab40 | 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 70 | converted-body.(iter2--convert-p |
| ab60 | 72 6f 67 6e 20 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | rogn.body)))................(if. |
| ab80 | 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (cdr.converted-body)............ |
| aba0 | 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 70 75 73 68 20 28 69 74 65 72 32 2d 2d 63 61 74 | ........(progn.(push.(iter2--cat |
| abc0 | 63 68 65 72 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 60 28 | cher-continuation-adding-form.`( |
| abe0 | 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | save-restriction................ |
| ac00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ac20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 61 | .............................(na |
| ac40 | 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 70 6f 69 6e 74 2d 6d 69 6e 20 70 6f 69 6e 74 2d 6d | rrow-to-region.point-min.point-m |
| ac60 | 61 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ax)............................. |
| ac80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| aca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 2c 28 69 74 65 72 32 2d 2d | ................(prog1.,(iter2-- |
| acc0 | 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 20 69 74 65 | continuation-invocation-form.ite |
| ace0 | 72 32 2d 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r2--value)...................... |
| ad00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ad20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 | .........................(unless |
| ad40 | 20 28 65 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 | .(eq.,iter2--continuations.,iter |
| ad60 | 32 2d 2d 64 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 2--done)........................ |
| ad80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ada0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 | .........................(setq.p |
| adc0 | 6f 69 6e 74 2d 6d 69 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 | oint-min.(point-min)............ |
| ade0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ae00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ae20 | 20 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 2d 6d 61 78 20 28 70 6f 69 6e 74 2d 6d 61 78 29 | ...........point-max.(point-max) |
| ae40 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| ae60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| ae80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 2c 69 74 65 72 32 2d 2d | ..................(push.,iter2-- |
| aea0 | 63 61 74 63 68 65 72 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 | catcher.,iter2--continuations))) |
| aec0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| aee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| af00 | 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 | ...........(iter2--merge-continu |
| af20 | 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 | ation-form.converted-body)...... |
| af40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| af60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| af80 | 20 20 20 20 27 28 70 6f 69 6e 74 2d 6d 69 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 | ....'(point-min.(point-min)).... |
| afa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| afc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| afe0 | 20 20 20 20 20 20 27 28 70 6f 69 6e 74 2d 6d 61 78 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a | ......'(point-max.(point-max))). |
| b000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b020 | 63 6f 6e 76 65 72 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | converted)...................... |
| b040 | 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 74 29 29 0a 20 20 20 20 20 20 20 | .....(setq.can-yield.t))........ |
| b060 | 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 | ..........(push.`(save-restricti |
| b080 | 6f 6e 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 63 61 72 20 63 6f 6e 76 | on.,@(macroexp-unprogn.(car.conv |
| b0a0 | 65 72 74 65 64 2d 62 6f 64 79 29 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 0a 0a 20 20 20 | erted-body))).converted))))..... |
| b0c0 | 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 60 73 61 76 65 2d 6d 61 74 63 68 2d 64 | .........;;.Handle.`save-match-d |
| b0e0 | 61 74 61 27 20 6d 61 63 72 6f 3a 20 6e 6f 74 20 61 20 73 70 65 63 69 61 6c 20 66 6f 72 6d 2c 20 | ata'.macro:.not.a.special.form,. |
| b100 | 62 75 74 20 77 69 74 68 6f 75 74 20 73 70 65 63 69 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 | but.without.special............. |
| b120 | 3b 3b 20 68 61 6e 64 6c 69 6e 67 20 64 6f 65 73 6e 27 74 20 70 72 6f 64 75 63 65 20 69 6e 74 65 | ;;.handling.doesn't.produce.inte |
| b140 | 6e 64 65 64 20 72 65 73 75 6c 74 73 20 69 6e 20 67 65 6e 65 72 61 74 6f 72 20 66 75 6e 63 74 69 | nded.results.in.generator.functi |
| b160 | 6f 6e 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 | ons..............(`(save-match-d |
| b180 | 61 74 61 20 2e 20 2c 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | ata...,body)..............(let.( |
| b1a0 | 28 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d | (converted-body.(iter2--convert- |
| b1c0 | 70 72 6f 67 6e 20 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 | progn.body)))................(if |
| b1e0 | 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 | .(cdr.converted-body)........... |
| b200 | 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 70 75 73 68 20 28 69 74 65 72 32 2d 2d 63 61 | .........(progn.(push.(iter2--ca |
| b220 | 74 63 68 65 72 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 60 | tcher-continuation-adding-form.` |
| b240 | 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (save-match-data................ |
| b260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | .............................(se |
| b2a0 | 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 74 63 68 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 | t-match-data.match-data)........ |
| b2c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b300 | 20 20 20 20 20 28 70 72 6f 67 31 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f | .....(prog1.,(iter2--continuatio |
| b320 | 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f 72 6d 20 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 0a | n-invocation-form.iter2--value). |
| b340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 2c 69 74 65 72 32 | ..............(unless.(eq.,iter2 |
| b3a0 | 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 29 0a 20 20 | --continuations.,iter2--done)... |
| b3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 64 61 74 61 20 6e 69 6c 20 6d 61 | ..............(match-data.nil.ma |
| b420 | 74 63 68 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tch-data)....................... |
| b440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | ..........................(push. |
| b480 | 2c 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 | ,iter2--catcher.,iter2--continua |
| b4a0 | 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tions))))....................... |
| b4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 | ...................(iter2--merge |
| b500 | 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 | -continuation-form.converted-bod |
| b520 | 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y).............................. |
| b540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b560 | 20 20 20 20 20 20 20 20 20 20 20 20 27 28 6d 61 74 63 68 2d 64 61 74 61 20 28 6d 61 74 63 68 2d | ............'(match-data.(match- |
| b580 | 64 61 74 61 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | data)))......................... |
| b5a0 | 20 20 20 20 20 20 20 20 63 6f 6e 76 65 72 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........converted).............. |
| b5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 2d 79 69 65 6c 64 20 74 29 29 | .............(setq.can-yield.t)) |
| b5e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 73 61 76 65 2d 6d | ..................(push.`(save-m |
| b600 | 61 74 63 68 2d 64 61 74 61 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 63 | atch-data.,@(macroexp-unprogn.(c |
| b620 | 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 | ar.converted-body))).converted)) |
| b640 | 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 60 77 69 74 68 2d | ))..............;;.Handle.`with- |
| b660 | 6e 6f 2d 77 61 72 6e 69 6e 67 73 27 3a 20 77 68 69 6c 65 20 6e 6f 74 20 61 20 73 70 65 63 69 61 | no-warnings':.while.not.a.specia |
| b680 | 6c 20 66 6f 72 6d 2c 20 69 74 20 72 65 71 75 69 72 65 73 20 73 70 65 63 69 61 6c 20 68 61 6e 64 | l.form,.it.requires.special.hand |
| b6a0 | 6c 69 6e 67 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 77 69 74 68 2d 6e 6f 2d 77 61 72 | ling..............(`(with-no-war |
| b6c0 | 6e 69 6e 67 73 20 2e 20 2c 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | nings...,body)..............(let |
| b6e0 | 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 | .((converted-body.(iter2--conver |
| b700 | 74 2d 70 72 6f 67 6e 20 62 6f 64 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | t-progn.body)))................( |
| b720 | 70 75 73 68 20 60 28 77 69 74 68 2d 6e 6f 2d 77 61 72 6e 69 6e 67 73 20 2c 40 28 6d 61 63 72 6f | push.`(with-no-warnings.,@(macro |
| b740 | 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e | exp-unprogn.(iter2--merge-contin |
| b760 | 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 29 29 20 63 6f | uation-form.converted-body))).co |
| b780 | 6e 76 65 72 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 | nverted)................(setq.ca |
| b7a0 | 6e 2d 79 69 65 6c 64 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 2d 62 6f 64 79 29 29 29 29 0a | n-yield.(cdr.converted-body)))). |
| b7c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 61 6c 6c 20 6f 74 68 65 72 | .............;;.Handle.all.other |
| b7e0 | 20 6e 6f 6e 2d 61 74 6f 6d 69 63 20 66 6f 72 6d 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | .non-atomic.forms..............( |
| b800 | 60 28 2c 6e 61 6d 65 20 2e 20 2c 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 | `(,name...,arguments)........... |
| b820 | 20 20 20 3b 3b 20 53 65 76 65 72 61 6c 20 73 70 65 63 69 61 6c 20 66 6f 72 6d 73 20 61 72 65 20 | ...;;.Several.special.forms.are. |
| b840 | 68 61 6e 64 6c 65 64 20 6d 6f 72 65 2d 6f 72 2d 6c 65 73 73 20 6c 69 6b 65 20 66 75 6e 63 74 69 | handled.more-or-less.like.functi |
| b860 | 6f 6e 20 63 61 6c 6c 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e | on.calls...............(when.(an |
| b880 | 64 20 28 73 70 65 63 69 61 6c 2d 66 6f 72 6d 2d 70 20 6e 61 6d 65 29 20 28 6e 6f 74 20 28 6d 65 | d.(special-form-p.name).(not.(me |
| b8a0 | 6d 71 20 6e 61 6d 65 20 27 28 73 65 74 71 20 73 65 74 71 2d 64 65 66 61 75 6c 74 20 74 68 72 6f | mq.name.'(setq.setq-default.thro |
| b8c0 | 77 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 53 70 65 | w))))................(error."Spe |
| b8e0 | 63 69 61 6c 20 66 6f 72 6d 20 25 53 20 69 6e 63 6f 72 72 65 63 74 20 6f 72 20 6e 6f 74 20 73 75 | cial.form.%S.incorrect.or.not.su |
| b900 | 70 70 6f 72 74 65 64 22 20 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | pported".form))..............(le |
| b920 | 74 20 28 63 6f 6e 76 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 | t.(converted-arguments.......... |
| b940 | 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 72 67 75 | ..........next-continuation-argu |
| b960 | 6d 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 75 6d 65 6e | ments....................argumen |
| b980 | 74 73 2d 74 6f 2d 73 61 76 65 2d 6f 6e 2d 73 74 61 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ts-to-save-on-stack............. |
| b9a0 | 20 20 20 20 20 20 20 28 6e 75 6d 2d 73 74 61 63 6b 2d 61 72 67 75 6d 65 6e 74 73 20 30 29 29 0a | .......(num-stack-arguments.0)). |
| b9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 61 72 67 75 6d 65 6e 74 73 0a | ...............(while.arguments. |
| b9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 75 6d 65 6e 74 | .................(let.((argument |
| ba00 | 20 28 70 6f 70 20 61 72 67 75 6d 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(pop.arguments))).............. |
| ba20 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 61 72 67 75 6d 65 6e 74 20 69 74 65 72 32 2d | ......(cond.((eq.argument.iter2- |
| ba40 | 2d 73 74 61 63 6b 2d 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -stack-state)................... |
| ba60 | 20 20 20 20 20 20 20 20 3b 3b 20 54 68 69 73 20 69 73 20 6f 75 72 20 70 72 69 76 61 74 65 20 69 | ........;;.This.is.our.private.i |
| ba80 | 6e 74 65 72 6e 61 6c 20 66 6c 61 67 20 74 68 61 74 20 6d 65 61 6e 73 20 22 74 61 6b 65 20 61 0a | nternal.flag.that.means."take.a. |
| baa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 72 65 | ..........................;;.pre |
| bac0 | 76 69 6f 75 73 6c 79 20 63 6f 6d 70 75 74 65 64 20 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 65 20 | viously.computed.value.from.the. |
| bae0 | 73 74 61 63 6b 22 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | stack".......................... |
| bb00 | 20 20 28 70 75 73 68 20 60 28 70 6f 70 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 20 63 6f 6e | ..(push.`(pop.,iter2--stack).con |
| bb20 | 76 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | verted-arguments)............... |
| bb40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 | ............(push.iter2--stack-s |
| bb60 | 74 61 74 65 20 20 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 72 67 75 6d 65 6e | tate...next-continuation-argumen |
| bb80 | 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | ts)...........................(s |
| bba0 | 65 74 71 20 6e 75 6d 2d 73 74 61 63 6b 2d 61 72 67 75 6d 65 6e 74 73 20 28 31 2b 20 6e 75 6d 2d | etq.num-stack-arguments.(1+.num- |
| bbc0 | 73 74 61 63 6b 2d 61 72 67 75 6d 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | stack-arguments))).............. |
| bbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 69 74 65 72 32 2d 2d 6c 69 74 65 72 61 6c | ............((or.(iter2--literal |
| bc00 | 70 20 61 72 67 75 6d 65 6e 74 29 20 28 61 6e 64 20 28 6d 65 6d 71 20 6e 61 6d 65 20 27 28 73 65 | p.argument).(and.(memq.name.'(se |
| bc20 | 74 71 20 73 65 74 71 2d 64 65 66 61 75 6c 74 29 29 20 28 3d 20 28 25 20 28 6c 65 6e 67 74 68 20 | tq.setq-default)).(=.(%.(length. |
| bc40 | 63 6f 6e 76 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 73 29 20 32 29 20 30 29 29 29 0a 20 20 20 | converted-arguments).2).0))).... |
| bc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 61 72 67 | .......................(push.arg |
| bc80 | 75 6d 65 6e 74 20 63 6f 6e 76 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 20 | ument.converted-arguments)...... |
| bca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 61 72 67 75 6d | .....................(push.argum |
| bcc0 | 65 6e 74 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 73 29 | ent.next-continuation-arguments) |
| bce0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 | )..........................(t... |
| bd00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 | ........................(let.((c |
| bd20 | 6f 6e 76 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 20 28 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 | onverted-argument.(iter2--conver |
| bd40 | 74 2d 66 6f 72 6d 20 61 72 67 75 6d 65 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-form.argument))).............. |
| bd60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 | ...............(if.(cdr.converte |
| bd80 | 64 2d 61 72 67 75 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-argument)..................... |
| bda0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 77 68 65 6e 20 61 72 67 75 6d 65 6e | ............(progn.(when.argumen |
| bdc0 | 74 73 2d 74 6f 2d 73 61 76 65 2d 6f 6e 2d 73 74 61 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ts-to-save-on-stack............. |
| bde0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | .............................(pu |
| be00 | 73 68 20 28 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 6e 72 | sh.(iter2--stack-adding-form.(nr |
| be20 | 65 76 65 72 73 65 20 61 72 67 75 6d 65 6e 74 73 2d 74 6f 2d 73 61 76 65 2d 6f 6e 2d 73 74 61 63 | everse.arguments-to-save-on-stac |
| be40 | 6b 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | k)).converted))................. |
| be60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 61 | .......................(iter2--a |
| be80 | 64 64 2d 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 20 28 63 61 72 | dd-converted-form.converted.(car |
| bea0 | 20 63 6f 6e 76 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .converted-argument))........... |
| bec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | .............................(pu |
| bee0 | 73 68 20 60 28 2c 6e 61 6d 65 20 2c 40 28 6e 72 65 76 65 72 73 65 20 6e 65 78 74 2d 63 6f 6e 74 | sh.`(,name.,@(nreverse.next-cont |
| bf00 | 69 6e 75 61 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 73 29 20 2c 28 63 64 72 20 63 6f 6e 76 65 72 | inuation-arguments).,(cdr.conver |
| bf20 | 74 65 64 2d 61 72 67 75 6d 65 6e 74 29 20 2c 40 61 72 67 75 6d 65 6e 74 73 29 20 62 6f 64 79 29 | ted-argument).,@arguments).body) |
| bf40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| bf60 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 72 67 75 6d 65 6e 74 73 20 6e 69 6c 0a 20 20 20 20 | ........(setq.arguments.nil..... |
| bf80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| bfa0 | 20 20 20 20 20 20 20 20 20 63 61 6e 2d 79 69 65 6c 64 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 | .........can-yield.t)).......... |
| bfc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 61 72 20 | .....................(push.(car. |
| bfe0 | 63 6f 6e 76 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 29 20 63 6f 6e 76 65 72 74 65 64 2d 61 72 | converted-argument).converted-ar |
| c000 | 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | guments)........................ |
| c020 | 20 20 20 20 20 20 20 28 70 75 73 68 20 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 73 74 61 74 65 20 | .......(push.iter2--stack-state. |
| c040 | 20 20 20 20 20 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 | ......next-continuation-argument |
| c060 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s).............................. |
| c080 | 20 28 70 75 73 68 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 29 20 | .(push.(car.converted-argument). |
| c0a0 | 61 72 67 75 6d 65 6e 74 73 2d 74 6f 2d 73 61 76 65 2d 6f 6e 2d 73 74 61 63 6b 29 29 29 29 29 29 | arguments-to-save-on-stack)))))) |
| c0c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 61 6e 2d 79 69 65 | )................(unless.can-yie |
| c0e0 | 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 6e 75 6d | ld..................(when.(>.num |
| c100 | 2d 73 74 61 63 6b 2d 61 72 67 75 6d 65 6e 74 73 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -stack-arguments.1)............. |
| c120 | 20 20 20 20 20 20 20 28 70 75 73 68 20 28 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 68 65 61 64 2d | .......(push.(iter2--stack-head- |
| c140 | 72 65 76 65 72 73 69 6e 67 2d 66 6f 72 6d 20 6e 75 6d 2d 73 74 61 63 6b 2d 61 72 67 75 6d 65 6e | reversing-form.num-stack-argumen |
| c160 | 74 73 29 20 63 6f 6e 76 65 72 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ts).converted))................. |
| c180 | 20 28 70 75 73 68 20 28 63 6f 6e 73 20 6e 61 6d 65 20 28 6e 72 65 76 65 72 73 65 20 63 6f 6e 76 | .(push.(cons.name.(nreverse.conv |
| c1a0 | 65 72 74 65 64 2d 61 72 67 75 6d 65 6e 74 73 29 29 20 63 6f 6e 76 65 72 74 65 64 29 29 29 29 0a | erted-arguments)).converted)))). |
| c1c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 5f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | .............(_..............(pu |
| c1e0 | 73 68 20 66 6f 72 6d 20 63 6f 6e 76 65 72 74 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | sh.form.converted)))...........( |
| c200 | 77 68 65 6e 20 63 61 6e 2d 79 69 65 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 | when.can-yield.............(iter |
| c220 | 32 2d 2d 66 69 6e 69 73 68 2d 63 68 75 6e 6b 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 | 2--finish-chunk.converted-chunks |
| c240 | 20 63 6f 6e 76 65 72 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 | .converted).............(setq.ca |
| c260 | 6e 2d 79 69 65 6c 64 20 6e 69 6c 29 29 29 29 0a 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6e | n-yield.nil))))........(setq.con |
| c280 | 76 65 72 74 65 64 20 28 6e 72 65 76 65 72 73 65 20 63 6f 6e 76 65 72 74 65 64 29 29 0a 20 20 20 | verted.(nreverse.converted)).... |
| c2a0 | 20 20 20 28 69 66 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 0a 20 20 20 20 20 20 20 20 | ...(if.converted-chunks......... |
| c2c0 | 20 20 28 70 72 6f 67 6e 20 28 73 65 74 71 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 20 | ..(progn.(setq.converted-chunks. |
| c2e0 | 28 6e 72 65 76 65 72 73 65 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 29 29 0a 20 20 20 | (nreverse.converted-chunks)).... |
| c300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 69 66 20 28 63 64 72 20 63 6f 6e | ..............(cons.(if.(cdr.con |
| c320 | 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | verted-chunks).................. |
| c340 | 20 20 20 20 20 20 20 20 20 20 60 28 70 72 6f 67 6e 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 | ..........`(progn.,(iter2--conti |
| c360 | 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 72 65 76 65 72 73 65 20 28 63 64 | nuation-adding-form.(reverse.(cd |
| c380 | 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | r.converted-chunks)))........... |
| c3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6d 61 63 72 | .........................,@(macr |
| c3c0 | 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 28 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e | oexp-unprogn.(car.converted-chun |
| c3e0 | 6b 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ks)))..........................( |
| c400 | 63 61 72 20 63 6f 6e 76 65 72 74 65 64 2d 63 68 75 6e 6b 73 29 29 0a 20 20 20 20 20 20 20 20 20 | car.converted-chunks)).......... |
| c420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 63 6f 6e 76 65 72 74 65 64 20 28 6d 61 63 | ..............(if.converted.(mac |
| c440 | 72 6f 65 78 70 2d 70 72 6f 67 6e 20 63 6f 6e 76 65 72 74 65 64 29 20 69 74 65 72 32 2d 2d 76 61 | roexp-progn.converted).iter2--va |
| c460 | 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6d 61 63 72 6f 65 78 70 2d 70 | lue))).........(cons.(macroexp-p |
| c480 | 72 6f 67 6e 20 63 6f 6e 76 65 72 74 65 64 29 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | rogn.converted).nil)))))..(defun |
| c4a0 | 20 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 2d 74 72 61 63 65 72 20 28 66 75 6e | .iter2--convert-form-tracer.(fun |
| c4c0 | 63 74 69 6f 6e 20 66 6f 72 6d 29 0a 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 66 75 6e | ction.form)...(let.((result.(fun |
| c4e0 | 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 6d 29 29 29 0a 20 20 20 20 28 69 66 20 28 6f | call.function.form))).....(if.(o |
| c500 | 72 20 28 61 74 6f 6d 20 66 6f 72 6d 29 20 28 6e 75 6c 6c 20 69 74 65 72 32 2d 74 72 61 63 69 6e | r.(atom.form).(null.iter2-tracin |
| c520 | 67 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 0a 20 20 20 20 | g-function)).........result..... |
| c540 | 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e 74 61 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 | ..(let.((indentation............ |
| c560 | 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 2a 20 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 65 72 | (make-string.(*.iter2--converter |
| c580 | 2d 64 65 70 74 68 20 34 29 20 3f 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 | -depth.4).?.)).............(iter |
| c5a0 | 32 2d 2d 63 6f 6e 76 65 72 74 65 72 2d 64 65 70 74 68 20 28 31 2b 20 69 74 65 72 32 2d 2d 63 6f | 2--converter-depth.(1+.iter2--co |
| c5c0 | 6e 76 65 72 74 65 72 2d 64 65 70 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | nverter-depth))).........(funcal |
| c5e0 | 6c 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 20 22 25 73 22 20 28 72 | l.iter2-tracing-function."%s".(r |
| c600 | 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5e 22 20 69 6e 64 65 | eplace-regexp-in-string."^".inde |
| c620 | 6e 74 61 74 69 6f 6e 20 28 66 6f 72 6d 61 74 20 22 46 4f 52 4d 3a 20 25 73 22 20 28 69 74 65 72 | ntation.(format."FORM:.%s".(iter |
| c640 | 32 2d 2d 70 70 2d 74 6f 2d 73 74 72 69 6e 67 20 66 6f 72 6d 20 36 30 20 36 29 29 20 74 20 74 29 | 2--pp-to-string.form.60.6)).t.t) |
| c660 | 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 | ).........(funcall.iter2-tracing |
| c680 | 2d 66 75 6e 63 74 69 6f 6e 20 22 25 73 22 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 | -function."%s".(replace-regexp-i |
| c6a0 | 6e 2d 73 74 72 69 6e 67 20 22 5e 22 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 28 66 6f 72 6d 61 74 | n-string."^".indentation.(format |
| c6c0 | 20 22 2d 2d 2d 3e 3a 20 25 73 5c 6e 2b 3a 20 20 20 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 | ."--->:.%s\n+:....%s"........... |
| c6e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 70 70 2d | .....................(iter2--pp- |
| c740 | 74 6f 2d 73 74 72 69 6e 67 20 28 63 61 72 20 72 65 73 75 6c 74 29 20 36 30 20 36 29 0a 20 20 20 | to-string.(car.result).60.6).... |
| c760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 | ............................(ite |
| c7c0 | 72 32 2d 2d 70 70 2d 74 6f 2d 73 74 72 69 6e 67 20 28 63 64 72 20 72 65 73 75 6c 74 29 20 36 30 | r2--pp-to-string.(cdr.result).60 |
| c7e0 | 20 36 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .6))............................ |
| c800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| c820 | 20 20 20 20 20 20 20 20 20 20 20 20 74 20 74 29 29 0a 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 | ............t.t)).........result |
| c840 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 70 70 2d 74 6f 2d 73 74 72 69 6e 67 | ))))..(defun.iter2--pp-to-string |
| c860 | 20 28 6f 62 6a 65 63 74 20 26 6f 70 74 69 6f 6e 61 6c 20 6d 61 78 2d 73 69 6e 67 6c 65 2d 6c 69 | .(object.&optional.max-single-li |
| c880 | 6e 65 2d 6c 65 6e 67 74 68 20 69 6e 64 65 6e 74 2d 62 79 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 | ne-length.indent-by)...(let*.((p |
| c8a0 | 72 69 6e 74 2d 71 75 6f 74 65 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 | rint-quoted.t)..........(string. |
| c8c0 | 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 62 6a 65 63 74 29 29 29 | ......(prin1-to-string.object))) |
| c8e0 | 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6d 61 78 2d 73 69 6e 67 6c 65 2d 6c 69 6e 65 2d | .....(when.(and.max-single-line- |
| c900 | 6c 65 6e 67 74 68 20 28 3e 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 20 6d 61 78 2d 73 69 | length.(>.(length.string).max-si |
| c920 | 6e 67 6c 65 2d 6c 69 6e 65 2d 6c 65 6e 67 74 68 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 | ngle-line-length)).......(setq.s |
| c940 | 74 72 69 6e 67 20 28 73 74 72 69 6e 67 2d 74 72 69 6d 2d 72 69 67 68 74 20 28 70 70 2d 74 6f 2d | tring.(string-trim-right.(pp-to- |
| c960 | 73 74 72 69 6e 67 20 6f 62 6a 65 63 74 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 | string.object)))).....(when.(and |
| c980 | 20 69 6e 64 65 6e 74 2d 62 79 20 28 3e 20 69 6e 64 65 6e 74 2d 62 79 20 30 29 29 0a 20 20 20 20 | .indent-by.(>.indent-by.0))..... |
| c9a0 | 20 20 28 73 65 74 71 20 73 74 72 69 6e 67 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 | ..(setq.string.(replace-regexp-i |
| c9c0 | 6e 2d 73 74 72 69 6e 67 20 22 5c 6e 22 20 28 63 6f 6e 63 61 74 20 22 5c 6e 22 20 28 6d 61 6b 65 | n-string."\n".(concat."\n".(make |
| c9e0 | 2d 73 74 72 69 6e 67 20 69 6e 64 65 6e 74 2d 62 79 20 3f 20 29 29 20 73 74 72 69 6e 67 20 74 20 | -string.indent-by.?.)).string.t. |
| ca00 | 74 29 29 29 0a 20 20 20 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d | t))).....string))..(defun.iter2- |
| ca20 | 2d 64 65 62 75 67 2d 63 6f 6e 76 65 72 74 65 72 20 28 65 6e 61 62 6c 65 29 0a 20 20 28 69 66 20 | -debug-converter.(enable)...(if. |
| ca40 | 65 6e 61 62 6c 65 0a 20 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 23 27 69 74 65 72 32 | enable.......(advice-add.#'iter2 |
| ca60 | 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 3a 61 72 6f 75 6e 64 20 23 27 69 74 65 72 32 2d 2d | --convert-form.:around.#'iter2-- |
| ca80 | 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 2d 74 72 61 63 65 72 29 0a 20 20 20 20 28 61 64 76 69 63 65 | convert-form-tracer).....(advice |
| caa0 | 2d 72 65 6d 6f 76 65 20 23 27 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 20 23 27 | -remove.#'iter2--convert-form.#' |
| cac0 | 69 74 65 72 32 2d 2d 63 6f 6e 76 65 72 74 2d 66 6f 72 6d 2d 74 72 61 63 65 72 29 29 29 0a 0a 28 | iter2--convert-form-tracer)))..( |
| cae0 | 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 69 6e 76 6f 63 61 | defun.iter2--continuation-invoca |
| cb00 | 74 69 6f 6e 2d 66 6f 72 6d 20 28 76 61 6c 75 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 61 6d 62 64 | tion-form.(value.&optional.lambd |
| cb20 | 61 29 0a 20 20 28 69 66 20 69 74 65 72 32 2d 67 65 6e 65 72 61 74 65 2d 74 72 61 63 69 6e 67 2d | a)...(if.iter2-generate-tracing- |
| cb40 | 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 60 28 6c 65 74 20 28 28 66 75 6e 63 74 69 6f 6e | functions.......`(let.((function |
| cb60 | 20 2c 28 6f 72 20 6c 61 6d 62 64 61 20 60 28 70 6f 70 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 | .,(or.lambda.`(pop.,iter2--conti |
| cb80 | 6e 75 61 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 64 6f | nuations))))..........(iter2--do |
| cba0 | 2d 74 72 61 63 65 20 22 69 6e 76 6f 6b 69 6e 67 20 25 53 20 77 69 74 68 20 76 61 6c 75 65 20 25 | -trace."invoking.%S.with.value.% |
| cbc0 | 53 22 20 66 75 6e 63 74 69 6f 6e 20 2c 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 | S".function.,value)..........(le |
| cbe0 | 74 20 28 28 69 74 65 72 32 2d 2d 74 72 61 63 69 6e 67 2d 64 65 70 74 68 20 28 31 2b 20 69 74 65 | t.((iter2--tracing-depth.(1+.ite |
| cc00 | 72 32 2d 2d 74 72 61 63 69 6e 67 2d 64 65 70 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | r2--tracing-depth)))............ |
| cc20 | 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 2c 76 61 6c 75 65 29 29 29 0a 20 20 20 20 | (funcall.function.,value)))..... |
| cc40 | 60 28 66 75 6e 63 61 6c 6c 20 2c 28 6f 72 20 6c 61 6d 62 64 61 20 60 28 70 6f 70 20 2c 69 74 65 | `(funcall.,(or.lambda.`(pop.,ite |
| cc60 | 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 20 2c 76 61 6c 75 65 29 29 29 0a 0a 28 | r2--continuations)).,value)))..( |
| cc80 | 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d | defun.iter2--cleanup-invocation- |
| cca0 | 62 6f 64 79 20 28 29 0a 20 20 28 69 66 20 69 74 65 72 32 2d 67 65 6e 65 72 61 74 65 2d 74 72 61 | body.()...(if.iter2-generate-tra |
| ccc0 | 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 60 28 6c 65 74 20 28 28 66 75 6e | cing-functions.......`(let.((fun |
| cce0 | 63 74 69 6f 6e 20 28 70 6f 70 20 2c 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 29 29 29 0a 20 | ction.(pop.,iter2--cleanups))).. |
| cd00 | 20 20 20 20 20 20 20 20 28 69 74 65 72 32 2d 2d 64 6f 2d 74 72 61 63 65 20 22 63 6c 65 61 6e 69 | ........(iter2--do-trace."cleani |
| cd20 | 6e 67 20 75 70 20 75 73 69 6e 67 20 25 53 22 20 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 | ng.up.using.%S".function)....... |
| cd40 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 60 28 66 75 6e | ...(funcall.function)).....`(fun |
| cd60 | 63 61 6c 6c 20 28 70 6f 70 20 2c 69 74 65 72 32 2d 2d 63 6c 65 61 6e 75 70 73 29 29 29 29 0a 0a | call.(pop.,iter2--cleanups)))).. |
| cd80 | 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 6d 65 72 67 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e | (defun.iter2--merge-continuation |
| cda0 | 2d 66 6f 72 6d 20 28 63 6f 6e 76 65 72 74 65 64 20 26 6f 70 74 69 6f 6e 61 6c 20 76 61 72 29 0a | -form.(converted.&optional.var). |
| cdc0 | 20 20 28 6c 65 74 20 28 28 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 20 20 20 20 28 63 61 72 20 | ..(let.((converted-form....(car. |
| cde0 | 63 6f 6e 76 65 72 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 74 69 6e 75 61 74 69 6f | converted)).........(continuatio |
| ce00 | 6e 2d 66 6f 72 6d 20 28 63 64 72 20 63 6f 6e 76 65 72 74 65 64 29 29 29 0a 20 20 20 20 28 69 66 | n-form.(cdr.converted))).....(if |
| ce20 | 20 28 61 6e 64 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 28 6e 6f 74 20 28 65 71 | .(and.continuation-form.(not.(eq |
| ce40 | 20 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 20 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 | .continuation-form.iter2--value) |
| ce60 | 29 29 0a 20 20 20 20 20 20 20 20 60 28 70 72 6f 67 6e 20 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 | )).........`(progn.,(iter2--cont |
| ce80 | 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 6c 69 73 74 20 63 6f 6e 74 69 | inuation-adding-form.(list.conti |
| cea0 | 6e 75 61 74 69 6f 6e 2d 66 6f 72 6d 29 20 76 61 72 29 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 | nuation-form).var).,@(macroexp-u |
| cec0 | 6e 70 72 6f 67 6e 20 63 6f 6e 76 65 72 74 65 64 2d 66 6f 72 6d 29 29 0a 20 20 20 20 20 20 63 6f | nprogn.converted-form)).......co |
| cee0 | 6e 76 65 72 74 65 64 2d 66 6f 72 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 63 | nverted-form)))..(defun.iter2--c |
| cf00 | 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 6e 65 77 2d 63 6f 6e | ontinuation-adding-form.(new-con |
| cf20 | 74 69 6e 75 61 74 69 6f 6e 73 20 26 6f 70 74 69 6f 6e 61 6c 20 76 61 72 29 0a 20 20 28 6c 65 74 | tinuations.&optional.var)...(let |
| cf40 | 20 28 28 76 61 6c 75 65 20 28 6f 72 20 76 61 72 20 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 | .((value.(or.var.iter2--continua |
| cf60 | 74 69 6f 6e 73 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 6e 65 77 2d 63 6f 6e 74 69 6e 75 61 | tions))).....(while.new-continua |
| cf80 | 74 69 6f 6e 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 76 61 6c 75 65 20 60 28 63 6f 6e 73 20 28 | tions.......(setq.value.`(cons.( |
| cfa0 | 6c 61 6d 62 64 61 20 28 2c 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 20 2c 40 28 6d 61 63 72 6f 65 | lambda.(,iter2--value).,@(macroe |
| cfc0 | 78 70 2d 75 6e 70 72 6f 67 6e 20 28 70 6f 70 20 6e 65 77 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e | xp-unprogn.(pop.new-continuation |
| cfe0 | 73 29 29 29 20 2c 76 61 6c 75 65 29 29 29 0a 20 20 20 20 60 28 73 65 74 71 20 2c 28 6f 72 20 76 | s))).,value))).....`(setq.,(or.v |
| d000 | 61 72 20 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 20 2c 76 61 6c 75 65 29 | ar.iter2--continuations).,value) |
| d020 | 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 2d 63 6f 6e 74 69 6e | ))..(defun.iter2--catcher-contin |
| d040 | 75 61 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 63 61 74 63 68 65 72 2d 62 6f 64 79 | uation-adding-form.(catcher-body |
| d060 | 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 26 72 65 73 74 20 61 64 64 69 74 69 6f | .next-continuation.&rest.additio |
| d080 | 6e 61 6c 2d 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 60 28 | nal-catcher-outer-bindings)...`( |
| d0a0 | 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 0a 20 20 20 20 20 | setq.,iter2--continuations...... |
| d0c0 | 20 20 20 20 28 63 6f 6e 73 20 28 6c 65 74 20 28 28 2c 69 74 65 72 32 2d 2d 64 6f 6e 65 20 2c 69 | ....(cons.(let.((,iter2--done.,i |
| d0e0 | 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ter2--continuations)............ |
| d100 | 20 20 20 20 20 20 20 20 20 20 2c 40 28 64 65 6c 71 20 6e 69 6c 20 61 64 64 69 74 69 6f 6e 61 6c | ..........,@(delq.nil.additional |
| d120 | 2d 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 | -catcher-outer-bindings)........ |
| d140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 29 0a 20 | ..............,iter2--catcher).. |
| d160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 63 61 | ................(setq.,iter2--ca |
| d180 | 74 63 68 65 72 20 28 6c 61 6d 62 64 61 20 28 2c 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 20 2c 40 | tcher.(lambda.(,iter2--value).,@ |
| d1a0 | 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 6f 67 6e 20 63 61 74 63 68 65 72 2d 62 6f 64 79 29 29 | (macroexp-unprogn.catcher-body)) |
| d1c0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6c 61 6d 62 64 61 20 | ))................(cons.(lambda. |
| d1e0 | 28 2c 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 20 2c 40 28 6d 61 63 72 6f 65 78 70 2d 75 6e 70 72 | (,iter2--value).,@(macroexp-unpr |
| d200 | 6f 67 6e 20 6e 65 78 74 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 | ogn.next-continuation))......... |
| d220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f | .............,iter2--continuatio |
| d240 | 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 6c 65 74 2a 2d 79 69 65 6c 64 | ns))))..(defun.iter2--let*-yield |
| d260 | 69 6e 67 2d 66 6f 72 6d 20 28 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 | ing-form.(catcher-outer-bindings |
| d280 | 20 63 61 74 63 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 6e 67 73 20 63 6f 6e 74 69 6e 75 61 | .catcher-inner-bindings.continua |
| d2a0 | 74 69 6f 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 6d 2d 62 65 66 6f 72 65 2d 63 6f 6e 74 69 | tion.&optional.form-before-conti |
| d2c0 | 6e 75 61 74 69 6f 6e 29 0a 20 20 28 6c 65 74 20 28 6d 61 69 6e 2d 62 69 6e 64 69 6e 67 73 29 0a | nuation)...(let.(main-bindings). |
| d2e0 | 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 | ....(while.(and.catcher-outer-bi |
| d300 | 6e 64 69 6e 67 73 20 28 63 61 72 20 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e | ndings.(car.catcher-outer-bindin |
| d320 | 67 73 29 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 28 70 6f 70 20 63 61 74 63 68 65 72 2d 6f 75 | gs)).......(push.(pop.catcher-ou |
| d340 | 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 20 6d 61 69 6e 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 | ter-bindings).main-bindings))... |
| d360 | 20 20 28 73 65 74 71 20 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 20 28 | ..(setq.catcher-outer-bindings.( |
| d380 | 63 64 72 20 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 | cdr.catcher-outer-bindings)).... |
| d3a0 | 20 28 6c 65 74 20 28 28 66 6f 72 6d 20 60 28 2c 28 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 | .(let.((form.`(,(iter2--continua |
| d3c0 | 74 69 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 28 6c 69 73 74 20 63 6f 6e 74 69 6e 75 61 74 | tion-adding-form.(list.continuat |
| d3e0 | 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 77 68 65 6e 20 | ion))...................,@(when. |
| d400 | 66 6f 72 6d 2d 62 65 66 6f 72 65 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 28 6d 61 63 72 6f 65 | form-before-continuation.(macroe |
| d420 | 78 70 2d 75 6e 70 72 6f 67 6e 20 66 6f 72 6d 2d 62 65 66 6f 72 65 2d 63 6f 6e 74 69 6e 75 61 74 | xp-unprogn.form-before-continuat |
| d440 | 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 66 6f 72 6d 20 28 69 66 20 6d 61 | ion))))).......(setq.form.(if.ma |
| d460 | 69 6e 2d 62 69 6e 64 69 6e 67 73 20 60 28 6c 65 74 2a 20 28 2c 40 6d 61 69 6e 2d 62 69 6e 64 69 | in-bindings.`(let*.(,@main-bindi |
| d480 | 6e 67 73 29 20 2c 40 66 6f 72 6d 29 20 60 28 70 72 6f 67 6e 20 2c 40 66 6f 72 6d 29 29 29 0a 20 | ngs).,@form).`(progn.,@form))).. |
| d4a0 | 20 20 20 20 20 28 77 68 69 6c 65 20 63 61 74 63 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 6e | .....(while.catcher-inner-bindin |
| d4c0 | 67 73 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 | gs.........(let.(outer-bindings) |
| d4e0 | 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 63 61 74 63 68 65 72 2d 6f | ...........(while.(and.catcher-o |
| d500 | 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 20 28 63 61 72 20 63 61 74 63 68 65 72 2d 6f 75 74 65 72 | uter-bindings.(car.catcher-outer |
| d520 | 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 70 | -bindings)).............(push.(p |
| d540 | 6f 70 20 63 61 74 63 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 20 6f 75 74 65 72 | op.catcher-outer-bindings).outer |
| d560 | 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 74 63 | -bindings))...........(setq.catc |
| d580 | 68 65 72 2d 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 20 28 63 64 72 20 63 61 74 63 68 65 72 2d | her-outer-bindings.(cdr.catcher- |
| d5a0 | 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | outer-bindings))...........(setq |
| d5c0 | 20 66 6f 72 6d 20 28 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 2d 63 6f 6e 74 69 6e 75 61 74 69 | .form.(iter2--catcher-continuati |
| d5e0 | 6f 6e 2d 61 64 64 69 6e 67 2d 66 6f 72 6d 20 60 28 6c 65 74 20 28 2c 28 70 6f 70 20 63 61 74 63 | on-adding-form.`(let.(,(pop.catc |
| d600 | 68 65 72 2d 69 6e 6e 65 72 2d 62 69 6e 64 69 6e 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | her-inner-bindings))............ |
| d620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 2c 28 69 | ......................(prog1.,(i |
| d660 | 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 2d 69 6e 76 6f 63 61 74 69 6f 6e 2d 66 6f | ter2--continuation-invocation-fo |
| d680 | 72 6d 20 69 74 65 72 32 2d 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rm.iter2--value)................ |
| d6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d6c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 | ....................(unless.(eq. |
| d6e0 | 2c 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 20 2c 69 74 65 72 32 2d 2d 64 6f | ,iter2--continuations.,iter2--do |
| d700 | 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ne)............................. |
| d720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d740 | 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 2c 69 74 65 72 32 2d 2d 63 61 74 63 68 65 72 20 2c | .........(push.,iter2--catcher., |
| d760 | 69 74 65 72 32 2d 2d 63 6f 6e 74 69 6e 75 61 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 | iter2--continuations))))........ |
| d780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| d7a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 29 29 0a 20 20 | .......................form))... |
| d7c0 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6f 75 74 65 72 2d 62 69 6e 64 69 6e 67 73 0a 20 20 20 | ........(when.outer-bindings.... |
| d7e0 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 6f 72 6d 20 60 28 6c 65 74 2a 20 28 2c 40 6f 75 | .........(setq.form.`(let*.(,@ou |
| d800 | 74 65 72 2d 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ter-bindings)................... |
| d820 | 20 20 20 20 20 20 20 20 2c 66 6f 72 6d 29 29 29 29 29 0a 20 20 20 20 20 20 66 6f 72 6d 29 29 29 | ........,form))))).......form))) |
| d840 | 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 61 64 64 69 6e 67 2d 66 6f 72 | ..(defun.iter2--stack-adding-for |
| d860 | 6d 20 28 6e 65 77 2d 65 6c 65 6d 65 6e 74 73 29 0a 20 20 28 6c 65 74 20 28 28 76 61 6c 75 65 20 | m.(new-elements)...(let.((value. |
| d880 | 69 74 65 72 32 2d 2d 73 74 61 63 6b 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 6e 65 77 2d 65 6c | iter2--stack)).....(while.new-el |
| d8a0 | 65 6d 65 6e 74 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 76 61 6c 75 65 20 60 28 63 6f 6e 73 20 | ements.......(setq.value.`(cons. |
| d8c0 | 2c 28 70 6f 70 20 6e 65 77 2d 65 6c 65 6d 65 6e 74 73 29 20 2c 76 61 6c 75 65 29 29 29 0a 20 20 | ,(pop.new-elements).,value)))... |
| d8e0 | 20 20 60 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 20 2c 76 61 6c 75 65 29 29 29 | ..`(setq.,iter2--stack.,value))) |
| d900 | 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 73 74 61 63 6b 2d 68 65 61 64 2d 72 65 76 65 72 | ..(defun.iter2--stack-head-rever |
| d920 | 73 69 6e 67 2d 66 6f 72 6d 20 28 6e 29 0a 20 20 28 70 63 61 73 65 20 6e 0a 20 20 20 20 28 32 20 | sing-form.(n)...(pcase.n.....(2. |
| d940 | 60 28 69 74 65 72 32 2d 2d 72 65 76 65 72 73 65 2d 73 74 61 63 6b 2d 68 65 61 64 2d 32 20 2c 69 | `(iter2--reverse-stack-head-2.,i |
| d960 | 74 65 72 32 2d 2d 73 74 61 63 6b 29 29 0a 20 20 20 20 28 33 20 60 28 69 74 65 72 32 2d 2d 72 65 | ter2--stack)).....(3.`(iter2--re |
| d980 | 76 65 72 73 65 2d 73 74 61 63 6b 2d 68 65 61 64 2d 33 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b | verse-stack-head-3.,iter2--stack |
| d9a0 | 29 29 0a 20 20 20 20 28 5f 20 60 28 73 65 74 71 20 2c 69 74 65 72 32 2d 2d 73 74 61 63 6b 20 28 | )).....(_.`(setq.,iter2--stack.( |
| d9c0 | 69 74 65 72 32 2d 2d 72 65 76 65 72 73 65 2d 73 74 61 63 6b 2d 68 65 61 64 2d 6e 20 2c 69 74 65 | iter2--reverse-stack-head-n.,ite |
| d9e0 | 72 32 2d 2d 73 74 61 63 6b 20 2c 28 31 2d 20 6e 29 29 29 29 29 29 0a 0a 0a 3b 3b 20 49 6e 74 65 | r2--stack.,(1-.n))))))...;;.Inte |
| da00 | 72 6e 61 6c 20 68 65 6c 70 65 72 73 20 66 6f 72 20 67 65 6e 65 72 61 74 65 64 20 66 75 6e 63 74 | rnal.helpers.for.generated.funct |
| da20 | 69 6f 6e 73 2e 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 64 6f 2d 63 6c 65 61 6e 2d 75 70 | ions...(defun.iter2--do-clean-up |
| da40 | 20 28 63 6c 65 61 6e 75 70 73 29 0a 20 20 28 69 66 20 28 63 64 72 20 63 6c 65 61 6e 75 70 73 29 | .(cleanups)...(if.(cdr.cleanups) |
| da60 | 0a 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 | .......(unwind-protect.......... |
| da80 | 20 28 66 75 6e 63 61 6c 6c 20 28 63 61 72 20 63 6c 65 61 6e 75 70 73 29 29 0a 20 20 20 20 20 20 | .(funcall.(car.cleanups))....... |
| daa0 | 20 20 28 69 74 65 72 32 2d 2d 64 6f 2d 63 6c 65 61 6e 2d 75 70 20 28 63 64 72 20 63 6c 65 61 6e | ..(iter2--do-clean-up.(cdr.clean |
| dac0 | 75 70 73 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 63 61 72 20 63 6c 65 61 6e 75 70 | ups))).....(funcall.(car.cleanup |
| dae0 | 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 72 65 76 65 72 73 65 2d 73 74 61 | s))))..(defun.iter2--reverse-sta |
| db00 | 63 6b 2d 68 65 61 64 2d 32 20 28 73 74 61 63 6b 29 0a 20 20 28 6c 65 74 20 28 28 78 20 20 20 20 | ck-head-2.(stack)...(let.((x.... |
| db20 | 20 20 28 63 61 72 20 73 74 61 63 6b 29 29 0a 20 20 20 20 20 20 20 20 28 6c 69 6e 6b 2d 32 20 28 | ..(car.stack)).........(link-2.( |
| db40 | 63 64 72 20 73 74 61 63 6b 29 29 29 0a 20 20 20 20 28 73 65 74 63 61 72 20 73 74 61 63 6b 20 20 | cdr.stack))).....(setcar.stack.. |
| db60 | 28 63 61 72 20 6c 69 6e 6b 2d 32 29 29 0a 20 20 20 20 28 73 65 74 63 61 72 20 6c 69 6e 6b 2d 32 | (car.link-2)).....(setcar.link-2 |
| db80 | 20 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 72 65 76 65 72 73 65 2d 73 74 61 | .x)))..(defun.iter2--reverse-sta |
| dba0 | 63 6b 2d 68 65 61 64 2d 33 20 28 73 74 61 63 6b 29 0a 20 20 28 6c 65 74 20 28 28 78 20 20 20 20 | ck-head-3.(stack)...(let.((x.... |
| dbc0 | 20 20 28 63 61 72 20 20 73 74 61 63 6b 29 29 0a 20 20 20 20 20 20 20 20 28 6c 69 6e 6b 2d 33 20 | ..(car..stack)).........(link-3. |
| dbe0 | 28 63 64 64 72 20 73 74 61 63 6b 29 29 29 0a 20 20 20 20 28 73 65 74 63 61 72 20 73 74 61 63 6b | (cddr.stack))).....(setcar.stack |
| dc00 | 20 20 28 63 61 72 20 6c 69 6e 6b 2d 33 29 29 0a 20 20 20 20 28 73 65 74 63 61 72 20 6c 69 6e 6b | ..(car.link-3)).....(setcar.link |
| dc20 | 2d 33 20 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 72 65 76 65 72 73 65 2d 73 | -3.x)))..(defun.iter2--reverse-s |
| dc40 | 74 61 63 6b 2d 68 65 61 64 2d 6e 20 28 73 74 61 63 6b 20 6e 2d 31 29 0a 20 20 28 6c 65 74 2a 20 | tack-head-n.(stack.n-1)...(let*. |
| dc60 | 28 28 6c 61 73 74 2d 68 65 61 64 2d 63 6f 6e 73 20 28 6e 74 68 63 64 72 20 6e 2d 31 20 73 74 61 | ((last-head-cons.(nthcdr.n-1.sta |
| dc80 | 63 6b 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 63 6b 2d 74 61 69 6c 20 20 20 20 20 28 63 | ck))..........(stack-tail.....(c |
| dca0 | 64 72 20 6c 61 73 74 2d 68 65 61 64 2d 63 6f 6e 73 29 29 29 0a 20 20 20 20 28 73 65 74 63 64 72 | dr.last-head-cons))).....(setcdr |
| dcc0 | 20 6c 61 73 74 2d 68 65 61 64 2d 63 6f 6e 73 20 6e 69 6c 29 0a 20 20 20 20 28 6e 63 6f 6e 63 20 | .last-head-cons.nil).....(nconc. |
| dce0 | 28 6e 72 65 76 65 72 73 65 20 73 74 61 63 6b 29 20 73 74 61 63 6b 2d 74 61 69 6c 29 29 29 0a 0a | (nreverse.stack).stack-tail))).. |
| dd00 | 28 64 65 66 75 6e 20 69 74 65 72 32 2d 2d 64 6f 2d 74 72 61 63 65 20 28 66 6f 72 6d 61 74 2d 73 | (defun.iter2--do-trace.(format-s |
| dd20 | 74 72 69 6e 67 20 26 72 65 73 74 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 28 77 68 65 6e 20 69 | tring.&rest.arguments)...(when.i |
| dd40 | 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 | ter2-tracing-function.....(let.( |
| dd60 | 28 70 72 69 6e 74 2d 6c 65 76 65 6c 20 20 28 69 66 20 28 65 71 20 69 74 65 72 32 2d 74 72 61 63 | (print-level..(if.(eq.iter2-trac |
| dd80 | 69 6e 67 2d 70 72 69 6e 74 2d 6c 65 76 65 6c 20 20 74 29 20 70 72 69 6e 74 2d 6c 65 76 65 6c 20 | ing-print-level..t).print-level. |
| dda0 | 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 70 72 69 6e 74 2d 6c 65 76 65 6c 29 29 0a 20 20 20 | .iter2-tracing-print-level)).... |
| ddc0 | 20 20 20 20 20 20 20 28 70 72 69 6e 74 2d 6c 65 6e 67 74 68 20 28 69 66 20 28 65 71 20 69 74 65 | .......(print-length.(if.(eq.ite |
| dde0 | 72 32 2d 74 72 61 63 69 6e 67 2d 70 72 69 6e 74 2d 6c 65 6e 67 74 68 20 74 29 20 70 72 69 6e 74 | r2-tracing-print-length.t).print |
| de00 | 2d 6c 65 6e 67 74 68 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 2d 70 72 69 6e 74 2d 6c 65 6e 67 | -length.iter2-tracing-print-leng |
| de20 | 74 68 29 29 29 0a 20 20 20 20 20 20 28 61 70 70 6c 79 20 69 74 65 72 32 2d 74 72 61 63 69 6e 67 | th))).......(apply.iter2-tracing |
| de40 | 2d 66 75 6e 63 74 69 6f 6e 20 28 63 6f 6e 63 61 74 20 22 25 73 69 74 65 72 32 3a 20 22 20 66 6f | -function.(concat."%siter2:.".fo |
| de60 | 72 6d 61 74 2d 73 74 72 69 6e 67 29 20 28 63 6f 6e 73 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 | rmat-string).(cons.(make-string. |
| de80 | 28 2a 20 69 74 65 72 32 2d 2d 74 72 61 63 69 6e 67 2d 64 65 70 74 68 20 34 29 20 3f 20 29 20 61 | (*.iter2--tracing-depth.4).?.).a |
| dea0 | 72 67 75 6d 65 6e 74 73 29 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 69 74 65 72 32 2d 6c 6f 67 | rguments)))))...(defun.iter2-log |
| dec0 | 2d 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 26 72 65 73 74 20 61 72 | -message.(format-string.&rest.ar |
| dee0 | 67 75 6d 65 6e 74 73 29 0a 20 20 22 4c 69 6b 65 20 62 75 69 6c 74 2d 69 6e 20 60 6d 65 73 73 61 | guments)..."Like.built-in.`messa |
| df00 | 67 65 27 2c 20 62 75 74 20 6f 6e 6c 79 20 77 72 69 74 65 20 74 6f 20 60 2a 4d 65 73 73 61 67 65 | ge',.but.only.write.to.`*Message |
| df20 | 73 2a 27 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 6d 65 | s*'.buffer."...(let.((inhibit-me |
| df40 | 73 73 61 67 65 20 28 6f 72 20 69 6e 68 69 62 69 74 2d 6d 65 73 73 61 67 65 20 28 6e 6f 74 20 6e | ssage.(or.inhibit-message.(not.n |
| df60 | 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 29 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 6d | oninteractive)))).....(apply.#'m |
| df80 | 65 73 73 61 67 65 20 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 29 29 | essage.format-string.arguments)) |
| dfa0 | 29 0a 0a 0a 3b 3b 20 4d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 77 65 20 61 72 65 20 73 74 69 | )...;;.Make.sure.that.we.are.sti |
| dfc0 | 6c 6c 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20 60 67 65 6e 65 72 61 74 6f 72 27 2e 20 | ll.compatible.with.`generator'.. |
| dfe0 | 20 49 20 63 6f 75 6c 64 6e 27 74 20 6d 61 6b 65 20 69 74 20 77 6f 72 6b 20 6c 69 6b 65 0a 3b 3b | .I.couldn't.make.it.work.like.;; |
| e000 | 20 49 20 77 61 6e 74 65 64 20 77 69 74 68 20 66 65 77 65 72 20 60 65 76 61 6c 27 73 2e 0a 28 65 | .I.wanted.with.fewer.`eval's..(e |
| e020 | 76 61 6c 2d 61 66 74 65 72 2d 6c 6f 61 64 20 27 69 74 65 72 32 0a 20 20 28 65 76 61 6c 20 60 28 | val-after-load.'iter2...(eval.`( |
| e040 | 75 6e 6c 65 73 73 20 28 6c 65 74 2a 20 28 28 69 74 20 28 66 75 6e 63 61 6c 6c 20 28 69 74 65 72 | unless.(let*.((it.(funcall.(iter |
| e060 | 32 2d 6c 61 6d 62 64 61 20 28 29 20 28 69 74 65 72 2d 79 69 65 6c 64 20 31 29 29 29 29 29 0a 20 | 2-lambda.().(iter-yield.1))))).. |
| e080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 75 61 6c 20 28 69 | ..................(and.(equal.(i |
| e0a0 | 74 65 72 2d 6e 65 78 74 20 69 74 29 20 31 29 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 | ter-next.it).1).(condition-case. |
| e0c0 | 65 72 72 6f 72 20 28 70 72 6f 67 6e 20 28 69 74 65 72 2d 6e 65 78 74 20 69 74 20 32 29 20 6e 69 | error.(progn.(iter-next.it.2).ni |
| e0e0 | 6c 29 20 28 69 74 65 72 2d 65 6e 64 2d 6f 66 2d 73 65 71 75 65 6e 63 65 20 28 65 71 75 61 6c 20 | l).(iter-end-of-sequence.(equal. |
| e100 | 28 63 64 72 20 65 72 72 6f 72 29 20 32 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 | (cdr.error).2)))))............(w |
| e120 | 61 72 6e 20 22 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 6f 66 20 60 69 74 65 72 32 27 20 77 69 | arn."Compatibility.of.`iter2'.wi |
| e140 | 74 68 20 60 67 65 6e 65 72 61 74 6f 72 27 20 70 61 63 6b 61 67 65 20 61 70 70 65 61 72 73 20 62 | th.`generator'.package.appears.b |
| e160 | 72 6f 6b 65 6e 3b 20 70 6c 65 61 73 65 20 72 65 70 6f 72 74 20 74 68 69 73 20 74 6f 20 6d 61 69 | roken;.please.report.this.to.mai |
| e180 | 6e 74 61 69 6e 65 72 20 28 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 3a 20 25 73 29 22 20 28 65 6d | ntainer.(Emacs.version:.%s)".(em |
| e1a0 | 61 63 73 2d 76 65 72 73 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 74 29 29 0a 0a 3b 3b 20 49 | acs-version))).........t))..;;.I |
| e1c0 | 73 73 75 65 20 61 20 77 61 72 6e 69 6e 67 20 69 66 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 | ssue.a.warning.if.compatibility. |
| e1e0 | 69 73 20 62 72 6f 6b 65 6e 20 79 65 74 20 61 67 61 69 6e 2e 0a 28 69 74 65 72 32 2d 2d 73 70 65 | is.broken.yet.again..(iter2--spe |
| e200 | 63 69 61 6c 2d 76 61 72 69 61 62 6c 65 2d 70 20 6e 69 6c 20 74 29 0a 0a 0a 3b 3b 20 57 6f 72 6b | cial-variable-p.nil.t)...;;.Work |
| e220 | 20 61 72 6f 75 6e 64 20 6d 69 73 73 69 6e 67 20 45 64 65 62 75 67 20 73 70 65 63 69 66 69 63 61 | .around.missing.Edebug.specifica |
| e240 | 74 69 6f 6e 20 66 6f 72 20 60 69 74 65 72 2d 64 6f 27 20 6d 61 63 72 6f 20 6f 6e 20 6f 6c 64 65 | tion.for.`iter-do'.macro.on.olde |
| e260 | 72 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 2e 0a 28 77 68 65 6e 20 28 61 6e 64 20 28 66 62 | r.Emacs.versions..(when.(and.(fb |
| e280 | 6f 75 6e 64 70 20 27 69 74 65 72 2d 64 6f 29 20 28 6e 75 6c 6c 20 28 67 65 74 20 27 69 74 65 72 | oundp.'iter-do).(null.(get.'iter |
| e2a0 | 2d 64 6f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 29 29 29 0a 20 20 28 70 75 74 20 | -do.'edebug-form-spec)))...(put. |
| e2c0 | 27 69 74 65 72 2d 64 6f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 28 73 79 | 'iter-do.'edebug-form-spec.'((sy |
| e2e0 | 6d 62 6f 6c 70 20 66 6f 72 6d 29 20 62 6f 64 79 29 29 29 0a 0a 3b 3b 20 49 6e 74 65 67 72 61 74 | mbolp.form).body)))..;;.Integrat |
| e300 | 65 20 69 6e 74 6f 20 49 6d 65 6e 75 2e 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6c 69 73 70 | e.into.Imenu..(add-to-list.'lisp |
| e320 | 2d 69 6d 65 6e 75 2d 67 65 6e 65 72 69 63 2d 65 78 70 72 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 | -imenu-generic-expression....... |
| e340 | 20 20 20 20 20 20 20 28 6c 69 73 74 20 6e 69 6c 20 28 63 6f 6e 63 61 74 20 22 5e 5c 5c 73 2d 2a | .......(list.nil.(concat."^\\s-* |
| e360 | 28 69 74 65 72 32 2d 64 65 66 75 6e 5c 5c 73 2d 2b 5c 5c 28 22 20 6c 69 73 70 2d 6d 6f 64 65 2d | (iter2-defun\\s-+\\(".lisp-mode- |
| e380 | 73 79 6d 62 6f 6c 2d 72 65 67 65 78 70 20 22 5c 5c 29 22 29 20 31 29 29 0a 0a 0a 28 70 72 6f 76 | symbol-regexp."\\)").1))...(prov |
| e3a0 | 69 64 65 20 27 69 74 65 72 32 29 0a 0a 3b 3b 3b 20 69 74 65 72 32 2e 65 6c 20 65 6e 64 73 20 68 | ide.'iter2)..;;;.iter2.el.ends.h |
| e3c0 | 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ere............................. |
| e3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e400 | 69 74 65 72 32 2d 32 30 32 32 31 31 30 34 2e 31 39 33 38 2f 69 74 65 72 32 2d 70 6b 67 2e 65 6c | iter2-20221104.1938/iter2-pkg.el |
| e420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| e480 | 30 30 30 30 37 32 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 31 37 30 00 20 30 00 00 00 | 0000725.00000000000.014170..0... |
| e4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| e520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| e540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e600 | 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 69 74 65 72 32 22 20 22 32 30 32 32 31 31 30 | (define-package."iter2"."2022110 |
| e620 | 34 2e 31 39 33 38 22 20 22 52 65 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 45 6c 69 | 4.1938"."Reimplementation.of.Eli |
| e640 | 73 70 20 67 65 6e 65 72 61 74 6f 72 73 22 0a 20 20 27 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 | sp.generators"...'((emacs."25.1" |
| e660 | 29 29 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 35 65 61 36 62 61 36 65 66 66 63 34 62 37 31 65 37 61 | ))...:commit."5ea6ba6effc4b71e7a |
| e680 | 34 61 65 64 31 36 62 33 66 34 32 34 30 38 66 39 30 36 34 63 30 31 22 20 3a 61 75 74 68 6f 72 73 | 4aed16b3f42408f9064c01".:authors |
| e6a0 | 0a 20 20 27 28 28 22 50 61 75 6c 20 50 6f 67 6f 6e 79 73 68 65 76 22 20 2e 20 22 70 6f 67 6f 6e | ...'(("Paul.Pogonyshev"..."pogon |
| e6c0 | 79 73 68 65 76 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 | yshev@gmail.com"))...:maintainer |
| e6e0 | 73 0a 20 20 27 28 28 22 50 61 75 6c 20 50 6f 67 6f 6e 79 73 68 65 76 22 20 2e 20 22 70 6f 67 6f | s...'(("Paul.Pogonyshev"..."pogo |
| e700 | 6e 79 73 68 65 76 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 | nyshev@gmail.com"))...:maintaine |
| e720 | 72 0a 20 20 27 28 22 50 61 75 6c 20 50 6f 67 6f 6e 79 73 68 65 76 22 20 2e 20 22 70 6f 67 6f 6e | r...'("Paul.Pogonyshev"..."pogon |
| e740 | 79 73 68 65 76 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 0a 20 20 3a 6b 65 79 77 6f 72 64 73 0a 20 20 | yshev@gmail.com")...:keywords... |
| e760 | 27 28 22 65 6c 69 73 70 22 20 22 65 78 74 65 6e 73 69 6f 6e 73 22 29 0a 20 20 3a 75 72 6c 20 22 | '("elisp"."extensions")...:url." |
| e780 | 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 64 6f 75 62 6c 65 70 2f 69 74 65 72 32 | https://github.com/doublep/iter2 |
| e7a0 | 22 29 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 6e 6f 2d 62 79 74 | ").;;.Local.Variables:.;;.no-byt |
| e7c0 | 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 0a 3b 3b 20 45 6e 64 3a 0a 00 00 00 00 00 00 00 00 00 00 00 | e-compile:.t.;;.End:............ |
| e7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| e9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ea80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eaa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ebc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ebe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ec00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ec20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ec40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ec60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ec80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ecc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ece0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ed80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| edc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ede0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ee80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| eee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ef00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ef20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ef40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ef60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ef80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| efa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| efc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| efe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
 |
index : dotemacs.git | |
| my Emacs configuration | Craig Jennings |
| summaryrefslogtreecommitdiff |
blob: f75051eaf7fe5ad41bde6799b35e7e35c213f985 (plain)