| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61 | ;ELC.....;;;.Compiled.;;;.in.Ema |
| 0020 | 63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f | cs.version.25.3.1.;;;.with.all.o |
| 0040 | 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 | ptimizations...;;;.This.file.use |
| 0060 | 73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 | s.dynamic.docstrings,.first.adde |
| 0080 | 64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 | d.in.Emacs.19.29...;;;.This.file |
| 00a0 | 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 | .does.not.contain.utf-8.non-ASCI |
| 00c0 | 49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20 | I.characters,.;;;.and.so.can.be. |
| 00e0 | 6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72 | loaded.in.Emacs.versions.earlier |
| 0100 | 20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | .than.23...;;;;;;;;;;;;;;;;;;;;; |
| 0120 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 0140 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;; |
| 0160 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 0180 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 63 75 73 74 6f 6d 2d 64 65 63 | ;;;;;;;;;;;;;;;;;;...(custom-dec |
| 01a0 | 6c 61 72 65 2d 67 72 6f 75 70 20 27 64 61 73 68 20 6e 69 6c 20 22 43 75 73 74 6f 6d 69 7a 65 20 | lare-group.'dash.nil."Customize. |
| 01c0 | 67 72 6f 75 70 20 66 6f 72 20 64 61 73 68 2e 65 6c 22 20 3a 67 72 6f 75 70 20 27 6c 69 73 70 20 | group.for.dash.el".:group.'lisp. |
| 01e0 | 3a 70 72 65 66 69 78 20 22 64 61 73 68 2d 22 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 | :prefix."dash-").(defalias.'dash |
| 0200 | 2d 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 | --enable-fontlock.#[514."\211\20 |
| 0220 | 33 07 00 5c 33 30 30 20 5c 32 31 30 5c 33 30 31 02 02 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d | 3..\300.\210\301..\"\207".[dash- |
| 0240 | 65 6e 61 62 6c 65 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 73 65 74 2d 64 65 66 61 75 6c 74 5d 20 35 20 | enable-font-lock.set-default].5. |
| 0260 | 22 5c 6e 5c 6e 28 66 6e 20 53 59 4d 42 4f 4c 20 56 41 4c 55 45 29 22 5d 29 0a 28 62 79 74 65 2d | "\n\n(fn.SYMBOL.VALUE)"]).(byte- |
| 0280 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 44 44 5c 33 30 35 | code."\300\301\302\303\304DD\305 |
| 02a0 | 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 26 09 5c 32 30 37 22 20 | \306\307\310\311\312\313&.\207". |
| 02c0 | 5b 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 64 61 73 68 2d 65 6e | [custom-declare-variable.dash-en |
| 02e0 | 61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 | able-fontlock.funcall.function.# |
| 0300 | 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 5d 20 22 49 66 20 6e 6f 6e 2d 6e | [0."\300\207".[nil].1]."If.non-n |
| 0320 | 69 6c 2c 20 65 6e 61 62 6c 65 20 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 64 61 73 68 | il,.enable.fontification.of.dash |
| 0340 | 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6d 61 63 72 6f 73 20 61 6e 64 5c 6e 73 70 65 63 69 61 6c 20 | .functions,.macros.and\nspecial. |
| 0360 | 76 61 6c 75 65 73 2e 22 20 3a 74 79 70 65 20 62 6f 6f 6c 65 61 6e 20 3a 73 65 74 20 64 61 73 68 | values.".:type.boolean.:set.dash |
| 0380 | 2d 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 3a 67 72 6f 75 70 20 64 61 73 68 5d 20 31 | --enable-fontlock.:group.dash].1 |
| 03a0 | 30 29 0a 23 40 36 34 20 44 65 73 74 72 75 63 74 69 76 65 3a 20 53 65 74 20 43 44 52 20 74 6f 20 | 0).#@64.Destructive:.Set.CDR.to. |
| 03c0 | 74 68 65 20 63 6f 6e 73 20 6f 66 20 43 41 52 20 61 6e 64 20 43 44 52 2e 0a 0a 28 66 6e 20 43 41 | the.cons.of.CAR.and.CDR...(fn.CA |
| 03e0 | 52 20 43 44 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 21 63 6f 6e 73 20 27 28 6d 61 63 72 6f | R.CDR)..(defalias.'!cons.'(macro |
| 0400 | 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 04 04 45 45 5c 32 30 37 22 20 5b 73 65 | ...#[514."\300.\301..EE\207".[se |
| 0420 | 74 71 20 63 6f 6e 73 5d 20 37 20 28 23 24 20 2e 20 39 33 36 29 5d 29 29 0a 23 40 35 34 20 44 65 | tq.cons].7.(#$...936)])).#@54.De |
| 0440 | 73 74 72 75 63 74 69 76 65 3a 20 53 65 74 20 4c 49 53 54 20 74 6f 20 74 68 65 20 63 64 72 20 6f | structive:.Set.LIST.to.the.cdr.o |
| 0460 | 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 21 | f.LIST...(fn.LIST)..(defalias.'! |
| 0480 | 63 64 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 03 44 | cdr.'(macro...#[257."\300.\301.D |
| 04a0 | 45 5c 32 30 37 22 20 5b 73 65 74 71 20 63 64 72 5d 20 35 20 28 23 24 20 2e 20 31 30 38 36 29 5d | E\207".[setq.cdr].5.(#$...1086)] |
| 04c0 | 29 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 65 61 63 68 | )).#@50.Anaphoric.form.of.`-each |
| 04e0 | 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c | '...(fn.LIST.&rest.BODY)..(defal |
| 0500 | 69 61 73 20 27 2d 2d 65 61 63 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 | ias.'--each.'(macro...#[385."\30 |
| 0520 | 30 5c 33 30 31 21 5c 33 30 32 01 04 44 5c 33 30 33 42 5c 33 30 34 03 5c 33 30 32 5c 33 30 35 5c | 0\301!\302..D\303B\304.\302\305\ |
| 0540 | 33 30 36 06 07 44 44 43 06 07 42 42 5c 33 30 37 5c 33 31 30 06 07 44 5c 32 35 37 05 45 5c 32 30 | 306..DDC..BB\307\310..D\257.E\20 |
| 0560 | 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 6c 65 74 20 28 28 69 74 2d | 7".[make-symbol."list".let.((it- |
| 0580 | 69 6e 64 65 78 20 30 29 29 20 77 68 69 6c 65 20 69 74 20 63 61 72 20 28 73 65 74 71 20 69 74 2d | index.0)).while.it.car.(setq.it- |
| 05a0 | 69 6e 64 65 78 20 28 31 2b 20 69 74 2d 69 6e 64 65 78 29 29 20 21 63 64 72 5d 20 31 31 20 28 23 | index.(1+.it-index)).!cdr].11.(# |
| 05c0 | 24 20 2e 20 31 32 32 34 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 | $...1224)])).(byte-code."\300\30 |
| 05e0 | 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c | 1\302\303#\210\304\301\305\306#\ |
| 0600 | 32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | 207".[put.--each.edebug-form-spe |
| 0620 | 63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d | c.(form.body).function-put.lisp- |
| 0640 | 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 32 35 31 20 45 76 61 6c | indent-function.1].4).#@251.Eval |
| 0660 | 20 61 20 66 6f 72 6d 2c 20 74 68 65 6e 20 69 6e 73 65 72 74 20 74 68 61 74 20 66 6f 72 6d 20 61 | .a.form,.then.insert.that.form.a |
| 0680 | 73 20 74 68 65 20 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 6f 74 68 65 72 20 66 6f 72 6d | s.the.2nd.argument.to.other.form |
| 06a0 | 73 2e 0a 54 68 65 20 45 56 41 4c 2d 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 66 6f 72 6d 20 69 | s..The.EVAL-INITIAL-VALUE.form.i |
| 06c0 | 73 20 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 2e 20 49 74 73 20 72 65 73 75 6c 74 20 69 73 0a | s.evaluated.once..Its.result.is. |
| 06e0 | 70 61 73 73 65 64 20 74 6f 20 46 4f 52 4d 53 2c 20 77 68 69 63 68 20 61 72 65 20 74 68 65 6e 20 | passed.to.FORMS,.which.are.then. |
| 0700 | 65 76 61 6c 75 61 74 65 64 20 73 65 71 75 65 6e 74 69 61 6c 6c 79 2e 20 52 65 74 75 72 6e 73 0a | evaluated.sequentially..Returns. |
| 0720 | 74 68 65 20 74 61 72 67 65 74 20 66 6f 72 6d 2e 0a 0a 28 66 6e 20 45 56 41 4c 2d 49 4e 49 54 49 | the.target.form...(fn.EVAL-INITI |
| 0740 | 41 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 | AL-VALUE.&rest.FORMS)..(defalias |
| 0760 | 20 27 2d 64 6f 74 6f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 | .'-doto.'(macro...#[385."\300\30 |
| 0780 | 31 21 5c 33 30 32 01 04 44 43 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 | 1!\302..DC\303\304\305\306\307\3 |
| 07a0 | 31 30 5c 33 31 31 06 09 21 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31 34 25 06 06 5c 22 04 43 5c 22 | 10\311..!\312\"\313\314%..\".C\" |
| 07c0 | 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 76 61 6c 75 65 22 20 6c 65 74 | BB\207".[make-symbol."value".let |
| 07e0 | 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 | .append.mapcar.make-byte-code.25 |
| 0800 | 37 20 22 5c 33 30 31 01 21 5c 32 30 33 0f 00 5c 33 30 32 01 21 5c 33 30 30 02 41 42 42 5c 32 30 | 7."\301.!\203..\302.!\300.ABB\20 |
| 0820 | 37 5c 33 30 33 5c 33 30 34 5c 33 30 30 45 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 | 7\303\304\300E\207".vconcat.vect |
| 0840 | 6f 72 20 5b 73 65 71 75 65 6e 63 65 70 20 2d 66 69 72 73 74 2d 69 74 65 6d 20 66 75 6e 63 61 6c | or.[sequencep.-first-item.funcal |
| 0860 | 6c 20 66 6f 72 6d 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 46 4f 52 4d 29 22 5d 20 31 33 20 28 23 | l.form].4."\n\n(fn.FORM)"].13.(# |
| 0880 | 24 20 2e 20 31 36 32 38 29 5d 29 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 2d 64 6f 74 | $...1628)])).(function-put.'-dot |
| 08a0 | 6f 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 23 40 38 38 20 | o.'lisp-indent-function.1).#@88. |
| 08c0 | 43 61 6c 6c 20 46 4e 20 77 69 74 68 20 65 76 65 72 79 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e | Call.FN.with.every.item.in.LIST. |
| 08e0 | 20 52 65 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 | .Return.nil,.used.for.side-effec |
| 0900 | 74 73 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 | ts.only...(fn.LIST.FN)..(defalia |
| 0920 | 73 20 27 2d 65 61 63 68 20 23 5b 35 31 34 20 22 01 5c 33 30 30 01 5c 32 30 35 18 00 01 40 03 01 | s.'-each.#[514.".\300.\205...@.. |
| 0940 | 21 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 02 00 5c 32 30 | !\266.\211T\262..A\262.\202..\20 |
| 0960 | 37 22 20 5b 30 5d 20 37 20 28 23 24 20 2e 20 32 32 34 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | 7".[0].7.(#$...2240)]).(byte-cod |
| 0980 | 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 | e."\300\301\302\303#\210\304\305 |
| 09a0 | 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 2d 65 61 63 68 20 6c 69 73 70 2d 69 6e 64 65 | \306\"\207".[put.-each.lisp-inde |
| 09c0 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 64 65 66 61 6c 69 61 73 20 2d 2d 65 61 63 68 2d 69 6e | nt-function.1.defalias.--each-in |
| 09e0 | 64 65 78 65 64 20 2d 2d 65 61 63 68 5d 20 34 29 0a 23 40 31 37 30 20 43 61 6c 6c 20 28 46 4e 20 | dexed.--each].4).#@170.Call.(FN. |
| 0a00 | 69 6e 64 65 78 20 69 74 65 6d 29 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 | index.item).for.each.item.in.LIS |
| 0a20 | 54 2e 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 65 61 63 | T...In.the.anaphoric.form.`--eac |
| 0a40 | 68 2d 69 6e 64 65 78 65 64 27 2c 20 74 68 65 20 69 6e 64 65 78 20 69 73 20 65 78 70 6f 73 65 64 | h-indexed',.the.index.is.exposed |
| 0a60 | 20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 2d 69 6e 64 65 78 27 2e 0a 0a 53 65 65 20 61 6c 73 6f | .as.symbol.`it-index'...See.also |
| 0a80 | 3a 20 60 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f | :.`-map-indexed'...(fn.LIST.FN). |
| 0aa0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20 | .(defalias.'-each-indexed.#[514. |
| 0ac0 | 22 01 5c 33 30 30 01 5c 32 30 35 19 00 01 40 03 02 02 5c 22 5c 32 36 36 02 5c 32 31 31 54 5c 32 | ".\300.\205...@...\"\266.\211T\2 |
| 0ae0 | 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 02 00 5c 32 30 37 22 20 5b 30 5d 20 38 20 28 23 24 20 | 62..A\262.\202..\207".[0].8.(#$. |
| 0b00 | 2e 20 32 35 35 31 29 5d 29 0a 28 70 75 74 20 27 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 27 6c | ..2551)]).(put.'-each-indexed.'l |
| 0b20 | 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 23 40 36 31 20 41 6e 61 70 | isp-indent-function.1).#@61.Anap |
| 0b40 | 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 65 61 63 68 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 | horic.form.of.`-each-while'...(f |
| 0b60 | 6e 20 4c 49 53 54 20 50 52 45 44 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 | n.LIST.PRED.&rest.BODY)..(defali |
| 0b80 | 61 73 20 27 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 | as.'--each-while.'(macro...#[642 |
| 0ba0 | 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 06 06 44 02 5c 33 30 | ."\300\301!\300\302!\303...D.\30 |
| 0bc0 | 34 42 5c 33 30 35 42 42 5c 33 30 36 5c 33 30 37 05 05 45 5c 33 30 33 5c 33 31 30 5c 33 31 31 06 | 4B\305BB\306\307..E\303\310\311. |
| 0be0 | 08 44 44 43 5c 33 31 32 5c 33 31 33 06 0b 44 5c 33 31 34 06 09 5c 33 31 35 42 42 06 0b 42 42 42 | .DDC\312\313..D\314..\315BB..BBB |
| 0c00 | 45 5c 33 31 36 5c 33 31 37 06 08 44 5c 32 35 37 05 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 | E\316\317..D\257.E\207".[make-sy |
| 0c20 | 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 63 6f 6e 74 69 6e 75 65 22 20 6c 65 74 20 28 74 29 20 28 | mbol."list"."continue".let.(t).( |
| 0c40 | 28 69 74 2d 69 6e 64 65 78 20 30 29 29 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 69 | (it-index.0)).while.and.it.car.i |
| 0c60 | 66 20 6e 6f 74 20 73 65 74 71 20 28 6e 69 6c 29 20 28 73 65 74 71 20 69 74 2d 69 6e 64 65 78 20 | f.not.setq.(nil).(setq.it-index. |
| 0c80 | 28 31 2b 20 69 74 2d 69 6e 64 65 78 29 29 20 21 63 64 72 5d 20 31 36 20 28 23 24 20 2e 20 32 38 | (1+.it-index)).!cdr].16.(#$...28 |
| 0ca0 | 37 36 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | 76)])).(byte-code."\300\301\302\ |
| 0cc0 | 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b | 303#\210\304\301\305\306#\207".[ |
| 0ce0 | 70 75 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | put.--each-while.edebug-form-spe |
| 0d00 | 63 20 28 66 6f 72 6d 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 | c.(form.form.body).function-put. |
| 0d20 | 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 32 32 | lisp-indent-function.2].4).#@122 |
| 0d40 | 20 43 61 6c 6c 20 46 4e 20 77 69 74 68 20 65 76 65 72 79 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 | .Call.FN.with.every.item.in.LIST |
| 0d60 | 20 77 68 69 6c 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 52 | .while.(PRED.item).is.non-nil..R |
| 0d80 | 65 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 | eturn.nil,.used.for.side-effects |
| 0da0 | 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 46 4e 29 1f 0a 28 64 65 66 61 | .only...(fn.LIST.PRED.FN)..(defa |
| 0dc0 | 6c 69 61 73 20 27 2d 65 61 63 68 2d 77 68 69 6c 65 20 23 5b 37 37 31 20 22 02 5c 33 30 30 5c 33 | lias.'-each-while.#[771.".\300\3 |
| 0de0 | 30 31 02 5c 32 30 35 29 00 01 5c 32 30 35 29 00 02 40 05 01 21 5c 32 30 34 19 00 5c 33 30 32 5c | 01.\205)..\205)..@..!\204..\302\ |
| 0e00 | 32 36 32 03 5c 32 30 32 1d 00 04 01 21 5c 32 31 30 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 | 262.\202....!\210\210\211T\262.. |
| 0e20 | 41 5c 32 36 32 03 5c 32 30 32 03 00 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 39 20 28 23 | A\262.\202..\207".[t.0.nil].9.(# |
| 0e40 | 24 20 2e 20 33 33 39 33 29 5d 29 0a 28 70 75 74 20 27 2d 65 61 63 68 2d 77 68 69 6c 65 20 27 6c | $...3393)]).(put.'-each-while.'l |
| 0e60 | 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 29 0a 23 40 35 32 20 41 6e 61 70 | isp-indent-function.2).#@52.Anap |
| 0e80 | 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 65 61 63 68 2d 72 27 2e 0a 0a 28 66 6e 20 4c 49 | horic.form.of.`-each-r'...(fn.LI |
| 0ea0 | 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 | ST.&rest.BODY)..(defalias.'--eac |
| 0ec0 | 68 2d 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 | h-r.'(macro...#[385."\300\301!\3 |
| 0ee0 | 30 32 01 5c 33 30 33 05 44 44 5c 33 30 34 5c 33 30 35 04 44 44 5c 33 30 36 42 42 5c 33 30 37 5c | 02.\303.DD\304\305.DD\306BB\307\ |
| 0f00 | 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 06 08 5c 33 31 35 42 42 45 06 07 42 42 | 310\311\312\313\314..\315BBE..BB |
| 0f20 | 42 42 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 76 65 63 74 6f 72 22 20 6c | BBE\207".[make-symbol."vector".l |
| 0f40 | 65 74 2a 20 76 63 6f 6e 63 61 74 20 69 74 2d 69 6e 64 65 78 20 6c 65 6e 67 74 68 20 28 69 74 29 | et*.vconcat.it-index.length.(it) |
| 0f60 | 20 77 68 69 6c 65 20 28 3e 20 69 74 2d 69 6e 64 65 78 20 30 29 20 28 73 65 74 71 20 69 74 2d 69 | .while.(>.it-index.0).(setq.it-i |
| 0f80 | 6e 64 65 78 20 28 31 2d 20 69 74 2d 69 6e 64 65 78 29 29 20 73 65 74 71 20 69 74 20 61 72 65 66 | ndex.(1-.it-index)).setq.it.aref |
| 0fa0 | 20 28 69 74 2d 69 6e 64 65 78 29 5d 20 31 33 20 28 23 24 20 2e 20 33 37 30 38 29 5d 29 29 0a 28 | .(it-index)].13.(#$...3708)])).( |
| 0fc0 | 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 | byte-code."\300\301\302\303#\210 |
| 0fe0 | 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 | \304\301\305\306#\207".[put.--ea |
| 1000 | 63 68 2d 72 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 | ch-r.edebug-form-spec.(form.body |
| 1020 | 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 | ).function-put.lisp-indent-funct |
| 1040 | 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 30 37 20 43 61 6c 6c 20 46 4e 20 77 69 74 68 20 65 76 65 | ion.1].4).#@107.Call.FN.with.eve |
| 1060 | 72 79 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 69 6e 20 72 65 76 65 72 73 65 64 20 6f 72 64 65 | ry.item.in.LIST.in.reversed.orde |
| 1080 | 72 2e 0a 20 52 65 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d 65 66 | r...Return.nil,.used.for.side-ef |
| 10a0 | 66 65 63 74 73 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 64 65 66 61 | fects.only...(fn.LIST.FN)..(defa |
| 10c0 | 6c 69 61 73 20 27 2d 65 61 63 68 2d 72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 32 31 31 47 | lias.'-each-r.#[514."\300.!\211G |
| 10e0 | 5c 33 30 31 01 5c 33 30 32 56 5c 32 30 35 1c 00 01 53 5c 32 36 32 02 02 02 48 5c 32 36 32 01 03 | \301.\302V\205...S\262...H\262.. |
| 1100 | 01 21 5c 32 31 30 5c 32 30 32 06 00 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 | .!\210\202..\207".[vconcat.nil.0 |
| 1120 | 5d 20 37 20 28 23 24 20 2e 20 34 31 37 36 29 5d 29 0a 23 40 36 33 20 41 6e 61 70 68 6f 72 69 63 | ].7.(#$...4176)]).#@63.Anaphoric |
| 1140 | 20 66 6f 72 6d 20 6f 66 20 60 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c | .form.of.`-each-r-while'...(fn.L |
| 1160 | 49 53 54 20 50 52 45 44 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | IST.PRED.&rest.BODY)..(defalias. |
| 1180 | 27 2d 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 | '--each-r-while.'(macro...#[642. |
| 11a0 | 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 5c 33 30 33 06 06 44 44 5c 33 30 34 5c 33 30 35 04 | "\300\301!\302.\303..DD\304\305. |
| 11c0 | 44 44 5c 33 30 36 42 42 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 | DD\306BB\307\310\311\312\313\314 |
| 11e0 | 06 08 5c 33 31 35 42 42 45 5c 33 31 36 5c 33 31 37 06 5c 6e 44 5c 33 32 30 06 5c 6e 42 42 42 5c | ..\315BBE\316\317.\nD\320.\nBBB\ |
| 1200 | 32 35 37 05 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 76 65 63 74 6f 72 22 | 257.E\207".[make-symbol."vector" |
| 1220 | 20 6c 65 74 2a 20 76 63 6f 6e 63 61 74 20 69 74 2d 69 6e 64 65 78 20 6c 65 6e 67 74 68 20 28 69 | .let*.vconcat.it-index.length.(i |
| 1240 | 74 29 20 77 68 69 6c 65 20 28 3e 20 69 74 2d 69 6e 64 65 78 20 30 29 20 28 73 65 74 71 20 69 74 | t).while.(>.it-index.0).(setq.it |
| 1260 | 2d 69 6e 64 65 78 20 28 31 2d 20 69 74 2d 69 6e 64 65 78 29 29 20 73 65 74 71 20 69 74 20 61 72 | -index.(1-.it-index)).setq.it.ar |
| 1280 | 65 66 20 28 69 74 2d 69 6e 64 65 78 29 20 69 66 20 6e 6f 74 20 28 73 65 74 71 20 69 74 2d 69 6e | ef.(it-index).if.not.(setq.it-in |
| 12a0 | 64 65 78 20 2d 31 29 5d 20 31 34 20 28 23 24 20 2e 20 34 34 30 37 29 5d 29 29 0a 28 62 79 74 65 | dex.-1)].14.(#$...4407)])).(byte |
| 12c0 | 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 | -code."\300\301\302\303#\210\304 |
| 12e0 | 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 2d 72 | \301\305\306#\207".[put.--each-r |
| 1300 | 2d 77 68 69 6c 65 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 6f | -while.edebug-form-spec.(form.fo |
| 1320 | 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e | rm.body).function-put.lisp-inden |
| 1340 | 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 33 31 20 43 61 6c 6c 20 46 4e 20 77 | t-function.2].4).#@131.Call.FN.w |
| 1360 | 69 74 68 20 65 76 65 72 79 20 69 74 65 6d 20 69 6e 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 20 | ith.every.item.in.reversed.LIST. |
| 1380 | 77 68 69 6c 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 52 65 | while.(PRED.item).is.non-nil..Re |
| 13a0 | 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 20 | turn.nil,.used.for.side-effects. |
| 13c0 | 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 46 4e 29 1f 0a 28 64 65 66 61 6c | only...(fn.LIST.PRED.FN)..(defal |
| 13e0 | 69 61 73 20 27 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 20 23 5b 37 37 31 20 22 5c 33 30 30 03 21 | ias.'-each-r-while.#[771."\300.! |
| 1400 | 5c 32 31 31 47 5c 33 30 31 01 5c 33 30 32 56 5c 32 30 35 28 00 01 53 5c 32 36 32 02 02 02 48 5c | \211G\301.\302V\205(..S\262...H\ |
| 1420 | 32 36 32 01 04 01 21 5c 32 30 34 21 00 5c 33 30 33 5c 32 36 32 02 5c 32 30 32 06 00 03 01 21 5c | 262...!\204!.\303\262.\202....!\ |
| 1440 | 32 31 30 5c 32 30 32 06 00 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 20 2d 31 | 210\202..\207".[vconcat.nil.0.-1 |
| 1460 | 5d 20 38 20 28 23 24 20 2e 20 34 39 35 31 29 5d 29 0a 23 40 31 33 34 20 52 65 70 65 61 74 65 64 | ].8.(#$...4951)]).#@134.Repeated |
| 1480 | 6c 79 20 65 78 65 63 75 74 65 73 20 42 4f 44 59 20 28 70 72 65 73 75 6d 61 62 6c 79 20 66 6f 72 | ly.executes.BODY.(presumably.for |
| 14a0 | 20 73 69 64 65 2d 65 66 66 65 63 74 73 29 20 77 69 74 68 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 | .side-effects).with.symbol.`it'. |
| 14c0 | 62 6f 75 6e 64 20 74 6f 20 69 6e 74 65 67 65 72 73 20 66 72 6f 6d 20 30 20 74 68 72 6f 75 67 68 | bound.to.integers.from.0.through |
| 14e0 | 20 4e 55 4d 2d 31 2e 0a 0a 28 66 6e 20 4e 55 4d 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 | .NUM-1...(fn.NUM.&rest.BODY)..(d |
| 1500 | 65 66 61 6c 69 61 73 20 27 2d 2d 64 6f 74 69 6d 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 | efalias.'--dotimes.'(macro...#[3 |
| 1520 | 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 04 44 5c 33 30 33 42 5c 33 30 34 5c 33 30 | 85."\300\301!\302..D\303B\304\30 |
| 1540 | 35 5c 33 30 36 05 45 5c 33 30 37 06 06 5c 33 31 30 5c 22 42 42 45 5c 32 30 37 22 20 5b 6d 61 6b | 5\306.E\307..\310\"BBE\207".[mak |
| 1560 | 65 2d 73 79 6d 62 6f 6c 20 22 6e 75 6d 22 20 6c 65 74 20 28 28 69 74 20 30 29 29 20 77 68 69 6c | e-symbol."num".let.((it.0)).whil |
| 1580 | 65 20 3c 20 69 74 20 61 70 70 65 6e 64 20 28 28 73 65 74 71 20 69 74 20 28 31 2b 20 69 74 29 29 | e.<.it.append.((setq.it.(1+.it)) |
| 15a0 | 29 5d 20 31 30 20 28 23 24 20 2e 20 35 32 34 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | )].10.(#$...5240)])).(byte-code. |
| 15c0 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 | "\300\301\302\303#\210\304\301\3 |
| 15e0 | 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 64 6f 74 69 6d 65 73 20 65 64 65 62 | 05\306#\207".[put.--dotimes.edeb |
| 1600 | 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f | ug-form-spec.(form.body).functio |
| 1620 | 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 | n-put.lisp-indent-function.1].4) |
| 1640 | 0a 23 40 31 30 36 20 52 65 70 65 61 74 65 64 6c 79 20 63 61 6c 6c 73 20 46 4e 20 28 70 72 65 73 | .#@106.Repeatedly.calls.FN.(pres |
| 1660 | 75 6d 61 62 6c 79 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 29 20 70 61 73 73 69 6e 67 | umably.for.side-effects).passing |
| 1680 | 20 69 6e 20 69 6e 74 65 67 65 72 73 20 66 72 6f 6d 20 30 20 74 68 72 6f 75 67 68 20 4e 55 4d 2d | .in.integers.from.0.through.NUM- |
| 16a0 | 31 2e 0a 0a 28 66 6e 20 4e 55 4d 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 6f 74 | 1...(fn.NUM.FN)..(defalias.'-dot |
| 16c0 | 69 6d 65 73 20 23 5b 35 31 34 20 22 01 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 35 13 00 02 01 21 | imes.#[514.".\300\211.W\205....! |
| 16e0 | 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 02 00 5c 32 30 37 22 20 5b 30 5d 20 36 20 | \210\211T\262.\202..\207".[0].6. |
| 1700 | 28 23 24 20 2e 20 35 37 30 33 29 5d 29 0a 28 70 75 74 20 27 2d 64 6f 74 69 6d 65 73 20 27 6c 69 | (#$...5703)]).(put.'-dotimes.'li |
| 1720 | 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 23 40 39 35 20 52 65 74 75 72 | sp-indent-function.1).#@95.Retur |
| 1740 | 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 74 68 65 20 72 | n.a.new.list.consisting.of.the.r |
| 1760 | 65 73 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 69 74 65 6d | esult.of.applying.FN.to.the.item |
| 1780 | 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | s.in.LIST...(fn.FN.LIST)..(defal |
| 17a0 | 69 61 73 20 27 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 37 22 20 5b | ias.'-map.#[514."\300..\"\207".[ |
| 17c0 | 6d 61 70 63 61 72 5d 20 35 20 28 23 24 20 2e 20 35 39 34 37 29 5d 29 0a 23 40 34 33 20 41 6e 61 | mapcar].5.(#$...5947)]).#@43.Ana |
| 17e0 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d | phoric.form.of.`-map'...(fn.FORM |
| 1800 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 20 27 28 6d 61 63 72 6f | .LIST)..(defalias.'--map.'(macro |
| 1820 | 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 | ...#[514."\300\301\302.E.E\207". |
| 1840 | 5b 6d 61 70 63 61 72 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 36 31 30 | [mapcar.lambda.(it)].6.(#$...610 |
| 1860 | 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | 9)])).(put.'--map.'edebug-form-s |
| 1880 | 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 36 35 20 41 6e 61 70 68 6f 72 69 63 | pec.'(form.form)).#@65.Anaphoric |
| 18a0 | 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f | .form.of.`-reduce-from'...(fn.FO |
| 18c0 | 52 4d 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | RM.INITIAL-VALUE.LIST)..(defalia |
| 18e0 | 73 20 27 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 | s.'--reduce-from.'(macro...#[771 |
| 1900 | 20 22 5c 33 30 30 5c 33 30 31 03 44 43 5c 33 30 32 03 5c 33 30 33 5c 33 30 31 06 08 45 45 5c 33 | ."\300\301.DC\302.\303\301..EE\3 |
| 1920 | 30 34 42 42 42 5c 32 30 37 22 20 5b 6c 65 74 20 61 63 63 20 2d 2d 65 61 63 68 20 73 65 74 71 20 | 04BBB\207".[let.acc.--each.setq. |
| 1940 | 28 61 63 63 29 5d 20 31 30 20 28 23 24 20 2e 20 36 32 39 35 29 5d 29 29 0a 28 70 75 74 20 27 2d | (acc)].10.(#$...6295)])).(put.'- |
| 1960 | 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 | -reduce-from.'edebug-form-spec.' |
| 1980 | 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 35 34 20 52 65 74 75 72 6e 20 74 | (form.form.form)).#@354.Return.t |
| 19a0 | 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 49 4e 49 54 | he.result.of.applying.FN.to.INIT |
| 19c0 | 49 41 4c 2d 56 41 4c 55 45 20 61 6e 64 20 74 68 65 0a 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 | IAL-VALUE.and.the.first.item.in. |
| 19e0 | 4c 49 53 54 2c 20 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 61 74 20 72 | LIST,.then.applying.FN.to.that.r |
| 1a00 | 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 32 6e 64 0a 69 74 65 6d 2c 20 65 74 63 2e 20 49 66 20 | esult.and.the.2nd.item,.etc..If. |
| 1a20 | 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 69 74 65 6d 73 2c 20 72 65 74 75 72 6e 20 49 | LIST.contains.no.items,.return.I |
| 1a40 | 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 61 6e 64 0a 64 6f 20 6e 6f 74 20 63 61 6c 6c 20 46 4e 2e | NITIAL-VALUE.and.do.not.call.FN. |
| 1a60 | 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 72 65 64 75 63 | ..In.the.anaphoric.form.`--reduc |
| 1a80 | 65 2d 66 72 6f 6d 27 2c 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 64 20 76 61 6c 75 65 20 69 | e-from',.the.accumulated.value.i |
| 1aa0 | 73 0a 65 78 70 6f 73 65 64 20 61 73 20 73 79 6d 62 6f 6c 20 60 61 63 63 27 2e 0a 0a 53 65 65 20 | s.exposed.as.symbol.`acc'...See. |
| 1ac0 | 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 27 2c 20 60 2d 72 65 64 75 63 65 2d 72 27 0a 0a 28 66 | also:.`-reduce',.`-reduce-r'..(f |
| 1ae0 | 6e 20 46 4e 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | n.FN.INITIAL-VALUE.LIST)..(defal |
| 1b00 | 69 61 73 20 27 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 01 5c 33 30 30 01 | ias.'-reduce-from.#[771."..\300. |
| 1b20 | 5c 32 30 33 1c 00 01 40 06 06 04 02 5c 22 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 | \203...@....\"\262.\210\211T\262 |
| 1b40 | 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 30 5d | ..A\262.\202..\266.\211\207".[0] |
| 1b60 | 20 31 30 20 28 23 24 20 2e 20 36 35 35 32 29 5d 29 0a 23 40 34 36 20 41 6e 61 70 68 6f 72 69 63 | .10.(#$...6552)]).#@46.Anaphoric |
| 1b80 | 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 | .form.of.`-reduce'...(fn.FORM.LI |
| 1ba0 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 20 27 28 6d 61 63 72 6f | ST)..(defalias.'--reduce.'(macro |
| 1bc0 | 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 03 44 43 5c 33 30 33 03 | ...#[514."\300\301!\302..DC\303. |
| 1be0 | 5c 33 30 34 06 07 5c 33 30 35 06 07 44 5c 33 30 36 06 08 44 46 5c 33 30 32 5c 33 30 37 06 09 45 | \304..\305..D\306..DF\302\307..E |
| 1c00 | 46 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 2d 76 61 6c 75 65 | FE\207".[make-symbol."list-value |
| 1c20 | 22 20 6c 65 74 20 69 66 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 63 61 72 20 63 64 72 20 28 | ".let.if.--reduce-from.car.cdr.( |
| 1c40 | 61 63 63 20 69 74 29 5d 20 31 32 20 28 23 24 20 2e 20 37 30 33 31 29 5d 29 29 0a 28 70 75 74 20 | acc.it)].12.(#$...7031)])).(put. |
| 1c60 | 27 2d 2d 72 65 64 75 63 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f | '--reduce.'edebug-form-spec.'(fo |
| 1c80 | 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 30 34 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c | rm.form)).#@404.Return.the.resul |
| 1ca0 | 74 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 32 20 | t.of.applying.FN.to.the.first.2. |
| 1cc0 | 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2c 0a 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 | items.in.LIST,.then.applying.FN. |
| 1ce0 | 74 6f 20 74 68 61 74 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 33 72 64 20 69 74 65 6d 2c | to.that.result.and.the.3rd.item, |
| 1d00 | 20 65 74 63 2e 20 49 66 20 4c 49 53 54 0a 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 69 74 65 6d 73 2c | .etc..If.LIST.contains.no.items, |
| 1d20 | 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 4e | .return.the.result.of.calling.FN |
| 1d40 | 20 77 69 74 68 20 6e 6f 0a 61 72 67 75 6d 65 6e 74 73 2e 20 49 66 20 4c 49 53 54 20 63 6f 6e 74 | .with.no.arguments..If.LIST.cont |
| 1d60 | 61 69 6e 73 20 61 20 73 69 6e 67 6c 65 20 69 74 65 6d 2c 20 72 65 74 75 72 6e 20 74 68 61 74 20 | ains.a.single.item,.return.that. |
| 1d80 | 69 74 65 6d 0a 61 6e 64 20 64 6f 20 6e 6f 74 20 63 61 6c 6c 20 46 4e 2e 0a 0a 49 6e 20 74 68 65 | item.and.do.not.call.FN...In.the |
| 1da0 | 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 72 65 64 75 63 65 27 2c 20 74 68 65 20 | .anaphoric.form.`--reduce',.the. |
| 1dc0 | 61 63 63 75 6d 75 6c 61 74 65 64 20 76 61 6c 75 65 20 69 73 0a 65 78 70 6f 73 65 64 20 61 73 20 | accumulated.value.is.exposed.as. |
| 1de0 | 73 79 6d 62 6f 6c 20 60 61 63 63 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 | symbol.`acc'...See.also:.`-reduc |
| 1e00 | 65 2d 66 72 6f 6d 27 2c 20 60 2d 72 65 64 75 63 65 2d 72 27 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 | e-from',.`-reduce-r'..(fn.FN.LIS |
| 1e20 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 20 23 5b 35 31 34 20 22 5c 32 | T)..(defalias.'-reduce.#[514."\2 |
| 1e40 | 31 31 5c 32 30 33 5c 66 00 5c 33 30 30 02 02 40 03 41 23 5c 32 30 37 01 20 5c 32 30 37 22 20 5b | 11\203\f.\300..@.A#\207..\207".[ |
| 1e60 | 2d 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20 28 23 24 20 2e 20 37 33 31 32 29 5d 29 0a 23 40 | -reduce-from].6.(#$...7312)]).#@ |
| 1e80 | 37 30 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 72 65 64 75 63 65 | 70.Anaphoric.version.of.`-reduce |
| 1ea0 | 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 | -r-from'...(fn.FORM.INITIAL-VALU |
| 1ec0 | 45 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d 66 | E.LIST)..(defalias.'--reduce-r-f |
| 1ee0 | 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 5c 33 30 31 04 | rom.'(macro...#[771."\300..\301. |
| 1f00 | 44 46 5c 32 30 37 22 20 5b 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 72 65 76 65 72 73 65 5d 20 | DF\207".[--reduce-from.reverse]. |
| 1f20 | 38 20 28 23 24 20 2e 20 37 38 31 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d | 8.(#$...7811)])).(put.'--reduce- |
| 1f40 | 72 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 | r-from.'edebug-form-spec.'(form. |
| 1f60 | 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 33 31 20 52 65 70 6c 61 63 65 20 63 6f 6e 73 65 73 | form.form)).#@331.Replace.conses |
| 1f80 | 20 77 69 74 68 20 46 4e 2c 20 6e 69 6c 20 77 69 74 68 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 | .with.FN,.nil.with.INITIAL-VALUE |
| 1fa0 | 20 61 6e 64 20 65 76 61 6c 75 61 74 65 0a 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 65 78 70 72 | .and.evaluate.the.resulting.expr |
| 1fc0 | 65 73 73 69 6f 6e 2e 20 49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 49 4e 49 54 49 41 | ession..If.LIST.is.empty,.INITIA |
| 1fe0 | 4c 2d 56 41 4c 55 45 20 69 73 0a 72 65 74 75 72 6e 65 64 20 61 6e 64 20 46 4e 20 69 73 20 6e 6f | L-VALUE.is.returned.and.FN.is.no |
| 2000 | 74 20 63 61 6c 6c 65 64 2e 0a 0a 4e 6f 74 65 3a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 | t.called...Note:.this.function.w |
| 2020 | 6f 72 6b 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 | orks.the.same.as.`-reduce-from'. |
| 2040 | 62 75 74 20 74 68 65 0a 6f 70 65 72 61 74 69 6f 6e 20 61 73 73 6f 63 69 61 74 65 73 20 66 72 6f | but.the.operation.associates.fro |
| 2060 | 6d 20 72 69 67 68 74 20 69 6e 73 74 65 61 64 20 6f 66 20 66 72 6f 6d 20 6c 65 66 74 2e 0a 0a 53 | m.right.instead.of.from.left...S |
| 2080 | 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 2d 72 27 2c 20 60 2d 72 65 64 75 63 65 27 0a | ee.also:.`-reduce-r',.`-reduce'. |
| 20a0 | 0a 28 66 6e 20 46 4e 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 4c 49 53 54 29 1f 0a 28 64 65 | .(fn.FN.INITIAL-VALUE.LIST)..(de |
| 20c0 | 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 5c | falias.'-reduce-r-from.#[771.".\ |
| 20e0 | 33 30 30 02 21 5c 33 30 31 01 5c 32 30 33 1e 00 01 40 06 06 01 05 5c 22 5c 32 36 32 04 5c 32 31 | 300.!\301.\203...@....\"\262.\21 |
| 2100 | 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 36 36 02 5c 32 31 | 0\211T\262..A\262.\202..\266.\21 |
| 2120 | 31 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 5d 20 31 30 20 28 23 24 20 2e 20 38 30 35 30 | 1\207".[reverse.0].10.(#$...8050 |
| 2140 | 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d | )]).#@51.Anaphoric.version.of.`- |
| 2160 | 72 65 64 75 63 65 2d 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 | reduce-r'...(fn.FORM.LIST)..(def |
| 2180 | 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 | alias.'--reduce-r.'(macro...#[51 |
| 21a0 | 34 20 22 5c 33 30 30 02 5c 33 30 31 03 44 45 5c 32 30 37 22 20 5b 2d 2d 72 65 64 75 63 65 20 72 | 4."\300.\301.DE\207".[--reduce.r |
| 21c0 | 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 38 35 32 31 29 5d 29 29 0a 28 70 75 74 20 27 2d | everse].6.(#$...8521)])).(put.'- |
| 21e0 | 2d 72 65 64 75 63 65 2d 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f | -reduce-r.'edebug-form-spec.'(fo |
| 2200 | 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 38 30 20 52 65 70 6c 61 63 65 20 63 6f 6e 73 65 73 20 77 | rm.form)).#@480.Replace.conses.w |
| 2220 | 69 74 68 20 46 4e 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e | ith.FN.and.evaluate.the.resultin |
| 2240 | 67 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 54 68 65 20 66 69 6e 61 6c 20 6e 69 6c 20 69 73 20 69 | g.expression..The.final.nil.is.i |
| 2260 | 67 6e 6f 72 65 64 2e 20 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 69 74 65 6d | gnored..If.LIST.contains.no.item |
| 2280 | 73 2c 20 72 65 74 75 72 6e 20 74 68 65 0a 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 | s,.return.the.result.of.calling. |
| 22a0 | 46 4e 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2e 20 49 66 20 4c 49 53 54 20 63 6f | FN.with.no.arguments..If.LIST.co |
| 22c0 | 6e 74 61 69 6e 73 20 61 20 73 69 6e 67 6c 65 0a 69 74 65 6d 2c 20 72 65 74 75 72 6e 20 74 68 61 | ntains.a.single.item,.return.tha |
| 22e0 | 74 20 69 74 65 6d 20 61 6e 64 20 64 6f 20 6e 6f 74 20 63 61 6c 6c 20 46 4e 2e 0a 0a 54 68 65 20 | t.item.and.do.not.call.FN...The. |
| 2300 | 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 46 4e 20 69 73 20 74 68 65 20 6e 65 77 20 | first.argument.of.FN.is.the.new. |
| 2320 | 69 74 65 6d 2c 20 74 68 65 20 73 65 63 6f 6e 64 20 69 73 20 74 68 65 0a 61 63 63 75 6d 75 6c 61 | item,.the.second.is.the.accumula |
| 2340 | 74 65 64 20 76 61 6c 75 65 2e 0a 0a 4e 6f 74 65 3a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 | ted.value...Note:.this.function. |
| 2360 | 77 6f 72 6b 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 60 2d 72 65 64 75 63 65 27 20 62 75 74 20 | works.the.same.as.`-reduce'.but. |
| 2380 | 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 0a 61 73 73 6f 63 69 61 74 65 73 20 66 72 6f 6d 20 72 69 | the.operation.associates.from.ri |
| 23a0 | 67 68 74 20 69 6e 73 74 65 61 64 20 6f 66 20 66 72 6f 6d 20 6c 65 66 74 2e 0a 0a 53 65 65 20 61 | ght.instead.of.from.left...See.a |
| 23c0 | 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2c 20 60 2d 72 65 64 75 63 65 27 | lso:.`-reduce-r-from',.`-reduce' |
| 23e0 | 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 | ..(fn.FN.LIST)..(defalias.'-redu |
| 2400 | 63 65 2d 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 3a 00 5c 33 30 30 01 21 5c 32 31 31 | ce-r.#[514."\211\203:.\300.!\211 |
| 2420 | 5c 32 30 33 31 00 5c 32 31 31 40 01 41 5c 33 30 31 01 5c 32 30 33 29 00 01 40 06 06 01 05 5c 22 | \2031.\211@.A\301.\203)..@....\" |
| 2440 | 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 10 00 | \262.\210\211T\262..A\262.\202.. |
| 2460 | 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 39 00 5c 33 30 32 5c 32 31 31 04 01 03 5c | \266.\211\262.\2029.\302\211...\ |
| 2480 | 22 5c 32 36 36 5c 32 30 32 5c 32 30 37 01 20 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 20 | "\266\202\207..\207".[reverse.0. |
| 24a0 | 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 38 37 32 30 29 5d 29 0a 23 40 31 38 38 20 52 65 74 75 | nil].10.(#$...8720)]).#@188.Retu |
| 24c0 | 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 | rn.a.list.of.the.intermediate.va |
| 24e0 | 6c 75 65 73 20 6f 66 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 60 2d 72 65 | lues.of.the.reduction...See.`-re |
| 2500 | 64 75 63 65 2d 66 72 6f 6d 27 20 66 6f 72 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f 66 20 74 68 | duce-from'.for.explanation.of.th |
| 2520 | 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 | e.arguments...See.also:.`-reduct |
| 2540 | 69 6f 6e 73 27 2c 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2c 20 60 2d 72 65 64 75 63 65 | ions',.`-reductions-r',.`-reduce |
| 2560 | 2d 72 27 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | -r'..(fn.FN.INIT.LIST)..(defalia |
| 2580 | 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 43 01 5c 33 | s.'-reductions-from.#[771.".C.\3 |
| 25a0 | 30 30 01 5c 32 30 33 20 00 01 40 06 06 04 40 02 5c 22 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 | 00.\203...@...@.\".B\262.\210\21 |
| 25c0 | 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 04 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 | 1T\262..A\262.\202..\266.\211\26 |
| 25e0 | 32 01 5c 32 33 37 5c 32 30 37 22 20 5b 30 5d 20 31 30 20 28 23 24 20 2e 20 39 34 30 34 29 5d 29 | 2.\237\207".[0].10.(#$...9404)]) |
| 2600 | 0a 23 40 31 38 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 | .#@183.Return.a.list.of.the.inte |
| 2620 | 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e | rmediate.values.of.the.reduction |
| 2640 | 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 27 20 66 6f 72 20 65 78 70 6c 61 6e 61 74 69 6f 6e | ...See.`-reduce'.for.explanation |
| 2660 | 20 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d | .of.the.arguments...See.also:.`- |
| 2680 | 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 27 2c 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 | reductions-from',.`-reductions-r |
| 26a0 | 27 2c 20 60 2d 72 65 64 75 63 65 2d 72 27 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 | ',.`-reduce-r'..(fn.FN.LIST)..(d |
| 26c0 | 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 20 23 5b 35 31 34 20 22 5c 32 31 31 | efalias.'-reductions.#[514."\211 |
| 26e0 | 5c 32 30 35 0b 00 5c 33 30 30 02 02 40 03 41 23 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 74 69 6f | \205..\300..@.A#\207".[-reductio |
| 2700 | 6e 73 2d 66 72 6f 6d 5d 20 36 20 28 23 24 20 2e 20 39 37 33 35 29 5d 29 0a 23 40 31 38 38 20 52 | ns-from].6.(#$...9735)]).#@188.R |
| 2720 | 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 | eturn.a.list.of.the.intermediate |
| 2740 | 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 60 | .values.of.the.reduction...See.` |
| 2760 | 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 20 66 6f 72 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 | -reduce-r-from'.for.explanation. |
| 2780 | 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 | of.the.arguments...See.also:.`-r |
| 27a0 | 65 64 75 63 74 69 6f 6e 73 2d 72 27 2c 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 27 2c 20 60 2d 72 | eductions-r',.`-reductions',.`-r |
| 27c0 | 65 64 75 63 65 27 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 | educe'..(fn.FN.INIT.LIST)..(defa |
| 27e0 | 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 | lias.'-reductions-r-from.#[771." |
| 2800 | 01 43 5c 33 30 30 02 21 5c 33 30 31 01 5c 32 30 33 5c 22 00 01 40 06 06 01 05 40 5c 22 04 42 5c | .C\300.!\301.\203\"..@....@\".B\ |
| 2820 | 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 06 00 5c | 262.\210\211T\262..A\262.\202..\ |
| 2840 | 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 5d 20 31 30 20 28 23 24 | 266.\211\207".[reverse.0].10.(#$ |
| 2860 | 20 2e 20 31 30 30 31 35 29 5d 29 0a 23 40 31 38 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 | ...10015)]).#@183.Return.a.list. |
| 2880 | 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 | of.the.intermediate.values.of.th |
| 28a0 | 65 20 72 65 64 75 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 27 20 66 6f | e.reduction...See.`-reduce-r'.fo |
| 28c0 | 72 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a | r.explanation.of.the.arguments.. |
| 28e0 | 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 27 2c | .See.also:.`-reductions-r-from', |
| 2900 | 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 27 2c 20 60 2d 72 65 64 75 63 65 27 0a 0a 28 66 6e 20 46 | .`-reductions',.`-reduce'..(fn.F |
| 2920 | 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 2d | N.LIST)..(defalias.'-reductions- |
| 2940 | 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 35 30 00 5c 33 30 30 01 21 5c 32 31 31 40 43 01 | r.#[514."\211\2050.\300.!\211@C. |
| 2960 | 41 5c 33 30 31 01 5c 32 30 33 29 00 01 40 06 06 01 05 40 5c 22 04 42 5c 32 36 32 04 5c 32 31 30 | A\301.\203)..@....@\".B\262.\210 |
| 2980 | 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 0d 00 5c 32 36 36 02 5c 32 31 31 | \211T\262..A\262.\202..\266.\211 |
| 29a0 | 5c 32 36 32 01 5c 32 36 32 01 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 5d 20 31 30 20 28 | \262.\262.\207".[reverse.0].10.( |
| 29c0 | 23 24 20 2e 20 31 30 33 35 34 29 5d 29 0a 23 40 36 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 | #$...10354)]).#@69.Anaphoric.for |
| 29e0 | 6d 20 6f 66 20 60 2d 66 69 6c 74 65 72 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 2d 72 65 | m.of.`-filter'...See.also:.`--re |
| 2a00 | 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | move'...(fn.FORM.LIST)..(defalia |
| 2a20 | 73 20 27 2d 2d 66 69 6c 74 65 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 | s.'--filter.'(macro...#[514."\30 |
| 2a40 | 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 06 07 5c 33 30 35 5c 33 30 36 06 | 0\301!\302.C\303.\304..\305\306. |
| 2a60 | 08 45 45 45 5c 33 30 37 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 | .EEE\307.DF\207".[make-symbol."r |
| 2a80 | 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 21 63 6f 6e 73 20 69 74 20 | esult".let.--each.when.!cons.it. |
| 2aa0 | 6e 72 65 76 65 72 73 65 5d 20 31 32 20 28 23 24 20 2e 20 31 30 37 30 37 29 5d 29 29 0a 28 70 75 | nreverse].12.(#$...10707)])).(pu |
| 2ac0 | 74 20 27 2d 2d 66 69 6c 74 65 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 | t.'--filter.'edebug-form-spec.'( |
| 2ae0 | 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 34 35 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c | form.form)).#@145.Return.a.new.l |
| 2b00 | 69 73 74 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 | ist.of.the.items.in.LIST.for.whi |
| 2b20 | 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e | ch.PRED.returns.a.non-nil.value. |
| 2b40 | 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 65 6c 65 63 74 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d | ..Alias:.`-select'..See.also:.`- |
| 2b60 | 6b 65 65 70 27 2c 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 | keep',.`-remove'...(fn.PRED.LIST |
| 2b80 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6c 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 | )..(defalias.'-filter.#[514."\30 |
| 2ba0 | 30 01 5c 33 30 31 01 5c 32 30 33 20 00 01 40 05 01 21 5c 32 30 33 14 00 5c 32 31 31 04 42 5c 32 | 0.\301.\203...@..!\203..\211.B\2 |
| 2bc0 | 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 | 62.\210\211T\262..A\262.\202..\2 |
| 2be0 | 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e | 66.\211\237\207".[nil.0].8.(#$.. |
| 2c00 | 20 31 30 39 39 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 | .10994)]).(byte-code."\300\301\3 |
| 2c20 | 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 | 02\"\210\300\303\304\"\207".[def |
| 2c40 | 61 6c 69 61 73 20 2d 73 65 6c 65 63 74 20 2d 66 69 6c 74 65 72 20 2d 2d 73 65 6c 65 63 74 20 2d | alias.-select.-filter.--select.- |
| 2c60 | 2d 66 69 6c 74 65 72 5d 20 33 29 0a 23 40 36 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 | -filter].3).#@68.Anaphoric.form. |
| 2c80 | 6f 66 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 2d 66 69 6c 74 65 | of.`-remove'...See.also.`--filte |
| 2ca0 | 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | r'...(fn.FORM.LIST)..(defalias.' |
| 2cc0 | 2d 2d 72 65 6d 6f 76 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | --remove.'(macro...#[514."\300\3 |
| 2ce0 | 30 31 03 44 02 45 5c 32 30 37 22 20 5b 2d 2d 66 69 6c 74 65 72 20 6e 6f 74 5d 20 35 20 28 23 24 | 01.D.E\207".[--filter.not].5.(#$ |
| 2d00 | 20 2e 20 31 31 33 37 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 6d 6f 76 65 20 27 65 64 65 | ...11377)])).(put.'--remove.'ede |
| 2d20 | 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 32 | bug-form-spec.'(form.form)).#@12 |
| 2d40 | 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 74 65 6d 73 | 4.Return.a.new.list.of.the.items |
| 2d60 | 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 | .in.LIST.for.which.PRED.returns. |
| 2d80 | 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 27 0a 0a 53 65 65 20 61 6c 73 6f | nil...Alias:.`-reject'..See.also |
| 2da0 | 3a 20 60 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 | :.`-filter'...(fn.PRED.LIST)..(d |
| 2dc0 | 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 | efalias.'-remove.#[514."\300.\30 |
| 2de0 | 31 01 5c 32 30 33 20 00 01 40 05 01 21 5c 32 30 34 14 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 | 1.\203...@..!\204..\211.B\262.\2 |
| 2e00 | 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 | 10\211T\262..A\262.\202..\266.\2 |
| 2e20 | 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 31 31 35 38 | 11\237\207".[nil.0].8.(#$...1158 |
| 2e40 | 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c | 6)]).(byte-code."\300\301\302\"\ |
| 2e60 | 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 | 210\300\303\304\"\207".[defalias |
| 2e80 | 20 2d 72 65 6a 65 63 74 20 2d 72 65 6d 6f 76 65 20 2d 2d 72 65 6a 65 63 74 20 2d 2d 72 65 6d 6f | .-reject.-remove.--reject.--remo |
| 2ea0 | 76 65 5d 20 33 29 0a 23 40 31 33 37 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 | ve].3).#@137.Return.a.new.list.w |
| 2ec0 | 69 74 68 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 | ith.the.first.item.matching.PRED |
| 2ee0 | 20 72 65 6d 6f 76 65 64 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 | .removed...Alias:.`-reject-first |
| 2f00 | 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 27 2c 20 60 2d 6d 61 70 2d 66 69 | '..See.also:.`-remove',.`-map-fi |
| 2f20 | 72 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | rst'..(fn.PRED.LIST)..(defalias. |
| 2f40 | 27 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 32 30 33 19 | '-remove-first.#[514."\300.\203. |
| 2f60 | 00 02 02 40 21 5c 32 30 34 19 00 01 40 01 42 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 | ...@!\204...@.B\262..A\262.\202. |
| 2f80 | 00 01 5c 32 30 33 26 00 5c 33 30 31 01 5c 32 33 37 03 41 5c 22 5c 32 30 32 28 00 5c 32 31 31 5c | ..\203&.\301.\237.A\"\202(.\211\ |
| 2fa0 | 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 63 61 74 5d 20 36 20 28 23 24 20 2e 20 31 | 237\207".[nil.-concat].6.(#$...1 |
| 2fc0 | 31 39 34 39 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 | 1949)]).#@52.Anaphoric.form.of.` |
| 2fe0 | 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f | -remove-first'...(fn.FORM.LIST). |
| 3000 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 27 28 6d 61 63 | .(defalias.'--remove-first.'(mac |
| 3020 | 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 | ro...#[514."\300\301\302.E.E\207 |
| 3040 | 22 20 5b 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 | ".[-remove-first.lambda.(it)].6. |
| 3060 | 28 23 24 20 2e 20 31 32 32 33 37 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | (#$...12237)])).(byte-code."\300 |
| 3080 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c | \301\302\303#\210\304\305\306\"\ |
| 30a0 | 32 31 30 5c 33 30 34 5c 33 30 37 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 72 65 | 210\304\307\301\"\207".[put.--re |
| 30c0 | 6d 6f 76 65 2d 66 69 72 73 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 | move-first.edebug-form-spec.(for |
| 30e0 | 6d 20 66 6f 72 6d 29 20 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 20 2d | m.form).defalias.-reject-first.- |
| 3100 | 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 2d 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 5d 20 34 29 0a | remove-first.--reject-first].4). |
| 3120 | 23 40 31 33 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 | #@134.Return.a.new.list.with.the |
| 3140 | 20 6c 61 73 74 20 69 74 65 6d 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 72 65 6d 6f 76 65 64 | .last.item.matching.PRED.removed |
| 3160 | 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 2d 6c 61 73 74 27 0a 0a 53 65 65 20 61 6c | ...Alias:.`-reject-last'..See.al |
| 3180 | 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 27 2c 20 60 2d 6d 61 70 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 | so:.`-remove',.`-map-last'..(fn. |
| 31a0 | 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 6c | PRED.LIST)..(defalias.'-remove-l |
| 31c0 | 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 21 5c 22 5c 32 33 37 5c 32 30 37 | ast.#[514."\300.\301.!\"\237\207 |
| 31e0 | 22 20 5b 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 | ".[-remove-first.reverse].6.(#$. |
| 3200 | 2e 20 31 32 35 38 32 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f | ..12582)]).#@51.Anaphoric.form.o |
| 3220 | 66 20 60 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 | f.`-remove-last'...(fn.FORM.LIST |
| 3240 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 27 28 6d 61 | )..(defalias.'--remove-last.'(ma |
| 3260 | 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 | cro...#[514."\300\301\302.E.E\20 |
| 3280 | 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 | 7".[-remove-last.lambda.(it)].6. |
| 32a0 | 28 23 24 20 2e 20 31 32 38 31 36 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | (#$...12816)])).(byte-code."\300 |
| 32c0 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c | \301\302\303#\210\304\305\306\"\ |
| 32e0 | 32 31 30 5c 33 30 34 5c 33 30 37 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 72 65 | 210\304\307\301\"\207".[put.--re |
| 3300 | 6d 6f 76 65 2d 6c 61 73 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d | move-last.edebug-form-spec.(form |
| 3320 | 20 66 6f 72 6d 29 20 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 2d 6c 61 73 74 20 2d 72 65 | .form).defalias.-reject-last.-re |
| 3340 | 6d 6f 76 65 2d 6c 61 73 74 20 2d 2d 72 65 6a 65 63 74 2d 6c 61 73 74 5d 20 34 29 0a 23 40 39 32 | move-last.--reject-last].4).#@92 |
| 3360 | 20 52 65 6d 6f 76 65 20 61 6c 6c 20 6f 63 63 75 72 65 6e 63 65 73 20 6f 66 20 49 54 45 4d 20 66 | .Remove.all.occurences.of.ITEM.f |
| 3380 | 72 6f 6d 20 4c 49 53 54 2e 0a 0a 43 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 | rom.LIST...Comparison.is.done.wi |
| 33a0 | 74 68 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 | th.`equal'...(fn.ITEM.LIST)..(de |
| 33c0 | 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 | falias.'-remove-item.#[514."\300 |
| 33e0 | 01 5c 33 30 31 01 5c 32 30 33 21 00 01 40 5c 32 31 31 06 06 5c 32 33 32 5c 32 30 34 15 00 5c 32 | .\301.\203!..@\211..\232\204..\2 |
| 3400 | 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 | 11.B\262.\210\211T\262..A\262.\2 |
| 3420 | 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 | 02..\266.\211\237\207".[nil.0].8 |
| 3440 | 20 28 23 24 20 2e 20 31 33 31 35 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...13153)]).(byte-code."\300 |
| 3460 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 | \301\302\303#\210\300\301\304\30 |
| 3480 | 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d 69 74 | 3#\207".[function-put.-remove-it |
| 34a0 | 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 | em.pure.t.side-effect-free].4).# |
| 34c0 | 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6b 65 65 70 27 2e 0a 0a | @44.Anaphoric.form.of.`-keep'... |
| 34e0 | 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6b 65 65 | (fn.FORM.LIST)..(defalias.'--kee |
| 3500 | 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 | p.'(macro...#[514."\300\301!\300 |
| 3520 | 5c 33 30 32 21 5c 33 30 33 02 43 5c 33 30 34 05 5c 33 30 33 05 06 09 44 43 5c 33 30 35 06 07 5c | \302!\303.C\304.\303...DC\305..\ |
| 3540 | 33 30 36 06 09 06 0b 45 45 45 45 5c 33 30 37 05 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 | 306....EEEE\307.DF\207".[make-sy |
| 3560 | 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 6d 61 70 70 65 64 22 20 6c 65 74 20 2d 2d 65 61 63 | mbol."result"."mapped".let.--eac |
| 3580 | 68 20 77 68 65 6e 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 65 5d 20 31 35 20 28 23 24 20 2e 20 | h.when.!cons.nreverse].15.(#$... |
| 35a0 | 31 33 35 30 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6b 65 65 70 20 27 65 64 65 62 75 67 2d 66 | 13508)])).(put.'--keep.'edebug-f |
| 35c0 | 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 37 33 20 52 65 74 | orm-spec.'(form.form)).#@173.Ret |
| 35e0 | 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 | urn.a.new.list.of.the.non-nil.re |
| 3600 | 73 75 6c 74 73 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 69 74 65 6d | sults.of.applying.FN.to.the.item |
| 3620 | 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 49 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 73 65 6c 65 63 | s.in.LIST...If.you.want.to.selec |
| 3640 | 74 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 69 74 65 6d 73 20 73 61 74 69 73 66 79 69 6e 67 20 | t.the.original.items.satisfying. |
| 3660 | 61 20 70 72 65 64 69 63 61 74 65 20 75 73 65 20 60 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 | a.predicate.use.`-filter'...(fn. |
| 3680 | 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6b 65 65 70 20 23 5b 35 31 34 | FN.LIST)..(defalias.'-keep.#[514 |
| 36a0 | 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 5c 22 00 01 40 05 01 21 5c 32 31 31 5c 32 30 33 | ."\300.\301.\203\"..@..!\211\203 |
| 36c0 | 15 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 | ..\211.B\262.\266.\211T\262..A\2 |
| 36e0 | 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c | 62.\202..\266.\211\237\207".[nil |
| 3700 | 20 30 5d 20 39 20 28 23 24 20 2e 20 31 33 37 38 39 29 5d 29 0a 23 40 34 39 20 52 65 74 75 72 6e | .0].9.(#$...13789)]).#@49.Return |
| 3720 | 20 61 6c 6c 20 6e 6f 6e 2d 6e 69 6c 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 0a 0a | .all.non-nil.elements.of.LIST... |
| 3740 | 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f 6e 2d 6e 69 6c 20 23 | (fn.LIST)..(defalias.'-non-nil.# |
| 3760 | 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 20 | [257."\300\301.\"\207".[-remove. |
| 3780 | 6e 75 6c 6c 5d 20 34 20 28 23 24 20 2e 20 31 34 31 30 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | null].4.(#$...14106)]).(byte-cod |
| 37a0 | 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 | e."\300\301\302\303#\210\300\301 |
| 37c0 | 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6e 6f | \304\303#\207".[function-put.-no |
| 37e0 | 6e 2d 6e 69 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 | n-nil.pure.t.side-effect-free].4 |
| 3800 | 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 69 | ).#@51.Anaphoric.form.of.`-map-i |
| 3820 | 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | ndexed'...(fn.FORM.LIST)..(defal |
| 3840 | 69 61 73 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 | ias.'--map-indexed.'(macro...#[5 |
| 3860 | 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 06 07 06 06 | 14."\300\301!\302.C\303.\304.... |
| 3880 | 45 45 5c 33 30 35 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 | EE\305.DF\207".[make-symbol."res |
| 38a0 | 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 65 5d 20 | ult".let.--each.!cons.nreverse]. |
| 38c0 | 31 30 20 28 23 24 20 2e 20 31 34 33 34 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 69 | 10.(#$...14343)])).(put.'--map-i |
| 38e0 | 6e 64 65 78 65 64 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 | ndexed.'edebug-form-spec.'(form. |
| 3900 | 66 6f 72 6d 29 29 0a 23 40 32 31 31 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 63 | form)).#@211.Return.a.new.list.c |
| 3920 | 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 28 46 4e 20 69 | onsisting.of.the.result.of.(FN.i |
| 3940 | 6e 64 65 78 20 69 74 65 6d 29 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 | ndex.item).for.each.item.in.LIST |
| 3960 | 2e 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 6d 61 70 2d | ...In.the.anaphoric.form.`--map- |
| 3980 | 69 6e 64 65 78 65 64 27 2c 20 74 68 65 20 69 6e 64 65 78 20 69 73 20 65 78 70 6f 73 65 64 20 61 | indexed',.the.index.is.exposed.a |
| 39a0 | 73 20 73 79 6d 62 6f 6c 20 60 69 74 2d 69 6e 64 65 78 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 | s.symbol.`it-index'...See.also:. |
| 39c0 | 60 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a | `-each-indexed'...(fn.FN.LIST).. |
| 39e0 | 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20 22 5c | (defalias.'-map-indexed.#[514."\ |
| 3a00 | 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1d 00 01 40 05 02 02 5c 22 04 42 5c 32 36 32 04 5c 32 31 | 300.\301.\203...@...\".B\262.\21 |
| 3a20 | 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 | 0\211T\262..A\262.\202..\266.\21 |
| 3a40 | 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 34 36 30 35 | 1\237\207".[nil.0].9.(#$...14605 |
| 3a60 | 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 | )]).#@52.Anaphoric.form.of.`-map |
| 3a80 | 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 | -when'...(fn.PRED.REP.LIST)..(de |
| 3aa0 | 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 77 68 65 6e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 | falias.'--map-when.'(macro...#[7 |
| 3ac0 | 37 31 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 5c 33 30 35 | 71."\300\301!\302.C\303.\304\305 |
| 3ae0 | 06 09 06 09 5c 33 30 36 42 42 42 06 06 45 45 5c 33 30 37 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b | ....\306BBB..EE\307.DF\207".[mak |
| 3b00 | 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 21 63 6f | e-symbol."result".let.--each.!co |
| 3b20 | 6e 73 20 69 66 20 28 69 74 29 20 6e 72 65 76 65 72 73 65 5d 20 31 33 20 28 23 24 20 2e 20 31 34 | ns.if.(it).nreverse].13.(#$...14 |
| 3b40 | 39 35 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 77 68 65 6e 20 27 65 64 65 62 75 67 | 953)])).(put.'--map-when.'edebug |
| 3b60 | 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 | -form-spec.'(form.form.form)).#@ |
| 3b80 | 32 36 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 68 65 72 65 20 74 68 65 20 | 266.Return.a.new.list.where.the. |
| 3ba0 | 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 74 68 61 74 20 64 6f 20 6e 6f 74 20 6d 61 74 | elements.in.LIST.that.do.not.mat |
| 3bc0 | 63 68 20 74 68 65 20 50 52 45 44 20 66 75 6e 63 74 69 6f 6e 0a 61 72 65 20 75 6e 63 68 61 6e 67 | ch.the.PRED.function.are.unchang |
| 3be0 | 65 64 2c 20 61 6e 64 20 77 68 65 72 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 | ed,.and.where.the.elements.in.LI |
| 3c00 | 53 54 20 74 68 61 74 20 64 6f 20 6d 61 74 63 68 20 74 68 65 20 50 52 45 44 20 66 75 6e 63 74 69 | ST.that.do.match.the.PRED.functi |
| 3c20 | 6f 6e 20 61 72 65 20 6d 61 70 70 65 64 0a 74 68 72 6f 75 67 68 20 74 68 65 20 52 45 50 20 66 75 | on.are.mapped.through.the.REP.fu |
| 3c40 | 6e 63 74 69 6f 6e 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 27 | nction...Alias:.`-replace-where' |
| 3c60 | 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 75 70 64 61 74 65 2d 61 74 27 0a 0a 28 66 6e 20 50 52 | ..See.also:.`-update-at'..(fn.PR |
| 3c80 | 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 77 68 | ED.REP.LIST)..(defalias.'-map-wh |
| 3ca0 | 65 6e 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 27 00 01 40 06 06 01 21 | en.#[771."\300.\301.\203'..@...! |
| 3cc0 | 5c 32 30 33 16 00 05 01 21 5c 32 30 32 17 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 | \203....!\202..\211.B\262.\210\2 |
| 3ce0 | 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 | 11T\262..A\262.\202..\266.\211\2 |
| 3d00 | 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 35 32 33 36 29 5d 29 | 37\207".[nil.0].9.(#$...15236)]) |
| 3d20 | 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c | .(byte-code."\300\301\302\"\210\ |
| 3d40 | 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 | 300\303\304\"\207".[defalias.-re |
| 3d60 | 70 6c 61 63 65 2d 77 68 65 72 65 20 2d 6d 61 70 2d 77 68 65 6e 20 2d 2d 72 65 70 6c 61 63 65 2d | place-where.-map-when.--replace- |
| 3d80 | 77 68 65 72 65 20 2d 2d 6d 61 70 2d 77 68 65 6e 5d 20 33 29 0a 23 40 31 34 35 20 52 65 70 6c 61 | where.--map-when].3).#@145.Repla |
| 3da0 | 63 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 73 61 74 69 73 66 79 69 6e 67 | ce.first.item.in.LIST.satisfying |
| 3dc0 | 20 50 52 45 44 20 77 69 74 68 20 72 65 73 75 6c 74 20 6f 66 20 52 45 50 20 63 61 6c 6c 65 64 20 | .PRED.with.result.of.REP.called. |
| 3de0 | 6f 6e 20 74 68 69 73 20 69 74 65 6d 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 77 | on.this.item...See.also:.`-map-w |
| 3e00 | 68 65 6e 27 2c 20 60 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 | hen',.`-replace-first'..(fn.PRED |
| 3e20 | 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 66 69 72 73 | .REP.LIST)..(defalias.'-map-firs |
| 3e40 | 74 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 32 30 33 19 00 03 02 40 21 5c 32 30 34 19 00 01 40 | t.#[771."\300.\203....@!\204...@ |
| 3e60 | 01 42 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 01 5c 32 30 33 2b 00 5c 33 30 31 01 | .B\262..A\262.\202...\203+.\301. |
| 3e80 | 5c 32 33 37 04 04 40 21 04 41 42 5c 22 5c 32 30 32 2d 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 | \237..@!.AB\"\202-.\211\237\207" |
| 3ea0 | 20 5b 6e 69 6c 20 2d 63 6f 6e 63 61 74 5d 20 38 20 28 23 24 20 2e 20 31 35 37 37 31 29 5d 29 0a | .[nil.-concat].8.(#$...15771)]). |
| 3ec0 | 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 66 69 72 | #@53.Anaphoric.form.of.`-map-fir |
| 3ee0 | 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | st'...(fn.PRED.REP.LIST)..(defal |
| 3f00 | 69 61 73 20 27 2d 2d 6d 61 70 2d 66 69 72 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 | ias.'--map-first.'(macro...#[771 |
| 3f20 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 5c 33 30 34 06 06 46 03 | ."\300\301\302.E\301\303\304..F. |
| 3f40 | 46 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 | F\207".[-map-first.lambda.(it).( |
| 3f60 | 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 31 36 30 36 39 29 5d | it).(ignore.it)].9.(#$...16069)] |
| 3f80 | 29 29 0a 23 40 31 34 33 20 52 65 70 6c 61 63 65 20 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 | )).#@143.Replace.last.item.in.LI |
| 3fa0 | 53 54 20 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 44 20 77 69 74 68 20 72 65 73 75 6c 74 20 6f | ST.satisfying.PRED.with.result.o |
| 3fc0 | 66 20 52 45 50 20 63 61 6c 6c 65 64 20 6f 6e 20 74 68 69 73 20 69 74 65 6d 2e 0a 0a 53 65 65 20 | f.REP.called.on.this.item...See. |
| 3fe0 | 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2c 20 60 2d 72 65 70 6c 61 63 65 2d 6c 61 73 | also:.`-map-when',.`-replace-las |
| 4000 | 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | t'..(fn.PRED.REP.LIST)..(defalia |
| 4020 | 73 20 27 2d 6d 61 70 2d 6c 61 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 5c 33 30 31 04 21 | s.'-map-last.#[771."\300..\301.! |
| 4040 | 23 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 | #\237\207".[-map-first.reverse]. |
| 4060 | 38 20 28 23 24 20 2e 20 31 36 32 36 35 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 | 8.(#$...16265)]).#@52.Anaphoric. |
| 4080 | 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 | form.of.`-map-last'...(fn.PRED.R |
| 40a0 | 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 6c 61 73 74 20 | EP.LIST)..(defalias.'--map-last. |
| 40c0 | 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c | '(macro...#[771."\300\301\302.E\ |
| 40e0 | 33 30 31 5c 33 30 33 5c 33 30 34 06 06 46 03 46 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 | 301\303\304..F.F\207".[-map-last |
| 4100 | 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 | .lambda.(it).(it).(ignore.it)].9 |
| 4120 | 20 28 23 24 20 2e 20 31 36 35 30 32 29 5d 29 29 0a 23 40 31 32 33 20 52 65 70 6c 61 63 65 20 61 | .(#$...16502)])).#@123.Replace.a |
| 4140 | 6c 6c 20 4f 4c 44 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 77 69 74 68 20 4e 45 57 2e 0a 0a | ll.OLD.items.in.LIST.with.NEW... |
| 4160 | 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 | Elements.are.compared.using.`equ |
| 4180 | 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 70 6c 61 63 65 2d 61 74 27 0a 0a 28 | al'...See.also:.`-replace-at'..( |
| 41a0 | 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 | fn.OLD.NEW.LIST)..(defalias.'-re |
| 41c0 | 70 6c 61 63 65 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 25 00 01 40 5c | place.#[771."\300.\301.\203%..@\ |
| 41e0 | 32 31 31 06 07 5c 32 33 32 5c 32 30 33 14 00 05 5c 32 30 32 15 00 5c 32 31 31 04 42 5c 32 36 32 | 211..\232\203...\202..\211.B\262 |
| 4200 | 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 | .\210\211T\262..A\262.\202..\266 |
| 4220 | 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 | .\211\237\207".[nil.0].9.(#$...1 |
| 4240 | 36 36 39 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | 6695)]).(byte-code."\300\301\302 |
| 4260 | 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 | \303#\210\300\301\304\303#\207". |
| 4280 | 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 20 70 75 72 65 20 74 20 73 69 | [function-put.-replace.pure.t.si |
| 42a0 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 33 35 20 52 65 70 6c 61 63 65 | de-effect-free].4).#@135.Replace |
| 42c0 | 20 74 68 65 20 66 69 72 73 74 20 6f 63 63 75 72 65 6e 63 65 20 6f 66 20 4f 4c 44 20 77 69 74 68 | .the.first.occurence.of.OLD.with |
| 42e0 | 20 4e 45 57 20 69 6e 20 4c 49 53 54 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70 | .NEW.in.LIST...Elements.are.comp |
| 4300 | 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 | ared.using.`equal'...See.also:.` |
| 4320 | 2d 6d 61 70 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a | -map-first'..(fn.OLD.NEW.LIST).. |
| 4340 | 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 20 23 5b 37 37 31 20 | (defalias.'-replace-first.#[771. |
| 4360 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 | "\300\301\302\303\304\305..!\306 |
| 4380 | 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 30 31 5c 33 30 32 5c 33 31 31 5c 33 30 34 5c 33 30 35 06 | \"\307\310%\301\302\311\304\305. |
| 43a0 | 08 21 5c 33 30 36 5c 22 5c 33 31 32 5c 33 31 30 25 03 23 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 | .!\306\"\312\310%.#\207".[-map-f |
| 43c0 | 69 72 73 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 5c 32 | irst.make-byte-code.257."\300.\2 |
| 43e0 | 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c | 32\207".vconcat.vector.[].3."\n\ |
| 4400 | 6e 28 66 6e 20 49 54 29 22 20 22 5c 33 30 30 5c 32 30 37 22 20 32 5d 20 31 31 20 28 23 24 20 2e | n(fn.IT)"."\300\207".2].11.(#$.. |
| 4420 | 20 31 37 30 38 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 | .17081)]).(byte-code."\300\301\3 |
| 4440 | 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 | 02\303#\210\300\301\304\303#\207 |
| 4460 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 20 70 | ".[function-put.-replace-first.p |
| 4480 | 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 33 33 | ure.t.side-effect-free].4).#@133 |
| 44a0 | 20 52 65 70 6c 61 63 65 20 74 68 65 20 6c 61 73 74 20 6f 63 63 75 72 65 6e 63 65 20 6f 66 20 4f | .Replace.the.last.occurence.of.O |
| 44c0 | 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 4c 49 53 54 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 | LD.with.NEW.in.LIST...Elements.a |
| 44e0 | 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 | re.compared.using.`equal'...See. |
| 4500 | 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c | also:.`-map-last'..(fn.OLD.NEW.L |
| 4520 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 20 23 | IST)..(defalias.'-replace-last.# |
| 4540 | 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 | [771."\300\301\302\303\304\305.. |
| 4560 | 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 30 31 5c 33 30 32 5c 33 31 31 5c 33 30 34 | !\306\"\307\310%\301\302\311\304 |
| 4580 | 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 31 32 5c 33 31 30 25 03 23 5c 32 30 37 22 20 5b 2d | \305..!\306\"\312\310%.#\207".[- |
| 45a0 | 6d 61 70 2d 6c 61 73 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 | map-last.make-byte-code.257."\30 |
| 45c0 | 30 01 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 | 0.\232\207".vconcat.vector.[].3. |
| 45e0 | 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 20 22 5c 33 30 30 5c 32 30 37 22 20 32 5d 20 31 31 20 28 | "\n\n(fn.IT)"."\300\207".2].11.( |
| 4600 | 23 24 20 2e 20 31 37 35 36 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | #$...17569)]).(byte-code."\300\3 |
| 4620 | 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 | 01\302\303#\210\300\301\304\303# |
| 4640 | 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 2d 6c 61 73 | \207".[function-put.-replace-las |
| 4660 | 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 | t.pure.t.side-effect-free].4).#@ |
| 4680 | 34 36 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 63 61 74 27 2e 0a | 46.Anaphoric.form.of.`-mapcat'.. |
| 46a0 | 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 | .(fn.FORM.LIST)..(defalias.'--ma |
| 46c0 | 70 63 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 | pcat.'(macro...#[514."\300\301\3 |
| 46e0 | 30 32 04 04 45 45 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 27 61 70 70 65 6e 64 20 2d 2d 6d 61 70 | 02..EE\207".[apply.'append.--map |
| 4700 | 5d 20 37 20 28 23 24 20 2e 20 31 38 30 35 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 63 | ].7.(#$...18051)])).(put.'--mapc |
| 4720 | 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d | at.'edebug-form-spec.'(form.form |
| 4740 | 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f | )).#@118.Return.the.concatenatio |
| 4760 | 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 6d 61 70 70 69 6e 67 20 46 4e 20 6f 76 | n.of.the.result.of.mapping.FN.ov |
| 4780 | 65 72 20 4c 49 53 54 2e 0a 54 68 75 73 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 | er.LIST..Thus.function.FN.should |
| 47a0 | 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 | .return.a.list...(fn.FN.LIST)..( |
| 47c0 | 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 63 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | defalias.'-mapcat.#[514."\300\30 |
| 47e0 | 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 09 21 5c 33 31 30 | 1\302\303\304\305\306\307..!\310 |
| 4800 | 5c 22 5c 33 31 31 5c 33 31 32 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 | \"\311\312%.\"\"\207".[apply.app |
| 4820 | 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c | end.mapcar.make-byte-code.257."\ |
| 4840 | 33 30 30 01 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 | 300.!\207".vconcat.vector.[].3." |
| 4860 | 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 31 20 28 23 24 20 2e 20 31 38 32 34 39 29 5d 29 0a | \n\n(fn.IT)"].11.(#$...18249)]). |
| 4880 | 23 40 34 33 36 20 54 61 6b 65 20 61 20 6e 65 73 74 65 64 20 6c 69 73 74 20 4c 20 61 6e 64 20 72 | #@436.Take.a.nested.list.L.and.r |
| 48a0 | 65 74 75 72 6e 20 69 74 73 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 61 20 73 69 6e 67 6c 65 2c 20 | eturn.its.contents.as.a.single,. |
| 48c0 | 66 6c 61 74 20 6c 69 73 74 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 62 65 63 61 75 73 65 20 60 6e | flat.list...Note.that.because.`n |
| 48e0 | 69 6c 27 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 7a 65 72 6f 20 65 6c | il'.represents.a.list.of.zero.el |
| 4900 | 65 6d 65 6e 74 73 20 28 61 6e 0a 65 6d 70 74 79 20 6c 69 73 74 29 2c 20 61 6e 79 20 6d 65 6e 74 | ements.(an.empty.list),.any.ment |
| 4920 | 69 6f 6e 20 6f 66 20 6e 69 6c 20 69 6e 20 4c 20 77 69 6c 6c 20 64 69 73 61 70 70 65 61 72 20 61 | ion.of.nil.in.L.will.disappear.a |
| 4940 | 66 74 65 72 0a 66 6c 61 74 74 65 6e 69 6e 67 2e 20 20 49 66 20 79 6f 75 20 6e 65 65 64 20 74 6f | fter.flattening...If.you.need.to |
| 4960 | 20 70 72 65 73 65 72 76 65 20 6e 69 6c 73 2c 20 63 6f 6e 73 69 64 65 72 20 60 2d 66 6c 61 74 74 | .preserve.nils,.consider.`-flatt |
| 4980 | 65 6e 2d 6e 27 0a 6f 72 20 6d 61 70 20 74 68 65 6d 20 74 6f 20 73 6f 6d 65 20 75 6e 69 71 75 65 | en-n'.or.map.them.to.some.unique |
| 49a0 | 20 73 79 6d 62 6f 6c 20 61 6e 64 20 74 68 65 6e 20 6d 61 70 20 74 68 65 6d 20 62 61 63 6b 2e 0a | .symbol.and.then.map.them.back.. |
| 49c0 | 0a 43 6f 6e 73 65 73 20 6f 66 20 74 77 6f 20 61 74 6f 6d 73 20 61 72 65 20 63 6f 6e 73 69 64 65 | .Conses.of.two.atoms.are.conside |
| 49e0 | 72 65 64 20 22 74 65 72 6d 69 6e 61 6c 73 22 2c 20 74 68 61 74 20 69 73 2c 20 74 68 65 79 0a 61 | red."terminals",.that.is,.they.a |
| 4a00 | 72 65 6e 27 74 20 66 6c 61 74 74 65 6e 65 64 20 66 75 72 74 68 65 72 2e 0a 0a 53 65 65 20 61 6c | ren't.flattened.further...See.al |
| 4a20 | 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 0a 0a 28 66 6e 20 4c 29 1f 0a 28 64 65 66 61 6c | so:.`-flatten-n'..(fn.L)..(defal |
| 4a40 | 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 20 23 5b 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 33 10 00 | ias.'-flatten.#[257."\211<\203.. |
| 4a60 | 5c 32 31 31 41 3c 5c 32 30 33 10 00 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 5c 32 31 31 43 | \211A<\203..\300\301.\"\207\211C |
| 4a80 | 5c 32 30 37 22 20 5b 2d 6d 61 70 63 61 74 20 2d 66 6c 61 74 74 65 6e 5d 20 34 20 28 23 24 20 2e | \207".[-mapcat.-flatten].4.(#$.. |
| 4aa0 | 20 31 38 35 36 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 | .18566)]).(byte-code."\300\301\3 |
| 4ac0 | 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 | 02\303#\210\300\301\304\303#\207 |
| 4ae0 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6c 61 74 74 65 6e 20 70 75 72 65 20 74 20 | ".[function-put.-flatten.pure.t. |
| 4b00 | 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 35 32 20 41 6e 61 70 68 6f | side-effect-free].4).#@52.Anapho |
| 4b20 | 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 69 74 65 72 61 74 65 27 2e 0a 0a 28 66 6e 20 | ric.version.of.`-iterate'...(fn. |
| 4b40 | 46 4f 52 4d 20 49 4e 49 54 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 69 74 65 72 61 | FORM.INIT.N)..(defalias.'--itera |
| 4b60 | 74 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | te.'(macro...#[771."\300\301\302 |
| 4b80 | 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 69 74 65 72 61 74 65 20 6c 61 6d 62 64 61 20 28 69 74 29 | .E..F\207".[-iterate.lambda.(it) |
| 4ba0 | 5d 20 37 20 28 23 24 20 2e 20 31 39 32 32 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 69 74 65 72 | ].7.(#$...19226)])).(put.'--iter |
| 4bc0 | 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 | ate.'edebug-form-spec.'(form.for |
| 4be0 | 6d 20 66 6f 72 6d 29 29 0a 23 40 37 35 20 46 6c 61 74 74 65 6e 20 4e 55 4d 20 6c 65 76 65 6c 73 | m.form)).#@75.Flatten.NUM.levels |
| 4c00 | 20 6f 66 20 61 20 6e 65 73 74 65 64 20 4c 49 53 54 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d | .of.a.nested.LIST...See.also:.`- |
| 4c20 | 66 6c 61 74 74 65 6e 27 0a 0a 28 66 6e 20 4e 55 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | flatten'..(fn.NUM.LIST)..(defali |
| 4c40 | 61 73 20 27 2d 66 6c 61 74 74 65 6e 2d 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 | as.'-flatten-n.#[514."\300\301\3 |
| 4c60 | 30 32 03 05 54 23 21 5c 32 30 37 22 20 5b 2d 6c 61 73 74 2d 69 74 65 6d 20 2d 69 74 65 72 61 74 | 02..T#!\207".[-last-item.-iterat |
| 4c80 | 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 5c 22 5c 22 5c 32 | e.#[257."\300\301\302\303.\"\"\2 |
| 4ca0 | 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 | 07".[apply.append.mapcar.#[257." |
| 4cc0 | 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 2d 6c 69 73 74 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 | \300.!\207".[-list].3."\n\n(fn.I |
| 4ce0 | 54 29 22 5d 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 37 20 28 23 24 20 2e 20 | T)"]].6."\n\n(fn.IT)"]].7.(#$... |
| 4d00 | 31 39 34 33 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | 19438)]).(byte-code."\300\301\30 |
| 4d20 | 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 | 2\303#\210\300\301\304\303#\207" |
| 4d40 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6c 61 74 74 65 6e 2d 6e 20 70 75 72 65 20 74 | .[function-put.-flatten-n.pure.t |
| 4d60 | 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 39 39 20 52 65 74 75 72 | .side-effect-free].4).#@99.Retur |
| 4d80 | 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 63 6f 6e 63 61 74 65 6e 61 74 | n.a.new.list.with.the.concatenat |
| 4da0 | 69 6f 6e 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 73 75 70 70 6c | ion.of.the.elements.in.the.suppl |
| 4dc0 | 69 65 64 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 | ied.LISTS...(fn.&rest.LISTS)..(d |
| 4de0 | 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 63 61 74 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 | efalias.'-concat.#[128."\300\301 |
| 4e00 | 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 5d 20 34 20 28 23 24 20 2e 20 | .\"\207".[apply.append].4.(#$... |
| 4e20 | 31 39 38 33 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | 19835)]).(byte-code."\300\301\30 |
| 4e40 | 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 31 30 5c | 2\303#\210\300\301\304\303#\210\ |
| 4e60 | 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 305\306\307\310#\207".[function- |
| 4e80 | 70 75 74 20 2d 63 6f 6e 63 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | put.-concat.pure.t.side-effect-f |
| 4ea0 | 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 63 6f 70 79 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 | ree.defalias.-copy.copy-sequence |
| 4ec0 | 20 22 43 72 65 61 74 65 20 61 20 73 68 61 6c 6c 6f 77 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2e | ."Create.a.shallow.copy.of.LIST. |
| 4ee0 | 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 34 29 0a 23 40 33 32 33 20 53 70 6c 69 63 65 20 | \n\n(fn.LIST)"].4).#@323.Splice. |
| 4f00 | 6c 69 73 74 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 46 55 4e 20 69 6e 20 70 6c 61 63 65 20 | lists.generated.by.FUN.in.place. |
| 4f20 | 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 69 6e 20 4c 49 53 | of.elements.matching.PRED.in.LIS |
| 4f40 | 54 2e 0a 0a 46 55 4e 20 74 61 6b 65 73 20 74 68 65 20 65 6c 65 6d 65 6e 74 20 6d 61 74 63 68 69 | T...FUN.takes.the.element.matchi |
| 4f60 | 6e 67 20 50 52 45 44 20 61 73 20 69 6e 70 75 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e | ng.PRED.as.input...This.function |
| 4f80 | 20 63 61 6e 20 62 65 20 75 73 65 64 20 61 73 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 66 6f 72 20 | .can.be.used.as.replacement.for. |
| 4fa0 | 60 2c 40 27 20 69 6e 20 63 61 73 65 20 79 6f 75 0a 6e 65 65 64 20 74 6f 20 73 70 6c 69 63 65 20 | `,@'.in.case.you.need.to.splice. |
| 4fc0 | 73 65 76 65 72 61 6c 20 6c 69 73 74 73 20 61 74 20 6d 61 72 6b 65 64 20 70 6f 73 69 74 69 6f 6e | several.lists.at.marked.position |
| 4fe0 | 73 20 28 66 6f 72 20 65 78 61 6d 70 6c 65 0a 77 69 74 68 20 6b 65 79 77 6f 72 64 73 29 2e 0a 0a | s.(for.example.with.keywords)... |
| 5000 | 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 2c 20 60 2d 69 6e 73 65 | See.also:.`-splice-list',.`-inse |
| 5020 | 72 74 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 46 55 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 | rt-at'..(fn.PRED.FUN.LIST)..(def |
| 5040 | 61 6c 69 61 73 20 27 2d 73 70 6c 69 63 65 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 01 | alias.'-splice.#[771."\300.\301. |
| 5060 | 5c 32 30 33 43 00 01 40 06 06 01 21 5c 32 30 33 32 00 05 01 21 5c 32 31 31 5c 33 30 31 01 5c 32 | \203C..@...!\2032...!\211\301.\2 |
| 5080 | 30 33 2d 00 01 40 5c 32 31 31 06 08 42 5c 32 36 32 08 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 | 03-..@\211..B\262.\210\211T\262. |
| 50a0 | 01 41 5c 32 36 32 02 5c 32 30 32 15 00 5c 32 36 36 03 5c 32 30 32 37 00 5c 32 31 31 04 42 5c 32 | .A\262.\202..\266.\2027.\211.B\2 |
| 50c0 | 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 | 62.\210\211T\262..A\262.\202..\2 |
| 50e0 | 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 33 20 28 23 24 20 | 66.\211\237\207".[nil.0].13.(#$. |
| 5100 | 2e 20 32 30 32 31 37 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f | ..20217)]).#@51.Anaphoric.form.o |
| 5120 | 66 20 60 2d 73 70 6c 69 63 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 46 4f 52 4d 20 4c 49 53 54 | f.`-splice'...(fn.PRED.FORM.LIST |
| 5140 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 63 65 20 27 28 6d 61 63 72 6f 20 2e | )..(defalias.'--splice.'(macro.. |
| 5160 | 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 | .#[771."\300\301\302.E\301\303.E |
| 5180 | 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 | .F\207".[-splice.lambda.(it).(it |
| 51a0 | 29 5d 20 38 20 28 23 24 20 2e 20 32 30 37 35 32 29 5d 29 29 0a 23 40 31 32 31 20 53 70 6c 69 63 | )].8.(#$...20752)])).#@121.Splic |
| 51c0 | 65 20 4e 45 57 2d 4c 49 53 54 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 | e.NEW-LIST.in.place.of.elements. |
| 51e0 | 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 69 6e 20 4c 49 53 54 2e 0a 0a 53 65 65 20 61 6c 73 6f | matching.PRED.in.LIST...See.also |
| 5200 | 3a 20 60 2d 73 70 6c 69 63 65 27 2c 20 60 2d 69 6e 73 65 72 74 2d 61 74 27 0a 0a 28 66 6e 20 50 | :.`-splice',.`-insert-at'..(fn.P |
| 5220 | 52 45 44 20 4e 45 57 2d 4c 49 53 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d | RED.NEW-LIST.LIST)..(defalias.'- |
| 5240 | 73 70 6c 69 63 65 2d 6c 69 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 | splice-list.#[771."\300.\301\302 |
| 5260 | 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 03 23 | \303\304\305..!\306\"\307\310%.# |
| 5280 | 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 | \207".[-splice.make-byte-code.25 |
| 52a0 | 37 20 22 5c 33 30 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 32 | 7."\300\207".vconcat.vector.[].2 |
| 52c0 | 20 22 5c 6e 5c 6e 28 66 6e 20 5f 29 22 5d 20 31 31 20 28 23 24 20 2e 20 32 30 39 32 33 29 5d 29 | ."\n\n(fn._)"].11.(#$...20923)]) |
| 52e0 | 0a 23 40 36 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 63 65 | .#@60.Anaphoric.form.of.`-splice |
| 5300 | 2d 6c 69 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4e 45 57 2d 4c 49 53 54 20 4c 49 53 54 29 | -list'...(fn.PRED.NEW-LIST.LIST) |
| 5320 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 27 28 6d 61 63 | ..(defalias.'--splice-list.'(mac |
| 5340 | 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 03 03 46 5c 32 30 | ro...#[771."\300\301\302.E..F\20 |
| 5360 | 37 22 20 5b 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 37 20 | 7".[-splice-list.lambda.(it)].7. |
| 5380 | 28 23 24 20 2e 20 32 31 32 32 32 29 5d 29 29 0a 23 40 32 30 34 20 4d 61 6b 65 20 61 20 6e 65 77 | (#$...21222)])).#@204.Make.a.new |
| 53a0 | 20 6c 69 73 74 20 66 72 6f 6d 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 41 52 47 53 2e | .list.from.the.elements.of.ARGS. |
| 53c0 | 0a 0a 54 68 65 20 6c 61 73 74 20 32 20 6d 65 6d 62 65 72 73 20 6f 66 20 41 52 47 53 20 61 72 65 | ..The.last.2.members.of.ARGS.are |
| 53e0 | 20 75 73 65 64 20 61 73 20 74 68 65 20 66 69 6e 61 6c 20 63 6f 6e 73 20 6f 66 20 74 68 65 0a 72 | .used.as.the.final.cons.of.the.r |
| 5400 | 65 73 75 6c 74 20 73 6f 20 69 66 20 74 68 65 20 66 69 6e 61 6c 20 6d 65 6d 62 65 72 20 6f 66 20 | esult.so.if.the.final.member.of. |
| 5420 | 41 52 47 53 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 | ARGS.is.not.a.list.the.result.is |
| 5440 | 0a 61 20 64 6f 74 74 65 64 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 | .a.dotted.list...(fn.&rest.ARGS) |
| 5460 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2a 20 23 5b 31 32 38 20 22 5c 33 30 30 5c | ..(defalias.'-cons*.#[128."\300\ |
| 5480 | 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 72 20 63 6f 6e 73 5d 20 34 20 28 | 301.\"\207".[-reduce-r.cons].4.( |
| 54a0 | 23 24 20 2e 20 32 31 33 39 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | #$...21398)]).(byte-code."\300\3 |
| 54c0 | 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 | 01\302\303#\210\300\301\304\303# |
| 54e0 | 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2a 20 70 75 72 65 20 | \207".[function-put.-cons*.pure. |
| 5500 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 38 32 20 41 70 70 | t.side-effect-free].4).#@182.App |
| 5520 | 65 6e 64 20 45 4c 45 4d 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 6c 69 73 74 2e | end.ELEM.to.the.end.of.the.list. |
| 5540 | 0a 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 63 6f 6e 73 27 2c 20 62 75 74 20 6f 70 65 72 61 | ..This.is.like.`cons',.but.opera |
| 5560 | 74 65 73 20 6f 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 6c 69 73 74 2e 0a 0a 49 66 20 45 4c 45 4d | tes.on.the.end.of.list...If.ELEM |
| 5580 | 45 4e 54 53 20 69 73 20 6e 6f 6e 20 6e 69 6c 2c 20 61 70 70 65 6e 64 20 74 68 65 73 65 20 74 6f | ENTS.is.non.nil,.append.these.to |
| 55a0 | 20 74 68 65 20 6c 69 73 74 20 61 73 20 77 65 6c 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 45 4c 45 | .the.list.as.well...(fn.LIST.ELE |
| 55c0 | 4d 20 26 72 65 73 74 20 45 4c 45 4d 45 4e 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 | M.&rest.ELEMENTS)..(defalias.'-s |
| 55e0 | 6e 6f 63 20 23 5b 36 34 32 20 22 5c 33 30 30 03 03 43 03 23 5c 32 30 37 22 20 5b 2d 63 6f 6e 63 | noc.#[642."\300..C.#\207".[-conc |
| 5600 | 61 74 5d 20 37 20 28 23 24 20 2e 20 32 31 37 38 39 29 5d 29 0a 23 40 34 35 20 41 6e 61 70 68 6f | at].7.(#$...21789)]).#@45.Anapho |
| 5620 | 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 | ric.form.of.`-first'...(fn.FORM. |
| 5640 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 72 73 74 20 27 28 6d 61 63 72 | LIST)..(defalias.'--first.'(macr |
| 5660 | 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c | o...#[514."\300\301!\302.C\303.\ |
| 5680 | 33 30 34 05 44 5c 33 30 35 06 08 5c 33 30 36 06 08 5c 33 30 37 42 42 45 46 03 46 5c 32 30 37 22 | 304.D\305..\306..\307BBEF.F\207" |
| 56a0 | 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 65 65 64 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 | .[make-symbol."needle".let.--eac |
| 56c0 | 68 2d 77 68 69 6c 65 20 6e 6f 74 20 77 68 65 6e 20 73 65 74 71 20 28 69 74 29 5d 20 31 33 20 28 | h-while.not.when.setq.(it)].13.( |
| 56e0 | 23 24 20 2e 20 32 32 30 34 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 72 73 74 20 27 65 64 | #$...22042)])).(put.'--first.'ed |
| 5700 | 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 | ebug-form-spec.'(form.form)).#@1 |
| 5720 | 36 33 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 78 20 69 6e 20 4c 49 53 54 20 77 68 | 63.Return.the.first.x.in.LIST.wh |
| 5740 | 65 72 65 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69 | ere.(PRED.x).is.non-nil,.else.ni |
| 5760 | 6c 2e 0a 0a 54 6f 20 67 65 74 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 74 68 65 | l...To.get.the.first.item.in.the |
| 5780 | 20 6c 69 73 74 20 6e 6f 20 71 75 65 73 74 69 6f 6e 73 20 61 73 6b 65 64 2c 20 75 73 65 20 60 63 | .list.no.questions.asked,.use.`c |
| 57a0 | 61 72 27 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 66 69 6e 64 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c | ar'...Alias:.`-find'..(fn.PRED.L |
| 57c0 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 72 73 74 20 23 5b 35 31 34 20 22 5c | IST)..(defalias.'-first.#[514."\ |
| 57e0 | 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 2e 00 01 5c 32 30 33 2e 00 02 40 04 5c 32 30 | 300.\301\302.\203...\203...@.\20 |
| 5800 | 33 18 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 5c 22 00 06 06 01 21 5c 32 30 33 5c 22 00 5c 32 | 3..\300\262.\202\"....!\203\".\2 |
| 5820 | 31 31 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 | 11\262.\210\211T\262..A\262.\202 |
| 5840 | 04 00 5c 32 36 36 03 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 5d 20 39 20 28 23 24 | ..\266.\211\207".[nil.t.0].9.(#$ |
| 5860 | 20 2e 20 32 32 33 30 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 | ...22307)]).(byte-code."\300\301 |
| 5880 | 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 | \302\"\210\300\303\304\"\207".[d |
| 58a0 | 65 66 61 6c 69 61 73 20 2d 66 69 6e 64 20 2d 66 69 72 73 74 20 2d 2d 66 69 6e 64 20 2d 2d 66 69 | efalias.-find.-first.--find.--fi |
| 58c0 | 72 73 74 5d 20 33 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 | rst].3).#@44.Anaphoric.form.of.` |
| 58e0 | 2d 73 6f 6d 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | -some'...(fn.FORM.LIST)..(defali |
| 5900 | 61 73 20 27 2d 2d 73 6f 6d 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 | as.'--some.'(macro...#[514."\300 |
| 5920 | 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 05 44 5c 33 30 35 06 06 06 09 45 46 | \301!\302.C\303.\304.D\305....EF |
| 5940 | 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 65 65 64 6c 65 22 20 6c 65 | .F\207".[make-symbol."needle".le |
| 5960 | 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 73 65 74 71 5d 20 31 31 20 28 23 24 20 | t.--each-while.not.setq].11.(#$. |
| 5980 | 2e 20 32 32 37 33 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 6f 6d 65 20 27 65 64 65 62 75 67 | ..22733)])).(put.'--some.'edebug |
| 59a0 | 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 30 39 20 52 | -form-spec.'(form.form)).#@109.R |
| 59c0 | 65 74 75 72 6e 20 28 50 52 45 44 20 78 29 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 4c 49 53 | eturn.(PRED.x).for.the.first.LIS |
| 59e0 | 54 20 69 74 65 6d 20 77 68 65 72 65 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c | T.item.where.(PRED.x).is.non-nil |
| 5a00 | 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 6e 79 27 0a 0a 28 66 6e 20 | ,.else.nil...Alias:.`-any'..(fn. |
| 5a20 | 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 20 23 5b 35 | PRED.LIST)..(defalias.'-some.#[5 |
| 5a40 | 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 2a 00 01 5c 32 30 33 2a 00 02 | 14."\300.\301\302.\203*..\203*.. |
| 5a60 | 40 04 5c 32 30 33 18 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 1e 00 06 06 01 21 5c 32 36 32 05 | @.\203..\300\262.\202.....!\262. |
| 5a80 | 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 | \210\211T\262..A\262.\202..\266. |
| 5aa0 | 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 5d 20 39 20 28 23 24 20 2e 20 32 32 39 37 | \211\207".[nil.t.0].9.(#$...2297 |
| 5ac0 | 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c | 5)]).(byte-code."\300\301\302\"\ |
| 5ae0 | 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 | 210\300\303\304\"\207".[defalias |
| 5b00 | 20 2d 61 6e 79 20 2d 73 6f 6d 65 20 2d 2d 61 6e 79 20 2d 2d 73 6f 6d 65 5d 20 33 29 0a 23 40 34 | .-any.-some.--any.--some].3).#@4 |
| 5b20 | 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6c 61 73 74 27 2e 0a 0a 28 66 | 4.Anaphoric.form.of.`-last'...(f |
| 5b40 | 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6c 61 73 74 20 | n.FORM.LIST)..(defalias.'--last. |
| 5b60 | 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 | '(macro...#[514."\300\301!\302.C |
| 5b80 | 5c 33 30 33 04 5c 33 30 34 06 07 5c 33 30 35 06 07 5c 33 30 36 42 42 45 45 03 46 5c 32 30 37 22 | \303.\304..\305..\306BBEE.F\207" |
| 5ba0 | 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 65 65 64 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 | .[make-symbol."needle".let.--eac |
| 5bc0 | 68 20 77 68 65 6e 20 73 65 74 71 20 28 69 74 29 5d 20 31 32 20 28 23 24 20 2e 20 32 33 33 33 30 | h.when.setq.(it)].12.(#$...23330 |
| 5be0 | 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6c 61 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | )])).(put.'--last.'edebug-form-s |
| 5c00 | 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 30 20 52 65 74 75 72 6e 20 74 68 | pec.'(form.form)).#@80.Return.th |
| 5c20 | 65 20 6c 61 73 74 20 78 20 69 6e 20 4c 49 53 54 20 77 68 65 72 65 20 28 50 52 45 44 20 78 29 20 | e.last.x.in.LIST.where.(PRED.x). |
| 5c40 | 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 28 66 6e 20 50 52 45 44 20 | is.non-nil,.else.nil...(fn.PRED. |
| 5c60 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c | LIST)..(defalias.'-last.#[514."\ |
| 5c80 | 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1e 00 01 40 05 01 21 5c 32 30 33 12 00 5c 32 31 31 5c 32 | 300.\301.\203...@..!\203..\211\2 |
| 5ca0 | 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 | 62.\210\211T\262..A\262.\202..\2 |
| 5cc0 | 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 32 33 35 | 66.\211\207".[nil.0].8.(#$...235 |
| 5ce0 | 37 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 75)]).(byte-code."\300\301\302\3 |
| 5d00 | 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 34 | 03#\210\304\301\305\306#\210\304 |
| 5d20 | 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 30 5c 33 31 31 5c 33 31 32 5c 33 31 | \301\307\310#\210\300\311\312\31 |
| 5d40 | 33 23 5c 32 31 30 5c 33 30 30 5c 33 31 34 5c 33 31 35 5c 33 31 36 23 5c 32 30 37 22 20 5b 64 65 | 3#\210\300\314\315\316#\207".[de |
| 5d60 | 66 61 6c 69 61 73 20 2d 66 69 72 73 74 2d 69 74 65 6d 20 63 61 72 20 22 52 65 74 75 72 6e 20 74 | falias.-first-item.car."Return.t |
| 5d80 | 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 6f 6e | he.first.item.of.LIST,.or.nil.on |
| 5da0 | 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 | .an.empty.list.\n\nSee.also:.`-s |
| 5dc0 | 65 63 6f 6e 64 2d 69 74 65 6d 27 2c 20 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 | econd-item',.`-last-item'.\n\n(f |
| 5de0 | 6e 20 4c 49 53 54 29 22 20 70 75 74 20 62 79 74 65 2d 6f 70 63 6f 64 65 20 62 79 74 65 2d 63 61 | n.LIST)".put.byte-opcode.byte-ca |
| 5e00 | 72 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 6f 6e 65 2d | r.byte-compile.byte-compile-one- |
| 5e20 | 61 72 67 20 2d 73 65 63 6f 6e 64 2d 69 74 65 6d 20 63 61 64 72 20 22 52 65 74 75 72 6e 20 74 68 | arg.-second-item.cadr."Return.th |
| 5e40 | 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 | e.second.item.of.LIST,.or.nil.if |
| 5e60 | 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a | .LIST.is.too.short.\n\nSee.also: |
| 5e80 | 20 60 2d 74 68 69 72 64 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 2d 74 | .`-third-item'.\n\n(fn.LIST)".-t |
| 5ea0 | 68 69 72 64 2d 69 74 65 6d 20 63 61 64 64 72 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 68 69 72 | hird-item.caddr."Return.the.thir |
| 5ec0 | 64 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 | d.item.of.LIST,.or.nil.if.LIST.i |
| 5ee0 | 73 20 74 6f 6f 20 73 68 6f 72 74 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6f 75 72 | s.too.short.\n\nSee.also:.`-four |
| 5f00 | 74 68 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 34 29 0a 23 40 39 39 | th-item'.\n\n(fn.LIST)"].4).#@99 |
| 5f20 | 20 52 65 74 75 72 6e 20 74 68 65 20 66 6f 75 72 74 68 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c | .Return.the.fourth.item.of.LIST, |
| 5f40 | 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e 0a 0a 53 | .or.nil.if.LIST.is.too.short...S |
| 5f60 | 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 66 74 68 2d 69 74 65 6d 27 2e 0a 0a 28 66 6e 20 4c 49 53 | ee.also:.`-fifth-item'...(fn.LIS |
| 5f80 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6f 75 72 74 68 2d 69 74 65 6d 20 23 5b 32 35 | T)..(defalias.'-fourth-item.#[25 |
| 5fa0 | 37 20 22 5c 32 31 31 41 41 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 32 34 33 35 | 7."\211AAA@\207".[].2.(#$...2435 |
| 5fc0 | 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 | 3)]).(byte-code."\300\301\302\30 |
| 5fe0 | 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 | 3#\210\300\301\304\303#\207".[fu |
| 6000 | 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6f 75 72 74 68 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 | nction-put.-fourth-item.pure.t.s |
| 6020 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 39 37 20 52 65 74 75 72 6e 20 | ide-effect-free].4).#@97.Return. |
| 6040 | 74 68 65 20 66 69 66 74 68 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 | the.fifth.item.of.LIST,.or.nil.i |
| 6060 | 66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 | f.LIST.is.too.short...See.also:. |
| 6080 | 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | `-last-item'...(fn.LIST)..(defal |
| 60a0 | 69 61 73 20 27 2d 66 69 66 74 68 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 41 41 41 41 | ias.'-fifth-item.#[257."\211AAAA |
| 60c0 | 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 32 34 36 33 33 29 5d 29 0a 28 62 79 74 65 | @\207".[].2.(#$...24633)]).(byte |
| 60e0 | 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 | -code."\300\301\302\303#\210\300 |
| 6100 | 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 | \301\304\303#\207".[function-put |
| 6120 | 20 2d 66 69 66 74 68 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | .-fifth-item.pure.t.side-effect- |
| 6140 | 66 72 65 65 5d 20 34 29 0a 23 40 36 37 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 69 74 | free].4).#@67.Return.the.last.it |
| 6160 | 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 6f 6e 20 61 6e 20 65 6d 70 74 79 20 6c | em.of.LIST,.or.nil.on.an.empty.l |
| 6180 | 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 61 73 | ist...(fn.LIST)..(defalias.'-las |
| 61a0 | 74 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 40 5c 32 30 37 22 20 5b 6c 61 73 74 | t-item.#[257."\300.!@\207".[last |
| 61c0 | 5d 20 33 20 28 23 24 20 2e 20 32 34 39 31 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].3.(#$...24910)]).(byte-code."\ |
| 61e0 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 | 300\301\302\303#\210\300\301\304 |
| 6200 | 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6c 61 73 74 2d 69 | \303#\207".[function-put.-last-i |
| 6220 | 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a | tem.pure.t.side-effect-free].4). |
| 6240 | 23 40 36 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 69 74 65 6d 73 20 | #@68.Return.a.list.of.all.items. |
| 6260 | 69 6e 20 6c 69 73 74 20 65 78 63 65 70 74 20 66 6f 72 20 74 68 65 20 6c 61 73 74 2e 0a 0a 28 66 | in.list.except.for.the.last...(f |
| 6280 | 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 62 75 74 6c 61 73 74 20 23 5b 32 | n.LIST)..(defalias.'-butlast.#[2 |
| 62a0 | 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 62 75 74 6c 61 73 74 5d 20 33 20 28 23 24 20 | 57."\300.!\207".[butlast].3.(#$. |
| 62c0 | 2e 20 32 35 31 35 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c | ..25157)]).(byte-code."\300\301\ |
| 62e0 | 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 | 302\303#\210\300\301\304\303#\20 |
| 6300 | 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 62 75 74 6c 61 73 74 20 70 75 72 65 20 74 | 7".[function-put.-butlast.pure.t |
| 6320 | 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 35 20 41 6e 61 70 68 | .side-effect-free].4).#@45.Anaph |
| 6340 | 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 63 6f 75 6e 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 | oric.form.of.`-count'...(fn.PRED |
| 6360 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 63 6f 75 6e 74 20 27 28 6d 61 63 | .LIST)..(defalias.'--count.'(mac |
| 6380 | 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 5c 33 30 33 42 43 | ro...#[514."\300\301!\302.\303BC |
| 63a0 | 5c 33 30 34 04 5c 33 30 35 06 07 5c 33 30 36 06 07 5c 33 30 37 06 09 44 45 45 45 03 46 5c 32 30 | \304.\305..\306..\307..DEEE.F\20 |
| 63c0 | 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 28 30 29 | 7".[make-symbol."result".let.(0) |
| 63e0 | 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 31 2b 5d 20 31 33 20 28 23 24 20 2e 20 32 | .--each.when.setq.1+].13.(#$...2 |
| 6400 | 35 34 30 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 63 6f 75 6e 74 20 27 65 64 65 62 75 67 2d 66 | 5403)])).(put.'--count.'edebug-f |
| 6420 | 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 32 20 43 6f 75 6e | orm-spec.'(form.form)).#@82.Coun |
| 6440 | 74 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 77 | ts.the.number.of.items.in.LIST.w |
| 6460 | 68 65 72 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 | here.(PRED.item).is.non-nil...(f |
| 6480 | 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 75 6e 74 20 | n.PRED.LIST)..(defalias.'-count. |
| 64a0 | 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 01 5c 32 30 33 1f 00 01 40 05 01 21 5c 32 30 33 | #[514."\300.\300.\203...@..!\203 |
| 64c0 | 13 00 03 54 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 | ...T\262.\210\211T\262..A\262.\2 |
| 64e0 | 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 30 5d 20 38 20 28 23 24 20 2e 20 32 | 02..\266.\211\207".[0].8.(#$...2 |
| 6500 | 35 36 36 30 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 23 | 5660)]).(defalias.'---truthy\?.# |
| 6520 | 5b 32 35 37 20 22 5c 32 31 31 3f 3f 5c 32 30 37 22 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 | [257."\211??\207".[].2."\n\n(fn. |
| 6540 | 56 41 4c 29 22 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | VAL)"]).(byte-code."\300\301\302 |
| 6560 | 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 | \303#\210\300\301\304\303#\207". |
| 6580 | 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 70 75 72 65 20 74 | [function-put.---truthy\?.pure.t |
| 65a0 | 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 34 20 41 6e 61 70 68 | .side-effect-free].4).#@44.Anaph |
| 65c0 | 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 61 6e 79 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 | oric.form.of.`-any?'...(fn.FORM. |
| 65e0 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6e 79 5c 3f 20 27 28 6d 61 63 72 | LIST)..(defalias.'--any\?.'(macr |
| 6600 | 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 45 44 5c 32 30 37 22 20 5b 2d 2d | o...#[514."\300\301..ED\207".[-- |
| 6620 | 2d 74 72 75 74 68 79 5c 3f 20 2d 2d 73 6f 6d 65 5d 20 36 20 28 23 24 20 2e 20 32 36 30 34 33 29 | -truthy\?.--some].6.(#$...26043) |
| 6640 | 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6e 79 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | ])).(put.'--any\?.'edebug-form-s |
| 6660 | 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 36 20 52 65 74 75 72 6e 20 74 | pec.'(form.form)).#@116.Return.t |
| 6680 | 20 69 66 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6e 79 20 | .if.(PRED.x).is.non-nil.for.any. |
| 66a0 | 78 20 69 6e 20 4c 49 53 54 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 | x.in.LIST,.else.nil...Alias:.`-a |
| 66c0 | 6e 79 2d 70 27 2c 20 60 2d 73 6f 6d 65 3f 27 2c 20 60 2d 73 6f 6d 65 2d 70 27 0a 0a 28 66 6e 20 | ny-p',.`-some?',.`-some-p'..(fn. |
| 66e0 | 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6e 79 5c 3f 20 23 5b | PRED.LIST)..(defalias.'-any\?.#[ |
| 6700 | 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 32 5c 33 30 33 02 5c 32 30 33 2b 00 01 5c 32 | 514."\300\301.\302\303.\203+..\2 |
| 6720 | 30 33 2b 00 02 40 04 5c 32 30 33 19 00 5c 33 30 31 5c 32 36 32 03 5c 32 30 32 1f 00 06 07 01 21 | 03+..@.\203..\301\262.\202.....! |
| 6740 | 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 05 00 | \262.\210\211T\262..A\262.\202.. |
| 6760 | 5c 32 36 36 03 5c 32 31 31 5c 32 36 32 01 21 5c 32 30 37 22 20 5b 2d 2d 2d 74 72 75 74 68 79 5c | \266.\211\262.!\207".[---truthy\ |
| 6780 | 3f 20 6e 69 6c 20 74 20 30 5d 20 31 30 20 28 23 24 20 2e 20 32 36 32 33 32 29 5d 29 0a 28 62 79 | ?.nil.t.0].10.(#$...26232)]).(by |
| 67a0 | 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c | te-code."\300\301\302\"\210\300\ |
| 67c0 | 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 32 5c 22 5c 32 31 30 5c | 303\304\"\210\300\305\302\"\210\ |
| 67e0 | 33 30 30 5c 33 30 36 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 37 5c 33 30 32 5c 22 5c | 300\306\304\"\210\300\307\302\"\ |
| 6800 | 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 | 210\300\310\304\"\207".[defalias |
| 6820 | 20 2d 73 6f 6d 65 5c 3f 20 2d 61 6e 79 5c 3f 20 2d 2d 73 6f 6d 65 5c 3f 20 2d 2d 61 6e 79 5c 3f | .-some\?.-any\?.--some\?.--any\? |
| 6840 | 20 2d 61 6e 79 2d 70 20 2d 2d 61 6e 79 2d 70 20 2d 73 6f 6d 65 2d 70 20 2d 2d 73 6f 6d 65 2d 70 | .-any-p.--any-p.-some-p.--some-p |
| 6860 | 5d 20 33 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 61 6c | ].3).#@44.Anaphoric.form.of.`-al |
| 6880 | 6c 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | l?'...(fn.FORM.LIST)..(defalias. |
| 68a0 | 27 2d 2d 61 6c 6c 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | '--all\?.'(macro...#[514."\300\3 |
| 68c0 | 30 31 21 5c 33 30 32 01 5c 33 30 33 42 43 5c 33 30 34 04 04 5c 33 30 35 06 06 06 09 45 46 5c 33 | 01!\302.\303BC\304..\305....EF\3 |
| 68e0 | 30 36 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 61 6c 6c 22 20 6c 65 | 06.DF\207".[make-symbol."all".le |
| 6900 | 74 20 28 74 29 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 73 65 74 71 20 2d 2d 2d 74 72 75 74 68 | t.(t).--each-while.setq.---truth |
| 6920 | 79 5c 3f 5d 20 31 31 20 28 23 24 20 2e 20 32 36 37 33 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d | y\?].11.(#$...26730)])).(put.'-- |
| 6940 | 61 6c 6c 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 | all\?.'edebug-form-spec.'(form.f |
| 6960 | 6f 72 6d 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 78 29 | orm)).#@118.Return.t.if.(PRED.x) |
| 6980 | 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 78 20 69 6e 20 4c 49 53 54 2c 20 65 | .is.non-nil.for.all.x.in.LIST,.e |
| 69a0 | 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 6c 6c 2d 70 27 2c 20 60 2d 65 76 65 | lse.nil...Alias:.`-all-p',.`-eve |
| 69c0 | 72 79 3f 27 2c 20 60 2d 65 76 65 72 79 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 | ry?',.`-every-p'..(fn.PRED.LIST) |
| 69e0 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6c 6c 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 | ..(defalias.'-all\?.#[514."\300. |
| 6a00 | 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 2a 00 01 5c 32 30 33 2a 00 02 40 04 5c 32 30 34 18 00 5c | \300\301.\203*..\203*..@.\204..\ |
| 6a20 | 33 30 32 5c 32 36 32 03 5c 32 30 32 1e 00 06 06 01 21 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 | 302\262.\202.....!\262.\210\211T |
| 6a40 | 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 33 30 33 01 21 5c 32 30 | \262..A\262.\202..\266.\303.!\20 |
| 6a60 | 37 22 20 5b 74 20 30 20 6e 69 6c 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 39 20 28 23 24 20 2e | 7".[t.0.nil.---truthy\?].9.(#$.. |
| 6a80 | 20 32 36 39 38 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 | .26988)]).(byte-code."\300\301\3 |
| 6aa0 | 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 | 02\"\210\300\303\304\"\210\300\3 |
| 6ac0 | 30 35 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 30 34 5c 22 5c 32 31 30 5c 33 | 05\302\"\210\300\306\304\"\210\3 |
| 6ae0 | 30 30 5c 33 30 37 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 30 34 5c 22 5c 32 | 00\307\302\"\210\300\310\304\"\2 |
| 6b00 | 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 65 76 65 72 79 5c 3f 20 2d 61 6c 6c 5c 3f 20 2d 2d | 07".[defalias.-every\?.-all\?.-- |
| 6b20 | 65 76 65 72 79 5c 3f 20 2d 2d 61 6c 6c 5c 3f 20 2d 61 6c 6c 2d 70 20 2d 2d 61 6c 6c 2d 70 20 2d | every\?.--all\?.-all-p.--all-p.- |
| 6b40 | 65 76 65 72 79 2d 70 20 2d 2d 65 76 65 72 79 2d 70 5d 20 33 29 0a 23 40 34 35 20 41 6e 61 70 68 | every-p.--every-p].3).#@45.Anaph |
| 6b60 | 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6e 6f 6e 65 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d | oric.form.of.`-none?'...(fn.FORM |
| 6b80 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6e 6f 6e 65 5c 3f 20 27 28 6d 61 | .LIST)..(defalias.'--none\?.'(ma |
| 6ba0 | 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 44 02 45 5c 32 30 37 22 20 5b | cro...#[514."\300\301.D.E\207".[ |
| 6bc0 | 2d 2d 61 6c 6c 5c 3f 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 32 37 34 38 33 29 5d 29 29 0a 28 | --all\?.not].5.(#$...27483)])).( |
| 6be0 | 70 75 74 20 27 2d 2d 6e 6f 6e 65 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 | put.'--none\?.'edebug-form-spec. |
| 6c00 | 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 32 20 52 65 74 75 72 6e 20 74 20 69 66 20 28 | '(form.form)).#@92.Return.t.if.( |
| 6c20 | 50 52 45 44 20 78 29 20 69 73 20 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 78 20 69 6e 20 4c 49 53 54 | PRED.x).is.nil.for.all.x.in.LIST |
| 6c40 | 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 6e 6f 6e 65 2d 70 27 0a 0a 28 | ,.else.nil...Alias:.`-none-p'..( |
| 6c60 | 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f 6e 65 5c | fn.PRED.LIST)..(defalias.'-none\ |
| 6c80 | 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 2b 00 01 5c 32 | ?.#[514."\300.\300\301.\203+..\2 |
| 6ca0 | 30 33 2b 00 02 40 04 5c 32 30 34 18 00 5c 33 30 32 5c 32 36 32 03 5c 32 30 32 1f 00 06 06 01 21 | 03+..@.\204..\302\262.\202.....! |
| 6cc0 | 3f 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 04 | ?\262.\210\211T\262..A\262.\202. |
| 6ce0 | 00 5c 32 36 36 03 5c 33 30 33 01 21 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 20 2d 2d 2d 74 72 | .\266.\303.!\207".[t.0.nil.---tr |
| 6d00 | 75 74 68 79 5c 3f 5d 20 39 20 28 23 24 20 2e 20 32 37 36 36 37 29 5d 29 0a 28 62 79 74 65 2d 63 | uthy\?].9.(#$...27667)]).(byte-c |
| 6d20 | 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c | ode."\300\301\302\"\210\300\303\ |
| 6d40 | 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 6e 6f 6e 65 2d 70 20 2d 6e 6f | 304\"\207".[defalias.-none-p.-no |
| 6d60 | 6e 65 5c 3f 20 2d 2d 6e 6f 6e 65 2d 70 20 2d 2d 6e 6f 6e 65 5c 3f 5d 20 33 29 0a 23 40 35 30 20 | ne\?.--none-p.--none\?].3).#@50. |
| 6d80 | 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 27 2e | Anaphoric.form.of.`-only-some?'. |
| 6da0 | 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6f | ..(fn.FORM.LIST)..(defalias.'--o |
| 6dc0 | 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 | nly-some\?.'(macro...#[514."\300 |
| 6de0 | 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 02 44 5c 33 30 34 05 5c 33 30 35 5c 33 | \301!\300\302!\303..D\304.\305\3 |
| 6e00 | 30 36 06 07 06 07 45 44 5c 33 30 37 06 09 5c 33 31 30 06 09 5c 33 31 31 42 42 5c 33 31 30 06 09 | 06....ED\307..\310..\311BB\310.. |
| 6e20 | 5c 33 31 32 42 42 46 46 5c 33 31 33 5c 33 30 36 06 06 06 06 45 44 46 5c 32 30 37 22 20 5b 6d 61 | \312BBFF\313\306....EDF\207".[ma |
| 6e40 | 6b 65 2d 73 79 6d 62 6f 6c 20 22 79 65 73 22 20 22 6e 6f 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d | ke-symbol."yes"."no".let.--each- |
| 6e60 | 77 68 69 6c 65 20 6e 6f 74 20 61 6e 64 20 69 66 20 73 65 74 71 20 28 74 29 20 28 74 29 20 2d 2d | while.not.and.if.setq.(t).(t).-- |
| 6e80 | 2d 74 72 75 74 68 79 5c 3f 5d 20 31 35 20 28 23 24 20 2e 20 32 38 30 33 32 29 5d 29 29 0a 28 70 | -truthy\?].15.(#$...28032)])).(p |
| 6ea0 | 75 74 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | ut.'--only-some\?.'edebug-form-s |
| 6ec0 | 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 34 30 20 52 65 74 75 72 6e 20 60 | pec.'(form.form)).#@240.Return.` |
| 6ee0 | 74 60 20 69 66 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 20 | t`.if.at.least.one.item.of.LIST. |
| 6f00 | 6d 61 74 63 68 65 73 20 50 52 45 44 20 61 6e 64 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 | matches.PRED.and.at.least.one.it |
| 6f20 | 65 6d 20 6f 66 20 4c 49 53 54 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 50 52 45 44 2e 0a | em.of.LIST.does.not.match.PRED.. |
| 6f40 | 52 65 74 75 72 6e 20 60 6e 69 6c 60 20 62 6f 74 68 20 69 66 20 61 6c 6c 20 69 74 65 6d 73 20 6d | Return.`nil`.both.if.all.items.m |
| 6f60 | 61 74 63 68 20 74 68 65 20 70 72 65 64 69 63 61 74 65 20 6f 72 20 69 66 20 6e 6f 6e 65 20 6f 66 | atch.the.predicate.or.if.none.of |
| 6f80 | 20 74 68 65 20 69 74 65 6d 73 20 6d 61 74 63 68 20 74 68 65 20 70 72 65 64 69 63 61 74 65 2e 0a | .the.items.match.the.predicate.. |
| 6fa0 | 0a 41 6c 69 61 73 3a 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 | .Alias:.`-only-some-p'..(fn.PRED |
| 6fc0 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 | .LIST)..(defalias.'-only-some\?. |
| 6fe0 | 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 39 00 01 | #[514."\300\211.\301\302.\2039.. |
| 7000 | 5c 32 30 33 39 00 02 40 05 5c 32 30 33 1d 00 04 5c 32 30 33 1d 00 5c 33 30 30 5c 32 36 32 03 5c | \2039..@.\203...\203..\300\262.\ |
| 7020 | 32 30 32 2d 00 06 07 01 21 5c 32 30 33 2a 00 5c 33 30 31 5c 32 36 32 06 5c 32 30 32 2d 00 5c 33 | 202-....!\203*.\301\262.\202-.\3 |
| 7040 | 30 31 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 | 01\262.\210\211T\262..A\262.\202 |
| 7060 | 05 00 5c 32 36 36 03 5c 33 30 33 02 5c 32 30 35 41 00 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 74 | ..\266.\303.\205A..!\207".[nil.t |
| 7080 | 20 30 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 30 20 28 23 24 20 2e 20 32 38 33 37 36 29 5d | .0.---truthy\?].10.(#$...28376)] |
| 70a0 | 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 | ).(byte-code."\300\301\302\"\210 |
| 70c0 | 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 6f | \300\303\304\"\207".[defalias.-o |
| 70e0 | 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 2d 2d 6f 6e 6c 79 2d 73 | nly-some-p.-only-some\?.--only-s |
| 7100 | 6f 6d 65 2d 70 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 5d 20 33 29 0a 23 40 32 38 37 20 52 65 | ome-p.--only-some\?].3).#@287.Re |
| 7120 | 74 75 72 6e 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2c 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d | turn.copy.of.LIST,.starting.from |
| 7140 | 20 69 6e 64 65 78 20 46 52 4f 4d 20 74 6f 20 69 6e 64 65 78 20 54 4f 2e 0a 0a 46 52 4f 4d 20 6f | .index.FROM.to.index.TO...FROM.o |
| 7160 | 72 20 54 4f 20 6d 61 79 20 62 65 20 6e 65 67 61 74 69 76 65 2e 20 20 54 68 65 73 65 20 76 61 6c | r.TO.may.be.negative...These.val |
| 7180 | 75 65 73 20 61 72 65 20 74 68 65 6e 20 69 6e 74 65 72 70 72 65 74 65 64 0a 6d 6f 64 75 6c 6f 20 | ues.are.then.interpreted.modulo. |
| 71a0 | 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6c 69 73 74 2e 0a 0a 49 66 20 53 54 45 50 | the.length.of.the.list...If.STEP |
| 71c0 | 20 69 73 20 61 20 6e 75 6d 62 65 72 2c 20 6f 6e 6c 79 20 65 61 63 68 20 53 54 45 50 74 68 20 69 | .is.a.number,.only.each.STEPth.i |
| 71e0 | 74 65 6d 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 0a 73 65 63 74 69 6f 6e 20 69 73 20 | tem.in.the.resulting.section.is. |
| 7200 | 72 65 74 75 72 6e 65 64 2e 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 0a 0a 28 66 6e 20 4c | returned...Defaults.to.1...(fn.L |
| 7220 | 49 53 54 20 46 52 4f 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 54 4f 20 53 54 45 50 29 1f 0a 28 64 65 | IST.FROM.&optional.TO.STEP)..(de |
| 7240 | 66 61 6c 69 61 73 20 27 2d 73 6c 69 63 65 20 23 5b 31 30 32 36 20 22 03 47 5c 33 30 30 03 5c 32 | falias.'-slice.#[1026.".G\300.\2 |
| 7260 | 30 36 08 00 01 5c 32 36 32 04 02 5c 32 30 36 0f 00 5c 33 30 31 5c 32 36 32 03 04 5c 33 30 32 57 | 06...\262..\206..\301\262..\302W |
| 7280 | 5c 32 30 33 1d 00 5c 33 30 33 05 03 5c 22 5c 32 36 32 05 03 5c 33 30 32 57 5c 32 30 33 29 00 5c | \203..\303..\"\262..\302W\203).\ |
| 72a0 | 33 30 33 04 03 5c 22 5c 32 36 32 04 05 5c 33 30 34 5c 33 30 32 02 5c 32 30 33 68 00 01 5c 32 30 | 303..\"\262..\304\302.\203h..\20 |
| 72c0 | 33 68 00 02 40 01 06 08 57 5c 32 30 34 43 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 5c 5c 00 01 | 3h..@...W\204C.\300\262.\202\\.. |
| 72e0 | 06 09 59 5c 32 30 33 5c 5c 00 5c 33 30 33 06 09 03 5a 06 08 5c 22 5c 33 30 32 55 5c 32 30 33 5c | ..Y\203\\.\303...Z..\"\302U\203\ |
| 7300 | 5c 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 | \.\211.B\262.\210\211T\262..A\26 |
| 7320 | 32 03 5c 32 30 32 2c 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 | 2.\202,.\266.\211\237\207".[nil. |
| 7340 | 31 20 30 20 6d 6f 64 20 74 5d 20 31 33 20 28 23 24 20 2e 20 32 38 39 35 38 29 5d 29 0a 28 62 79 | 1.0.mod.t].13.(#$...28958)]).(by |
| 7360 | 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 | te-code."\300\301\302\303#\210\3 |
| 7380 | 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 | 00\301\304\303#\207".[function-p |
| 73a0 | 75 74 20 2d 73 6c 69 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 | ut.-slice.pure.t.side-effect-fre |
| 73c0 | 65 5d 20 34 29 0a 23 40 31 32 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 | e].4).#@126.Return.a.new.list.of |
| 73e0 | 20 74 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2c 20 6f 72 20 61 | .the.first.N.items.in.LIST,.or.a |
| 7400 | 6c 6c 20 69 74 65 6d 73 20 69 66 20 74 68 65 72 65 20 61 72 65 20 66 65 77 65 72 20 74 68 61 6e | ll.items.if.there.are.fewer.than |
| 7420 | 20 4e 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 2d 6c 61 73 74 27 0a 0a 28 66 6e | .N...See.also:.`-take-last'..(fn |
| 7440 | 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 20 23 5b 35 31 34 | .N.LIST)..(defalias.'-take.#[514 |
| 7460 | 20 22 5c 33 30 30 02 5c 33 30 31 5c 32 31 31 02 57 5c 32 30 33 1e 00 03 5c 32 30 33 17 00 03 40 | ."\300.\301\211.W\203...\203...@ |
| 7480 | 03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 03 00 5c 32 | .B\262..A\262.\211T\262.\202..\2 |
| 74a0 | 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 37 20 28 23 24 20 2e | 66.\211\237\207".[nil.0].7.(#$.. |
| 74c0 | 20 32 39 36 34 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 | .29644)]).(byte-code."\300\301\3 |
| 74e0 | 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 | 02\303#\210\300\301\304\303#\207 |
| 7500 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 61 6b 65 20 70 75 72 65 20 74 20 73 69 64 | ".[function-put.-take.pure.t.sid |
| 7520 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 37 35 20 52 65 74 75 72 6e 20 74 68 | e-effect-free].4).#@75.Return.th |
| 7540 | 65 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 20 6f 66 20 4c 49 53 54 20 69 6e 20 6f 72 64 65 72 2e | e.last.N.items.of.LIST.in.order. |
| 7560 | 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 | ..See.also:.`-take'..(fn.N.LIST) |
| 7580 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c | ..(defalias.'-take-last.#[514."\ |
| 75a0 | 33 30 30 5c 33 30 31 02 04 5c 22 21 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 | 300\301..\"!\207".[copy-sequence |
| 75c0 | 20 6c 61 73 74 5d 20 36 20 28 23 24 20 2e 20 33 30 30 30 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f | .last].6.(#$...30007)]).(byte-co |
| 75e0 | 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 | de."\300\301\302\303#\210\300\30 |
| 7600 | 31 5c 33 30 34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c | 1\304\303#\210\305\306\307\310#\ |
| 7620 | 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 61 6b 65 2d 6c 61 73 74 20 70 75 | 207".[function-put.-take-last.pu |
| 7640 | 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d | re.t.side-effect-free.defalias.- |
| 7660 | 64 72 6f 70 20 6e 74 68 63 64 72 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 | drop.nthcdr."Return.the.tail.of. |
| 7680 | 4c 49 53 54 20 77 69 74 68 6f 75 74 20 74 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 2e 5c | LIST.without.the.first.N.items.\ |
| 76a0 | 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 64 72 6f 70 2d 6c 61 73 74 27 5c 6e 5c 6e 28 66 6e | n\nSee.also:.`-drop-last'\n\n(fn |
| 76c0 | 20 4e 20 4c 49 53 54 29 22 5d 20 34 29 0a 23 40 38 34 20 52 65 6d 6f 76 65 20 74 68 65 20 6c 61 | .N.LIST)"].4).#@84.Remove.the.la |
| 76e0 | 73 74 20 4e 20 69 74 65 6d 73 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 | st.N.items.of.LIST.and.return.a. |
| 7700 | 63 6f 70 79 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 64 72 6f 70 27 0a 0a 28 66 6e 20 4e 20 | copy...See.also:.`-drop'..(fn.N. |
| 7720 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 72 6f 70 2d 6c 61 73 74 20 23 5b 35 | LIST)..(defalias.'-drop-last.#[5 |
| 7740 | 31 34 20 22 5c 33 30 30 01 03 5c 22 5c 32 30 37 22 20 5b 62 75 74 6c 61 73 74 5d 20 35 20 28 23 | 14."\300..\"\207".[butlast].5.(# |
| 7760 | 24 20 2e 20 33 30 34 31 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 | $...30419)]).(byte-code."\300\30 |
| 7780 | 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c | 1\302\303#\210\300\301\304\303#\ |
| 77a0 | 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 64 72 6f 70 2d 6c 61 73 74 20 70 75 | 207".[function-put.-drop-last.pu |
| 77c0 | 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 35 30 20 41 | re.t.side-effect-free].4).#@50.A |
| 77e0 | 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 61 6b 65 2d 77 68 69 6c 65 27 2e 0a | naphoric.form.of.`-take-while'.. |
| 7800 | 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 61 | .(fn.FORM.LIST)..(defalias.'--ta |
| 7820 | 6b 65 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | ke-while.'(macro...#[514."\300\3 |
| 7840 | 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 06 06 5c 33 30 34 5c 33 30 35 06 07 45 46 5c 33 30 36 | 01!\302.C\303...\304\305..EF\306 |
| 7860 | 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c | .DF\207".[make-symbol."result".l |
| 7880 | 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 21 63 6f 6e 73 20 69 74 20 6e 72 65 76 65 72 73 | et.--each-while.!cons.it.nrevers |
| 78a0 | 65 5d 20 31 31 20 28 23 24 20 2e 20 33 30 36 38 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 61 | e].11.(#$...30687)])).(put.'--ta |
| 78c0 | 6b 65 2d 77 68 69 6c 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 | ke-while.'edebug-form-spec.'(for |
| 78e0 | 6d 20 66 6f 72 6d 29 29 0a 23 40 31 30 38 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 | m.form)).#@108.Return.a.new.list |
| 7900 | 20 6f 66 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d 73 20 66 72 6f 6d 20 4c 49 53 54 20 77 | .of.successive.items.from.LIST.w |
| 7920 | 68 69 6c 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 72 65 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e | hile.(PRED.item).returns.a.non-n |
| 7940 | 69 6c 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 | il.value...(fn.PRED.LIST)..(defa |
| 7960 | 6c 69 61 73 20 27 2d 74 61 6b 65 2d 77 68 69 6c 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 | lias.'-take-while.#[514."\300.\3 |
| 7980 | 30 31 5c 33 30 32 02 5c 32 30 33 2c 00 01 5c 32 30 33 2c 00 02 40 06 06 01 21 5c 32 30 34 1b 00 | 01\302.\203,..\203,..@...!\204.. |
| 79a0 | 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 20 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 | \300\262.\202..\211.B\262.\210\2 |
| 79c0 | 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 31 31 5c 32 | 11T\262..A\262.\202..\266.\211\2 |
| 79e0 | 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 5d 20 39 20 28 23 24 20 2e 20 33 30 39 35 39 29 | 37\207".[nil.t.0].9.(#$...30959) |
| 7a00 | 5d 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 64 72 6f 70 | ]).#@50.Anaphoric.form.of.`-drop |
| 7a20 | 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | -while'...(fn.FORM.LIST)..(defal |
| 7a40 | 69 61 73 20 27 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 | ias.'--drop-while.'(macro...#[51 |
| 7a60 | 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 03 44 43 5c 33 30 33 5c 33 30 34 04 5c 33 30 | 4."\300\301!\302..DC\303\304.\30 |
| 7a80 | 32 5c 33 30 35 5c 33 30 36 06 08 44 44 43 06 09 45 45 5c 33 30 37 05 44 45 03 46 5c 32 30 37 22 | 2\305\306..DDC..EE\307.DE.F\207" |
| 7aa0 | 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 6c 65 74 20 77 68 69 6c 65 20 61 | .[make-symbol."list".let.while.a |
| 7ac0 | 6e 64 20 69 74 20 63 61 72 20 21 63 64 72 5d 20 31 32 20 28 23 24 20 2e 20 33 31 32 34 30 29 5d | nd.it.car.!cdr].12.(#$...31240)] |
| 7ae0 | 29 29 0a 28 70 75 74 20 27 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 20 27 65 64 65 62 75 67 2d 66 6f | )).(put.'--drop-while.'edebug-fo |
| 7b00 | 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 30 35 20 52 65 74 75 | rm-spec.'(form.form)).#@105.Retu |
| 7b20 | 72 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 4c 49 53 54 20 73 74 61 72 74 69 6e 67 20 66 72 6f | rn.the.tail.of.LIST.starting.fro |
| 7b40 | 6d 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 | m.the.first.item.for.which.(PRED |
| 7b60 | 20 69 74 65 6d 29 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 | .item).returns.nil...(fn.PRED.LI |
| 7b80 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 72 6f 70 2d 77 68 69 6c 65 20 23 5b 35 31 | ST)..(defalias.'-drop-while.#[51 |
| 7ba0 | 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 16 00 5c 32 31 31 40 03 01 21 5c 32 36 32 01 5c 32 | 4."\211\211\203..\211@..!\262.\2 |
| 7bc0 | 30 33 16 00 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 01 00 5c 32 31 31 5c 32 30 37 22 20 5b 5d | 03..\211A\262.\202..\211\207".[] |
| 7be0 | 20 36 20 28 23 24 20 2e 20 33 31 35 31 36 29 5d 29 0a 23 40 31 30 37 20 52 65 74 75 72 6e 20 61 | .6.(#$...31516)]).#@107.Return.a |
| 7c00 | 20 6c 69 73 74 20 6f 66 20 28 28 2d 74 61 6b 65 20 4e 20 4c 49 53 54 29 20 28 2d 64 72 6f 70 20 | .list.of.((-take.N.LIST).(-drop. |
| 7c20 | 4e 20 4c 49 53 54 29 29 2c 20 69 6e 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 70 61 | N.LIST)),.in.no.more.than.one.pa |
| 7c40 | 73 73 20 74 68 72 6f 75 67 68 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 | ss.through.the.list...(fn.N.LIST |
| 7c60 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 61 74 20 23 5b 35 31 34 20 22 5c | )..(defalias.'-split-at.#[514."\ |
| 7c80 | 33 30 30 02 5c 33 30 31 5c 32 31 31 02 57 5c 32 30 33 1e 00 03 5c 32 30 33 17 00 03 40 03 42 5c | 300.\301\211.W\203...\203...@.B\ |
| 7ca0 | 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 03 00 5c 32 36 36 02 | 262..A\262.\211T\262.\202..\266. |
| 7cc0 | 5c 32 31 31 5c 32 33 37 02 44 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 37 20 28 23 24 20 2e 20 | \211\237.D\207".[nil.0].7.(#$... |
| 7ce0 | 33 31 37 33 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | 31736)]).(byte-code."\300\301\30 |
| 7d00 | 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 | 2\303#\210\300\301\304\303#\207" |
| 7d20 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 70 6c 69 74 2d 61 74 20 70 75 72 65 20 74 20 | .[function-put.-split-at.pure.t. |
| 7d40 | 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 31 36 20 52 6f 74 61 74 | side-effect-free].4).#@116.Rotat |
| 7d60 | 65 20 4c 49 53 54 20 4e 20 70 6c 61 63 65 73 20 74 6f 20 74 68 65 20 72 69 67 68 74 2e 20 20 57 | e.LIST.N.places.to.the.right...W |
| 7d80 | 69 74 68 20 4e 20 6e 65 67 61 74 69 76 65 2c 20 72 6f 74 61 74 65 20 74 6f 20 74 68 65 20 6c 65 | ith.N.negative,.rotate.to.the.le |
| 7da0 | 66 74 2e 0a 54 68 65 20 74 69 6d 65 20 63 6f 6d 70 6c 65 78 69 74 79 20 69 73 20 4f 28 6e 29 2e | ft..The.time.complexity.is.O(n). |
| 7dc0 | 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 6f 74 61 74 | ..(fn.N.LIST)..(defalias.'-rotat |
| 7de0 | 65 20 23 5b 35 31 34 20 22 01 5c 33 30 30 56 5c 32 30 33 11 00 5c 33 30 31 5c 33 30 32 02 04 5c | e.#[514.".\300V\203..\301\302..\ |
| 7e00 | 22 5c 33 30 33 03 05 5c 22 5c 22 5c 32 30 37 5c 33 30 31 5c 33 30 34 03 5b 03 5c 22 5c 33 30 35 | "\303..\"\"\207\301\304.[.\"\305 |
| 7e20 | 04 5b 04 5c 22 5c 22 5c 32 30 37 22 20 5b 30 20 61 70 70 65 6e 64 20 6c 61 73 74 20 62 75 74 6c | .[.\"\"\207".[0.append.last.butl |
| 7e40 | 61 73 74 20 2d 64 72 6f 70 20 2d 74 61 6b 65 5d 20 37 20 28 23 24 20 2e 20 33 32 30 39 31 29 5d | ast.-drop.-take].7.(#$...32091)] |
| 7e60 | 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c | ).(byte-code."\300\301\302\303#\ |
| 7e80 | 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 | 210\300\301\304\303#\207".[funct |
| 7ea0 | 69 6f 6e 2d 70 75 74 20 2d 72 6f 74 61 74 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 | ion-put.-rotate.pure.t.side-effe |
| 7ec0 | 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 30 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 | ct-free].4).#@108.Return.a.list. |
| 7ee0 | 77 69 74 68 20 58 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 4c 49 53 54 20 61 74 20 70 6f 73 | with.X.inserted.into.LIST.at.pos |
| 7f00 | 69 74 69 6f 6e 20 4e 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69 63 65 27 2c 20 60 | ition.N...See.also:.`-splice',.` |
| 7f20 | 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 0a 0a 28 66 6e 20 4e 20 58 20 4c 49 53 54 29 1f 0a 28 64 | -splice-list'..(fn.N.X.LIST)..(d |
| 7f40 | 65 66 61 6c 69 61 73 20 27 2d 69 6e 73 65 72 74 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 | efalias.'-insert-at.#[771."\300. |
| 7f60 | 02 5c 22 5c 32 31 31 40 03 02 41 40 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 | .\"\211@..A@B\244\207".[-split-a |
| 7f80 | 74 5d 20 37 20 28 23 24 20 2e 20 33 32 34 36 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | t].7.(#$...32466)]).(byte-code." |
| 7fa0 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 | \300\301\302\303#\210\300\301\30 |
| 7fc0 | 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e 73 65 72 | 4\303#\207".[function-put.-inser |
| 7fe0 | 74 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 | t-at.pure.t.side-effect-free].4) |
| 8000 | 0a 23 40 31 30 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65 6d 65 6e | .#@106.Return.a.list.with.elemen |
| 8020 | 74 20 61 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 4c 49 53 54 20 72 65 70 6c 61 63 | t.at.Nth.position.in.LIST.replac |
| 8040 | 65 64 20 77 69 74 68 20 58 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 70 6c 61 63 65 27 | ed.with.X...See.also:.`-replace' |
| 8060 | 0a 0a 28 66 6e 20 4e 20 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 | ..(fn.N.X.LIST)..(defalias.'-rep |
| 8080 | 6c 61 63 65 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 02 5c 22 5c 32 31 31 40 03 02 41 40 | lace-at.#[771."\300..\"\211@..A@ |
| 80a0 | 41 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 | AB\244\207".[-split-at].7.(#$... |
| 80c0 | 33 32 37 37 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | 32775)]).(byte-code."\300\301\30 |
| 80e0 | 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 | 2\303#\210\300\301\304\303#\207" |
| 8100 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 2d 61 74 20 70 75 72 65 20 | .[function-put.-replace-at.pure. |
| 8120 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 33 30 20 52 65 74 | t.side-effect-free].4).#@130.Ret |
| 8140 | 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e 74 68 20 70 | urn.a.list.with.element.at.Nth.p |
| 8160 | 6f 73 69 74 69 6f 6e 20 69 6e 20 4c 49 53 54 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 60 28 | osition.in.LIST.replaced.with.`( |
| 8180 | 66 75 6e 63 20 28 6e 74 68 20 6e 20 6c 69 73 74 29 29 60 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 | func.(nth.n.list))`...See.also:. |
| 81a0 | 60 2d 6d 61 70 2d 77 68 65 6e 27 0a 0a 28 66 6e 20 4e 20 46 55 4e 43 20 4c 49 53 54 29 1f 0a 28 | `-map-when'..(fn.N.FUNC.LIST)..( |
| 81c0 | 64 65 66 61 6c 69 61 73 20 27 2d 75 70 64 61 74 65 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30 | defalias.'-update-at.#[771."\300 |
| 81e0 | 03 02 5c 22 5c 32 31 31 40 03 02 41 40 40 21 02 41 40 41 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d | ..\"\211@..A@@!.A@AB\244\207".[- |
| 8200 | 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 33 33 30 38 35 29 5d 29 0a 23 40 35 34 20 | split-at].7.(#$...33085)]).#@54. |
| 8220 | 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 75 70 64 61 74 65 2d 61 74 | Anaphoric.version.of.`-update-at |
| 8240 | 27 2e 0a 0a 28 66 6e 20 4e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | '...(fn.N.FORM.LIST)..(defalias. |
| 8260 | 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 | '--update-at.'(macro...#[771."\3 |
| 8280 | 30 30 03 5c 33 30 31 5c 33 30 32 05 45 03 46 5c 32 30 37 22 20 5b 2d 75 70 64 61 74 65 2d 61 74 | 00.\301\302.E.F\207".[-update-at |
| 82a0 | 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 33 33 33 31 32 29 5d 29 29 0a | .lambda.(it)].8.(#$...33312)])). |
| 82c0 | 28 70 75 74 20 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | (put.'--update-at.'edebug-form-s |
| 82e0 | 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 37 20 52 65 74 | pec.'(form.form.form)).#@117.Ret |
| 8300 | 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e 74 68 20 70 | urn.a.list.with.element.at.Nth.p |
| 8320 | 6f 73 69 74 69 6f 6e 20 69 6e 20 4c 49 53 54 20 72 65 6d 6f 76 65 64 2e 0a 0a 53 65 65 20 61 6c | osition.in.LIST.removed...See.al |
| 8340 | 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 27 2c 20 60 2d 72 65 6d 6f | so:.`-remove-at-indices',.`-remo |
| 8360 | 76 65 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 | ve'..(fn.N.LIST)..(defalias.'-re |
| 8380 | 6d 6f 76 65 2d 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 43 02 5c 22 5c 32 30 37 22 20 5b 2d | move-at.#[514."\300.C.\"\207".[- |
| 83a0 | 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 5d 20 35 20 28 23 24 20 2e 20 33 33 35 33 33 | remove-at-indices].5.(#$...33533 |
| 83c0 | 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 | )]).(byte-code."\300\301\302\303 |
| 83e0 | 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e | #\210\300\301\304\303#\207".[fun |
| 8400 | 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 | ction-put.-remove-at.pure.t.side |
| 8420 | 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 37 35 20 52 65 74 75 72 6e 20 61 20 | -effect-free].4).#@175.Return.a. |
| 8440 | 6c 69 73 74 20 77 68 6f 73 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 65 6c 65 6d 65 6e 74 73 | list.whose.elements.are.elements |
| 8460 | 20 66 72 6f 6d 20 4c 49 53 54 20 77 69 74 68 6f 75 74 0a 65 6c 65 6d 65 6e 74 73 20 73 65 6c 65 | .from.LIST.without.elements.sele |
| 8480 | 63 74 65 64 20 61 73 20 60 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f 72 20 61 6c 6c 20 69 | cted.as.`(nth.i.list)`.for.all.i |
| 84a0 | 0a 66 72 6f 6d 20 49 4e 44 49 43 45 53 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f | .from.INDICES...See.also:.`-remo |
| 84c0 | 76 65 2d 61 74 27 2c 20 60 2d 72 65 6d 6f 76 65 27 0a 0a 28 66 6e 20 49 4e 44 49 43 45 53 20 4c | ve-at',.`-remove'..(fn.INDICES.L |
| 84e0 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 | IST)..(defalias.'-remove-at-indi |
| 8500 | 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 5c 22 5c 32 31 31 40 5c 33 30 32 5c | ces.#[514."\300\301.\"\211@\302\ |
| 8520 | 33 30 33 5c 33 30 34 5c 33 30 35 05 41 06 06 23 5c 22 42 5c 33 30 36 01 5c 33 30 37 01 5c 32 30 | 303\304\305.A..#\"B\306.\307.\20 |
| 8540 | 33 38 00 01 40 5c 33 31 30 01 06 08 5c 22 5c 32 31 31 40 05 42 5c 32 36 32 05 5c 32 31 31 41 40 | 38..@\310...\"\211@.B\262.\211A@ |
| 8560 | 41 5c 32 36 32 08 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 | A\262.\266.\211T\262..A\262.\202 |
| 8580 | 14 00 5c 32 36 36 02 03 01 42 5c 32 36 32 01 5c 33 31 31 5c 33 31 32 02 5c 32 33 37 5c 22 5c 32 | ..\266...B\262.\311\312.\237\"\2 |
| 85a0 | 30 37 22 20 5b 2d 73 6f 72 74 20 3c 20 2d 6d 61 70 20 31 2d 20 2d 7a 69 70 2d 77 69 74 68 20 2d | 07".[-sort.<.-map.1-.-zip-with.- |
| 85c0 | 20 6e 69 6c 20 30 20 2d 73 70 6c 69 74 2d 61 74 20 61 70 70 6c 79 20 2d 63 6f 6e 63 61 74 5d 20 | .nil.0.-split-at.apply.-concat]. |
| 85e0 | 31 31 20 28 23 24 20 2e 20 33 33 38 34 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | 11.(#$...33847)]).(byte-code."\3 |
| 8600 | 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c | 00\301\302\303#\210\300\301\304\ |
| 8620 | 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d | 303#\207".[function-put.-remove- |
| 8640 | 61 74 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | at-indices.pure.t.side-effect-fr |
| 8660 | 65 65 5d 20 34 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d | ee].4).#@50.Anaphoric.form.of.`- |
| 8680 | 73 70 6c 69 74 2d 77 69 74 68 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 | split-with'...(fn.PRED.LIST)..(d |
| 86a0 | 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 74 2d 77 69 74 68 20 27 28 6d 61 63 72 6f 20 2e 20 | efalias.'--split-with.'(macro... |
| 86c0 | 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 | #[514."\300\301!\300\302!\300\30 |
| 86e0 | 33 21 5c 33 30 34 03 05 44 03 5c 33 30 35 42 03 5c 33 30 36 42 45 5c 33 30 37 5c 33 31 30 06 06 | 3!\304..D.\305B.\306BE\307\310.. |
| 8700 | 05 45 5c 33 30 34 5c 33 31 31 5c 33 31 32 06 09 44 44 43 5c 33 31 33 5c 33 31 34 06 5c 66 44 5c | .E\304\311\312..DDC\313\314.\fD\ |
| 8720 | 33 31 35 06 09 5c 33 31 36 42 42 5c 33 31 37 5c 33 31 31 06 5c 66 45 5c 33 32 30 06 0d 44 5c 32 | 315..\316BB\317\311.\fE\320..D\2 |
| 8740 | 35 37 05 45 45 5c 33 32 31 5c 33 32 32 06 06 44 06 07 45 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d | 57.EE\321\322..D..EF\207".[make- |
| 8760 | 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 72 65 73 75 6c 74 22 20 22 63 6f 6e 74 69 6e 75 65 | symbol."list"."result"."continue |
| 8780 | 22 20 6c 65 74 20 28 6e 69 6c 29 20 28 74 29 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 | ".let.(nil).(t).while.and.it.car |
| 87a0 | 20 69 66 20 6e 6f 74 20 73 65 74 71 20 28 6e 69 6c 29 20 21 63 6f 6e 73 20 21 63 64 72 20 6c 69 | .if.not.setq.(nil).!cons.!cdr.li |
| 87c0 | 73 74 20 6e 72 65 76 65 72 73 65 5d 20 31 37 20 28 23 24 20 2e 20 33 34 34 31 32 29 5d 29 29 0a | st.nreverse].17.(#$...34412)])). |
| 87e0 | 28 70 75 74 20 27 2d 2d 73 70 6c 69 74 2d 77 69 74 68 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d | (put.'--split-with.'edebug-form- |
| 8800 | 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 32 38 20 52 65 74 75 72 6e 20 | spec.'(form.form)).#@128.Return. |
| 8820 | 61 20 6c 69 73 74 20 6f 66 20 28 28 2d 74 61 6b 65 2d 77 68 69 6c 65 20 50 52 45 44 20 4c 49 53 | a.list.of.((-take-while.PRED.LIS |
| 8840 | 54 29 20 28 2d 64 72 6f 70 2d 77 68 69 6c 65 20 50 52 45 44 20 4c 49 53 54 29 29 2c 20 69 6e 20 | T).(-drop-while.PRED.LIST)),.in. |
| 8860 | 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 70 61 73 73 20 74 68 72 6f 75 67 68 20 74 68 | no.more.than.one.pass.through.th |
| 8880 | 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | e.list...(fn.PRED.LIST)..(defali |
| 88a0 | 61 73 20 27 2d 73 70 6c 69 74 2d 77 69 74 68 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 5c | as.'-split-with.#[514."\211\300\ |
| 88c0 | 33 30 31 02 5c 32 30 33 26 00 5c 32 31 31 5c 32 30 33 26 00 02 40 05 01 21 5c 32 30 34 19 00 5c | 301.\203&.\211\203&..@..!\204..\ |
| 88e0 | 33 30 30 5c 32 36 32 02 5c 32 30 32 5c 22 00 5c 32 31 31 03 42 5c 32 36 32 03 03 41 5c 32 36 32 | 300\262.\202\".\211.B\262..A\262 |
| 8900 | 04 5c 32 31 30 5c 32 30 32 03 00 01 5c 32 33 37 03 44 5c 32 30 37 22 20 5b 6e 69 6c 20 74 5d 20 | .\210\202...\237.D\207".[nil.t]. |
| 8920 | 38 20 28 23 24 20 2e 20 33 34 38 34 31 29 5d 29 0a 23 40 32 32 34 20 53 70 6c 69 74 20 74 68 65 | 8.(#$...34841)]).#@224.Split.the |
| 8940 | 20 4c 49 53 54 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 4d 20 69 73 20 66 6f 75 6e 64 2e 0a 0a | .LIST.each.time.ITEM.is.found... |
| 8960 | 55 6e 6c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 27 2c 20 74 68 65 20 49 54 45 4d | Unlike.`-partition-by',.the.ITEM |
| 8980 | 20 69 73 20 64 69 73 63 61 72 64 65 64 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a | .is.discarded.from.the.results.. |
| 89a0 | 45 6d 70 74 79 20 6c 69 73 74 73 20 61 72 65 20 61 6c 73 6f 20 72 65 6d 6f 76 65 64 20 66 72 6f | Empty.lists.are.also.removed.fro |
| 89c0 | 6d 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 0a 43 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e | m.the.result...Comparison.is.don |
| 89e0 | 65 20 62 79 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 73 70 6c 69 74 2d | e.by.`equal'...See.also.`-split- |
| 8a00 | 77 68 65 6e 27 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 | when'..(fn.ITEM.LIST)..(defalias |
| 8a20 | 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 | .'-split-on.'(macro...#[514."\30 |
| 8a40 | 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 45 45 02 45 5c 32 30 37 22 20 5b 2d 73 | 0\301\302\303\304..EE.E\207".[-s |
| 8a60 | 70 6c 69 74 2d 77 68 65 6e 20 6c 61 6d 62 64 61 20 28 69 74 29 20 65 71 75 61 6c 20 69 74 5d 20 | plit-when.lambda.(it).equal.it]. |
| 8a80 | 38 20 28 23 24 20 2e 20 33 35 31 32 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 73 70 6c 69 74 2d 6f | 8.(#$...35127)])).(put.'-split-o |
| 8aa0 | 6e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 | n.'edebug-form-spec.'(form.form) |
| 8ac0 | 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 73 70 | ).#@53.Anaphoric.version.of.`-sp |
| 8ae0 | 6c 69 74 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 | lit-when'...(fn.FORM.LIST)..(def |
| 8b00 | 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 74 2d 77 68 65 6e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b | alias.'--split-when.'(macro...#[ |
| 8b20 | 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 73 70 6c | 514."\300\301\302.E.E\207".[-spl |
| 8b40 | 69 74 2d 77 68 65 6e 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 33 35 35 | it-when.lambda.(it)].6.(#$...355 |
| 8b60 | 32 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 74 2d 77 68 65 6e 20 27 65 64 65 62 75 | 27)])).(put.'--split-when.'edebu |
| 8b80 | 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 36 39 20 | g-form-spec.'(form.form)).#@269. |
| 8ba0 | 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 77 | Split.the.LIST.on.each.element.w |
| 8bc0 | 68 65 72 65 20 46 4e 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 55 6e 6c 69 6b 65 | here.FN.returns.non-nil...Unlike |
| 8be0 | 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 27 2c 20 74 68 65 20 22 6d 61 74 63 68 65 64 22 20 | .`-partition-by',.the."matched". |
| 8c00 | 65 6c 65 6d 65 6e 74 20 69 73 20 64 69 73 63 61 72 64 65 64 20 66 72 6f 6d 0a 74 68 65 20 72 65 | element.is.discarded.from.the.re |
| 8c20 | 73 75 6c 74 73 2e 20 20 45 6d 70 74 79 20 6c 69 73 74 73 20 61 72 65 20 61 6c 73 6f 20 72 65 6d | sults...Empty.lists.are.also.rem |
| 8c40 | 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 | oved.from.the.result...This.func |
| 8c60 | 74 69 6f 6e 20 63 61 6e 20 62 65 20 74 68 6f 75 67 68 74 20 6f 66 20 61 73 20 61 20 67 65 6e 65 | tion.can.be.thought.of.as.a.gene |
| 8c80 | 72 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 0a 60 73 70 6c 69 74 2d 73 74 72 69 6e 67 27 2e 0a 0a 28 | ralization.of.`split-string'...( |
| 8ca0 | 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 77 | fn.FN.LIST)..(defalias.'-split-w |
| 8cc0 | 68 65 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 32 30 33 2a 00 03 03 40 21 5c 32 | hen.#[514."\300\211.\203*...@!\2 |
| 8ce0 | 30 34 16 00 02 40 01 42 5c 32 36 32 01 5c 32 30 32 23 00 5c 32 31 31 5c 32 30 33 20 00 5c 32 31 | 04...@.B\262.\202#.\211\203..\21 |
| 8d00 | 31 5c 32 33 37 02 42 5c 32 36 32 02 5c 33 30 30 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 | 1\237.B\262.\300\262..A\262.\202 |
| 8d20 | 02 00 5c 32 31 31 5c 32 30 33 34 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 01 5c 32 33 37 | ..\211\2034.\211\237.B\262..\237 |
| 8d40 | 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 33 35 37 34 34 29 5d 29 0a 23 40 34 | \207".[nil].6.(#$...35744)]).#@4 |
| 8d60 | 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 65 70 61 72 61 74 65 27 2e | 8.Anaphoric.form.of.`-separate'. |
| 8d80 | 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 | ..(fn.FORM.LIST)..(defalias.'--s |
| 8da0 | 65 70 61 72 61 74 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | eparate.'(macro...#[514."\300\30 |
| 8dc0 | 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 02 44 5c 33 30 34 05 5c 33 30 35 06 08 5c 33 30 | 1!\300\302!\303..D\304.\305..\30 |
| 8de0 | 36 5c 33 30 37 06 09 45 5c 33 30 36 5c 33 30 37 06 09 45 46 45 5c 33 31 30 5c 33 31 31 06 06 44 | 6\307..E\306\307..EFE\310\311..D |
| 8e00 | 5c 33 31 31 06 06 44 45 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 79 65 73 | \311..DEF\207".[make-symbol."yes |
| 8e20 | 22 20 22 6e 6f 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 69 66 20 21 63 6f 6e 73 20 69 74 20 6c 69 | "."no".let.--each.if.!cons.it.li |
| 8e40 | 73 74 20 6e 72 65 76 65 72 73 65 5d 20 31 34 20 28 23 24 20 2e 20 33 36 31 39 34 29 5d 29 29 0a | st.nreverse].14.(#$...36194)])). |
| 8e60 | 28 70 75 74 20 27 2d 2d 73 65 70 61 72 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 | (put.'--separate.'edebug-form-sp |
| 8e80 | 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 30 37 20 52 65 74 75 72 6e 20 61 20 | ec.'(form.form)).#@107.Return.a. |
| 8ea0 | 6c 69 73 74 20 6f 66 20 28 28 2d 66 69 6c 74 65 72 20 50 52 45 44 20 4c 49 53 54 29 20 28 2d 72 | list.of.((-filter.PRED.LIST).(-r |
| 8ec0 | 65 6d 6f 76 65 20 50 52 45 44 20 4c 49 53 54 29 29 2c 20 69 6e 20 6f 6e 65 20 70 61 73 73 20 74 | emove.PRED.LIST)),.in.one.pass.t |
| 8ee0 | 68 72 6f 75 67 68 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 | hrough.the.list...(fn.PRED.LIST) |
| 8f00 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 70 61 72 61 74 65 20 23 5b 35 31 34 20 22 5c 33 | ..(defalias.'-separate.#[514."\3 |
| 8f20 | 30 30 5c 32 31 31 02 5c 33 30 31 01 5c 32 30 33 2a 00 01 40 06 06 01 21 5c 32 30 33 19 00 5c 32 | 00\211.\301.\203*..@...!\203..\2 |
| 8f40 | 31 31 05 42 5c 32 36 32 05 5c 32 30 32 1e 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 | 11.B\262.\202..\211.B\262.\210\2 |
| 8f60 | 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 04 00 5c 32 36 36 02 01 5c 32 33 37 01 | 11T\262..A\262.\202..\266..\237. |
| 8f80 | 5c 32 33 37 44 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 33 36 35 30 33 | \237D\207".[nil.0].9.(#$...36503 |
| 8fa0 | 29 5d 29 0a 23 40 38 35 20 50 72 69 76 61 74 65 3a 20 55 73 65 64 20 62 79 20 2d 70 61 72 74 69 | )]).#@85.Private:.Used.by.-parti |
| 8fc0 | 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 61 6e 64 20 2d 70 61 72 74 69 74 69 6f 6e | tion-all-in-steps.and.-partition |
| 8fe0 | 2d 69 6e 2d 73 74 65 70 73 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 | -in-steps...(fn.N.STEP.LIST)..(d |
| 9000 | 65 66 61 6c 69 61 73 20 27 2d 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 | efalias.'---partition-all-in-ste |
| 9020 | 70 73 2d 72 65 76 65 72 73 65 64 20 23 5b 37 37 31 20 22 01 5c 33 30 30 57 5c 32 30 33 5c 6e 00 | ps-reversed.#[771.".\300W\203\n. |
| 9040 | 5c 33 30 31 5c 33 30 32 21 5c 32 31 30 5c 33 30 33 01 5c 32 30 33 20 00 5c 33 30 34 04 03 5c 22 | \301\302!\210\303.\203..\304..\" |
| 9060 | 01 42 5c 32 36 32 01 5c 33 30 35 03 03 5c 22 5c 32 36 32 02 5c 32 30 32 0b 00 5c 32 31 31 5c 32 | .B\262.\305..\"\262.\202..\211\2 |
| 9080 | 30 37 22 20 5b 31 20 65 72 72 6f 72 20 22 53 74 65 70 20 6d 75 73 74 20 62 65 20 61 20 70 6f 73 | 07".[1.error."Step.must.be.a.pos |
| 90a0 | 69 74 69 76 65 20 6e 75 6d 62 65 72 2c 20 6f 72 20 79 6f 75 27 72 65 20 6c 6f 6f 6b 69 6e 67 20 | itive.number,.or.you're.looking. |
| 90c0 | 61 74 20 73 6f 6d 65 20 6a 75 69 63 79 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 73 2e 22 20 6e | at.some.juicy.infinite.loops.".n |
| 90e0 | 69 6c 20 2d 74 61 6b 65 20 2d 64 72 6f 70 5d 20 37 20 28 23 24 20 2e 20 33 36 37 37 37 29 5d 29 | il.-take.-drop].7.(#$...36777)]) |
| 9100 | 0a 23 40 31 36 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 | .#@160.Return.a.new.list.with.th |
| 9120 | 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 4e 2d 73 | e.items.in.LIST.grouped.into.N-s |
| 9140 | 69 7a 65 64 20 73 75 62 6c 69 73 74 73 20 61 74 20 6f 66 66 73 65 74 73 20 53 54 45 50 20 61 70 | ized.sublists.at.offsets.STEP.ap |
| 9160 | 61 72 74 2e 0a 54 68 65 20 6c 61 73 74 20 67 72 6f 75 70 73 20 6d 61 79 20 63 6f 6e 74 61 69 6e | art..The.last.groups.may.contain |
| 9180 | 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 69 74 65 6d 73 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 | .less.than.N.items...(fn.N.STEP. |
| 91a0 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c | LIST)..(defalias.'-partition-all |
| 91c0 | 2d 69 6e 2d 73 74 65 70 73 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 03 23 5c 32 33 37 5c 32 30 | -in-steps.#[771."\300...#\237\20 |
| 91e0 | 37 22 20 5b 2d 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 | 7".[---partition-all-in-steps-re |
| 9200 | 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e 20 33 37 31 32 37 29 5d 29 0a 28 62 79 74 65 2d 63 | versed].7.(#$...37127)]).(byte-c |
| 9220 | 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 | ode."\300\301\302\303#\210\300\3 |
| 9240 | 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d | 01\304\303#\207".[function-put.- |
| 9260 | 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 70 75 72 65 20 74 20 73 69 | partition-all-in-steps.pure.t.si |
| 9280 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 30 32 20 52 65 74 75 72 6e 20 | de-effect-free].4).#@202.Return. |
| 92a0 | 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 | a.new.list.with.the.items.in.LIS |
| 92c0 | 54 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 20 | T.grouped.into.N-sized.sublists. |
| 92e0 | 61 74 20 6f 66 66 73 65 74 73 20 53 54 45 50 20 61 70 61 72 74 2e 0a 49 66 20 74 68 65 72 65 20 | at.offsets.STEP.apart..If.there. |
| 9300 | 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 69 74 65 6d 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 | are.not.enough.items.to.make.the |
| 9320 | 20 6c 61 73 74 20 67 72 6f 75 70 20 4e 2d 73 69 7a 65 64 2c 0a 74 68 6f 73 65 20 69 74 65 6d 73 | .last.group.N-sized,.those.items |
| 9340 | 20 61 72 65 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 | .are.discarded...(fn.N.STEP.LIST |
| 9360 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 | )..(defalias.'-partition-in-step |
| 9380 | 73 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 03 23 5c 32 31 31 5c 32 30 33 18 00 5c 32 31 31 40 | s.#[771."\300...#\211\203..\211@ |
| 93a0 | 47 04 57 5c 32 30 33 18 00 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 | G.W\203..\211A\262.\202..\211\23 |
| 93c0 | 37 5c 32 30 37 22 20 5b 2d 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 | 7\207".[---partition-all-in-step |
| 93e0 | 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e 20 33 37 35 32 39 29 5d 29 0a 28 62 79 | s-reversed].7.(#$...37529)]).(by |
| 9400 | 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 | te-code."\300\301\302\303#\210\3 |
| 9420 | 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 | 00\301\304\303#\207".[function-p |
| 9440 | 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 20 70 75 72 65 20 74 20 73 69 | ut.-partition-in-steps.pure.t.si |
| 9460 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 33 32 20 52 65 74 75 72 6e 20 | de-effect-free].4).#@132.Return. |
| 9480 | 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 | a.new.list.with.the.items.in.LIS |
| 94a0 | 54 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 2e | T.grouped.into.N-sized.sublists. |
| 94c0 | 0a 54 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 | .The.last.group.may.contain.less |
| 94e0 | 20 74 68 61 6e 20 4e 20 69 74 65 6d 73 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 | .than.N.items...(fn.N.LIST)..(de |
| 9500 | 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 20 23 5b 35 31 34 20 22 5c 33 | falias.'-partition-all.#[514."\3 |
| 9520 | 30 30 02 5c 32 31 31 03 23 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 | 00.\211.#\207".[-partition-all-i |
| 9540 | 6e 2d 73 74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 33 38 30 30 39 29 5d 29 0a 28 62 79 74 65 2d | n-steps].6.(#$...38009)]).(byte- |
| 9560 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c | code."\300\301\302\303#\210\300\ |
| 9580 | 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 | 301\304\303#\207".[function-put. |
| 95a0 | 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 | -partition-all.pure.t.side-effec |
| 95c0 | 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 37 35 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 | t-free].4).#@175.Return.a.new.li |
| 95e0 | 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 67 72 6f 75 70 65 | st.with.the.items.in.LIST.groupe |
| 9600 | 64 20 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 2e 0a 49 66 20 74 68 65 72 | d.into.N-sized.sublists..If.ther |
| 9620 | 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 69 74 65 6d 73 20 74 6f 20 6d 61 6b 65 20 74 | e.are.not.enough.items.to.make.t |
| 9640 | 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 4e 2d 73 69 7a 65 64 2c 0a 74 68 6f 73 65 20 69 74 65 | he.last.group.N-sized,.those.ite |
| 9660 | 6d 73 20 61 72 65 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a | ms.are.discarded...(fn.N.LIST).. |
| 9680 | 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 | (defalias.'-partition.#[514."\30 |
| 96a0 | 30 02 5c 32 31 31 03 23 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 | 0.\211.#\207".[-partition-in-ste |
| 96c0 | 70 73 5d 20 36 20 28 23 24 20 2e 20 33 38 33 35 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | ps].6.(#$...38353)]).(byte-code. |
| 96e0 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 | "\300\301\302\303#\210\300\301\3 |
| 9700 | 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 | 04\303#\207".[function-put.-part |
| 9720 | 69 74 69 6f 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 | ition.pure.t.side-effect-free].4 |
| 9740 | 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 70 61 72 74 69 | ).#@52.Anaphoric.form.of.`-parti |
| 9760 | 74 69 6f 6e 2d 62 79 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 | tion-by'...(fn.FORM.LIST)..(defa |
| 9780 | 6c 69 61 73 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 | lias.'--partition-by.'(macro...# |
| 97a0 | 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 | [514."\300\301!\300\302!\300\303 |
| 97c0 | 21 5c 33 30 30 5c 33 30 34 21 5c 33 30 30 5c 33 30 35 21 5c 33 30 36 01 06 07 44 43 5c 33 30 37 | !\300\304!\300\305!\306...DC\307 |
| 97e0 | 03 5c 33 31 30 06 09 5c 33 31 31 42 5c 33 31 32 5c 33 31 33 06 08 44 44 06 5c 6e 5c 33 31 34 42 | .\310..\311B\312\313..DD.\n\314B |
| 9800 | 06 5c 6e 06 0f 44 06 09 5c 33 31 35 06 0b 44 44 5c 32 35 37 05 5c 33 31 36 06 07 5c 33 31 30 5c | .\n..D..\315..DD\257.\316..\310\ |
| 9820 | 33 31 32 5c 33 31 33 06 0b 44 44 06 0b 06 11 44 44 5c 33 31 37 5c 33 32 30 06 0e 06 0e 45 5c 33 | 312\313..DD....DD\317\320....E\3 |
| 9840 | 32 31 5c 33 32 32 06 11 44 06 12 45 5c 33 32 33 06 11 5c 33 32 34 42 42 5c 33 32 33 06 11 06 11 | 21\322..D..E\323..\324BB\323.... |
| 9860 | 45 5c 32 35 37 05 5c 33 32 31 5c 33 31 32 06 10 45 5c 33 32 35 06 0d 44 5c 32 35 37 05 45 5c 33 | E\257.\321\312..E\325..D\257.E\3 |
| 9880 | 32 31 5c 33 32 32 06 5c 66 44 06 0d 45 5c 33 32 32 06 0d 44 5c 32 35 37 05 45 45 5c 32 30 37 22 | 21\322.\fD..E\322..D\257.EE\207" |
| 98a0 | 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73 74 22 | .[make-symbol."result"."sublist" |
| 98c0 | 20 22 76 61 6c 75 65 22 20 22 6e 65 77 2d 76 61 6c 75 65 22 20 22 6c 69 73 74 22 20 6c 65 74 20 | ."value"."new-value"."list".let. |
| 98e0 | 77 68 65 6e 20 6c 65 74 2a 20 28 6e 69 6c 29 20 69 74 20 63 61 72 20 28 28 6c 69 73 74 20 69 74 | when.let*.(nil).it.car.((list.it |
| 9900 | 29 29 20 63 64 72 20 77 68 69 6c 65 20 75 6e 6c 65 73 73 20 65 71 75 61 6c 20 21 63 6f 6e 73 20 | )).cdr.while.unless.equal.!cons. |
| 9920 | 6e 72 65 76 65 72 73 65 20 73 65 74 71 20 28 6e 69 6c 29 20 21 63 64 72 5d 20 32 34 20 28 23 24 | nreverse.setq.(nil).!cdr].24.(#$ |
| 9940 | 20 2e 20 33 38 37 32 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 | ...38727)])).(put.'--partition-b |
| 9960 | 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 | y.'edebug-form-spec.'(form.form) |
| 9980 | 29 0a 23 40 39 33 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 | ).#@93.Apply.FN.to.each.item.in. |
| 99a0 | 4c 49 53 54 2c 20 73 70 6c 69 74 74 69 6e 67 20 69 74 20 65 61 63 68 20 74 69 6d 65 20 46 4e 20 | LIST,.splitting.it.each.time.FN. |
| 99c0 | 72 65 74 75 72 6e 73 20 61 20 6e 65 77 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 | returns.a.new.value...(fn.FN.LIS |
| 99e0 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 23 5b 35 | T)..(defalias.'-partition-by.#[5 |
| 9a00 | 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 35 42 00 5c 33 30 30 01 40 5c 32 31 31 43 05 02 21 | 14."\211\211\205B.\300.@\211C..! |
| 9a20 | 04 41 5c 32 31 31 5c 32 30 33 38 00 5c 32 31 31 40 06 08 01 21 03 01 5c 32 33 32 5c 32 30 34 2c | .A\211\2038.\211@...!..\232\204, |
| 9a40 | 00 04 5c 32 33 37 06 07 42 5c 32 36 32 07 5c 33 30 30 5c 32 36 32 05 5c 32 31 31 5c 32 36 32 04 | ..\237..B\262.\300\262.\211\262. |
| 9a60 | 01 05 42 5c 32 36 32 05 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 0f 00 02 5c 32 33 37 05 42 5c | ..B\262..A\266\203\202...\237.B\ |
| 9a80 | 32 36 32 05 04 5c 32 33 37 5c 32 36 36 5c 32 30 35 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 32 20 | 262..\237\266\205\207".[nil].12. |
| 9aa0 | 28 23 24 20 2e 20 33 39 33 30 33 29 5d 29 0a 23 40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f | (#$...39303)]).#@59.Anaphoric.fo |
| 9ac0 | 72 6d 20 6f 66 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 27 2e 0a 0a 28 | rm.of.`-partition-by-header'...( |
| 9ae0 | 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 70 61 72 74 | fn.FORM.LIST)..(defalias.'--part |
| 9b00 | 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 | ition-by-header.'(macro...#[514. |
| 9b20 | 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 30 | "\300\301!\300\302!\300\303!\300 |
| 9b40 | 5c 33 30 34 21 5c 33 30 30 5c 33 30 35 21 5c 33 30 30 5c 33 30 36 21 5c 33 30 37 01 06 08 44 43 | \304!\300\305!\300\306!\307...DC |
| 9b60 | 5c 33 31 30 03 5c 33 31 31 06 5c 6e 5c 33 31 32 42 5c 33 31 33 5c 33 31 34 06 08 44 44 06 0b 5c | \310.\311.\n\312B\313\314..DD..\ |
| 9b80 | 33 31 35 42 06 0b 06 10 44 06 0b 5c 33 31 36 42 06 5c 6e 5c 33 31 37 06 5c 66 44 44 5c 32 35 37 | 315B....D..\316B.\n\317.\fDD\257 |
| 9ba0 | 06 5c 33 32 30 06 07 5c 33 31 31 5c 33 31 33 5c 33 31 34 06 0b 44 44 06 0b 06 12 44 44 5c 33 32 | .\320..\311\313\314..DD....DD\32 |
| 9bc0 | 31 5c 33 32 32 06 0f 06 0e 45 5c 33 31 30 06 0f 5c 33 32 33 5c 33 32 34 06 14 44 06 15 45 5c 33 | 1\322....E\310..\323\324..D..E\3 |
| 9be0 | 32 35 06 14 5c 33 32 36 42 42 5c 33 32 35 06 13 5c 33 32 37 42 42 5c 32 35 37 05 5c 33 32 35 06 | 25..\326BB\325..\327BB\257.\325. |
| 9c00 | 10 5c 33 33 30 42 42 46 5c 33 32 33 5c 33 31 33 06 11 45 5c 33 33 31 06 0d 44 5c 32 35 37 05 45 | .\330BBF\323\313..E\331..D\257.E |
| 9c20 | 5c 33 32 33 5c 33 32 34 06 0d 44 06 0e 45 5c 33 32 34 06 0e 44 5c 32 35 37 05 45 45 5c 32 30 37 | \323\324..D..E\324..D\257.EE\207 |
| 9c40 | 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73 74 | ".[make-symbol."result"."sublist |
| 9c60 | 22 20 22 68 65 61 64 65 72 2d 76 61 6c 75 65 22 20 22 73 65 65 6e 2d 62 6f 64 79 3f 22 20 22 6e | "."header-value"."seen-body?"."n |
| 9c80 | 65 77 2d 76 61 6c 75 65 22 20 22 6c 69 73 74 22 20 6c 65 74 20 77 68 65 6e 20 6c 65 74 2a 20 28 | ew-value"."list".let.when.let*.( |
| 9ca0 | 6e 69 6c 29 20 69 74 20 63 61 72 20 28 28 6c 69 73 74 20 69 74 29 29 20 28 6e 69 6c 29 20 63 64 | nil).it.car.((list.it)).(nil).cd |
| 9cc0 | 72 20 77 68 69 6c 65 20 69 66 20 65 71 75 61 6c 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 65 20 | r.while.if.equal.!cons.nreverse. |
| 9ce0 | 73 65 74 71 20 28 6e 69 6c 29 20 28 6e 69 6c 29 20 28 74 29 20 21 63 64 72 5d 20 32 37 20 28 23 | setq.(nil).(nil).(t).!cdr].27.(# |
| 9d00 | 24 20 2e 20 33 39 36 30 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d | $...39604)])).(put.'--partition- |
| 9d20 | 62 79 2d 68 65 61 64 65 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f | by-header.'edebug-form-spec.'(fo |
| 9d40 | 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 31 39 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 74 68 65 20 | rm.form)).#@219.Apply.FN.to.the. |
| 9d60 | 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 20 54 68 61 74 20 69 73 20 74 68 65 20 | first.item.in.LIST..That.is.the. |
| 9d80 | 68 65 61 64 65 72 0a 76 61 6c 75 65 2e 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 | header.value..Apply.FN.to.each.i |
| 9da0 | 74 65 6d 20 69 6e 20 4c 49 53 54 2c 20 73 70 6c 69 74 74 69 6e 67 20 69 74 20 65 61 63 68 20 74 | tem.in.LIST,.splitting.it.each.t |
| 9dc0 | 69 6d 65 20 46 4e 0a 72 65 74 75 72 6e 73 20 74 68 65 20 68 65 61 64 65 72 20 76 61 6c 75 65 2c | ime.FN.returns.the.header.value, |
| 9de0 | 20 62 75 74 20 6f 6e 6c 79 20 61 66 74 65 72 20 73 65 65 69 6e 67 20 61 74 20 6c 65 61 73 74 20 | .but.only.after.seeing.at.least. |
| 9e00 | 6f 6e 65 0a 6f 74 68 65 72 20 76 61 6c 75 65 20 28 74 68 65 20 62 6f 64 79 29 2e 0a 0a 28 66 6e | one.other.value.(the.body)...(fn |
| 9e20 | 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e | .FN.LIST)..(defalias.'-partition |
| 9e40 | 2d 62 79 2d 68 65 61 64 65 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 35 4f 00 | -by-header.#[514."\211\211\205O. |
| 9e60 | 5c 33 30 30 01 40 5c 32 31 31 43 05 02 21 5c 33 30 30 05 41 5c 32 31 31 5c 32 30 33 44 00 5c 32 | \300.@\211C..!\300.A\211\203D.\2 |
| 9e80 | 31 31 40 06 09 01 21 04 01 5c 32 33 32 5c 32 30 33 34 00 03 5c 32 30 33 37 00 05 5c 32 33 37 06 | 11@...!..\232\2034..\2037..\237. |
| 9ea0 | 08 42 5c 32 36 32 08 5c 33 30 30 5c 32 36 32 06 5c 33 30 30 5c 32 36 32 04 5c 32 30 32 37 00 5c | .B\262.\300\262.\300\262.\2027.\ |
| 9ec0 | 33 30 31 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 10 | 301\262....B\262..A\266\203\202. |
| 9ee0 | 00 03 5c 32 33 37 06 06 42 5c 32 36 32 06 05 5c 32 33 37 5c 32 36 36 5c 32 30 36 5c 32 30 37 22 | ..\237..B\262..\237\266\206\207" |
| 9f00 | 20 5b 6e 69 6c 20 74 5d 20 31 33 20 28 23 24 20 2e 20 34 30 32 37 32 29 5d 29 0a 23 40 38 38 20 | .[nil.t].13.(#$...40272)]).#@88. |
| 9f20 | 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 61 66 74 65 72 20 65 61 63 68 20 74 69 | Partition.directly.after.each.ti |
| 9f40 | 6d 65 20 50 52 45 44 20 69 73 20 74 72 75 65 20 6f 6e 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 | me.PRED.is.true.on.an.element.of |
| 9f60 | 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | .LIST...(fn.PRED.LIST)..(defalia |
| 9f80 | 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 23 5b 35 31 34 20 22 | s.'-partition-after-pred.#[514." |
| 9fa0 | 5c 32 31 31 5c 32 30 35 5c 22 00 5c 33 30 30 02 02 41 5c 22 02 02 40 21 5c 32 30 33 18 00 01 40 | \211\205\".\300..A\"..@!\203...@ |
| 9fc0 | 43 01 42 5c 32 30 32 20 00 01 40 01 40 42 01 41 42 5c 32 36 32 01 5c 32 30 37 22 20 5b 2d 70 61 | C.B\202...@.@B.AB\262.\207".[-pa |
| 9fe0 | 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 5d 20 35 20 28 23 24 20 2e 20 34 30 37 33 | rtition-after-pred].5.(#$...4073 |
| a000 | 36 29 5d 29 0a 23 40 38 39 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 62 65 66 | 6)]).#@89.Partition.directly.bef |
| a020 | 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 50 52 45 44 20 69 73 20 74 72 75 65 20 6f 6e 20 61 6e | ore.each.time.PRED.is.true.on.an |
| a040 | 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 | .element.of.LIST...(fn.PRED.LIST |
| a060 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d | )..(defalias.'-partition-before- |
| a080 | 70 72 65 64 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 33 30 31 05 21 5c | pred.#[514."\300\301\302.\301.!\ |
| a0a0 | 22 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 20 72 65 76 65 72 73 65 20 2d 70 61 72 74 | "\"\237\207".[-map.reverse.-part |
| a0c0 | 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 5d 20 38 20 28 23 24 20 2e 20 34 30 39 37 30 29 | ition-after-pred].8.(#$...40970) |
| a0e0 | 5d 29 0a 23 40 37 34 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 61 66 74 65 72 | ]).#@74.Partition.directly.after |
| a100 | 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 4d 20 61 70 70 65 61 72 73 20 69 6e 20 4c 49 53 54 2e | .each.time.ITEM.appears.in.LIST. |
| a120 | 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 | ..(fn.ITEM.LIST)..(defalias.'-pa |
| a140 | 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 69 74 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | rtition-after-item.#[514."\300\3 |
| a160 | 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c | 01\302\303\304\305..!\306\"\307\ |
| a180 | 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 | 310%.\"\207".[-partition-after-p |
| a1a0 | 72 65 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 30 | red.make-byte-code.257."\211\300 |
| a1c0 | 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c | \232\207".vconcat.vector.[].3."\ |
| a1e0 | 6e 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 20 39 20 28 23 24 20 2e 20 34 31 31 39 32 29 5d 29 0a 23 | n\n(fn.ELE)"].9.(#$...41192)]).# |
| a200 | 40 37 35 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 62 65 66 6f 72 65 20 65 61 | @75.Partition.directly.before.ea |
| a220 | 63 68 20 74 69 6d 65 20 49 54 45 4d 20 61 70 70 65 61 72 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 | ch.time.ITEM.appears.in.LIST...( |
| a240 | 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 | fn.ITEM.LIST)..(defalias.'-parti |
| a260 | 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 69 74 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 | tion-before-item.#[514."\300\301 |
| a280 | 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 | \302\303\304\305..!\306\"\307\31 |
| a2a0 | 30 25 02 5c 22 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 | 0%.\"\207".[-partition-before-pr |
| a2c0 | 65 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c | ed.make-byte-code.257."\211\300\ |
| a2e0 | 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e | 232\207".vconcat.vector.[].3."\n |
| a300 | 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 20 39 20 28 23 24 20 2e 20 34 31 34 37 36 29 5d 29 0a 23 40 | \n(fn.ELE)"].9.(#$...41476)]).#@ |
| a320 | 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 67 72 6f 75 70 2d 62 79 27 | 48.Anaphoric.form.of.`-group-by' |
| a340 | 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d | ...(fn.FORM.LIST)..(defalias.'-- |
| a360 | 67 72 6f 75 70 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | group-by.'(macro...#[514."\300\3 |
| a380 | 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 5c 33 30 35 5c 33 30 | 01!\300\302!\300\303!\304\305\30 |
| a3a0 | 36 05 43 5c 33 30 37 5c 33 31 30 06 08 44 5c 33 30 34 5c 33 31 31 06 5c 6e 44 44 45 45 5c 33 31 | 6.C\307\310..D\304\311.\nDDEE\31 |
| a3c0 | 32 5c 33 31 33 06 06 06 5c 6e 44 06 06 5c 33 31 34 06 09 5c 33 31 35 42 42 44 44 5c 33 31 36 06 | 2\313...\nD..\314..\315BBDD\316. |
| a3e0 | 07 5c 33 31 37 06 09 5c 33 30 37 5c 33 32 30 5c 33 31 31 06 0d 44 45 45 5c 33 32 31 5c 33 32 32 | .\317..\307\320\311..DEE\321\322 |
| a400 | 06 5c 66 5c 33 32 33 42 42 5c 33 32 34 42 42 46 5c 33 32 35 42 42 42 5c 33 32 36 06 09 46 45 44 | .\f\323BB\324BBF\325BBB\326..FED |
| a420 | 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 22 20 22 6b 22 20 22 67 72 70 22 | \207".[make-symbol."n"."k"."grp" |
| a440 | 20 6e 72 65 76 65 72 73 65 20 2d 6d 61 70 20 6c 61 6d 62 64 61 20 63 6f 6e 73 20 63 61 72 20 63 | .nreverse.-map.lambda.cons.car.c |
| a460 | 64 72 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 65 74 2a 20 61 73 73 6f 63 20 28 61 63 63 | dr.--reduce-from.let*.assoc.(acc |
| a480 | 29 20 69 66 20 73 65 74 63 64 72 20 69 74 20 70 75 73 68 20 6c 69 73 74 20 28 69 74 29 20 28 61 | ).if.setcdr.it.push.list.(it).(a |
| a4a0 | 63 63 29 20 28 61 63 63 29 20 6e 69 6c 5d 20 31 39 20 28 23 24 20 2e 20 34 31 37 36 33 29 5d 29 | cc).(acc).nil].19.(#$...41763)]) |
| a4c0 | 29 0a 28 70 75 74 20 27 2d 2d 67 72 6f 75 70 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d | ).(put.'--group-by.'edebug-form- |
| a4e0 | 73 70 65 63 20 74 29 0a 23 40 31 32 35 20 53 65 70 61 72 61 74 65 20 4c 49 53 54 20 69 6e 74 6f | spec.t).#@125.Separate.LIST.into |
| a500 | 20 61 6e 20 61 6c 69 73 74 20 77 68 6f 73 65 20 6b 65 79 73 20 61 72 65 20 46 4e 20 61 70 70 6c | .an.alist.whose.keys.are.FN.appl |
| a520 | 69 65 64 20 74 6f 20 74 68 65 0a 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 20 20 4b 65 | ied.to.the.elements.of.LIST...Ke |
| a540 | 79 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 62 79 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e | ys.are.compared.by.`equal'...(fn |
| a560 | 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 6f 75 70 2d 62 79 20 | .FN.LIST)..(defalias.'-group-by. |
| a580 | 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 01 5c 32 30 33 3b 00 01 | #[514."\300\301\302.\303.\203;.. |
| a5a0 | 40 06 07 01 21 5c 33 30 34 01 06 06 5c 22 5c 32 31 31 5c 32 30 33 5c 22 00 5c 32 31 31 03 02 41 | @...!\304...\"\211\203\".\211..A |
| a5c0 | 42 5c 32 34 31 5c 32 31 30 5c 32 30 32 2a 00 01 03 44 06 06 42 5c 32 36 32 06 05 5c 32 36 36 5c | B\241\210\202*...D..B\262..\266\ |
| a5e0 | 32 30 32 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 | 202\262.\210\211T\262..A\262.\20 |
| a600 | 32 05 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d | 2..\266.\211\262.\"\237\207".[-m |
| a620 | 61 70 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 5c 32 33 37 42 5c 32 30 37 22 20 5b 5d 20 33 | ap.#[257."\211@.A\237B\207".[].3 |
| a640 | 20 22 5c 6e 5c 6e 28 66 6e 20 4e 29 22 5d 20 6e 69 6c 20 30 20 61 73 73 6f 63 5d 20 31 33 20 28 | ."\n\n(fn.N)"].nil.0.assoc].13.( |
| a660 | 23 24 20 2e 20 34 32 32 32 32 29 5d 29 0a 23 40 37 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 | #$...42222)]).#@76.Return.a.new. |
| a680 | 6c 69 73 74 20 6f 66 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 73 65 70 | list.of.all.elements.in.LIST.sep |
| a6a0 | 61 72 61 74 65 64 20 62 79 20 53 45 50 2e 0a 0a 28 66 6e 20 53 45 50 20 4c 49 53 54 29 1f 0a 28 | arated.by.SEP...(fn.SEP.LIST)..( |
| a6c0 | 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 70 6f 73 65 20 23 5b 35 31 34 20 22 5c 33 30 30 | defalias.'-interpose.#[514."\300 |
| a6e0 | 01 5c 32 30 33 0f 00 01 40 01 42 5c 32 36 32 01 01 41 5c 32 36 32 02 01 5c 32 30 33 5c 22 00 01 | .\203...@.B\262..A\262..\203\".. |
| a700 | 40 03 02 42 42 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 0f 00 5c 32 31 31 5c 32 33 37 5c | @..BB\262..A\262.\202..\211\237\ |
| a720 | 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 34 32 36 31 31 29 5d 29 0a 28 62 79 74 | 207".[nil].6.(#$...42611)]).(byt |
| a740 | 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 | e-code."\300\301\302\303#\210\30 |
| a760 | 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 | 0\301\304\303#\207".[function-pu |
| a780 | 74 20 2d 69 6e 74 65 72 70 6f 73 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | t.-interpose.pure.t.side-effect- |
| a7a0 | 66 72 65 65 5d 20 34 29 0a 23 40 39 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 | free].4).#@90.Return.a.new.list. |
| a7c0 | 6f 66 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 65 61 63 68 20 6c 69 73 74 2c 20 | of.the.first.item.in.each.list,. |
| a7e0 | 74 68 65 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 65 74 63 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 | then.the.second.etc...(fn.&rest. |
| a800 | 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 6c 65 61 76 65 20 23 | LISTS)..(defalias.'-interleave.# |
| a820 | 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 35 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 22 5c | [128."\211\2055.\300\301\302.\"\ |
| a840 | 32 30 33 31 00 01 5c 33 30 33 01 5c 32 30 33 26 00 01 40 5c 32 31 31 40 04 42 5c 32 36 32 04 5c | 2031..\303.\203&..@\211@.B\262.\ |
| a860 | 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 0e 00 5c 32 36 36 02 5c | 210\211T\262..A\262.\202..\266.\ |
| a880 | 33 30 34 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 36 | 304\305.\"\262.\202..\211\237\26 |
| a8a0 | 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c 3f 20 6e 75 6c 6c 20 30 20 2d 6d 61 70 | 2.\207".[nil.-none\?.null.0.-map |
| a8c0 | 20 63 64 72 5d 20 37 20 28 23 24 20 2e 20 34 32 39 32 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | .cdr].7.(#$...42926)]).(byte-cod |
| a8e0 | 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 | e."\300\301\302\303#\210\300\301 |
| a900 | 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e | \304\303#\207".[function-put.-in |
| a920 | 74 65 72 6c 65 61 76 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 | terleave.pure.t.side-effect-free |
| a940 | 5d 20 34 29 0a 23 40 31 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 7a | ].4).#@145.Anaphoric.form.of.`-z |
| a960 | 69 70 2d 77 69 74 68 27 2e 0a 0a 54 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 73 74 31 | ip-with'...The.elements.in.list1 |
| a980 | 20 61 72 65 20 62 6f 75 6e 64 20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 27 2c 20 74 68 65 20 65 | .are.bound.as.symbol.`it',.the.e |
| a9a0 | 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 73 74 32 20 61 73 20 73 79 6d 62 6f 6c 20 60 6f 74 68 65 | lements.in.list2.as.symbol.`othe |
| a9c0 | 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 | r'...(fn.FORM.LIST1.LIST2)..(def |
| a9e0 | 61 6c 69 61 73 20 27 2d 2d 7a 69 70 2d 77 69 74 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 | alias.'--zip-with.'(macro...#[77 |
| aa00 | 31 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 | 1."\300\301!\300\302!\300\303!\3 |
| aa20 | 30 34 03 5c 33 30 35 42 03 06 07 44 03 06 07 44 45 5c 33 30 36 5c 33 30 37 05 05 45 5c 33 30 34 | 04.\305B...D...DE\306\307..E\304 |
| aa40 | 5c 33 31 30 5c 33 31 31 06 08 44 44 5c 33 31 32 5c 33 31 31 06 08 44 44 44 5c 33 31 33 06 5c 66 | \310\311..DD\312\311..DDD\313.\f |
| aa60 | 06 5c 6e 45 5c 33 31 34 06 09 44 5c 33 31 34 06 09 44 5c 32 35 37 05 45 5c 33 31 35 06 06 44 46 | .\nE\314..D\314..D\257.E\315..DF |
| aa80 | 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 6c 69 73 | \207".[make-symbol."result"."lis |
| aaa0 | 74 31 22 20 22 6c 69 73 74 32 22 20 6c 65 74 20 28 6e 69 6c 29 20 77 68 69 6c 65 20 61 6e 64 20 | t1"."list2".let.(nil).while.and. |
| aac0 | 69 74 20 63 61 72 20 6f 74 68 65 72 20 21 63 6f 6e 73 20 21 63 64 72 20 6e 72 65 76 65 72 73 65 | it.car.other.!cons.!cdr.nreverse |
| aae0 | 5d 20 31 36 20 28 23 24 20 2e 20 34 33 33 33 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 7a 69 70 | ].16.(#$...43339)])).(put.'--zip |
| ab00 | 2d 77 69 74 68 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 | -with.'edebug-form-spec.'(form.f |
| ab20 | 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 34 37 20 5a 69 70 20 74 68 65 20 74 77 6f 20 6c 69 73 | orm.form)).#@347.Zip.the.two.lis |
| ab40 | 74 73 20 4c 49 53 54 31 20 61 6e 64 20 4c 49 53 54 32 20 75 73 69 6e 67 20 61 20 66 75 6e 63 74 | ts.LIST1.and.LIST2.using.a.funct |
| ab60 | 69 6f 6e 20 46 4e 2e 20 20 54 68 69 73 0a 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 70 70 6c 69 65 | ion.FN...This.function.is.applie |
| ab80 | 64 20 70 61 69 72 77 69 73 65 20 74 61 6b 69 6e 67 20 61 73 20 66 69 72 73 74 20 61 72 67 75 6d | d.pairwise.taking.as.first.argum |
| aba0 | 65 6e 74 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 4c 49 53 54 31 20 61 6e 64 20 61 73 20 73 65 63 6f | ent.element.of.LIST1.and.as.seco |
| abc0 | 6e 64 20 61 72 67 75 6d 65 6e 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 32 20 61 74 20 | nd.argument.element.of.LIST2.at. |
| abe0 | 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 70 6f 73 69 74 69 6f 6e 2e 0a 0a 54 68 65 20 61 6e 61 | corresponding.position...The.ana |
| ac00 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 7a 69 70 2d 77 69 74 68 27 20 62 69 6e 64 73 20 74 | phoric.form.`--zip-with'.binds.t |
| ac20 | 68 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 31 20 61 73 20 73 79 6d 62 6f 6c | he.elements.from.LIST1.as.symbol |
| ac40 | 20 60 69 74 27 2c 0a 61 6e 64 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 | .`it',.and.the.elements.from.LIS |
| ac60 | 54 32 20 61 73 20 73 79 6d 62 6f 6c 20 60 6f 74 68 65 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 | T2.as.symbol.`other'...(fn.FN.LI |
| ac80 | 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 2d 77 69 74 68 | ST1.LIST2)..(defalias.'-zip-with |
| aca0 | 20 23 5b 37 37 31 20 22 5c 33 30 30 02 02 01 5c 32 30 33 23 00 5c 32 31 31 5c 32 30 33 23 00 01 | .#[771."\300...\203#.\211\203#.. |
| acc0 | 40 01 40 06 07 02 02 5c 22 05 42 5c 32 36 32 05 03 41 5c 32 36 32 04 02 41 5c 32 36 36 5c 32 30 | @.@....\".B\262..A\262..A\266\20 |
| ace0 | 33 5c 32 30 32 03 00 02 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e | 3\202...\237\207".[nil].11.(#$.. |
| ad00 | 20 34 33 38 32 35 29 5d 29 0a 23 40 34 39 32 20 5a 69 70 20 4c 49 53 54 53 20 74 6f 67 65 74 68 | .43825)]).#@492.Zip.LISTS.togeth |
| ad20 | 65 72 2e 20 20 47 72 6f 75 70 20 74 68 65 20 68 65 61 64 20 6f 66 20 65 61 63 68 20 6c 69 73 74 | er...Group.the.head.of.each.list |
| ad40 | 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 0a 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 | ,.followed.by.the.second.element |
| ad60 | 73 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 20 54 68 65 20 6c | s.of.each.list,.and.so.on..The.l |
| ad80 | 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 0a 67 72 6f 75 70 69 6e 67 73 | engths.of.the.returned.groupings |
| ada0 | 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 | .are.equal.to.the.length.of.the. |
| adc0 | 73 68 6f 72 74 65 73 74 20 69 6e 70 75 74 20 6c 69 73 74 2e 0a 0a 49 66 20 74 77 6f 20 6c 69 73 | shortest.input.list...If.two.lis |
| ade0 | 74 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 61 73 20 61 72 67 75 6d 65 6e 74 73 2c 20 72 65 | ts.are.provided.as.arguments,.re |
| ae00 | 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 61 73 20 61 20 6c 69 73 74 0a 6f 66 20 | turn.the.groupings.as.a.list.of. |
| ae20 | 63 6f 6e 73 20 63 65 6c 6c 73 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 72 65 74 75 72 6e 20 74 68 | cons.cells..Otherwise,.return.th |
| ae40 | 65 20 67 72 6f 75 70 69 6e 67 73 20 61 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 2e 0a | e.groupings.as.a.list.of.lists.. |
| ae60 | 0a 50 6c 65 61 73 65 20 6e 6f 74 65 21 20 54 68 69 73 20 64 69 73 74 69 6e 63 74 69 6f 6e 20 69 | .Please.note!.This.distinction.i |
| ae80 | 73 20 62 65 69 6e 67 20 72 65 6d 6f 76 65 64 20 69 6e 20 61 6e 20 75 70 63 6f 6d 69 6e 67 20 33 | s.being.removed.in.an.upcoming.3 |
| aea0 | 2e 30 0a 72 65 6c 65 61 73 65 20 6f 66 20 44 61 73 68 2e 20 49 66 20 79 6f 75 20 72 65 6c 79 20 | .0.release.of.Dash..If.you.rely. |
| aec0 | 6f 6e 20 74 68 69 73 20 62 65 68 61 76 69 6f 72 2c 20 75 73 65 20 2d 7a 69 70 2d 70 61 69 72 20 | on.this.behavior,.use.-zip-pair. |
| aee0 | 69 6e 73 74 65 61 64 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 | instead...(fn.&rest.LISTS)..(def |
| af00 | 61 6c 69 61 73 20 27 2d 7a 69 70 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 32 00 5c 33 30 | alias.'-zip.#[128."\211\2052.\30 |
| af20 | 30 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 33 1d 00 5c 33 30 33 5c 33 30 34 03 5c 22 01 42 5c | 0\301\302.\"\203..\303\304.\".B\ |
| af40 | 32 36 32 01 5c 33 30 33 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 31 31 5c 32 | 262.\303\305.\"\262.\202..\211\2 |
| af60 | 33 37 5c 32 36 32 01 01 47 5c 33 30 36 55 5c 32 30 33 2f 00 5c 33 30 33 5c 33 30 37 02 5c 22 5c | 37\262..G\306U\203/.\303\307.\"\ |
| af80 | 32 30 32 30 00 5c 32 31 31 5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c 3f | 2020.\211\262.\207".[nil.-none\? |
| afa0 | 20 6e 75 6c 6c 20 6d 61 70 63 61 72 20 63 61 72 20 63 64 72 20 32 20 23 5b 32 35 37 20 22 5c 32 | .null.mapcar.car.cdr.2.#[257."\2 |
| afc0 | 31 31 40 01 41 40 42 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d | 11@.A@B\207".[].3."\n\n(fn.IT)"] |
| afe0 | 5d 20 35 20 28 23 24 20 2e 20 34 34 33 30 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].5.(#$...44304)]).(byte-code."\ |
| b000 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 | 300\301\302\303#\210\300\301\304 |
| b020 | 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 | \303#\210\305\306\301\"\207".[fu |
| b040 | 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 | nction-put.-zip.pure.t.side-effe |
| b060 | 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 7a 69 70 2d 70 61 69 72 5d 20 34 29 0a 23 | ct-free.defalias.-zip-pair].4).# |
| b080 | 40 31 37 37 20 5a 69 70 20 4c 49 53 54 53 2c 20 77 69 74 68 20 46 49 4c 4c 2d 56 41 4c 55 45 20 | @177.Zip.LISTS,.with.FILL-VALUE. |
| b0a0 | 70 61 64 64 65 64 20 6f 6e 74 6f 20 74 68 65 20 73 68 6f 72 74 65 72 20 6c 69 73 74 73 2e 20 54 | padded.onto.the.shorter.lists..T |
| b0c0 | 68 65 0a 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 67 72 6f 75 70 | he.lengths.of.the.returned.group |
| b0e0 | 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 | ings.are.equal.to.the.length.of. |
| b100 | 74 68 65 0a 6c 6f 6e 67 65 73 74 20 69 6e 70 75 74 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 49 4c | the.longest.input.list...(fn.FIL |
| b120 | 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | L-VALUE.&rest.LISTS)..(defalias. |
| b140 | 27 2d 7a 69 70 2d 66 69 6c 6c 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 30 5c 33 | '-zip-fill.#[385."\300\301\300\3 |
| b160 | 30 32 05 05 42 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2d 7a 69 70 20 2d 70 61 64 5d | 02..B\"\"\207".[apply.-zip.-pad] |
| b180 | 20 38 20 28 23 24 20 2e 20 34 35 31 38 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | .8.(#$...45189)]).(byte-code."\3 |
| b1a0 | 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c | 00\301\302\303#\210\300\301\304\ |
| b1c0 | 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 2d 66 69 6c | 303#\207".[function-put.-zip-fil |
| b1e0 | 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 | l.pure.t.side-effect-free].4).#@ |
| b200 | 32 34 31 20 55 6e 7a 69 70 20 4c 49 53 54 53 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 | 241.Unzip.LISTS...This.works.jus |
| b220 | 74 20 6c 69 6b 65 20 60 2d 7a 69 70 27 20 62 75 74 20 74 61 6b 65 73 20 61 20 6c 69 73 74 20 6f | t.like.`-zip'.but.takes.a.list.o |
| b240 | 66 20 6c 69 73 74 73 20 69 6e 73 74 65 61 64 20 6f 66 0a 61 20 76 61 72 69 61 62 6c 65 20 6e 75 | f.lists.instead.of.a.variable.nu |
| b260 | 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 20 73 75 63 68 20 74 68 61 74 0a 0a 20 20 | mber.of.arguments,.such.that.... |
| b280 | 28 2d 75 6e 7a 69 70 20 28 2d 7a 69 70 20 4c 31 20 4c 32 20 4c 33 20 2e 2e 2e 29 29 0a 0a 69 73 | (-unzip.(-zip.L1.L2.L3....))..is |
| b2a0 | 20 69 64 65 6e 74 69 74 79 20 28 67 69 76 65 6e 20 74 68 61 74 20 74 68 65 20 6c 69 73 74 73 20 | .identity.(given.that.the.lists. |
| b2c0 | 61 72 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a | are.the.same.length)...See.also: |
| b2e0 | 20 60 2d 7a 69 70 27 0a 0a 28 66 6e 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | .`-zip'..(fn.LISTS)..(defalias.' |
| b300 | 2d 75 6e 7a 69 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b | -unzip.#[257."\300\301.\"\207".[ |
| b320 | 61 70 70 6c 79 20 2d 7a 69 70 5d 20 34 20 28 23 24 20 2e 20 34 35 35 37 32 29 5d 29 0a 23 40 31 | apply.-zip].4.(#$...45572)]).#@1 |
| b340 | 31 32 20 52 65 74 75 72 6e 20 61 6e 20 69 6e 66 69 6e 69 74 65 20 63 6f 70 79 20 6f 66 20 4c 49 | 12.Return.an.infinite.copy.of.LI |
| b360 | 53 54 20 74 68 61 74 20 77 69 6c 6c 20 63 79 63 6c 65 20 74 68 72 6f 75 67 68 20 74 68 65 0a 65 | ST.that.will.cycle.through.the.e |
| b380 | 6c 65 6d 65 6e 74 73 20 61 6e 64 20 72 65 70 65 61 74 20 66 72 6f 6d 20 74 68 65 20 62 65 67 69 | lements.and.repeat.from.the.begi |
| b3a0 | 6e 6e 69 6e 67 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 | nning...(fn.LIST)..(defalias.'-c |
| b3c0 | 79 63 6c 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 31 31 01 5c 32 34 34 | ycle.#[257."\300\301.\"\211.\244 |
| b3e0 | 5c 32 30 37 22 20 5b 2d 6d 61 70 20 69 64 65 6e 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 34 35 | \207".[-map.identity].4.(#$...45 |
| b400 | 38 39 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | 891)]).(byte-code."\300\301\302\ |
| b420 | 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b | 303#\210\300\301\304\303#\207".[ |
| b440 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 79 63 6c 65 20 70 75 72 65 20 74 20 73 69 64 65 2d | function-put.-cycle.pure.t.side- |
| b460 | 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 32 38 20 41 70 70 65 6e 64 73 20 46 49 | effect-free].4).#@128.Appends.FI |
| b480 | 4c 4c 2d 56 41 4c 55 45 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 65 61 63 68 20 6c 69 73 74 | LL-VALUE.to.the.end.of.each.list |
| b4a0 | 20 69 6e 20 4c 49 53 54 53 20 73 75 63 68 20 74 68 61 74 20 74 68 65 79 0a 77 69 6c 6c 20 61 6c | .in.LISTS.such.that.they.will.al |
| b4c0 | 6c 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 28 66 6e 20 46 49 4c | l.have.the.same.length...(fn.FIL |
| b4e0 | 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | L-VALUE.&rest.LISTS)..(defalias. |
| b500 | 27 2d 70 61 64 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 33 30 32 5c 33 30 33 | '-pad.#[385."\300\301.\"\302\303 |
| b520 | 5c 33 30 34 03 5c 22 21 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 | \304.\"!\305\306\307\310\311\312 |
| b540 | 06 09 06 07 5c 22 5c 33 31 33 5c 22 5c 33 31 34 5c 33 31 35 25 03 5c 22 5c 32 30 37 22 20 5b 2d | ....\"\313\"\314\315%.\"\207".[- |
| b560 | 61 6e 6e 6f 74 61 74 65 20 6c 65 6e 67 74 68 20 2d 6d 61 78 20 2d 6d 61 70 20 63 61 72 20 6d 61 | annotate.length.-max.-map.car.ma |
| b580 | 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 01 41 5c | pcar.make-byte-code.257."\302.A\ |
| b5a0 | 33 30 33 5c 33 30 31 04 40 5a 5c 33 30 30 5c 22 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 | 303\301.@Z\300\"\"\207".vconcat. |
| b5c0 | 76 65 63 74 6f 72 20 5b 61 70 70 65 6e 64 20 2d 72 65 70 65 61 74 5d 20 36 20 22 5c 6e 5c 6e 28 | vector.[append.-repeat].6."\n\n( |
| b5e0 | 66 6e 20 49 54 29 22 5d 20 31 32 20 28 23 24 20 2e 20 34 36 31 39 38 29 5d 29 0a 23 40 31 34 31 | fn.IT)"].12.(#$...46198)]).#@141 |
| b600 | 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 20 63 65 6c 6c 73 20 77 68 65 | .Return.a.list.of.cons.cells.whe |
| b620 | 72 65 20 65 61 63 68 20 63 65 6c 6c 20 69 73 20 46 4e 20 61 70 70 6c 69 65 64 20 74 6f 20 65 61 | re.each.cell.is.FN.applied.to.ea |
| b640 | 63 68 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 70 61 69 72 65 64 20 77 69 74 68 20 74 | ch.element.of.LIST.paired.with.t |
| b660 | 68 65 20 75 6e 6d 6f 64 69 66 69 65 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a | he.unmodified.element.of.LIST... |
| b680 | 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6e 6e 6f 74 61 | (fn.FN.LIST)..(defalias.'-annota |
| b6a0 | 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 5c 22 02 5c 22 5c 32 30 37 22 20 5b | te.#[514."\300\301..\".\"\207".[ |
| b6c0 | 2d 7a 69 70 20 2d 6d 61 70 5d 20 36 20 28 23 24 20 2e 20 34 36 35 39 33 29 5d 29 0a 23 40 35 31 | -zip.-map].6.(#$...46593)]).#@51 |
| b6e0 | 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 61 6e 6e 6f 74 61 74 65 | .Anaphoric.version.of.`-annotate |
| b700 | 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d | '...(fn.FORM.LIST)..(defalias.'- |
| b720 | 2d 61 6e 6e 6f 74 61 74 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c | -annotate.'(macro...#[514."\300\ |
| b740 | 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 61 6e 6e 6f 74 61 74 65 20 6c 61 6d 62 | 301\302.E.E\207".[-annotate.lamb |
| b760 | 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 36 38 31 37 29 5d 29 29 0a 28 70 75 74 20 | da.(it)].6.(#$...46817)])).(put. |
| b780 | 27 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 | '--annotate.'edebug-form-spec.'( |
| b7a0 | 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 34 30 20 48 65 6c 70 65 72 20 66 6f 72 20 60 2d 74 | form.form)).#@140.Helper.for.`-t |
| b7c0 | 61 62 6c 65 27 20 61 6e 64 20 60 2d 74 61 62 6c 65 2d 66 6c 61 74 27 2e 0a 0a 49 66 20 61 20 6c | able'.and.`-table-flat'...If.a.l |
| b7e0 | 69 73 74 20 6f 76 65 72 66 6c 6f 77 73 2c 20 63 61 72 72 79 20 74 6f 20 74 68 65 20 72 69 67 68 | ist.overflows,.carry.to.the.righ |
| b800 | 74 20 61 6e 64 20 72 65 73 65 74 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 53 | t.and.reset.the.list...(fn.LISTS |
| b820 | 20 52 45 53 54 4f 52 45 2d 4c 49 53 54 53 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 29 1f 0a 28 64 | .RESTORE-LISTS.&optional.RE)..(d |
| b840 | 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 20 23 5b 37 37 30 | efalias.'dash--table-carry.#[770 |
| b860 | 20 22 02 40 5c 32 30 36 08 00 02 5c 33 30 30 5c 32 33 32 3f 5c 32 30 35 43 00 02 02 40 5c 32 34 | .".@\206...\300\232?\205C...@\24 |
| b880 | 30 5c 32 31 30 02 5c 32 31 31 41 40 5c 32 31 31 02 41 02 41 5c 32 34 30 5c 32 31 30 5c 32 36 36 | 0\210.\211A@\211.A.A\240\210\266 |
| b8a0 | 03 02 41 5c 32 36 32 03 01 41 5c 32 36 32 02 5c 32 31 31 5c 32 30 33 00 00 5c 32 31 31 40 5c 32 | ..A\262..A\262.\211\203..\211@\2 |
| b8c0 | 33 37 01 5c 32 31 31 41 02 02 41 40 42 5c 32 34 30 5c 32 36 36 03 5c 32 31 31 5c 33 30 31 5c 32 | 37.\211A..A@B\240\266.\211\301\2 |
| b8e0 | 34 30 5c 32 31 30 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 28 6e 69 | 40\210\211A\262.\202..\207".[(ni |
| b900 | 6c 29 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 34 37 30 32 36 29 5d 29 0a 23 40 33 35 32 20 43 | l).nil].8.(#$...47026)]).#@352.C |
| b920 | 6f 6d 70 75 74 65 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 53 20 75 73 | ompute.outer.product.of.LISTS.us |
| b940 | 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 46 4e 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 | ing.function.FN...The.function.F |
| b960 | 4e 20 73 68 6f 75 6c 64 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 61 72 69 74 79 20 61 73 20 | N.should.have.the.same.arity.as. |
| b980 | 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 73 75 70 70 6c 69 65 64 20 6c 69 73 74 73 2e 0a 0a 54 | the.number.of.supplied.lists...T |
| b9a0 | 68 65 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 69 73 20 63 6f 6d 70 75 74 65 64 20 62 79 20 | he.outer.product.is.computed.by. |
| b9c0 | 61 70 70 6c 79 69 6e 67 20 66 6e 20 74 6f 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 0a 63 6f 6d 62 | applying.fn.to.all.possible.comb |
| b9e0 | 69 6e 61 74 69 6f 6e 73 20 63 72 65 61 74 65 64 20 62 79 20 74 61 6b 69 6e 67 20 6f 6e 65 20 65 | inations.created.by.taking.one.e |
| ba00 | 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 65 61 63 68 20 6c 69 73 74 20 69 6e 0a 6f 72 64 65 72 2e 20 | lement.from.each.list.in.order.. |
| ba20 | 20 54 68 65 20 64 69 6d 65 6e 73 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 | .The.dimension.of.the.result.is. |
| ba40 | 28 6c 65 6e 67 74 68 20 6c 69 73 74 73 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 62 | (length.lists)...See.also:.`-tab |
| ba60 | 6c 65 2d 66 6c 61 74 27 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 | le-flat'..(fn.FN.&rest.LISTS)..( |
| ba80 | 64 65 66 61 6c 69 61 73 20 27 2d 74 61 62 6c 65 20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 | defalias.'-table.#[385."\300.!\3 |
| baa0 | 30 31 02 21 5c 33 30 32 03 47 5c 33 30 33 5c 22 01 40 5c 32 30 33 31 00 5c 33 30 34 05 5c 33 30 | 01.!\302.G\303\".@\2031.\304.\30 |
| bac0 | 35 5c 33 30 36 06 07 5c 22 5c 22 01 5c 32 31 31 02 02 40 42 5c 32 34 30 5c 32 36 36 02 04 5c 32 | 5\306..\"\".\211..@B\240\266..\2 |
| bae0 | 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 37 05 05 04 23 5c 32 36 36 02 5c 32 30 32 0b 00 5c | 11@A\240\210\307...#\266.\202..\ |
| bb00 | 33 30 31 01 21 40 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c | 301.!@\237\207".[copy-sequence.l |
| bb20 | 61 73 74 20 6d 61 6b 65 2d 6c 69 73 74 20 6e 69 6c 20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72 | ast.make-list.nil.apply.-map.car |
| bb40 | 20 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 5d 20 31 30 20 28 23 24 20 2e 20 34 37 33 | .dash--table-carry].10.(#$...473 |
| bb60 | 39 31 29 5d 29 0a 23 40 35 33 39 20 43 6f 6d 70 75 74 65 20 66 6c 61 74 20 6f 75 74 65 72 20 70 | 91)]).#@539.Compute.flat.outer.p |
| bb80 | 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 53 20 75 73 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 46 | roduct.of.LISTS.using.function.F |
| bba0 | 4e 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 68 61 76 65 20 | N...The.function.FN.should.have. |
| bbc0 | 74 68 65 20 73 61 6d 65 20 61 72 69 74 79 20 61 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a | the.same.arity.as.the.number.of. |
| bbe0 | 73 75 70 70 6c 69 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 20 6f 75 74 65 72 20 70 72 6f 64 75 | supplied.lists...The.outer.produ |
| bc00 | 63 74 20 69 73 20 63 6f 6d 70 75 74 65 64 20 62 79 20 61 70 70 6c 79 69 6e 67 20 66 6e 20 74 6f | ct.is.computed.by.applying.fn.to |
| bc20 | 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 0a 63 6f 6d 62 69 6e 61 74 69 6f 6e 73 20 63 72 65 61 74 | .all.possible.combinations.creat |
| bc40 | 65 64 20 62 79 20 74 61 6b 69 6e 67 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 65 61 | ed.by.taking.one.element.from.ea |
| bc60 | 63 68 20 6c 69 73 74 20 69 6e 0a 6f 72 64 65 72 2e 20 20 54 68 65 20 72 65 73 75 6c 74 73 20 61 | ch.list.in.order...The.results.a |
| bc80 | 72 65 20 66 6c 61 74 74 65 6e 65 64 2c 20 69 67 6e 6f 72 69 6e 67 20 74 68 65 20 74 65 6e 73 6f | re.flattened,.ignoring.the.tenso |
| bca0 | 72 20 73 74 72 75 63 74 75 72 65 0a 6f 66 20 74 68 65 20 72 65 73 75 6c 74 2e 20 20 54 68 69 73 | r.structure.of.the.result...This |
| bcc0 | 20 69 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 63 61 6c 6c 69 6e 67 3a 0a 0a 20 20 28 2d | .is.equivalent.to.calling:....(- |
| bce0 | 66 6c 61 74 74 65 6e 2d 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 6c 69 73 74 73 29 29 20 28 61 | flatten-n.(1-.(length.lists)).(a |
| bd00 | 70 70 6c 79 20 5c 3d 27 2d 74 61 62 6c 65 20 66 6e 20 6c 69 73 74 73 29 29 0a 0a 62 75 74 20 74 | pply.\='-table.fn.lists))..but.t |
| bd20 | 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 68 65 72 65 20 69 73 20 6d 75 63 68 20 6d | he.implementation.here.is.much.m |
| bd40 | 6f 72 65 20 65 66 66 69 63 69 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 | ore.efficient...See.also:.`-flat |
| bd60 | 74 65 6e 2d 6e 27 2c 20 60 2d 74 61 62 6c 65 27 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 4c | ten-n',.`-table'..(fn.FN.&rest.L |
| bd80 | 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 62 6c 65 2d 66 6c 61 74 20 23 5b | ISTS)..(defalias.'-table-flat.#[ |
| bda0 | 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 30 32 01 40 5c 32 30 33 28 00 5c 33 30 | 385."\300.!\301.!\302.@\203(.\30 |
| bdc0 | 33 05 5c 33 30 34 5c 33 30 35 06 07 5c 22 5c 22 5c 32 31 31 02 42 5c 32 36 32 02 04 5c 32 31 31 | 3.\304\305..\"\"\211.B\262..\211 |
| bde0 | 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 36 05 05 5c 22 5c 32 36 36 02 5c 32 30 32 07 00 5c 32 31 | @A\240\210\306..\"\266.\202..\21 |
| be00 | 31 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6e | 1\237\207".[copy-sequence.last.n |
| be20 | 69 6c 20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72 20 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 | il.apply.-map.car.dash--table-ca |
| be40 | 72 72 79 5d 20 31 30 20 28 23 24 20 2e 20 34 37 39 38 30 29 5d 29 0a 23 40 32 33 34 20 54 61 6b | rry].10.(#$...47980)]).#@234.Tak |
| be60 | 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 6e 64 20 66 65 77 65 72 20 74 68 61 6e 20 74 | e.a.function.FN.and.fewer.than.t |
| be80 | 68 65 20 6e 6f 72 6d 61 6c 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 46 4e 2c 0a 61 6e 64 20 72 | he.normal.arguments.to.FN,.and.r |
| bea0 | 65 74 75 72 6e 20 61 20 66 6e 20 74 68 61 74 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 | eturn.a.fn.that.takes.a.variable |
| bec0 | 20 6e 75 6d 62 65 72 20 6f 66 20 61 64 64 69 74 69 6f 6e 61 6c 20 41 52 47 53 2e 0a 57 68 65 6e | .number.of.additional.ARGS..When |
| bee0 | 20 63 61 6c 6c 65 64 2c 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 63 | .called,.the.returned.function.c |
| bf00 | 61 6c 6c 73 20 46 4e 20 77 69 74 68 20 41 52 47 53 20 66 69 72 73 74 20 61 6e 64 0a 74 68 65 6e | alls.FN.with.ARGS.first.and.then |
| bf20 | 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 73 2e 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 | .additional.args...(fn.FN.&rest. |
| bf40 | 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 61 6c 20 23 5b 33 38 35 | ARGS)..(defalias.'-partial.#[385 |
| bf60 | 20 22 5c 33 30 30 5c 33 30 31 03 03 23 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 6c 79 2d | ."\300\301..#\207".[apply.apply- |
| bf80 | 70 61 72 74 69 61 6c 6c 79 5d 20 36 20 28 23 24 20 2e 20 34 38 37 33 33 29 5d 29 0a 23 40 31 35 | partially].6.(#$...48733)]).#@15 |
| bfa0 | 31 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 | 1.Return.the.index.of.the.first. |
| bfc0 | 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 4c 49 53 54 20 77 68 69 63 68 0a | element.in.the.given.LIST.which. |
| bfe0 | 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 65 72 79 20 65 6c 65 6d 65 6e 74 20 45 4c | is.equal.to.the.query.element.EL |
| c000 | 45 4d 2c 20 6f 72 20 6e 69 6c 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 0a 73 75 63 68 20 65 | EM,.or.nil.if.there.is.no.such.e |
| c020 | 6c 65 6d 65 6e 74 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | lement...(fn.ELEM.LIST)..(defali |
| c040 | 61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 40 | as.'-elem-index.#[514."\300..\"@ |
| c060 | 5c 32 30 37 22 20 5b 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 5d 20 35 20 28 23 24 20 2e 20 34 39 | \207".[-elem-indices].5.(#$...49 |
| c080 | 30 35 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | 058)]).(byte-code."\300\301\302\ |
| c0a0 | 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b | 303#\210\300\301\304\303#\207".[ |
| c0c0 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 6c 65 6d 2d 69 6e 64 65 78 20 70 75 72 65 20 74 20 | function-put.-elem-index.pure.t. |
| c0e0 | 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 31 33 20 52 65 74 75 72 | side-effect-free].4).#@113.Retur |
| c100 | 6e 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e | n.the.indices.of.all.elements.in |
| c120 | 20 4c 49 53 54 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 65 72 79 0a 65 6c 65 6d 65 6e 74 | .LIST.equal.to.the.query.element |
| c140 | 20 45 4c 45 4d 2c 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 | .ELEM,.in.ascending.order...(fn. |
| c160 | 45 4c 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 | ELEM.LIST)..(defalias.'-elem-ind |
| c180 | 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 22 02 5c 22 5c 32 | ices.#[514."\300\301\302.\".\"\2 |
| c1a0 | 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 2d 70 61 72 74 69 61 6c 20 65 71 75 61 | 07".[-find-indices.-partial.equa |
| c1c0 | 6c 5d 20 36 20 28 23 24 20 2e 20 34 39 34 30 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | l].6.(#$...49403)]).(byte-code." |
| c1e0 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 | \300\301\302\303#\210\300\301\30 |
| c200 | 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 6c 65 6d 2d | 4\303#\207".[function-put.-elem- |
| c220 | 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d | indices.pure.t.side-effect-free] |
| c240 | 20 34 29 0a 23 40 31 31 31 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 | .4).#@111.Return.the.indices.of. |
| c260 | 61 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 73 61 74 69 73 66 79 69 6e 67 20 | all.elements.in.LIST.satisfying. |
| c280 | 74 68 65 0a 70 72 65 64 69 63 61 74 65 20 50 52 45 44 2c 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 | the.predicate.PRED,.in.ascending |
| c2a0 | 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | .order...(fn.PRED.LIST)..(defali |
| c2c0 | 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | as.'-find-indices.#[514."\300\30 |
| c2e0 | 31 5c 33 30 32 03 5c 33 30 33 01 5c 32 30 33 24 00 01 40 06 07 01 21 5c 32 30 35 14 00 01 43 04 | 1\302.\303.\203$..@...!\205...C. |
| c300 | 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 05 | B\262.\210\211T\262..A\262.\202. |
| c320 | 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c | .\266.\211\237\262.\"\207".[appl |
| c340 | 79 20 61 70 70 65 6e 64 20 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 34 39 37 33 38 29 5d | y.append.nil.0].10.(#$...49738)] |
| c360 | 29 0a 23 40 35 35 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 | ).#@55.Anaphoric.version.of.`-fi |
| c380 | 6e 64 2d 69 6e 64 69 63 65 73 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 | nd-indices'...(fn.FORM.LIST)..(d |
| c3a0 | 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 27 28 6d 61 63 72 6f 20 | efalias.'--find-indices.'(macro. |
| c3c0 | 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b | ..#[514."\300\301\302.E.E\207".[ |
| c3e0 | 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 | -find-indices.lambda.(it)].6.(#$ |
| c400 | 20 2e 20 35 30 30 32 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 | ...50023)])).(put.'--find-indice |
| c420 | 73 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 | s.'edebug-form-spec.'(form.form) |
| c440 | 29 0a 23 40 31 38 36 20 54 61 6b 65 20 61 20 70 72 65 64 69 63 61 74 65 20 50 52 45 44 20 61 6e | ).#@186.Take.a.predicate.PRED.an |
| c460 | 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 | d.a.LIST.and.return.the.index.of |
| c480 | 20 74 68 65 0a 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 6c 69 73 74 20 73 | .the.first.element.in.the.list.s |
| c4a0 | 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69 63 61 74 65 2c 20 6f 72 20 6e 69 6c 20 | atisfying.the.predicate,.or.nil. |
| c4c0 | 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 | if.there.is.no.such.element...Se |
| c4e0 | 65 20 61 6c 73 6f 20 60 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 | e.also.`-first'...(fn.PRED.LIST) |
| c500 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 | ..(defalias.'-find-index.#[514." |
| c520 | 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 5d 20 35 | \300..\"@\207".[-find-indices].5 |
| c540 | 20 28 23 24 20 2e 20 35 30 32 34 38 29 5d 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 76 | .(#$...50248)]).#@53.Anaphoric.v |
| c560 | 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 69 6e 64 65 78 27 2e 0a 0a 28 66 6e 20 46 4f | ersion.of.`-find-index'...(fn.FO |
| c580 | 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 65 | RM.LIST)..(defalias.'--find-inde |
| c5a0 | 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 | x.'(macro...#[514."\300\301\302. |
| c5c0 | 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 65 78 20 6c 61 6d 62 64 61 20 28 69 74 | E.E\207".[-find-index.lambda.(it |
| c5e0 | 29 5d 20 36 20 28 23 24 20 2e 20 35 30 35 31 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e | )].6.(#$...50517)])).(put.'--fin |
| c600 | 64 2d 69 6e 64 65 78 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d | d-index.'edebug-form-spec.'(form |
| c620 | 20 66 6f 72 6d 29 29 0a 23 40 31 38 34 20 54 61 6b 65 20 61 20 70 72 65 64 69 63 61 74 65 20 50 | .form)).#@184.Take.a.predicate.P |
| c640 | 52 45 44 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e | RED.and.a.LIST.and.return.the.in |
| c660 | 64 65 78 20 6f 66 20 74 68 65 0a 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 6c | dex.of.the.last.element.in.the.l |
| c680 | 69 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69 63 61 74 65 2c 20 6f 72 | ist.satisfying.the.predicate,.or |
| c6a0 | 20 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 | .nil.if.there.is.no.such.element |
| c6c0 | 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c | ...See.also.`-last'...(fn.PRED.L |
| c6e0 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 | IST)..(defalias.'-find-last-inde |
| c700 | 78 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 5c 22 21 5c 32 30 37 22 20 5b 2d 6c 61 | x.#[514."\300\301..\"!\207".[-la |
| c720 | 73 74 2d 69 74 65 6d 20 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 5d 20 36 20 28 23 24 20 2e 20 35 | st-item.-find-indices].6.(#$...5 |
| c740 | 30 37 33 34 29 5d 29 0a 23 40 35 38 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f | 0734)]).#@58.Anaphoric.version.o |
| c760 | 66 20 60 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 | f.`-find-last-index'...(fn.FORM. |
| c780 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e | LIST)..(defalias.'--find-last-in |
| c7a0 | 64 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | dex.'(macro...#[514."\300\301\30 |
| c7c0 | 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 6c 61 6d | 2.E.E\207".[-find-last-index.lam |
| c7e0 | 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 35 31 30 32 31 29 5d 29 29 0a 23 40 31 32 | bda.(it)].6.(#$...51021)])).#@12 |
| c800 | 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 68 6f 73 65 20 65 6c 65 6d 65 6e 74 73 20 61 | 3.Return.a.list.whose.elements.a |
| c820 | 72 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 20 73 65 6c 65 63 74 65 64 0a 61 | re.elements.from.LIST.selected.a |
| c840 | 73 20 60 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f 72 20 61 6c 6c 20 69 20 66 72 6f 6d 20 | s.`(nth.i.list)`.for.all.i.from. |
| c860 | 49 4e 44 49 43 45 53 2e 0a 0a 28 66 6e 20 49 4e 44 49 43 45 53 20 4c 49 53 54 29 1f 0a 28 64 65 | INDICES...(fn.INDICES.LIST)..(de |
| c880 | 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 | falias.'-select-by-indices.#[514 |
| c8a0 | 20 22 5c 33 30 30 02 5c 33 30 31 01 5c 32 30 33 1c 00 01 40 5c 32 31 31 05 38 04 42 5c 32 36 32 | ."\300.\301.\203...@\211.8.B\262 |
| c8c0 | 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 | .\210\211T\262..A\262.\202..\266 |
| c8e0 | 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 35 | .\211\237\207".[nil.0].8.(#$...5 |
| c900 | 31 32 30 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | 1202)]).(byte-code."\300\301\302 |
| c920 | 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 | \303#\210\300\301\304\303#\207". |
| c940 | 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 | [function-put.-select-by-indices |
| c960 | 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 | .pure.t.side-effect-free].4).#@2 |
| c980 | 38 33 20 53 65 6c 65 63 74 20 43 4f 4c 55 4d 4e 53 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 | 83.Select.COLUMNS.from.TABLE...T |
| c9a0 | 41 42 4c 45 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 77 68 65 72 65 20 65 61 | ABLE.is.a.list.of.lists.where.ea |
| c9c0 | 63 68 20 65 6c 65 6d 65 6e 74 20 72 65 70 72 65 73 65 6e 74 73 20 6f 6e 65 20 72 6f 77 2e 0a 49 | ch.element.represents.one.row..I |
| c9e0 | 74 20 69 73 20 61 73 73 75 6d 65 64 20 65 61 63 68 20 72 6f 77 20 68 61 73 20 74 68 65 20 73 61 | t.is.assumed.each.row.has.the.sa |
| ca00 | 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 45 61 63 68 20 72 6f 77 20 69 73 20 74 72 61 6e 73 66 6f 72 | me.length...Each.row.is.transfor |
| ca20 | 6d 65 64 20 73 75 63 68 20 74 68 61 74 20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63 69 66 69 65 64 | med.such.that.only.the.specified |
| ca40 | 20 43 4f 4c 55 4d 4e 53 20 61 72 65 0a 73 65 6c 65 63 74 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f | .COLUMNS.are.selected...See.also |
| ca60 | 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d | :.`-select-column',.`-select-by- |
| ca80 | 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d 4e 53 20 54 41 42 4c 45 29 1f 0a 28 64 | indices'..(fn.COLUMNS.TABLE)..(d |
| caa0 | 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 20 23 5b 35 31 34 20 22 | efalias.'-select-columns.#[514." |
| cac0 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c | \300\301\302\303\304\305..!\306\ |
| cae0 | 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d | "\307\310%.\"\207".[mapcar.make- |
| cb00 | 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 | byte-code.257."\301\300.\"\207". |
| cb20 | 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 | vconcat.vector.[-select-by-indic |
| cb40 | 65 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 39 20 28 23 24 20 2e 20 35 31 35 | es].4."\n\n(fn.IT)"].9.(#$...515 |
| cb60 | 38 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 87)]).(byte-code."\300\301\302\3 |
| cb80 | 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 | 03#\210\300\301\304\303#\207".[f |
| cba0 | 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 20 70 75 72 65 | unction-put.-select-columns.pure |
| cbc0 | 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 35 37 20 53 65 | .t.side-effect-free].4).#@257.Se |
| cbe0 | 6c 65 63 74 20 43 4f 4c 55 4d 4e 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 | lect.COLUMN.from.TABLE...TABLE.i |
| cc00 | 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 | s.a.list.of.lists.where.each.ele |
| cc20 | 6d 65 6e 74 20 72 65 70 72 65 73 65 6e 74 73 20 6f 6e 65 20 72 6f 77 2e 0a 49 74 20 69 73 20 61 | ment.represents.one.row..It.is.a |
| cc40 | 73 73 75 6d 65 64 20 65 61 63 68 20 72 6f 77 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 6c 65 6e | ssumed.each.row.has.the.same.len |
| cc60 | 67 74 68 2e 0a 0a 54 68 65 20 73 69 6e 67 6c 65 20 73 65 6c 65 63 74 65 64 20 63 6f 6c 75 6d 6e | gth...The.single.selected.column |
| cc80 | 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 6c 69 73 74 2e 0a 0a 53 65 65 20 61 6c 73 | .is.returned.as.a.list...See.als |
| cca0 | 6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 | o:.`-select-columns',.`-select-b |
| ccc0 | 79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d 4e 20 54 41 42 4c 45 29 1f 0a 28 | y-indices'..(fn.COLUMN.TABLE)..( |
| cce0 | 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 20 23 5b 35 31 34 20 22 | defalias.'-select-column.#[514." |
| cd00 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 | \300\301\302\303\304\305\306\307 |
| cd20 | 06 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 | ..!\310\"\311\312%.\"\"\207".[ap |
| cd40 | 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 | ply.append.mapcar.make-byte-code |
| cd60 | 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 43 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 | .257."\301\300C.\"\207".vconcat. |
| cd80 | 76 65 63 74 6f 72 20 5b 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 5d 20 34 20 22 5c | vector.[-select-by-indices].4."\ |
| cda0 | 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 31 20 28 23 24 20 2e 20 35 32 31 39 30 29 5d 29 0a 28 | n\n(fn.IT)"].11.(#$...52190)]).( |
| cdc0 | 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 | byte-code."\300\301\302\303#\210 |
| cde0 | 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e | \300\301\304\303#\207".[function |
| ce00 | 2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d | -put.-select-column.pure.t.side- |
| ce20 | 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 35 33 20 54 68 72 65 61 64 20 74 68 65 | effect-free].4).#@253.Thread.the |
| ce40 | 20 65 78 70 72 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 6e 73 65 72 74 20 | .expr.through.the.forms..Insert. |
| ce60 | 58 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 | X.as.the.second.item.in.the.firs |
| ce80 | 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66 20 69 | t.form,.making.a.list.of.it.if.i |
| cea0 | 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68 65 72 | t.is.not.a.list.already..If.ther |
| cec0 | 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 20 74 68 65 20 66 69 72 | e.are.more.forms,.insert.the.fir |
| cee0 | 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 73 65 63 6f 6e 64 20 69 74 65 6d 20 69 6e 20 73 65 | st.form.as.the.second.item.in.se |
| cf00 | 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 6c | cond.form,.etc...(fn.X.&optional |
| cf20 | 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 3e | .FORM.&rest.MORE)..(defalias.'-> |
| cf40 | 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 32 | .'(macro...#[641.".\204...\207\2 |
| cf60 | 31 31 5c 32 30 34 1b 00 01 3c 5c 32 30 33 17 00 01 40 03 03 41 42 42 5c 32 30 37 01 03 44 5c 32 | 11\204...<\203...@..ABB\207..D\2 |
| cf80 | 30 37 5c 33 30 30 5c 32 31 31 04 04 45 02 42 42 5c 32 30 37 22 20 5b 2d 3e 5d 20 37 20 28 23 24 | 07\300\211..E.BB\207".[->].7.(#$ |
| cfa0 | 20 2e 20 35 32 37 39 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f | ...52790)])).(put.'->.'edebug-fo |
| cfc0 | 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 26 72 65 73 74 20 5b 26 6f 72 20 73 79 6d 62 6f 6c | rm-spec.'(form.&rest.[&or.symbol |
| cfe0 | 70 20 28 73 65 78 70 20 26 72 65 73 74 20 66 6f 72 6d 29 5d 29 29 0a 23 40 32 34 39 20 54 68 72 | p.(sexp.&rest.form)])).#@249.Thr |
| d000 | 65 61 64 20 74 68 65 20 65 78 70 72 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 | ead.the.expr.through.the.forms.. |
| d020 | 49 6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 | Insert.X.as.the.last.item.in.the |
| d040 | 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 | .first.form,.making.a.list.of.it |
| d060 | 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 | .if.it.is.not.a.list.already..If |
| d080 | 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 20 74 68 | .there.are.more.forms,.insert.th |
| d0a0 | 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 6c 61 73 74 20 69 74 65 6d 20 69 6e | e.first.form.as.the.last.item.in |
| d0c0 | 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f | .second.form,.etc...(fn.X.&optio |
| d0e0 | 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | nal.FORM.&rest.MORE)..(defalias. |
| d100 | 27 2d 3e 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 | '->>.'(macro...#[641.".\204...\2 |
| d120 | 30 37 5c 32 31 31 5c 32 30 34 19 00 01 3c 5c 32 30 33 15 00 5c 33 30 30 02 04 43 5c 22 5c 32 30 | 07\211\204...<\203..\300..C\"\20 |
| d140 | 37 01 03 44 5c 32 30 37 5c 33 30 31 5c 32 31 31 04 04 45 02 42 42 5c 32 30 37 22 20 5b 61 70 70 | 7..D\207\301\211..E.BB\207".[app |
| d160 | 65 6e 64 20 2d 3e 3e 5d 20 37 20 28 23 24 20 2e 20 35 33 32 34 35 29 5d 29 29 0a 28 70 75 74 20 | end.->>].7.(#$...53245)])).(put. |
| d180 | 27 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 23 40 32 36 | '->>.'edebug-form-spec.'->).#@26 |
| d1a0 | 39 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 58 2c 20 | 9.Starting.with.the.value.of.X,. |
| d1c0 | 74 68 72 65 61 64 20 65 61 63 68 20 65 78 70 72 65 73 73 69 6f 6e 20 74 68 72 6f 75 67 68 20 46 | thread.each.expression.through.F |
| d1e0 | 4f 52 4d 53 2e 0a 0a 49 6e 73 65 72 74 20 58 20 61 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 | ORMS...Insert.X.at.the.position. |
| d200 | 73 69 67 6e 69 66 69 65 64 20 62 79 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 69 6e 20 | signified.by.the.symbol.`it'.in. |
| d220 | 74 68 65 20 66 69 72 73 74 0a 66 6f 72 6d 2e 20 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f | the.first.form...If.there.are.mo |
| d240 | 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 | re.forms,.insert.the.first.form. |
| d260 | 61 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 0a 73 69 67 6e 69 66 69 65 64 20 62 79 20 60 69 74 | at.the.position.signified.by.`it |
| d280 | 27 20 69 6e 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 | '.in.in.second.form,.etc...(fn.X |
| d2a0 | 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 3e 20 27 28 | .&rest.FORMS)..(defalias.'-->.'( |
| d2c0 | 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 42 42 5c 32 30 37 | macro...#[385."\300.\301.BBB\207 |
| d2e0 | 22 20 5b 2d 61 73 2d 3e 20 69 74 5d 20 36 20 28 23 24 20 2e 20 35 33 36 36 36 29 5d 29 29 0a 28 | ".[-as->.it].6.(#$...53666)])).( |
| d300 | 70 75 74 20 27 2d 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 | put.'-->.'edebug-form-spec.'(for |
| d320 | 6d 20 62 6f 64 79 29 29 0a 23 40 32 31 32 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 56 41 4c | m.body)).#@212.Starting.with.VAL |
| d340 | 55 45 2c 20 74 68 72 65 61 64 20 56 41 52 49 41 42 4c 45 20 74 68 72 6f 75 67 68 20 46 4f 52 4d | UE,.thread.VARIABLE.through.FORM |
| d360 | 53 2e 0a 0a 49 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 62 69 6e 64 20 56 41 52 49 | S...In.the.first.form,.bind.VARI |
| d380 | 41 42 4c 45 20 74 6f 20 56 41 4c 55 45 2e 20 20 49 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 66 6f | ABLE.to.VALUE...In.the.second.fo |
| d3a0 | 72 6d 2c 20 62 69 6e 64 0a 56 41 52 49 41 42 4c 45 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 | rm,.bind.VARIABLE.to.the.result. |
| d3c0 | 6f 66 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e | of.the.first.form,.and.so.forth. |
| d3e0 | 0a 0a 28 66 6e 20 56 41 4c 55 45 20 56 41 52 49 41 42 4c 45 20 26 72 65 73 74 20 46 4f 52 4d 53 | ..(fn.VALUE.VARIABLE.&rest.FORMS |
| d400 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 73 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b | )..(defalias.'-as->.'(macro...#[ |
| d420 | 36 34 32 20 22 5c 32 31 31 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 02 04 44 43 5c 33 30 31 | 642."\211\204...\207\300..DC\301 |
| d440 | 03 40 39 5c 32 30 33 19 00 03 40 05 44 5c 32 30 32 1b 00 03 40 05 05 41 42 42 42 45 5c 32 30 37 | .@9\203...@.D\202...@..ABBBE\207 |
| d460 | 22 20 5b 6c 65 74 20 2d 61 73 2d 3e 5d 20 39 20 28 23 24 20 2e 20 35 34 30 36 33 29 5d 29 29 0a | ".[let.-as->].9.(#$...54063)])). |
| d480 | 28 70 75 74 20 27 2d 61 73 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 | (put.'-as->.'edebug-form-spec.'( |
| d4a0 | 66 6f 72 6d 20 73 79 6d 62 6f 6c 70 20 62 6f 64 79 29 29 0a 23 40 31 36 33 20 57 68 65 6e 20 65 | form.symbolp.body)).#@163.When.e |
| d4c0 | 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 69 74 20 74 68 72 6f 75 67 | xpr.is.non-nil,.thread.it.throug |
| d4e0 | 68 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 3e 27 29 2c 0a 61 6e 64 | h.the.first.form.(via.`->'),.and |
| d500 | 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 | .when.that.result.is.non-nil,.th |
| d520 | 72 6f 75 67 68 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 | rough.the.next.form,.etc...(fn.X |
| d540 | 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 | .&optional.FORM.&rest.MORE)..(de |
| d560 | 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 | falias.'-some->.'(macro...#[641. |
| d580 | 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 06 | ".\204...\207\300\301!\302\303.. |
| d5a0 | 06 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c | .D\304...EE.BB\207".[make-symbol |
| d5c0 | 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 3e 5d 20 | ."result".-some->.-when-let.->]. |
| d5e0 | 31 30 20 28 23 24 20 2e 20 35 34 34 35 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 73 6f 6d 65 2d 3e | 10.(#$...54458)])).(put.'-some-> |
| d600 | 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 23 40 31 36 34 20 57 68 | .'edebug-form-spec.'->).#@164.Wh |
| d620 | 65 6e 20 65 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 69 74 20 74 68 | en.expr.is.non-nil,.thread.it.th |
| d640 | 72 6f 75 67 68 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 3e 3e 27 29 | rough.the.first.form.(via.`->>') |
| d660 | 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 | ,.and.when.that.result.is.non-ni |
| d680 | 6c 2c 20 74 68 72 6f 75 67 68 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a | l,.through.the.next.form,.etc... |
| d6a0 | 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 | (fn.X.&optional.FORM.&rest.MORE) |
| d6c0 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 3e 3e 20 27 28 6d 61 63 72 6f 20 2e 20 | ..(defalias.'-some->>.'(macro... |
| d6e0 | 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 | #[641.".\204...\207\300\301!\302 |
| d700 | 5c 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d | \303...D\304...EE.BB\207".[make- |
| d720 | 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 3e 3e 20 2d 77 68 65 6e 2d 6c | symbol."result".-some->>.-when-l |
| d740 | 65 74 20 2d 3e 3e 5d 20 31 30 20 28 23 24 20 2e 20 35 34 38 31 34 29 5d 29 29 0a 28 70 75 74 20 | et.->>].10.(#$...54814)])).(put. |
| d760 | 27 2d 73 6f 6d 65 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 | '-some->>.'edebug-form-spec.'->) |
| d780 | 0a 23 40 31 36 34 20 57 68 65 6e 20 65 78 70 72 20 69 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 | .#@164.When.expr.in.non-nil,.thr |
| d7a0 | 65 61 64 20 69 74 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 28 76 | ead.it.through.the.first.form.(v |
| d7c0 | 69 61 20 60 2d 2d 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 | ia.`-->'),.and.when.that.result. |
| d7e0 | 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 6f 75 67 68 20 74 68 65 20 6e 65 78 74 20 66 6f 72 | is.non-nil,.through.the.next.for |
| d800 | 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 | m,.etc...(fn.X.&optional.FORM.&r |
| d820 | 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 2d 3e 20 27 | est.MORE)..(defalias.'-some-->.' |
| d840 | 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 | (macro...#[641.".\204...\207\300 |
| d860 | 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 | \301!\302\303...D\304...EE.BB\20 |
| d880 | 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 2d | 7".[make-symbol."result".-some-- |
| d8a0 | 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 2d 3e 5d 20 31 30 20 28 23 24 20 2e 20 35 35 31 37 35 29 | >.-when-let.-->].10.(#$...55175) |
| d8c0 | 5d 29 29 0a 28 70 75 74 20 27 2d 73 6f 6d 65 2d 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d | ])).(put.'-some-->.'edebug-form- |
| d8e0 | 73 70 65 63 20 27 2d 3e 29 0a 23 40 31 37 36 20 47 72 61 64 65 20 65 6c 65 6d 65 6e 74 73 20 6f | spec.'->).#@176.Grade.elements.o |
| d900 | 66 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 41 52 41 54 4f 52 20 72 65 6c 61 74 69 6f 6e | f.LIST.using.COMPARATOR.relation |
| d920 | 2c 20 79 69 65 6c 64 69 6e 67 20 61 0a 70 65 72 6d 75 74 61 74 69 6f 6e 20 76 65 63 74 6f 72 20 | ,.yielding.a.permutation.vector. |
| d940 | 73 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e 67 20 74 68 69 73 20 70 65 72 6d 75 74 61 74 | such.that.applying.this.permutat |
| d960 | 69 6f 6e 20 74 6f 20 4c 49 53 54 0a 73 6f 72 74 73 20 69 74 20 69 6e 20 61 73 63 65 6e 64 69 6e | ion.to.LIST.sorts.it.in.ascendin |
| d980 | 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a | g.order...(fn.COMPARATOR.LIST).. |
| d9a0 | 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 75 70 20 23 5b 35 31 34 20 22 5c 33 30 30 | (defalias.'-grade-up.#[514."\300 |
| d9c0 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 44 5c 33 30 34 42 42 45 5c 33 30 35 5c 33 30 36 5c 33 30 | \301\302\303.D\304BBE\305\306\30 |
| d9e0 | 37 03 5c 33 31 30 06 06 5c 33 31 31 01 5c 32 30 33 2b 00 01 40 5c 32 31 31 02 42 04 42 5c 32 36 | 7.\310..\311.\203+..@\211.B.B\26 |
| da00 | 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 12 00 5c 32 36 | 2.\210\211T\262..A\262.\202..\26 |
| da20 | 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 22 5c 32 30 37 22 20 5b 6c 61 6d 62 64 61 | 6.\211\237\262.\"\"\207".[lambda |
| da40 | 20 28 69 74 20 6f 74 68 65 72 29 20 66 75 6e 63 61 6c 6c 20 71 75 6f 74 65 20 28 28 63 61 72 20 | .(it.other).funcall.quote.((car. |
| da60 | 69 74 29 20 28 63 61 72 20 6f 74 68 65 72 29 29 20 2d 6d 61 70 20 63 64 72 20 2d 73 6f 72 74 20 | it).(car.other)).-map.cdr.-sort. |
| da80 | 6e 69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e 20 35 35 35 33 36 29 5d 29 0a 23 40 31 37 37 20 47 | nil.0].13.(#$...55536)]).#@177.G |
| daa0 | 72 61 64 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 | rade.elements.of.LIST.using.COMP |
| dac0 | 41 52 41 54 4f 52 20 72 65 6c 61 74 69 6f 6e 2c 20 79 69 65 6c 64 69 6e 67 20 61 0a 70 65 72 6d | ARATOR.relation,.yielding.a.perm |
| dae0 | 75 74 61 74 69 6f 6e 20 76 65 63 74 6f 72 20 73 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e | utation.vector.such.that.applyin |
| db00 | 67 20 74 68 69 73 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 74 6f 20 4c 49 53 54 0a 73 6f 72 74 73 | g.this.permutation.to.LIST.sorts |
| db20 | 20 69 74 20 69 6e 20 64 65 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f | .it.in.descending.order...(fn.CO |
| db40 | 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 | MPARATOR.LIST)..(defalias.'-grad |
| db60 | 65 2d 64 6f 77 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 44 | e-down.#[514."\300\301\302\303.D |
| db80 | 5c 33 30 34 42 42 45 5c 33 30 35 5c 33 30 36 5c 33 30 37 03 5c 33 31 30 06 06 5c 33 31 31 01 5c | \304BBE\305\306\307.\310..\311.\ |
| dba0 | 32 30 33 2b 00 01 40 5c 32 31 31 02 42 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 | 203+..@\211.B.B\262.\210\211T\26 |
| dbc0 | 32 01 01 41 5c 32 36 32 02 5c 32 30 32 12 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 | 2..A\262.\202..\266.\211\237\262 |
| dbe0 | 01 5c 22 5c 22 5c 32 30 37 22 20 5b 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 20 66 75 | .\"\"\207".[lambda.(it.other).fu |
| dc00 | 6e 63 61 6c 6c 20 71 75 6f 74 65 20 28 28 63 61 72 20 6f 74 68 65 72 29 20 28 63 61 72 20 69 74 | ncall.quote.((car.other).(car.it |
| dc20 | 29 29 20 2d 6d 61 70 20 63 64 72 20 2d 73 6f 72 74 20 6e 69 6c 20 30 5d 20 31 33 20 28 23 24 20 | )).-map.cdr.-sort.nil.0].13.(#$. |
| dc40 | 2e 20 35 35 39 36 37 29 5d 29 0a 23 40 34 32 20 4d 6f 6e 6f 74 6f 6e 69 63 20 63 6f 75 6e 74 65 | ..55967)]).#@42.Monotonic.counte |
| dc60 | 72 20 66 6f 72 20 67 65 6e 65 72 61 74 65 64 20 73 79 6d 62 6f 6c 73 2e 1f 0a 28 64 65 66 76 61 | r.for.generated.symbols...(defva |
| dc80 | 72 20 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 30 20 28 23 24 20 2e 20 35 | r.dash--source-counter.0.(#$...5 |
| dca0 | 36 34 30 30 29 29 0a 23 40 38 37 20 47 65 6e 65 72 61 74 65 20 61 20 6e 65 77 20 64 61 73 68 2d | 6400)).#@87.Generate.a.new.dash- |
| dcc0 | 73 6f 75 72 63 65 20 73 79 6d 62 6f 6c 2e 0a 0a 41 6c 6c 20 72 65 74 75 72 6e 65 64 20 73 79 6d | source.symbol...All.returned.sym |
| dce0 | 62 6f 6c 73 20 61 72 65 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 62 65 20 75 6e 69 71 75 65 | bols.are.guaranteed.to.be.unique |
| dd00 | 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61 6b 65 2d 73 | ...(defalias.'dash--match-make-s |
| dd20 | 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 08 5c | ource-symbol.#[0."\301\302\303.\ |
| dd40 | 22 21 08 54 10 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 | "!.T.\207".[dash--source-counter |
| dd60 | 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 2d 2d 64 61 73 68 2d 73 6f 75 72 | .make-symbol.format."--dash-sour |
| dd80 | 63 65 2d 25 64 2d 2d 22 5d 20 34 20 28 23 24 20 2e 20 35 36 34 39 32 29 5d 29 0a 23 40 37 30 20 | ce-%d--"].4.(#$...56492)]).#@70. |
| dda0 | 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 59 4d 42 4f 4c 20 69 73 20 61 20 73 79 | Return.non-nil.if.SYMBOL.is.a.sy |
| ddc0 | 6d 62 6f 6c 20 61 6e 64 20 73 74 61 72 74 73 20 77 69 74 68 20 5f 2e 0a 0a 28 66 6e 20 53 59 4d | mbol.and.starts.with._...(fn.SYM |
| dde0 | 42 4f 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e | BOL)..(defalias.'dash--match-ign |
| de00 | 6f 72 65 2d 70 6c 61 63 65 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 39 5c 32 30 35 5c 66 00 5c | ore-place-p.#[257."\2119\205\f.\ |
| de20 | 33 30 30 01 21 5c 33 30 31 48 5c 33 30 32 3d 5c 32 30 37 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d | 300.!\301H\302=\207".[symbol-nam |
| de40 | 65 20 30 20 39 35 5d 20 33 20 28 23 24 20 2e 20 35 36 37 33 36 29 5d 29 0a 23 40 37 35 20 48 65 | e.0.95].3.(#$...56736)]).#@75.He |
| de60 | 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 | lper.function.generating.idiomat |
| de80 | 69 63 20 73 68 69 66 74 69 6e 67 20 63 6f 64 65 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 | ic.shifting.code...(fn.SKIP-CDR. |
| dea0 | 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d | SOURCE)..(defalias.'dash--match- |
| dec0 | 63 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 5c | cons-skip-cdr.#[514.".\300U\203\ |
| dee0 | 6e 00 5c 33 30 31 01 44 5c 32 30 37 5c 33 30 32 5c 33 30 33 03 03 5c 22 5c 33 30 34 03 5c 33 30 | n.\301.D\207\302\303..\"\304.\30 |
| df00 | 35 06 06 54 06 06 5c 22 45 45 5c 32 30 37 22 20 5b 30 20 70 6f 70 20 70 72 6f 67 31 20 64 61 73 | 5..T..\"EE\207".[0.pop.prog1.das |
| df20 | 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 73 65 74 71 20 64 61 73 68 2d | h--match-cons-get-car.setq.dash- |
| df40 | 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 5d 20 39 20 28 23 24 20 2e 20 35 36 39 | -match-cons-get-cdr].9.(#$...569 |
| df60 | 32 36 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 | 26)]).#@81.Helper.function.gener |
| df80 | 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 63 6f 64 65 20 74 6f 20 67 65 74 20 6e 74 68 20 | ating.idiomatic.code.to.get.nth. |
| dfa0 | 63 61 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 | car...(fn.SKIP-CDR.SOURCE)..(def |
| dfc0 | 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 | alias.'dash--match-cons-get-car. |
| dfe0 | 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 5c 6e 00 5c 33 30 31 01 44 5c 32 30 37 01 5c | #[514.".\300U\203\n.\301.D\207.\ |
| e000 | 33 30 32 55 5c 32 30 33 14 00 5c 33 30 33 01 44 5c 32 30 37 5c 33 30 34 02 02 45 5c 32 30 37 22 | 302U\203..\303.D\207\304..E\207" |
| e020 | 20 5b 30 20 63 61 72 20 31 20 63 61 64 72 20 6e 74 68 5d 20 35 20 28 23 24 20 2e 20 35 37 31 39 | .[0.car.1.cadr.nth].5.(#$...5719 |
| e040 | 35 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 | 5)]).#@81.Helper.function.genera |
| e060 | 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 63 6f 64 65 20 74 6f 20 67 65 74 20 6e 74 68 20 63 | ting.idiomatic.code.to.get.nth.c |
| e080 | 64 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 | dr...(fn.SKIP-CDR.SOURCE)..(defa |
| e0a0 | 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 23 | lias.'dash--match-cons-get-cdr.# |
| e0c0 | 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 07 00 5c 32 30 37 01 5c 33 30 31 55 5c 32 30 33 | [514.".\300U\203..\207.\301U\203 |
| e0e0 | 11 00 5c 33 30 32 01 44 5c 32 30 37 5c 33 30 33 02 02 45 5c 32 30 37 22 20 5b 30 20 31 20 63 64 | ..\302.D\207\303..E\207".[0.1.cd |
| e100 | 72 20 6e 74 68 63 64 72 5d 20 35 20 28 23 24 20 2e 20 35 37 34 31 38 29 5d 29 0a 23 40 38 36 20 | r.nthcdr].5.(#$...57418)]).#@86. |
| e120 | 53 65 74 75 70 20 61 20 63 6f 6e 73 20 6d 61 74 63 68 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e | Setup.a.cons.matching.environmen |
| e140 | 74 20 61 6e 64 20 63 61 6c 6c 20 74 68 65 20 72 65 61 6c 20 6d 61 74 63 68 65 72 2e 0a 0a 28 66 | t.and.call.the.real.matcher...(f |
| e160 | 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | n.MATCH-FORM.SOURCE)..(defalias. |
| e180 | 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 20 5c 33 | 'dash--match-cons.#[514."\300.\3 |
| e1a0 | 30 31 03 5c 32 31 31 3a 5c 32 30 33 1b 00 5c 33 30 32 01 40 21 5c 32 30 33 1b 00 01 54 5c 32 36 | 01.\211:\203..\302.@!\203...T\26 |
| e1c0 | 32 02 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 04 00 5c 32 31 31 3a 5c 32 30 33 31 00 5c 32 31 | 2.\211A\262.\202..\211:\2031.\21 |
| e1e0 | 31 41 5c 32 30 34 31 00 5c 33 30 33 01 40 5c 33 30 34 04 06 07 5c 22 5c 22 5c 32 30 32 4b 00 01 | 1A\2041.\303.@\304...\"\"\202K.. |
| e200 | 5c 33 30 31 56 5c 32 30 33 42 00 5c 33 30 33 01 5c 33 30 35 04 06 07 5c 22 5c 22 5c 32 30 32 4b | \301V\203B.\303.\305...\"\"\202K |
| e220 | 00 02 04 44 5c 33 30 36 06 06 05 5c 22 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 | ...D\306...\"B\207".[dash--match |
| e240 | 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 30 20 64 61 73 68 2d 2d 6d 61 74 63 | -make-source-symbol.0.dash--matc |
| e260 | 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 64 61 73 | h-ignore-place-p.dash--match.das |
| e280 | 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 64 61 73 68 2d 2d 6d 61 74 63 | h--match-cons-get-car.dash--matc |
| e2a0 | 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d | h-cons-get-cdr.dash--match-cons- |
| e2c0 | 31 5d 20 31 30 20 28 23 24 20 2e 20 35 37 36 33 32 29 5d 29 0a 23 40 33 38 36 20 4d 61 74 63 68 | 1].10.(#$...57632)]).#@386.Match |
| e2e0 | 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 4f 55 52 43 45 2e 0a 0a 4d 41 54 | .MATCH-FORM.against.SOURCE...MAT |
| e300 | 43 48 2d 46 4f 52 4d 20 69 73 20 61 20 70 72 6f 70 65 72 20 6f 72 20 69 6d 70 72 6f 70 65 72 20 | CH-FORM.is.a.proper.or.improper. |
| e320 | 6c 69 73 74 2e 20 20 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 4d 41 54 43 48 2d 46 4f 52 | list...Each.element.of.MATCH-FOR |
| e340 | 4d 20 69 73 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 6f 6c 2c 20 77 68 69 63 68 20 67 65 74 73 | M.is.either.a.symbol,.which.gets |
| e360 | 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 72 65 73 70 65 63 74 69 76 65 0a 76 61 6c 75 65 20 69 | .bound.to.the.respective.value.i |
| e380 | 6e 20 73 6f 75 72 63 65 20 6f 72 20 61 6e 6f 74 68 65 72 20 6d 61 74 63 68 20 66 6f 72 6d 20 77 | n.source.or.another.match.form.w |
| e3a0 | 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 63 74 75 72 65 64 0a 72 65 63 75 72 73 69 76 65 | hich.gets.destructured.recursive |
| e3c0 | 6c 79 2e 0a 0a 49 66 20 74 68 65 20 63 64 72 20 6f 66 20 6c 61 73 74 20 63 6f 6e 73 20 63 65 6c | ly...If.the.cdr.of.last.cons.cel |
| e3e0 | 6c 20 69 6e 20 74 68 65 20 6c 69 73 74 20 69 73 20 60 6e 69 6c 27 2c 20 6d 61 74 63 68 69 6e 67 | l.in.the.list.is.`nil',.matching |
| e400 | 20 73 74 6f 70 73 0a 74 68 65 72 65 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 20 70 72 6f 70 65 | .stops.there...SOURCE.is.a.prope |
| e420 | 72 20 6f 72 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 | r.or.improper.list...(fn.MATCH-F |
| e440 | 4f 52 4d 20 53 4f 55 52 43 45 20 26 6f 70 74 69 6f 6e 61 6c 20 50 52 4f 50 53 29 1f 0a 28 64 65 | ORM.SOURCE.&optional.PROPS)..(de |
| e460 | 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 31 20 23 5b 37 37 30 | falias.'dash--match-cons-1.#[770 |
| e480 | 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 36 08 00 5c 33 30 32 03 3a 5c 32 30 33 63 00 03 | ."\300.\301\"\206..\302.:\203c.. |
| e4a0 | 41 5c 32 30 33 57 00 03 40 39 5c 32 30 33 2c 00 03 40 5c 33 30 33 3e 5c 32 30 33 2c 00 5c 33 30 | A\203W..@9\203,..@\303>\203,.\30 |
| e4c0 | 34 5c 33 30 35 05 21 5c 33 30 36 03 06 06 5c 22 5c 22 5c 32 30 32 75 00 5c 33 30 37 04 40 21 5c | 4\305.!\306...\"\"\202u.\307.@!\ |
| e4e0 | 32 30 33 42 00 5c 33 31 30 04 41 04 5c 33 31 31 05 5c 33 30 31 06 06 54 23 23 5c 32 30 32 75 00 | 203B.\310.A.\311.\301..T##\202u. |
| e500 | 5c 33 31 32 5c 33 31 33 05 40 5c 33 31 34 04 06 07 5c 22 5c 22 5c 33 31 30 06 06 41 06 06 5c 22 | \312\313.@\314...\"\"\310..A..\" |
| e520 | 5c 22 5c 32 30 32 75 00 5c 33 31 33 04 40 5c 33 31 35 03 06 06 5c 22 5c 22 5c 32 30 32 75 00 03 | \"\202u.\313.@\315...\"\"\202u.. |
| e540 | 5c 33 31 36 3d 5c 32 30 33 6d 00 5c 33 31 36 5c 32 30 32 75 00 5c 33 31 33 04 5c 33 30 36 03 06 | \316=\203m.\316\202u.\313.\306.. |
| e560 | 06 5c 22 5c 22 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 67 65 74 20 3a 73 6b 69 70 2d 63 64 72 20 | .\"\"\207".[plist-get.:skip-cdr. |
| e580 | 30 20 28 26 6b 65 79 73 20 26 70 6c 69 73 74 20 26 61 6c 69 73 74 20 26 68 61 73 68 29 20 64 61 | 0.(&keys.&plist.&alist.&hash).da |
| e5a0 | 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f 72 6d | sh--match-kv.dash--match-kv-norm |
| e5c0 | 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e | alize-match-form.dash--match-con |
| e5e0 | 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 | s-get-cdr.dash--match-ignore-pla |
| e600 | 63 65 2d 70 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 31 20 70 6c 69 73 74 2d 70 75 | ce-p.dash--match-cons-1.plist-pu |
| e620 | 74 20 2d 63 6f 6e 63 61 74 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 64 61 73 68 2d 2d 6d 61 74 63 | t.-concat.dash--match.dash--matc |
| e640 | 68 2d 63 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 | h-cons-skip-cdr.dash--match-cons |
| e660 | 2d 67 65 74 2d 63 61 72 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 35 38 30 37 35 29 5d 29 0a | -get-car.nil].11.(#$...58075)]). |
| e680 | 23 40 35 39 20 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 53 45 51 20 73 74 61 72 | #@59.Return.the.tail.of.SEQ.star |
| e6a0 | 74 69 6e 67 20 61 74 20 53 54 41 52 54 2e 0a 0a 28 66 6e 20 53 45 51 20 53 54 41 52 54 29 1f 0a | ting.at.START...(fn.SEQ.START).. |
| e6c0 | 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 76 65 63 74 6f 72 2d 74 61 69 6c 20 23 5b 35 | (defalias.'dash--vector-tail.#[5 |
| e6e0 | 31 34 20 22 5c 33 30 30 02 21 5c 32 30 33 2b 00 01 47 01 5a 5c 33 30 31 01 5c 33 30 32 5c 22 01 | 14."\300.!\203+..G.Z\301.\302\". |
| e700 | 5c 33 30 32 5c 32 31 31 02 57 5c 32 30 33 28 00 02 01 06 07 03 06 08 5c 5c 48 49 5c 32 31 30 5c | \302\211.W\203(........\\HI\210\ |
| e720 | 32 31 31 54 5c 32 36 32 01 5c 32 30 32 10 00 5c 32 36 36 02 5c 32 30 37 01 3b 5c 32 30 35 34 00 | 211T\262.\202..\266.\207.;\2054. |
| e740 | 01 01 5c 33 30 33 4f 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 70 20 6d 61 6b 65 2d 76 65 63 74 6f | ..\303O\207".[vectorp.make-vecto |
| e760 | 72 20 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 35 39 30 31 33 29 5d 29 0a 23 40 38 38 20 | r.0.nil].11.(#$...59013)]).#@88. |
| e780 | 53 65 74 75 70 20 61 20 76 65 63 74 6f 72 20 6d 61 74 63 68 69 6e 67 20 65 6e 76 69 72 6f 6e 6d | Setup.a.vector.matching.environm |
| e7a0 | 65 6e 74 20 61 6e 64 20 63 61 6c 6c 20 74 68 65 20 72 65 61 6c 20 6d 61 74 63 68 65 72 2e 0a 0a | ent.and.call.the.real.matcher... |
| e7c0 | 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 | (fn.MATCH-FORM.SOURCE)..(defalia |
| e7e0 | 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 20 23 5b 35 31 34 20 22 5c 33 30 | s.'dash--match-vector.#[514."\30 |
| e800 | 30 20 02 47 5c 33 30 31 55 5c 32 30 33 16 00 5c 33 30 32 03 5c 33 30 33 48 5c 33 30 34 04 5c 33 | 0..G\301U\203..\302.\303H\304.\3 |
| e820 | 30 35 42 42 5c 22 5c 32 30 32 51 00 01 39 5c 32 30 33 5c 22 00 5c 33 30 36 03 03 5c 22 5c 32 30 | 05BB\"\202Q..9\203\".\306..\"\20 |
| e840 | 32 51 00 5c 33 30 37 5c 33 31 30 04 5c 22 5c 33 31 31 5c 33 31 32 02 5c 22 47 5c 32 31 31 05 47 | 2Q.\307\310.\"\311\312.\"G\211.G |
| e860 | 53 55 5c 32 30 35 44 00 5c 33 31 33 5c 33 31 32 03 5c 22 5c 33 30 32 06 06 02 48 5c 33 30 34 06 | SU\205D.\313\312.\"\302...H\304. |
| e880 | 07 04 45 5c 22 5c 32 36 32 01 5c 32 36 36 5c 32 30 32 5c 32 30 36 51 00 5c 32 31 31 02 44 5c 33 | ..E\"\262.\266\202\206Q.\211.D\3 |
| e8a0 | 30 36 04 03 5c 22 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61 6b 65 2d 73 | 06..\"B\207".[dash--match-make-s |
| e8c0 | 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 31 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 30 20 61 72 65 | ource-symbol.1.dash--match.0.are |
| e8e0 | 66 20 28 30 29 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 2d 31 20 6d 61 70 63 61 | f.(0).dash--match-vector-1.mapca |
| e900 | 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 2d 72 65 | r.dash--match-ignore-place-p.-re |
| e920 | 6d 6f 76 65 20 6e 75 6c 6c 20 2d 66 69 6e 64 2d 69 6e 64 65 78 5d 20 31 31 20 28 23 24 20 2e 20 | move.null.-find-index].11.(#$... |
| e940 | 35 39 32 36 34 29 5d 29 0a 23 40 36 39 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 | 59264)]).#@691.Match.MATCH-FORM. |
| e960 | 61 67 61 69 6e 73 74 20 53 4f 55 52 43 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 61 | against.SOURCE...MATCH-FORM.is.a |
| e980 | 20 76 65 63 74 6f 72 2e 20 20 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4d 41 54 43 48 2d | .vector...Each.element.of.MATCH- |
| e9a0 | 46 4f 52 4d 20 69 73 20 65 69 74 68 65 72 20 61 0a 73 79 6d 62 6f 6c 2c 20 77 68 69 63 68 20 67 | FORM.is.either.a.symbol,.which.g |
| e9c0 | 65 74 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 72 65 73 70 65 63 74 69 76 65 20 76 61 6c 75 | ets.bound.to.the.respective.valu |
| e9e0 | 65 20 69 6e 20 73 6f 75 72 63 65 20 6f 72 0a 61 6e 6f 74 68 65 72 20 6d 61 74 63 68 20 66 6f 72 | e.in.source.or.another.match.for |
| ea00 | 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 63 74 75 72 65 64 20 72 65 63 75 72 73 | m.which.gets.destructured.recurs |
| ea20 | 69 76 65 6c 79 2e 0a 0a 49 66 20 73 65 63 6f 6e 64 2d 66 72 6f 6d 2d 6c 61 73 74 20 70 6c 61 63 | ively...If.second-from-last.plac |
| ea40 | 65 20 69 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 74 68 65 20 73 79 6d 62 6f 6c 20 26 72 | e.in.MATCH-FORM.is.the.symbol.&r |
| ea60 | 65 73 74 2c 20 74 68 65 0a 6e 65 78 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 4d 41 54 | est,.the.next.element.of.the.MAT |
| ea80 | 43 48 2d 46 4f 52 4d 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 74 | CH-FORM.is.matched.against.the.t |
| eaa0 | 61 69 6c 20 6f 66 0a 53 4f 55 52 43 45 2c 20 73 74 61 72 74 69 6e 67 20 61 74 20 69 6e 64 65 78 | ail.of.SOURCE,.starting.at.index |
| eac0 | 20 6f 66 20 74 68 65 20 26 72 65 73 74 20 73 79 6d 62 6f 6c 2e 20 20 54 68 69 73 20 69 73 0a 63 | .of.the.&rest.symbol...This.is.c |
| eae0 | 6f 6e 63 65 70 74 75 61 6c 6c 79 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 28 68 65 61 | onceptually.the.same.as.the.(hea |
| eb00 | 64 20 2e 20 74 61 69 6c 29 20 6d 61 74 63 68 20 66 6f 72 20 69 6d 70 72 6f 70 65 72 0a 6c 69 73 | d...tail).match.for.improper.lis |
| eb20 | 74 73 2c 20 77 68 65 72 65 20 64 6f 74 20 70 6c 61 79 73 20 74 68 65 20 72 6f 6c 65 20 6f 66 20 | ts,.where.dot.plays.the.role.of. |
| eb40 | 26 72 65 73 74 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 20 76 65 63 74 6f 72 2e 0a 0a 49 66 20 | &rest...SOURCE.is.a.vector...If. |
| eb60 | 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 76 65 63 74 6f 72 20 69 73 20 73 68 6f 72 74 65 72 | the.MATCH-FORM.vector.is.shorter |
| eb80 | 20 74 68 61 6e 20 53 4f 55 52 43 45 20 76 65 63 74 6f 72 2c 20 6f 6e 6c 79 0a 74 68 65 20 28 6c | .than.SOURCE.vector,.only.the.(l |
| eba0 | 65 6e 67 74 68 20 4d 41 54 43 48 2d 46 4f 52 4d 29 20 70 6c 61 63 65 73 20 61 72 65 20 62 6f 75 | ength.MATCH-FORM).places.are.bou |
| ebc0 | 6e 64 2c 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 53 4f 55 52 43 45 0a 69 73 20 64 69 | nd,.the.rest.of.the.SOURCE.is.di |
| ebe0 | 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 | scarded...(fn.MATCH-FORM.SOURCE) |
| ec00 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 2d | ..(defalias.'dash--match-vector- |
| ec20 | 31 20 23 5b 35 31 34 20 22 5c 33 30 30 02 47 5c 33 30 31 02 02 57 5c 32 30 33 61 00 04 03 48 5c | 1.#[514."\300.G\301..W\203a...H\ |
| ec40 | 32 31 31 39 5c 32 30 33 2b 00 5c 32 31 31 5c 33 30 32 3d 5c 32 30 33 2b 00 5c 33 30 33 06 06 05 | 2119\203+.\211\302=\203+.\303... |
| ec60 | 54 48 5c 33 30 34 06 07 06 07 45 5c 22 03 5c 32 36 32 05 5c 32 30 32 55 00 5c 32 31 31 39 5c 32 | TH\304....E\".\262.\202U.\2119\2 |
| ec80 | 30 33 46 00 5c 33 30 35 01 21 5c 33 30 30 48 5c 33 30 36 3d 5c 32 30 34 46 00 5c 32 31 31 5c 33 | 03F.\305.!\300H\306=\204F.\211\3 |
| eca0 | 30 37 06 06 06 06 45 44 43 5c 32 30 32 55 00 5c 32 31 31 39 3f 5c 32 30 35 55 00 5c 33 30 33 01 | 07....EDC\202U.\2119?\205U.\303. |
| ecc0 | 5c 33 30 37 06 07 06 07 45 5c 22 02 42 5c 32 36 32 02 03 54 5c 32 36 32 04 5c 32 31 30 5c 32 30 | \307....E\".B\262..T\262.\210\20 |
| ece0 | 32 04 00 5c 33 31 30 5c 33 31 31 02 5c 32 33 37 5c 22 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 26 | 2..\310\311.\237\"\207".[0.nil.& |
| ed00 | 72 65 73 74 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 64 61 73 68 2d 2d 76 65 63 74 6f 72 2d 74 61 | rest.dash--match.dash--vector-ta |
| ed20 | 69 6c 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 39 35 20 61 72 65 66 20 2d 66 6c 61 74 74 65 6e 2d | il.symbol-name.95.aref.-flatten- |
| ed40 | 6e 20 31 5d 20 31 31 20 28 23 24 20 2e 20 35 39 37 32 37 29 5d 29 0a 23 40 31 34 38 20 4e 6f 72 | n.1].11.(#$...59727)]).#@148.Nor |
| ed60 | 6d 61 6c 69 7a 65 20 6b 76 20 50 41 54 54 45 52 4e 2e 0a 0a 54 68 69 73 20 6d 65 74 68 6f 64 20 | malize.kv.PATTERN...This.method. |
| ed80 | 6e 6f 72 6d 61 6c 69 7a 65 73 20 50 41 54 54 45 52 4e 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 | normalizes.PATTERN.to.the.format |
| eda0 | 20 65 78 70 65 63 74 65 64 20 62 79 0a 60 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 27 2e 20 20 | .expected.by.`dash--match-kv'... |
| edc0 | 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e | See.`-let'.for.the.specification |
| ede0 | 2e 0a 0a 28 66 6e 20 50 41 54 54 45 52 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 | ...(fn.PATTERN)..(defalias.'dash |
| ee00 | 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 | --match-kv-normalize-match-form. |
| ee20 | 23 5b 32 35 37 20 22 5c 32 31 31 40 43 43 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 21 5c 33 30 33 | #[257."\211@CC\300C\301\302!\303 |
| ee40 | 5c 33 30 34 5c 33 30 35 5c 33 30 36 04 06 08 41 06 09 41 41 23 5c 22 5c 33 30 37 5c 33 31 30 5c | \304\305\306...A..AA#\"\307\310\ |
| ee60 | 33 31 31 5c 33 31 32 5c 33 31 33 06 09 06 09 06 09 23 5c 33 31 34 5c 22 5c 33 31 35 5c 33 31 36 | 311\312\313......#\314\"\315\316 |
| ee80 | 25 5c 22 5c 32 31 30 02 5c 32 34 32 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61 6b 65 2d | %\"\210.\242\237\207".[nil.make- |
| eea0 | 73 79 6d 62 6f 6c 20 22 2d 2d 64 61 73 68 2d 66 69 6c 6c 2d 70 6c 61 63 65 68 6f 6c 64 65 72 2d | symbol."--dash-fill-placeholder- |
| eec0 | 2d 22 20 2d 65 61 63 68 20 61 70 70 6c 79 20 2d 7a 69 70 20 2d 70 61 64 20 6d 61 6b 65 2d 62 79 | -".-each.apply.-zip.-pad.make-by |
| eee0 | 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 40 01 41 5c 33 30 31 5c 32 34 32 5c 32 30 33 | te-code.257."\211@.A\301\242\203 |
| ef00 | 0f 00 5c 33 30 31 5c 33 30 33 5c 32 34 30 5c 32 30 32 5c 32 36 30 00 5c 33 30 32 01 3d 5c 32 30 | ..\301\303\240\202\260.\302.=\20 |
| ef20 | 34 3e 00 5c 32 31 31 39 5c 32 30 33 2c 00 5c 33 30 34 01 21 5c 32 30 34 2c 00 5c 32 31 31 5c 33 | 4>.\2119\203,.\304.!\204,.\211\3 |
| ef40 | 30 35 3d 5c 32 30 34 2c 00 5c 32 31 31 5c 33 30 33 3d 5c 32 30 33 5c 32 33 37 00 5c 32 31 31 3a | 05=\204,.\211\303=\203\237.\211: |
| ef60 | 5c 32 30 33 38 00 5c 32 31 31 40 5c 33 30 36 3d 5c 32 30 33 5c 32 33 37 00 5c 33 30 37 01 21 5c | \2038.\211@\306=\203\237.\307.!\ |
| ef80 | 32 30 34 5c 32 33 37 00 5c 33 30 34 02 21 5c 32 30 33 5c 5c 00 5c 33 30 30 02 5c 33 30 30 5c 32 | 204\237.\304.!\203\\.\300.\300\2 |
| efa0 | 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 31 31 04 21 5c 33 31 32 5c 33 30 | 42B\240\210\300\310\311.!\312\30 |
| efc0 | 33 4f 21 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 33 31 00 01 3b 5c | 3O!\300\242B\240\210\202\231..;\ |
| efe0 | 32 30 33 74 00 5c 33 30 30 02 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 5c | 203t.\300.\300\242B\240\210\300\ |
| f000 | 33 31 30 03 21 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 33 31 00 01 | 310.!\300\242B\240\210\202\231.. |
| f020 | 3a 5c 32 30 33 5c 32 32 33 00 01 40 5c 33 30 36 3d 5c 32 30 33 5c 32 32 33 00 5c 33 30 30 02 5c | :\203\223..@\306=\203\223.\300.\ |
| f040 | 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 02 41 40 5c 33 30 30 5c 32 34 32 42 | 300\242B\240\210\300.A@\300\242B |
| f060 | 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 33 31 00 5c 33 31 33 5c 33 31 34 03 03 23 5c 32 31 30 | \240\210\202\231.\313\314..#\210 |
| f080 | 5c 33 30 31 5c 33 30 33 5c 32 34 30 5c 32 30 32 5c 32 36 30 00 5c 33 30 30 02 5c 33 30 30 5c 32 | \301\303\240\202\260.\300.\300\2 |
| f0a0 | 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 01 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 | 42B\240\210\300.\300\242B\240\21 |
| f0c0 | 30 5c 33 30 31 5c 33 30 35 5c 32 34 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f | 0\301\305\240\207".vconcat.vecto |
| f0e0 | 72 20 5b 6e 69 6c 20 6b 65 79 77 6f 72 64 70 20 74 20 71 75 6f 74 65 20 76 65 63 74 6f 72 70 20 | r.[nil.keywordp.t.quote.vectorp. |
| f100 | 69 6e 74 65 72 6e 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 31 20 65 72 72 6f 72 20 22 2d 6c 65 74 | intern.symbol-name.1.error."-let |
| f120 | 3a 20 66 6f 75 6e 64 20 6b 65 79 20 60 25 73 27 20 69 6e 20 6b 76 20 64 65 73 74 72 75 63 74 75 | :.found.key.`%s'.in.kv.destructu |
| f140 | 72 69 6e 67 20 62 75 74 20 69 74 73 20 70 61 74 74 65 72 6e 20 60 25 73 27 20 69 73 20 69 6e 76 | ring.but.its.pattern.`%s'.is.inv |
| f160 | 61 6c 69 64 20 61 6e 64 20 63 61 6e 20 6e 6f 74 20 62 65 20 64 65 72 69 76 65 64 20 66 72 6f 6d | alid.and.can.not.be.derived.from |
| f180 | 20 74 68 65 20 6b 65 79 22 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 50 41 49 52 29 22 5d 20 31 34 | .the.key"].8."\n\n(fn.PAIR)"].14 |
| f1a0 | 20 28 23 24 20 2e 20 36 30 37 36 35 29 5d 29 0a 23 40 31 35 32 20 53 65 74 75 70 20 61 20 6b 76 | .(#$...60765)]).#@152.Setup.a.kv |
| f1c0 | 20 6d 61 74 63 68 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 6e 64 20 63 61 6c 6c 20 74 | .matching.environment.and.call.t |
| f1e0 | 68 65 20 72 65 61 6c 20 6d 61 74 63 68 65 72 2e 0a 0a 6b 76 20 63 61 6e 20 62 65 20 61 6e 79 20 | he.real.matcher...kv.can.be.any. |
| f200 | 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 2c 20 73 75 63 68 20 61 73 20 70 6c 69 73 74 2c 20 | key-value.store,.such.as.plist,. |
| f220 | 61 6c 69 73 74 20 6f 72 20 68 61 73 68 2d 74 61 62 6c 65 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d | alist.or.hash-table...(fn.MATCH- |
| f240 | 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d | FORM.SOURCE)..(defalias.'dash--m |
| f260 | 61 74 63 68 2d 6b 76 20 23 5b 35 31 34 20 22 5c 33 30 30 20 02 47 5c 33 30 31 55 5c 32 30 33 13 | atch-kv.#[514."\300..G\301U\203. |
| f280 | 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 32 2e 00 01 39 5c 32 30 33 5c 22 00 5c 33 30 32 03 41 | .\302.A..@#\202...9\203\".\302.A |
| f2a0 | 03 05 40 23 5c 32 30 32 2e 00 5c 32 31 31 02 44 5c 33 30 32 04 41 03 06 06 40 23 42 5c 32 30 37 | ..@#\202..\211.D\302.A...@#B\207 |
| f2c0 | 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f | ".[dash--match-make-source-symbo |
| f2e0 | 6c 20 33 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 31 5d 20 38 20 28 23 24 20 2e 20 36 31 | l.3.dash--match-kv-1].8.(#$...61 |
| f300 | 38 37 38 29 5d 29 0a 23 40 35 30 39 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 | 878)]).#@509.Match.MATCH-FORM.ag |
| f320 | 61 69 6e 73 74 20 53 4f 55 52 43 45 20 6f 66 20 74 79 70 65 20 54 59 50 45 2e 0a 0a 4d 41 54 43 | ainst.SOURCE.of.type.TYPE...MATC |
| f340 | 48 2d 46 4f 52 4d 20 69 73 20 61 20 70 72 6f 70 65 72 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 | H-FORM.is.a.proper.list.of.the.f |
| f360 | 6f 72 6d 20 28 6b 65 79 31 20 70 6c 61 63 65 31 20 2e 2e 2e 20 6b 65 79 4e 0a 70 6c 61 63 65 4e | orm.(key1.place1.....keyN.placeN |
| f380 | 29 2e 20 20 45 61 63 68 20 70 6c 61 63 65 4b 20 69 73 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 | )...Each.placeK.is.either.a.symb |
| f3a0 | 6f 6c 2c 20 77 68 69 63 68 20 67 65 74 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 0a 76 61 6c 75 | ol,.which.gets.bound.to.the.valu |
| f3c0 | 65 20 6f 66 20 6b 65 79 4b 20 72 65 74 72 69 65 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 | e.of.keyK.retrieved.from.the.key |
| f3e0 | 2d 76 61 6c 75 65 20 73 74 6f 72 65 2c 20 6f 72 20 61 6e 6f 74 68 65 72 0a 6d 61 74 63 68 20 66 | -value.store,.or.another.match.f |
| f400 | 6f 72 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 63 74 75 72 65 64 20 72 65 63 75 | orm.which.gets.destructured.recu |
| f420 | 72 73 69 76 65 6c 79 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 20 6b 65 79 2d 76 61 6c 75 65 20 | rsively...SOURCE.is.a.key-value. |
| f440 | 73 74 6f 72 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 | store.of.type.TYPE,.which.can.be |
| f460 | 20 61 20 70 6c 69 73 74 2c 0a 61 6e 20 61 6c 69 73 74 20 6f 72 20 61 20 68 61 73 68 20 74 61 62 | .a.plist,.an.alist.or.a.hash.tab |
| f480 | 6c 65 2e 0a 0a 54 59 50 45 20 69 73 20 61 20 74 6f 6b 65 6e 20 73 70 65 63 69 66 79 69 6e 67 20 | le...TYPE.is.a.token.specifying. |
| f4a0 | 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 2e | the.type.of.the.key-value.store. |
| f4c0 | 0a 56 61 6c 69 64 20 76 61 6c 75 65 73 20 61 72 65 20 26 70 6c 69 73 74 2c 20 26 61 6c 69 73 74 | .Valid.values.are.&plist,.&alist |
| f4e0 | 20 61 6e 64 20 26 68 61 73 68 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 | .and.&hash...(fn.MATCH-FORM.SOUR |
| f500 | 43 45 20 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 | CE.TYPE)..(defalias.'dash--match |
| f520 | 2d 6b 76 2d 31 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 | -kv-1.#[771."\300\301\302\303\30 |
| f540 | 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 09 06 09 5c 22 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 | 4\305\306\307....\"\310\"\311\31 |
| f560 | 32 25 5c 33 31 33 5c 33 31 34 06 08 5c 22 5c 22 5c 22 5c 32 30 37 22 20 5b 2d 66 6c 61 74 74 65 | 2%\313\314..\"\"\"\207".[-flatte |
| f580 | 6e 2d 6e 20 31 20 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c | n-n.1.-map.make-byte-code.257."\ |
| f5a0 | 32 31 31 40 01 41 40 5c 33 30 31 5c 33 30 32 3d 5c 32 30 34 11 00 5c 33 30 31 5c 33 30 33 3d 5c | 211@.A@\301\302=\204..\301\303=\ |
| f5c0 | 32 30 33 18 00 5c 33 30 34 5c 33 30 30 03 45 5c 32 30 32 31 00 5c 33 30 31 5c 33 30 35 3d 5c 32 | 203..\304\300.E\2021.\301\305=\2 |
| f5e0 | 30 33 27 00 5c 33 30 36 5c 33 30 37 03 5c 33 30 30 45 44 5c 32 30 32 31 00 5c 33 30 31 5c 33 31 | 03'.\306\307.\300ED\2021.\301\31 |
| f600 | 30 3d 5c 32 30 35 31 00 5c 33 31 31 02 5c 33 30 30 45 01 39 5c 32 30 33 3d 00 01 01 44 43 5c 32 | 0=\2051.\311.\300E.9\203=...DC\2 |
| f620 | 30 32 41 00 5c 33 31 32 02 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 | 02A.\312..\"\207".vconcat.vector |
| f640 | 20 5b 26 70 6c 69 73 74 20 26 6b 65 79 73 20 70 6c 69 73 74 2d 67 65 74 20 26 61 6c 69 73 74 20 | .[&plist.&keys.plist-get.&alist. |
| f660 | 63 64 72 20 61 73 73 6f 63 20 26 68 61 73 68 20 67 65 74 68 61 73 68 20 64 61 73 68 2d 2d 6d 61 | cdr.assoc.&hash.gethash.dash--ma |
| f680 | 74 63 68 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 4b 56 29 22 20 2d 70 61 72 74 69 74 69 6f 6e 20 | tch].7."\n\n(fn.KV)".-partition. |
| f6a0 | 32 5d 20 31 33 20 28 23 24 20 2e 20 36 32 32 32 31 29 5d 29 0a 23 40 39 36 20 42 69 6e 64 20 61 | 2].13.(#$...62221)]).#@96.Bind.a |
| f6c0 | 20 73 79 6d 62 6f 6c 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 74 20 6c 69 6b 65 20 60 | .symbol...This.works.just.like.` |
| f6e0 | 6c 65 74 27 2c 20 74 68 65 72 65 20 69 73 20 6e 6f 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e | let',.there.is.no.destructuring. |
| f700 | 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c | ..(fn.MATCH-FORM.SOURCE)..(defal |
| f720 | 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 73 79 6d 62 6f 6c 20 23 5b 35 31 34 20 22 01 | ias.'dash--match-symbol.#[514.". |
| f740 | 01 44 43 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 36 33 31 36 32 29 5d 29 0a 23 40 32 | .DC\207".[].4.(#$...63162)]).#@2 |
| f760 | 38 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 4f 55 52 | 81.Match.MATCH-FORM.against.SOUR |
| f780 | 43 45 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 65 73 74 73 20 74 68 65 20 4d 41 54 | CE...This.function.tests.the.MAT |
| f7a0 | 43 48 2d 46 4f 52 4d 20 61 6e 64 20 64 69 73 70 61 74 63 68 65 73 20 74 6f 20 73 70 65 63 69 66 | CH-FORM.and.dispatches.to.specif |
| f7c0 | 69 63 0a 6d 61 74 63 68 65 72 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 74 79 70 65 20 6f 66 | ic.matchers.based.on.the.type.of |
| f7e0 | 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 4b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 | .the.expression...Key-value.stor |
| f800 | 65 73 20 61 72 65 20 64 69 73 61 6d 62 69 67 75 61 74 65 64 20 62 79 20 70 6c 61 63 69 6e 67 20 | es.are.disambiguated.by.placing. |
| f820 | 61 20 74 6f 6b 65 6e 20 26 70 6c 69 73 74 2c 0a 26 61 6c 69 73 74 20 6f 72 20 26 68 61 73 68 20 | a.token.&plist,.&alist.or.&hash. |
| f840 | 61 73 20 61 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 | as.a.first.item.in.the.MATCH-FOR |
| f860 | 4d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 | M...(fn.MATCH-FORM.SOURCE)..(def |
| f880 | 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 20 23 5b 35 31 34 20 22 01 39 5c 32 30 33 | alias.'dash--match.#[514.".9\203 |
| f8a0 | 5c 6e 00 5c 33 30 30 02 02 5c 22 5c 32 30 37 01 3a 5c 32 30 33 43 00 01 41 3a 5c 32 30 33 30 00 | \n.\300..\"\207.:\203C..A:\2030. |
| f8c0 | 01 40 39 5c 32 30 33 30 00 01 41 40 5c 33 30 31 3d 5c 32 30 33 30 00 01 40 5c 32 31 31 02 44 5c | .@9\2030..A@\301=\2030..@\211.D\ |
| f8e0 | 33 30 32 04 41 41 03 5c 22 42 5c 32 30 37 01 40 5c 33 30 33 3e 5c 32 30 33 3e 00 5c 33 30 34 5c | 302.AA.\"B\207.@\303>\203>.\304\ |
| f900 | 33 30 35 03 21 02 5c 22 5c 32 30 37 5c 33 30 36 02 02 5c 22 5c 32 30 37 5c 33 30 37 02 21 5c 32 | 305.!.\"\207\306..\"\207\307.!\2 |
| f920 | 30 35 72 00 01 47 5c 33 31 30 56 5c 32 30 33 6e 00 01 5c 33 31 31 48 39 5c 32 30 33 6e 00 01 5c | 05r..G\310V\203n..\311H9\203n..\ |
| f940 | 33 31 32 48 5c 33 30 31 3d 5c 32 30 33 6e 00 01 5c 33 31 31 48 5c 32 31 31 02 44 5c 33 30 32 5c | 312H\301=\203n..\311H\211.D\302\ |
| f960 | 33 31 33 05 5c 33 31 30 5c 22 03 5c 22 42 5c 32 30 37 5c 33 31 34 02 02 5c 22 5c 32 30 37 22 20 | 313.\310\".\"B\207\314..\"\207". |
| f980 | 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 73 79 6d 62 6f 6c 20 26 61 73 20 64 61 73 68 2d 2d 6d 61 | [dash--match-symbol.&as.dash--ma |
| f9a0 | 74 63 68 20 28 26 6b 65 79 73 20 26 70 6c 69 73 74 20 26 61 6c 69 73 74 20 26 68 61 73 68 29 20 | tch.(&keys.&plist.&alist.&hash). |
| f9c0 | 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f | dash--match-kv.dash--match-kv-no |
| f9e0 | 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 | rmalize-match-form.dash--match-c |
| fa00 | 6f 6e 73 20 76 65 63 74 6f 72 70 20 32 20 30 20 31 20 64 61 73 68 2d 2d 76 65 63 74 6f 72 2d 74 | ons.vectorp.2.0.1.dash--vector-t |
| fa20 | 61 69 6c 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 5d 20 38 20 28 23 24 20 2e 20 | ail.dash--match-vector].8.(#$... |
| fa40 | 36 33 33 33 31 29 5d 29 0a 23 40 33 36 34 20 4e 6f 72 6d 61 6c 69 7a 65 20 56 41 52 4c 49 53 54 | 63331)]).#@364.Normalize.VARLIST |
| fa60 | 20 73 6f 20 74 68 61 74 20 65 76 65 72 79 20 62 69 6e 64 69 6e 67 20 69 73 20 61 20 6c 69 73 74 | .so.that.every.binding.is.a.list |
| fa80 | 2e 0a 0a 60 6c 65 74 27 20 61 6c 6c 6f 77 73 20 73 70 65 63 69 66 79 69 6e 67 20 61 20 62 69 6e | ...`let'.allows.specifying.a.bin |
| faa0 | 64 69 6e 67 20 77 68 69 63 68 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 20 62 75 74 20 73 69 6d | ding.which.is.not.a.list.but.sim |
| fac0 | 70 6c 79 0a 74 68 65 20 70 6c 61 63 65 20 77 68 69 63 68 20 69 73 20 74 68 65 6e 20 61 75 74 6f | ply.the.place.which.is.then.auto |
| fae0 | 6d 61 74 69 63 61 6c 6c 79 20 62 6f 75 6e 64 20 74 6f 20 6e 69 6c 2c 20 73 75 63 68 20 74 68 61 | matically.bound.to.nil,.such.tha |
| fb00 | 74 20 61 6c 6c 0a 74 68 72 65 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 | t.all.three.of.the.following.are |
| fb20 | 20 69 64 65 6e 74 69 63 61 6c 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 74 6f 20 6e 69 6c 2e 0a | .identical.and.evaluate.to.nil.. |
| fb40 | 0a 20 20 28 6c 65 74 20 28 61 29 20 61 29 0a 20 20 28 6c 65 74 20 28 28 61 29 29 20 61 29 0a 20 | ...(let.(a).a)...(let.((a)).a).. |
| fb60 | 20 28 6c 65 74 20 28 28 61 20 6e 69 6c 29 29 20 61 29 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f | .(let.((a.nil)).a)..This.functio |
| fb80 | 6e 20 6e 6f 72 6d 61 6c 69 7a 65 73 20 61 6c 6c 20 6f 66 20 74 68 65 73 65 20 74 6f 20 74 68 65 | n.normalizes.all.of.these.to.the |
| fba0 | 20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 29 1f 0a 28 64 65 66 61 | .last.form...(fn.VARLIST)..(defa |
| fbc0 | 6c 69 61 73 20 27 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 73 | lias.'dash--normalize-let-varlis |
| fbe0 | 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 | t.#[257."\300\301.\"\207".[mapca |
| fc00 | 72 20 23 5b 32 35 37 20 22 5c 32 31 31 3a 5c 32 30 33 06 00 5c 32 30 37 5c 32 31 31 5c 33 30 30 | r.#[257."\211:\203..\207\211\300 |
| fc20 | 44 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 34 | D\207".[nil].3."\n\n(fn.IT)"]].4 |
| fc40 | 20 28 23 24 20 2e 20 36 34 30 37 39 29 5d 29 0a 23 40 34 37 36 20 42 69 6e 64 20 76 61 72 69 61 | .(#$...64079)]).#@476.Bind.varia |
| fc60 | 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 74 68 65 6e 20 65 | bles.according.to.VARLIST.then.e |
| fc80 | 76 61 6c 20 42 4f 44 59 2e 0a 0a 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 | val.BODY...VARLIST.is.a.list.of. |
| fca0 | 6c 69 73 74 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 | lists.of.the.form.(PATTERN.SOURC |
| fcc0 | 45 29 2e 20 20 45 61 63 68 0a 50 41 54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 | E)...Each.PATTERN.is.matched.aga |
| fce0 | 69 6e 73 74 20 74 68 65 20 53 4f 55 52 43 45 20 73 74 72 75 63 74 75 72 61 6c 6c 79 2e 20 20 53 | inst.the.SOURCE.structurally...S |
| fd00 | 4f 55 52 43 45 20 69 73 0a 6f 6e 6c 79 20 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 20 66 6f 72 | OURCE.is.only.evaluated.once.for |
| fd20 | 20 65 61 63 68 20 50 41 54 54 45 52 4e 2e 0a 0a 45 61 63 68 20 53 4f 55 52 43 45 20 63 61 6e 20 | .each.PATTERN...Each.SOURCE.can. |
| fd40 | 72 65 66 65 72 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 61 6c 72 65 61 64 79 20 62 6f 75 | refer.to.the.symbols.already.bou |
| fd60 | 6e 64 20 62 79 20 74 68 69 73 0a 56 41 52 4c 49 53 54 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 | nd.by.this.VARLIST...This.is.use |
| fd80 | 66 75 6c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 64 65 73 74 72 75 63 74 75 72 65 20 53 | ful.if.you.want.to.destructure.S |
| fda0 | 4f 55 52 43 45 0a 72 65 63 75 72 73 69 76 65 6c 79 20 62 75 74 20 61 6c 73 6f 20 77 61 6e 74 20 | OURCE.recursively.but.also.want. |
| fdc0 | 74 6f 20 6e 61 6d 65 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 73 74 72 75 63 74 75 | to.name.the.intermediate.structu |
| fde0 | 72 65 73 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 20 6c 69 73 74 20 6f 66 | res...See.`-let'.for.the.list.of |
| fe00 | 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 20 70 61 74 74 65 72 6e 73 2e 0a 0a 28 66 6e 20 56 41 52 | .all.possible.patterns...(fn.VAR |
| fe20 | 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 65 | LIST.&rest.BODY)..(defalias.'-le |
| fe40 | 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 21 5c 33 30 31 5c 33 | t*.'(macro...#[385."\300.!\301\3 |
| fe60 | 30 32 5c 33 30 33 5c 33 30 34 04 5c 22 5c 22 5c 33 30 35 01 04 42 42 5c 32 30 37 22 20 5b 64 61 | 02\303\304.\"\"\305..BB\207".[da |
| fe80 | 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 73 74 20 61 70 70 6c 79 20 | sh--normalize-let-varlist.apply. |
| fea0 | 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c 22 | append.mapcar.#[257."\300.@.A@\" |
| fec0 | 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 | \207".[dash--match].4."\n\n(fn.I |
| fee0 | 54 29 22 5d 20 6c 65 74 2a 5d 20 38 20 28 23 24 20 2e 20 36 34 35 39 38 29 5d 29 29 0a 28 62 79 | T)"].let*].8.(#$...64598)])).(by |
| ff00 | 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 | te-code."\300\301\302\303#\210\3 |
| ff20 | 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c 65 74 2a 20 | 04\301\305\306#\207".[put.-let*. |
| ff40 | 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 74 20 5b 26 6f 72 20 28 73 | edebug-form-spec.((&rest.[&or.(s |
| ff60 | 65 78 70 20 66 6f 72 6d 29 20 73 65 78 70 5d 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d | exp.form).sexp]).body).function- |
| ff80 | 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 | put.lisp-indent-function.1].4).# |
| ffa0 | 40 35 36 38 34 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 | @5684.Bind.variables.according.t |
| ffc0 | 6f 20 56 41 52 4c 49 53 54 20 74 68 65 6e 20 65 76 61 6c 20 42 4f 44 59 2e 0a 0a 56 41 52 4c 49 | o.VARLIST.then.eval.BODY...VARLI |
| ffe0 | 53 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 6f 66 20 74 68 65 20 66 6f 72 | ST.is.a.list.of.lists.of.the.for |
| 10000 | 6d 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 2e 20 20 45 61 63 68 0a 50 41 54 54 45 52 | m.(PATTERN.SOURCE)...Each.PATTER |
| 10020 | 4e 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 53 4f 55 52 43 45 20 | N.is.matched.against.the.SOURCE. |
| 10040 | 22 73 74 72 75 63 74 75 72 61 6c 6c 79 22 2e 20 20 53 4f 55 52 43 45 0a 69 73 20 6f 6e 6c 79 20 | "structurally"...SOURCE.is.only. |
| 10060 | 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 20 66 6f 72 20 65 61 63 68 20 50 41 54 54 45 52 4e 2e | evaluated.once.for.each.PATTERN. |
| 10080 | 20 20 45 61 63 68 20 50 41 54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 0a 72 65 63 75 72 73 | ..Each.PATTERN.is.matched.recurs |
| 100a0 | 69 76 65 6c 79 2c 20 61 6e 64 20 63 61 6e 20 74 68 65 72 65 66 6f 72 65 20 63 6f 6e 74 61 69 6e | ively,.and.can.therefore.contain |
| 100c0 | 20 73 75 62 2d 70 61 74 74 65 72 6e 73 20 77 68 69 63 68 20 61 72 65 0a 6d 61 74 63 68 65 64 20 | .sub-patterns.which.are.matched. |
| 100e0 | 61 67 61 69 6e 73 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 75 62 2d 65 78 70 72 65 73 | against.corresponding.sub-expres |
| 10100 | 73 69 6f 6e 73 20 6f 66 20 53 4f 55 52 43 45 2e 0a 0a 41 6c 6c 20 74 68 65 20 53 4f 55 52 43 45 | sions.of.SOURCE...All.the.SOURCE |
| 10120 | 73 20 61 72 65 20 65 76 61 6c 6c 65 64 20 62 65 66 6f 72 65 20 61 6e 79 20 73 79 6d 62 6f 6c 73 | s.are.evalled.before.any.symbols |
| 10140 | 20 61 72 65 0a 62 6f 75 6e 64 20 28 69 2e 65 2e 20 22 69 6e 20 70 61 72 61 6c 6c 65 6c 22 29 2e | .are.bound.(i.e.."in.parallel"). |
| 10160 | 0a 0a 49 66 20 56 41 52 4c 49 53 54 20 6f 6e 6c 79 20 63 6f 6e 74 61 69 6e 73 20 6f 6e 65 20 28 | ..If.VARLIST.only.contains.one.( |
| 10180 | 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 20 65 6c 65 6d 65 6e 74 2c 20 79 6f 75 20 63 61 6e | PATTERN.SOURCE).element,.you.can |
| 101a0 | 0a 6f 70 74 69 6f 6e 61 6c 6c 79 20 73 70 65 63 69 66 79 20 69 74 20 75 73 69 6e 67 20 61 20 76 | .optionally.specify.it.using.a.v |
| 101c0 | 65 63 74 6f 72 20 61 6e 64 20 64 69 73 63 61 72 64 69 6e 67 20 74 68 65 0a 6f 75 74 65 72 2d 6d | ector.and.discarding.the.outer-m |
| 101e0 | 6f 73 74 20 70 61 72 65 6e 73 2e 20 20 54 68 75 73 0a 0a 20 20 28 2d 6c 65 74 20 28 28 50 41 54 | ost.parens...Thus....(-let.((PAT |
| 10200 | 54 45 52 4e 20 53 4f 55 52 43 45 29 29 20 2e 2e 29 0a 0a 62 65 63 6f 6d 65 73 0a 0a 20 20 28 2d | TERN.SOURCE))...)..becomes....(- |
| 10220 | 6c 65 74 20 5b 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 5d 20 2e 2e 29 2e 0a 0a 60 2d 6c 65 74 | let.[PATTERN.SOURCE]...)...`-let |
| 10240 | 27 20 75 73 65 73 20 61 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 6f 66 20 6e 6f 74 20 62 69 6e 64 69 | '.uses.a.convention.of.not.bindi |
| 10260 | 6e 67 20 70 6c 61 63 65 73 20 28 73 79 6d 62 6f 6c 73 29 20 73 74 61 72 74 69 6e 67 0a 77 69 74 | ng.places.(symbols).starting.wit |
| 10280 | 68 20 5f 20 77 68 65 6e 65 76 65 72 20 69 74 27 73 20 70 6f 73 73 69 62 6c 65 2e 20 20 59 6f 75 | h._.whenever.it's.possible...You |
| 102a0 | 20 63 61 6e 20 75 73 65 20 74 68 69 73 20 74 6f 20 73 6b 69 70 20 6f 76 65 72 0a 65 6e 74 72 69 | .can.use.this.to.skip.over.entri |
| 102c0 | 65 73 20 79 6f 75 20 64 6f 6e 27 74 20 63 61 72 65 20 61 62 6f 75 74 2e 20 20 48 6f 77 65 76 65 | es.you.don't.care.about...Howeve |
| 102e0 | 72 2c 20 74 68 69 73 20 69 73 20 6e 6f 74 20 2a 61 6c 77 61 79 73 2a 0a 70 6f 73 73 69 62 6c 65 | r,.this.is.not.*always*.possible |
| 10300 | 20 28 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 | .(as.a.result.of.implementation) |
| 10320 | 20 61 6e 64 20 74 68 65 73 65 20 73 79 6d 62 6f 6c 73 20 6d 69 67 68 74 0a 67 65 74 20 62 6f 75 | .and.these.symbols.might.get.bou |
| 10340 | 6e 64 20 74 6f 20 75 6e 64 65 66 69 6e 65 64 20 76 61 6c 75 65 73 2e 0a 0a 46 6f 6c 6c 6f 77 69 | nd.to.undefined.values...Followi |
| 10360 | 6e 67 20 69 73 20 74 68 65 20 6f 76 65 72 76 69 65 77 20 6f 66 20 73 75 70 70 6f 72 74 65 64 20 | ng.is.the.overview.of.supported. |
| 10380 | 70 61 74 74 65 72 6e 73 2e 20 20 52 65 6d 65 6d 62 65 72 20 74 68 61 74 0a 70 61 74 74 65 72 6e | patterns...Remember.that.pattern |
| 103a0 | 73 20 63 61 6e 20 62 65 20 6d 61 74 63 68 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2c 20 73 6f | s.can.be.matched.recursively,.so |
| 103c0 | 20 65 76 65 72 79 20 61 2c 20 62 2c 20 61 4b 20 69 6e 20 74 68 65 0a 66 6f 6c 6c 6f 77 69 6e 67 | .every.a,.b,.aK.in.the.following |
| 103e0 | 20 63 61 6e 20 62 65 20 61 20 6d 61 74 63 68 69 6e 67 20 63 6f 6e 73 74 72 75 63 74 20 61 6e 64 | .can.be.a.matching.construct.and |
| 10400 | 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 0a 73 79 6d 62 6f 6c 2f 76 61 72 69 61 62 | .not.necessarily.a.symbol/variab |
| 10420 | 6c 65 2e 0a 0a 53 79 6d 62 6f 6c 3a 0a 0a 20 20 61 20 2d 20 62 69 6e 64 20 74 68 65 20 53 4f 55 | le...Symbol:....a.-.bind.the.SOU |
| 10440 | 52 43 45 20 74 6f 20 41 2e 20 20 54 68 69 73 20 69 73 20 6a 75 73 74 20 6c 69 6b 65 20 72 65 67 | RCE.to.A...This.is.just.like.reg |
| 10460 | 75 6c 61 72 20 60 6c 65 74 27 2e 0a 0a 43 6f 6e 73 65 73 20 61 6e 64 20 6c 69 73 74 73 3a 0a 0a | ular.`let'...Conses.and.lists:.. |
| 10480 | 20 20 28 61 29 20 2d 20 62 69 6e 64 20 60 63 61 72 27 20 6f 66 20 63 6f 6e 73 2f 6c 69 73 74 20 | ..(a).-.bind.`car'.of.cons/list. |
| 104a0 | 74 6f 20 41 0a 0a 20 20 28 61 20 2e 20 62 29 20 2d 20 62 69 6e 64 20 63 61 72 20 6f 66 20 63 6f | to.A....(a...b).-.bind.car.of.co |
| 104c0 | 6e 73 20 74 6f 20 41 20 61 6e 64 20 60 63 64 72 27 20 74 6f 20 42 0a 0a 20 20 28 61 20 62 29 20 | ns.to.A.and.`cdr'.to.B....(a.b). |
| 104e0 | 2d 20 62 69 6e 64 20 63 61 72 20 6f 66 20 6c 69 73 74 20 74 6f 20 41 20 61 6e 64 20 60 63 61 64 | -.bind.car.of.list.to.A.and.`cad |
| 10500 | 72 27 20 74 6f 20 42 0a 0a 20 20 28 61 31 20 61 32 20 61 33 20 20 2e 2e 2e 29 20 2d 20 62 69 6e | r'.to.B....(a1.a2.a3.....).-.bin |
| 10520 | 64 20 30 74 68 20 63 61 72 20 6f 66 20 6c 69 73 74 20 74 6f 20 41 31 2c 20 31 73 74 20 74 6f 20 | d.0th.car.of.list.to.A1,.1st.to. |
| 10540 | 41 32 2c 20 32 6e 64 20 74 6f 20 41 33 20 2e 2e 2e 0a 0a 20 20 28 61 31 20 61 32 20 61 33 20 2e | A2,.2nd.to.A3........(a1.a2.a3.. |
| 10560 | 2e 2e 20 61 4e 20 2e 20 72 65 73 74 29 20 2d 20 61 73 20 61 62 6f 76 65 2c 20 62 75 74 20 62 69 | ...aN...rest).-.as.above,.but.bi |
| 10580 | 6e 64 20 74 68 65 20 4e 74 68 20 63 64 72 20 74 6f 20 52 45 53 54 2e 0a 0a 56 65 63 74 6f 72 73 | nd.the.Nth.cdr.to.REST...Vectors |
| 105a0 | 3a 0a 0a 20 20 5b 61 5d 20 2d 20 62 69 6e 64 20 30 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 61 | :....[a].-.bind.0th.element.of.a |
| 105c0 | 20 6e 6f 6e 2d 6c 69 73 74 20 73 65 71 75 65 6e 63 65 20 74 6f 20 41 20 28 77 6f 72 6b 73 20 77 | .non-list.sequence.to.A.(works.w |
| 105e0 | 69 74 68 0a 20 20 20 20 20 20 20 20 76 65 63 74 6f 72 73 2c 20 73 74 72 69 6e 67 73 2c 20 62 69 | ith.........vectors,.strings,.bi |
| 10600 | 74 20 61 72 72 61 79 73 2e 2e 2e 29 0a 0a 20 20 5b 61 31 20 61 32 20 61 33 20 2e 2e 2e 5d 20 2d | t.arrays...)....[a1.a2.a3....].- |
| 10620 | 20 62 69 6e 64 20 30 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 6e 6f 6e 2d 6c 69 73 74 20 73 65 | .bind.0th.element.of.non-list.se |
| 10640 | 71 75 65 6e 63 65 20 74 6f 20 41 30 2c 20 31 73 74 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 | quence.to.A0,.1st.to............ |
| 10660 | 20 20 20 20 20 20 20 20 41 31 2c 20 32 6e 64 20 74 6f 20 41 32 2c 20 2e 2e 2e 0a 20 20 20 20 20 | ........A1,.2nd.to.A2,.......... |
| 10680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 20 50 41 54 54 45 52 4e 20 69 73 20 | ..............If.the.PATTERN.is. |
| 106a0 | 73 68 6f 72 74 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c 20 74 68 65 20 76 61 6c 75 65 73 20 | shorter.than.SOURCE,.the.values. |
| 106c0 | 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 61 63 65 73 20 6e 6f 74 | at....................places.not |
| 106e0 | 20 69 6e 20 50 41 54 54 45 52 4e 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 20 20 20 20 20 20 20 | .in.PATTERN.are.ignored......... |
| 10700 | 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 20 50 41 54 54 45 52 4e 20 69 73 20 6c 6f | ............If.the.PATTERN.is.lo |
| 10720 | 6e 67 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c 20 61 6e 20 60 65 72 72 6f 72 27 20 69 73 0a | nger.than.SOURCE,.an.`error'.is. |
| 10740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 6e 2e 0a 0a 20 20 5b 61 | ...................thrown.....[a |
| 10760 | 31 20 61 32 20 61 33 20 2e 2e 2e 20 26 72 65 73 74 20 72 65 73 74 5d 20 2d 20 61 73 20 61 62 6f | 1.a2.a3.....&rest.rest].-.as.abo |
| 10780 | 76 65 2c 20 62 75 74 20 62 69 6e 64 20 74 68 65 20 72 65 73 74 20 6f 66 0a 20 20 20 20 20 20 20 | ve,.but.bind.the.rest.of........ |
| 107a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 73 65 71 75 65 | .......................the.seque |
| 107c0 | 6e 63 65 20 74 6f 20 52 45 53 54 2e 20 20 54 68 69 73 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 | nce.to.REST...This.is........... |
| 107e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 65 70 74 75 61 6c 6c 79 | ....................conceptually |
| 10800 | 20 74 68 65 20 73 61 6d 65 20 61 73 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 0a 20 20 20 20 20 | .the.same.as.improper.list...... |
| 10820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 63 68 69 6e | .........................matchin |
| 10840 | 67 20 28 61 31 20 61 32 20 2e 2e 2e 20 61 4e 20 2e 20 72 65 73 74 29 0a 0a 4b 65 79 2f 76 61 6c | g.(a1.a2.....aN...rest)..Key/val |
| 10860 | 75 65 20 73 74 6f 72 65 73 3a 0a 0a 20 20 28 26 70 6c 69 73 74 20 6b 65 79 30 20 61 30 20 2e 2e | ue.stores:....(&plist.key0.a0... |
| 10880 | 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d 61 70 70 65 64 20 62 | ..keyN.aN).-.bind.value.mapped.b |
| 108a0 | 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y.keyK.in.the................... |
| 108c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 70 6c 69 73 74 20 74 6f 20 61 | ...............SOURCE.plist.to.a |
| 108e0 | 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | K...If.the...................... |
| 10900 | 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 | ............value.is.not.found,. |
| 10920 | 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | aK.is.nil....................... |
| 10940 | 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 70 6c 69 73 74 2d 67 65 74 27 20 74 6f 20 | ............Uses.`plist-get'.to. |
| 10960 | 66 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 20 20 28 26 61 6c 69 73 74 20 6b 65 79 30 20 61 30 | fetch.values.....(&alist.key0.a0 |
| 10980 | 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d 61 70 70 65 | .....keyN.aN).-.bind.value.mappe |
| 109a0 | 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.by.keyK.in.the................ |
| 109c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 61 6c 69 73 74 20 74 | ..................SOURCE.alist.t |
| 109e0 | 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o.aK...If.the................... |
| 10a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e | ...............value.is.not.foun |
| 10a20 | 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d,.aK.is.nil.................... |
| 10a40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 61 73 73 6f 63 27 20 74 6f 20 66 | ...............Uses.`assoc'.to.f |
| 10a60 | 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 20 20 28 26 68 61 73 68 20 6b 65 79 30 20 61 30 20 2e | etch.values.....(&hash.key0.a0.. |
| 10a80 | 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d 61 70 70 65 64 20 | ...keyN.aN).-.bind.value.mapped. |
| 10aa0 | 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | by.keyK.in.the.................. |
| 10ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 68 61 73 68 20 74 61 62 6c 65 | ...............SOURCE.hash.table |
| 10ae0 | 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .to.aK...If.the................. |
| 10b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20 66 6f 75 | ................value.is.not.fou |
| 10b20 | 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd,.aK.is.nil................... |
| 10b40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 67 65 74 68 61 73 68 27 20 74 6f | ...............Uses.`gethash'.to |
| 10b60 | 20 66 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 46 75 72 74 68 65 72 2c 20 73 70 65 63 69 61 6c | .fetch.values...Further,.special |
| 10b80 | 20 6b 65 79 77 6f 72 64 20 26 6b 65 79 73 20 73 75 70 70 6f 72 74 73 20 22 69 6e 6c 69 6e 65 22 | .keyword.&keys.supports."inline" |
| 10ba0 | 20 6d 61 74 63 68 69 6e 67 20 6f 66 0a 70 6c 69 73 74 2d 6c 69 6b 65 20 6b 65 79 2d 76 61 6c 75 | .matching.of.plist-like.key-valu |
| 10bc0 | 65 20 70 61 69 72 73 2c 20 73 69 6d 69 6c 61 72 6c 79 20 74 6f 20 26 6b 65 79 73 20 6b 65 79 77 | e.pairs,.similarly.to.&keys.keyw |
| 10be0 | 6f 72 64 20 6f 66 0a 60 63 6c 2d 64 65 66 75 6e 27 2e 0a 0a 20 20 28 61 31 20 61 32 20 2e 2e 2e | ord.of.`cl-defun'.....(a1.a2.... |
| 10c00 | 20 61 4e 20 26 6b 65 79 73 20 6b 65 79 31 20 62 31 20 2e 2e 2e 20 6b 65 79 4e 20 62 4b 29 0a 0a | .aN.&keys.key1.b1.....keyN.bK).. |
| 10c20 | 54 68 69 73 20 62 69 6e 64 73 20 4e 20 76 61 6c 75 65 73 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 | This.binds.N.values.from.the.lis |
| 10c40 | 74 20 74 6f 20 61 31 20 2e 2e 2e 20 61 4e 2c 20 74 68 65 6e 20 69 6e 74 65 72 70 72 65 74 73 0a | t.to.a1.....aN,.then.interprets. |
| 10c60 | 74 68 65 20 63 64 72 20 61 73 20 61 20 70 6c 69 73 74 20 28 73 65 65 20 6b 65 79 2f 76 61 6c 75 | the.cdr.as.a.plist.(see.key/valu |
| 10c80 | 65 20 6d 61 74 63 68 69 6e 67 20 61 62 6f 76 65 29 2e 0a 0a 41 20 73 68 6f 72 74 68 61 6e 64 20 | e.matching.above)...A.shorthand. |
| 10ca0 | 6e 6f 74 61 74 69 6f 6e 20 66 6f 72 20 6b 76 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 65 78 | notation.for.kv-destructuring.ex |
| 10cc0 | 69 73 74 73 20 77 68 69 63 68 20 61 6c 6c 6f 77 73 20 74 68 65 0a 70 61 74 74 65 72 6e 73 20 62 | ists.which.allows.the.patterns.b |
| 10ce0 | 65 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 6c 65 66 74 20 6f 75 74 20 61 6e 64 20 64 65 72 69 76 65 | e.optionally.left.out.and.derive |
| 10d00 | 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 20 6e 61 6d 65 20 69 6e 0a 74 68 65 20 66 6f 6c 6c 6f | d.from.the.key.name.in.the.follo |
| 10d20 | 77 69 6e 67 20 66 61 73 68 69 6f 6e 3a 0a 0a 2d 20 61 20 6b 65 79 20 3a 66 6f 6f 20 69 73 20 63 | wing.fashion:..-.a.key.:foo.is.c |
| 10d40 | 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 60 66 6f 6f 27 20 70 61 74 74 65 72 6e 2c 0a 2d 20 61 | onverted.into.`foo'.pattern,.-.a |
| 10d60 | 20 6b 65 79 20 27 62 61 72 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 60 62 61 72 | .key.'bar.is.converted.into.`bar |
| 10d80 | 27 20 70 61 74 74 65 72 6e 2c 0a 2d 20 61 20 6b 65 79 20 22 62 61 7a 22 20 69 73 20 63 6f 6e 76 | '.pattern,.-.a.key."baz".is.conv |
| 10da0 | 65 72 74 65 64 20 69 6e 74 6f 20 60 62 61 7a 27 20 70 61 74 74 65 72 6e 2e 0a 0a 54 68 61 74 20 | erted.into.`baz'.pattern...That. |
| 10dc0 | 69 73 2c 20 74 68 65 20 65 6e 74 69 72 65 20 76 61 6c 75 65 20 75 6e 64 65 72 20 74 68 65 20 6b | is,.the.entire.value.under.the.k |
| 10de0 | 65 79 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 64 65 72 69 76 65 64 0a 76 61 72 69 61 | ey.is.bound.to.the.derived.varia |
| 10e00 | 62 6c 65 20 77 69 74 68 6f 75 74 20 61 6e 79 20 66 75 72 74 68 65 72 20 64 65 73 74 72 75 63 74 | ble.without.any.further.destruct |
| 10e20 | 75 72 69 6e 67 2e 0a 0a 54 68 69 73 20 69 73 20 70 6f 73 73 69 62 6c 65 20 6f 6e 6c 79 20 77 68 | uring...This.is.possible.only.wh |
| 10e40 | 65 6e 20 74 68 65 20 66 6f 72 6d 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 6b 65 79 20 69 73 | en.the.form.following.the.key.is |
| 10e60 | 20 6e 6f 74 20 61 0a 76 61 6c 69 64 20 70 61 74 74 65 72 6e 20 28 69 2e 65 2e 20 6e 6f 74 20 61 | .not.a.valid.pattern.(i.e..not.a |
| 10e80 | 20 73 79 6d 62 6f 6c 2c 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 6f 72 20 61 20 76 65 63 74 6f 72 | .symbol,.a.cons.cell.or.a.vector |
| 10ea0 | 29 2e 0a 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 6d 61 74 63 68 69 6e 67 20 70 72 6f 63 65 65 | )..Otherwise.the.matching.procee |
| 10ec0 | 64 73 20 61 73 20 75 73 75 61 6c 20 61 6e 64 20 69 6e 20 63 61 73 65 20 6f 66 20 61 6e 0a 69 6e | ds.as.usual.and.in.case.of.an.in |
| 10ee0 | 76 61 6c 69 64 20 73 70 65 63 20 66 61 69 6c 73 20 77 69 74 68 20 61 6e 20 65 72 72 6f 72 2e 0a | valid.spec.fails.with.an.error.. |
| 10f00 | 0a 54 68 75 73 20 74 68 65 20 70 61 74 74 65 72 6e 73 20 61 72 65 20 6e 6f 72 6d 61 6c 69 7a 65 | .Thus.the.patterns.are.normalize |
| 10f20 | 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 0a 20 20 20 3b 3b 20 64 65 72 69 76 65 20 61 6c 6c 20 | d.as.follows:.....;;.derive.all. |
| 10f40 | 74 68 65 20 6d 69 73 73 69 6e 67 20 70 61 74 74 65 72 6e 73 0a 20 20 20 28 26 70 6c 69 73 74 20 | the.missing.patterns....(&plist. |
| 10f60 | 3a 66 6f 6f 20 27 62 61 72 20 22 62 61 7a 22 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f | :foo.'bar."baz").=>.(&plist.:foo |
| 10f80 | 20 66 6f 6f 20 27 62 61 72 20 62 61 72 20 22 62 61 7a 22 20 62 61 7a 29 0a 0a 20 20 20 3b 3b 20 | .foo.'bar.bar."baz".baz).....;;. |
| 10fa0 | 77 65 20 63 61 6e 20 73 70 65 63 69 66 79 20 73 6f 6d 65 20 62 75 74 20 6e 6f 74 20 6f 74 68 65 | we.can.specify.some.but.not.othe |
| 10fc0 | 72 73 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 27 62 61 72 20 65 78 70 6c 69 63 69 74 | rs....(&plist.:foo.'bar.explicit |
| 10fe0 | 2d 62 61 72 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 66 6f 6f 20 27 62 61 72 20 65 | -bar).=>.(&plist.:foo.foo.'bar.e |
| 11000 | 78 70 6c 69 63 69 74 2d 62 61 72 29 0a 0a 20 20 20 3b 3b 20 6e 6f 74 68 69 6e 67 20 68 61 70 70 | xplicit-bar).....;;.nothing.happ |
| 11020 | 65 6e 73 2c 20 77 65 20 73 74 6f 72 65 20 3a 66 6f 6f 20 69 6e 20 78 0a 20 20 20 28 26 70 6c 69 | ens,.we.store.:foo.in.x....(&pli |
| 11040 | 73 74 20 3a 66 6f 6f 20 78 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 78 29 0a 0a 20 | st.:foo.x).=>.(&plist.:foo.x)... |
| 11060 | 20 20 3b 3b 20 6e 6f 74 68 69 6e 67 20 68 61 70 70 65 6e 73 2c 20 77 65 20 6d 61 74 63 68 20 72 | ..;;.nothing.happens,.we.match.r |
| 11080 | 65 63 75 72 73 69 76 65 6c 79 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 28 61 20 62 20 | ecursively....(&plist.:foo.(a.b. |
| 110a0 | 63 29 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 28 61 20 62 20 63 29 29 0a 0a 59 6f | c)).=>.(&plist.:foo.(a.b.c))..Yo |
| 110c0 | 75 20 63 61 6e 20 6e 61 6d 65 20 74 68 65 20 73 6f 75 72 63 65 20 75 73 69 6e 67 20 74 68 65 20 | u.can.name.the.source.using.the. |
| 110e0 | 73 79 6e 74 61 78 20 53 59 4d 42 4f 4c 20 26 61 73 20 50 41 54 54 45 52 4e 2e 0a 54 68 69 73 20 | syntax.SYMBOL.&as.PATTERN..This. |
| 11100 | 73 79 6e 74 61 78 20 77 6f 72 6b 73 20 77 69 74 68 20 6c 69 73 74 73 20 28 70 72 6f 70 65 72 20 | syntax.works.with.lists.(proper. |
| 11120 | 6f 72 20 69 6d 70 72 6f 70 65 72 29 2c 20 76 65 63 74 6f 72 73 20 61 6e 64 0a 61 6c 6c 20 74 79 | or.improper),.vectors.and.all.ty |
| 11140 | 70 65 73 20 6f 66 20 6d 61 70 73 2e 0a 0a 20 20 28 6c 69 73 74 20 26 61 73 20 61 20 62 20 63 29 | pes.of.maps.....(list.&as.a.b.c) |
| 11160 | 20 28 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 41 20 74 6f 20 31 2c 20 42 20 74 | .(list.1.2.3)..binds.A.to.1,.B.t |
| 11180 | 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 4c 49 53 54 20 74 6f 20 28 31 20 32 20 33 29 2e | o.2,.C.to.3.and.LIST.to.(1.2.3). |
| 111a0 | 0a 0a 53 69 6d 69 6c 61 72 6c 79 3a 0a 0a 20 20 28 62 6f 75 6e 64 73 20 26 61 73 20 62 65 67 20 | ..Similarly:....(bounds.&as.beg. |
| 111c0 | 2e 20 65 6e 64 29 20 28 63 6f 6e 73 20 31 20 32 29 0a 0a 62 69 6e 64 73 20 42 45 47 20 74 6f 20 | ..end).(cons.1.2)..binds.BEG.to. |
| 111e0 | 31 2c 20 45 4e 44 20 74 6f 20 32 20 61 6e 64 20 42 4f 55 4e 44 53 20 74 6f 20 28 31 20 2e 20 32 | 1,.END.to.2.and.BOUNDS.to.(1...2 |
| 11200 | 29 2e 0a 0a 20 20 28 69 74 65 6d 73 20 26 61 73 20 66 69 72 73 74 20 2e 20 72 65 73 74 29 20 28 | ).....(items.&as.first...rest).( |
| 11220 | 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 46 49 52 53 54 20 74 6f 20 31 2c 20 52 | list.1.2.3)..binds.FIRST.to.1,.R |
| 11240 | 45 53 54 20 74 6f 20 28 32 20 33 29 20 61 6e 64 20 49 54 45 4d 53 20 74 6f 20 28 31 20 32 20 33 | EST.to.(2.3).and.ITEMS.to.(1.2.3 |
| 11260 | 29 0a 0a 20 20 5b 76 65 63 74 20 26 61 73 20 5f 20 62 20 63 5d 20 5b 31 20 32 20 33 5d 0a 0a 62 | )....[vect.&as._.b.c].[1.2.3]..b |
| 11280 | 69 6e 64 73 20 42 20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 56 45 43 54 20 74 6f 20 | inds.B.to.2,.C.to.3.and.VECT.to. |
| 112a0 | 5b 31 20 32 20 33 5d 20 28 5f 20 61 76 6f 69 64 73 20 62 69 6e 64 69 6e 67 20 61 73 20 75 73 75 | [1.2.3].(_.avoids.binding.as.usu |
| 112c0 | 61 6c 29 2e 0a 0a 20 20 28 70 6c 69 73 74 20 26 61 73 20 26 70 6c 69 73 74 20 3a 62 20 62 29 20 | al).....(plist.&as.&plist.:b.b). |
| 112e0 | 28 6c 69 73 74 20 3a 61 20 31 20 3a 62 20 32 20 3a 63 20 33 29 0a 0a 62 69 6e 64 73 20 42 20 74 | (list.:a.1.:b.2.:c.3)..binds.B.t |
| 11300 | 6f 20 32 20 61 6e 64 20 50 4c 49 53 54 20 74 6f 20 28 3a 61 20 31 20 3a 62 20 32 20 3a 63 20 33 | o.2.and.PLIST.to.(:a.1.:b.2.:c.3 |
| 11320 | 29 2e 20 20 53 61 6d 65 20 66 6f 72 20 26 61 6c 69 73 74 20 61 6e 64 20 26 68 61 73 68 2e 0a 0a | )...Same.for.&alist.and.&hash... |
| 11340 | 54 68 69 73 20 69 73 20 65 73 70 65 63 69 61 6c 6c 79 20 75 73 65 66 75 6c 20 77 68 65 6e 20 77 | This.is.especially.useful.when.w |
| 11360 | 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 | e.want.to.capture.the.result.of. |
| 11380 | 61 0a 63 6f 6d 70 75 74 61 74 69 6f 6e 20 61 6e 64 20 64 65 73 74 72 75 63 74 75 72 65 20 61 74 | a.computation.and.destructure.at |
| 113a0 | 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 2e 20 20 43 6f 6e 73 69 64 65 72 20 74 68 65 0a 66 6f | .the.same.time...Consider.the.fo |
| 113c0 | 72 6d 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 6e 67 2d 63 6f 6d 70 6c 65 78 2d 73 | rm.(function-returning-complex-s |
| 113e0 | 74 72 75 63 74 75 72 65 29 20 72 65 74 75 72 6e 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 0a 74 77 | tructure).returning.a.list.of.tw |
| 11400 | 6f 20 76 65 63 74 6f 72 73 20 77 69 74 68 20 74 77 6f 20 69 74 65 6d 73 20 65 61 63 68 2e 20 20 | o.vectors.with.two.items.each... |
| 11420 | 57 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 69 73 20 65 6e 74 69 72 65 0a 72 | We.want.to.capture.this.entire.r |
| 11440 | 65 73 75 6c 74 20 61 6e 64 20 70 61 73 73 20 69 74 20 74 6f 20 61 6e 6f 74 68 65 72 20 63 6f 6d | esult.and.pass.it.to.another.com |
| 11460 | 70 75 74 61 74 69 6f 6e 2c 20 62 75 74 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 0a 77 | putation,.but.at.the.same.time.w |
| 11480 | 65 20 77 61 6e 74 20 74 6f 20 67 65 74 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 20 66 72 | e.want.to.get.the.second.item.fr |
| 114a0 | 6f 6d 20 65 61 63 68 20 76 65 63 74 6f 72 2e 20 20 57 65 20 63 61 6e 20 61 63 68 69 65 76 65 0a | om.each.vector...We.can.achieve. |
| 114c0 | 69 74 20 77 69 74 68 20 70 61 74 74 65 72 6e 0a 0a 20 20 28 72 65 73 75 6c 74 20 26 61 73 20 5b | it.with.pattern....(result.&as.[ |
| 114e0 | 5f 20 61 5d 20 5b 5f 20 62 5d 29 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 6e 67 2d | _.a].[_.b]).(function-returning- |
| 11500 | 63 6f 6d 70 6c 65 78 2d 73 74 72 75 63 74 75 72 65 29 0a 0a 4e 6f 74 65 3a 20 43 6c 6f 6a 75 72 | complex-structure)..Note:.Clojur |
| 11520 | 65 20 70 72 6f 67 72 61 6d 6d 65 72 73 20 6d 61 79 20 6b 6e 6f 77 20 74 68 69 73 20 66 65 61 74 | e.programmers.may.know.this.feat |
| 11540 | 75 72 65 20 61 73 20 74 68 65 20 22 3a 61 73 0a 62 69 6e 64 69 6e 67 22 2e 20 20 54 68 65 20 64 | ure.as.the.":as.binding"...The.d |
| 11560 | 69 66 66 65 72 65 6e 63 65 20 69 73 20 74 68 61 74 20 77 65 20 70 75 74 20 74 68 65 20 26 61 73 | ifference.is.that.we.put.the.&as |
| 11580 | 20 61 74 20 74 68 65 20 66 72 6f 6e 74 0a 62 65 63 61 75 73 65 20 77 65 20 6e 65 65 64 20 74 6f | .at.the.front.because.we.need.to |
| 115a0 | 20 73 75 70 70 6f 72 74 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 20 62 69 6e 64 69 6e 67 2e 0a | .support.improper.list.binding.. |
| 115c0 | 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c | .(fn.VARLIST.&rest.BODY)..(defal |
| 115e0 | 69 61 73 20 27 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 | ias.'-let.'(macro...#[385."\300. |
| 11600 | 21 5c 32 30 33 13 00 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 48 04 5c 33 30 34 48 5c 22 02 42 42 | !\203..\301\302.\303H.\304H\".BB |
| 11620 | 5c 32 30 37 5c 33 30 35 02 21 5c 33 30 36 01 5c 33 30 33 01 5c 32 30 33 39 00 01 40 5c 33 30 37 | \207\305.!\306.\303.\2039..@\307 |
| 11640 | 5c 33 31 30 5c 33 31 31 04 5c 22 21 01 41 40 44 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 | \310\311.\"!.A@D.B\262.\210\211T |
| 11660 | 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 19 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c | \262..A\262.\202..\266.\211\237\ |
| 11680 | 32 36 32 01 5c 33 31 32 5c 33 31 33 5c 33 31 34 04 04 5c 22 5c 22 5c 33 31 35 02 5c 33 31 36 03 | 262.\312\313\314..\"\"\315.\316. |
| 116a0 | 06 07 42 42 45 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 70 20 6c 65 74 2a 20 64 61 73 68 2d 2d 6d | ..BBE\207".[vectorp.let*.dash--m |
| 116c0 | 61 74 63 68 20 30 20 31 20 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 | atch.0.1.dash--normalize-let-var |
| 116e0 | 6c 69 73 74 20 6e 69 6c 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 69 6e 70 | list.nil.make-symbol.format."inp |
| 11700 | 75 74 25 64 22 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 40 40 01 41 40 44 5c 32 | ut%d".mapcar.#[257."\211@@.A@D\2 |
| 11720 | 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 2d 7a 69 70 20 6c 65 74 | 07".[].3."\n\n(fn.IT)"].-zip.let |
| 11740 | 20 2d 6c 65 74 2a 5d 20 31 31 20 28 23 24 20 2e 20 36 35 34 34 36 29 5d 29 29 0a 28 62 79 74 65 | .-let*].11.(#$...65446)])).(byte |
| 11760 | 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 | -code."\300\301\302\303#\210\304 |
| 11780 | 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c 65 74 20 65 64 65 | \301\305\306#\207".[put.-let.ede |
| 117a0 | 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 5b 26 6f 72 20 28 26 72 65 73 74 20 5b 26 6f 72 20 | bug-form-spec.([&or.(&rest.[&or. |
| 117c0 | 28 73 65 78 70 20 66 6f 72 6d 29 20 73 65 78 70 5d 29 20 28 76 65 63 74 6f 72 20 5b 26 72 65 73 | (sexp.form).sexp]).(vector.[&res |
| 117e0 | 74 20 5b 73 65 78 70 20 66 6f 72 6d 5d 5d 29 5d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d | t.[sexp.form]])].body).function- |
| 11800 | 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 | put.lisp-indent-function.1].4).# |
| 11820 | 40 34 32 33 20 52 65 74 75 72 6e 20 61 20 6c 61 6d 62 64 61 20 77 68 69 63 68 20 64 65 73 74 72 | @423.Return.a.lambda.which.destr |
| 11840 | 75 63 74 75 72 65 73 20 69 74 73 20 69 6e 70 75 74 20 61 73 20 4d 41 54 43 48 2d 46 4f 52 4d 20 | uctures.its.input.as.MATCH-FORM. |
| 11860 | 61 6e 64 20 65 78 65 63 75 74 65 73 20 42 4f 44 59 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 79 6f | and.executes.BODY...Note.that.yo |
| 11880 | 75 20 68 61 76 65 20 74 6f 20 65 6e 63 6c 6f 73 65 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d | u.have.to.enclose.the.MATCH-FORM |
| 118a0 | 20 69 6e 20 61 20 70 61 69 72 20 6f 66 20 70 61 72 65 6e 73 2c 0a 73 75 63 68 20 74 68 61 74 3a | .in.a.pair.of.parens,.such.that: |
| 118c0 | 0a 0a 20 20 28 2d 6c 61 6d 62 64 61 20 28 78 29 20 62 6f 64 79 29 0a 20 20 28 2d 6c 61 6d 62 64 | ....(-lambda.(x).body)...(-lambd |
| 118e0 | 61 20 28 78 20 79 20 2e 2e 2e 29 20 62 6f 64 79 29 0a 0a 68 61 73 20 74 68 65 20 75 73 75 61 6c | a.(x.y....).body)..has.the.usual |
| 11900 | 20 73 65 6d 61 6e 74 69 63 73 20 6f 66 20 60 6c 61 6d 62 64 61 27 2e 20 20 46 75 72 74 68 65 72 | .semantics.of.`lambda'...Further |
| 11920 | 6d 6f 72 65 2c 20 74 68 65 73 65 20 67 65 74 0a 74 72 61 6e 73 6c 61 74 65 64 20 69 6e 74 6f 20 | more,.these.get.translated.into. |
| 11940 | 6e 6f 72 6d 61 6c 20 6c 61 6d 62 64 61 2c 20 73 6f 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 65 | normal.lambda,.so.there.is.no.pe |
| 11960 | 72 66 6f 72 6d 61 6e 63 65 0a 70 65 6e 61 6c 74 79 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 20 66 | rformance.penalty...See.`-let'.f |
| 11980 | 6f 72 20 74 68 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 64 65 73 74 72 75 63 74 75 72 | or.the.description.of.destructur |
| 119a0 | 69 6e 67 20 6d 65 63 68 61 6e 69 73 6d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 26 | ing.mechanism...(fn.MATCH-FORM.& |
| 119c0 | 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 61 6d 62 64 61 20 27 | rest.BODY)..(defalias.'-lambda.' |
| 119e0 | 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 01 3a 5c 32 30 34 5c 6e 00 5c 33 30 30 5c 33 30 | (macro...#[385.".:\204\n.\300\30 |
| 11a00 | 31 5c 33 30 32 5c 22 5c 32 30 37 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 33 17 00 5c 33 30 35 | 1\302\"\207\303\304.\"\203..\305 |
| 11a20 | 02 02 42 42 5c 32 30 37 5c 33 30 36 02 5c 33 30 37 01 5c 32 30 33 38 00 01 40 5c 32 31 31 5c 33 | ..BB\207\306.\307.\2038..@\211\3 |
| 11a40 | 31 30 5c 33 31 31 5c 33 31 32 05 5c 22 21 44 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c | 10\311\312.\"!D.B\262.\210\211T\ |
| 11a60 | 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 1a 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 | 262..A\262.\202..\266.\211\237\2 |
| 11a80 | 36 32 01 5c 33 30 35 5c 33 31 33 5c 33 31 34 03 5c 22 5c 33 31 35 03 05 42 42 45 5c 32 30 37 22 | 62.\305\313\314.\"\315..BBE\207" |
| 11aa0 | 20 5b 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 22 6d 61 | .[signal.wrong-type-argument."ma |
| 11ac0 | 74 63 68 2d 66 6f 72 6d 20 6d 75 73 74 20 62 65 20 61 20 6c 69 73 74 22 20 2d 61 6c 6c 5c 3f 20 | tch-form.must.be.a.list".-all\?. |
| 11ae0 | 73 79 6d 62 6f 6c 70 20 6c 61 6d 62 64 61 20 6e 69 6c 20 30 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c | symbolp.lambda.nil.0.make-symbol |
| 11b00 | 20 66 6f 72 6d 61 74 20 22 69 6e 70 75 74 25 64 22 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 | .format."input%d".mapcar.#[257." |
| 11b20 | 5c 32 31 31 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 | \211A@\207".[].2."\n\n(fn.IT)"]. |
| 11b40 | 2d 6c 65 74 2a 5d 20 31 31 20 28 23 24 20 2e 20 37 31 37 31 37 29 5d 29 29 0a 28 62 79 74 65 2d | -let*].11.(#$...71717)])).(byte- |
| 11b60 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c | code."\300\301\302\303#\210\300\ |
| 11b80 | 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c 33 30 37 5c 33 31 30 | 301\304\305#\210\306\301\307\310 |
| 11ba0 | 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6c 61 6d 62 64 61 20 64 6f 63 | #\207".[function-put.-lambda.doc |
| 11bc0 | 2d 73 74 72 69 6e 67 2d 65 6c 74 20 32 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 | -string-elt.2.lisp-indent-functi |
| 11be0 | 6f 6e 20 64 65 66 75 6e 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 26 | on.defun.put.edebug-form-spec.(& |
| 11c00 | 64 65 66 69 6e 65 20 73 65 78 70 20 5b 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 69 6e 67 70 5d 20 | define.sexp.[&optional.stringp]. |
| 11c20 | 5b 26 6f 70 74 69 6f 6e 61 6c 20 28 22 69 6e 74 65 72 61 63 74 69 76 65 22 20 69 6e 74 65 72 61 | [&optional.("interactive".intera |
| 11c40 | 63 74 69 76 65 29 5d 20 64 65 66 2d 62 6f 64 79 29 5d 20 34 29 0a 23 40 35 33 30 20 42 69 6e 64 | ctive)].def-body)].4).#@530.Bind |
| 11c60 | 20 65 61 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 | .each.MATCH-FORM.to.the.value.of |
| 11c80 | 20 69 74 73 20 56 41 4c 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 64 65 73 74 72 75 63 74 75 72 | .its.VAL...MATCH-FORM.destructur |
| 11ca0 | 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 72 75 6c | ing.is.done.according.to.the.rul |
| 11cc0 | 65 73 20 6f 66 20 60 2d 6c 65 74 27 2e 0a 0a 54 68 69 73 20 6d 61 63 72 6f 20 61 6c 6c 6f 77 73 | es.of.`-let'...This.macro.allows |
| 11ce0 | 20 79 6f 75 20 74 6f 20 62 69 6e 64 20 6d 75 6c 74 69 70 6c 65 20 76 61 72 69 61 62 6c 65 73 20 | .you.to.bind.multiple.variables. |
| 11d00 | 62 79 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 0a 74 68 65 20 76 61 6c 75 65 2c 20 73 6f 20 66 | by.destructuring.the.value,.so.f |
| 11d20 | 6f 72 20 65 78 61 6d 70 6c 65 3a 0a 0a 20 20 28 2d 73 65 74 71 20 28 61 20 62 29 20 78 0a 20 20 | or.example:....(-setq.(a.b).x... |
| 11d40 | 20 20 20 20 20 20 20 28 26 70 6c 69 73 74 20 3a 63 20 63 29 20 70 6c 69 73 74 29 0a 0a 65 78 70 | .......(&plist.:c.c).plist)..exp |
| 11d60 | 61 6e 64 73 20 72 6f 75 67 68 6c 79 20 73 70 65 61 6b 69 6e 67 20 74 6f 20 74 68 65 20 66 6f 6c | ands.roughly.speaking.to.the.fol |
| 11d80 | 6c 6f 77 69 6e 67 20 63 6f 64 65 0a 0a 20 20 28 73 65 74 71 20 61 20 28 63 61 72 20 78 29 0a 20 | lowing.code....(setq.a.(car.x).. |
| 11da0 | 20 20 20 20 20 20 20 62 20 28 63 61 64 72 20 78 29 0a 20 20 20 20 20 20 20 20 63 20 28 70 6c 69 | .......b.(cadr.x).........c.(pli |
| 11dc0 | 73 74 2d 67 65 74 20 70 6c 69 73 74 20 3a 63 29 29 0a 0a 43 61 72 65 20 69 73 20 74 61 6b 65 6e | st-get.plist.:c))..Care.is.taken |
| 11de0 | 20 74 6f 20 6f 6e 6c 79 20 65 76 61 6c 75 61 74 65 20 65 61 63 68 20 56 41 4c 20 6f 6e 63 65 20 | .to.only.evaluate.each.VAL.once. |
| 11e00 | 73 6f 20 74 68 61 74 20 69 6e 20 63 61 73 65 20 6f 66 0a 6d 75 6c 74 69 70 6c 65 20 61 73 73 69 | so.that.in.case.of.multiple.assi |
| 11e20 | 67 6e 6d 65 6e 74 73 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 63 61 75 73 65 20 75 6e 65 78 70 65 | gnments.it.does.not.cause.unexpe |
| 11e40 | 63 74 65 64 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a 0a 28 66 6e 20 5b 4d 41 54 43 48 2d 46 | cted.side.effects...(fn.[MATCH-F |
| 11e60 | 4f 52 4d 20 56 41 4c 5d 2e 2e 2e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 74 71 20 27 | ORM.VAL]...)..(defalias.'-setq.' |
| 11e80 | 28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 01 47 5c 33 30 31 5c 22 5c 33 30 32 | (macro...#[128."\300.G\301\"\302 |
| 11ea0 | 55 5c 32 30 33 0e 00 5c 33 30 33 5c 33 30 34 21 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 | U\203..\303\304!\210\305\306\307 |
| 11ec0 | 5c 33 30 31 04 5c 22 5c 22 5c 33 31 30 5c 33 31 31 02 5c 22 5c 33 31 32 5c 33 30 35 5c 33 31 33 | \301.\"\"\310\311.\"\312\305\313 |
| 11ee0 | 03 5c 22 5c 33 31 34 5c 33 31 35 5c 33 30 32 06 06 5c 22 5c 33 31 36 5c 33 31 37 5c 33 30 35 5c | .\"\314\315\302..\"\316\317\305\ |
| 11f00 | 33 32 30 06 08 5c 22 21 42 45 5c 33 31 36 5c 33 31 37 05 21 42 46 5c 32 30 37 22 20 5b 6d 6f 64 | 320..\"!BE\316\317.!BF\207".[mod |
| 11f20 | 20 32 20 31 20 65 72 72 6f 72 20 22 4f 64 64 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 | .2.1.error."Odd.number.of.argume |
| 11f40 | 6e 74 73 22 20 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 | nts".-map.#[257."\300.@.A@\"\207 |
| 11f60 | 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 | ".[dash--match].4."\n\n(fn.X)"]. |
| 11f80 | 2d 70 61 72 74 69 74 69 6f 6e 20 2d 6d 61 70 63 61 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 | -partition.-mapcat.#[257."\300\3 |
| 11fa0 | 30 31 5c 33 30 32 03 5c 33 30 33 01 5c 32 30 33 26 00 01 40 5c 33 30 34 5c 33 30 35 5c 33 30 36 | 01\302.\303.\203&..@\304\305\306 |
| 11fc0 | 03 40 21 5c 22 5c 32 30 34 1a 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c | .@!\"\204..\211.B\262.\210\211T\ |
| 11fe0 | 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 | 262..A\262.\202..\266.\211\237\2 |
| 12000 | 36 32 01 5c 22 5c 32 30 37 22 20 5b 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 32 31 31 40 5c 32 31 | 62.\"\207".[-map.#[257."\211@\21 |
| 12020 | 31 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 21 5c 33 30 33 51 21 44 5c 32 30 37 22 20 5b 6d 61 6b | 1\300\301\302.!\303Q!D\207".[mak |
| 12040 | 65 2d 73 79 6d 62 6f 6c 20 22 2d 2d 64 61 73 68 2d 62 69 6e 64 69 6e 67 2d 22 20 73 79 6d 62 6f | e-symbol."--dash-binding-".symbo |
| 12060 | 6c 2d 6e 61 6d 65 20 22 2d 2d 22 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 42 49 4e 44 49 4e 47 29 | l-name."--"].7."\n\n(fn.BINDING) |
| 12080 | 22 5d 20 6e 69 6c 20 30 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 2d 2d 22 20 73 79 | "].nil.0.string-prefix-p."--".sy |
| 120a0 | 6d 62 6f 6c 2d 6e 61 6d 65 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 42 49 4e 44 49 4e 47 53 29 | mbol-name].11."\n\n(fn.BINDINGS) |
| 120c0 | 22 5d 20 6c 65 74 20 63 61 64 72 20 6c 65 74 2a 20 2d 66 6c 61 74 74 65 6e 2d 6e 20 73 65 74 71 | "].let.cadr.let*.-flatten-n.setq |
| 120e0 | 20 2d 66 6c 61 74 74 65 6e 20 72 65 76 65 72 73 65 5d 20 31 32 20 28 23 24 20 2e 20 37 32 37 39 | .-flatten.reverse].12.(#$...7279 |
| 12100 | 36 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 6)])).(byte-code."\300\301\302\3 |
| 12120 | 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 | 03#\210\304\301\305\306#\207".[p |
| 12140 | 75 74 20 2d 73 65 74 71 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 26 72 65 73 74 | ut.-setq.edebug-form-spec.(&rest |
| 12160 | 20 73 65 78 70 20 66 6f 72 6d 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e | .sexp.form).function-put.lisp-in |
| 12180 | 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 33 32 30 20 49 66 20 61 6c 6c | dent-function.1].4).#@320.If.all |
| 121a0 | 20 56 41 4c 53 20 65 76 61 6c 75 61 74 65 20 74 6f 20 74 72 75 65 2c 20 62 69 6e 64 20 74 68 65 | .VALS.evaluate.to.true,.bind.the |
| 121c0 | 6d 20 74 6f 20 74 68 65 69 72 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 56 41 52 53 20 61 6e | m.to.their.corresponding.VARS.an |
| 121e0 | 64 20 64 6f 20 54 48 45 4e 2c 20 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 20 56 41 | d.do.THEN,.otherwise.do.ELSE..VA |
| 12200 | 52 53 2d 56 41 4c 53 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 0a 6f 66 20 28 56 41 52 | RS-VALS.should.be.a.list.of.(VAR |
| 12220 | 20 56 41 4c 29 20 70 61 69 72 73 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 | .VAL).pairs...Note:.binding.is.d |
| 12240 | 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 2a 27 2e 20 20 56 41 4c 53 20 | one.according.to.`-let*'...VALS. |
| 12260 | 61 72 65 20 65 76 61 6c 75 61 74 65 64 0a 73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 61 6e 64 20 | are.evaluated.sequentially,.and. |
| 12280 | 65 76 61 6c 75 61 74 69 6f 6e 20 73 74 6f 70 73 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 | evaluation.stops.after.the.first |
| 122a0 | 20 6e 69 6c 20 56 41 4c 20 69 73 0a 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 | .nil.VAL.is.encountered...(fn.VA |
| 122c0 | 52 53 2d 56 41 4c 53 20 54 48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c | RS-VALS.THEN.&rest.ELSE)..(defal |
| 122e0 | 69 61 73 20 27 2d 69 66 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 01 | ias.'-if-let*.'(macro...#[642.". |
| 12300 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 08 5c 22 5c 22 21 5c 33 30 35 01 | \300\301\302\303\304..\"\"!\305. |
| 12320 | 5c 32 30 33 36 00 01 40 5c 32 31 31 40 01 41 40 5c 33 30 36 02 02 44 43 5c 33 30 37 04 06 09 06 | \2036..@\211@.A@\306..DC\307.... |
| 12340 | 0b 42 42 42 45 5c 32 36 36 5c 32 30 32 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 | .BBBE\266\202\262.\210\211T\262. |
| 12360 | 01 41 5c 32 36 32 02 5c 32 30 32 5c 66 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 72 65 | .A\262.\202\f.\266.\211\207".[re |
| 12380 | 76 65 72 73 65 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 | verse.apply.append.mapcar.#[257. |
| 123a0 | 22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 | "\300.@.A@\"\207".[dash--match]. |
| 123c0 | 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 30 20 6c 65 74 20 69 66 5d 20 31 35 20 28 23 | 4."\n\n(fn.IT)"].0.let.if].15.(# |
| 123e0 | 24 20 2e 20 37 34 31 33 38 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | $...74138)])).(byte-code."\300\3 |
| 12400 | 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 | 01\302\303#\210\304\301\305\306# |
| 12420 | 5c 32 30 37 22 20 5b 70 75 74 20 2d 69 66 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d | \207".[put.-if-let*.edebug-form- |
| 12440 | 73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 65 78 70 20 66 6f 72 6d 29 29 20 66 6f 72 6d 20 62 | spec.((&rest.(sexp.form)).form.b |
| 12460 | 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 | ody).function-put.lisp-indent-fu |
| 12480 | 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 35 33 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 | nction.2].4).#@153.If.VAL.evalua |
| 124a0 | 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 56 41 52 20 61 | tes.to.non-nil,.bind.it.to.VAR.a |
| 124c0 | 6e 64 20 64 6f 20 54 48 45 4e 2c 0a 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 0a 0a | nd.do.THEN,.otherwise.do.ELSE... |
| 124e0 | 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 | Note:.binding.is.done.according. |
| 12500 | 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52 20 56 41 4c 29 20 54 48 45 4e 20 26 | to.`-let'...(fn.(VAR.VAL).THEN.& |
| 12520 | 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 66 2d 6c 65 74 20 27 | rest.ELSE)..(defalias.'-if-let.' |
| 12540 | 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 03 43 03 03 42 42 42 5c 32 30 37 22 | (macro...#[642."\300.C..BBB\207" |
| 12560 | 20 5b 2d 69 66 2d 6c 65 74 2a 5d 20 37 20 28 23 24 20 2e 20 37 34 38 39 39 29 5d 29 29 0a 28 62 | .[-if-let*].7.(#$...74899)])).(b |
| 12580 | 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c | yte-code."\300\301\302\303#\210\ |
| 125a0 | 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 69 66 2d 6c | 304\301\305\306#\207".[put.-if-l |
| 125c0 | 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 73 65 78 70 20 66 6f 72 6d 29 | et.edebug-form-spec.((sexp.form) |
| 125e0 | 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e | .form.body).function-put.lisp-in |
| 12600 | 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 31 31 20 49 66 20 56 41 4c | dent-function.2].4).#@111.If.VAL |
| 12620 | 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 | .evaluates.to.non-nil,.bind.it.t |
| 12640 | 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 20 64 6f 20 54 48 45 4e 2c 0a 6f 74 68 65 72 | o.symbol.`it'.and.do.THEN,.other |
| 12660 | 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 0a 0a 28 66 6e 20 56 41 4c 20 54 48 45 4e 20 26 72 65 73 | wise.do.ELSE...(fn.VAL.THEN.&res |
| 12680 | 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 69 66 2d 6c 65 74 20 27 28 6d | t.ELSE)..(defalias.'--if-let.'(m |
| 126a0 | 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 04 44 03 03 42 42 42 5c 32 30 | acro...#[642."\300\301.D..BBB\20 |
| 126c0 | 37 22 20 5b 2d 69 66 2d 6c 65 74 20 69 74 5d 20 37 20 28 23 24 20 2e 20 37 35 32 39 30 29 5d 29 | 7".[-if-let.it].7.(#$...75290)]) |
| 126e0 | 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c | ).(byte-code."\300\301\302\303#\ |
| 12700 | 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d | 210\304\301\305\306#\207".[put.- |
| 12720 | 2d 69 66 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 | -if-let.edebug-form-spec.(form.f |
| 12740 | 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 | orm.body).function-put.lisp-inde |
| 12760 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 33 30 31 20 49 66 20 61 6c 6c 20 56 | nt-function.2].4).#@301.If.all.V |
| 12780 | 41 4c 53 20 65 76 61 6c 75 61 74 65 20 74 6f 20 74 72 75 65 2c 20 62 69 6e 64 20 74 68 65 6d 20 | ALS.evaluate.to.true,.bind.them. |
| 127a0 | 74 6f 20 74 68 65 69 72 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 56 41 52 53 20 61 6e 64 20 | to.their.corresponding.VARS.and. |
| 127c0 | 65 78 65 63 75 74 65 20 62 6f 64 79 2e 20 56 41 52 53 2d 56 41 4c 53 20 73 68 6f 75 6c 64 20 62 | execute.body..VARS-VALS.should.b |
| 127e0 | 65 20 61 20 6c 69 73 74 20 6f 66 20 28 56 41 52 20 56 41 4c 29 0a 70 61 69 72 73 2e 0a 0a 4e 6f | e.a.list.of.(VAR.VAL).pairs...No |
| 12800 | 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f | te:.binding.is.done.according.to |
| 12820 | 20 60 2d 6c 65 74 2a 27 2e 20 20 56 41 4c 53 20 61 72 65 20 65 76 61 6c 75 61 74 65 64 0a 73 65 | .`-let*'...VALS.are.evaluated.se |
| 12840 | 71 75 65 6e 74 69 61 6c 6c 79 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6f 6e 20 73 74 6f 70 73 | quentially,.and.evaluation.stops |
| 12860 | 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 6e 69 6c 20 56 41 4c 20 69 73 0a 65 6e 63 6f | .after.the.first.nil.VAL.is.enco |
| 12880 | 75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 52 53 2d 56 41 4c 53 20 26 72 65 73 74 20 42 4f | untered...(fn.VARS-VALS.&rest.BO |
| 128a0 | 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 77 68 65 6e 2d 6c 65 74 2a 20 27 28 6d 61 63 | DY)..(defalias.'-when-let*.'(mac |
| 128c0 | 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d | ro...#[385."\300.\301.BE\207".[- |
| 128e0 | 69 66 2d 6c 65 74 2a 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 37 35 36 34 30 29 5d 29 29 | if-let*.progn].6.(#$...75640)])) |
| 12900 | 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 | .(byte-code."\300\301\302\303#\2 |
| 12920 | 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 77 | 10\304\301\305\306#\207".[put.-w |
| 12940 | 68 65 6e 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 | hen-let*.edebug-form-spec.((&res |
| 12960 | 74 20 28 73 65 78 70 20 66 6f 72 6d 29 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 | t.(sexp.form)).body).function-pu |
| 12980 | 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 | t.lisp-indent-function.1].4).#@1 |
| 129a0 | 33 34 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 | 34.If.VAL.evaluates.to.non-nil,. |
| 129c0 | 62 69 6e 64 20 69 74 20 74 6f 20 56 41 52 20 61 6e 64 20 65 78 65 63 75 74 65 20 62 6f 64 79 2e | bind.it.to.VAR.and.execute.body. |
| 129e0 | 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e | ..Note:.binding.is.done.accordin |
| 12a00 | 67 20 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52 20 56 41 4c 29 20 26 72 65 73 | g.to.`-let'...(fn.(VAR.VAL).&res |
| 12a20 | 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 77 68 65 6e 2d 6c 65 74 20 27 28 | t.BODY)..(defalias.'-when-let.'( |
| 12a40 | 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 22 | macro...#[385."\300.\301.BE\207" |
| 12a60 | 20 5b 2d 69 66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 37 36 31 39 35 29 5d | .[-if-let.progn].6.(#$...76195)] |
| 12a80 | 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 | )).(byte-code."\300\301\302\303# |
| 12aa0 | 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 | \210\304\301\305\306#\207".[put. |
| 12ac0 | 2d 77 68 65 6e 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 73 65 78 | -when-let.edebug-form-spec.((sex |
| 12ae0 | 70 20 66 6f 72 6d 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d | p.form).body).function-put.lisp- |
| 12b00 | 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 39 32 20 49 66 20 56 41 | indent-function.1].4).#@92.If.VA |
| 12b20 | 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 | L.evaluates.to.non-nil,.bind.it. |
| 12b40 | 74 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 0a 65 78 65 63 75 74 65 20 62 6f 64 79 2e | to.symbol.`it'.and.execute.body. |
| 12b60 | 0a 0a 28 66 6e 20 56 41 4c 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 | ..(fn.VAL.&rest.BODY)..(defalias |
| 12b80 | 20 27 2d 2d 77 68 65 6e 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 | .'--when-let.'(macro...#[385."\3 |
| 12ba0 | 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 2d 69 66 2d 6c 65 74 20 70 72 6f 67 6e 5d | 00.\301.BE\207".[--if-let.progn] |
| 12bc0 | 20 36 20 28 23 24 20 2e 20 37 36 35 37 31 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | .6.(#$...76571)])).(byte-code."\ |
| 12be0 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 | 300\301\302\303#\210\304\301\305 |
| 12c00 | 5c 33 30 36 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 77 68 65 6e 2d 6c 65 74 20 65 64 65 62 75 | \306#\207".[put.--when-let.edebu |
| 12c20 | 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e | g-form-spec.(form.body).function |
| 12c40 | 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a | -put.lisp-indent-function.1].4). |
| 12c60 | 23 40 31 39 31 20 54 65 73 74 73 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 75 73 65 20 74 68 69 | #@191.Tests.for.equality.use.thi |
| 12c80 | 73 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 60 65 71 75 61 6c 27 20 69 66 20 74 68 69 73 20 69 73 | s.function.or.`equal'.if.this.is |
| 12ca0 | 20 6e 69 6c 2e 0a 49 74 20 73 68 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 73 65 74 20 75 73 69 6e | .nil..It.should.only.be.set.usin |
| 12cc0 | 67 20 64 79 6e 61 6d 69 63 20 73 63 6f 70 65 20 77 69 74 68 20 61 20 6c 65 74 2c 20 6c 69 6b 65 | g.dynamic.scope.with.a.let,.like |
| 12ce0 | 3a 0a 0a 20 20 28 6c 65 74 20 28 28 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 23 5c 3d 27 3d 29 29 20 | :....(let.((-compare-fn.#\='=)). |
| 12d00 | 28 2d 75 6e 69 6f 6e 20 6e 75 6d 62 65 72 73 31 20 6e 75 6d 62 65 72 73 32 20 6e 75 6d 62 65 72 | (-union.numbers1.numbers2.number |
| 12d20 | 73 33 29 1f 0a 28 64 65 66 76 61 72 20 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 6e 69 6c 20 28 23 24 | s3)..(defvar.-compare-fn.nil.(#$ |
| 12d40 | 20 2e 20 37 36 39 30 32 29 29 0a 23 40 31 36 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 | ...76902)).#@160.Return.a.new.li |
| 12d60 | 73 74 20 77 69 74 68 20 61 6c 6c 20 64 75 70 6c 69 63 61 74 65 73 20 72 65 6d 6f 76 65 64 2e 0a | st.with.all.duplicates.removed.. |
| 12d80 | 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 69 73 20 64 6f 6e 65 20 77 69 | The.test.for.equality.is.done.wi |
| 12da0 | 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e | th.`equal',.or.with.`-compare-fn |
| 12dc0 | 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 75 | '.if.that's.non-nil...Alias:.`-u |
| 12de0 | 6e 69 71 27 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 73 | niq'..(fn.LIST)..(defalias.'-dis |
| 12e00 | 74 69 6e 63 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 21 00 01 40 5c | tinct.#[257."\300.\301.\203!..@\ |
| 12e20 | 33 30 32 04 02 5c 22 5c 32 30 34 15 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 | 302..\"\204..\211.B\262.\210\211 |
| 12e40 | 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 | T\262..A\262.\202..\266.\211\237 |
| 12e60 | 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 38 20 28 23 24 20 | \207".[nil.0.-contains\?].8.(#$. |
| 12e80 | 2e 20 37 37 31 33 37 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 69 71 20 27 2d 64 69 | ..77137)]).(defalias.'-uniq.'-di |
| 12ea0 | 73 74 69 6e 63 74 29 0a 23 40 31 39 37 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 | stinct).#@197.Return.a.new.list. |
| 12ec0 | 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 | containing.the.elements.of.LIST. |
| 12ee0 | 61 6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 32 20 74 68 61 74 20 61 72 65 20 6e | and.elements.of.LIST2.that.are.n |
| 12f00 | 6f 74 20 69 6e 20 4c 49 53 54 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 | ot.in.LIST..The.test.for.equalit |
| 12f20 | 79 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20 | y.is.done.with.`equal',.or.with. |
| 12f40 | 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e | `-compare-fn'.if.that's.non-nil. |
| 12f60 | 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 | ..(fn.LIST.LIST2)..(defalias.'-u |
| 12f80 | 6e 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 31 02 21 5c 33 30 32 5c 33 30 30 21 5c 32 30 33 11 | nion.#[514."\301.!\302\300!\203. |
| 12fa0 | 00 08 5c 32 30 33 11 00 08 5c 32 30 32 12 00 5c 33 30 33 5c 32 31 31 18 5c 33 30 34 3e 5c 32 30 | ..\203...\202..\303\211.\304>\20 |
| 12fc0 | 33 5f 00 5c 33 30 35 5c 33 30 36 08 5c 22 03 5c 33 30 37 01 5c 32 30 33 38 00 01 40 5c 33 31 30 | 3_.\305\306.\".\307.\2038..@\310 |
| 12fe0 | 01 5c 33 31 31 06 06 23 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 | .\311..#\266.\211T\262..A\262.\2 |
| 13000 | 30 32 1f 00 5c 32 36 36 02 02 5c 33 30 37 01 5c 32 30 33 5a 00 01 40 5c 33 31 32 01 05 5c 22 5c | 02..\266..\307.\203Z..@\312..\"\ |
| 13020 | 32 30 34 4e 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 | 204N.\211.B\262.\210\211T\262..A |
| 13040 | 5c 32 36 32 02 5c 32 30 32 3c 00 5c 32 36 36 03 5c 32 30 32 5c 32 30 31 00 01 5c 33 30 37 01 5c | \262.\202<.\266.\202\201..\307.\ |
| 13060 | 32 30 33 7f 00 01 40 5c 33 31 33 04 02 5c 22 5c 32 30 34 73 00 5c 32 31 31 04 42 5c 32 36 32 04 | 203...@\313..\"\204s.\211.B\262. |
| 13080 | 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 61 00 5c 32 36 36 02 | \210\211T\262..A\262.\202a.\266. |
| 130a0 | 5c 32 31 31 5c 32 33 37 29 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 72 65 76 65 | \211\237)\207".[-compare-fn.reve |
| 130c0 | 72 73 65 20 62 6f 75 6e 64 70 20 65 71 75 61 6c 20 28 65 71 20 65 71 6c 20 65 71 75 61 6c 29 20 | rse.boundp.equal.(eq.eql.equal). |
| 130e0 | 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 30 20 70 75 74 68 61 73 68 20 | make-hash-table.:test.0.puthash. |
| 13100 | 74 20 67 65 74 68 61 73 68 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 31 32 20 28 23 24 20 2e 20 | t.gethash.-contains\?].12.(#$... |
| 13120 | 37 37 34 38 36 29 5d 29 0a 23 40 31 39 31 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 | 77486)]).#@191.Return.a.new.list |
| 13140 | 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6f 6e 6c 79 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 74 68 | .containing.only.the.elements.th |
| 13160 | 61 74 20 61 72 65 20 6d 65 6d 62 65 72 73 20 6f 66 20 62 6f 74 68 20 4c 49 53 54 20 61 6e 64 20 | at.are.members.of.both.LIST.and. |
| 13180 | 4c 49 53 54 32 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 69 73 20 | LIST2..The.test.for.equality.is. |
| 131a0 | 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d | done.with.`equal',.or.with.`-com |
| 131c0 | 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e | pare-fn'.if.that's.non-nil...(fn |
| 131e0 | 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 73 | .LIST.LIST2)..(defalias.'-inters |
| 13200 | 65 63 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 01 5c 32 30 33 21 00 01 40 | ection.#[514."\300.\301.\203!..@ |
| 13220 | 5c 33 30 32 05 02 5c 22 5c 32 30 33 15 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 | \302..\"\203..\211.B\262.\210\21 |
| 13240 | 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 | 1T\262..A\262.\202..\266.\211\23 |
| 13260 | 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 39 20 28 23 24 | 7\207".[nil.0.-contains\?].9.(#$ |
| 13280 | 20 2e 20 37 38 31 32 37 29 5d 29 0a 23 40 31 37 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c | ...78127)]).#@174.Return.a.new.l |
| 132a0 | 69 73 74 20 77 69 74 68 20 6f 6e 6c 79 20 74 68 65 20 6d 65 6d 62 65 72 73 20 6f 66 20 4c 49 53 | ist.with.only.the.members.of.LIS |
| 132c0 | 54 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49 53 54 32 2e 0a 54 68 65 20 74 65 73 | T.that.are.not.in.LIST2..The.tes |
| 132e0 | 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 | t.for.equality.is.done.with.`equ |
| 13300 | 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 | al',.or.with.`-compare-fn'.if.th |
| 13320 | 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a | at's.non-nil...(fn.LIST.LIST2).. |
| 13340 | 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 66 66 65 72 65 6e 63 65 20 23 5b 35 31 34 20 22 5c 33 | (defalias.'-difference.#[514."\3 |
| 13360 | 30 30 02 5c 33 30 31 01 5c 32 30 33 21 00 01 40 5c 33 30 32 05 02 5c 22 5c 32 30 34 15 00 5c 32 | 00.\301.\203!..@\302..\"\204..\2 |
| 13380 | 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 | 11.B\262.\210\211T\262..A\262.\2 |
| 133a0 | 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 | 02..\266.\211\237\207".[nil.0.-c |
| 133c0 | 6f 6e 74 61 69 6e 73 5c 3f 5d 20 39 20 28 23 24 20 2e 20 37 38 34 38 32 29 5d 29 0a 23 40 34 32 | ontains\?].9.(#$...78482)]).#@42 |
| 133e0 | 20 52 65 74 75 72 6e 20 74 68 65 20 70 6f 77 65 72 20 73 65 74 20 6f 66 20 4c 49 53 54 2e 0a 0a | .Return.the.power.set.of.LIST... |
| 13400 | 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 6f 77 65 72 73 65 74 20 | (fn.LIST)..(defalias.'-powerset. |
| 13420 | 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 41 21 | #[257."\211\204..\300\207\301.A! |
| 13440 | 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 08 21 5c | \302\303\304\305\306\307\310..!\ |
| 13460 | 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 03 5c 22 02 5c 22 5c 32 30 37 22 20 5b 28 6e 69 6c 29 | 311\"\312\313%.\".\"\207".[(nil) |
| 13480 | 20 2d 70 6f 77 65 72 73 65 74 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 | .-powerset.append.mapcar.make-by |
| 134a0 | 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 40 01 42 5c 32 30 37 22 20 76 63 6f 6e 63 61 | te-code.257."\300@.B\207".vconca |
| 134c0 | 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 30 20 28 | t.vector.[].3."\n\n(fn.X)"].10.( |
| 134e0 | 23 24 20 2e 20 37 38 38 31 37 29 5d 29 0a 23 40 34 35 20 52 65 74 75 72 6e 20 74 68 65 20 70 65 | #$...78817)]).#@45.Return.the.pe |
| 13500 | 72 6d 75 74 61 74 69 6f 6e 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a | rmutations.of.LIST...(fn.LIST).. |
| 13520 | 28 64 65 66 61 6c 69 61 73 20 27 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 23 5b 32 35 37 20 22 | (defalias.'-permutations.#[257." |
| 13540 | 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 | \211\204..\300\207\301\302\303\3 |
| 13560 | 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 08 21 5c 33 31 31 5c 22 5c 33 31 32 5c | 04\305\306\307\310..!\311\"\312\ |
| 13580 | 33 31 33 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 61 70 70 6c 79 20 61 70 70 65 | 313%.\"\"\207".[(nil).apply.appe |
| 135a0 | 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 | nd.mapcar.make-byte-code.257."\3 |
| 135c0 | 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c | 01\302\303\304\305\306..!\307\"\ |
| 135e0 | 33 31 30 5c 33 31 31 25 5c 33 31 32 5c 33 31 33 04 5c 33 30 30 5c 22 21 5c 22 5c 32 30 37 22 20 | 310\311%\312\313.\300\"!\"\207". |
| 13600 | 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 | vconcat.vector.[mapcar.make-byte |
| 13620 | 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 42 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 | -code.257."\300.B\207".vconcat.v |
| 13640 | 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 50 45 52 4d 29 22 20 2d 70 65 72 6d | ector.[].3."\n\n(fn.PERM)".-perm |
| 13660 | 75 74 61 74 69 6f 6e 73 20 72 65 6d 6f 76 65 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d | utations.remove].8."\n\n(fn.X)"] |
| 13680 | 20 31 30 20 28 23 24 20 2e 20 37 39 30 39 31 29 5d 29 0a 23 40 34 31 20 52 65 74 75 72 6e 20 61 | .10.(#$...79091)]).#@41.Return.a |
| 136a0 | 6c 6c 20 70 72 65 66 69 78 65 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f | ll.prefixes.of.LIST...(fn.LIST). |
| 136c0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 69 74 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 | .(defalias.'-inits.#[257."\300\3 |
| 136e0 | 30 31 5c 33 30 32 03 5c 32 33 37 21 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 20 72 65 | 01\302.\237!\"\237\207".[-map.re |
| 13700 | 76 65 72 73 65 20 2d 74 61 69 6c 73 5d 20 35 20 28 23 24 20 2e 20 37 39 35 31 32 29 5d 29 0a 23 | verse.-tails].5.(#$...79512)]).# |
| 13720 | 40 34 30 20 52 65 74 75 72 6e 20 61 6c 6c 20 73 75 66 66 69 78 65 73 20 6f 66 20 4c 49 53 54 0a | @40.Return.all.suffixes.of.LIST. |
| 13740 | 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 69 6c 73 20 23 5b | .(fn.LIST)..(defalias.'-tails.#[ |
| 13760 | 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 23 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 | 257."\300\301\302.#\207".[-reduc |
| 13780 | 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 63 6f 6e 73 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 37 | tions-r-from.cons.nil].5.(#$...7 |
| 137a0 | 39 36 35 32 29 5d 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 | 9652)]).#@62.Return.the.longest. |
| 137c0 | 63 6f 6d 6d 6f 6e 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 | common.prefix.of.LISTS...(fn.&re |
| 137e0 | 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 6d 6f 6e 2d 70 72 | st.LISTS)..(defalias.'-common-pr |
| 13800 | 65 66 69 78 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 62 00 5c 32 31 31 40 01 | efix.#[128."\211\211\203b.\211@. |
| 13820 | 41 5c 33 30 30 01 5c 32 30 33 5a 00 01 40 5c 33 30 31 01 5c 33 30 32 5c 33 30 30 02 5c 32 30 33 | A\300.\203Z..@\301.\302\300.\203 |
| 13840 | 46 00 01 5c 32 30 33 46 00 02 40 06 08 5c 32 30 33 2f 00 06 08 5c 32 31 31 41 5c 32 36 32 5c 6e | F..\203F..@..\203/...\211A\262\n |
| 13860 | 5c 32 34 32 01 5c 32 33 32 5c 32 30 34 35 00 5c 33 30 31 5c 32 36 32 03 5c 32 30 32 3a 00 5c 32 | \242.\232\2045.\301\262.\202:.\2 |
| 13880 | 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 | 11.B\262.\210\211T\262..A\262.\2 |
| 138a0 | 30 32 14 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 36 32 04 5c 32 31 30 5c | 02..\266.\211\237\262.\262.\210\ |
| 138c0 | 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 5c 6e 00 5c 32 36 36 02 5c 32 31 31 | 211T\262..A\262.\202\n.\266.\211 |
| 138e0 | 5c 32 36 32 01 5c 32 30 32 5c 32 34 32 00 5c 33 30 31 5c 32 31 31 5c 32 31 31 01 5c 33 30 32 5c | \262.\202\242.\301\211\211.\302\ |
| 13900 | 33 30 30 02 5c 32 30 33 5c 32 33 32 00 01 5c 32 30 33 5c 32 33 32 00 02 40 06 06 5c 32 30 33 5c | 300.\203\232..\203\232..@..\203\ |
| 13920 | 32 30 33 00 06 06 5c 32 31 31 41 5c 32 36 32 08 5c 32 34 32 01 5c 32 33 32 5c 32 30 34 5c 32 31 | 203...\211A\262.\242.\232\204\21 |
| 13940 | 31 00 5c 33 30 31 5c 32 36 32 03 5c 32 30 32 5c 32 31 36 00 5c 32 31 31 05 42 5c 32 36 32 05 5c | 1.\301\262.\202\216.\211.B\262.\ |
| 13960 | 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 68 00 5c 32 36 36 03 5c | 210\211T\262..A\262.\202h.\266.\ |
| 13980 | 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c | 211\237\262.\266\202\207".[0.nil |
| 139a0 | 20 74 5d 20 31 33 20 28 23 24 20 2e 20 37 39 37 38 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | .t].13.(#$...79789)]).(byte-code |
| 139c0 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c | ."\300\301\302\303#\210\300\301\ |
| 139e0 | 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6d | 304\303#\207".[function-put.-com |
| 13a00 | 6d 6f 6e 2d 70 72 65 66 69 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | mon-prefix.pure.t.side-effect-fr |
| 13a20 | 65 65 5d 20 34 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 | ee].4).#@62.Return.the.longest.c |
| 13a40 | 6f 6d 6d 6f 6e 20 73 75 66 66 69 78 20 6f 66 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 73 | ommon.suffix.of.LISTS...(fn.&res |
| 13a60 | 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 6d 6f 6e 2d 73 75 66 | t.LISTS)..(defalias.'-common-suf |
| 13a80 | 66 69 78 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 5c 22 5c 22 | fix.#[128."\300\301\302\303.\"\" |
| 13aa0 | 5c 32 33 37 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 | \237\207".[apply.-common-prefix. |
| 13ac0 | 6d 61 70 63 61 72 20 72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 38 30 34 32 38 29 5d 29 | mapcar.reverse].6.(#$...80428)]) |
| 13ae0 | 0a 23 40 31 36 39 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4c 49 53 54 20 63 6f | .#@169.Return.non-nil.if.LIST.co |
| 13b00 | 6e 74 61 69 6e 73 20 45 4c 45 4d 45 4e 54 2e 0a 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 | ntains.ELEMENT...The.test.for.eq |
| 13b20 | 75 61 6c 69 74 79 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 20 6f 72 20 | uality.is.done.with.`equal',.or. |
| 13b40 | 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 0a 69 66 20 74 68 61 74 27 73 20 6e 6f 6e | with.`-compare-fn'.if.that's.non |
| 13b60 | 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 63 6f 6e 74 61 69 6e 73 2d 70 27 0a 0a 28 66 6e | -nil...Alias:.`-contains-p'..(fn |
| 13b80 | 20 4c 49 53 54 20 45 4c 45 4d 45 4e 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 | .LIST.ELEMENT)..(defalias.'-cont |
| 13ba0 | 61 69 6e 73 5c 3f 20 23 5b 35 31 34 20 22 08 5c 32 30 34 5c 6e 00 5c 32 31 31 02 5c 32 33 35 5c | ains\?.#[514.".\204\n.\211.\235\ |
| 13bc0 | 32 30 32 3a 00 08 5c 33 30 31 3d 5c 32 30 33 16 00 5c 32 31 31 02 3e 5c 32 30 32 3a 00 08 5c 33 | 202:..\301=\203..\211.>\202:..\3 |
| 13be0 | 30 32 3d 5c 32 30 33 23 00 5c 33 30 33 01 03 5c 22 5c 32 30 32 3a 00 01 5c 32 31 31 5c 32 30 33 | 02=\203#.\303..\"\202:..\211\203 |
| 13c00 | 37 00 08 02 02 40 5c 22 5c 32 30 34 37 00 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 24 00 5c 32 | 7....@\"\2047.\211A\262.\202$.\2 |
| 13c20 | 31 31 5c 32 36 32 01 3f 3f 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 65 71 20 65 | 11\262.??\207".[-compare-fn.eq.e |
| 13c40 | 71 6c 20 6d 65 6d 71 6c 5d 20 36 20 28 23 24 20 2e 20 38 30 36 31 35 29 5d 29 0a 28 64 65 66 61 | ql.memql].6.(#$...80615)]).(defa |
| 13c60 | 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 27 2d 63 6f 6e 74 61 69 6e 73 5c 3f 29 0a | lias.'-contains-p.'-contains\?). |
| 13c80 | 23 40 31 34 39 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 4c 49 53 54 20 61 6e 64 20 4c 49 | #@149.Return.true.if.LIST.and.LI |
| 13ca0 | 53 54 32 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 69 74 65 6d 73 2e 0a 0a 54 68 65 20 6f 72 64 | ST2.has.the.same.items...The.ord |
| 13cc0 | 65 72 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 6c 69 73 74 73 20 | er.of.the.elements.in.the.lists. |
| 13ce0 | 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65 72 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 61 6d 65 2d | does.not.matter...Alias:.`-same- |
| 13d00 | 69 74 65 6d 73 2d 70 27 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 | items-p'..(fn.LIST.LIST2)..(defa |
| 13d20 | 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c 3f 20 23 5b 35 31 34 20 22 01 47 01 47 01 | lias.'-same-items\?.#[514.".G.G. |
| 13d40 | 01 55 5c 32 30 35 11 00 01 5c 33 30 30 05 05 5c 22 47 55 5c 32 30 37 22 20 5b 2d 69 6e 74 65 72 | .U\205...\300..\"GU\207".[-inter |
| 13d60 | 73 65 63 74 69 6f 6e 5d 20 38 20 28 23 24 20 2e 20 38 31 30 33 30 29 5d 29 0a 28 64 65 66 61 6c | section].8.(#$...81030)]).(defal |
| 13d80 | 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c | ias.'-same-items-p.'-same-items\ |
| 13da0 | 3f 29 0a 23 40 38 36 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 50 52 45 46 49 58 | ?).#@86.Return.non-nil.if.PREFIX |
| 13dc0 | 20 69 73 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 | .is.prefix.of.LIST...Alias:.`-is |
| 13de0 | 2d 70 72 65 66 69 78 2d 70 27 0a 0a 28 66 6e 20 50 52 45 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 | -prefix-p'..(fn.PREFIX.LIST)..(d |
| 13e00 | 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 32 31 | efalias.'-is-prefix\?.#[514."\21 |
| 13e20 | 31 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 2a 00 01 5c 32 30 33 2a 00 02 40 05 40 01 5c 32 33 32 | 1\300\301.\203*..\203*..@.@.\232 |
| 13e40 | 5c 32 30 34 1a 00 5c 33 30 32 5c 32 36 32 03 5c 32 30 32 1e 00 05 41 5c 32 36 32 06 5c 32 31 30 | \204..\302\262.\202...A\262.\210 |
| 13e60 | 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 03 00 5c 32 36 36 03 01 3f 5c 32 | \211T\262..A\262.\202..\266..?\2 |
| 13e80 | 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 38 31 33 32 30 29 5d 29 0a 28 | 07".[t.0.nil].8.(#$...81320)]).( |
| 13ea0 | 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 | byte-code."\300\301\302\303#\210 |
| 13ec0 | 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e | \300\301\304\303#\207".[function |
| 13ee0 | 2d 70 75 74 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 | -put.-is-prefix\?.pure.t.side-ef |
| 13f00 | 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 38 36 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 | fect-free].4).#@86.Return.non-ni |
| 13f20 | 6c 20 69 66 20 53 55 46 46 49 58 20 69 73 20 73 75 66 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a | l.if.SUFFIX.is.suffix.of.LIST... |
| 13f40 | 41 6c 69 61 73 3a 20 60 2d 69 73 2d 73 75 66 66 69 78 2d 70 27 0a 0a 28 66 6e 20 53 55 46 46 49 | Alias:.`-is-suffix-p'..(fn.SUFFI |
| 13f60 | 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 73 75 66 66 69 78 5c 3f | X.LIST)..(defalias.'-is-suffix\? |
| 13f80 | 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 21 5c 33 30 31 03 21 5c 22 5c 32 30 37 22 20 | .#[514."\300\301.!\301.!\"\207". |
| 13fa0 | 5b 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 38 | [-is-prefix\?.reverse].6.(#$...8 |
| 13fc0 | 31 36 38 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | 1683)]).(byte-code."\300\301\302 |
| 13fe0 | 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 | \303#\210\300\301\304\303#\207". |
| 14000 | 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 70 75 72 65 20 | [function-put.-is-suffix\?.pure. |
| 14020 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 31 38 20 52 65 74 | t.side-effect-free].4).#@118.Ret |
| 14040 | 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 49 4e 46 49 58 20 69 73 20 69 6e 66 69 78 20 6f 66 | urn.non-nil.if.INFIX.is.infix.of |
| 14060 | 20 4c 49 53 54 2e 0a 0a 54 68 69 73 20 6f 70 65 72 61 74 69 6f 6e 20 72 75 6e 73 20 69 6e 20 4f | .LIST...This.operation.runs.in.O |
| 14080 | 28 6e 5e 32 29 20 74 69 6d 65 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 69 6e 66 69 78 2d 70 27 | (n^2).time..Alias:.`-is-infix-p' |
| 140a0 | 0a 0a 28 66 6e 20 49 4e 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 | ..(fn.INFIX.LIST)..(defalias.'-i |
| 140c0 | 73 2d 69 6e 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 5c 32 30 34 16 00 01 | s-infix\?.#[514."\300\211\204... |
| 140e0 | 5c 32 30 33 16 00 5c 33 30 31 03 03 5c 22 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 | \203..\301..\"\262..A\262.\202.. |
| 14100 | 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 5d 20 36 20 28 | \211\207".[nil.-is-prefix\?].6.( |
| 14120 | 23 24 20 2e 20 38 31 39 38 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | #$...81981)]).(byte-code."\300\3 |
| 14140 | 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 | 01\302\303#\210\300\301\304\303# |
| 14160 | 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 30 5c 33 | \210\305\306\307\"\210\305\310\3 |
| 14180 | 31 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 32 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e | 11\"\210\305\312\301\"\207".[fun |
| 141a0 | 63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d 69 6e 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 | ction-put.-is-infix\?.pure.t.sid |
| 141c0 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 69 73 2d 70 72 65 66 69 | e-effect-free.defalias.-is-prefi |
| 141e0 | 78 2d 70 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 2d 69 73 2d 73 75 66 66 69 78 2d 70 20 2d 69 | x-p.-is-prefix\?.-is-suffix-p.-i |
| 14200 | 73 2d 73 75 66 66 69 78 5c 3f 20 2d 69 73 2d 69 6e 66 69 78 2d 70 5d 20 34 29 0a 23 40 32 36 38 | s-suffix\?.-is-infix-p].4).#@268 |
| 14220 | 20 53 6f 72 74 20 4c 49 53 54 2c 20 73 74 61 62 6c 79 2c 20 63 6f 6d 70 61 72 69 6e 67 20 65 6c | .Sort.LIST,.stably,.comparing.el |
| 14240 | 65 6d 65 6e 74 73 20 75 73 69 6e 67 20 43 4f 4d 50 41 52 41 54 4f 52 2e 0a 52 65 74 75 72 6e 20 | ements.using.COMPARATOR..Return. |
| 14260 | 74 68 65 20 73 6f 72 74 65 64 20 6c 69 73 74 2e 20 20 4c 49 53 54 20 69 73 20 4e 4f 54 20 6d 6f | the.sorted.list...LIST.is.NOT.mo |
| 14280 | 64 69 66 69 65 64 20 62 79 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a 43 4f 4d 50 41 52 41 54 | dified.by.side.effects..COMPARAT |
| 142a0 | 4f 52 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 6f | OR.is.called.with.two.elements.o |
| 142c0 | 66 20 4c 49 53 54 2c 20 61 6e 64 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 | f.LIST,.and.should.return.non-ni |
| 142e0 | 6c 0a 69 66 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 73 6f | l.if.the.first.element.should.so |
| 14300 | 72 74 20 62 65 66 6f 72 65 20 74 68 65 20 73 65 63 6f 6e 64 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 | rt.before.the.second...(fn.COMPA |
| 14320 | 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 72 74 20 23 5b | RATOR.LIST)..(defalias.'-sort.#[ |
| 14340 | 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 21 03 5c 22 5c 32 30 37 22 20 5b 73 6f 72 74 20 63 6f | 514."\300\301.!.\"\207".[sort.co |
| 14360 | 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 35 20 28 23 24 20 2e 20 38 32 34 36 35 29 5d 29 0a 23 40 | py-sequence].5.(#$...82465)]).#@ |
| 14380 | 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 6f 72 74 27 2e 0a 0a 28 | 44.Anaphoric.form.of.`-sort'...( |
| 143a0 | 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 72 74 | fn.FORM.LIST)..(defalias.'--sort |
| 143c0 | 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 | .'(macro...#[514."\300\301\302.E |
| 143e0 | 02 45 5c 32 30 37 22 20 5b 2d 73 6f 72 74 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 | .E\207".[-sort.lambda.(it.other) |
| 14400 | 5d 20 36 20 28 23 24 20 2e 20 38 32 38 31 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 6f 72 74 | ].6.(#$...82819)])).(put.'--sort |
| 14420 | 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 | .'edebug-form-spec.'(form.form)) |
| 14440 | 0a 23 40 31 35 31 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 41 52 47 53 2e 0a | .#@151.Return.a.list.with.ARGS.. |
| 14460 | 0a 49 66 20 66 69 72 73 74 20 69 74 65 6d 20 6f 66 20 41 52 47 53 20 69 73 20 61 6c 72 65 61 64 | .If.first.item.of.ARGS.is.alread |
| 14480 | 79 20 61 20 6c 69 73 74 2c 20 73 69 6d 70 6c 79 20 72 65 74 75 72 6e 20 41 52 47 53 2e 20 20 49 | y.a.list,.simply.return.ARGS...I |
| 144a0 | 66 0a 6e 6f 74 2c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 41 52 47 53 20 61 | f.not,.return.a.list.with.ARGS.a |
| 144c0 | 73 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 | s.elements...(fn.&rest.ARGS)..(d |
| 144e0 | 65 66 61 6c 69 61 73 20 27 2d 6c 69 73 74 20 23 5b 31 32 38 20 22 5c 32 31 31 40 5c 32 31 31 3c | efalias.'-list.#[128."\211@\211< |
| 14500 | 5c 32 30 33 0b 00 5c 32 31 31 5c 32 30 32 5c 66 00 01 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 | \203..\211\202\f..\207".[].3.(#$ |
| 14520 | 20 2e 20 38 33 30 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 | ...83015)]).(byte-code."\300\301 |
| 14540 | 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 | \302\303#\210\300\301\304\303#\2 |
| 14560 | 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6c 69 73 74 20 70 75 72 65 20 74 20 73 | 07".[function-put.-list.pure.t.s |
| 14580 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 38 32 20 52 65 74 75 72 6e 20 | ide-effect-free].4).#@82.Return. |
| 145a0 | 61 20 6c 69 73 74 20 77 69 74 68 20 58 20 72 65 70 65 61 74 65 64 20 4e 20 74 69 6d 65 73 2e 0a | a.list.with.X.repeated.N.times.. |
| 145c0 | 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4e 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 31 2e 0a | Return.nil.if.N.is.less.than.1.. |
| 145e0 | 0a 28 66 6e 20 4e 20 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 65 61 74 20 23 5b | .(fn.N.X)..(defalias.'-repeat.#[ |
| 14600 | 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 32 31 31 02 57 5c 32 30 33 15 00 03 03 42 5c 32 36 | 514."\300.\301\211.W\203....B\26 |
| 14620 | 32 03 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 | 2.\211T\262.\202..\266.\211\207" |
| 14640 | 20 5b 6e 69 6c 20 30 5d 20 37 20 28 23 24 20 2e 20 38 33 33 35 33 29 5d 29 0a 28 62 79 74 65 2d | .[nil.0].7.(#$...83353)]).(byte- |
| 14660 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c | code."\300\301\302\303#\210\300\ |
| 14680 | 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 | 301\304\303#\207".[function-put. |
| 146a0 | 2d 72 65 70 65 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d | -repeat.pure.t.side-effect-free] |
| 146c0 | 20 34 29 0a 23 40 33 36 20 52 65 74 75 72 6e 20 74 68 65 20 73 75 6d 20 6f 66 20 4c 49 53 54 2e | .4).#@36.Return.the.sum.of.LIST. |
| 146e0 | 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 75 6d 20 23 5b 32 | ..(fn.LIST)..(defalias.'-sum.#[2 |
| 14700 | 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2b 5d 20 34 | 57."\300\301.\"\207".[apply.+].4 |
| 14720 | 20 28 23 24 20 2e 20 38 33 36 35 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...83657)]).(byte-code."\300 |
| 14740 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 | \301\302\303#\210\300\301\304\30 |
| 14760 | 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 75 6d 20 70 75 72 65 20 | 3#\207".[function-put.-sum.pure. |
| 14780 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 38 37 20 52 65 74 75 | t.side-effect-free].4).#@87.Retu |
| 147a0 | 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 72 75 6e 6e 69 6e 67 20 73 75 6d 73 20 6f 66 20 69 | rn.a.list.with.running.sums.of.i |
| 147c0 | 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d | tems.in.LIST...LIST.must.be.non- |
| 147e0 | 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 | empty...(fn.LIST)..(defalias.'-r |
| 14800 | 75 6e 6e 69 6e 67 2d 73 75 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 3a 5c 32 30 34 09 00 5c 33 30 | unning-sum.#[257."\211:\204..\30 |
| 14820 | 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 30 37 22 20 5b 65 72 72 6f | 0\301!\210\302\303.\"\207".[erro |
| 14840 | 72 20 22 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d 65 6d 70 74 79 22 20 2d 72 65 64 75 | r."LIST.must.be.non-empty".-redu |
| 14860 | 63 74 69 6f 6e 73 20 2b 5d 20 34 20 28 23 24 20 2e 20 38 33 38 36 38 29 5d 29 0a 28 62 79 74 65 | ctions.+].4.(#$...83868)]).(byte |
| 14880 | 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 | -code."\300\301\302\303#\210\300 |
| 148a0 | 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 | \301\304\303#\207".[function-put |
| 148c0 | 20 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 | .-running-sum.pure.t.side-effect |
| 148e0 | 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 30 20 52 65 74 75 72 6e 20 74 68 65 20 70 72 6f 64 75 63 | -free].4).#@40.Return.the.produc |
| 14900 | 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 | t.of.LIST...(fn.LIST)..(defalias |
| 14920 | 20 27 2d 70 72 6f 64 75 63 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 | .'-product.#[257."\300\301.\"\20 |
| 14940 | 37 22 20 5b 61 70 70 6c 79 20 2a 5d 20 34 20 28 23 24 20 2e 20 38 34 32 30 37 29 5d 29 0a 28 62 | 7".[apply.*].4.(#$...84207)]).(b |
| 14960 | 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c | yte-code."\300\301\302\303#\210\ |
| 14980 | 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 300\301\304\303#\207".[function- |
| 149a0 | 70 75 74 20 2d 70 72 6f 64 75 63 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | put.-product.pure.t.side-effect- |
| 149c0 | 66 72 65 65 5d 20 34 29 0a 23 40 39 31 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 | free].4).#@91.Return.a.list.with |
| 149e0 | 20 72 75 6e 6e 69 6e 67 20 70 72 6f 64 75 63 74 73 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 | .running.products.of.items.in.LI |
| 14a00 | 53 54 2e 0a 0a 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d 65 6d 70 74 79 2e 0a 0a 28 66 | ST...LIST.must.be.non-empty...(f |
| 14a20 | 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f | n.LIST)..(defalias.'-running-pro |
| 14a40 | 64 75 63 74 20 23 5b 32 35 37 20 22 5c 32 31 31 3a 5c 32 30 34 09 00 5c 33 30 30 5c 33 30 31 21 | duct.#[257."\211:\204..\300\301! |
| 14a60 | 5c 32 31 30 5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 4c 49 53 | \210\302\303.\"\207".[error."LIS |
| 14a80 | 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d 65 6d 70 74 79 22 20 2d 72 65 64 75 63 74 69 6f 6e 73 | T.must.be.non-empty".-reductions |
| 14aa0 | 20 2a 5d 20 34 20 28 23 24 20 2e 20 38 34 34 33 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | .*].4.(#$...84430)]).(byte-code. |
| 14ac0 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 | "\300\301\302\303#\210\300\301\3 |
| 14ae0 | 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e | 04\303#\207".[function-put.-runn |
| 14b00 | 69 6e 67 2d 70 72 6f 64 75 63 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | ing-product.pure.t.side-effect-f |
| 14b20 | 72 65 65 5d 20 34 29 0a 23 40 37 30 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 72 67 65 73 74 20 | ree].4).#@70.Return.the.largest. |
| 14b40 | 76 61 6c 75 65 20 66 72 6f 6d 20 4c 49 53 54 20 6f 66 20 6e 75 6d 62 65 72 73 20 6f 72 20 6d 61 | value.from.LIST.of.numbers.or.ma |
| 14b60 | 72 6b 65 72 73 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d | rkers...(fn.LIST)..(defalias.'-m |
| 14b80 | 61 78 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c | ax.#[257."\300\301.\"\207".[appl |
| 14ba0 | 79 20 6d 61 78 5d 20 34 20 28 23 24 20 2e 20 38 34 37 38 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f | y.max].4.(#$...84781)]).(byte-co |
| 14bc0 | 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 | de."\300\301\302\303#\210\300\30 |
| 14be0 | 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d | 1\304\303#\207".[function-put.-m |
| 14c00 | 61 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 | ax.pure.t.side-effect-free].4).# |
| 14c20 | 40 37 31 20 52 65 74 75 72 6e 20 74 68 65 20 73 6d 61 6c 6c 65 73 74 20 76 61 6c 75 65 20 66 72 | @71.Return.the.smallest.value.fr |
| 14c40 | 6f 6d 20 4c 49 53 54 20 6f 66 20 6e 75 6d 62 65 72 73 20 6f 72 20 6d 61 72 6b 65 72 73 2e 0a 0a | om.LIST.of.numbers.or.markers... |
| 14c60 | 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 69 6e 20 23 5b 32 35 37 | (fn.LIST)..(defalias.'-min.#[257 |
| 14c80 | 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 69 6e 5d 20 34 | ."\300\301.\"\207".[apply.min].4 |
| 14ca0 | 20 28 23 24 20 2e 20 38 35 30 32 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...85028)]).(byte-code."\300 |
| 14cc0 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 | \301\302\303#\210\300\301\304\30 |
| 14ce0 | 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 69 6e 20 70 75 72 65 20 | 3#\207".[function-put.-min.pure. |
| 14d00 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 32 35 20 54 61 6b | t.side-effect-free].4).#@225.Tak |
| 14d20 | 65 20 61 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 43 4f 4d 50 41 52 41 54 | e.a.comparison.function.COMPARAT |
| 14d40 | 4f 52 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 0a 74 68 65 20 67 72 65 | OR.and.a.LIST.and.return.the.gre |
| 14d60 | 61 74 65 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 62 79 20 74 68 65 | atest.element.of.the.list.by.the |
| 14d80 | 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 | .comparison.function...See.also. |
| 14da0 | 63 6f 6d 62 69 6e 61 74 6f 72 20 60 2d 6f 6e 27 20 77 68 69 63 68 20 63 61 6e 20 74 72 61 6e 73 | combinator.`-on'.which.can.trans |
| 14dc0 | 66 6f 72 6d 20 74 68 65 20 76 61 6c 75 65 73 20 62 65 66 6f 72 65 0a 63 6f 6d 70 61 72 69 6e 67 | form.the.values.before.comparing |
| 14de0 | 20 74 68 65 6d 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 | .them...(fn.COMPARATOR.LIST)..(d |
| 14e00 | 65 66 61 6c 69 61 73 20 27 2d 6d 61 78 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 | efalias.'-max-by.#[514."\211\211 |
| 14e20 | 5c 32 30 33 33 00 5c 32 31 31 40 01 41 5c 33 30 30 01 5c 32 30 33 2b 00 01 40 06 06 01 05 5c 22 | \2033.\211@.A\300.\203+..@....\" |
| 14e40 | 5c 32 30 33 1c 00 5c 32 31 31 5c 32 30 32 1d 00 03 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c | \203..\211\202...\262.\210\211T\ |
| 14e60 | 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 5c 6e 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 | 262..A\262.\202\n.\266.\211\262. |
| 14e80 | 5c 32 30 32 43 00 5c 33 30 31 5c 32 31 31 04 01 03 5c 22 5c 32 30 33 40 00 5c 32 31 31 5c 32 30 | \202C.\301\211...\"\203@.\211\20 |
| 14ea0 | 32 41 00 01 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 | 2A..\266\202\207".[0.nil].10.(#$ |
| 14ec0 | 20 2e 20 38 35 32 37 37 29 5d 29 0a 23 40 32 32 32 20 54 61 6b 65 20 61 20 63 6f 6d 70 61 72 69 | ...85277)]).#@222.Take.a.compari |
| 14ee0 | 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 61 6e 64 20 61 20 4c 49 | son.function.COMPARATOR.and.a.LI |
| 14f00 | 53 54 20 61 6e 64 20 72 65 74 75 72 6e 0a 74 68 65 20 6c 65 61 73 74 20 65 6c 65 6d 65 6e 74 20 | ST.and.return.the.least.element. |
| 14f20 | 6f 66 20 74 68 65 20 6c 69 73 74 20 62 79 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 | of.the.list.by.the.comparison.fu |
| 14f40 | 6e 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 63 6f 6d 62 69 6e 61 74 6f 72 20 60 2d 6f | nction...See.also.combinator.`-o |
| 14f60 | 6e 27 20 77 68 69 63 68 20 63 61 6e 20 74 72 61 6e 73 66 6f 72 6d 20 74 68 65 20 76 61 6c 75 65 | n'.which.can.transform.the.value |
| 14f80 | 73 20 62 65 66 6f 72 65 0a 63 6f 6d 70 61 72 69 6e 67 20 74 68 65 6d 2e 0a 0a 28 66 6e 20 43 4f | s.before.comparing.them...(fn.CO |
| 14fa0 | 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 69 6e 2d | MPARATOR.LIST)..(defalias.'-min- |
| 14fc0 | 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 33 00 5c 32 31 31 40 01 41 5c | by.#[514."\211\211\2033.\211@.A\ |
| 14fe0 | 33 30 30 01 5c 32 30 33 2b 00 01 40 06 06 01 05 5c 22 5c 32 30 33 1c 00 03 5c 32 30 32 1d 00 5c | 300.\203+..@....\"\203...\202..\ |
| 15000 | 32 31 31 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 | 211\262.\210\211T\262..A\262.\20 |
| 15020 | 32 5c 6e 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 43 00 5c 33 30 31 5c 32 31 31 | 2\n.\266.\211\262.\202C.\301\211 |
| 15040 | 04 01 03 5c 22 5c 32 30 33 40 00 01 5c 32 30 32 41 00 5c 32 31 31 5c 32 36 36 5c 32 30 32 5c 32 | ...\"\203@..\202A.\211\266\202\2 |
| 15060 | 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 38 35 37 31 34 29 5d 29 0a 23 40 | 07".[0.nil].10.(#$...85714)]).#@ |
| 15080 | 31 31 37 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 6d 61 78 2d 62 | 117.Anaphoric.version.of.`-max-b |
| 150a0 | 79 27 2e 0a 0a 54 68 65 20 69 74 65 6d 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 61 72 61 74 6f | y'...The.items.for.the.comparato |
| 150c0 | 72 20 66 6f 72 6d 20 61 72 65 20 65 78 70 6f 73 65 64 20 61 73 20 22 69 74 22 20 61 6e 64 20 22 | r.form.are.exposed.as."it".and." |
| 150e0 | 6f 74 68 65 72 22 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | other"...(fn.FORM.LIST)..(defali |
| 15100 | 61 73 20 27 2d 2d 6d 61 78 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 | as.'--max-by.'(macro...#[514."\3 |
| 15120 | 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 6d 61 78 2d 62 79 20 6c 61 6d | 00\301\302.E.E\207".[-max-by.lam |
| 15140 | 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 5d 20 36 20 28 23 24 20 2e 20 38 36 31 34 38 29 5d 29 | bda.(it.other)].6.(#$...86148)]) |
| 15160 | 29 0a 28 70 75 74 20 27 2d 2d 6d 61 78 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 | ).(put.'--max-by.'edebug-form-sp |
| 15180 | 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 37 20 41 6e 61 70 68 6f 72 69 63 | ec.'(form.form)).#@117.Anaphoric |
| 151a0 | 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 6d 69 6e 2d 62 79 27 2e 0a 0a 54 68 65 20 69 74 65 6d | .version.of.`-min-by'...The.item |
| 151c0 | 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 61 72 61 74 6f 72 20 66 6f 72 6d 20 61 72 65 20 65 78 | s.for.the.comparator.form.are.ex |
| 151e0 | 70 6f 73 65 64 20 61 73 20 22 69 74 22 20 61 6e 64 20 22 6f 74 68 65 72 22 2e 0a 0a 28 66 6e 20 | posed.as."it".and."other"...(fn. |
| 15200 | 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 69 6e 2d 62 79 20 | FORM.LIST)..(defalias.'--min-by. |
| 15220 | 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 | '(macro...#[514."\300\301\302.E. |
| 15240 | 45 5c 32 30 37 22 20 5b 2d 6d 69 6e 2d 62 79 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 | E\207".[-min-by.lambda.(it.other |
| 15260 | 29 5d 20 36 20 28 23 24 20 2e 20 38 36 34 32 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 69 6e | )].6.(#$...86423)])).(put.'--min |
| 15280 | 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 | -by.'edebug-form-spec.'(form.for |
| 152a0 | 6d 29 29 0a 23 40 31 38 32 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 69 74 65 72 61 | m)).#@182.Return.a.list.of.itera |
| 152c0 | 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 20 6f 66 20 46 55 4e 20 74 6f 20 49 4e 49 54 2e | ted.applications.of.FUN.to.INIT. |
| 152e0 | 0a 0a 54 68 69 73 20 6d 65 61 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 66 6f 72 6d 3a 0a 0a 20 20 | ..This.means.a.list.of.form:.... |
| 15300 | 28 69 6e 69 74 20 28 66 75 6e 20 69 6e 69 74 29 20 28 66 75 6e 20 28 66 75 6e 20 69 6e 69 74 29 | (init.(fun.init).(fun.(fun.init) |
| 15320 | 29 20 2e 2e 2e 29 0a 0a 4e 20 69 73 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 72 | )....)..N.is.the.length.of.the.r |
| 15340 | 65 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 55 4e 20 49 4e 49 54 20 4e 29 1f 0a | eturned.list...(fn.FUN.INIT.N).. |
| 15360 | 28 64 65 66 61 6c 69 61 73 20 27 2d 69 74 65 72 61 74 65 20 23 5b 37 37 31 20 22 5c 32 31 31 5c | (defalias.'-iterate.#[771."\211\ |
| 15380 | 33 30 30 55 3f 5c 32 30 35 27 00 01 43 01 53 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 33 21 00 05 | 300U?\205'..C.S\300\211.W\203!.. |
| 153a0 | 03 40 21 03 42 5c 32 36 32 03 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 5c 66 00 5c 32 36 36 02 | .@!.B\262.\211T\262.\202\f.\266. |
| 153c0 | 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 37 22 20 5b 30 5d 20 38 20 28 23 24 20 2e 20 38 | \211\237\262.\207".[0].8.(#$...8 |
| 153e0 | 36 36 39 38 29 5d 29 0a 23 40 31 33 39 20 43 6f 6d 70 75 74 65 20 74 68 65 20 28 6c 65 61 73 74 | 6698)]).#@139.Compute.the.(least |
| 15400 | 29 20 66 69 78 70 6f 69 6e 74 20 6f 66 20 46 4e 20 77 69 74 68 20 69 6e 69 74 69 61 6c 20 69 6e | ).fixpoint.of.FN.with.initial.in |
| 15420 | 70 75 74 20 4c 49 53 54 2e 0a 0a 46 4e 20 69 73 20 63 61 6c 6c 65 64 20 61 74 20 6c 65 61 73 74 | put.LIST...FN.is.called.at.least |
| 15440 | 20 6f 6e 63 65 2c 20 72 65 73 75 6c 74 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 77 69 74 68 | .once,.results.are.compared.with |
| 15460 | 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | .`equal'...(fn.FN.LIST)..(defali |
| 15480 | 61 73 20 27 2d 66 69 78 20 23 5b 35 31 34 20 22 01 01 21 01 01 5c 32 33 32 5c 32 30 34 14 00 5c | as.'-fix.#[514."..!..\232\204..\ |
| 154a0 | 32 31 31 5c 32 36 32 02 02 01 21 5c 32 36 32 01 5c 32 30 32 03 00 5c 32 31 31 5c 32 30 37 22 20 | 211\262...!\262.\202..\211\207". |
| 154c0 | 5b 5d 20 35 20 28 23 24 20 2e 20 38 37 30 32 32 29 5d 29 0a 23 40 34 33 20 41 6e 61 70 68 6f 72 | [].5.(#$...87022)]).#@43.Anaphor |
| 154e0 | 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 69 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 | ic.form.of.`-fix'...(fn.FORM.LIS |
| 15500 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 | T)..(defalias.'--fix.'(macro...# |
| 15520 | 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 | [514."\300\301\302.E.E\207".[-fi |
| 15540 | 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 38 37 32 35 37 29 5d 29 29 | x.lambda.(it)].6.(#$...87257)])) |
| 15560 | 0a 23 40 33 36 32 20 42 75 69 6c 64 20 61 20 6c 69 73 74 20 66 72 6f 6d 20 53 45 45 44 20 75 73 | .#@362.Build.a.list.from.SEED.us |
| 15580 | 69 6e 67 20 46 55 4e 2e 0a 0a 54 68 69 73 20 69 73 20 22 64 75 61 6c 22 20 6f 70 65 72 61 74 69 | ing.FUN...This.is."dual".operati |
| 155a0 | 6f 6e 20 74 6f 20 60 2d 72 65 64 75 63 65 2d 72 27 3a 20 77 68 69 6c 65 20 2d 72 65 64 75 63 65 | on.to.`-reduce-r':.while.-reduce |
| 155c0 | 2d 72 0a 63 6f 6e 73 75 6d 65 73 20 61 20 6c 69 73 74 20 74 6f 20 70 72 6f 64 75 63 65 20 61 20 | -r.consumes.a.list.to.produce.a. |
| 155e0 | 73 69 6e 67 6c 65 20 76 61 6c 75 65 2c 20 60 2d 75 6e 66 6f 6c 64 27 20 74 61 6b 65 73 20 61 0a | single.value,.`-unfold'.takes.a. |
| 15600 | 73 65 65 64 20 76 61 6c 75 65 20 61 6e 64 20 62 75 69 6c 64 73 20 61 20 28 70 6f 74 65 6e 74 69 | seed.value.and.builds.a.(potenti |
| 15620 | 61 6c 6c 79 20 69 6e 66 69 6e 69 74 65 21 29 20 6c 69 73 74 2e 0a 0a 46 55 4e 20 73 68 6f 75 6c | ally.infinite!).list...FUN.shoul |
| 15640 | 64 20 72 65 74 75 72 6e 20 60 6e 69 6c 27 20 74 6f 20 73 74 6f 70 20 74 68 65 20 67 65 6e 65 72 | d.return.`nil'.to.stop.the.gener |
| 15660 | 61 74 69 6e 67 20 70 72 6f 63 65 73 73 2c 20 6f 72 20 61 0a 63 6f 6e 73 20 28 41 20 2e 20 42 29 | ating.process,.or.a.cons.(A...B) |
| 15680 | 2c 20 77 68 65 72 65 20 41 20 77 69 6c 6c 20 62 65 20 70 72 65 70 65 6e 64 65 64 20 74 6f 20 74 | ,.where.A.will.be.prepended.to.t |
| 156a0 | 68 65 20 72 65 73 75 6c 74 20 61 6e 64 20 42 20 69 73 0a 74 68 65 20 6e 65 77 20 73 65 65 64 2e | he.result.and.B.is.the.new.seed. |
| 156c0 | 0a 0a 28 66 6e 20 46 55 4e 20 53 45 45 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 66 | ..(fn.FUN.SEED)..(defalias.'-unf |
| 156e0 | 6f 6c 64 20 23 5b 35 31 34 20 22 01 01 21 5c 33 30 30 01 5c 32 30 33 17 00 01 40 01 42 5c 32 36 | old.#[514."..!\300.\203...@.B\26 |
| 15700 | 32 01 03 02 41 21 5c 32 36 32 02 5c 32 30 32 04 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b | 2...A!\262.\202..\211\237\207".[ |
| 15720 | 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 38 37 33 39 39 29 5d 29 0a 23 40 34 39 20 41 6e 61 70 68 | nil].6.(#$...87399)]).#@49.Anaph |
| 15740 | 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 75 6e 66 6f 6c 64 27 2e 0a 0a 28 66 6e 20 | oric.version.of.`-unfold'...(fn. |
| 15760 | 46 4f 52 4d 20 53 45 45 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 75 6e 66 6f 6c 64 20 | FORM.SEED)..(defalias.'--unfold. |
| 15780 | 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 | '(macro...#[514."\300\301\302.E. |
| 157a0 | 45 5c 32 30 37 22 20 5b 2d 75 6e 66 6f 6c 64 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 | E\207".[-unfold.lambda.(it)].6.( |
| 157c0 | 23 24 20 2e 20 38 37 38 36 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 75 6e 66 6f 6c 64 20 27 65 | #$...87867)])).(put.'--unfold.'e |
| 157e0 | 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 | debug-form-spec.'(form.form)).#@ |
| 15800 | 39 31 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 43 4f 4e 20 69 73 20 74 72 75 65 | 91.Return.non-nil.if.CON.is.true |
| 15820 | 20 63 6f 6e 73 20 70 61 69 72 2e 0a 54 68 61 74 20 69 73 20 28 41 20 2e 20 42 29 20 77 68 65 72 | .cons.pair..That.is.(A...B).wher |
| 15840 | 65 20 42 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 43 4f 4e 29 1f 0a 28 64 | e.B.is.not.a.list...(fn.CON)..(d |
| 15860 | 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 23 5b 32 35 37 20 22 5c 32 31 | efalias.'-cons-pair\?.#[257."\21 |
| 15880 | 31 3c 5c 32 30 35 09 00 5c 32 31 31 41 3c 3f 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 | 1<\205..\211A<?\207".[].2.(#$... |
| 158a0 | 38 38 30 36 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | 88067)]).(byte-code."\300\301\30 |
| 158c0 | 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 | 2\303#\210\300\301\304\303#\207" |
| 158e0 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 70 75 72 65 | .[function-put.-cons-pair\?.pure |
| 15900 | 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 38 38 20 43 6f 6e | .t.side-effect-free].4).#@88.Con |
| 15920 | 76 65 72 74 20 61 20 63 6f 6e 73 20 70 61 69 72 20 74 6f 20 61 20 6c 69 73 74 20 77 69 74 68 20 | vert.a.cons.pair.to.a.list.with. |
| 15940 | 60 63 61 72 27 20 61 6e 64 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 70 61 69 72 20 72 65 73 70 | `car'.and.`cdr'.of.the.pair.resp |
| 15960 | 65 63 74 69 76 65 6c 79 2e 0a 0a 28 66 6e 20 43 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | ectively...(fn.CON)..(defalias.' |
| 15980 | 2d 63 6f 6e 73 2d 74 6f 2d 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 44 5c 32 30 | -cons-to-list.#[257."\211@.AD\20 |
| 159a0 | 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20 38 38 33 34 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | 7".[].3.(#$...88349)]).(byte-cod |
| 159c0 | 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 | e."\300\301\302\303#\210\300\301 |
| 159e0 | 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f | \304\303#\207".[function-put.-co |
| 15a00 | 6e 73 2d 74 6f 2d 6c 69 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | ns-to-list.pure.t.side-effect-fr |
| 15a20 | 65 65 5d 20 34 29 0a 23 40 31 39 32 20 43 6f 6e 76 65 72 74 20 61 20 76 61 6c 75 65 20 74 6f 20 | ee].4).#@192.Convert.a.value.to. |
| 15a40 | 61 20 6c 69 73 74 2e 0a 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 61 20 63 6f 6e 73 20 | a.list...If.the.value.is.a.cons. |
| 15a60 | 70 61 69 72 2c 20 6d 61 6b 65 20 61 20 6c 69 73 74 20 77 69 74 68 20 74 77 6f 20 65 6c 65 6d 65 | pair,.make.a.list.with.two.eleme |
| 15a80 | 6e 74 73 2c 20 60 63 61 72 27 0a 61 6e 64 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 70 61 69 72 | nts,.`car'.and.`cdr'.of.the.pair |
| 15aa0 | 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 | .respectively...If.the.value.is. |
| 15ac0 | 61 6e 79 74 68 69 6e 67 20 65 6c 73 65 2c 20 77 72 61 70 20 69 74 20 69 6e 20 61 20 6c 69 73 74 | anything.else,.wrap.it.in.a.list |
| 15ae0 | 2e 0a 0a 28 66 6e 20 56 41 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 76 61 6c 75 65 2d 74 | ...(fn.VAL)..(defalias.'-value-t |
| 15b00 | 6f 2d 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30 31 01 | o-list.#[257."\300.!\203\n.\301. |
| 15b20 | 21 5c 32 30 37 5c 32 31 31 43 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 63 | !\207\211C\207".[-cons-pair\?.-c |
| 15b40 | 6f 6e 73 2d 74 6f 2d 6c 69 73 74 5d 20 33 20 28 23 24 20 2e 20 38 38 36 32 31 29 5d 29 0a 28 62 | ons-to-list].3.(#$...88621)]).(b |
| 15b60 | 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c | yte-code."\300\301\302\303#\210\ |
| 15b80 | 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 300\301\304\303#\207".[function- |
| 15ba0 | 70 75 74 20 2d 76 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | put.-value-to-list.pure.t.side-e |
| 15bc0 | 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 32 33 20 41 70 70 6c 79 20 46 4e 20 74 6f | ffect-free].4).#@423.Apply.FN.to |
| 15be0 | 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45 2c 20 61 6e 64 20 6d 61 6b 65 20 | .each.element.of.TREE,.and.make. |
| 15c00 | 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 49 66 20 65 6c 65 6d 65 6e | a.list.of.the.results..If.elemen |
| 15c20 | 74 73 20 6f 66 20 54 52 45 45 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73 2c | ts.of.TREE.are.lists.themselves, |
| 15c40 | 20 61 70 70 6c 79 20 46 4e 20 72 65 63 75 72 73 69 76 65 6c 79 20 74 6f 0a 65 6c 65 6d 65 6e 74 | .apply.FN.recursively.to.element |
| 15c60 | 73 20 6f 66 20 74 68 65 73 65 20 6e 65 73 74 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 6e 20 72 | s.of.these.nested.lists...Then.r |
| 15c80 | 65 64 75 63 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 74 73 20 75 73 69 6e 67 20 | educe.the.resulting.lists.using. |
| 15ca0 | 46 4f 4c 44 45 52 20 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 0a 49 4e 49 54 2d 56 41 | FOLDER.and.initial.value.INIT-VA |
| 15cc0 | 4c 55 45 2e 20 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 54 68 69 73 | LUE..See.`-reduce-r-from'...This |
| 15ce0 | 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d 72 | .is.the.same.as.calling.`-tree-r |
| 15d00 | 65 64 75 63 65 2d 66 72 6f 6d 27 20 61 66 74 65 72 20 60 2d 74 72 65 65 2d 6d 61 70 27 0a 62 75 | educe-from'.after.`-tree-map'.bu |
| 15d20 | 74 20 69 73 20 74 77 69 63 65 20 61 73 20 66 61 73 74 20 61 73 20 69 74 20 6f 6e 6c 79 20 74 72 | t.is.twice.as.fast.as.it.only.tr |
| 15d40 | 61 76 65 72 73 65 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 6f 6e 63 65 2e 0a 0a 28 66 6e 20 | averse.the.structure.once...(fn. |
| 15d60 | 46 4e 20 46 4f 4c 44 45 52 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 | FN.FOLDER.INIT-VALUE.TREE)..(def |
| 15d80 | 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 31 30 | alias.'-tree-mapreduce-from.#[10 |
| 15da0 | 32 38 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 | 28."\211\204..\300\207\301.!\203 |
| 15dc0 | 10 00 03 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 2e 00 5c 33 30 32 03 03 5c 33 30 33 5c 33 | ....!\207\211<\203..\302..\303\3 |
| 15de0 | 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 5c 66 06 5c 66 06 5c 66 23 5c 33 31 31 | 04\305\306\307\310.\f.\f.\f#\311 |
| 15e00 | 5c 22 5c 33 31 32 5c 33 31 33 25 05 5c 22 23 5c 32 30 37 03 01 21 5c 32 30 37 22 20 5b 6e 69 6c | \"\312\313%.\"#\207..!\207".[nil |
| 15e20 | 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 | .-cons-pair\?.-reduce-r-from.map |
| 15e40 | 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 33 5c 33 30 30 | car.make-byte-code.257."\303\300 |
| 15e60 | 5c 33 30 31 5c 33 30 32 04 24 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b | \301\302.$\207".vconcat.vector.[ |
| 15e80 | 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e | -tree-mapreduce-from].6."\n\n(fn |
| 15ea0 | 20 58 29 22 5d 20 31 36 20 28 23 24 20 2e 20 38 39 30 34 35 29 5d 29 0a 23 40 37 37 20 41 6e 61 | .X)"].16.(#$...89045)]).#@77.Ana |
| 15ec0 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d | phoric.form.of.`-tree-mapreduce- |
| 15ee0 | 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 46 4f 4c 44 45 52 20 49 4e 49 54 2d 56 41 4c | from'...(fn.FORM.FOLDER.INIT-VAL |
| 15f00 | 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 | UE.TREE)..(defalias.'--tree-mapr |
| 15f20 | 65 64 75 63 65 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 30 32 38 20 22 5c 33 30 | educe-from.'(macro...#[1028."\30 |
| 15f40 | 30 5c 33 30 31 5c 33 30 32 06 06 45 5c 33 30 31 5c 33 30 33 06 06 45 04 04 5c 32 35 37 05 5c 32 | 0\301\302..E\301\303..E..\257.\2 |
| 15f60 | 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 | 07".[-tree-mapreduce-from.lambda |
| 15f80 | 20 28 69 74 29 20 28 69 74 20 61 63 63 29 5d 20 39 20 28 23 24 20 2e 20 38 39 37 38 39 29 5d 29 | .(it).(it.acc)].9.(#$...89789)]) |
| 15fa0 | 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65 | ).(put.'--tree-mapreduce-from.'e |
| 15fc0 | 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d | debug-form-spec.'(form.form.form |
| 15fe0 | 20 66 6f 72 6d 29 29 0a 23 40 34 30 37 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 65 | .form)).#@407.Apply.FN.to.each.e |
| 16000 | 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45 2c 20 61 6e 64 20 6d 61 6b 65 20 61 20 6c 69 73 74 20 | lement.of.TREE,.and.make.a.list. |
| 16020 | 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 54 | of.the.results..If.elements.of.T |
| 16040 | 52 45 45 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73 2c 20 61 70 70 6c 79 20 | REE.are.lists.themselves,.apply. |
| 16060 | 46 4e 20 72 65 63 75 72 73 69 76 65 6c 79 20 74 6f 0a 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 | FN.recursively.to.elements.of.th |
| 16080 | 65 73 65 20 6e 65 73 74 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 6e 20 72 65 64 75 63 65 20 74 | ese.nested.lists...Then.reduce.t |
| 160a0 | 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 74 73 20 75 73 69 6e 67 20 46 4f 4c 44 45 52 20 | he.resulting.lists.using.FOLDER. |
| 160c0 | 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 0a 49 4e 49 54 2d 56 41 4c 55 45 2e 20 53 65 | and.initial.value.INIT-VALUE..Se |
| 160e0 | 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 | e.`-reduce-r-from'...This.is.the |
| 16100 | 20 73 61 6d 65 20 61 73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 27 20 | .same.as.calling.`-tree-reduce'. |
| 16120 | 61 66 74 65 72 20 60 2d 74 72 65 65 2d 6d 61 70 27 0a 62 75 74 20 69 73 20 74 77 69 63 65 20 61 | after.`-tree-map'.but.is.twice.a |
| 16140 | 73 20 66 61 73 74 20 61 73 20 69 74 20 6f 6e 6c 79 20 74 72 61 76 65 72 73 65 20 74 68 65 20 73 | s.fast.as.it.only.traverse.the.s |
| 16160 | 74 72 75 63 74 75 72 65 20 6f 6e 63 65 2e 0a 0a 28 66 6e 20 46 4e 20 46 4f 4c 44 45 52 20 54 52 | tructure.once...(fn.FN.FOLDER.TR |
| 16180 | 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 | EE)..(defalias.'-tree-mapreduce. |
| 161a0 | 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c | #[771."\211\204..\300\207\301.!\ |
| 161c0 | 32 30 33 10 00 02 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 2b 00 5c 33 30 32 02 5c 33 30 33 | 203....!\207\211<\203+.\302.\303 |
| 161e0 | 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 5c 6e 06 5c 6e 5c 22 5c 33 31 31 | \304\305\306\307\310.\n.\n\"\311 |
| 16200 | 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c 22 5c 22 5c 32 30 37 02 01 21 5c 32 30 37 22 20 5b 6e 69 | \"\312\313%.\"\"\207..!\207".[ni |
| 16220 | 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 | l.-cons-pair\?.-reduce-r.mapcar. |
| 16240 | 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 31 | make-byte-code.257."\302\300\301 |
| 16260 | 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 | .#\207".vconcat.vector.[-tree-ma |
| 16280 | 70 72 65 64 75 63 65 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 33 20 28 23 24 20 | preduce].5."\n\n(fn.X)"].13.(#$. |
| 162a0 | 2e 20 39 30 30 39 34 29 5d 29 0a 23 40 36 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f | ..90094)]).#@61.Anaphoric.form.o |
| 162c0 | 66 20 60 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 46 | f.`-tree-mapreduce'...(fn.FORM.F |
| 162e0 | 4f 4c 44 45 52 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d | OLDER.TREE)..(defalias.'--tree-m |
| 16300 | 61 70 72 65 64 75 63 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 | apreduce.'(macro...#[771."\300\3 |
| 16320 | 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 | 01\302.E\301\303.E.F\207".[-tree |
| 16340 | 2d 6d 61 70 72 65 64 75 63 65 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 20 61 63 63 29 5d | -mapreduce.lambda.(it).(it.acc)] |
| 16360 | 20 38 20 28 23 24 20 2e 20 39 30 38 30 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d | .8.(#$...90800)])).(put.'--tree- |
| 16380 | 6d 61 70 72 65 64 75 63 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f | mapreduce.'edebug-form-spec.'(fo |
| 163a0 | 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 35 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 | rm.form.form)).#@85.Apply.FN.to. |
| 163c0 | 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45 20 77 68 69 6c 65 20 70 72 65 73 65 | each.element.of.TREE.while.prese |
| 163e0 | 72 76 69 6e 67 20 74 68 65 20 74 72 65 65 20 73 74 72 75 63 74 75 72 65 2e 0a 0a 28 66 6e 20 46 | rving.the.tree.structure...(fn.F |
| 16400 | 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61 70 20 23 5b | N.TREE)..(defalias.'-tree-map.#[ |
| 16420 | 35 31 34 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 | 514."\211\204..\300\207\301.!\20 |
| 16440 | 33 10 00 01 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 26 00 5c 33 30 32 5c 33 30 33 5c 33 30 | 3....!\207\211<\203&.\302\303\30 |
| 16460 | 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 07 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 02 | 4\305\306\307..!\310\"\311\312%. |
| 16480 | 5c 22 5c 32 30 37 01 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f | \"\207..!\207".[nil.-cons-pair\? |
| 164a0 | 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 | .mapcar.make-byte-code.257."\301 |
| 164c0 | 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 | \300.\"\207".vconcat.vector.[-tr |
| 164e0 | 65 65 2d 6d 61 70 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 39 20 28 23 24 20 2e 20 | ee-map].4."\n\n(fn.X)"].9.(#$... |
| 16500 | 39 31 30 36 30 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 | 91060)]).#@48.Anaphoric.form.of. |
| 16520 | 60 2d 74 72 65 65 2d 6d 61 70 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 64 | `-tree-map'...(fn.FORM.TREE)..(d |
| 16540 | 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b | efalias.'--tree-map.'(macro...#[ |
| 16560 | 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 | 514."\300\301\302.E.E\207".[-tre |
| 16580 | 65 2d 6d 61 70 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 39 31 34 30 36 | e-map.lambda.(it)].6.(#$...91406 |
| 165a0 | 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 20 27 65 64 65 62 75 67 2d 66 6f | )])).(put.'--tree-map.'edebug-fo |
| 165c0 | 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 34 36 20 55 73 65 20 | rm-spec.'(form.form)).#@346.Use. |
| 165e0 | 46 4e 20 74 6f 20 72 65 64 75 63 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 6c 69 73 74 20 54 52 | FN.to.reduce.elements.of.list.TR |
| 16600 | 45 45 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 54 52 45 45 20 61 72 65 20 6c 69 73 74 | EE..If.elements.of.TREE.are.list |
| 16620 | 73 20 74 68 65 6d 73 65 6c 76 65 73 2c 20 61 70 70 6c 79 20 74 68 65 20 72 65 64 75 63 74 69 6f | s.themselves,.apply.the.reductio |
| 16640 | 6e 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 46 4e 20 69 73 20 66 69 72 73 74 20 61 70 70 6c | n.recursively...FN.is.first.appl |
| 16660 | 69 65 64 20 74 6f 20 49 4e 49 54 2d 56 41 4c 55 45 20 61 6e 64 20 66 69 72 73 74 20 65 6c 65 6d | ied.to.INIT-VALUE.and.first.elem |
| 16680 | 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 2c 0a 74 68 65 6e 20 6f 6e 20 74 68 69 73 20 72 65 | ent.of.the.list,.then.on.this.re |
| 166a0 | 73 75 6c 74 20 61 6e 64 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 | sult.and.second.element.from.the |
| 166c0 | 20 6c 69 73 74 20 65 74 63 2e 0a 0a 54 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 69 73 | .list.etc...The.initial.value.is |
| 166e0 | 20 69 67 6e 6f 72 65 64 20 6f 6e 20 63 6f 6e 73 20 70 61 69 72 73 20 61 73 20 74 68 65 79 20 61 | .ignored.on.cons.pairs.as.they.a |
| 16700 | 6c 77 61 79 73 20 63 6f 6e 74 61 69 6e 0a 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 28 66 6e | lways.contain.two.elements...(fn |
| 16720 | 20 46 4e 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | .FN.INIT-VALUE.TREE)..(defalias. |
| 16740 | 27 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 | '-tree-reduce-from.#[771."\211\2 |
| 16760 | 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 0d 00 5c 32 30 37 5c 32 31 31 | 04..\300\207\301.!\203..\207\211 |
| 16780 | 3c 5c 32 30 33 29 00 5c 33 30 32 03 03 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 | <\203).\302..\303\304\305\306\30 |
| 167a0 | 37 5c 33 31 30 06 0b 06 0b 5c 22 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 05 5c 22 23 5c 32 | 7\310....\"\311\"\312\313%.\"#\2 |
| 167c0 | 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 | 07\207".[nil.-cons-pair\?.-reduc |
| 167e0 | 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 | e-r-from.mapcar.make-byte-code.2 |
| 16800 | 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 | 57."\302\300\301.#\207".vconcat. |
| 16820 | 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 35 20 22 5c 6e | vector.[-tree-reduce-from].5."\n |
| 16840 | 5c 6e 28 66 6e 20 58 29 22 5d 20 31 34 20 28 23 24 20 2e 20 39 31 36 31 32 29 5d 29 0a 23 40 36 | \n(fn.X)"].14.(#$...91612)]).#@6 |
| 16860 | 37 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 63 | 7.Anaphoric.form.of.`-tree-reduc |
| 16880 | 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 | e-from'...(fn.FORM.INIT-VALUE.TR |
| 168a0 | 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 | EE)..(defalias.'--tree-reduce-fr |
| 168c0 | 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | om.'(macro...#[771."\300\301\302 |
| 168e0 | 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 | .E..F\207".[-tree-reduce-from.la |
| 16900 | 6d 62 64 61 20 28 69 74 20 61 63 63 29 5d 20 37 20 28 23 24 20 2e 20 39 32 32 35 38 29 5d 29 29 | mbda.(it.acc)].7.(#$...92258)])) |
| 16920 | 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65 64 65 62 75 | .(put.'--tree-reduce-from.'edebu |
| 16940 | 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 | g-form-spec.'(form.form.form)).# |
| 16960 | 40 33 33 32 20 55 73 65 20 46 4e 20 74 6f 20 72 65 64 75 63 65 20 65 6c 65 6d 65 6e 74 73 20 6f | @332.Use.FN.to.reduce.elements.o |
| 16980 | 66 20 6c 69 73 74 20 54 52 45 45 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 54 52 45 45 | f.list.TREE..If.elements.of.TREE |
| 169a0 | 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73 2c 20 61 70 70 6c 79 20 74 68 65 | .are.lists.themselves,.apply.the |
| 169c0 | 20 72 65 64 75 63 74 69 6f 6e 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 46 4e 20 69 73 20 66 | .reduction.recursively...FN.is.f |
| 169e0 | 69 72 73 74 20 61 70 70 6c 69 65 64 20 74 6f 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 | irst.applied.to.first.element.of |
| 16a00 | 20 74 68 65 20 6c 69 73 74 20 61 6e 64 20 73 65 63 6f 6e 64 0a 65 6c 65 6d 65 6e 74 2c 20 74 68 | .the.list.and.second.element,.th |
| 16a20 | 65 6e 20 6f 6e 20 74 68 69 73 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 69 72 64 20 65 6c 65 6d | en.on.this.result.and.third.elem |
| 16a40 | 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 65 74 63 2e 0a 0a 53 65 65 20 60 2d 72 65 | ent.from.the.list.etc...See.`-re |
| 16a60 | 64 75 63 65 2d 72 27 20 66 6f 72 20 68 6f 77 20 65 78 61 63 74 6c 79 20 61 72 65 20 6c 69 73 74 | duce-r'.for.how.exactly.are.list |
| 16a80 | 73 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 68 61 6e 64 6c 65 64 | s.of.zero.or.one.element.handled |
| 16aa0 | 2e 0a 0a 28 66 6e 20 46 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 | ...(fn.FN.TREE)..(defalias.'-tre |
| 16ac0 | 65 2d 72 65 64 75 63 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 | e-reduce.#[514."\211\204..\300\2 |
| 16ae0 | 30 37 5c 33 30 31 01 21 5c 32 30 33 0d 00 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 26 00 5c 33 30 | 07\301.!\203..\207\211<\203&.\30 |
| 16b00 | 32 02 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 09 21 5c 33 31 | 2.\303\304\305\306\307\310..!\31 |
| 16b20 | 31 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c 22 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 | 1\"\312\313%.\"\"\207\207".[nil. |
| 16b40 | 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 6d 61 | -cons-pair\?.-reduce-r.mapcar.ma |
| 16b60 | 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 | ke-byte-code.257."\301\300.\"\20 |
| 16b80 | 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 5d | 7".vconcat.vector.[-tree-reduce] |
| 16ba0 | 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 31 20 28 23 24 20 2e 20 39 32 35 31 37 29 | .4."\n\n(fn.X)"].11.(#$...92517) |
| 16bc0 | 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 | ]).#@51.Anaphoric.form.of.`-tree |
| 16be0 | 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 64 65 66 61 | -reduce'...(fn.FORM.TREE)..(defa |
| 16c00 | 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b | lias.'--tree-reduce.'(macro...#[ |
| 16c20 | 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 | 514."\300\301\302.E.E\207".[-tre |
| 16c40 | 65 2d 72 65 64 75 63 65 20 6c 61 6d 62 64 61 20 28 69 74 20 61 63 63 29 5d 20 36 20 28 23 24 20 | e-reduce.lambda.(it.acc)].6.(#$. |
| 16c60 | 2e 20 39 33 31 32 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 20 | ..93128)])).(put.'--tree-reduce. |
| 16c80 | 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a | 'edebug-form-spec.'(form.form)). |
| 16ca0 | 23 40 32 30 37 20 43 61 6c 6c 20 46 55 4e 20 6f 6e 20 65 61 63 68 20 6e 6f 64 65 20 6f 66 20 54 | #@207.Call.FUN.on.each.node.of.T |
| 16cc0 | 52 45 45 20 74 68 61 74 20 73 61 74 69 73 66 69 65 73 20 50 52 45 44 2e 0a 0a 49 66 20 50 52 45 | REE.that.satisfies.PRED...If.PRE |
| 16ce0 | 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 63 6f 6e 74 69 6e 75 65 20 64 65 73 63 65 6e 64 69 | D.returns.nil,.continue.descendi |
| 16d00 | 6e 67 20 64 6f 77 6e 20 74 68 69 73 20 6e 6f 64 65 2e 20 20 49 66 20 50 52 45 44 0a 72 65 74 75 | ng.down.this.node...If.PRED.retu |
| 16d20 | 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 70 70 6c 79 20 46 55 4e 20 74 6f 20 74 68 69 73 20 6e | rns.non-nil,.apply.FUN.to.this.n |
| 16d40 | 6f 64 65 20 61 6e 64 20 64 6f 20 6e 6f 74 20 64 65 73 63 65 6e 64 0a 66 75 72 74 68 65 72 2e 0a | ode.and.do.not.descend.further.. |
| 16d60 | 0a 28 66 6e 20 50 52 45 44 20 46 55 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | .(fn.PRED.FUN.TREE)..(defalias.' |
| 16d80 | 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 23 5b 37 37 31 20 22 02 01 21 5c 32 30 33 5c 6e | -tree-map-nodes.#[771."..!\203\n |
| 16da0 | 00 01 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 28 00 5c 33 30 30 01 21 5c 32 30 34 28 00 5c | ...!\207\211<\203(.\300.!\204(.\ |
| 16dc0 | 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 08 06 08 5c 22 5c 33 30 | 301\302\303\304\305\306....\"\30 |
| 16de0 | 37 5c 22 5c 33 31 30 5c 33 31 31 25 02 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d | 7\"\310\311%.\"\207\207".[-cons- |
| 16e00 | 70 61 69 72 5c 3f 20 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 | pair\?.-map.make-byte-code.257." |
| 16e20 | 5c 33 30 32 5c 33 30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 | \302\300\301.#\207".vconcat.vect |
| 16e40 | 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 | or.[-tree-map-nodes].5."\n\n(fn. |
| 16e60 | 58 29 22 5d 20 31 31 20 28 23 24 20 2e 20 39 33 33 35 30 29 5d 29 0a 23 40 35 39 20 41 6e 61 70 | X)"].11.(#$...93350)]).#@59.Anap |
| 16e80 | 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 27 2e | horic.form.of.`-tree-map-nodes'. |
| 16ea0 | 0a 0a 28 66 6e 20 50 52 45 44 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 | ..(fn.PRED.FORM.TREE)..(defalias |
| 16ec0 | 20 27 2d 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 | .'--tree-map-nodes.'(macro...#[7 |
| 16ee0 | 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 | 71."\300\301\302.E\301\303.E.F\2 |
| 16f00 | 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 6c 61 6d 62 64 61 20 28 69 74 29 | 07".[-tree-map-nodes.lambda.(it) |
| 16f20 | 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 39 33 38 32 30 29 5d 29 29 0a 23 40 33 36 33 20 52 | .(it)].8.(#$...93820)])).#@363.R |
| 16f40 | 65 74 75 72 6e 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 68 65 20 6e 6f 64 65 73 20 69 6e | eturn.a.sequence.of.the.nodes.in |
| 16f60 | 20 54 52 45 45 2c 20 69 6e 20 64 65 70 74 68 2d 66 69 72 73 74 20 73 65 61 72 63 68 20 6f 72 64 | .TREE,.in.depth-first.search.ord |
| 16f80 | 65 72 2e 0a 0a 42 52 41 4e 43 48 20 69 73 20 61 20 70 72 65 64 69 63 61 74 65 20 6f 66 20 6f 6e | er...BRANCH.is.a.predicate.of.on |
| 16fa0 | 65 20 61 72 67 75 6d 65 6e 74 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 | e.argument.that.returns.non-nil. |
| 16fc0 | 69 66 20 74 68 65 0a 70 61 73 73 65 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 62 72 61 6e | if.the.passed.argument.is.a.bran |
| 16fe0 | 63 68 2c 20 74 68 61 74 20 69 73 2c 20 61 20 6e 6f 64 65 20 74 68 61 74 20 63 61 6e 20 68 61 76 | ch,.that.is,.a.node.that.can.hav |
| 17000 | 65 20 63 68 69 6c 64 72 65 6e 2e 0a 0a 43 48 49 4c 44 52 45 4e 20 69 73 20 61 20 66 75 6e 63 74 | e.children...CHILDREN.is.a.funct |
| 17020 | 69 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 20 74 68 61 74 20 72 65 74 75 72 6e 73 | ion.of.one.argument.that.returns |
| 17040 | 20 74 68 65 20 63 68 69 6c 64 72 65 6e 0a 6f 66 20 74 68 65 20 70 61 73 73 65 64 20 62 72 61 6e | .the.children.of.the.passed.bran |
| 17060 | 63 68 20 6e 6f 64 65 2e 0a 0a 4e 6f 6e 2d 62 72 61 6e 63 68 20 6e 6f 64 65 73 20 61 72 65 20 73 | ch.node...Non-branch.nodes.are.s |
| 17080 | 69 6d 70 6c 79 20 63 6f 70 69 65 64 2e 0a 0a 28 66 6e 20 42 52 41 4e 43 48 20 43 48 49 4c 44 52 | imply.copied...(fn.BRANCH.CHILDR |
| 170a0 | 45 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 73 65 71 20 23 | EN.TREE)..(defalias.'-tree-seq.# |
| 170c0 | 5b 37 37 31 20 22 5c 32 31 31 03 02 21 5c 32 30 35 1b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | [771."\211..!\205..\300\301\302\ |
| 170e0 | 33 30 33 5c 33 30 34 5c 33 30 35 06 09 06 09 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 | 303\304\305....\"\306\"\307\310% |
| 17100 | 04 04 21 5c 22 42 5c 32 30 37 22 20 5b 2d 6d 61 70 63 61 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 | ..!\"B\207".[-mapcat.make-byte-c |
| 17120 | 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f | ode.257."\302\300\301.#\207".vco |
| 17140 | 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 73 65 71 5d 20 35 20 22 5c 6e 5c 6e 28 | ncat.vector.[-tree-seq].5."\n\n( |
| 17160 | 66 6e 20 58 29 22 5d 20 31 32 20 28 23 24 20 2e 20 39 34 30 31 35 29 5d 29 0a 23 40 35 39 20 41 | fn.X)"].12.(#$...94015)]).#@59.A |
| 17180 | 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 73 65 71 27 2e 0a 0a 28 | naphoric.form.of.`-tree-seq'...( |
| 171a0 | 66 6e 20 42 52 41 4e 43 48 20 43 48 49 4c 44 52 45 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c | fn.BRANCH.CHILDREN.TREE)..(defal |
| 171c0 | 69 61 73 20 27 2d 2d 74 72 65 65 2d 73 65 71 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 | ias.'--tree-seq.'(macro...#[771. |
| 171e0 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 | "\300\301\302.E\301\303.E.F\207" |
| 17200 | 20 5b 2d 74 72 65 65 2d 73 65 71 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 | .[-tree-seq.lambda.(it).(it)].8. |
| 17220 | 28 23 24 20 2e 20 39 34 35 39 31 29 5d 29 29 0a 23 40 32 30 35 20 43 72 65 61 74 65 20 61 20 64 | (#$...94591)])).#@205.Create.a.d |
| 17240 | 65 65 70 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2e 0a 54 68 65 20 6e 65 77 20 6c 69 73 74 20 68 | eep.copy.of.LIST..The.new.list.h |
| 17260 | 61 73 20 74 68 65 20 73 61 6d 65 20 65 6c 65 6d 65 6e 74 73 20 61 6e 64 20 73 74 72 75 63 74 75 | as.the.same.elements.and.structu |
| 17280 | 72 65 20 62 75 74 20 61 6c 6c 20 63 6f 6e 73 20 61 72 65 0a 72 65 70 6c 61 63 65 64 20 77 69 74 | re.but.all.cons.are.replaced.wit |
| 172a0 | 68 20 6e 65 77 20 6f 6e 65 73 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 77 68 65 6e | h.new.ones...This.is.useful.when |
| 172c0 | 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 63 6c 6f 6e 65 20 61 0a 73 74 72 75 63 74 75 72 65 20 73 | .you.need.to.clone.a.structure.s |
| 172e0 | 75 63 68 20 61 73 20 70 6c 69 73 74 20 6f 72 20 61 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 | uch.as.plist.or.alist...(fn.LIST |
| 17300 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6c 6f 6e 65 20 23 5b 32 35 37 20 22 5c 33 30 30 | )..(defalias.'-clone.#[257."\300 |
| 17320 | 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 20 69 64 65 6e 74 69 74 79 | \301.\"\207".[-tree-map.identity |
| 17340 | 5d 20 34 20 28 23 24 20 2e 20 39 34 37 37 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].4.(#$...94774)]).(byte-code."\ |
| 17360 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 | 300\301\302\303#\210\300\301\304 |
| 17380 | 5c 33 30 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6c 6f 6e 65 20 | \303#\207".[function-put.-clone. |
| 173a0 | 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 39 | pure.t.side-effect-free].4).#@69 |
| 173c0 | 20 41 64 64 20 73 79 6e 74 61 78 20 68 69 67 68 6c 69 67 68 74 69 6e 67 20 74 6f 20 64 61 73 68 | .Add.syntax.highlighting.to.dash |
| 173e0 | 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6d 61 63 72 6f 73 20 61 6e 64 20 6d 61 67 69 63 20 76 61 6c | .functions,.macros.and.magic.val |
| 17400 | 75 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 65 6e 61 62 6c 65 2d 66 6f 6e | ues...(defalias.'dash-enable-fon |
| 17420 | 74 2d 6c 6f 63 6b 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20 | t-lock.#[0."\300\301\302\"\207". |
| 17440 | 5b 65 76 61 6c 2d 61 66 74 65 72 2d 6c 6f 61 64 20 6c 69 73 70 2d 6d 6f 64 65 20 23 5b 30 20 22 | [eval-after-load.lisp-mode.#[0." |
| 17460 | 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 04 5c 33 31 30 5c 22 5c | \302\303\304\305\306\307.\310\"\ |
| 17480 | 33 31 31 51 5c 33 31 32 42 43 5c 33 31 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 31 34 5c | 311Q\312BC\313#\210\304\305\314\ |
| 174a0 | 33 30 37 05 5c 33 31 30 5c 22 5c 33 31 31 51 5c 33 31 35 42 43 5c 33 31 33 23 5c 32 36 36 03 5c | 307.\310\"\311Q\315BC\313#\266.\ |
| 174c0 | 33 31 36 20 5c 33 31 37 01 5c 32 30 35 4e 00 01 40 72 5c 32 31 31 71 5c 32 31 30 08 5c 33 30 35 | 316.\317.\205N..@r\211q\210.\305 |
| 174e0 | 3d 5c 32 30 33 41 00 5c 33 32 30 5c 33 30 31 21 5c 32 30 33 41 00 09 5c 32 30 33 41 00 5c 33 32 | =\203A.\320\301!\203A..\203A.\32 |
| 17500 | 31 20 5c 32 31 30 29 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 | 1.\210)\210\211T\262..A\262.\202 |
| 17520 | 24 00 5c 32 30 37 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 6f | $.\207".[major-mode.font-lock-mo |
| 17540 | 64 65 20 28 22 21 63 6f 6e 73 22 20 22 21 63 64 72 22 20 22 2d 65 61 63 68 22 20 22 2d 2d 65 61 | de.("!cons"."!cdr"."-each"."--ea |
| 17560 | 63 68 22 20 22 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 22 20 22 2d 2d 65 61 63 68 2d 69 6e 64 65 | ch"."-each-indexed"."--each-inde |
| 17580 | 78 65 64 22 20 22 2d 65 61 63 68 2d 77 68 69 6c 65 22 20 22 2d 2d 65 61 63 68 2d 77 68 69 6c 65 | xed"."-each-while"."--each-while |
| 175a0 | 22 20 22 2d 64 6f 74 6f 22 20 22 2d 64 6f 74 69 6d 65 73 22 20 22 2d 2d 64 6f 74 69 6d 65 73 22 | "."-doto"."-dotimes"."--dotimes" |
| 175c0 | 20 22 2d 6d 61 70 22 20 22 2d 2d 6d 61 70 22 20 22 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 | ."-map"."--map"."-reduce-from"." |
| 175e0 | 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 72 65 64 75 63 65 22 20 22 2d 2d 72 65 64 75 | --reduce-from"."-reduce"."--redu |
| 17600 | 63 65 22 20 22 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64 75 63 65 2d 72 | ce"."-reduce-r-from"."--reduce-r |
| 17620 | 2d 66 72 6f 6d 22 20 22 2d 72 65 64 75 63 65 2d 72 22 20 22 2d 2d 72 65 64 75 63 65 2d 72 22 20 | -from"."-reduce-r"."--reduce-r". |
| 17640 | 22 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 22 20 22 2d 72 65 64 75 63 74 69 6f 6e 73 2d | "-reductions-from"."-reductions- |
| 17660 | 72 2d 66 72 6f 6d 22 20 22 2d 72 65 64 75 63 74 69 6f 6e 73 22 20 22 2d 72 65 64 75 63 74 69 6f | r-from"."-reductions"."-reductio |
| 17680 | 6e 73 2d 72 22 20 22 2d 66 69 6c 74 65 72 22 20 22 2d 2d 66 69 6c 74 65 72 22 20 22 2d 73 65 6c | ns-r"."-filter"."--filter"."-sel |
| 176a0 | 65 63 74 22 20 22 2d 2d 73 65 6c 65 63 74 22 20 22 2d 72 65 6d 6f 76 65 22 20 22 2d 2d 72 65 6d | ect"."--select"."-remove"."--rem |
| 176c0 | 6f 76 65 22 20 22 2d 72 65 6a 65 63 74 22 20 22 2d 2d 72 65 6a 65 63 74 22 20 22 2d 72 65 6d 6f | ove"."-reject"."--reject"."-remo |
| 176e0 | 76 65 2d 66 69 72 73 74 22 20 22 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 22 20 22 2d 72 65 6a | ve-first"."--remove-first"."-rej |
| 17700 | 65 63 74 2d 66 69 72 73 74 22 20 22 2d 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 22 20 22 2d 72 65 | ect-first"."--reject-first"."-re |
| 17720 | 6d 6f 76 65 2d 6c 61 73 74 22 20 22 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 22 20 22 2d 72 65 6a | move-last"."--remove-last"."-rej |
| 17740 | 65 63 74 2d 6c 61 73 74 22 20 22 2d 2d 72 65 6a 65 63 74 2d 6c 61 73 74 22 20 22 2d 72 65 6d 6f | ect-last"."--reject-last"."-remo |
| 17760 | 76 65 2d 69 74 65 6d 22 20 22 2d 6e 6f 6e 2d 6e 69 6c 22 20 22 2d 6b 65 65 70 22 20 22 2d 2d 6b | ve-item"."-non-nil"."-keep"."--k |
| 17780 | 65 65 70 22 20 22 2d 6d 61 70 2d 69 6e 64 65 78 65 64 22 20 22 2d 2d 6d 61 70 2d 69 6e 64 65 78 | eep"."-map-indexed"."--map-index |
| 177a0 | 65 64 22 20 22 2d 73 70 6c 69 63 65 22 20 22 2d 2d 73 70 6c 69 63 65 22 20 22 2d 73 70 6c 69 63 | ed"."-splice"."--splice"."-splic |
| 177c0 | 65 2d 6c 69 73 74 22 20 22 2d 2d 73 70 6c 69 63 65 2d 6c 69 73 74 22 20 22 2d 6d 61 70 2d 77 68 | e-list"."--splice-list"."-map-wh |
| 177e0 | 65 6e 22 20 22 2d 2d 6d 61 70 2d 77 68 65 6e 22 20 22 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 | en"."--map-when"."-replace-where |
| 17800 | 22 20 22 2d 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 22 20 22 2d 6d 61 70 2d 66 69 72 73 74 22 | "."--replace-where"."-map-first" |
| 17820 | 20 22 2d 2d 6d 61 70 2d 66 69 72 73 74 22 20 22 2d 6d 61 70 2d 6c 61 73 74 22 20 22 2d 2d 6d 61 | ."--map-first"."-map-last"."--ma |
| 17840 | 70 2d 6c 61 73 74 22 20 22 2d 72 65 70 6c 61 63 65 22 20 22 2d 72 65 70 6c 61 63 65 2d 66 69 72 | p-last"."-replace"."-replace-fir |
| 17860 | 73 74 22 20 22 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 22 20 22 2d 66 6c 61 74 74 65 6e 22 20 22 | st"."-replace-last"."-flatten"." |
| 17880 | 2d 66 6c 61 74 74 65 6e 2d 6e 22 20 22 2d 63 6f 6e 63 61 74 22 20 22 2d 6d 61 70 63 61 74 22 20 | -flatten-n"."-concat"."-mapcat". |
| 178a0 | 22 2d 2d 6d 61 70 63 61 74 22 20 22 2d 63 6f 70 79 22 20 22 2d 63 6f 6e 73 2a 22 20 22 2d 73 6e | "--mapcat"."-copy"."-cons*"."-sn |
| 178c0 | 6f 63 22 20 22 2d 66 69 72 73 74 22 20 22 2d 2d 66 69 72 73 74 22 20 22 2d 66 69 6e 64 22 20 22 | oc"."-first"."--first"."-find"." |
| 178e0 | 2d 2d 66 69 6e 64 22 20 22 2d 73 6f 6d 65 22 20 22 2d 2d 73 6f 6d 65 22 20 22 2d 61 6e 79 22 20 | --find"."-some"."--some"."-any". |
| 17900 | 22 2d 2d 61 6e 79 22 20 22 2d 6c 61 73 74 22 20 22 2d 2d 6c 61 73 74 22 20 22 2d 66 69 72 73 74 | "--any"."-last"."--last"."-first |
| 17920 | 2d 69 74 65 6d 22 20 22 2d 73 65 63 6f 6e 64 2d 69 74 65 6d 22 20 22 2d 74 68 69 72 64 2d 69 74 | -item"."-second-item"."-third-it |
| 17940 | 65 6d 22 20 22 2d 66 6f 75 72 74 68 2d 69 74 65 6d 22 20 22 2d 66 69 66 74 68 2d 69 74 65 6d 22 | em"."-fourth-item"."-fifth-item" |
| 17960 | 20 22 2d 6c 61 73 74 2d 69 74 65 6d 22 20 22 2d 62 75 74 6c 61 73 74 22 20 22 2d 63 6f 75 6e 74 | ."-last-item"."-butlast"."-count |
| 17980 | 22 20 22 2d 2d 63 6f 75 6e 74 22 20 22 2d 61 6e 79 3f 22 20 22 2d 2d 61 6e 79 3f 22 20 22 2d 73 | "."--count"."-any?"."--any?"."-s |
| 179a0 | 6f 6d 65 3f 22 20 22 2d 2d 73 6f 6d 65 3f 22 20 22 2d 61 6e 79 2d 70 22 20 22 2d 2d 61 6e 79 2d | ome?"."--some?"."-any-p"."--any- |
| 179c0 | 70 22 20 22 2d 73 6f 6d 65 2d 70 22 20 22 2d 2d 73 6f 6d 65 2d 70 22 20 22 2d 73 6f 6d 65 2d 3e | p"."-some-p"."--some-p"."-some-> |
| 179e0 | 22 20 22 2d 73 6f 6d 65 2d 3e 3e 22 20 22 2d 73 6f 6d 65 2d 2d 3e 22 20 22 2d 61 6c 6c 3f 22 20 | "."-some->>"."-some-->"."-all?". |
| 17a00 | 22 2d 61 6c 6c 2d 70 22 20 22 2d 2d 61 6c 6c 3f 22 20 22 2d 2d 61 6c 6c 2d 70 22 20 22 2d 65 76 | "-all-p"."--all?"."--all-p"."-ev |
| 17a20 | 65 72 79 3f 22 20 22 2d 2d 65 76 65 72 79 3f 22 20 22 2d 61 6c 6c 2d 70 22 20 22 2d 2d 61 6c 6c | ery?"."--every?"."-all-p"."--all |
| 17a40 | 2d 70 22 20 22 2d 65 76 65 72 79 2d 70 22 20 22 2d 2d 65 76 65 72 79 2d 70 22 20 22 2d 6e 6f 6e | -p"."-every-p"."--every-p"."-non |
| 17a60 | 65 3f 22 20 22 2d 2d 6e 6f 6e 65 3f 22 20 22 2d 6e 6f 6e 65 2d 70 22 20 22 2d 2d 6e 6f 6e 65 2d | e?"."--none?"."-none-p"."--none- |
| 17a80 | 70 22 20 22 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 22 20 22 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 22 20 | p"."-only-some?"."--only-some?". |
| 17aa0 | 22 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 22 20 22 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 22 20 22 | "-only-some-p"."--only-some-p"." |
| 17ac0 | 2d 73 6c 69 63 65 22 20 22 2d 74 61 6b 65 22 20 22 2d 64 72 6f 70 22 20 22 2d 64 72 6f 70 2d 6c | -slice"."-take"."-drop"."-drop-l |
| 17ae0 | 61 73 74 22 20 22 2d 74 61 6b 65 2d 6c 61 73 74 22 20 22 2d 74 61 6b 65 2d 77 68 69 6c 65 22 20 | ast"."-take-last"."-take-while". |
| 17b00 | 22 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 22 20 22 2d 64 72 6f 70 2d 77 68 69 6c 65 22 20 22 2d 2d | "--take-while"."-drop-while"."-- |
| 17b20 | 64 72 6f 70 2d 77 68 69 6c 65 22 20 22 2d 73 70 6c 69 74 2d 61 74 22 20 22 2d 72 6f 74 61 74 65 | drop-while"."-split-at"."-rotate |
| 17b40 | 22 20 22 2d 69 6e 73 65 72 74 2d 61 74 22 20 22 2d 72 65 70 6c 61 63 65 2d 61 74 22 20 22 2d 75 | "."-insert-at"."-replace-at"."-u |
| 17b60 | 70 64 61 74 65 2d 61 74 22 20 22 2d 2d 75 70 64 61 74 65 2d 61 74 22 20 22 2d 72 65 6d 6f 76 65 | pdate-at"."--update-at"."-remove |
| 17b80 | 2d 61 74 22 20 22 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 22 20 22 2d 73 70 6c 69 | -at"."-remove-at-indices"."-spli |
| 17ba0 | 74 2d 77 69 74 68 22 20 22 2d 2d 73 70 6c 69 74 2d 77 69 74 68 22 20 22 2d 73 70 6c 69 74 2d 6f | t-with"."--split-with"."-split-o |
| 17bc0 | 6e 22 20 22 2d 73 70 6c 69 74 2d 77 68 65 6e 22 20 22 2d 2d 73 70 6c 69 74 2d 77 68 65 6e 22 20 | n"."-split-when"."--split-when". |
| 17be0 | 22 2d 73 65 70 61 72 61 74 65 22 20 22 2d 2d 73 65 70 61 72 61 74 65 22 20 22 2d 70 61 72 74 69 | "-separate"."--separate"."-parti |
| 17c00 | 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 69 | tion-all-in-steps"."-partition-i |
| 17c20 | 6e 2d 73 74 65 70 73 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 22 20 22 2d 70 61 72 74 | n-steps"."-partition-all"."-part |
| 17c40 | 69 74 69 6f 6e 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 69 74 65 6d 22 20 22 | ition"."-partition-after-item"." |
| 17c60 | 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 22 20 22 2d 70 61 72 74 69 74 69 | -partition-after-pred"."-partiti |
| 17c80 | 6f 6e 2d 62 65 66 6f 72 65 2d 69 74 65 6d 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f | on-before-item"."-partition-befo |
| 17ca0 | 72 65 2d 70 72 65 64 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 22 20 22 2d 2d 70 61 72 74 | re-pred"."-partition-by"."--part |
| 17cc0 | 69 74 69 6f 6e 2d 62 79 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 22 | ition-by"."-partition-by-header" |
| 17ce0 | 20 22 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 22 20 22 2d 67 72 6f 75 70 | ."--partition-by-header"."-group |
| 17d00 | 2d 62 79 22 20 22 2d 2d 67 72 6f 75 70 2d 62 79 22 20 22 2d 69 6e 74 65 72 70 6f 73 65 22 20 22 | -by"."--group-by"."-interpose"." |
| 17d20 | 2d 69 6e 74 65 72 6c 65 61 76 65 22 20 22 2d 75 6e 7a 69 70 22 20 22 2d 7a 69 70 2d 77 69 74 68 | -interleave"."-unzip"."-zip-with |
| 17d40 | 22 20 22 2d 2d 7a 69 70 2d 77 69 74 68 22 20 22 2d 7a 69 70 22 20 22 2d 7a 69 70 2d 66 69 6c 6c | "."--zip-with"."-zip"."-zip-fill |
| 17d60 | 22 20 22 2d 7a 69 70 2d 70 61 69 72 22 20 22 2d 63 79 63 6c 65 22 20 22 2d 70 61 64 22 20 22 2d | "."-zip-pair"."-cycle"."-pad"."- |
| 17d80 | 61 6e 6e 6f 74 61 74 65 22 20 22 2d 2d 61 6e 6e 6f 74 61 74 65 22 20 22 2d 74 61 62 6c 65 22 20 | annotate"."--annotate"."-table". |
| 17da0 | 22 2d 74 61 62 6c 65 2d 66 6c 61 74 22 20 22 2d 70 61 72 74 69 61 6c 22 20 22 2d 65 6c 65 6d 2d | "-table-flat"."-partial"."-elem- |
| 17dc0 | 69 6e 64 65 78 22 20 22 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 22 20 22 2d 66 69 6e 64 2d 69 6e | index"."-elem-indices"."-find-in |
| 17de0 | 64 69 63 65 73 22 20 22 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 22 20 22 2d 66 69 6e 64 2d 69 | dices"."--find-indices"."-find-i |
| 17e00 | 6e 64 65 78 22 20 22 2d 2d 66 69 6e 64 2d 69 6e 64 65 78 22 20 22 2d 66 69 6e 64 2d 6c 61 73 74 | ndex"."--find-index"."-find-last |
| 17e20 | 2d 69 6e 64 65 78 22 20 22 2d 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 22 20 22 2d 73 65 | -index"."--find-last-index"."-se |
| 17e40 | 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 22 20 22 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e | lect-by-indices"."-select-column |
| 17e60 | 73 22 20 22 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 22 20 22 2d 67 72 61 64 65 2d 75 70 22 20 | s"."-select-column"."-grade-up". |
| 17e80 | 22 2d 67 72 61 64 65 2d 64 6f 77 6e 22 20 22 2d 3e 22 20 22 2d 3e 3e 22 20 22 2d 2d 3e 22 20 22 | "-grade-down"."->"."->>"."-->"." |
| 17ea0 | 2d 61 73 2d 3e 22 20 22 2d 77 68 65 6e 2d 6c 65 74 22 20 22 2d 77 68 65 6e 2d 6c 65 74 2a 22 20 | -as->"."-when-let"."-when-let*". |
| 17ec0 | 22 2d 2d 77 68 65 6e 2d 6c 65 74 22 20 22 2d 69 66 2d 6c 65 74 22 20 22 2d 69 66 2d 6c 65 74 2a | "--when-let"."-if-let"."-if-let* |
| 17ee0 | 22 20 22 2d 2d 69 66 2d 6c 65 74 22 20 22 2d 6c 65 74 2a 22 20 22 2d 6c 65 74 22 20 22 2d 6c 61 | "."--if-let"."-let*"."-let"."-la |
| 17f00 | 6d 62 64 61 22 20 22 2d 64 69 73 74 69 6e 63 74 22 20 22 2d 75 6e 69 71 22 20 22 2d 75 6e 69 6f | mbda"."-distinct"."-uniq"."-unio |
| 17f20 | 6e 22 20 22 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 22 20 22 2d 64 69 66 66 65 72 65 6e 63 65 22 | n"."-intersection"."-difference" |
| 17f40 | 20 22 2d 70 6f 77 65 72 73 65 74 22 20 22 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 22 20 22 2d 69 | ."-powerset"."-permutations"."-i |
| 17f60 | 6e 69 74 73 22 20 22 2d 74 61 69 6c 73 22 20 22 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 22 20 | nits"."-tails"."-common-prefix". |
| 17f80 | 22 2d 63 6f 6d 6d 6f 6e 2d 73 75 66 66 69 78 22 20 22 2d 63 6f 6e 74 61 69 6e 73 3f 22 20 22 2d | "-common-suffix"."-contains?"."- |
| 17fa0 | 63 6f 6e 74 61 69 6e 73 2d 70 22 20 22 2d 73 61 6d 65 2d 69 74 65 6d 73 3f 22 20 22 2d 73 61 6d | contains-p"."-same-items?"."-sam |
| 17fc0 | 65 2d 69 74 65 6d 73 2d 70 22 20 22 2d 69 73 2d 70 72 65 66 69 78 2d 70 22 20 22 2d 69 73 2d 70 | e-items-p"."-is-prefix-p"."-is-p |
| 17fe0 | 72 65 66 69 78 3f 22 20 22 2d 69 73 2d 73 75 66 66 69 78 2d 70 22 20 22 2d 69 73 2d 73 75 66 66 | refix?"."-is-suffix-p"."-is-suff |
| 18000 | 69 78 3f 22 20 22 2d 69 73 2d 69 6e 66 69 78 2d 70 22 20 22 2d 69 73 2d 69 6e 66 69 78 3f 22 20 | ix?"."-is-infix-p"."-is-infix?". |
| 18020 | 22 2d 73 6f 72 74 22 20 22 2d 2d 73 6f 72 74 22 20 22 2d 6c 69 73 74 22 20 22 2d 72 65 70 65 61 | "-sort"."--sort"."-list"."-repea |
| 18040 | 74 22 20 22 2d 73 75 6d 22 20 22 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 22 20 22 2d 70 72 6f 64 75 | t"."-sum"."-running-sum"."-produ |
| 18060 | 63 74 22 20 22 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 22 20 22 2d 6d 61 78 22 20 22 2d | ct"."-running-product"."-max"."- |
| 18080 | 6d 69 6e 22 20 22 2d 6d 61 78 2d 62 79 22 20 22 2d 2d 6d 61 78 2d 62 79 22 20 22 2d 6d 69 6e 2d | min"."-max-by"."--max-by"."-min- |
| 180a0 | 62 79 22 20 22 2d 2d 6d 69 6e 2d 62 79 22 20 22 2d 69 74 65 72 61 74 65 22 20 22 2d 2d 69 74 65 | by"."--min-by"."-iterate"."--ite |
| 180c0 | 72 61 74 65 22 20 22 2d 66 69 78 22 20 22 2d 2d 66 69 78 22 20 22 2d 75 6e 66 6f 6c 64 22 20 22 | rate"."-fix"."--fix"."-unfold"." |
| 180e0 | 2d 2d 75 6e 66 6f 6c 64 22 20 22 2d 63 6f 6e 73 2d 70 61 69 72 3f 22 20 22 2d 63 6f 6e 73 2d 74 | --unfold"."-cons-pair?"."-cons-t |
| 18100 | 6f 2d 6c 69 73 74 22 20 22 2d 76 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 22 20 22 2d 74 72 65 65 2d | o-list"."-value-to-list"."-tree- |
| 18120 | 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 | mapreduce-from"."--tree-mapreduc |
| 18140 | 65 2d 66 72 6f 6d 22 20 22 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 22 20 22 2d 2d 74 72 65 | e-from"."-tree-mapreduce"."--tre |
| 18160 | 65 2d 6d 61 70 72 65 64 75 63 65 22 20 22 2d 74 72 65 65 2d 6d 61 70 22 20 22 2d 2d 74 72 65 65 | e-mapreduce"."-tree-map"."--tree |
| 18180 | 2d 6d 61 70 22 20 22 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 74 72 65 | -map"."-tree-reduce-from"."--tre |
| 181a0 | 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 74 72 65 65 2d 72 65 64 75 63 65 22 20 22 2d | e-reduce-from"."-tree-reduce"."- |
| 181c0 | 2d 74 72 65 65 2d 72 65 64 75 63 65 22 20 22 2d 74 72 65 65 2d 73 65 71 22 20 22 2d 2d 74 72 65 | -tree-reduce"."-tree-seq"."--tre |
| 181e0 | 65 2d 73 65 71 22 20 22 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 22 20 22 2d 2d 74 72 65 65 | e-seq"."-tree-map-nodes"."--tree |
| 18200 | 2d 6d 61 70 2d 6e 6f 64 65 73 22 20 22 2d 63 6c 6f 6e 65 22 20 22 2d 72 70 61 72 74 69 61 6c 22 | -map-nodes"."-clone"."-rpartial" |
| 18220 | 20 22 2d 6a 75 78 74 22 20 22 2d 61 70 70 6c 69 66 79 22 20 22 2d 6f 6e 22 20 22 2d 66 6c 69 70 | ."-juxt"."-applify"."-on"."-flip |
| 18240 | 22 20 22 2d 63 6f 6e 73 74 22 20 22 2d 63 75 74 22 20 22 2d 6f 72 66 6e 22 20 22 2d 61 6e 64 66 | "."-const"."-cut"."-orfn"."-andf |
| 18260 | 6e 22 20 22 2d 69 74 65 72 61 74 65 66 6e 22 20 22 2d 66 69 78 66 6e 22 20 22 2d 70 72 6f 64 66 | n"."-iteratefn"."-fixfn"."-prodf |
| 18280 | 6e 22 29 20 28 22 69 74 22 20 22 69 74 2d 69 6e 64 65 78 22 20 22 61 63 63 22 20 22 6f 74 68 65 | n").("it"."it-index"."acc"."othe |
| 182a0 | 72 22 29 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 20 65 6d 61 63 73 | r").font-lock-add-keywords.emacs |
| 182c0 | 2d 6c 69 73 70 2d 6d 6f 64 65 20 22 5c 5c 5f 3c 22 20 72 65 67 65 78 70 2d 6f 70 74 20 70 61 72 | -lisp-mode."\\_<".regexp-opt.par |
| 182e0 | 65 6e 20 22 5c 5c 5f 3e 22 20 28 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d | en."\\_>".(1.font-lock-variable- |
| 18300 | 6e 61 6d 65 2d 66 61 63 65 29 20 61 70 70 65 6e 64 20 22 28 5c 5c 73 2d 2a 22 20 28 31 20 66 6f | name-face).append."(\\s-*".(1.fo |
| 18320 | 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 20 62 75 66 66 65 72 2d 6c 69 73 | nt-lock-keyword-face).buffer-lis |
| 18340 | 74 20 30 20 62 6f 75 6e 64 70 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 72 65 66 72 65 73 68 2d 64 65 66 | t.0.boundp.font-lock-refresh-def |
| 18360 | 61 75 6c 74 73 5d 20 38 5d 5d 20 33 20 28 23 24 20 2e 20 39 35 31 36 39 29 5d 29 0a 28 70 72 6f | aults].8]].3.(#$...95169)]).(pro |
| 18380 | 76 69 64 65 20 27 64 61 73 68 29 0a | vide.'dash). |
 |
depot | |
| monorepo for the virus lounge | The Virus Lounge |
| about summary refs log tree commit diff |
blob: cc4b1e32d62115cee59efd281ac334bf59185d15 (plain)