| 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 31 33 34 20 52 65 70 | isp-indent-function.2).#@134.Rep |
| 0e80 | 65 61 74 65 64 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 | eatedly.executes.BODY.(presumabl |
| 0ea0 | 79 20 66 6f 72 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 | y.for.side-effects).with.symbol. |
| 0ec0 | 60 69 74 27 20 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 | `it'.bound.to.integers.from.0.th |
| 0ee0 | 72 6f 75 67 68 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 | rough.NUM-1...(fn.NUM.&rest.BODY |
| 0f00 | 29 1f 0a 28 64 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 | )..(defalias.'--dotimes.'(macro. |
| 0f20 | 2e 20 23 5b 33 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 | ..#[385."\300\301!\302..D\303B\3 |
| 0f40 | 30 34 5c 33 30 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 | 04\305\306.E\307..\310\"BBE\207" |
| 0f60 | 20 5b 6d 61 6b 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 | .[make-symbol."num".let.((it.0)) |
| 0f80 | 20 77 68 69 6c 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 | .while.<.it.append.((setq.it.(1+ |
| 0fa0 | 20 69 74 29 29 29 5d 20 31 30 20 28 23 24 20 2e 20 33 37 30 39 29 5d 29 29 0a 28 62 79 74 65 2d | .it)))].10.(#$...3709)])).(byte- |
| 0fc0 | 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 5c | code."\300\301\302\303#\210\304\ |
| 0fe0 | 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 64 6f 74 69 6d 65 73 | 301\305\306#\207".[put.--dotimes |
| 1000 | 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 29 20 66 75 | .edebug-form-spec.(form.body).fu |
| 1020 | 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 69 6f 6e 20 | nction-put.lisp-indent-function. |
| 1040 | 31 5d 20 34 29 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 | 1].4).#@106.Repeatedly.calls.FN. |
| 1060 | 28 70 72 65 73 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 | (presumably.for.side-effects).pa |
| 1080 | 73 73 69 6e 67 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 | ssing.in.integers.from.0.through |
| 10a0 | 20 4e 55 4d 2d 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 | .NUM-1...(fn.NUM.FN)..(defalias. |
| 10c0 | 27 2d 64 6f 74 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 | '-dotimes.#[514.".\300\211.W\205 |
| 10e0 | 13 00 02 01 21 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 | ....!\210\211T\262.\202..\207".[ |
| 1100 | 30 5d 20 36 20 28 23 24 20 2e 20 34 31 37 32 29 5d 29 0a 28 70 75 74 20 27 2d 64 6f 74 69 6d 65 | 0].6.(#$...4172)]).(put.'-dotime |
| 1120 | 73 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 39 35 20 | s.'lisp-indent-function.1).#@95. |
| 1140 | 52 65 74 75 72 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 | Return.a.new.list.consisting.of. |
| 1160 | 74 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 74 68 65 | the.result.of.applying.FN.to.the |
| 1180 | 20 69 74 65 6d 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 | .items.in.LIST...(fn.FN.LIST)..( |
| 11a0 | 64 65 66 61 6c 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 | defalias.'-map.#[514."\300..\"\2 |
| 11c0 | 30 37 22 20 5b 6d 61 70 63 61 72 5d 20 35 20 28 23 24 20 2e 20 34 34 31 36 29 5d 29 0a 23 40 34 | 07".[mapcar].5.(#$...4416)]).#@4 |
| 11e0 | 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 27 2e 0a 0a 28 66 6e | 3.Anaphoric.form.of.`-map'...(fn |
| 1200 | 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 70 20 27 28 | .FORM.LIST)..(defalias.'--map.'( |
| 1220 | 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 45 5c | macro...#[514."\300\301\302.E.E\ |
| 1240 | 32 30 37 22 20 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 | 207".[mapcar.lambda.(it)].6.(#$. |
| 1260 | 2e 20 34 35 37 38 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 | ..4578)])).(put.'--map.'edebug-f |
| 1280 | 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 36 35 20 41 6e 61 70 | orm-spec.'(form.form)).#@65.Anap |
| 12a0 | 68 6f 72 69 63 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 | horic.form.of.`-reduce-from'...( |
| 12c0 | 66 6e 20 46 4f 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 | fn.FORM.INITIAL-VALUE.LIST)..(de |
| 12e0 | 66 61 6c 69 61 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 | falias.'--reduce-from.'(macro... |
| 1300 | 23 5b 37 37 31 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 | #[771."\300\301.DC\302.\303\301. |
| 1320 | 08 45 45 5c 33 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 | .EE\304BBB\207".[let.acc.--each. |
| 1340 | 73 65 74 71 20 28 61 63 63 29 5d 20 31 30 20 28 23 24 20 2e 20 34 37 36 34 29 5d 29 29 0a 28 70 | setq.(acc)].10.(#$...4764)])).(p |
| 1360 | 75 74 20 27 2d 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 | ut.'--reduce-from.'edebug-form-s |
| 1380 | 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 33 35 36 20 52 65 74 | pec.'(form.form.form)).#@356.Ret |
| 13a0 | 75 72 6e 20 74 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 | urn.the.result.of.applying.FN.to |
| 13c0 | 20 49 4e 49 54 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 | .INITIAL-VALUE.and.the.first.ite |
| 13e0 | 6d 20 69 6e 20 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 | m.in.LIST,.then.applying.FN.to.t |
| 1400 | 68 61 74 20 72 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 | hat.result.and.the.2nd.item,.etc |
| 1420 | 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 73 2c 20 72 65 74 | ..If.LIST.contains.no.items,.ret |
| 1440 | 75 72 6e 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 61 6e 64 0a 46 4e 20 69 73 20 6e 6f 74 20 | urn.INITIAL-VALUE.and.FN.is.not. |
| 1460 | 63 61 6c 6c 65 64 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 | called...In.the.anaphoric.form.` |
| 1480 | 2d 2d 72 65 64 75 63 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 | --reduce-from',.the.accumulated. |
| 14a0 | 76 61 6c 75 65 20 69 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 | value.is.exposed.as.symbol.`acc' |
| 14c0 | 2e 0a 0a 53 65 65 20 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 | ...See.also:.`-reduce',.`-reduce |
| 14e0 | 2d 72 27 0a 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 | -r'..(fn.FN.INITIAL-VALUE.LIST). |
| 1500 | 0a 28 64 65 66 61 6c 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 | .(defalias.'-reduce-from.#[771." |
| 1520 | 01 01 5c 33 30 30 01 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 | ..\300.\203...@....\"\262.\210\2 |
| 1540 | 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 |
| 1560 | 30 37 22 20 5b 30 5d 20 31 30 20 28 23 24 20 2e 20 35 30 32 31 29 5d 29 0a 23 40 34 36 20 41 6e | 07".[0].10.(#$...5021)]).#@46.An |
| 1580 | 61 70 68 6f 72 69 63 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 | aphoric.form.of.`-reduce'...(fn. |
| 15a0 | 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 72 65 64 75 63 65 20 | FORM.LIST)..(defalias.'--reduce. |
| 15c0 | 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 03 | '(macro...#[514."\300\301!\302.. |
| 15e0 | 44 43 5c 33 30 33 03 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 | DC\303.\304..\305..D\306..DF\302 |
| 1600 | 5c 33 30 37 06 09 45 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 | \307..EFE\207".[make-symbol."lis |
| 1620 | 74 2d 76 61 6c 75 65 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 | t-value".let.if.--reduce-from.ca |
| 1640 | 72 20 63 64 72 20 28 61 63 63 20 69 74 29 5d 20 31 32 20 28 23 24 20 2e 20 35 35 30 32 29 5d 29 | r.cdr.(acc.it)].12.(#$...5502)]) |
| 1660 | 29 0a 28 70 75 74 20 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 | ).(put.'--reduce.'edebug-form-sp |
| 1680 | 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 34 35 20 52 65 74 75 72 6e 20 74 68 | ec.'(form.form)).#@445.Return.th |
| 16a0 | 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 74 68 65 20 66 | e.result.of.applying.FN.to.the.f |
| 16c0 | 69 72 73 74 20 32 20 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 | irst.2.items.in.LIST,.then.apply |
| 16e0 | 69 6e 67 20 46 4e 20 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 | ing.FN.to.that.result.and.the.3r |
| 1700 | 64 20 69 74 65 6d 2c 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 | d.item,.etc..If.LIST.contains.no |
| 1720 | 20 69 74 65 6d 73 2c 20 46 4e 20 6d 75 73 74 20 61 63 63 65 70 74 20 6e 6f 20 61 72 67 75 6d 65 | .items,.FN.must.accept.no.argume |
| 1740 | 6e 74 73 20 61 73 20 77 65 6c 6c 2c 20 61 6e 64 0a 72 65 64 75 63 65 20 72 65 74 75 72 6e 20 74 | nts.as.well,.and.reduce.return.t |
| 1760 | 68 65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 4e 20 77 69 74 68 20 6e 6f 20 | he.result.of.calling.FN.with.no. |
| 1780 | 61 72 67 75 6d 65 6e 74 73 2e 20 49 66 0a 4c 49 53 54 20 68 61 73 20 6f 6e 6c 79 20 31 20 69 74 | arguments..If.LIST.has.only.1.it |
| 17a0 | 65 6d 2c 20 69 74 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 6e 64 20 46 4e 20 69 73 20 6e 6f 74 | em,.it.is.returned.and.FN.is.not |
| 17c0 | 20 63 61 6c 6c 65 64 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 | .called...In.the.anaphoric.form. |
| 17e0 | 60 2d 2d 72 65 64 75 63 65 27 2c 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 64 20 76 61 6c 75 | `--reduce',.the.accumulated.valu |
| 1800 | 65 20 69 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 | e.is.exposed.as.symbol.`acc'...S |
| 1820 | 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2c 20 60 2d 72 65 64 75 63 | ee.also:.`-reduce-from',.`-reduc |
| 1840 | 65 2d 72 27 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 | e-r'..(fn.FN.LIST)..(defalias.'- |
| 1860 | 72 65 64 75 63 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 5c 66 00 5c 33 30 30 02 02 40 | reduce.#[514."\211\203\f.\300..@ |
| 1880 | 03 41 23 5c 32 30 37 01 20 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20 | .A#\207..\207".[-reduce-from].6. |
| 18a0 | 28 23 24 20 2e 20 35 37 38 33 29 5d 29 0a 23 40 33 33 31 20 52 65 70 6c 61 63 65 20 63 6f 6e 73 | (#$...5783)]).#@331.Replace.cons |
| 18c0 | 65 73 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 | es.with.FN,.nil.with.INITIAL-VAL |
| 18e0 | 55 45 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 | UE.and.evaluate.the.resulting.ex |
| 1900 | 70 72 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 | pression..If.LIST.is.empty,.INIT |
| 1920 | 49 41 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 | IAL-VALUE.is.returned.and.FN.is. |
| 1940 | 6e 6f 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 | not.called...Note:.this.function |
| 1960 | 20 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 2d 66 72 6f 6d | .works.the.same.as.`-reduce-from |
| 1980 | 27 20 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 | '.but.the.operation.associates.f |
| 19a0 | 72 6f 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 | rom.right.instead.of.from.left.. |
| 19c0 | 0a 53 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 | .See.also:.`-reduce-r',.`-reduce |
| 19e0 | 27 0a 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 | '..(fn.FN.INITIAL-VALUE.LIST)..( |
| 1a00 | 64 65 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 | defalias.'-reduce-r-from.#[771." |
| 1a20 | 5c 32 31 31 5c 32 30 34 06 00 01 5c 32 30 37 02 01 40 5c 33 30 30 05 05 05 41 23 5c 22 5c 32 30 | \211\204...\207..@\300...A#\"\20 |
| 1a40 | 37 22 20 5b 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 5d 20 39 20 28 23 24 20 2e 20 36 33 32 34 | 7".[-reduce-r-from].9.(#$...6324 |
| 1a60 | 29 5d 29 0a 23 40 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 | )]).#@70.Anaphoric.version.of.`- |
| 1a80 | 72 65 64 75 63 65 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 | reduce-r-from'...(fn.FORM.INITIA |
| 1aa0 | 4c 2d 56 41 4c 55 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 | L-VALUE.LIST)..(defalias.'--redu |
| 1ac0 | 63 65 2d 72 2d 66 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 5c | ce-r-from.'(macro...#[771."\300\ |
| 1ae0 | 33 30 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f | 301\302.E..F\207".[-reduce-r-fro |
| 1b00 | 6d 20 6c 61 6d 62 64 61 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 74 20 61 63 63 29 5d 20 37 20 28 | m.lambda.(&optional.it.acc)].7.( |
| 1b20 | 23 24 20 2e 20 36 37 36 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d 66 | #$...6761)])).(put.'--reduce-r-f |
| 1b40 | 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 66 6f 72 | rom.'edebug-form-spec.'(form.for |
| 1b60 | 6d 20 66 6f 72 6d 29 29 0a 23 40 35 32 31 20 52 65 70 6c 61 63 65 20 63 6f 6e 73 65 73 20 77 69 | m.form)).#@521.Replace.conses.wi |
| 1b80 | 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 67 | th.FN.and.evaluate.the.resulting |
| 1ba0 | 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 67 | .expression..The.final.nil.is.ig |
| 1bc0 | 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 73 | nored..If.LIST.contains.no.items |
| 1be0 | 2c 20 46 4e 20 6d 75 73 74 0a 61 63 63 65 70 74 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 20 61 73 | ,.FN.must.accept.no.arguments.as |
| 1c00 | 20 77 65 6c 6c 2c 20 61 6e 64 20 72 65 64 75 63 65 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 | .well,.and.reduce.return.the.res |
| 1c20 | 75 6c 74 20 6f 66 0a 63 61 6c 6c 69 6e 67 20 46 4e 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 | ult.of.calling.FN.with.no.argume |
| 1c40 | 6e 74 73 2e 20 49 66 20 4c 49 53 54 20 68 61 73 20 6f 6e 6c 79 20 31 20 69 74 65 6d 2c 20 69 74 | nts..If.LIST.has.only.1.item,.it |
| 1c60 | 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 74 20 63 61 6c 6c 65 | .is.returned.and.FN.is.not.calle |
| 1c80 | 64 2e 0a 0a 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 46 4e 20 69 73 20 | d...The.first.argument.of.FN.is. |
| 1ca0 | 74 68 65 20 6e 65 77 20 69 74 65 6d 2c 20 74 68 65 20 73 65 63 6f 6e 64 20 69 73 20 74 68 65 0a | the.new.item,.the.second.is.the. |
| 1cc0 | 61 63 63 75 6d 75 6c 61 74 65 64 20 76 61 6c 75 65 2e 0a 0a 4e 6f 74 65 3a 20 74 68 69 73 20 66 | accumulated.value...Note:.this.f |
| 1ce0 | 75 6e 63 74 69 6f 6e 20 77 6f 72 6b 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 60 2d 72 65 64 75 | unction.works.the.same.as.`-redu |
| 1d00 | 63 65 27 20 62 75 74 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 0a 61 73 73 6f 63 69 61 74 65 73 | ce'.but.the.operation.associates |
| 1d20 | 20 66 72 6f 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 | .from.right.instead.of.from.left |
| 1d40 | 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2c 20 60 | ...See.also:.`-reduce-r-from',.` |
| 1d60 | 2d 72 65 64 75 63 65 27 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | -reduce'..(fn.FN.LIST)..(defalia |
| 1d80 | 73 20 27 2d 72 65 64 75 63 65 2d 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 34 07 00 01 20 | s.'-reduce-r.#[514."\211\204.... |
| 1da0 | 5c 32 30 37 5c 32 31 31 41 5c 32 30 34 0f 00 5c 32 31 31 40 5c 32 30 37 01 01 40 5c 33 30 30 04 | \207\211A\204..\211@\207..@\300. |
| 1dc0 | 04 41 5c 22 5c 22 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 72 5d 20 37 20 28 23 24 20 2e 20 | .A\"\"\207".[-reduce-r].7.(#$... |
| 1de0 | 37 30 32 33 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 | 7023)]).#@51.Anaphoric.version.o |
| 1e00 | 66 20 60 2d 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 | f.`-reduce-r'...(fn.FORM.LIST).. |
| 1e20 | 28 64 65 66 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 | (defalias.'--reduce-r.'(macro... |
| 1e40 | 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 2d 72 | #[514."\300\301\302.E.E\207".[-r |
| 1e60 | 65 64 75 63 65 2d 72 20 6c 61 6d 62 64 61 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 74 20 61 63 63 | educe-r.lambda.(&optional.it.acc |
| 1e80 | 29 5d 20 36 20 28 23 24 20 2e 20 37 36 36 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 | )].6.(#$...7661)])).(put.'--redu |
| 1ea0 | 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 72 6d 20 66 6f | ce-r.'edebug-form-spec.'(form.fo |
| 1ec0 | 72 6d 29 29 0a 23 40 31 38 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 | rm)).#@188.Return.a.list.of.the. |
| 1ee0 | 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 65 20 72 65 64 75 63 | intermediate.values.of.the.reduc |
| 1f00 | 74 69 6f 6e 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 66 6f 72 20 65 78 | tion...See.`-reduce-from'.for.ex |
| 1f20 | 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 0a 53 65 65 | planation.of.the.arguments...See |
| 1f40 | 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 27 2c 20 60 2d 72 65 64 75 63 74 69 6f | .also:.`-reductions',.`-reductio |
| 1f60 | 6e 73 2d 72 27 2c 20 60 2d 72 65 64 75 63 65 2d 72 27 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 | ns-r',.`-reduce-r'..(fn.FN.INIT. |
| 1f80 | 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 66 72 | LIST)..(defalias.'-reductions-fr |
| 1fa0 | 6f 6d 20 23 5b 37 37 31 20 22 01 43 01 5c 33 30 30 01 5c 32 30 33 20 00 01 40 06 06 04 40 02 5c | om.#[771.".C.\300.\203...@...@.\ |
| 1fc0 | 22 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 30 | ".B\262.\210\211T\262..A\262.\20 |
| 1fe0 | 32 04 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 32 33 37 5c 32 30 37 22 20 5b 30 5d 20 31 | 2..\266.\211\262.\237\207".[0].1 |
| 2000 | 30 20 28 23 24 20 2e 20 37 38 38 33 29 5d 29 0a 23 40 31 38 33 20 52 65 74 75 72 6e 20 61 20 6c | 0.(#$...7883)]).#@183.Return.a.l |
| 2020 | 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 6c 75 65 73 20 6f | ist.of.the.intermediate.values.o |
| 2040 | 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 64 75 63 65 27 20 | f.the.reduction...See.`-reduce'. |
| 2060 | 66 6f 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 | for.explanation.of.the.arguments |
| 2080 | 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 27 2c | ...See.also:.`-reductions-from', |
| 20a0 | 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 2d 72 27 0a 0a 28 | .`-reductions-r',.`-reduce-r'..( |
| 20c0 | 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 63 74 69 | fn.FN.LIST)..(defalias.'-reducti |
| 20e0 | 6f 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 40 03 41 23 5c 32 30 37 22 20 5b 2d 72 65 64 | ons.#[514."\300..@.A#\207".[-red |
| 2100 | 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 5d 20 36 20 28 23 24 20 2e 20 38 32 31 34 29 5d 29 0a 23 40 | uctions-from].6.(#$...8214)]).#@ |
| 2120 | 31 38 38 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 72 6d 65 | 188.Return.a.list.of.the.interme |
| 2140 | 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 2e 0a 0a | diate.values.of.the.reduction... |
| 2160 | 53 65 65 20 60 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 | See.`-reduce-r-from'.for.explana |
| 2180 | 74 69 6f 6e 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 | tion.of.the.arguments...See.also |
| 21a0 | 3a 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 74 69 6f 6e 73 27 | :.`-reductions-r',.`-reductions' |
| 21c0 | 2c 20 60 2d 72 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 | ,.`-reduce'..(fn.FN.INIT.LIST).. |
| 21e0 | 28 64 65 66 61 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 | (defalias.'-reductions-r-from.#[ |
| 2200 | 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 21 | 771."\300\301\302\303\304\305..! |
| 2220 | 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 03 43 03 23 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 | \306\"\307\310%.C.#\207".[-reduc |
| 2240 | 65 2d 72 2d 66 72 6f 6d 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 32 20 22 5c 33 30 | e-r-from.make-byte-code.512."\30 |
| 2260 | 30 02 02 40 5c 22 01 42 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 | 0..@\".B\207".vconcat.vector.[]. |
| 2280 | 35 20 22 5c 6e 5c 6e 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 49 54 20 41 43 43 29 22 5d 20 31 | 5."\n\n(fn.&optional.IT.ACC)"].1 |
| 22a0 | 30 20 28 23 24 20 2e 20 38 34 38 34 29 5d 29 0a 23 40 31 38 33 20 52 65 74 75 72 6e 20 61 20 6c | 0.(#$...8484)]).#@183.Return.a.l |
| 22c0 | 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 6c 75 65 73 20 6f | ist.of.the.intermediate.values.o |
| 22e0 | 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 64 75 63 65 2d 72 | f.the.reduction...See.`-reduce-r |
| 2300 | 27 20 66 6f 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 | '.for.explanation.of.the.argumen |
| 2320 | 74 73 2e 0a 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 | ts...See.also:.`-reductions-r-fr |
| 2340 | 6f 6d 27 2c 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 | om',.`-reductions',.`-reduce'..( |
| 2360 | 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 63 74 69 | fn.FN.LIST)..(defalias.'-reducti |
| 2380 | 6f 6e 73 2d 72 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 21 5c 33 30 32 04 21 23 5c | ons-r.#[514."\300.\301.!\302.!#\ |
| 23a0 | 32 30 37 22 20 5b 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 2d 6c 61 73 74 2d 69 | 207".[-reductions-r-from.-last-i |
| 23c0 | 74 65 6d 20 2d 62 75 74 6c 61 73 74 5d 20 37 20 28 23 24 20 2e 20 38 38 38 36 29 5d 29 0a 23 40 | tem.-butlast].7.(#$...8886)]).#@ |
| 23e0 | 36 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 69 6c 74 65 72 27 2e 0a | 69.Anaphoric.form.of.`-filter'.. |
| 2400 | 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d | .See.also:.`--remove'...(fn.FORM |
| 2420 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6c 74 65 72 20 27 28 6d 61 | .LIST)..(defalias.'--filter.'(ma |
| 2440 | 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 5c 33 30 33 | cro...#[514."\300\301!\302.C\303 |
| 2460 | 04 5c 33 30 34 06 07 5c 33 30 35 5c 33 30 36 06 08 45 45 45 5c 33 30 37 04 44 46 5c 32 30 37 22 | .\304..\305\306..EEE\307.DF\207" |
| 2480 | 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 2d 2d 65 61 63 | .[make-symbol."result".let.--eac |
| 24a0 | 68 20 77 68 65 6e 20 21 63 6f 6e 73 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 32 20 28 23 24 | h.when.!cons.it.nreverse].12.(#$ |
| 24c0 | 20 2e 20 39 31 38 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6c 74 65 72 20 27 65 64 65 62 | ...9187)])).(put.'--filter.'edeb |
| 24e0 | 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 34 35 | ug-form-spec.'(form.form)).#@145 |
| 2500 | 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 20 | .Return.a.new.list.of.the.items. |
| 2520 | 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 61 | in.LIST.for.which.PRED.returns.a |
| 2540 | 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 65 6c 65 63 74 | .non-nil.value...Alias:.`-select |
| 2560 | 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6b 65 65 70 27 2c 20 60 2d 72 65 6d 6f 76 65 27 2e | '..See.also:.`-keep',.`-remove'. |
| 2580 | 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 27 2d 66 69 | ..(fn.PRED.LIST)..(defalias.'-fi |
| 25a0 | 6c 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 20 00 01 40 05 01 | lter.#[514."\300.\301.\203...@.. |
| 25c0 | 21 5c 32 30 33 14 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 | !\203..\211.B\262.\210\211T\262. |
| 25e0 | 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 5c 32 30 37 22 20 | .A\262.\202..\266.\211\237\207". |
| 2600 | 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 39 34 37 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f | [nil.0].8.(#$...9473)]).(byte-co |
| 2620 | 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 33 | de."\300\301\302\"\210\300\303\3 |
| 2640 | 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 65 6c 65 63 74 20 2d 66 69 6c | 04\"\207".[defalias.-select.-fil |
| 2660 | 74 65 72 20 2d 2d 73 65 6c 65 63 74 20 2d 2d 66 69 6c 74 65 72 5d 20 33 29 0a 23 40 36 38 20 41 | ter.--select.--filter].3).#@68.A |
| 2680 | 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 0a 53 65 65 | naphoric.form.of.`-remove'...See |
| 26a0 | 20 61 6c 73 6f 20 60 2d 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 | .also.`--filter'...(fn.FORM.LIST |
| 26c0 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 20 27 28 6d 61 63 72 6f 20 2e | )..(defalias.'--remove.'(macro.. |
| 26e0 | 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 2d 2d 66 69 6c | .#[514."\300\301.D.E\207".[--fil |
| 2700 | 74 65 72 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 39 38 35 35 29 5d 29 29 0a 28 70 75 74 20 27 | ter.not].5.(#$...9855)])).(put.' |
| 2720 | 2d 2d 72 65 6d 6f 76 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 | --remove.'edebug-form-spec.'(for |
| 2740 | 6d 20 66 6f 72 6d 29 29 0a 23 40 31 32 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 | m.form)).#@124.Return.a.new.list |
| 2760 | 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 63 68 20 | .of.the.items.in.LIST.for.which. |
| 2780 | 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 | PRED.returns.nil...Alias:.`-reje |
| 27a0 | 63 74 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 50 | ct'..See.also:.`-filter'...(fn.P |
| 27c0 | 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 20 23 5b | RED.LIST)..(defalias.'-remove.#[ |
| 27e0 | 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 20 00 01 40 05 01 21 5c 32 30 34 14 00 | 514."\300.\301.\203...@..!\204.. |
| 2800 | 5c 32 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 | \211.B\262.\210\211T\262..A\262. |
| 2820 | 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 20 30 5d | \202..\266.\211\237\207".[nil.0] |
| 2840 | 20 38 20 28 23 24 20 2e 20 31 30 30 36 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | .8.(#$...10063)]).(byte-code."\3 |
| 2860 | 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 33 30 34 5c 22 5c 32 | 00\301\302\"\210\300\303\304\"\2 |
| 2880 | 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 20 2d 72 65 6d 6f 76 65 20 2d 2d | 07".[defalias.-reject.-remove.-- |
| 28a0 | 72 65 6a 65 63 74 20 2d 2d 72 65 6d 6f 76 65 5d 20 33 29 0a 23 40 31 33 37 20 52 65 74 75 72 6e | reject.--remove].3).#@137.Return |
| 28c0 | 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 | .a.new.list.with.the.first.item. |
| 28e0 | 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 72 65 6d 6f 76 65 64 2e 0a 0a 41 6c 69 61 73 3a 20 60 | matching.PRED.removed...Alias:.` |
| 2900 | 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f | -reject-first'..See.also:.`-remo |
| 2920 | 76 65 27 2c 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 | ve',.`-map-first'..(fn.PRED.LIST |
| 2940 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 23 5b 35 31 | )..(defalias.'-remove-first.#[51 |
| 2960 | 34 20 22 5c 33 30 30 01 5c 32 30 33 19 00 02 02 40 21 5c 32 30 34 19 00 01 40 01 42 5c 32 36 32 | 4."\300.\203....@!\204...@.B\262 |
| 2980 | 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 01 5c 32 30 33 26 00 5c 33 30 31 01 5c 32 33 37 03 41 | ..A\262.\202...\203&.\301.\237.A |
| 29a0 | 5c 22 5c 32 30 32 28 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 63 | \"\202(.\211\237\207".[nil.-conc |
| 29c0 | 61 74 5d 20 36 20 28 23 24 20 2e 20 31 30 34 32 36 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f | at].6.(#$...10426)]).#@52.Anapho |
| 29e0 | 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a 28 66 | ric.form.of.`-remove-first'...(f |
| 2a00 | 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 72 65 6d 6f 76 | n.FORM.LIST)..(defalias.'--remov |
| 2a20 | 65 2d 66 69 72 73 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 | e-first.'(macro...#[514."\300\30 |
| 2a40 | 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 6c 61 | 1\302.E.E\207".[-remove-first.la |
| 2a60 | 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 31 30 37 31 34 29 5d 29 29 0a 28 62 79 | mbda.(it)].6.(#$...10714)])).(by |
| 2a80 | 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 |
| 2aa0 | 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 37 5c 33 30 31 5c 22 5c 32 | 04\305\306\"\210\304\307\301\"\2 |
| 2ac0 | 30 37 22 20 5b 70 75 74 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 65 64 65 62 75 67 2d 66 | 07".[put.--remove-first.edebug-f |
| 2ae0 | 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 64 65 66 61 6c 69 61 73 20 2d 72 | orm-spec.(form.form).defalias.-r |
| 2b00 | 65 6a 65 63 74 2d 66 69 72 73 74 20 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 2d 2d 72 65 6a 65 | eject-first.-remove-first.--reje |
| 2b20 | 63 74 2d 66 69 72 73 74 5d 20 34 29 0a 23 40 31 33 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 | ct-first].4).#@134.Return.a.new. |
| 2b40 | 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 6d 61 74 63 68 69 6e 67 | list.with.the.last.item.matching |
| 2b60 | 20 50 52 45 44 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 | .PRED.removed...Alias:.`-reject- |
| 2b80 | 6c 61 73 74 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 | last'..See.also:.`-remove',.`-ma |
| 2ba0 | 70 2d 6c 61 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 | p-last'..(fn.PRED.LIST)..(defali |
| 2bc0 | 61 73 20 27 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 | as.'-remove-last.#[514."\300.\30 |
| 2be0 | 31 03 21 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 72 65 | 1.!\"\237\207".[-remove-first.re |
| 2c00 | 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 31 31 30 35 39 29 5d 29 0a 23 40 35 31 20 41 6e 61 | verse].6.(#$...11059)]).#@51.Ana |
| 2c20 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 27 2e 0a 0a | phoric.form.of.`-remove-last'... |
| 2c40 | 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 72 65 6d | (fn.FORM.LIST)..(defalias.'--rem |
| 2c60 | 6f 76 65 2d 6c 61 73 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 | ove-last.'(macro...#[514."\300\3 |
| 2c80 | 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 6c 61 | 01\302.E.E\207".[-remove-last.la |
| 2ca0 | 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 31 31 32 39 33 29 5d 29 29 0a 28 62 79 | mbda.(it)].6.(#$...11293)])).(by |
| 2cc0 | 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 |
| 2ce0 | 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 37 5c 33 30 31 5c 22 5c 32 | 04\305\306\"\210\304\307\301\"\2 |
| 2d00 | 30 37 22 20 5b 70 75 74 20 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 65 64 65 62 75 67 2d 66 6f | 07".[put.--remove-last.edebug-fo |
| 2d20 | 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 64 65 66 61 6c 69 61 73 20 2d 72 65 | rm-spec.(form.form).defalias.-re |
| 2d40 | 6a 65 63 74 2d 6c 61 73 74 20 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 2d 2d 72 65 6a 65 63 74 2d | ject-last.-remove-last.--reject- |
| 2d60 | 6c 61 73 74 5d 20 34 29 0a 23 40 39 32 20 52 65 6d 6f 76 65 20 61 6c 6c 20 6f 63 63 75 72 65 6e | last].4).#@92.Remove.all.occuren |
| 2d80 | 63 65 73 20 6f 66 20 49 54 45 4d 20 66 72 6f 6d 20 4c 49 53 54 2e 0a 0a 43 6f 6d 70 61 72 69 73 | ces.of.ITEM.from.LIST...Comparis |
| 2da0 | 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 49 54 | on.is.done.with.`equal'...(fn.IT |
| 2dc0 | 45 4d 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 69 74 65 | EM.LIST)..(defalias.'-remove-ite |
| 2de0 | 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 21 00 01 40 5c 32 31 31 06 | m.#[514."\300.\301.\203!..@\211. |
| 2e00 | 06 5c 32 33 32 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 54 5c | .\232\204..\211.B\262.\210\211T\ |
| 2e20 | 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 5c 32 | 262..A\262.\202..\266.\211\237\2 |
| 2e40 | 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 31 31 36 33 30 29 5d 29 0a 28 62 79 | 07".[nil.0].8.(#$...11630)]).(by |
| 2e60 | 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 |
| 2e80 | 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 |
| 2ea0 | 75 74 20 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 | ut.-remove-item.pure.t.side-effe |
| 2ec0 | 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 | ct-free].4).#@44.Anaphoric.form. |
| 2ee0 | 6f 66 20 60 2d 6b 65 65 70 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 | of.`-keep'...(fn.FORM.LIST)..(de |
| 2f00 | 66 61 6c 69 61 73 20 27 2d 2d 6b 65 65 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 | falias.'--keep.'(macro...#[514." |
| 2f20 | 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 43 5c 33 30 34 05 5c 33 30 | \300\301!\300\302!\303.C\304.\30 |
| 2f40 | 33 05 06 09 44 43 5c 33 30 35 06 07 5c 33 30 36 06 09 06 0b 45 45 45 45 5c 33 30 37 05 44 46 5c | 3...DC\305..\306....EEEE\307.DF\ |
| 2f60 | 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 6d 61 70 70 | 207".[make-symbol."result"."mapp |
| 2f80 | 65 64 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 | ed".let.--each.when.!cons.nrever |
| 2fa0 | 73 65 5d 20 31 35 20 28 23 24 20 2e 20 31 31 39 38 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6b | se].15.(#$...11985)])).(put.'--k |
| 2fc0 | 65 65 70 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 | eep.'edebug-form-spec.'(form.for |
| 2fe0 | 6d 29 29 0a 23 40 31 37 33 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 | m)).#@173.Return.a.new.list.of.t |
| 3000 | 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 | he.non-nil.results.of.applying.F |
| 3020 | 4e 20 74 6f 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 49 66 20 79 6f 75 20 | N.to.the.items.in.LIST...If.you. |
| 3040 | 77 61 6e 74 20 74 6f 20 73 65 6c 65 63 74 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 69 74 65 6d | want.to.select.the.original.item |
| 3060 | 73 20 73 61 74 69 73 66 79 69 6e 67 20 61 20 70 72 65 64 69 63 61 74 65 20 75 73 65 20 60 2d 66 | s.satisfying.a.predicate.use.`-f |
| 3080 | 69 6c 74 65 72 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 61 73 | ilter'...(fn.FN.LIST)..(defalias |
| 30a0 | 20 27 2d 6b 65 65 70 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 5c 22 00 | .'-keep.#[514."\300.\301.\203\". |
| 30c0 | 01 40 05 01 21 5c 32 31 31 5c 32 30 33 15 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 36 36 02 5c | .@..!\211\203..\211.B\262.\266.\ |
| 30e0 | 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 31 5c | 211T\262..A\262.\202..\266.\211\ |
| 3100 | 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 32 32 36 36 29 5d | 237\207".[nil.0].9.(#$...12266)] |
| 3120 | 29 0a 23 40 34 39 20 52 65 74 75 72 6e 20 61 6c 6c 20 6e 6f 6e 2d 6e 69 6c 20 65 6c 65 6d 65 6e | ).#@49.Return.all.non-nil.elemen |
| 3140 | 74 73 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 | ts.of.LIST...(fn.LIST)..(defalia |
| 3160 | 73 20 27 2d 6e 6f 6e 2d 6e 69 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 | s.'-non-nil.#[257."\300\301.\"\2 |
| 3180 | 30 37 22 20 5b 2d 72 65 6d 6f 76 65 20 6e 75 6c 6c 5d 20 34 20 28 23 24 20 2e 20 31 32 35 38 33 | 07".[-remove.null].4.(#$...12583 |
| 31a0 | 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 |
| 31c0 | 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 |
| 31e0 | 63 74 69 6f 6e 2d 70 75 74 20 2d 6e 6f 6e 2d 6e 69 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | ction-put.-non-nil.pure.t.side-e |
| 3200 | 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f | ffect-free].4).#@51.Anaphoric.fo |
| 3220 | 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 | rm.of.`-map-indexed'...(fn.FORM. |
| 3240 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 | LIST)..(defalias.'--map-indexed. |
| 3260 | 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 |
| 3280 | 5c 33 30 33 04 5c 33 30 34 06 07 06 06 45 45 5c 33 30 35 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b | \303.\304....EE\305.DF\207".[mak |
| 32a0 | 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 |
| 32c0 | 6e 73 20 6e 72 65 76 65 72 73 65 5d 20 31 30 20 28 23 24 20 2e 20 31 32 38 32 30 29 5d 29 29 0a | ns.nreverse].10.(#$...12820)])). |
| 32e0 | 28 70 75 74 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 27 65 64 65 62 75 67 2d 66 6f 72 6d | (put.'--map-indexed.'edebug-form |
| 3300 | 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 31 31 20 52 65 74 75 72 6e | -spec.'(form.form)).#@211.Return |
| 3320 | 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 65 | .a.new.list.consisting.of.the.re |
| 3340 | 73 75 6c 74 20 6f 66 20 28 46 4e 20 69 6e 64 65 78 20 69 74 65 6d 29 20 66 6f 72 20 65 61 63 68 | sult.of.(FN.index.item).for.each |
| 3360 | 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 | .item.in.LIST...In.the.anaphoric |
| 3380 | 20 66 6f 72 6d 20 60 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2c 20 74 68 65 20 69 6e 64 65 78 | .form.`--map-indexed',.the.index |
| 33a0 | 20 69 73 20 65 78 70 6f 73 65 64 20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 2d 69 6e 64 65 78 27 | .is.exposed.as.symbol.`it-index' |
| 33c0 | 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 | ...See.also:.`-each-indexed'...( |
| 33e0 | 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 6d 61 70 2d 69 6e 64 | fn.FN.LIST)..(defalias.'-map-ind |
| 3400 | 65 78 65 64 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1d 00 01 40 05 02 | exed.#[514."\300.\301.\203...@.. |
| 3420 | 02 5c 22 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 | .\".B\262.\210\211T\262..A\262.\ |
| 3440 | 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 20 30 5d 20 | 202..\266.\211\237\207".[nil.0]. |
| 3460 | 39 20 28 23 24 20 2e 20 31 33 30 38 32 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 | 9.(#$...13082)]).#@52.Anaphoric. |
| 3480 | 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 | form.of.`-map-when'...(fn.PRED.R |
| 34a0 | 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 77 68 65 6e 20 | EP.LIST)..(defalias.'--map-when. |
| 34c0 | 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 21 5c 33 30 32 01 43 | '(macro...#[771."\300\301!\302.C |
| 34e0 | 5c 33 30 33 04 5c 33 30 34 5c 33 30 35 06 09 06 09 5c 33 30 36 42 42 42 06 06 45 45 5c 33 30 37 | \303.\304\305....\306BBB..EE\307 |
| 3500 | 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 |
| 3520 | 65 74 20 2d 2d 65 61 63 68 20 21 63 6f 6e 73 20 69 66 20 28 69 74 29 20 6e 72 65 76 65 72 73 65 | et.--each.!cons.if.(it).nreverse |
| 3540 | 5d 20 31 33 20 28 23 24 20 2e 20 31 33 34 33 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 | ].13.(#$...13430)])).(put.'--map |
| 3560 | 2d 77 68 65 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 | -when.'edebug-form-spec.'(form.f |
| 3580 | 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 36 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 | orm.form)).#@266.Return.a.new.li |
| 35a0 | 73 74 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 53 54 20 74 68 | st.where.the.elements.in.LIST.th |
| 35c0 | 61 74 20 64 6f 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 50 52 45 44 20 66 75 6e 63 74 69 6f | at.do.not.match.the.PRED.functio |
| 35e0 | 6e 0a 61 72 65 20 75 6e 63 68 61 6e 67 65 64 2c 20 61 6e 64 20 77 68 65 72 65 20 74 68 65 20 65 | n.are.unchanged,.and.where.the.e |
| 3600 | 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 74 68 61 74 20 64 6f 20 6d 61 74 63 68 20 74 68 | lements.in.LIST.that.do.match.th |
| 3620 | 65 20 50 52 45 44 20 66 75 6e 63 74 69 6f 6e 20 61 72 65 20 6d 61 70 70 65 64 0a 74 68 72 6f 75 | e.PRED.function.are.mapped.throu |
| 3640 | 67 68 20 74 68 65 20 52 45 50 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 | gh.the.REP.function...Alias:.`-r |
| 3660 | 65 70 6c 61 63 65 2d 77 68 65 72 65 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 75 70 64 61 74 | eplace-where'..See.also:.`-updat |
| 3680 | 65 2d 61 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 | e-at'..(fn.PRED.REP.LIST)..(defa |
| 36a0 | 6c 69 61 73 20 27 2d 6d 61 70 2d 77 68 65 6e 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 | lias.'-map-when.#[771."\300.\301 |
| 36c0 | 01 5c 32 30 33 27 00 01 40 06 06 01 21 5c 32 30 33 16 00 05 01 21 5c 32 30 32 17 00 5c 32 31 31 | .\203'..@...!\203....!\202..\211 |
| 36e0 | 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 30 32 | .B\262.\210\211T\262..A\262.\202 |
| 3700 | 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 39 20 28 | ..\266.\211\237\207".[nil.0].9.( |
| 3720 | 23 24 20 2e 20 31 33 37 31 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | #$...13713)]).(byte-code."\300\3 |
| 3740 | 30 31 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 | 01\302\"\210\300\303\304\"\207". |
| 3760 | 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 20 2d 6d 61 70 2d 77 68 | [defalias.-replace-where.-map-wh |
| 3780 | 65 6e 20 2d 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 20 2d 2d 6d 61 70 2d 77 68 65 6e 5d 20 33 | en.--replace-where.--map-when].3 |
| 37a0 | 29 0a 23 40 31 34 35 20 52 65 70 6c 61 63 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 | ).#@145.Replace.first.item.in.LI |
| 37c0 | 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 |
| 37e0 | 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. |
| 3800 | 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 66 69 72 | also:.`-map-when',.`-replace-fir |
| 3820 | 73 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 | st'..(fn.PRED.REP.LIST)..(defali |
| 3840 | 61 73 20 27 2d 6d 61 70 2d 66 69 72 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 32 30 33 19 | as.'-map-first.#[771."\300.\203. |
| 3860 | 00 03 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. |
| 3880 | 00 01 5c 32 30 33 2b 00 5c 33 30 31 01 5c 32 33 37 04 04 40 21 04 41 42 5c 22 5c 32 30 32 2d 00 | ..\203+.\301.\237..@!.AB\"\202-. |
| 38a0 | 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 63 61 74 5d 20 38 20 28 23 | \211\237\207".[nil.-concat].8.(# |
| 38c0 | 24 20 2e 20 31 34 32 34 38 29 5d 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d | $...14248)]).#@53.Anaphoric.form |
| 38e0 | 20 6f 66 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 | .of.`-map-first'...(fn.PRED.REP. |
| 3900 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 66 69 72 73 74 20 27 28 | LIST)..(defalias.'--map-first.'( |
| 3920 | 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 33 30 | macro...#[771."\300\301\302.E\30 |
| 3940 | 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 66 69 72 73 74 20 | 1\303\304..F.F\207".[-map-first. |
| 3960 | 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 20 | lambda.(it).(it).(ignore.it)].9. |
| 3980 | 28 23 24 20 2e 20 31 34 35 34 36 29 5d 29 29 0a 23 40 31 34 33 20 52 65 70 6c 61 63 65 20 6c 61 | (#$...14546)])).#@143.Replace.la |
| 39a0 | 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 20 50 52 45 44 20 | st.item.in.LIST.satisfying.PRED. |
| 39c0 | 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 6f 6e 20 74 68 69 | with.result.of.REP.called.on.thi |
| 39e0 | 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 68 65 6e 27 2c 20 | s.item...See.also:.`-map-when',. |
| 3a00 | 60 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 | `-replace-last'..(fn.PRED.REP.LI |
| 3a20 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 6c 61 73 74 20 23 5b 37 37 31 20 | ST)..(defalias.'-map-last.#[771. |
| 3a40 | 22 5c 33 30 30 03 03 5c 33 30 31 04 21 23 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 | "\300..\301.!#\237\207".[-map-fi |
| 3a60 | 72 73 74 20 72 65 76 65 72 73 65 5d 20 38 20 28 23 24 20 2e 20 31 34 37 34 32 29 5d 29 0a 23 40 | rst.reverse].8.(#$...14742)]).#@ |
| 3a80 | 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 2d 6c 61 73 74 27 | 52.Anaphoric.form.of.`-map-last' |
| 3aa0 | 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 69 61 73 | ...(fn.PRED.REP.LIST)..(defalias |
| 3ac0 | 20 27 2d 2d 6d 61 70 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 | .'--map-last.'(macro...#[771."\3 |
| 3ae0 | 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 46 5c 32 30 | 00\301\302.E\301\303\304..F.F\20 |
| 3b00 | 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 20 28 | 7".[-map-last.lambda.(it).(it).( |
| 3b20 | 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 31 34 39 37 39 29 5d 29 29 0a 23 40 | ignore.it)].9.(#$...14979)])).#@ |
| 3b40 | 31 32 33 20 52 65 70 6c 61 63 65 20 61 6c 6c 20 4f 4c 44 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 | 123.Replace.all.OLD.items.in.LIS |
| 3b60 | 54 20 77 69 74 68 20 4e 45 57 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70 61 72 | T.with.NEW...Elements.are.compar |
| 3b80 | 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 2d 72 | ed.using.`equal'...See.also:.`-r |
| 3ba0 | 65 70 6c 61 63 65 2d 61 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28 | eplace-at'..(fn.OLD.NEW.LIST)..( |
| 3bc0 | 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c | defalias.'-replace.#[771."\300.\ |
| 3be0 | 33 30 31 01 5c 32 30 33 25 00 01 40 5c 32 31 31 06 07 5c 32 33 32 5c 32 30 33 14 00 05 5c 32 30 | 301.\203%..@\211..\232\203...\20 |
| 3c00 | 32 15 00 5c 32 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 | 2..\211.B\262.\210\211T\262..A\2 |
| 3c20 | 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 |
| 3c40 | 20 30 5d 20 39 20 28 23 24 20 2e 20 31 35 31 37 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | .0].9.(#$...15172)]).(byte-code. |
| 3c60 | 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 |
| 3c80 | 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 65 70 6c | 04\303#\207".[function-put.-repl |
| 3ca0 | 61 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 65 5d 20 34 29 0a | ace.pure.t.side-effect-free].4). |
| 3cc0 | 23 40 31 33 35 20 52 65 70 6c 61 63 65 20 74 68 65 20 66 69 72 73 74 20 6f 63 63 75 72 65 6e 63 | #@135.Replace.the.first.occurenc |
| 3ce0 | 65 20 6f 66 20 4f 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 | e.of.OLD.with.NEW.in.LIST...Elem |
| 3d00 | 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 61 6c 27 2e | ents.are.compared.using.`equal'. |
| 3d20 | 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 4f 4c | ..See.also:.`-map-first'..(fn.OL |
| 3d40 | 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 70 6c 61 63 65 | D.NEW.LIST)..(defalias.'-replace |
| 3d60 | 2d 66 69 72 73 74 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 | -first.#[771."\300\301\302\303\3 |
| 3d80 | 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 30 31 5c 33 30 32 | 04\305..!\306\"\307\310%\301\302 |
| 3da0 | 5c 33 31 31 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 31 32 5c 33 31 30 25 03 23 | \311\304\305..!\306\"\312\310%.# |
| 3dc0 | 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 | \207".[-map-first.make-byte-code |
| 3de0 | 20 32 35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 | .257."\300.\232\207".vconcat.vec |
| 3e00 | 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 20 22 5c 33 30 30 5c 32 30 37 | tor.[].3."\n\n(fn.IT)"."\300\207 |
| 3e20 | 22 20 32 5d 20 31 31 20 28 23 24 20 2e 20 31 35 35 35 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | ".2].11.(#$...15558)]).(byte-cod |
| 3e40 | 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 |
| 3e60 | 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 72 65 | \304\303#\207".[function-put.-re |
| 3e80 | 70 6c 61 63 65 2d 66 69 72 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | place-first.pure.t.side-effect-f |
| 3ea0 | 72 65 65 5d 20 34 29 0a 23 40 31 33 33 20 52 65 70 6c 61 63 65 20 74 68 65 20 6c 61 73 74 20 6f | ree].4).#@133.Replace.the.last.o |
| 3ec0 | 63 63 75 72 65 6e 63 65 20 6f 66 20 4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 4c 49 53 54 | ccurence.of.OLD.with.NEW.in.LIST |
| 3ee0 | 2e 0a 0a 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 | ...Elements.are.compared.using.` |
| 3f00 | 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 6c 61 73 74 27 0a 0a | equal'...See.also:.`-map-last'.. |
| 3f20 | 28 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 | (fn.OLD.NEW.LIST)..(defalias.'-r |
| 3f40 | 65 70 6c 61 63 65 2d 6c 61 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | eplace-last.#[771."\300\301\302\ |
| 3f60 | 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 5c 33 30 | 303\304\305..!\306\"\307\310%\30 |
| 3f80 | 31 5c 33 30 32 5c 33 31 31 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 31 32 5c 33 | 1\302\311\304\305..!\306\"\312\3 |
| 3fa0 | 31 30 25 03 23 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6d 61 6b 65 2d 62 79 74 65 2d | 10%.#\207".[-map-last.make-byte- |
| 3fc0 | 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 | code.257."\300.\232\207".vconcat |
| 3fe0 | 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 20 22 5c 33 30 30 | .vector.[].3."\n\n(fn.IT)"."\300 |
| 4000 | 5c 32 30 37 22 20 32 5d 20 31 31 20 28 23 24 20 2e 20 31 36 30 34 36 29 5d 29 0a 28 62 79 74 65 | \207".2].11.(#$...16046)]).(byte |
| 4020 | 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 |
| 4040 | 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 |
| 4060 | 20 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 | .-replace-last.pure.t.side-effec |
| 4080 | 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 34 36 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f | t-free].4).#@46.Anaphoric.form.o |
| 40a0 | 66 20 60 2d 6d 61 70 63 61 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 | f.`-mapcat'...(fn.FORM.LIST)..(d |
| 40c0 | 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 63 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 | efalias.'--mapcat.'(macro...#[51 |
| 40e0 | 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 45 45 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 | 4."\300\301\302..EE\207".[apply. |
| 4100 | 27 61 70 70 65 6e 64 20 2d 2d 6d 61 70 5d 20 37 20 28 23 24 20 2e 20 31 36 35 32 38 29 5d 29 29 | 'append.--map].7.(#$...16528)])) |
| 4120 | 0a 28 70 75 74 20 27 2d 2d 6d 61 70 63 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | .(put.'--mapcat.'edebug-form-spe |
| 4140 | 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 74 68 65 | c.'(form.form)).#@118.Return.the |
| 4160 | 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 | .concatenation.of.the.result.of. |
| 4180 | 6d 61 70 70 69 6e 67 20 46 4e 20 6f 76 65 72 20 4c 49 53 54 2e 0a 54 68 75 73 20 66 75 6e 63 74 | mapping.FN.over.LIST..Thus.funct |
| 41a0 | 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2e 0a 0a 28 66 | ion.FN.should.return.a.list...(f |
| 41c0 | 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 63 61 74 20 23 | n.FN.LIST)..(defalias.'-mapcat.# |
| 41e0 | 5b 35 31 34 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 5c 33 | [514."\300\301\302\303\304\305\3 |
| 4200 | 30 36 5c 33 30 37 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 | 06\307..!\310\"\311\312%.\"\"\20 |
| 4220 | 37 22 20 5b 61 70 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 | 7".[apply.append.mapcar.make-byt |
| 4240 | 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 | e-code.257."\300.!\207".vconcat. |
| 4260 | 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 31 20 28 23 | vector.[].3."\n\n(fn.IT)"].11.(# |
| 4280 | 24 20 2e 20 31 36 37 32 36 29 5d 29 0a 23 40 34 33 36 20 54 61 6b 65 20 61 20 6e 65 73 74 65 64 | $...16726)]).#@436.Take.a.nested |
| 42a0 | 20 6c 69 73 74 20 4c 20 61 6e 64 20 72 65 74 75 72 6e 20 69 74 73 20 63 6f 6e 74 65 6e 74 73 20 | .list.L.and.return.its.contents. |
| 42c0 | 61 73 20 61 20 73 69 6e 67 6c 65 2c 20 66 6c 61 74 20 6c 69 73 74 2e 0a 0a 4e 6f 74 65 20 74 68 | as.a.single,.flat.list...Note.th |
| 42e0 | 61 74 20 62 65 63 61 75 73 65 20 60 6e 69 6c 27 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 6c 69 | at.because.`nil'.represents.a.li |
| 4300 | 73 74 20 6f 66 20 7a 65 72 6f 20 65 6c 65 6d 65 6e 74 73 20 28 61 6e 0a 65 6d 70 74 79 20 6c 69 | st.of.zero.elements.(an.empty.li |
| 4320 | 73 74 29 2c 20 61 6e 79 20 6d 65 6e 74 69 6f 6e 20 6f 66 20 6e 69 6c 20 69 6e 20 4c 20 77 69 6c | st),.any.mention.of.nil.in.L.wil |
| 4340 | 6c 20 64 69 73 61 70 70 65 61 72 20 61 66 74 65 72 0a 66 6c 61 74 74 65 6e 69 6e 67 2e 20 20 49 | l.disappear.after.flattening...I |
| 4360 | 66 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 70 72 65 73 65 72 76 65 20 6e 69 6c 73 2c 20 63 6f 6e | f.you.need.to.preserve.nils,.con |
| 4380 | 73 69 64 65 72 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 0a 6f 72 20 6d 61 70 20 74 68 65 6d 20 74 | sider.`-flatten-n'.or.map.them.t |
| 43a0 | 6f 20 73 6f 6d 65 20 75 6e 69 71 75 65 20 73 79 6d 62 6f 6c 20 61 6e 64 20 74 68 65 6e 20 6d 61 | o.some.unique.symbol.and.then.ma |
| 43c0 | 70 20 74 68 65 6d 20 62 61 63 6b 2e 0a 0a 43 6f 6e 73 65 73 20 6f 66 20 74 77 6f 20 61 74 6f 6d | p.them.back...Conses.of.two.atom |
| 43e0 | 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 20 22 74 65 72 6d 69 6e 61 6c 73 22 2c 20 74 68 | s.are.considered."terminals",.th |
| 4400 | 61 74 20 69 73 2c 20 74 68 65 79 0a 61 72 65 6e 27 74 20 66 6c 61 74 74 65 6e 65 64 20 66 75 72 | at.is,.they.aren't.flattened.fur |
| 4420 | 74 68 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 0a 0a 28 | ther...See.also:.`-flatten-n'..( |
| 4440 | 66 6e 20 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 20 23 5b 32 35 37 | fn.L)..(defalias.'-flatten.#[257 |
| 4460 | 20 22 5c 32 31 31 3c 5c 32 30 33 10 00 5c 32 31 31 41 3c 5c 32 30 33 10 00 5c 33 30 30 5c 33 30 | ."\211<\203..\211A<\203..\300\30 |
| 4480 | 31 02 5c 22 5c 32 30 37 5c 32 31 31 43 5c 32 30 37 22 20 5b 2d 6d 61 70 63 61 74 20 2d 66 6c 61 | 1.\"\207\211C\207".[-mapcat.-fla |
| 44a0 | 74 74 65 6e 5d 20 34 20 28 23 24 20 2e 20 31 37 30 34 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | tten].4.(#$...17043)]).(byte-cod |
| 44c0 | 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 |
| 44e0 | 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 66 6c | \304\303#\207".[function-put.-fl |
| 4500 | 61 74 74 65 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 | atten.pure.t.side-effect-free].4 |
| 4520 | 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 69 74 | ).#@52.Anaphoric.version.of.`-it |
| 4540 | 65 72 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4e 29 1f 0a 28 64 65 66 61 | erate'...(fn.FORM.INIT.N)..(defa |
| 4560 | 6c 69 61 73 20 27 2d 2d 69 74 65 72 61 74 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 | lias.'--iterate.'(macro...#[771. |
| 4580 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 69 74 65 72 61 74 | "\300\301\302.E..F\207".[-iterat |
| 45a0 | 65 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 31 37 37 30 33 29 5d 29 29 | e.lambda.(it)].7.(#$...17703)])) |
| 45c0 | 0a 28 70 75 74 20 27 2d 2d 69 74 65 72 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 | .(put.'--iterate.'edebug-form-sp |
| 45e0 | 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 37 35 20 46 6c 61 74 74 | ec.'(form.form.form)).#@75.Flatt |
| 4600 | 65 6e 20 4e 55 4d 20 6c 65 76 65 6c 73 20 6f 66 20 61 20 6e 65 73 74 65 64 20 4c 49 53 54 2e 0a | en.NUM.levels.of.a.nested.LIST.. |
| 4620 | 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 27 0a 0a 28 66 6e 20 4e 55 4d 20 4c | .See.also:.`-flatten'..(fn.NUM.L |
| 4640 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 2d 6e 20 23 5b 35 31 | IST)..(defalias.'-flatten-n.#[51 |
| 4660 | 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 05 54 23 21 5c 32 30 37 22 20 5b 2d 6c 61 73 74 | 4."\300\301\302..T#!\207".[-last |
| 4680 | 2d 69 74 65 6d 20 2d 69 74 65 72 61 74 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 | -item.-iterate.#[257."\300\301\3 |
| 46a0 | 30 32 5c 33 30 33 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d | 02\303.\"\"\207".[apply.append.m |
| 46c0 | 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 2d 6c 69 73 74 5d | apcar.#[257."\300.!\207".[-list] |
| 46e0 | 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 | .3."\n\n(fn.IT)"]].6."\n\n(fn.IT |
| 4700 | 29 22 5d 5d 20 37 20 28 23 24 20 2e 20 31 37 39 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | )"]].7.(#$...17915)]).(byte-code |
| 4720 | 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\ |
| 4740 | 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 66 6c 61 | 304\303#\207".[function-put.-fla |
| 4760 | 74 74 65 6e 2d 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 | tten-n.pure.t.side-effect-free]. |
| 4780 | 34 29 0a 23 40 39 39 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 | 4).#@99.Return.a.new.list.with.t |
| 47a0 | 68 65 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 | he.concatenation.of.the.elements |
| 47c0 | 20 69 6e 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 | .in.the.supplied.LISTS...(fn.&re |
| 47e0 | 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 6e 63 61 74 20 23 5b | st.LISTS)..(defalias.'-concat.#[ |
| 4800 | 31 32 38 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 61 70 70 | 128."\300\301.\"\207".[apply.app |
| 4820 | 65 6e 64 5d 20 34 20 28 23 24 20 2e 20 31 38 33 31 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | end].4.(#$...18312)]).(byte-code |
| 4840 | 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\ |
| 4860 | 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 32 30 | 304\303#\210\305\306\307\310#\20 |
| 4880 | 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 63 61 74 20 70 75 72 65 20 74 20 | 7".[function-put.-concat.pure.t. |
| 48a0 | 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 63 6f 70 79 20 | side-effect-free.defalias.-copy. |
| 48c0 | 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 22 43 72 65 61 74 65 20 61 20 73 68 61 6c 6c 6f 77 20 | copy-sequence."Create.a.shallow. |
| 48e0 | 63 6f 70 79 20 6f 66 20 4c 49 53 54 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 34 29 0a | copy.of.LIST.\n\n(fn.LIST)"].4). |
| 4900 | 23 40 33 32 33 20 53 70 6c 69 63 65 20 6c 69 73 74 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 | #@323.Splice.lists.generated.by. |
| 4920 | 46 55 4e 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6d 61 74 63 68 69 6e | FUN.in.place.of.elements.matchin |
| 4940 | 67 20 50 52 45 44 20 69 6e 20 4c 49 53 54 2e 0a 0a 46 55 4e 20 74 61 6b 65 73 20 74 68 65 20 65 | g.PRED.in.LIST...FUN.takes.the.e |
| 4960 | 6c 65 6d 65 6e 74 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 61 73 20 69 6e 70 75 74 2e 0a 0a | lement.matching.PRED.as.input... |
| 4980 | 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 75 73 65 64 20 61 73 20 72 65 70 | This.function.can.be.used.as.rep |
| 49a0 | 6c 61 63 65 6d 65 6e 74 20 66 6f 72 20 60 2c 40 27 20 69 6e 20 63 61 73 65 20 79 6f 75 0a 6e 65 | lacement.for.`,@'.in.case.you.ne |
| 49c0 | 65 64 20 74 6f 20 73 70 6c 69 63 65 20 73 65 76 65 72 61 6c 20 6c 69 73 74 73 20 61 74 20 6d 61 | ed.to.splice.several.lists.at.ma |
| 49e0 | 72 6b 65 64 20 70 6f 73 69 74 69 6f 6e 73 20 28 66 6f 72 20 65 78 61 6d 70 6c 65 0a 77 69 74 68 | rked.positions.(for.example.with |
| 4a00 | 20 6b 65 79 77 6f 72 64 73 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69 63 65 2d | .keywords)...See.also:.`-splice- |
| 4a20 | 6c 69 73 74 27 2c 20 60 2d 69 6e 73 65 72 74 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 46 55 | list',.`-insert-at'..(fn.PRED.FU |
| 4a40 | 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 63 65 20 23 5b 37 37 | N.LIST)..(defalias.'-splice.#[77 |
| 4a60 | 31 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 43 00 01 40 06 06 01 21 5c 32 30 33 32 00 05 | 1."\300.\301.\203C..@...!\2032.. |
| 4a80 | 01 21 5c 32 31 31 5c 33 30 31 01 5c 32 30 33 2d 00 01 40 5c 32 31 31 06 08 42 5c 32 36 32 08 5c | .!\211\301.\203-..@\211..B\262.\ |
| 4aa0 | 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 15 00 5c 32 36 36 03 5c | 210\211T\262..A\262.\202..\266.\ |
| 4ac0 | 32 30 32 37 00 5c 32 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 | 2027.\211.B\262.\210\211T\262..A |
| 4ae0 | 5c 32 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 | \262.\202..\266.\211\237\207".[n |
| 4b00 | 69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e 20 31 38 36 39 34 29 5d 29 0a 23 40 35 31 20 41 6e 61 | il.0].13.(#$...18694)]).#@51.Ana |
| 4b20 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 63 65 27 2e 0a 0a 28 66 6e 20 50 | phoric.form.of.`-splice'...(fn.P |
| 4b40 | 52 45 44 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 70 6c | RED.FORM.LIST)..(defalias.'--spl |
| 4b60 | 69 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 30 31 5c 33 30 | ice.'(macro...#[771."\300\301\30 |
| 4b80 | 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 20 6c 61 | 2.E\301\303.E.F\207".[-splice.la |
| 4ba0 | 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 31 39 32 32 39 29 5d 29 | mbda.(it).(it)].8.(#$...19229)]) |
| 4bc0 | 29 0a 23 40 31 32 31 20 53 70 6c 69 63 65 20 4e 45 57 2d 4c 49 53 54 20 69 6e 20 70 6c 61 63 65 | ).#@121.Splice.NEW-LIST.in.place |
| 4be0 | 20 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 | .of.elements.matching.PRED.in.LI |
| 4c00 | 53 54 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 2d 69 6e 73 65 | ST...See.also:.`-splice',.`-inse |
| 4c20 | 72 74 2d 61 74 27 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 1f | rt-at'..(fn.PRED.NEW-LIST.LIST). |
| 4c40 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 23 5b 37 37 31 20 22 | .(defalias.'-splice-list.#[771." |
| 4c60 | 5c 33 30 30 03 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 |
| 4c80 | 5c 22 5c 33 30 37 5c 33 31 30 25 03 23 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 20 6d 61 6b 65 | \"\307\310%.#\207".[-splice.make |
| 4ca0 | 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 | -byte-code.257."\300\207".vconca |
| 4cc0 | 74 20 76 65 63 74 6f 72 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 5f 29 22 5d 20 31 31 20 28 | t.vector.[].2."\n\n(fn._)"].11.( |
| 4ce0 | 23 24 20 2e 20 31 39 34 30 30 29 5d 29 0a 23 40 36 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 | #$...19400)]).#@60.Anaphoric.for |
| 4d00 | 6d 20 6f 66 20 60 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4e | m.of.`-splice-list'...(fn.PRED.N |
| 4d20 | 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 2d 73 70 6c 69 | EW-LIST.LIST)..(defalias.'--spli |
| 4d40 | 63 65 2d 6c 69 73 74 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 | ce-list.'(macro...#[771."\300\30 |
| 4d60 | 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 6c 61 | 1\302.E..F\207".[-splice-list.la |
| 4d80 | 6d 62 64 61 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 31 39 36 39 39 29 5d 29 29 0a 23 40 32 | mbda.(it)].7.(#$...19699)])).#@2 |
| 4da0 | 30 34 20 4d 61 6b 65 20 61 20 6e 65 77 20 6c 69 73 74 20 66 72 6f 6d 20 74 68 65 20 65 6c 65 6d | 04.Make.a.new.list.from.the.elem |
| 4dc0 | 65 6e 74 73 20 6f 66 20 41 52 47 53 2e 0a 0a 54 68 65 20 6c 61 73 74 20 32 20 6d 65 6d 62 65 72 | ents.of.ARGS...The.last.2.member |
| 4de0 | 73 20 6f 66 20 41 52 47 53 20 61 72 65 20 75 73 65 64 20 61 73 20 74 68 65 20 66 69 6e 61 6c 20 | s.of.ARGS.are.used.as.the.final. |
| 4e00 | 63 6f 6e 73 20 6f 66 20 74 68 65 0a 72 65 73 75 6c 74 20 73 6f 20 69 66 20 74 68 65 20 66 69 6e | cons.of.the.result.so.if.the.fin |
| 4e20 | 61 6c 20 6d 65 6d 62 65 72 20 6f 66 20 41 52 47 53 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 20 | al.member.of.ARGS.is.not.a.list. |
| 4e40 | 74 68 65 20 72 65 73 75 6c 74 20 69 73 0a 61 20 64 6f 74 74 65 64 20 6c 69 73 74 2e 0a 0a 28 66 | the.result.is.a.dotted.list...(f |
| 4e60 | 6e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2a | n.&rest.ARGS)..(defalias.'-cons* |
| 4e80 | 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 | .#[128."\300\301.\"\207".[-reduc |
| 4ea0 | 65 2d 72 20 63 6f 6e 73 5d 20 34 20 28 23 24 20 2e 20 31 39 38 37 35 29 5d 29 0a 28 62 79 74 65 | e-r.cons].4.(#$...19875)]).(byte |
| 4ec0 | 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 |
| 4ee0 | 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 |
| 4f00 | 20 2d 63 6f 6e 73 2a 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 | .-cons*.pure.t.side-effect-free] |
| 4f20 | 20 34 29 0a 23 40 31 38 32 20 41 70 70 65 6e 64 20 45 4c 45 4d 20 74 6f 20 74 68 65 20 65 6e 64 | .4).#@182.Append.ELEM.to.the.end |
| 4f40 | 20 6f 66 20 74 68 65 20 6c 69 73 74 2e 0a 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 63 6f 6e | .of.the.list...This.is.like.`con |
| 4f60 | 73 27 2c 20 62 75 74 20 6f 70 65 72 61 74 65 73 20 6f 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 6c | s',.but.operates.on.the.end.of.l |
| 4f80 | 69 73 74 2e 0a 0a 49 66 20 45 4c 45 4d 45 4e 54 53 20 69 73 20 6e 6f 6e 20 6e 69 6c 2c 20 61 70 | ist...If.ELEMENTS.is.non.nil,.ap |
| 4fa0 | 70 65 6e 64 20 74 68 65 73 65 20 74 6f 20 74 68 65 20 6c 69 73 74 20 61 73 20 77 65 6c 6c 2e 0a | pend.these.to.the.list.as.well.. |
| 4fc0 | 0a 28 66 6e 20 4c 49 53 54 20 45 4c 45 4d 20 26 72 65 73 74 20 45 4c 45 4d 45 4e 54 53 29 1f 0a | .(fn.LIST.ELEM.&rest.ELEMENTS).. |
| 4fe0 | 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6e 6f 63 20 23 5b 36 34 32 20 22 5c 33 30 30 03 03 43 03 | (defalias.'-snoc.#[642."\300..C. |
| 5000 | 23 5c 32 30 37 22 20 5b 2d 63 6f 6e 63 61 74 5d 20 37 20 28 23 24 20 2e 20 32 30 32 36 36 29 5d | #\207".[-concat].7.(#$...20266)] |
| 5020 | 29 0a 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 69 72 73 74 | ).#@45.Anaphoric.form.of.`-first |
| 5040 | 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.'- |
| 5060 | 2d 66 69 72 73 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 | -first.'(macro...#[514."\300\301 |
| 5080 | 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 05 44 5c 33 30 35 06 08 5c 33 30 36 06 08 5c 33 | !\302.C\303.\304.D\305..\306..\3 |
| 50a0 | 30 37 42 42 45 46 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 | 07BBEF.F\207".[make-symbol."need |
| 50c0 | 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 77 68 65 6e 20 73 65 | le".let.--each-while.not.when.se |
| 50e0 | 74 71 20 28 69 74 29 5d 20 31 33 20 28 23 24 20 2e 20 32 30 35 31 39 29 5d 29 29 0a 28 70 75 74 | tq.(it)].13.(#$...20519)])).(put |
| 5100 | 20 27 2d 2d 66 69 72 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f | .'--first.'edebug-form-spec.'(fo |
| 5120 | 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 36 33 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 | rm.form)).#@163.Return.the.first |
| 5140 | 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 69 73 20 6e 6f 6e | .x.in.LIST.where.(PRED.x).is.non |
| 5160 | 2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 54 6f 20 67 65 74 20 74 68 65 20 66 69 72 73 | -nil,.else.nil...To.get.the.firs |
| 5180 | 74 20 69 74 65 6d 20 69 6e 20 74 68 65 20 6c 69 73 74 20 6e 6f 20 71 75 65 73 74 69 6f 6e 73 20 | t.item.in.the.list.no.questions. |
| 51a0 | 61 73 6b 65 64 2c 20 75 73 65 20 60 63 61 72 27 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 66 69 6e 64 | asked,.use.`car'...Alias:.`-find |
| 51c0 | 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 27 2d 66 | '..(fn.PRED.LIST)..(defalias.'-f |
| 51e0 | 69 72 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 2e 00 | irst.#[514."\300.\301\302.\203.. |
| 5200 | 01 5c 32 30 33 2e 00 02 40 04 5c 32 30 33 18 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 5c 22 00 | .\203...@.\203..\300\262.\202\". |
| 5220 | 06 06 01 21 5c 32 30 33 5c 22 00 5c 32 31 31 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 | ...!\203\".\211\262.\210\211T\26 |
| 5240 | 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 30 37 22 20 5b 6e | 2..A\262.\202..\266.\211\207".[n |
| 5260 | 69 6c 20 74 20 30 5d 20 39 20 28 23 24 20 2e 20 32 30 37 38 34 29 5d 29 0a 28 62 79 74 65 2d 63 | il.t.0].9.(#$...20784)]).(byte-c |
| 5280 | 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\ |
| 52a0 | 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 66 69 6e 64 20 2d 66 69 72 73 | 304\"\207".[defalias.-find.-firs |
| 52c0 | 74 20 2d 2d 66 69 6e 64 20 2d 2d 66 69 72 73 74 5d 20 33 29 0a 23 40 34 34 20 41 6e 61 70 68 6f | t.--find.--first].3).#@44.Anapho |
| 52e0 | 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 6f 6d 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c | ric.form.of.`-some'...(fn.FORM.L |
| 5300 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 6d 65 20 27 28 6d 61 63 72 6f 20 | IST)..(defalias.'--some.'(macro. |
| 5320 | 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 33 30 | ..#[514."\300\301!\302.C\303.\30 |
| 5340 | 34 05 44 5c 33 30 35 06 06 06 09 45 46 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f | 4.D\305....EF.F\207".[make-symbo |
| 5360 | 6c 20 22 6e 65 65 64 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 | l."needle".let.--each-while.not. |
| 5380 | 73 65 74 71 5d 20 31 31 20 28 23 24 20 2e 20 32 31 32 31 30 29 5d 29 29 0a 28 70 75 74 20 27 2d | setq].11.(#$...21210)])).(put.'- |
| 53a0 | 2d 73 6f 6d 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 | -some.'edebug-form-spec.'(form.f |
| 53c0 | 6f 72 6d 29 29 0a 23 40 31 30 39 20 52 65 74 75 72 6e 20 28 50 52 45 44 20 78 29 20 66 6f 72 20 | orm)).#@109.Return.(PRED.x).for. |
| 53e0 | 74 68 65 20 66 69 72 73 74 20 4c 49 53 54 20 69 74 65 6d 20 77 68 65 72 65 20 28 50 52 45 44 20 | the.first.LIST.item.where.(PRED. |
| 5400 | 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a | x).is.non-nil,.else.nil...Alias: |
| 5420 | 20 60 2d 61 6e 79 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 | .`-any'..(fn.PRED.LIST)..(defali |
| 5440 | 61 73 20 27 2d 73 6f 6d 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c | as.'-some.#[514."\300.\301\302.\ |
| 5460 | 32 30 33 2a 00 01 5c 32 30 33 2a 00 02 40 04 5c 32 30 33 18 00 5c 33 30 30 5c 32 36 32 03 5c 32 | 203*..\203*..@.\203..\300\262.\2 |
| 5480 | 30 32 1e 00 06 06 01 21 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 | 02.....!\262.\210\211T\262..A\26 |
| 54a0 | 32 03 5c 32 30 32 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 | 2.\202..\266.\211\207".[nil.t.0] |
| 54c0 | 20 39 20 28 23 24 20 2e 20 32 31 34 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | .9.(#$...21452)]).(byte-code."\3 |
| 54e0 | 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 33 30 34 5c 22 5c 32 | 00\301\302\"\210\300\303\304\"\2 |
| 5500 | 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 61 6e 79 20 2d 73 6f 6d 65 20 2d 2d 61 6e 79 20 2d | 07".[defalias.-any.-some.--any.- |
| 5520 | 2d 73 6f 6d 65 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 | -some].3).#@44.Anaphoric.form.of |
| 5540 | 20 60 2d 6c 61 73 74 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 | .`-last'...(fn.FORM.LIST)..(defa |
| 5560 | 6c 69 61 73 20 27 2d 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 | lias.'--last.'(macro...#[514."\3 |
| 5580 | 30 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 06 07 5c 33 | 00\301!\302.C\303.\304..\305..\3 |
| 55a0 | 30 36 42 42 45 45 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 | 06BBEE.F\207".[make-symbol."need |
| 55c0 | 6c 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 28 69 74 29 5d 20 31 | le".let.--each.when.setq.(it)].1 |
| 55e0 | 32 20 28 23 24 20 2e 20 32 31 38 30 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6c 61 73 74 20 27 | 2.(#$...21807)])).(put.'--last.' |
| 5600 | 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 23 | edebug-form-spec.'(form.form)).# |
| 5620 | 40 38 30 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 78 20 69 6e 20 4c 49 53 54 20 77 68 | @80.Return.the.last.x.in.LIST.wh |
| 5640 | 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 |
| 5660 | 6c 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 73 20 27 2d | l...(fn.PRED.LIST)..(defalias.'- |
| 5680 | 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 1e 00 01 40 05 01 | last.#[514."\300.\301.\203...@.. |
| 56a0 | 21 5c 32 30 33 12 00 5c 32 31 31 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 | !\203..\211\262.\210\211T\262..A |
| 56c0 | 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 6e 69 6c 20 30 | \262.\202..\266.\211\207".[nil.0 |
| 56e0 | 5d 20 38 20 28 23 24 20 2e 20 32 32 30 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].8.(#$...22052)]).(byte-code."\ |
| 5700 | 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 |
| 5720 | 5c 33 30 36 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 | \306#\210\304\301\307\310#\210\3 |
| 5740 | 30 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 23 5c 32 31 30 5c 33 30 30 5c 33 31 34 5c 33 31 35 5c | 00\311\312\313#\210\300\314\315\ |
| 5760 | 33 31 36 23 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 66 69 72 73 74 2d 69 74 65 6d 20 | 316#\207".[defalias.-first-item. |
| 5780 | 63 61 72 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 6f 66 20 4c 49 | car."Return.the.first.item.of.LI |
| 57a0 | 53 54 2c 20 6f 72 20 6e 69 6c 20 6f 6e 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 5c 6e 5c 6e | ST,.or.nil.on.an.empty.list.\n\n |
| 57c0 | 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 63 6f 6e 64 2d 69 74 65 6d 27 2c 20 60 2d 6c 61 73 74 | See.also:.`-second-item',.`-last |
| 57e0 | 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 70 75 74 20 62 79 74 65 2d 6f | -item'.\n\n(fn.LIST)".put.byte-o |
| 5800 | 70 63 6f 64 65 20 62 79 74 65 2d 63 61 72 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 62 79 74 65 | pcode.byte-car.byte-compile.byte |
| 5820 | 2d 63 6f 6d 70 69 6c 65 2d 6f 6e 65 2d 61 72 67 20 2d 73 65 63 6f 6e 64 2d 69 74 65 6d 20 63 61 | -compile-one-arg.-second-item.ca |
| 5840 | 64 72 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 20 6f 66 20 4c 49 | dr."Return.the.second.item.of.LI |
| 5860 | 53 54 2c 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 | ST,.or.nil.if.LIST.is.too.short. |
| 5880 | 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 68 69 72 64 2d 69 74 65 6d 27 2e 5c 6e 5c 6e | \n\nSee.also:.`-third-item'.\n\n |
| 58a0 | 28 66 6e 20 4c 49 53 54 29 22 20 2d 74 68 69 72 64 2d 69 74 65 6d 20 63 61 64 64 72 20 22 52 65 | (fn.LIST)".-third-item.caddr."Re |
| 58c0 | 74 75 72 6e 20 74 68 65 20 74 68 69 72 64 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 | turn.the.third.item.of.LIST,.or. |
| 58e0 | 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 5c 6e 5c 6e 53 65 65 | nil.if.LIST.is.too.short.\n\nSee |
| 5900 | 20 61 6c 73 6f 3a 20 60 2d 66 6f 75 72 74 68 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 | .also:.`-fourth-item'.\n\n(fn.LI |
| 5920 | 53 54 29 22 5d 20 34 29 0a 23 40 39 39 20 52 65 74 75 72 6e 20 74 68 65 20 66 6f 75 72 74 68 20 | ST)"].4).#@99.Return.the.fourth. |
| 5940 | 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 73 20 | item.of.LIST,.or.nil.if.LIST.is. |
| 5960 | 74 6f 6f 20 73 68 6f 72 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 66 74 68 2d 69 74 | too.short...See.also:.`-fifth-it |
| 5980 | 65 6d 27 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 66 6f 75 | em'...(fn.LIST)..(defalias.'-fou |
| 59a0 | 72 74 68 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 41 41 41 40 5c 32 30 37 22 20 5b 5d | rth-item.#[257."\211AAA@\207".[] |
| 59c0 | 20 32 20 28 23 24 20 2e 20 32 32 38 33 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | .2.(#$...22830)]).(byte-code."\3 |
| 59e0 | 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\ |
| 5a00 | 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 66 6f 75 72 74 68 2d | 303#\207".[function-put.-fourth- |
| 5a20 | 69 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 | item.pure.t.side-effect-free].4) |
| 5a40 | 0a 23 40 39 37 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 66 74 68 20 69 74 65 6d 20 6f 66 20 4c | .#@97.Return.the.fifth.item.of.L |
| 5a60 | 49 53 54 2c 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 | IST,.or.nil.if.LIST.is.too.short |
| 5a80 | 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2e 0a 0a 28 66 6e 20 | ...See.also:.`-last-item'...(fn. |
| 5aa0 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 66 74 68 2d 69 74 65 6d 20 23 5b | LIST)..(defalias.'-fifth-item.#[ |
| 5ac0 | 32 35 37 20 22 5c 32 31 31 41 41 41 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 32 | 257."\211AAAA@\207".[].2.(#$...2 |
| 5ae0 | 33 31 31 30 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 | 3110)]).(byte-code."\300\301\302 |
| 5b00 | 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". |
| 5b20 | 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 69 66 74 68 2d 69 74 65 6d 20 70 75 72 65 20 74 | [function-put.-fifth-item.pure.t |
| 5b40 | 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 37 20 52 65 74 75 72 | .side-effect-free].4).#@67.Retur |
| 5b60 | 6e 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 | n.the.last.item.of.LIST,.or.nil. |
| 5b80 | 6f 6e 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 | on.an.empty.list...(fn.LIST)..(d |
| 5ba0 | 65 66 61 6c 69 61 73 20 27 2d 6c 61 73 74 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 01 | efalias.'-last-item.#[257."\300. |
| 5bc0 | 21 40 5c 32 30 37 22 20 5b 6c 61 73 74 5d 20 33 20 28 23 24 20 2e 20 32 33 33 38 37 29 5d 29 0a | !@\207".[last].3.(#$...23387)]). |
| 5be0 | 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 31 | (byte-code."\300\301\302\303#\21 |
| 5c00 | 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 69 6f | 0\300\301\304\303#\207".[functio |
| 5c20 | 6e 2d 70 75 74 20 2d 6c 61 73 74 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 | n-put.-last-item.pure.t.side-eff |
| 5c40 | 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 | ect-free].4).#@68.Return.a.list. |
| 5c60 | 6f 66 20 61 6c 6c 20 69 74 65 6d 73 20 69 6e 20 6c 69 73 74 20 65 78 63 65 70 74 20 66 6f 72 20 | of.all.items.in.list.except.for. |
| 5c80 | 74 68 65 20 6c 61 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 | the.last...(fn.LIST)..(defalias. |
| 5ca0 | 27 2d 62 75 74 6c 61 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 62 75 | '-butlast.#[257."\300.!\207".[bu |
| 5cc0 | 74 6c 61 73 74 5d 20 33 20 28 23 24 20 2e 20 32 33 36 33 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f | tlast].3.(#$...23634)]).(byte-co |
| 5ce0 | 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 |
| 5d00 | 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 62 | 1\304\303#\207".[function-put.-b |
| 5d20 | 75 74 6c 61 73 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 | utlast.pure.t.side-effect-free]. |
| 5d40 | 34 29 0a 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 63 6f 75 6e | 4).#@45.Anaphoric.form.of.`-coun |
| 5d60 | 74 27 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 73 20 27 | t'...(fn.PRED.LIST)..(defalias.' |
| 5d80 | 2d 2d 63 6f 75 6e 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 | --count.'(macro...#[514."\300\30 |
| 5da0 | 31 21 5c 33 30 32 01 5c 33 30 33 42 43 5c 33 30 34 04 5c 33 30 35 06 07 5c 33 30 36 06 07 5c 33 | 1!\302.\303BC\304.\305..\306..\3 |
| 5dc0 | 30 37 06 09 44 45 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 | 07..DEEE.F\207".[make-symbol."re |
| 5de0 | 73 75 6c 74 22 20 6c 65 74 20 28 30 29 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 31 | sult".let.(0).--each.when.setq.1 |
| 5e00 | 2b 5d 20 31 33 20 28 23 24 20 2e 20 32 33 38 38 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 63 6f | +].13.(#$...23880)])).(put.'--co |
| 5e20 | 75 6e 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 | unt.'edebug-form-spec.'(form.for |
| 5e40 | 6d 29 29 0a 23 40 38 32 20 43 6f 75 6e 74 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 | m)).#@82.Counts.the.number.of.it |
| 5e60 | 65 6d 73 20 69 6e 20 4c 49 53 54 20 77 68 65 72 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73 | ems.in.LIST.where.(PRED.item).is |
| 5e80 | 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 | .non-nil...(fn.PRED.LIST)..(defa |
| 5ea0 | 6c 69 61 73 20 27 2d 63 6f 75 6e 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 01 5c 32 | lias.'-count.#[514."\300.\300.\2 |
| 5ec0 | 30 33 1f 00 01 40 05 01 21 5c 32 30 33 13 00 03 54 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c | 03...@..!\203...T\262.\210\211T\ |
| 5ee0 | 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 30 37 22 20 | 262..A\262.\202..\266.\211\207". |
| 5f00 | 5b 30 5d 20 38 20 28 23 24 20 2e 20 32 34 31 33 37 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 | [0].8.(#$...24137)]).(defalias.' |
| 5f20 | 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 3f 3f 5c 32 30 37 22 20 5b | ---truthy\?.#[257."\211??\207".[ |
| 5f40 | 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 56 41 4c 29 22 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | ].2."\n\n(fn.VAL)"]).(byte-code. |
| 5f60 | 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 |
| 5f80 | 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 2d 2d 74 72 | 04\303#\207".[function-put.---tr |
| 5fa0 | 75 74 68 79 5c 3f 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 | uthy\?.pure.t.side-effect-free]. |
| 5fc0 | 34 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 6e 79 3f | 4).#@44.Anaphoric.form.of.`-any? |
| 5fe0 | 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.'- |
| 6000 | 2d 61 6e 79 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 30 31 | -any\?.'(macro...#[514."\300\301 |
| 6020 | 03 03 45 44 5c 32 30 37 22 20 5b 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 2d 2d 73 6f 6d 65 5d 20 36 | ..ED\207".[---truthy\?.--some].6 |
| 6040 | 20 28 23 24 20 2e 20 32 34 35 32 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6e 79 5c 3f 20 27 | .(#$...24520)])).(put.'--any\?.' |
| 6060 | 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 23 | edebug-form-spec.'(form.form)).# |
| 6080 | 40 31 31 36 20 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e | @116.Return.t.if.(PRED.x).is.non |
| 60a0 | 2d 6e 69 6c 20 66 6f 72 20 61 6e 79 20 78 20 69 6e 20 4c 49 53 54 2c 20 65 6c 73 65 20 6e 69 6c | -nil.for.any.x.in.LIST,.else.nil |
| 60c0 | 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 6e 79 2d 70 27 2c 20 60 2d 73 6f 6d 65 3f 27 2c 20 60 2d | ...Alias:.`-any-p',.`-some?',.`- |
| 60e0 | 73 6f 6d 65 2d 70 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 | some-p'..(fn.PRED.LIST)..(defali |
| 6100 | 61 73 20 27 2d 61 6e 79 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 32 5c | as.'-any\?.#[514."\300\301.\302\ |
| 6120 | 33 30 33 02 5c 32 30 33 2b 00 01 5c 32 30 33 2b 00 02 40 04 5c 32 30 33 19 00 5c 33 30 31 5c 32 | 303.\203+..\203+..@.\203..\301\2 |
| 6140 | 36 32 03 5c 32 30 32 1f 00 06 07 01 21 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 | 62.\202.....!\262.\210\211T\262. |
| 6160 | 02 41 5c 32 36 32 03 5c 32 30 32 05 00 5c 32 36 36 03 5c 32 31 31 5c 32 36 32 01 21 5c 32 30 37 | .A\262.\202..\266.\211\262.!\207 |
| 6180 | 22 20 5b 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 6e 69 6c 20 74 20 30 5d 20 31 30 20 28 23 24 20 2e | ".[---truthy\?.nil.t.0].10.(#$.. |
| 61a0 | 20 32 34 37 30 39 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 | .24709)]).(byte-code."\300\301\3 |
| 61c0 | 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 |
| 61e0 | 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 |
| 6200 | 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 |
| 6220 | 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 6f 6d 65 5c 3f 20 2d 61 6e 79 5c 3f 20 2d 2d 73 | 07".[defalias.-some\?.-any\?.--s |
| 6240 | 6f 6d 65 5c 3f 20 2d 2d 61 6e 79 5c 3f 20 2d 61 6e 79 2d 70 20 2d 2d 61 6e 79 2d 70 20 2d 73 6f | ome\?.--any\?.-any-p.--any-p.-so |
| 6260 | 6d 65 2d 70 20 2d 2d 73 6f 6d 65 2d 70 5d 20 33 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 | me-p.--some-p].3).#@44.Anaphoric |
| 6280 | 20 66 6f 72 6d 20 6f 66 20 60 2d 61 6c 6c 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 | .form.of.`-all?'...(fn.FORM.LIST |
| 62a0 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6c 6c 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 | )..(defalias.'--all\?.'(macro... |
| 62c0 | 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 5c 33 30 34 04 | #[514."\300\301!\302.\303BC\304. |
| 62e0 | 04 5c 33 30 35 06 06 06 09 45 46 5c 33 30 36 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 | .\305....EF\306.DF\207".[make-sy |
| 6300 | 6d 62 6f 6c 20 22 61 6c 6c 22 20 6c 65 74 20 28 74 29 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 | mbol."all".let.(t).--each-while. |
| 6320 | 73 65 74 71 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 31 20 28 23 24 20 2e 20 32 35 32 30 37 | setq.---truthy\?].11.(#$...25207 |
| 6340 | 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6c 6c 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d | )])).(put.'--all\?.'edebug-form- |
| 6360 | 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 | spec.'(form.form)).#@118.Return. |
| 6380 | 74 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 6c 6c | t.if.(PRED.x).is.non-nil.for.all |
| 63a0 | 20 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 | .x.in.LIST,.else.nil...Alias:.`- |
| 63c0 | 61 6c 6c 2d 70 27 2c 20 60 2d 65 76 65 72 79 3f 27 2c 20 60 2d 65 76 65 72 79 2d 70 27 0a 0a 28 | all-p',.`-every?',.`-every-p'..( |
| 63e0 | 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 61 6c 6c 5c 3f | fn.PRED.LIST)..(defalias.'-all\? |
| 6400 | 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 2a 00 01 5c 32 30 | .#[514."\300.\300\301.\203*..\20 |
| 6420 | 33 2a 00 02 40 04 5c 32 30 34 18 00 5c 33 30 32 5c 32 36 32 03 5c 32 30 32 1e 00 06 06 01 21 5c | 3*..@.\204..\302\262.\202.....!\ |
| 6440 | 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 00 5c | 262.\210\211T\262..A\262.\202..\ |
| 6460 | 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 75 74 | 266.\303.!\207".[t.0.nil.---trut |
| 6480 | 68 79 5c 3f 5d 20 39 20 28 23 24 20 2e 20 32 35 34 36 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | hy\?].9.(#$...25465)]).(byte-cod |
| 64a0 | 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 33 30 | e."\300\301\302\"\210\300\303\30 |
| 64c0 | 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 33 30 30 5c 33 30 | 4\"\210\300\305\302\"\210\300\30 |
| 64e0 | 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 32 31 30 5c 33 30 | 6\304\"\210\300\307\302\"\210\30 |
| 6500 | 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 20 2d 65 76 65 72 | 0\310\304\"\207".[defalias.-ever |
| 6520 | 79 5c 3f 20 2d 61 6c 6c 5c 3f 20 2d 2d 65 76 65 72 79 5c 3f 20 2d 2d 61 6c 6c 5c 3f 20 2d 61 6c | y\?.-all\?.--every\?.--all\?.-al |
| 6540 | 6c 2d 70 20 2d 2d 61 6c 6c 2d 70 20 2d 65 76 65 72 79 2d 70 20 2d 2d 65 76 65 72 79 2d 70 5d 20 | l-p.--all-p.-every-p.--every-p]. |
| 6560 | 33 29 0a 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6e 6f 6e 65 | 3).#@45.Anaphoric.form.of.`-none |
| 6580 | 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 27 | ?'...(fn.FORM.LIST)..(defalias.' |
| 65a0 | 2d 2d 6e 6f 6e 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 5c 33 | --none\?.'(macro...#[514."\300\3 |
| 65c0 | 30 31 03 44 02 45 5c 32 30 37 22 20 5b 2d 2d 61 6c 6c 5c 3f 20 6e 6f 74 5d 20 35 20 28 23 24 20 | 01.D.E\207".[--all\?.not].5.(#$. |
| 65e0 | 2e 20 32 35 39 36 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6e 6f 6e 65 5c 3f 20 27 65 64 65 62 | ..25960)])).(put.'--none\?.'edeb |
| 6600 | 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 39 32 20 | ug-form-spec.'(form.form)).#@92. |
| 6620 | 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 69 6c 20 66 6f 72 20 | Return.t.if.(PRED.x).is.nil.for. |
| 6640 | 61 6c 6c 20 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 | all.x.in.LIST,.else.nil...Alias: |
| 6660 | 20 60 2d 6e 6f 6e 65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 | .`-none-p'..(fn.PRED.LIST)..(def |
| 6680 | 61 6c 69 61 73 20 27 2d 6e 6f 6e 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 5c | alias.'-none\?.#[514."\300.\300\ |
| 66a0 | 33 30 31 02 5c 32 30 33 2b 00 01 5c 32 30 33 2b 00 02 40 04 5c 32 30 34 18 00 5c 33 30 32 5c 32 | 301.\203+..\203+..@.\204..\302\2 |
| 66c0 | 36 32 03 5c 32 30 32 1f 00 06 06 01 21 3f 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 | 62.\202.....!?\262.\210\211T\262 |
| 66e0 | 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 37 22 20 5b | ..A\262.\202..\266.\303.!\207".[ |
| 6700 | 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 20 32 36 31 | t.0.nil.---truthy\?].9.(#$...261 |
| 6720 | 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 30 32 5c 22 | 44)]).(byte-code."\300\301\302\" |
| 6740 | 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 61 6c 69 61 | \210\300\303\304\"\207".[defalia |
| 6760 | 73 20 2d 6e 6f 6e 65 2d 70 20 2d 6e 6f 6e 65 5c 3f 20 2d 2d 6e 6f 6e 65 2d 70 20 2d 2d 6e 6f 6e | s.-none-p.-none\?.--none-p.--non |
| 6780 | 65 5c 3f 5d 20 33 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 | e\?].3).#@50.Anaphoric.form.of.` |
| 67a0 | 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 | -only-some?'...(fn.FORM.LIST)..( |
| 67c0 | 64 65 66 61 6c 69 61 73 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 28 6d 61 63 72 6f 20 | defalias.'--only-some\?.'(macro. |
| 67e0 | 2e 20 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 33 02 | ..#[514."\300\301!\300\302!\303. |
| 6800 | 02 44 5c 33 30 34 05 5c 33 30 35 5c 33 30 36 06 07 06 07 45 44 5c 33 30 37 06 09 5c 33 31 30 06 | .D\304.\305\306....ED\307..\310. |
| 6820 | 09 5c 33 31 31 42 42 5c 33 31 30 06 09 5c 33 31 32 42 42 46 46 5c 33 31 33 5c 33 30 36 06 06 06 | .\311BB\310..\312BBFF\313\306... |
| 6840 | 06 45 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 79 65 73 22 20 22 6e 6f | .EDF\207".[make-symbol."yes"."no |
| 6860 | 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 61 6e 64 20 69 66 20 73 65 | ".let.--each-while.not.and.if.se |
| 6880 | 74 71 20 28 74 29 20 28 74 29 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 35 20 28 23 24 20 2e | tq.(t).(t).---truthy\?].15.(#$.. |
| 68a0 | 20 32 36 35 30 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 | .26509)])).(put.'--only-some\?.' |
| 68c0 | 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 23 | edebug-form-spec.'(form.form)).# |
| 68e0 | 40 32 34 30 20 52 65 74 75 72 6e 20 60 74 60 20 69 66 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 | @240.Return.`t`.if.at.least.one. |
| 6900 | 69 74 65 6d 20 6f 66 20 4c 49 53 54 20 6d 61 74 63 68 65 73 20 50 52 45 44 20 61 6e 64 20 61 74 | item.of.LIST.matches.PRED.and.at |
| 6920 | 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 20 64 6f 65 73 20 6e 6f 74 | .least.one.item.of.LIST.does.not |
| 6940 | 20 6d 61 74 63 68 20 50 52 45 44 2e 0a 52 65 74 75 72 6e 20 60 6e 69 6c 60 20 62 6f 74 68 20 69 | .match.PRED..Return.`nil`.both.i |
| 6960 | 66 20 61 6c 6c 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 20 | f.all.items.match.the.predicate. |
| 6980 | 6f 72 20 69 66 20 6e 6f 6e 65 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 6d 61 74 63 68 20 74 68 | or.if.none.of.the.items.match.th |
| 69a0 | 65 20 70 72 65 64 69 63 61 74 65 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65 | e.predicate...Alias:.`-only-some |
| 69c0 | 2d 70 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 27 | -p'..(fn.PRED.LIST)..(defalias.' |
| 69e0 | 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 33 30 | -only-some\?.#[514."\300\211.\30 |
| 6a00 | 31 5c 33 30 32 02 5c 32 30 33 39 00 01 5c 32 30 33 39 00 02 40 05 5c 32 30 33 1d 00 04 5c 32 30 | 1\302.\2039..\2039..@.\203...\20 |
| 6a20 | 33 1d 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 2d 00 06 07 01 21 5c 32 30 33 2a 00 5c 33 30 31 | 3..\300\262.\202-....!\203*.\301 |
| 6a40 | 5c 32 36 32 06 5c 32 30 32 2d 00 5c 33 30 31 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 | \262.\202-.\301\262.\210\211T\26 |
| 6a60 | 32 01 02 41 5c 32 36 32 03 5c 32 30 32 05 00 5c 32 36 36 03 5c 33 30 33 02 5c 32 30 35 41 00 01 | 2..A\262.\202..\266.\303.\205A.. |
| 6a80 | 21 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 30 20 | !\207".[nil.t.0.---truthy\?].10. |
| 6aa0 | 28 23 24 20 2e 20 32 36 38 35 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | (#$...26853)]).(byte-code."\300\ |
| 6ac0 | 33 30 31 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 | 301\302\"\210\300\303\304\"\207" |
| 6ae0 | 20 5b 64 65 66 61 6c 69 61 73 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 6f 6e 6c 79 2d 73 6f | .[defalias.-only-some-p.-only-so |
| 6b00 | 6d 65 5c 3f 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f | me\?.--only-some-p.--only-some\? |
| 6b20 | 5d 20 33 29 0a 23 40 32 38 37 20 52 65 74 75 72 6e 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2c 20 | ].3).#@287.Return.copy.of.LIST,. |
| 6b40 | 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 69 6e 64 65 78 20 46 52 4f 4d 20 74 6f 20 69 6e 64 65 | starting.from.index.FROM.to.inde |
| 6b60 | 78 20 54 4f 2e 0a 0a 46 52 4f 4d 20 6f 72 20 54 4f 20 6d 61 79 20 62 65 20 6e 65 67 61 74 69 76 | x.TO...FROM.or.TO.may.be.negativ |
| 6b80 | 65 2e 20 20 54 68 65 73 65 20 76 61 6c 75 65 73 20 61 72 65 20 74 68 65 6e 20 69 6e 74 65 72 70 | e...These.values.are.then.interp |
| 6ba0 | 72 65 74 65 64 0a 6d 6f 64 75 6c 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6c | reted.modulo.the.length.of.the.l |
| 6bc0 | 69 73 74 2e 0a 0a 49 66 20 53 54 45 50 20 69 73 20 61 20 6e 75 6d 62 65 72 2c 20 6f 6e 6c 79 20 | ist...If.STEP.is.a.number,.only. |
| 6be0 | 65 61 63 68 20 53 54 45 50 74 68 20 69 74 65 6d 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 69 6e | each.STEPth.item.in.the.resultin |
| 6c00 | 67 0a 73 65 63 74 69 6f 6e 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 20 44 65 66 61 75 6c 74 73 | g.section.is.returned...Defaults |
| 6c20 | 20 74 6f 20 31 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 52 4f 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 | .to.1...(fn.LIST.FROM.&optional. |
| 6c40 | 54 4f 20 53 54 45 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6c 69 63 65 20 23 5b 31 30 | TO.STEP)..(defalias.'-slice.#[10 |
| 6c60 | 32 36 20 22 03 47 5c 33 30 30 03 5c 32 30 36 08 00 01 5c 32 36 32 04 02 5c 32 30 36 0f 00 5c 33 | 26.".G\300.\206...\262..\206..\3 |
| 6c80 | 30 31 5c 32 36 32 03 04 5c 33 30 32 57 5c 32 30 33 1d 00 5c 33 30 33 05 03 5c 22 5c 32 36 32 05 | 01\262..\302W\203..\303..\"\262. |
| 6ca0 | 03 5c 33 30 32 57 5c 32 30 33 29 00 5c 33 30 33 04 03 5c 22 5c 32 36 32 04 05 5c 33 30 34 5c 33 | .\302W\203).\303..\"\262..\304\3 |
| 6cc0 | 30 32 02 5c 32 30 33 68 00 01 5c 32 30 33 68 00 02 40 01 06 08 57 5c 32 30 34 43 00 5c 33 30 30 | 02.\203h..\203h..@...W\204C.\300 |
| 6ce0 | 5c 32 36 32 03 5c 32 30 32 5c 5c 00 01 06 09 59 5c 32 30 33 5c 5c 00 5c 33 30 33 06 09 03 5a 06 | \262.\202\\....Y\203\\.\303...Z. |
| 6d00 | 08 5c 22 5c 33 30 32 55 5c 32 30 33 5c 5c 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 | .\"\302U\203\\.\211.B\262.\210\2 |
| 6d20 | 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 2c 00 5c 32 36 36 03 5c 32 31 31 5c 32 | 11T\262..A\262.\202,.\266.\211\2 |
| 6d40 | 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 31 20 30 20 6d 6f 64 20 74 5d 20 31 33 20 28 23 24 20 2e | 37\207".[nil.1.0.mod.t].13.(#$.. |
| 6d60 | 20 32 37 34 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 | .27435)]).(byte-code."\300\301\3 |
| 6d80 | 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 |
| 6da0 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 6c 69 63 65 20 70 75 72 65 20 74 20 73 69 | ".[function-put.-slice.pure.t.si |
| 6dc0 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 32 36 20 52 65 74 75 72 6e 20 | de-effect-free].4).#@126.Return. |
| 6de0 | 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 20 | a.new.list.of.the.first.N.items. |
| 6e00 | 69 6e 20 4c 49 53 54 2c 20 6f 72 20 61 6c 6c 20 69 74 65 6d 73 20 69 66 20 74 68 65 72 65 20 61 | in.LIST,.or.all.items.if.there.a |
| 6e20 | 72 65 20 66 65 77 65 72 20 74 68 61 6e 20 4e 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 | re.fewer.than.N...See.also:.`-ta |
| 6e40 | 6b 65 2d 6c 61 73 74 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 | ke-last'..(fn.N.LIST)..(defalias |
| 6e60 | 20 27 2d 74 61 6b 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 32 31 31 02 57 5c 32 | .'-take.#[514."\300.\301\211.W\2 |
| 6e80 | 30 33 1e 00 03 5c 32 30 33 17 00 03 40 03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 31 54 | 03...\203...@.B\262..A\262.\211T |
| 6ea0 | 5c 32 36 32 01 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 | \262.\202..\266.\211\237\207".[n |
| 6ec0 | 69 6c 20 30 5d 20 37 20 28 23 24 20 2e 20 32 38 31 32 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | il.0].7.(#$...28121)]).(byte-cod |
| 6ee0 | 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 |
| 6f00 | 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 74 61 | \304\303#\207".[function-put.-ta |
| 6f20 | 6b 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 5d 20 34 29 0a 23 | ke.pure.t.side-effect-free].4).# |
| 6f40 | 40 37 35 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 20 6f 66 20 4c | @75.Return.the.last.N.items.of.L |
| 6f60 | 49 53 54 20 69 6e 20 6f 72 64 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 27 | IST.in.order...See.also:.`-take' |
| 6f80 | 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 74 61 6b 65 2d | ..(fn.N.LIST)..(defalias.'-take- |
| 6fa0 | 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 04 5c 22 21 5c 32 30 37 22 20 5b | last.#[514."\300\301..\"!\207".[ |
| 6fc0 | 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 5d 20 36 20 28 23 24 20 2e 20 32 38 34 38 | copy-sequence.last].6.(#$...2848 |
| 6fe0 | 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 30 32 5c 33 30 | 4)]).(byte-code."\300\301\302\30 |
| 7000 | 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 33 30 35 5c | 3#\210\300\301\304\303#\210\305\ |
| 7020 | 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 70 75 74 20 | 306\307\310#\207".[function-put. |
| 7040 | 2d 74 61 6b 65 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | -take-last.pure.t.side-effect-fr |
| 7060 | 65 65 20 64 65 66 61 6c 69 61 73 20 2d 64 72 6f 70 20 6e 74 68 63 64 72 20 22 52 65 74 75 72 6e | ee.defalias.-drop.nthcdr."Return |
| 7080 | 20 74 68 65 20 74 61 69 6c 20 6f 66 20 4c 49 53 54 20 77 69 74 68 6f 75 74 20 74 68 65 20 66 69 | .the.tail.of.LIST.without.the.fi |
| 70a0 | 72 73 74 20 4e 20 69 74 65 6d 73 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a 20 60 2d 64 72 6f 70 | rst.N.items.\n\nSee.also:.`-drop |
| 70c0 | 2d 6c 61 73 74 27 5c 6e 5c 6e 28 66 6e 20 4e 20 4c 49 53 54 29 22 5d 20 34 29 0a 23 40 38 34 20 | -last'\n\n(fn.N.LIST)"].4).#@84. |
| 70e0 | 52 65 6d 6f 76 65 20 74 68 65 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 20 6f 66 20 4c 49 53 54 20 | Remove.the.last.N.items.of.LIST. |
| 7100 | 61 6e 64 20 72 65 74 75 72 6e 20 61 20 63 6f 70 79 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d | and.return.a.copy...See.also:.`- |
| 7120 | 64 72 6f 70 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 | drop'..(fn.N.LIST)..(defalias.'- |
| 7140 | 64 72 6f 70 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 5c 22 5c 32 30 37 22 20 5b | drop-last.#[514."\300..\"\207".[ |
| 7160 | 62 75 74 6c 61 73 74 5d 20 35 20 28 23 24 20 2e 20 32 38 38 39 36 29 5d 29 0a 28 62 79 74 65 2d | butlast].5.(#$...28896)]).(byte- |
| 7180 | 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\ |
| 71a0 | 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. |
| 71c0 | 2d 64 72 6f 70 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | -drop-last.pure.t.side-effect-fr |
| 71e0 | 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.`- |
| 7200 | 74 61 6b 65 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 | take-while'...(fn.FORM.LIST)..(d |
| 7220 | 65 66 61 6c 69 61 73 20 27 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 | efalias.'--take-while.'(macro... |
| 7240 | 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 06 06 5c 33 30 | #[514."\300\301!\302.C\303...\30 |
| 7260 | 34 5c 33 30 35 06 07 45 46 5c 33 30 36 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 | 4\305..EF\306.DF\207".[make-symb |
| 7280 | 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 21 63 6f | ol."result".let.--each-while.!co |
| 72a0 | 6e 73 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 31 20 28 23 24 20 2e 20 32 39 31 36 34 29 5d | ns.it.nreverse].11.(#$...29164)] |
| 72c0 | 29 29 0a 28 70 75 74 20 27 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 20 27 65 64 65 62 75 67 2d 66 6f | )).(put.'--take-while.'edebug-fo |
| 72e0 | 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 38 20 52 65 74 75 | rm-spec.'(form.form)).#@108.Retu |
| 7300 | 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d | rn.a.new.list.of.successive.item |
| 7320 | 73 20 66 72 6f 6d 20 4c 49 53 54 20 77 68 69 6c 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 72 65 | s.from.LIST.while.(PRED.item).re |
| 7340 | 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 50 52 45 44 | turns.a.non-nil.value...(fn.PRED |
| 7360 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d 77 68 69 6c 65 20 23 | .LIST)..(defalias.'-take-while.# |
| 7380 | 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 2c 00 01 5c 32 30 33 2c | [514."\300.\301\302.\203,..\203, |
| 73a0 | 00 02 40 06 06 01 21 5c 32 30 34 1b 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 20 00 5c 32 31 31 | ..@...!\204..\300\262.\202..\211 |
| 73c0 | 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 30 32 | .B\262.\210\211T\262..A\262.\202 |
| 73e0 | 04 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 74 20 30 5d 20 39 | ..\266.\211\237\207".[nil.t.0].9 |
| 7400 | 20 28 23 24 20 2e 20 32 39 34 33 36 29 5d 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 | .(#$...29436)]).#@50.Anaphoric.f |
| 7420 | 6f 72 6d 20 6f 66 20 60 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 | orm.of.`-drop-while'...(fn.FORM. |
| 7440 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 20 27 | LIST)..(defalias.'--drop-while.' |
| 7460 | 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 03 44 | (macro...#[514."\300\301!\302..D |
| 7480 | 43 5c 33 30 33 5c 33 30 34 04 5c 33 30 32 5c 33 30 35 5c 33 30 36 06 08 44 44 43 06 09 45 45 5c | C\303\304.\302\305\306..DDC..EE\ |
| 74a0 | 33 30 37 05 44 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 | 307.DE.F\207".[make-symbol."list |
| 74c0 | 22 20 6c 65 74 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 21 63 64 72 5d 20 31 32 20 | ".let.while.and.it.car.!cdr].12. |
| 74e0 | 28 23 24 20 2e 20 32 39 37 31 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 64 72 6f 70 2d 77 68 69 | (#$...29717)])).(put.'--drop-whi |
| 7500 | 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 6d 20 66 6f 72 6d | le.'edebug-form-spec.'(form.form |
| 7520 | 29 29 0a 23 40 31 30 35 20 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 4c 49 53 54 | )).#@105.Return.the.tail.of.LIST |
| 7540 | 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 66 6f | .starting.from.the.first.item.fo |
| 7560 | 72 20 77 68 69 63 68 20 28 50 52 45 44 20 69 74 65 6d 29 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e | r.which.(PRED.item).returns.nil. |
| 7580 | 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 27 2d 64 72 | ..(fn.PRED.LIST)..(defalias.'-dr |
| 75a0 | 6f 70 2d 77 68 69 6c 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 16 00 5c 32 | op-while.#[514."\211\211\203..\2 |
| 75c0 | 31 31 40 03 01 21 5c 32 36 32 01 5c 32 30 33 16 00 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 01 | 11@..!\262.\203..\211A\262.\202. |
| 75e0 | 00 5c 32 31 31 5c 32 30 37 22 20 5b 5d 20 36 20 28 23 24 20 2e 20 32 39 39 39 33 29 5d 29 0a 23 | .\211\207".[].6.(#$...29993)]).# |
| 7600 | 40 31 30 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 2d 74 61 6b 65 20 4e 20 | @107.Return.a.list.of.((-take.N. |
| 7620 | 4c 49 53 54 29 20 28 2d 64 72 6f 70 20 4e 20 4c 49 53 54 29 29 2c 20 69 6e 20 6e 6f 20 6d 6f 72 | LIST).(-drop.N.LIST)),.in.no.mor |
| 7640 | 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 65 20 6c 69 73 74 | e.than.one.pass.through.the.list |
| 7660 | 2e 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 73 70 6c 69 | ...(fn.N.LIST)..(defalias.'-spli |
| 7680 | 74 2d 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 32 31 31 02 57 5c 32 30 33 1e | t-at.#[514."\300.\301\211.W\203. |
| 76a0 | 00 03 5c 32 30 33 17 00 03 40 03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 31 54 5c 32 36 | ..\203...@.B\262..A\262.\211T\26 |
| 76c0 | 32 01 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 02 44 5c 32 30 37 22 20 5b 6e 69 | 2.\202..\266.\211\237.D\207".[ni |
| 76e0 | 6c 20 30 5d 20 37 20 28 23 24 20 2e 20 33 30 32 31 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | l.0].7.(#$...30213)]).(byte-code |
| 7700 | 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\ |
| 7720 | 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 73 70 6c | 304\303#\207".[function-put.-spl |
| 7740 | 69 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 | it-at.pure.t.side-effect-free].4 |
| 7760 | 29 0a 23 40 31 31 36 20 52 6f 74 61 74 65 20 4c 49 53 54 20 4e 20 70 6c 61 63 65 73 20 74 6f 20 | ).#@116.Rotate.LIST.N.places.to. |
| 7780 | 74 68 65 20 72 69 67 68 74 2e 20 20 57 69 74 68 20 4e 20 6e 65 67 61 74 69 76 65 2c 20 72 6f 74 | the.right...With.N.negative,.rot |
| 77a0 | 61 74 65 20 74 6f 20 74 68 65 20 6c 65 66 74 2e 0a 54 68 65 20 74 69 6d 65 20 63 6f 6d 70 6c 65 | ate.to.the.left..The.time.comple |
| 77c0 | 78 69 74 79 20 69 73 20 4f 28 6e 29 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 | xity.is.O(n)...(fn.N.LIST)..(def |
| 77e0 | 61 6c 69 61 73 20 27 2d 72 6f 74 61 74 65 20 23 5b 35 31 34 20 22 01 5c 33 30 30 56 5c 32 30 33 | alias.'-rotate.#[514.".\300V\203 |
| 7800 | 11 00 5c 33 30 31 5c 33 30 32 02 04 5c 22 5c 33 30 33 03 05 5c 22 5c 22 5c 32 30 37 5c 33 30 31 | ..\301\302..\"\303..\"\"\207\301 |
| 7820 | 5c 33 30 34 03 5b 03 5c 22 5c 33 30 35 04 5b 04 5c 22 5c 22 5c 32 30 37 22 20 5b 30 20 61 70 70 | \304.[.\"\305.[.\"\"\207".[0.app |
| 7840 | 65 6e 64 20 6c 61 73 74 20 62 75 74 6c 61 73 74 20 2d 64 72 6f 70 20 2d 74 61 6b 65 5d 20 37 20 | end.last.butlast.-drop.-take].7. |
| 7860 | 28 23 24 20 2e 20 33 30 35 36 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | (#$...30568)]).(byte-code."\300\ |
| 7880 | 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 33 | 301\302\303#\210\300\301\304\303 |
| 78a0 | 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 6f 74 61 74 65 20 70 75 72 | #\207".[function-put.-rotate.pur |
| 78c0 | 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 30 38 20 52 | e.t.side-effect-free].4).#@108.R |
| 78e0 | 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 58 20 69 6e 73 65 72 74 65 64 20 69 6e 74 | eturn.a.list.with.X.inserted.int |
| 7900 | 6f 20 4c 49 53 54 20 61 74 20 70 6f 73 69 74 69 6f 6e 20 4e 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a | o.LIST.at.position.N...See.also: |
| 7920 | 20 60 2d 73 70 6c 69 63 65 27 2c 20 60 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 0a 0a 28 66 6e 20 | .`-splice',.`-splice-list'..(fn. |
| 7940 | 4e 20 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 73 65 72 74 2d 61 74 | N.X.LIST)..(defalias.'-insert-at |
| 7960 | 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 42 5c 32 34 34 5c 32 | .#[771."\300..\"\211@..A@B\244\2 |
| 7980 | 30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 33 30 39 34 33 29 5d 29 | 07".[-split-at].7.(#$...30943)]) |
| 79a0 | 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 |
| 79c0 | 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 69 | 10\300\301\304\303#\207".[functi |
| 79e0 | 6f 6e 2d 70 75 74 20 2d 69 6e 73 65 72 74 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 | on-put.-insert-at.pure.t.side-ef |
| 7a00 | 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 30 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 | fect-free].4).#@106.Return.a.lis |
| 7a20 | 74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69 | t.with.element.at.Nth.position.i |
| 7a40 | 6e 20 4c 49 53 54 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 58 2e 0a 0a 53 65 65 20 61 6c 73 | n.LIST.replaced.with.X...See.als |
| 7a60 | 6f 3a 20 60 2d 72 65 70 6c 61 63 65 27 0a 0a 28 66 6e 20 4e 20 58 20 4c 49 53 54 29 1f 0a 28 64 | o:.`-replace'..(fn.N.X.LIST)..(d |
| 7a80 | 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30 | efalias.'-replace-at.#[771."\300 |
| 7aa0 | 03 02 5c 22 5c 32 31 31 40 03 02 41 40 41 42 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 | ..\"\211@..A@AB\244\207".[-split |
| 7ac0 | 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 33 31 32 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | -at].7.(#$...31252)]).(byte-code |
| 7ae0 | 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\ |
| 7b00 | 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 72 65 70 | 304\303#\207".[function-put.-rep |
| 7b20 | 6c 61 63 65 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 | lace-at.pure.t.side-effect-free] |
| 7b40 | 20 34 29 0a 23 40 31 33 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65 | .4).#@130.Return.a.list.with.ele |
| 7b60 | 6d 65 6e 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 | ment.at.Nth.position.in.LIST.rep |
| 7b80 | 6c 61 63 65 64 20 77 69 74 68 20 60 28 66 75 6e 63 20 28 6e 74 68 20 6e 20 6c 69 73 74 29 29 60 | laced.with.`(func.(nth.n.list))` |
| 7ba0 | 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 77 68 65 6e 27 0a 0a 28 66 6e 20 4e 20 | ...See.also:.`-map-when'..(fn.N. |
| 7bc0 | 46 55 4e 43 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 70 64 61 74 65 2d 61 | FUNC.LIST)..(defalias.'-update-a |
| 7be0 | 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 40 21 02 41 40 41 | t.#[771."\300..\"\211@..A@@!.A@A |
| 7c00 | 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 33 | B\244\207".[-split-at].7.(#$...3 |
| 7c20 | 31 35 36 32 29 5d 29 0a 23 40 35 34 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f | 1562)]).#@54.Anaphoric.version.o |
| 7c40 | 66 20 60 2d 75 70 64 61 74 65 2d 61 74 27 2e 0a 0a 28 66 6e 20 4e 20 46 4f 52 4d 20 4c 49 53 54 | f.`-update-at'...(fn.N.FORM.LIST |
| 7c60 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27 28 6d 61 63 72 | )..(defalias.'--update-at.'(macr |
| 7c80 | 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 05 45 03 46 5c 32 30 37 | o...#[771."\300.\301\302.E.F\207 |
| 7ca0 | 22 20 5b 2d 75 70 64 61 74 65 2d 61 74 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 38 20 28 23 24 | ".[-update-at.lambda.(it)].8.(#$ |
| 7cc0 | 20 2e 20 33 31 37 38 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27 | ...31789)])).(put.'--update-at.' |
| 7ce0 | 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 20 66 6f 72 | edebug-form-spec.'(form.form.for |
| 7d00 | 6d 29 29 0a 23 40 31 31 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65 | m)).#@117.Return.a.list.with.ele |
| 7d20 | 6d 65 6e 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 6d | ment.at.Nth.position.in.LIST.rem |
| 7d40 | 6f 76 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 | oved...See.also:.`-remove-at-ind |
| 7d60 | 69 63 65 73 27 2c 20 60 2d 72 65 6d 6f 76 65 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 | ices',.`-remove'..(fn.N.LIST)..( |
| 7d80 | 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 | defalias.'-remove-at.#[514."\300 |
| 7da0 | 02 43 02 5c 22 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 5d 20 | .C.\"\207".[-remove-at-indices]. |
| 7dc0 | 35 20 28 23 24 20 2e 20 33 32 30 31 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | 5.(#$...32010)]).(byte-code."\30 |
| 7de0 | 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 33 | 0\301\302\303#\210\300\301\304\3 |
| 7e00 | 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 61 | 03#\207".[function-put.-remove-a |
| 7e20 | 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).#@ |
| 7e40 | 31 37 35 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 | 175.Return.a.list.whose.elements |
| 7e60 | 20 61 72 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 20 77 69 74 68 6f 75 74 0a | .are.elements.from.LIST.without. |
| 7e80 | 65 6c 65 6d 65 6e 74 73 20 73 65 6c 65 63 74 65 64 20 61 73 20 60 28 6e 74 68 20 69 20 6c 69 73 | elements.selected.as.`(nth.i.lis |
| 7ea0 | 74 29 60 20 66 6f 72 20 61 6c 6c 20 69 0a 66 72 6f 6d 20 49 4e 44 49 43 45 53 2e 0a 0a 53 65 65 | t)`.for.all.i.from.INDICES...See |
| 7ec0 | 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 2d 61 74 27 2c 20 60 2d 72 65 6d 6f 76 65 27 0a 0a | .also:.`-remove-at',.`-remove'.. |
| 7ee0 | 28 66 6e 20 49 4e 44 49 43 45 53 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 | (fn.INDICES.LIST)..(defalias.'-r |
| 7f00 | 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 | emove-at-indices.#[514."\300\301 |
| 7f20 | 03 5c 22 5c 32 31 31 40 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 41 06 06 23 5c 22 42 | .\"\211@\302\303\304\305.A..#\"B |
| 7f40 | 5c 33 30 36 01 5c 33 30 37 01 5c 32 30 33 38 00 01 40 5c 33 31 30 01 06 08 5c 22 5c 32 31 31 40 | \306.\307.\2038..@\310...\"\211@ |
| 7f60 | 05 42 5c 32 36 32 05 5c 32 31 31 41 40 41 5c 32 36 32 08 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 | .B\262.\211A@A\262.\266.\211T\26 |
| 7f80 | 32 01 01 41 5c 32 36 32 02 5c 32 30 32 14 00 5c 32 36 36 02 03 01 42 5c 32 36 32 01 5c 33 31 31 | 2..A\262.\202..\266...B\262.\311 |
| 7fa0 | 5c 33 31 32 02 5c 32 33 37 5c 22 5c 32 30 37 22 20 5b 2d 73 6f 72 74 20 3c 20 2d 6d 61 70 20 31 | \312.\237\"\207".[-sort.<.-map.1 |
| 7fc0 | 2d 20 2d 7a 69 70 2d 77 69 74 68 20 2d 20 6e 69 6c 20 30 20 2d 73 70 6c 69 74 2d 61 74 20 61 70 | -.-zip-with.-.nil.0.-split-at.ap |
| 7fe0 | 70 6c 79 20 2d 63 6f 6e 63 61 74 5d 20 31 31 20 28 23 24 20 2e 20 33 32 33 32 34 29 5d 29 0a 28 | ply.-concat].11.(#$...32324)]).( |
| 8000 | 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 |
| 8020 | 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 |
| 8040 | 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 | -put.-remove-at-indices.pure.t.s |
| 8060 | 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 6e 61 70 68 6f 72 | ide-effect-free].4).#@50.Anaphor |
| 8080 | 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 74 2d 77 69 74 68 27 2e 0a 0a 28 66 6e 20 50 | ic.form.of.`-split-with'...(fn.P |
| 80a0 | 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 74 2d 77 69 | RED.LIST)..(defalias.'--split-wi |
| 80c0 | 74 68 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 | th.'(macro...#[514."\300\301!\30 |
| 80e0 | 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 05 44 03 5c 33 30 35 42 03 5c 33 30 | 0\302!\300\303!\304..D.\305B.\30 |
| 8100 | 36 42 45 5c 33 30 37 5c 33 31 30 06 06 05 45 5c 33 30 34 5c 33 31 31 5c 33 31 32 06 09 44 44 43 | 6BE\307\310...E\304\311\312..DDC |
| 8120 | 5c 33 31 33 5c 33 31 34 06 5c 66 44 5c 33 31 35 06 09 5c 33 31 36 42 42 5c 33 31 37 5c 33 31 31 | \313\314.\fD\315..\316BB\317\311 |
| 8140 | 06 5c 66 45 5c 33 32 30 06 0d 44 5c 32 35 37 05 45 45 5c 33 32 31 5c 33 32 32 06 06 44 06 07 45 | .\fE\320..D\257.EE\321\322..D..E |
| 8160 | 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 72 65 73 75 | F\207".[make-symbol."list"."resu |
| 8180 | 6c 74 22 20 22 63 6f 6e 74 69 6e 75 65 22 20 6c 65 74 20 28 6e 69 6c 29 20 28 74 29 20 77 68 69 | lt"."continue".let.(nil).(t).whi |
| 81a0 | 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 69 66 20 6e 6f 74 20 73 65 74 71 20 28 6e 69 6c 29 20 | le.and.it.car.if.not.setq.(nil). |
| 81c0 | 21 63 6f 6e 73 20 21 63 64 72 20 6c 69 73 74 20 6e 72 65 76 65 72 73 65 5d 20 31 37 20 28 23 24 | !cons.!cdr.list.nreverse].17.(#$ |
| 81e0 | 20 2e 20 33 32 38 38 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 74 2d 77 69 74 68 20 | ...32889)])).(put.'--split-with. |
| 8200 | 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)). |
| 8220 | 23 40 31 32 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 2d 74 61 6b 65 2d 77 | #@128.Return.a.list.of.((-take-w |
| 8240 | 68 69 6c 65 20 50 52 45 44 20 4c 49 53 54 29 20 28 2d 64 72 6f 70 2d 77 68 69 6c 65 20 50 52 45 | hile.PRED.LIST).(-drop-while.PRE |
| 8260 | 44 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 | D.LIST)),.in.no.more.than.one.pa |
| 8280 | 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 50 52 45 44 20 4c | ss.through.the.list...(fn.PRED.L |
| 82a0 | 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 69 74 68 20 23 5b 35 | IST)..(defalias.'-split-with.#[5 |
| 82c0 | 31 34 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 26 00 5c 32 31 31 5c 32 30 33 26 | 14."\211\300\301.\203&.\211\203& |
| 82e0 | 00 02 40 05 01 21 5c 32 30 34 19 00 5c 33 30 30 5c 32 36 32 02 5c 32 30 32 5c 22 00 5c 32 31 31 | ..@..!\204..\300\262.\202\".\211 |
| 8300 | 03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 30 5c 32 30 32 03 00 01 5c 32 33 37 03 44 5c | .B\262..A\262.\210\202...\237.D\ |
| 8320 | 32 30 37 22 20 5b 6e 69 6c 20 74 5d 20 38 20 28 23 24 20 2e 20 33 33 33 31 38 29 5d 29 0a 23 40 | 207".[nil.t].8.(#$...33318)]).#@ |
| 8340 | 32 32 34 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 | 224.Split.the.LIST.each.time.ITE |
| 8360 | 4d 20 69 73 20 66 6f 75 6e 64 2e 0a 0a 55 6e 6c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d | M.is.found...Unlike.`-partition- |
| 8380 | 62 79 27 2c 20 74 68 65 20 49 54 45 4d 20 69 73 20 64 69 73 63 61 72 64 65 64 20 66 72 6f 6d 20 | by',.the.ITEM.is.discarded.from. |
| 83a0 | 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 45 6d 70 74 79 20 6c 69 73 74 73 20 61 72 65 20 61 6c 73 | the.results..Empty.lists.are.als |
| 83c0 | 6f 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 0a 43 6f 6d 70 | o.removed.from.the.result...Comp |
| 83e0 | 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 62 79 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 | arison.is.done.by.`equal'...See. |
| 8400 | 61 6c 73 6f 20 60 2d 73 70 6c 69 74 2d 77 68 65 6e 27 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 | also.`-split-when'..(fn.ITEM.LIS |
| 8420 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27 28 6d 61 63 72 6f | T)..(defalias.'-split-on.'(macro |
| 8440 | 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 | ...#[514."\300\301\302\303\304.. |
| 8460 | 45 45 02 45 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 77 68 65 6e 20 6c 61 6d 62 64 61 20 28 69 | EE.E\207".[-split-when.lambda.(i |
| 8480 | 74 29 20 65 71 75 61 6c 20 69 74 5d 20 38 20 28 23 24 20 2e 20 33 33 36 30 34 29 5d 29 29 0a 28 | t).equal.it].8.(#$...33604)])).( |
| 84a0 | 70 75 74 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | put.'-split-on.'edebug-form-spec |
| 84c0 | 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 76 65 | .'(form.form)).#@53.Anaphoric.ve |
| 84e0 | 72 73 69 6f 6e 20 6f 66 20 60 2d 73 70 6c 69 74 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e 20 46 4f 52 | rsion.of.`-split-when'...(fn.FOR |
| 8500 | 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 74 2d 77 68 65 6e | M.LIST)..(defalias.'--split-when |
| 8520 | 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 |
| 8540 | 02 45 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 77 68 65 6e 20 6c 61 6d 62 64 61 20 28 69 74 29 | .E\207".[-split-when.lambda.(it) |
| 8560 | 5d 20 36 20 28 23 24 20 2e 20 33 34 30 30 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 | ].6.(#$...34004)])).(put.'--spli |
| 8580 | 74 2d 77 68 65 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 | t-when.'edebug-form-spec.'(form. |
| 85a0 | 66 6f 72 6d 29 29 0a 23 40 32 36 39 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20 6f 6e 20 65 | form)).#@269.Split.the.LIST.on.e |
| 85c0 | 61 63 68 20 65 6c 65 6d 65 6e 74 20 77 68 65 72 65 20 46 4e 20 72 65 74 75 72 6e 73 20 6e 6f 6e | ach.element.where.FN.returns.non |
| 85e0 | 2d 6e 69 6c 2e 0a 0a 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 | -nil...Unlike.`-partition-by',.t |
| 8600 | 68 65 20 22 6d 61 74 63 68 65 64 22 20 65 6c 65 6d 65 6e 74 20 69 73 20 64 69 73 63 61 72 64 65 | he."matched".element.is.discarde |
| 8620 | 64 20 66 72 6f 6d 0a 74 68 65 20 72 65 73 75 6c 74 73 2e 20 20 45 6d 70 74 79 20 6c 69 73 74 73 | d.from.the.results...Empty.lists |
| 8640 | 20 61 72 65 20 61 6c 73 6f 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c | .are.also.removed.from.the.resul |
| 8660 | 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 74 68 6f 75 67 68 74 | t...This.function.can.be.thought |
| 8680 | 20 6f 66 20 61 73 20 61 20 67 65 6e 65 72 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 0a 60 73 70 6c 69 | .of.as.a.generalization.of.`spli |
| 86a0 | 74 2d 73 74 72 69 6e 67 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | t-string'...(fn.FN.LIST)..(defal |
| 86c0 | 69 61 73 20 27 2d 73 70 6c 69 74 2d 77 68 65 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 | ias.'-split-when.#[514."\300\211 |
| 86e0 | 02 5c 32 30 33 2a 00 03 03 40 21 5c 32 30 34 16 00 02 40 01 42 5c 32 36 32 01 5c 32 30 32 23 00 | .\203*...@!\204...@.B\262.\202#. |
| 8700 | 5c 32 31 31 5c 32 30 33 20 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 5c 33 30 30 5c 32 36 | \211\203..\211\237.B\262.\300\26 |
| 8720 | 32 01 02 41 5c 32 36 32 03 5c 32 30 32 02 00 5c 32 31 31 5c 32 30 33 34 00 5c 32 31 31 5c 32 33 | 2..A\262.\202..\211\2034.\211\23 |
| 8740 | 37 02 42 5c 32 36 32 02 01 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e | 7.B\262..\237\207".[nil].6.(#$.. |
| 8760 | 20 33 34 32 32 31 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 | .34221)]).#@48.Anaphoric.form.of |
| 8780 | 20 60 2d 73 65 70 61 72 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 | .`-separate'...(fn.FORM.LIST)..( |
| 87a0 | 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 65 70 61 72 61 74 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 | defalias.'--separate.'(macro...# |
| 87c0 | 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 33 02 02 44 5c | [514."\300\301!\300\302!\303..D\ |
| 87e0 | 33 30 34 05 5c 33 30 35 06 08 5c 33 30 36 5c 33 30 37 06 09 45 5c 33 30 36 5c 33 30 37 06 09 45 | 304.\305..\306\307..E\306\307..E |
| 8800 | 46 45 5c 33 31 30 5c 33 31 31 06 06 44 5c 33 31 31 06 06 44 45 46 5c 32 30 37 22 20 5b 6d 61 6b | FE\310\311..D\311..DEF\207".[mak |
| 8820 | 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 20 69 | e-symbol."yes"."no".let.--each.i |
| 8840 | 66 20 21 63 6f 6e 73 20 69 74 20 6c 69 73 74 20 6e 72 65 76 65 72 73 65 5d 20 31 34 20 28 23 24 | f.!cons.it.list.nreverse].14.(#$ |
| 8860 | 20 2e 20 33 34 36 37 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 65 70 61 72 61 74 65 20 27 65 | ...34671)])).(put.'--separate.'e |
| 8880 | 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)).#@ |
| 88a0 | 31 30 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 2d 66 69 6c 74 65 72 20 50 | 107.Return.a.list.of.((-filter.P |
| 88c0 | 52 45 44 20 4c 49 53 54 29 20 28 2d 72 65 6d 6f 76 65 20 50 52 45 44 20 4c 49 53 54 29 29 2c 20 | RED.LIST).(-remove.PRED.LIST)),. |
| 88e0 | 69 6e 20 6f 6e 65 20 70 61 73 73 20 74 68 72 6f 75 67 68 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 | in.one.pass.through.the.list...( |
| 8900 | 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 73 65 70 61 72 | fn.PRED.LIST)..(defalias.'-separ |
| 8920 | 61 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 33 30 31 01 5c 32 30 33 2a 00 01 | ate.#[514."\300\211.\301.\203*.. |
| 8940 | 40 06 06 01 21 5c 32 30 33 19 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 30 32 1e 00 5c 32 31 31 | @...!\203..\211.B\262.\202..\211 |
| 8960 | 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 30 32 | .B\262.\210\211T\262..A\262.\202 |
| 8980 | 04 00 5c 32 36 36 02 01 5c 32 33 37 01 5c 32 33 37 44 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 | ..\266..\237.\237D\207".[nil.0]. |
| 89a0 | 39 20 28 23 24 20 2e 20 33 34 39 38 30 29 5d 29 0a 23 40 38 35 20 50 72 69 76 61 74 65 3a 20 55 | 9.(#$...34980)]).#@85.Private:.U |
| 89c0 | 73 65 64 20 62 79 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 61 | sed.by.-partition-all-in-steps.a |
| 89e0 | 6e 64 20 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 2e 0a 0a 28 66 6e 20 4e 20 53 | nd.-partition-in-steps...(fn.N.S |
| 8a00 | 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 2d 70 61 72 74 69 74 69 | TEP.LIST)..(defalias.'---partiti |
| 8a20 | 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 20 23 5b 37 37 31 20 22 | on-all-in-steps-reversed.#[771." |
| 8a40 | 01 5c 33 30 30 57 5c 32 30 33 5c 6e 00 5c 33 30 31 5c 33 30 32 21 5c 32 31 30 5c 33 30 33 01 5c | .\300W\203\n.\301\302!\210\303.\ |
| 8a60 | 32 30 33 20 00 5c 33 30 34 04 03 5c 22 01 42 5c 32 36 32 01 5c 33 30 35 03 03 5c 22 5c 32 36 32 | 203..\304..\".B\262.\305..\"\262 |
| 8a80 | 02 5c 32 30 32 0b 00 5c 32 31 31 5c 32 30 37 22 20 5b 31 20 65 72 72 6f 72 20 22 53 74 65 70 20 | .\202..\211\207".[1.error."Step. |
| 8aa0 | 6d 75 73 74 20 62 65 20 61 20 70 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72 2c 20 6f 72 20 79 6f | must.be.a.positive.number,.or.yo |
| 8ac0 | 75 27 72 65 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 73 6f 6d 65 20 6a 75 69 63 79 20 69 6e 66 69 6e | u're.looking.at.some.juicy.infin |
| 8ae0 | 69 74 65 20 6c 6f 6f 70 73 2e 22 20 6e 69 6c 20 2d 74 61 6b 65 20 2d 64 72 6f 70 5d 20 37 20 28 | ite.loops.".nil.-take.-drop].7.( |
| 8b00 | 23 24 20 2e 20 33 35 32 35 34 29 5d 29 0a 23 40 31 36 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 | #$...35254)]).#@160.Return.a.new |
| 8b20 | 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 54 20 67 72 6f | .list.with.the.items.in.LIST.gro |
| 8b40 | 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 61 74 20 6f 66 | uped.into.N-sized.sublists.at.of |
| 8b60 | 66 73 65 74 73 20 53 54 45 50 20 61 70 61 72 74 2e 0a 54 68 65 20 6c 61 73 74 20 67 72 6f 75 70 | fsets.STEP.apart..The.last.group |
| 8b80 | 73 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 69 74 65 6d 73 2e | s.may.contain.less.than.N.items. |
| 8ba0 | 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d | ..(fn.N.STEP.LIST)..(defalias.'- |
| 8bc0 | 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 23 5b 37 37 31 20 22 5c 33 | partition-all-in-steps.#[771."\3 |
| 8be0 | 30 30 03 03 03 23 5c 32 33 37 5c 32 30 37 22 20 5b 2d 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c | 00...#\237\207".[---partition-al |
| 8c00 | 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e 20 33 35 36 | l-in-steps-reversed].7.(#$...356 |
| 8c20 | 30 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 30 32 5c 33 | 04)]).(byte-code."\300\301\302\3 |
| 8c40 | 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 |
| 8c60 | 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 | unction-put.-partition-all-in-st |
| 8c80 | 65 70 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 20 34 29 0a | eps.pure.t.side-effect-free].4). |
| 8ca0 | 23 40 32 30 32 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 | #@202.Return.a.new.list.with.the |
| 8cc0 | 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 69 | .items.in.LIST.grouped.into.N-si |
| 8ce0 | 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 61 | zed.sublists.at.offsets.STEP.apa |
| 8d00 | 72 74 2e 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 69 74 65 6d | rt..If.there.are.not.enough.item |
| 8d20 | 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 4e 2d 73 69 7a 65 64 | s.to.make.the.last.group.N-sized |
| 8d40 | 2c 0a 74 68 6f 73 65 20 69 74 65 6d 73 20 61 72 65 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 | ,.those.items.are.discarded...(f |
| 8d60 | 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 | n.N.STEP.LIST)..(defalias.'-part |
| 8d80 | 69 74 69 6f 6e 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 | ition-in-steps.#[771."\300...#\2 |
| 8da0 | 31 31 5c 32 30 33 18 00 5c 32 31 31 40 47 04 57 5c 32 30 33 18 00 5c 32 31 31 41 5c 32 36 32 01 | 11\203..\211@G.W\203..\211A\262. |
| 8dc0 | 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 2d 2d 2d 70 61 72 74 69 74 69 6f | \202..\211\237\207".[---partitio |
| 8de0 | 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e | n-all-in-steps-reversed].7.(#$.. |
| 8e00 | 20 33 36 30 30 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 | .36006)]).(byte-code."\300\301\3 |
| 8e20 | 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 |
| 8e40 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 | ".[function-put.-partition-in-st |
| 8e60 | 65 70 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 20 34 29 0a | eps.pure.t.side-effect-free].4). |
| 8e80 | 23 40 31 33 32 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 | #@132.Return.a.new.list.with.the |
| 8ea0 | 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 69 | .items.in.LIST.grouped.into.N-si |
| 8ec0 | 7a 65 64 20 73 75 62 6c 69 73 74 73 2e 0a 54 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 6d 61 79 | zed.sublists..The.last.group.may |
| 8ee0 | 20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 69 74 65 6d 73 2e 0a 0a 28 66 6e | .contain.less.than.N.items...(fn |
| 8f00 | 20 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 2d | .N.LIST)..(defalias.'-partition- |
| 8f20 | 61 6c 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 32 31 31 03 23 5c 32 30 37 22 20 5b 2d 70 61 | all.#[514."\300.\211.#\207".[-pa |
| 8f40 | 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 33 36 | rtition-all-in-steps].6.(#$...36 |
| 8f60 | 34 38 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 | 486)]).(byte-code."\300\301\302\ |
| 8f80 | 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".[ |
| 8fa0 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 20 70 75 72 65 | function-put.-partition-all.pure |
| 8fc0 | 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 37 35 20 52 65 | .t.side-effect-free].4).#@175.Re |
| 8fe0 | 74 75 72 6e 20 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 | turn.a.new.list.with.the.items.i |
| 9000 | 6e 20 4c 49 53 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 | n.LIST.grouped.into.N-sized.subl |
| 9020 | 69 73 74 73 2e 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 69 74 | ists..If.there.are.not.enough.it |
| 9040 | 65 6d 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 6c 61 73 74 20 67 72 6f 75 70 20 4e 2d 73 69 7a | ems.to.make.the.last.group.N-siz |
| 9060 | 65 64 2c 0a 74 68 6f 73 65 20 69 74 65 6d 73 20 61 72 65 20 64 69 73 63 61 72 64 65 64 2e 0a 0a | ed,.those.items.are.discarded... |
| 9080 | 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 70 61 72 74 69 74 69 | (fn.N.LIST)..(defalias.'-partiti |
| 90a0 | 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 32 31 31 03 23 5c 32 30 37 22 20 5b 2d 70 61 72 | on.#[514."\300.\211.#\207".[-par |
| 90c0 | 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 33 36 38 33 30 29 5d | tition-in-steps].6.(#$...36830)] |
| 90e0 | 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#\ |
| 9100 | 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 |
| 9120 | 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | ion-put.-partition.pure.t.side-e |
| 9140 | 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 72 69 63 20 66 6f | ffect-free].4).#@52.Anaphoric.fo |
| 9160 | 72 6d 20 6f 66 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d | rm.of.`-partition-by'...(fn.FORM |
| 9180 | 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 69 74 69 6f 6e 2d 62 | .LIST)..(defalias.'--partition-b |
| 91a0 | 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 30 31 21 5c 33 30 30 | y.'(macro...#[514."\300\301!\300 |
| 91c0 | 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 30 5c 33 30 34 21 5c 33 30 30 5c 33 30 35 21 | \302!\300\303!\300\304!\300\305! |
| 91e0 | 5c 33 30 36 01 06 07 44 43 5c 33 30 37 03 5c 33 31 30 06 09 5c 33 31 31 42 5c 33 31 32 5c 33 31 | \306...DC\307.\310..\311B\312\31 |
| 9200 | 33 06 08 44 44 06 5c 6e 5c 33 31 34 42 06 5c 6e 06 0f 44 06 09 5c 33 31 35 06 0b 44 44 5c 32 35 | 3..DD.\n\314B.\n..D..\315..DD\25 |
| 9220 | 37 05 5c 33 31 36 06 07 5c 33 31 30 5c 33 31 32 5c 33 31 33 06 0b 44 44 06 0b 06 11 44 44 5c 33 | 7.\316..\310\312\313..DD....DD\3 |
| 9240 | 31 37 5c 33 32 30 06 0e 06 0e 45 5c 33 32 31 5c 33 32 32 06 11 44 06 12 45 5c 33 32 33 06 11 5c | 17\320....E\321\322..D..E\323..\ |
| 9260 | 33 32 34 42 42 5c 33 32 33 06 11 06 11 45 5c 32 35 37 05 5c 33 32 31 5c 33 31 32 06 10 45 5c 33 | 324BB\323....E\257.\321\312..E\3 |
| 9280 | 32 35 06 0d 44 5c 32 35 37 05 45 5c 33 32 31 5c 33 32 32 06 5c 66 44 06 0d 45 5c 33 32 32 06 0d | 25..D\257.E\321\322.\fD..E\322.. |
| 92a0 | 44 5c 32 35 37 05 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 | D\257.EE\207".[make-symbol."resu |
| 92c0 | 6c 74 22 20 22 73 75 62 6c 69 73 74 22 20 22 76 61 6c 75 65 22 20 22 6e 65 77 2d 76 61 6c 75 65 | lt"."sublist"."value"."new-value |
| 92e0 | 22 20 22 6c 69 73 74 22 20 6c 65 74 20 77 68 65 6e 20 6c 65 74 2a 20 28 6e 69 6c 29 20 69 74 20 | "."list".let.when.let*.(nil).it. |
| 9300 | 63 61 72 20 28 28 6c 69 73 74 20 69 74 29 29 20 63 64 72 20 77 68 69 6c 65 20 75 6e 6c 65 73 73 | car.((list.it)).cdr.while.unless |
| 9320 | 20 65 71 75 61 6c 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 65 20 73 65 74 71 20 28 6e 69 6c 29 | .equal.!cons.nreverse.setq.(nil) |
| 9340 | 20 21 63 64 72 5d 20 32 34 20 28 23 24 20 2e 20 33 37 32 30 34 29 5d 29 29 0a 28 70 75 74 20 27 | .!cdr].24.(#$...37204)])).(put.' |
| 9360 | 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | --partition-by.'edebug-form-spec |
| 9380 | 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 33 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 | .'(form.form)).#@93.Apply.FN.to. |
| 93a0 | 65 61 63 68 20 69 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 | each.item.in.LIST,.splitting.it. |
| 93c0 | 65 61 63 68 20 74 69 6d 65 20 46 4e 20 72 65 74 75 72 6e 73 20 61 20 6e 65 77 20 76 61 6c 75 65 | each.time.FN.returns.a.new.value |
| 93e0 | 2e 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 70 61 72 | ...(fn.FN.LIST)..(defalias.'-par |
| 9400 | 74 69 74 69 6f 6e 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 35 42 00 5c | tition-by.#[514."\211\211\205B.\ |
| 9420 | 33 30 30 01 40 5c 32 31 31 43 05 02 21 04 41 5c 32 31 31 5c 32 30 33 38 00 5c 32 31 31 40 06 08 | 300.@\211C..!.A\211\2038.\211@.. |
| 9440 | 01 21 03 01 5c 32 33 32 5c 32 30 34 2c 00 04 5c 32 33 37 06 07 42 5c 32 36 32 07 5c 33 30 30 5c | .!..\232\204,..\237..B\262.\300\ |
| 9460 | 32 36 32 05 5c 32 31 31 5c 32 36 32 04 01 05 42 5c 32 36 32 05 02 41 5c 32 36 36 5c 32 30 33 5c | 262.\211\262...B\262..A\266\203\ |
| 9480 | 32 30 32 0f 00 02 5c 32 33 37 05 42 5c 32 36 32 05 04 5c 32 33 37 5c 32 36 36 5c 32 30 35 5c 32 | 202...\237.B\262..\237\266\205\2 |
| 94a0 | 30 37 22 20 5b 6e 69 6c 5d 20 31 32 20 28 23 24 20 2e 20 33 37 37 38 30 29 5d 29 0a 23 40 35 39 | 07".[nil].12.(#$...37780)]).#@59 |
| 94c0 | 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 74 69 6f 6e 2d 62 | .Anaphoric.form.of.`-partition-b |
| 94e0 | 79 2d 68 65 61 64 65 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 | y-header'...(fn.FORM.LIST)..(def |
| 9500 | 61 6c 69 61 73 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 20 27 28 6d | alias.'--partition-by-header.'(m |
| 9520 | 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 5c 33 30 32 21 | acro...#[514."\300\301!\300\302! |
| 9540 | 5c 33 30 30 5c 33 30 33 21 5c 33 30 30 5c 33 30 34 21 5c 33 30 30 5c 33 30 35 21 5c 33 30 30 5c | \300\303!\300\304!\300\305!\300\ |
| 9560 | 33 30 36 21 5c 33 30 37 01 06 08 44 43 5c 33 31 30 03 5c 33 31 31 06 5c 6e 5c 33 31 32 42 5c 33 | 306!\307...DC\310.\311.\n\312B\3 |
| 9580 | 31 33 5c 33 31 34 06 08 44 44 06 0b 5c 33 31 35 42 06 0b 06 10 44 06 0b 5c 33 31 36 42 06 5c 6e | 13\314..DD..\315B....D..\316B.\n |
| 95a0 | 5c 33 31 37 06 5c 66 44 44 5c 32 35 37 06 5c 33 32 30 06 07 5c 33 31 31 5c 33 31 33 5c 33 31 34 | \317.\fDD\257.\320..\311\313\314 |
| 95c0 | 06 0b 44 44 06 0b 06 12 44 44 5c 33 32 31 5c 33 32 32 06 0f 06 0e 45 5c 33 31 30 06 0f 5c 33 32 | ..DD....DD\321\322....E\310..\32 |
| 95e0 | 33 5c 33 32 34 06 14 44 06 15 45 5c 33 32 35 06 14 5c 33 32 36 42 42 5c 33 32 35 06 13 5c 33 32 | 3\324..D..E\325..\326BB\325..\32 |
| 9600 | 37 42 42 5c 32 35 37 05 5c 33 32 35 06 10 5c 33 33 30 42 42 46 5c 33 32 33 5c 33 31 33 06 11 45 | 7BB\257.\325..\330BBF\323\313..E |
| 9620 | 5c 33 33 31 06 0d 44 5c 32 35 37 05 45 5c 33 32 33 5c 33 32 34 06 0d 44 06 0e 45 5c 33 32 34 06 | \331..D\257.E\323\324..D..E\324. |
| 9640 | 0e 44 5c 32 35 37 05 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 | .D\257.EE\207".[make-symbol."res |
| 9660 | 75 6c 74 22 20 22 73 75 62 6c 69 73 74 22 20 22 68 65 61 64 65 72 2d 76 61 6c 75 65 22 20 22 73 | ult"."sublist"."header-value"."s |
| 9680 | 65 65 6e 2d 62 6f 64 79 3f 22 20 22 6e 65 77 2d 76 61 6c 75 65 22 20 22 6c 69 73 74 22 20 6c 65 | een-body?"."new-value"."list".le |
| 96a0 | 74 20 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 | t.when.let*.(nil).it.car.((list. |
| 96c0 | 69 74 29 29 20 28 6e 69 6c 29 20 63 64 72 20 77 68 69 6c 65 20 69 66 20 65 71 75 61 6c 20 21 63 | it)).(nil).cdr.while.if.equal.!c |
| 96e0 | 6f 6e 73 20 6e 72 65 76 65 72 73 65 20 73 65 74 71 20 28 6e 69 6c 29 20 28 6e 69 6c 29 20 28 74 | ons.nreverse.setq.(nil).(nil).(t |
| 9700 | 29 20 21 63 64 72 5d 20 32 37 20 28 23 24 20 2e 20 33 38 30 38 31 29 5d 29 29 0a 28 70 75 74 20 | ).!cdr].27.(#$...38081)])).(put. |
| 9720 | 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 20 27 65 64 65 62 75 67 2d 66 | '--partition-by-header.'edebug-f |
| 9740 | 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 31 39 20 41 70 70 | orm-spec.'(form.form)).#@219.App |
| 9760 | 6c 79 20 46 4e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e | ly.FN.to.the.first.item.in.LIST. |
| 9780 | 20 54 68 61 74 20 69 73 20 74 68 65 20 68 65 61 64 65 72 0a 76 61 6c 75 65 2e 20 41 70 70 6c 79 | .That.is.the.header.value..Apply |
| 97a0 | 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2c 20 73 70 6c 69 74 74 | .FN.to.each.item.in.LIST,.splitt |
| 97c0 | 69 6e 67 20 69 74 20 65 61 63 68 20 74 69 6d 65 20 46 4e 0a 72 65 74 75 72 6e 73 20 74 68 65 20 | ing.it.each.time.FN.returns.the. |
| 97e0 | 68 65 61 64 65 72 20 76 61 6c 75 65 2c 20 62 75 74 20 6f 6e 6c 79 20 61 66 74 65 72 20 73 65 65 | header.value,.but.only.after.see |
| 9800 | 69 6e 67 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 0a 6f 74 68 65 72 20 76 61 6c 75 65 20 28 74 68 | ing.at.least.one.other.value.(th |
| 9820 | 65 20 62 6f 64 79 29 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | e.body)...(fn.FN.LIST)..(defalia |
| 9840 | 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 20 23 5b 35 31 34 20 22 5c | s.'-partition-by-header.#[514."\ |
| 9860 | 32 31 31 5c 32 31 31 5c 32 30 35 4f 00 5c 33 30 30 01 40 5c 32 31 31 43 05 02 21 5c 33 30 30 05 | 211\211\205O.\300.@\211C..!\300. |
| 9880 | 41 5c 32 31 31 5c 32 30 33 44 00 5c 32 31 31 40 06 09 01 21 04 01 5c 32 33 32 5c 32 30 33 34 00 | A\211\203D.\211@...!..\232\2034. |
| 98a0 | 03 5c 32 30 33 37 00 05 5c 32 33 37 06 08 42 5c 32 36 32 08 5c 33 30 30 5c 32 36 32 06 5c 33 30 | .\2037..\237..B\262.\300\262.\30 |
| 98c0 | 30 5c 32 36 32 04 5c 32 30 32 37 00 5c 33 30 31 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 02 41 | 0\262.\2027.\301\262....B\262..A |
| 98e0 | 5c 32 36 36 5c 32 30 33 5c 32 30 32 10 00 03 5c 32 33 37 06 06 42 5c 32 36 32 06 05 5c 32 33 37 | \266\203\202...\237..B\262..\237 |
| 9900 | 5c 32 36 36 5c 32 30 36 5c 32 30 37 22 20 5b 6e 69 6c 20 74 5d 20 31 33 20 28 23 24 20 2e 20 33 | \266\206\207".[nil.t].13.(#$...3 |
| 9920 | 38 37 34 39 29 5d 29 0a 23 40 38 38 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 | 8749)]).#@88.Partition.directly. |
| 9940 | 61 66 74 65 72 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 | after.each.time.PRED.is.true.on. |
| 9960 | 61 6e 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 | an.element.of.LIST...(fn.PRED.LI |
| 9980 | 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 66 74 65 72 | ST)..(defalias.'-partition-after |
| 99a0 | 2d 70 72 65 64 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 35 5c 22 00 5c 33 30 30 02 02 41 5c | -pred.#[514."\211\205\".\300..A\ |
| 99c0 | 22 02 02 40 21 5c 32 30 33 18 00 01 40 43 01 42 5c 32 30 32 20 00 01 40 01 40 42 01 41 42 5c 32 | "..@!\203...@C.B\202...@.@B.AB\2 |
| 99e0 | 36 32 01 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 72 65 64 5d | 62.\207".[-partition-after-pred] |
| 9a00 | 20 35 20 28 23 24 20 2e 20 33 39 32 31 33 29 5d 29 0a 23 40 38 39 20 50 61 72 74 69 74 69 6f 6e | .5.(#$...39213)]).#@89.Partition |
| 9a20 | 20 64 69 72 65 63 74 6c 79 20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 50 52 45 44 20 | .directly.before.each.time.PRED. |
| 9a40 | 69 73 20 74 72 75 65 20 6f 6e 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a | is.true.on.an.element.of.LIST... |
| 9a60 | 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 27 2d 70 61 72 74 | (fn.PRED.LIST)..(defalias.'-part |
| 9a80 | 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | ition-before-pred.#[514."\300\30 |
| 9aa0 | 31 5c 33 30 32 04 5c 33 30 31 05 21 5c 22 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 20 | 1\302.\301.!\"\"\237\207".[-map. |
| 9ac0 | 72 65 76 65 72 73 65 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 5d 20 38 | reverse.-partition-after-pred].8 |
| 9ae0 | 20 28 23 24 20 2e 20 33 39 34 34 37 29 5d 29 0a 23 40 37 34 20 50 61 72 74 69 74 69 6f 6e 20 64 | .(#$...39447)]).#@74.Partition.d |
| 9b00 | 69 72 65 63 74 6c 79 20 61 66 74 65 72 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 4d 20 61 70 70 | irectly.after.each.time.ITEM.app |
| 9b20 | 65 61 72 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 | ears.in.LIST...(fn.ITEM.LIST)..( |
| 9b40 | 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 69 74 65 6d 20 | defalias.'-partition-after-item. |
| 9b60 | 23 5b 35 31 34 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 | #[514."\300\301\302\303\304\305. |
| 9b80 | 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 2d 70 61 72 74 | .!\306\"\307\310%.\"\207".[-part |
| 9ba0 | 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 | ition-after-pred.make-byte-code. |
| 9bc0 | 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 | 257."\211\300\232\207".vconcat.v |
| 9be0 | 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 20 39 20 28 23 24 | ector.[].3."\n\n(fn.ELE)"].9.(#$ |
| 9c00 | 20 2e 20 33 39 36 36 39 29 5d 29 0a 23 40 37 35 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 | ...39669)]).#@75.Partition.direc |
| 9c20 | 74 6c 79 20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 4d 20 61 70 70 65 61 72 | tly.before.each.time.ITEM.appear |
| 9c40 | 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 | s.in.LIST...(fn.ITEM.LIST)..(def |
| 9c60 | 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 69 74 65 6d 20 23 5b | alias.'-partition-before-item.#[ |
| 9c80 | 35 31 34 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 07 21 | 514."\300\301\302\303\304\305..! |
| 9ca0 | 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 | \306\"\307\310%.\"\207".[-partit |
| 9cc0 | 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 | ion-before-pred.make-byte-code.2 |
| 9ce0 | 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 | 57."\211\300\232\207".vconcat.ve |
| 9d00 | 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 20 39 20 28 23 24 20 | ctor.[].3."\n\n(fn.ELE)"].9.(#$. |
| 9d20 | 2e 20 33 39 39 35 33 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 | ..39953)]).#@48.Anaphoric.form.o |
| 9d40 | 66 20 60 2d 67 72 6f 75 70 2d 62 79 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a | f.`-group-by'...(fn.FORM.LIST).. |
| 9d60 | 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 67 72 6f 75 70 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 | (defalias.'--group-by.'(macro... |
| 9d80 | 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 |
| 9da0 | 33 21 5c 33 30 34 5c 33 30 35 5c 33 30 36 05 43 5c 33 30 37 5c 33 31 30 06 08 44 5c 33 30 34 5c | 3!\304\305\306.C\307\310..D\304\ |
| 9dc0 | 33 31 31 06 5c 6e 44 44 45 45 5c 33 31 32 5c 33 31 33 06 06 06 5c 6e 44 06 06 5c 33 31 34 06 09 | 311.\nDDEE\312\313...\nD..\314.. |
| 9de0 | 5c 33 31 35 42 42 44 44 5c 33 31 36 06 07 5c 33 31 37 06 09 5c 33 30 37 5c 33 32 30 5c 33 31 31 | \315BBDD\316..\317..\307\320\311 |
| 9e00 | 06 0d 44 45 45 5c 33 32 31 5c 33 32 32 06 5c 66 5c 33 32 33 42 42 5c 33 32 34 42 42 46 5c 33 32 | ..DEE\321\322.\f\323BB\324BBF\32 |
| 9e20 | 35 42 42 42 5c 33 32 36 06 09 46 45 44 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 | 5BBB\326..FED\207".[make-symbol. |
| 9e40 | 22 6e 22 20 22 6b 22 20 22 67 72 70 22 20 6e 72 65 76 65 72 73 65 20 2d 6d 61 70 20 6c 61 6d 62 | "n"."k"."grp".nreverse.-map.lamb |
| 9e60 | 64 61 20 63 6f 6e 73 20 63 61 72 20 63 64 72 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 65 | da.cons.car.cdr.--reduce-from.le |
| 9e80 | 74 2a 20 61 73 73 6f 63 20 28 61 63 63 29 20 69 66 20 73 65 74 63 64 72 20 69 74 20 70 75 73 68 | t*.assoc.(acc).if.setcdr.it.push |
| 9ea0 | 20 6c 69 73 74 20 28 69 74 29 20 28 61 63 63 29 20 28 61 63 63 29 20 6e 69 6c 5d 20 31 39 20 28 | .list.(it).(acc).(acc).nil].19.( |
| 9ec0 | 23 24 20 2e 20 34 30 32 34 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 67 72 6f 75 70 2d 62 79 20 | #$...40240)])).(put.'--group-by. |
| 9ee0 | 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 29 0a 23 40 31 32 35 20 53 65 70 61 72 | 'edebug-form-spec.t).#@125.Separ |
| 9f00 | 61 74 65 20 4c 49 53 54 20 69 6e 74 6f 20 61 6e 20 61 6c 69 73 74 20 77 68 6f 73 65 20 6b 65 79 | ate.LIST.into.an.alist.whose.key |
| 9f20 | 73 20 61 72 65 20 46 4e 20 61 70 70 6c 69 65 64 20 74 6f 20 74 68 65 0a 65 6c 65 6d 65 6e 74 73 | s.are.FN.applied.to.the.elements |
| 9f40 | 20 6f 66 20 4c 49 53 54 2e 20 20 4b 65 79 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 62 79 20 | .of.LIST...Keys.are.compared.by. |
| 9f60 | 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 61 | `equal'...(fn.FN.LIST)..(defalia |
| 9f80 | 73 20 27 2d 67 72 6f 75 70 2d 62 79 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | s.'-group-by.#[514."\300\301\302 |
| 9fa0 | 03 5c 33 30 33 01 5c 32 30 33 3b 00 01 40 06 07 01 21 5c 33 30 34 01 06 06 5c 22 5c 32 31 31 5c | .\303.\203;..@...!\304...\"\211\ |
| 9fc0 | 32 30 33 5c 22 00 5c 32 31 31 03 02 41 42 5c 32 34 31 5c 32 31 30 5c 32 30 32 2a 00 01 03 44 06 | 203\".\211..AB\241\210\202*...D. |
| 9fe0 | 06 42 5c 32 36 32 06 05 5c 32 36 36 5c 32 30 32 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 | .B\262..\266\202\262.\210\211T\2 |
| a000 | 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 36 32 01 5c 22 | 62..A\262.\202..\266.\211\262.\" |
| a020 | 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 5c 32 | \237\207".[-map.#[257."\211@.A\2 |
| a040 | 33 37 42 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 4e 29 22 5d 20 6e 69 6c 20 | 37B\207".[].3."\n\n(fn.N)"].nil. |
| a060 | 30 20 61 73 73 6f 63 5d 20 31 33 20 28 23 24 20 2e 20 34 30 36 39 39 29 5d 29 0a 23 40 37 36 20 | 0.assoc].13.(#$...40699)]).#@76. |
| a080 | 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 | Return.a.new.list.of.all.element |
| a0a0 | 73 20 69 6e 20 4c 49 53 54 20 73 65 70 61 72 61 74 65 64 20 62 79 20 53 45 50 2e 0a 0a 28 66 6e | s.in.LIST.separated.by.SEP...(fn |
| a0c0 | 20 53 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 70 6f 73 | .SEP.LIST)..(defalias.'-interpos |
| a0e0 | 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 32 30 33 0f 00 01 40 01 42 5c 32 36 32 01 01 41 5c | e.#[514."\300.\203...@.B\262..A\ |
| a100 | 32 36 32 02 01 5c 32 30 33 5c 22 00 01 40 03 02 42 42 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 | 262..\203\"..@..BB\262..A\262.\2 |
| a120 | 30 32 0f 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 | 02..\211\237\207".[nil].6.(#$... |
| a140 | 34 31 30 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 30 | 41088)]).(byte-code."\300\301\30 |
| a160 | 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" |
| a180 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e 74 65 72 70 6f 73 65 20 70 75 72 65 20 74 | .[function-put.-interpose.pure.t |
| a1a0 | 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 30 20 52 65 74 75 72 | .side-effect-free].4).#@90.Retur |
| a1c0 | 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 | n.a.new.list.of.the.first.item.i |
| a1e0 | 6e 20 65 61 63 68 20 6c 69 73 74 2c 20 74 68 65 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 65 74 63 | n.each.list,.then.the.second.etc |
| a200 | 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 61 6c 69 61 73 20 27 | ...(fn.&rest.LISTS)..(defalias.' |
| a220 | 2d 69 6e 74 65 72 6c 65 61 76 65 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 35 00 5c 33 30 | -interleave.#[128."\211\2055.\30 |
| a240 | 30 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 33 31 00 01 5c 33 30 33 01 5c 32 30 33 26 00 01 40 | 0\301\302.\"\2031..\303.\203&..@ |
| a260 | 5c 32 31 31 40 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 | \211@.B\262.\210\211T\262..A\262 |
| a280 | 02 5c 32 30 32 0e 00 5c 32 36 36 02 5c 33 30 34 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32 | .\202..\266.\304\305.\"\262.\202 |
| a2a0 | 05 00 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c | ..\211\237\262.\207".[nil.-none\ |
| a2c0 | 3f 20 6e 75 6c 6c 20 30 20 2d 6d 61 70 20 63 64 72 5d 20 37 20 28 23 24 20 2e 20 34 31 34 30 33 | ?.null.0.-map.cdr].7.(#$...41403 |
| a2e0 | 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 |
| a300 | 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 |
| a320 | 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e 74 65 72 6c 65 61 76 65 20 70 75 72 65 20 74 20 73 69 64 | ction-put.-interleave.pure.t.sid |
| a340 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 34 35 20 41 6e 61 70 68 6f 72 69 | e-effect-free].4).#@145.Anaphori |
| a360 | 63 20 66 6f 72 6d 20 6f 66 20 60 2d 7a 69 70 2d 77 69 74 68 27 2e 0a 0a 54 68 65 20 65 6c 65 6d | c.form.of.`-zip-with'...The.elem |
| a380 | 65 6e 74 73 20 69 6e 20 6c 69 73 74 31 20 61 72 65 20 62 6f 75 6e 64 20 61 73 20 73 79 6d 62 6f | ents.in.list1.are.bound.as.symbo |
| a3a0 | 6c 20 60 69 74 27 2c 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 73 74 32 20 61 73 | l.`it',.the.elements.in.list2.as |
| a3c0 | 20 73 79 6d 62 6f 6c 20 60 6f 74 68 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 31 | .symbol.`other'...(fn.FORM.LIST1 |
| a3e0 | 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 7a 69 70 2d 77 69 74 68 20 27 | .LIST2)..(defalias.'--zip-with.' |
| a400 | 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 | (macro...#[771."\300\301!\300\30 |
| a420 | 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 5c 33 30 35 42 03 06 07 44 03 06 07 44 45 5c 33 | 2!\300\303!\304.\305B...D...DE\3 |
| a440 | 30 36 5c 33 30 37 05 05 45 5c 33 30 34 5c 33 31 30 5c 33 31 31 06 08 44 44 5c 33 31 32 5c 33 31 | 06\307..E\304\310\311..DD\312\31 |
| a460 | 31 06 08 44 44 44 5c 33 31 33 06 5c 66 06 5c 6e 45 5c 33 31 34 06 09 44 5c 33 31 34 06 09 44 5c | 1..DDD\313.\f.\nE\314..D\314..D\ |
| a480 | 32 35 37 05 45 5c 33 31 35 06 06 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 | 257.E\315..DF\207".[make-symbol. |
| a4a0 | 22 72 65 73 75 6c 74 22 20 22 6c 69 73 74 31 22 20 22 6c 69 73 74 32 22 20 6c 65 74 20 28 6e 69 | "result"."list1"."list2".let.(ni |
| a4c0 | 6c 29 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 6f 74 68 65 72 20 21 63 6f 6e 73 20 | l).while.and.it.car.other.!cons. |
| a4e0 | 21 63 64 72 20 6e 72 65 76 65 72 73 65 5d 20 31 36 20 28 23 24 20 2e 20 34 31 38 31 36 29 5d 29 | !cdr.nreverse].16.(#$...41816)]) |
| a500 | 29 0a 28 70 75 74 20 27 2d 2d 7a 69 70 2d 77 69 74 68 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d | ).(put.'--zip-with.'edebug-form- |
| a520 | 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 33 34 37 20 5a 69 | spec.'(form.form.form)).#@347.Zi |
| a540 | 70 20 74 68 65 20 74 77 6f 20 6c 69 73 74 73 20 4c 49 53 54 31 20 61 6e 64 20 4c 49 53 54 32 20 | p.the.two.lists.LIST1.and.LIST2. |
| a560 | 75 73 69 6e 67 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 2e 20 20 54 68 69 73 0a 66 75 6e 63 74 | using.a.function.FN...This.funct |
| a580 | 69 6f 6e 20 69 73 20 61 70 70 6c 69 65 64 20 70 61 69 72 77 69 73 65 20 74 61 6b 69 6e 67 20 61 | ion.is.applied.pairwise.taking.a |
| a5a0 | 73 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 4c 49 53 54 | s.first.argument.element.of.LIST |
| a5c0 | 31 20 61 6e 64 20 61 73 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 65 6c 65 6d 65 6e 74 | 1.and.as.second.argument.element |
| a5e0 | 20 6f 66 20 4c 49 53 54 32 20 61 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 70 6f 73 69 74 | .of.LIST2.at.corresponding.posit |
| a600 | 69 6f 6e 2e 0a 0a 54 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 7a 69 70 2d | ion...The.anaphoric.form.`--zip- |
| a620 | 77 69 74 68 27 20 62 69 6e 64 73 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 | with'.binds.the.elements.from.LI |
| a640 | 53 54 31 20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 27 2c 0a 61 6e 64 20 74 68 65 20 65 6c 65 6d | ST1.as.symbol.`it',.and.the.elem |
| a660 | 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 32 20 61 73 20 73 79 6d 62 6f 6c 20 60 6f 74 68 65 72 | ents.from.LIST2.as.symbol.`other |
| a680 | 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 | '...(fn.FN.LIST1.LIST2)..(defali |
| a6a0 | 61 73 20 27 2d 7a 69 70 2d 77 69 74 68 20 23 5b 37 37 31 20 22 5c 33 30 30 02 02 01 5c 32 30 33 | as.'-zip-with.#[771."\300...\203 |
| a6c0 | 23 00 5c 32 31 31 5c 32 30 33 23 00 01 40 01 40 06 07 02 02 5c 22 05 42 5c 32 36 32 05 03 41 5c | #.\211\203#..@.@....\".B\262..A\ |
| a6e0 | 32 36 32 04 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 03 00 02 5c 32 33 37 5c 32 30 37 22 20 5b | 262..A\266\203\202...\237\207".[ |
| a700 | 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 34 32 33 30 32 29 5d 29 0a 23 40 34 39 32 20 5a 69 70 | nil].11.(#$...42302)]).#@492.Zip |
| a720 | 20 4c 49 53 54 53 20 74 6f 67 65 74 68 65 72 2e 20 20 47 72 6f 75 70 20 74 68 65 20 68 65 61 64 | .LISTS.together...Group.the.head |
| a740 | 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 0a 73 | .of.each.list,.followed.by.the.s |
| a760 | 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 61 6e 64 | econd.elements.of.each.list,.and |
| a780 | 20 73 6f 20 6f 6e 2e 20 54 68 65 20 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74 75 72 | .so.on..The.lengths.of.the.retur |
| a7a0 | 6e 65 64 0a 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c | ned.groupings.are.equal.to.the.l |
| a7c0 | 65 6e 67 74 68 20 6f 66 20 74 68 65 20 73 68 6f 72 74 65 73 74 20 69 6e 70 75 74 20 6c 69 73 74 | ength.of.the.shortest.input.list |
| a7e0 | 2e 0a 0a 49 66 20 74 77 6f 20 6c 69 73 74 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 61 73 20 | ...If.two.lists.are.provided.as. |
| a800 | 61 72 67 75 6d 65 6e 74 73 2c 20 72 65 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 | arguments,.return.the.groupings. |
| a820 | 61 73 20 61 20 6c 69 73 74 0a 6f 66 20 63 6f 6e 73 20 63 65 6c 6c 73 2e 20 4f 74 68 65 72 77 69 | as.a.list.of.cons.cells..Otherwi |
| a840 | 73 65 2c 20 72 65 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 | se,.return.the.groupings.as.a.li |
| a860 | 73 74 20 6f 66 20 6c 69 73 74 73 2e 0a 0a 50 6c 65 61 73 65 20 6e 6f 74 65 21 20 54 68 69 73 20 | st.of.lists...Please.note!.This. |
| a880 | 64 69 73 74 69 6e 63 74 69 6f 6e 20 69 73 20 62 65 69 6e 67 20 72 65 6d 6f 76 65 64 20 69 6e 20 | distinction.is.being.removed.in. |
| a8a0 | 61 6e 20 75 70 63 6f 6d 69 6e 67 20 33 2e 30 0a 72 65 6c 65 61 73 65 20 6f 66 20 44 61 73 68 2e | an.upcoming.3.0.release.of.Dash. |
| a8c0 | 20 49 66 20 79 6f 75 20 72 65 6c 79 20 6f 6e 20 74 68 69 73 20 62 65 68 61 76 69 6f 72 2c 20 75 | .If.you.rely.on.this.behavior,.u |
| a8e0 | 73 65 20 2d 7a 69 70 2d 70 61 69 72 20 69 6e 73 74 65 61 64 2e 0a 0a 28 66 6e 20 26 72 65 73 74 | se.-zip-pair.instead...(fn.&rest |
| a900 | 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 20 23 5b 31 32 38 20 22 | .LISTS)..(defalias.'-zip.#[128." |
| a920 | 5c 32 31 31 5c 32 30 35 32 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 22 5c 32 30 33 1d 00 5c | \211\2052.\300\301\302.\"\203..\ |
| a940 | 33 30 33 5c 33 30 34 03 5c 22 01 42 5c 32 36 32 01 5c 33 30 33 5c 33 30 35 03 5c 22 5c 32 36 32 | 303\304.\".B\262.\303\305.\"\262 |
| a960 | 02 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 01 47 5c 33 30 36 55 5c 32 30 33 2f | .\202..\211\237\262..G\306U\203/ |
| a980 | 00 5c 33 30 33 5c 33 30 37 02 5c 22 5c 32 30 32 30 00 5c 32 31 31 5c 32 36 32 01 5c 32 30 37 22 | .\303\307.\"\2020.\211\262.\207" |
| a9a0 | 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c 3f 20 6e 75 6c 6c 20 6d 61 70 63 61 72 20 63 61 72 20 63 64 | .[nil.-none\?.null.mapcar.car.cd |
| a9c0 | 72 20 32 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 40 42 5c 32 30 37 22 20 5b 5d 20 33 20 22 | r.2.#[257."\211@.A@B\207".[].3." |
| a9e0 | 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 35 20 28 23 24 20 2e 20 34 32 37 38 31 29 5d 29 0a | \n\n(fn.IT)"]].5.(#$...42781)]). |
| aa00 | 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 31 | (byte-code."\300\301\302\303#\21 |
| aa20 | 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 | 0\300\301\304\303#\210\305\306\3 |
| aa40 | 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 20 70 75 72 | 01\"\207".[function-put.-zip.pur |
| aa60 | 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 7a | e.t.side-effect-free.defalias.-z |
| aa80 | 69 70 2d 70 61 69 72 5d 20 34 29 0a 23 40 31 37 37 20 5a 69 70 20 4c 49 53 54 53 2c 20 77 69 74 | ip-pair].4).#@177.Zip.LISTS,.wit |
| aaa0 | 68 20 46 49 4c 4c 2d 56 41 4c 55 45 20 70 61 64 64 65 64 20 6f 6e 74 6f 20 74 68 65 20 73 68 6f | h.FILL-VALUE.padded.onto.the.sho |
| aac0 | 72 74 65 72 20 6c 69 73 74 73 2e 20 54 68 65 0a 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 | rter.lists..The.lengths.of.the.r |
| aae0 | 65 74 75 72 6e 65 64 20 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 | eturned.groupings.are.equal.to.t |
| ab00 | 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 0a 6c 6f 6e 67 65 73 74 20 69 6e 70 75 74 20 6c | he.length.of.the.longest.input.l |
| ab20 | 69 73 74 2e 0a 0a 28 66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53 | ist...(fn.FILL-VALUE.&rest.LISTS |
| ab40 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 2d 66 69 6c 6c 20 23 5b 33 38 35 20 22 5c | )..(defalias.'-zip-fill.#[385."\ |
| ab60 | 33 30 30 5c 33 30 31 5c 33 30 30 5c 33 30 32 05 05 42 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 | 300\301\300\302..B\"\"\207".[app |
| ab80 | 6c 79 20 2d 7a 69 70 20 2d 70 61 64 5d 20 38 20 28 23 24 20 2e 20 34 33 36 36 36 29 5d 29 0a 28 | ly.-zip.-pad].8.(#$...43666)]).( |
| aba0 | 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 |
| abc0 | 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 |
| abe0 | 2d 70 75 74 20 2d 7a 69 70 2d 66 69 6c 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 | -put.-zip-fill.pure.t.side-effec |
| ac00 | 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 34 31 20 55 6e 7a 69 70 20 4c 49 53 54 53 2e 0a 0a 54 | t-free].4).#@241.Unzip.LISTS...T |
| ac20 | 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 74 20 6c 69 6b 65 20 60 2d 7a 69 70 27 20 62 75 74 20 74 | his.works.just.like.`-zip'.but.t |
| ac40 | 61 6b 65 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 69 6e 73 74 65 61 64 20 6f 66 0a | akes.a.list.of.lists.instead.of. |
| ac60 | 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 20 | a.variable.number.of.arguments,. |
| ac80 | 73 75 63 68 20 74 68 61 74 0a 0a 20 20 28 2d 75 6e 7a 69 70 20 28 2d 7a 69 70 20 4c 31 20 4c 32 | such.that....(-unzip.(-zip.L1.L2 |
| aca0 | 20 4c 33 20 2e 2e 2e 29 29 0a 0a 69 73 20 69 64 65 6e 74 69 74 79 20 28 67 69 76 65 6e 20 74 68 | .L3....))..is.identity.(given.th |
| acc0 | 61 74 20 74 68 65 20 6c 69 73 74 73 20 61 72 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 | at.the.lists.are.the.same.length |
| ace0 | 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 7a 69 70 27 0a 0a 28 66 6e 20 4c 49 53 54 53 29 | )...See.also:.`-zip'..(fn.LISTS) |
| ad00 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 7a 69 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c | ..(defalias.'-unzip.#[257."\300\ |
| ad20 | 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2d 7a 69 70 5d 20 34 20 28 23 24 20 2e | 301.\"\207".[apply.-zip].4.(#$.. |
| ad40 | 20 34 34 30 34 39 29 5d 29 0a 23 40 31 31 32 20 52 65 74 75 72 6e 20 61 6e 20 69 6e 66 69 6e 69 | .44049)]).#@112.Return.an.infini |
| ad60 | 74 65 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 74 68 61 74 20 77 69 6c 6c 20 63 79 63 6c 65 20 | te.copy.of.LIST.that.will.cycle. |
| ad80 | 74 68 72 6f 75 67 68 20 74 68 65 0a 65 6c 65 6d 65 6e 74 73 20 61 6e 64 20 72 65 70 65 61 74 20 | through.the.elements.and.repeat. |
| ada0 | 66 72 6f 6d 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a | from.the.beginning...(fn.LIST).. |
| adc0 | 28 64 65 66 61 6c 69 61 73 20 27 2d 63 79 63 6c 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 | (defalias.'-cycle.#[257."\300\30 |
| ade0 | 31 02 5c 22 5c 32 31 31 01 5c 32 34 34 5c 32 30 37 22 20 5b 2d 6d 61 70 20 69 64 65 6e 74 69 74 | 1.\"\211.\244\207".[-map.identit |
| ae00 | 79 5d 20 34 20 28 23 24 20 2e 20 34 34 33 36 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | y].4.(#$...44368)]).(byte-code." |
| ae20 | 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 |
| ae40 | 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 79 63 6c 65 | 4\303#\207".[function-put.-cycle |
| ae60 | 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 31 | .pure.t.side-effect-free].4).#@1 |
| ae80 | 32 38 20 41 70 70 65 6e 64 73 20 46 49 4c 4c 2d 56 41 4c 55 45 20 74 6f 20 74 68 65 20 65 6e 64 | 28.Appends.FILL-VALUE.to.the.end |
| aea0 | 20 6f 66 20 65 61 63 68 20 6c 69 73 74 20 69 6e 20 4c 49 53 54 53 20 73 75 63 68 20 74 68 61 74 | .of.each.list.in.LISTS.such.that |
| aec0 | 20 74 68 65 79 0a 77 69 6c 6c 20 61 6c 6c 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e | .they.will.all.have.the.same.len |
| aee0 | 67 74 68 2e 0a 0a 28 66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53 | gth...(fn.FILL-VALUE.&rest.LISTS |
| af00 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 64 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 | )..(defalias.'-pad.#[385."\300\3 |
| af20 | 30 31 02 5c 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 5c 22 21 5c 33 30 35 5c 33 30 36 5c 33 30 | 01.\"\302\303\304.\"!\305\306\30 |
| af40 | 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 09 06 07 5c 22 5c 33 31 33 5c 22 5c 33 31 34 5c 33 31 | 7\310\311\312....\"\313\"\314\31 |
| af60 | 35 25 03 5c 22 5c 32 30 37 22 20 5b 2d 61 6e 6e 6f 74 61 74 65 20 6c 65 6e 67 74 68 20 2d 6d 61 | 5%.\"\207".[-annotate.length.-ma |
| af80 | 78 20 2d 6d 61 70 20 63 61 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 | x.-map.car.mapcar.make-byte-code |
| afa0 | 20 32 35 37 20 22 5c 33 30 32 01 41 5c 33 30 33 5c 33 30 31 04 40 5a 5c 33 30 30 5c 22 5c 22 5c | .257."\302.A\303\301.@Z\300\"\"\ |
| afc0 | 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 61 70 70 65 6e 64 20 2d 72 65 70 | 207".vconcat.vector.[append.-rep |
| afe0 | 65 61 74 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 32 20 28 23 24 20 2e 20 34 | eat].6."\n\n(fn.IT)"].12.(#$...4 |
| b000 | 34 36 37 35 29 5d 29 0a 23 40 31 34 31 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 | 4675)]).#@141.Return.a.list.of.c |
| b020 | 6f 6e 73 20 63 65 6c 6c 73 20 77 68 65 72 65 20 65 61 63 68 20 63 65 6c 6c 20 69 73 20 46 4e 20 | ons.cells.where.each.cell.is.FN. |
| b040 | 61 70 70 6c 69 65 64 20 74 6f 20 65 61 63 68 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 | applied.to.each.element.of.LIST. |
| b060 | 70 61 69 72 65 64 20 77 69 74 68 20 74 68 65 20 75 6e 6d 6f 64 69 66 69 65 64 20 65 6c 65 6d 65 | paired.with.the.unmodified.eleme |
| b080 | 6e 74 20 6f 66 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 | nt.of.LIST...(fn.FN.LIST)..(defa |
| b0a0 | 6c 69 61 73 20 27 2d 61 6e 6e 6f 74 61 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 | lias.'-annotate.#[514."\300\301. |
| b0c0 | 03 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d 7a 69 70 20 2d 6d 61 70 5d 20 36 20 28 23 24 20 2e 20 | .\".\"\207".[-zip.-map].6.(#$... |
| b0e0 | 34 35 30 37 30 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 | 45070)]).#@51.Anaphoric.version. |
| b100 | 6f 66 20 60 2d 61 6e 6e 6f 74 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f | of.`-annotate'...(fn.FORM.LIST). |
| b120 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 28 6d 61 63 72 6f 20 2e | .(defalias.'--annotate.'(macro.. |
| b140 | 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 2d | .#[514."\300\301\302.E.E\207".[- |
| b160 | 61 6e 6e 6f 74 61 74 65 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 35 | annotate.lambda.(it)].6.(#$...45 |
| b180 | 32 39 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 65 64 65 62 75 67 | 294)])).(put.'--annotate.'edebug |
| b1a0 | 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 34 30 20 48 | -form-spec.'(form.form)).#@140.H |
| b1c0 | 65 6c 70 65 72 20 66 6f 72 20 60 2d 74 61 62 6c 65 27 20 61 6e 64 20 60 2d 74 61 62 6c 65 2d 66 | elper.for.`-table'.and.`-table-f |
| b1e0 | 6c 61 74 27 2e 0a 0a 49 66 20 61 20 6c 69 73 74 20 6f 76 65 72 66 6c 6f 77 73 2c 20 63 61 72 72 | lat'...If.a.list.overflows,.carr |
| b200 | 79 20 74 6f 20 74 68 65 20 72 69 67 68 74 20 61 6e 64 20 72 65 73 65 74 20 74 68 65 20 6c 69 73 | y.to.the.right.and.reset.the.lis |
| b220 | 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 53 20 52 45 53 54 4f 52 45 2d 4c 49 53 54 53 20 26 6f 70 74 | t...(fn.LISTS.RESTORE-LISTS.&opt |
| b240 | 69 6f 6e 61 6c 20 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 74 61 62 6c | ional.RE)..(defalias.'dash--tabl |
| b260 | 65 2d 63 61 72 72 79 20 23 5b 37 37 30 20 22 02 40 5c 32 30 36 08 00 02 5c 33 30 30 5c 32 33 32 | e-carry.#[770.".@\206...\300\232 |
| b280 | 3f 5c 32 30 35 43 00 02 02 40 5c 32 34 30 5c 32 31 30 02 5c 32 31 31 41 40 5c 32 31 31 02 41 02 | ?\205C...@\240\210.\211A@\211.A. |
| b2a0 | 41 5c 32 34 30 5c 32 31 30 5c 32 36 36 03 02 41 5c 32 36 32 03 01 41 5c 32 36 32 02 5c 32 31 31 | A\240\210\266..A\262..A\262.\211 |
| b2c0 | 5c 32 30 33 00 00 5c 32 31 31 40 5c 32 33 37 01 5c 32 31 31 41 02 02 41 40 42 5c 32 34 30 5c 32 | \203..\211@\237.\211A..A@B\240\2 |
| b2e0 | 36 36 03 5c 32 31 31 5c 33 30 31 5c 32 34 30 5c 32 31 30 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 | 66.\211\301\240\210\211A\262.\20 |
| b300 | 32 00 00 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 34 35 35 | 2..\207".[(nil).nil].8.(#$...455 |
| b320 | 30 33 29 5d 29 0a 23 40 33 35 32 20 43 6f 6d 70 75 74 65 20 6f 75 74 65 72 20 70 72 6f 64 75 63 | 03)]).#@352.Compute.outer.produc |
| b340 | 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 4e 2e 0a 0a 54 | t.of.LISTS.using.function.FN...T |
| b360 | 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 74 68 65 20 73 | he.function.FN.should.have.the.s |
| b380 | 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 73 75 70 70 6c | ame.arity.as.the.number.of.suppl |
| b3a0 | 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 63 74 20 69 73 | ied.lists...The.outer.product.is |
| b3c0 | 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 20 61 6c 6c 20 | .computed.by.applying.fn.to.all. |
| b3e0 | 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 65 64 20 62 79 | possible.combinations.created.by |
| b400 | 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 63 68 20 6c 69 | .taking.one.element.from.each.li |
| b420 | 73 74 20 69 6e 0a 6f 72 64 65 72 2e 20 20 54 68 65 20 64 69 6d 65 6e 73 69 6f 6e 20 6f 66 20 74 | st.in.order...The.dimension.of.t |
| b440 | 68 65 20 72 65 73 75 6c 74 20 69 73 20 28 6c 65 6e 67 74 68 20 6c 69 73 74 73 29 2e 0a 0a 53 65 | he.result.is.(length.lists)...Se |
| b460 | 65 20 61 6c 73 6f 3a 20 60 2d 74 61 62 6c 65 2d 66 6c 61 74 27 0a 0a 28 66 6e 20 46 4e 20 26 72 | e.also:.`-table-flat'..(fn.FN.&r |
| b480 | 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 62 6c 65 20 23 5b | est.LISTS)..(defalias.'-table.#[ |
| b4a0 | 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 30 32 03 47 5c 33 30 33 5c 22 01 40 5c | 385."\300.!\301.!\302.G\303\".@\ |
| b4c0 | 32 30 33 31 00 5c 33 30 34 05 5c 33 30 35 5c 33 30 36 06 07 5c 22 5c 22 01 5c 32 31 31 02 02 40 | 2031.\304.\305\306..\"\".\211..@ |
| b4e0 | 42 5c 32 34 30 5c 32 36 36 02 04 5c 32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 37 05 05 04 | B\240\266..\211@A\240\210\307... |
| b500 | 23 5c 32 36 36 02 5c 32 30 32 0b 00 5c 33 30 31 01 21 40 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f | #\266.\202..\301.!@\237\207".[co |
| b520 | 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6d 61 6b 65 2d 6c 69 73 74 20 6e 69 6c 20 61 | py-sequence.last.make-list.nil.a |
| b540 | 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 72 72 79 5d | pply.-map.car.dash--table-carry] |
| b560 | 20 31 30 20 28 23 24 20 2e 20 34 35 38 36 38 29 5d 29 0a 23 40 35 33 39 20 43 6f 6d 70 75 74 65 | .10.(#$...45868)]).#@539.Compute |
| b580 | 20 66 6c 61 74 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 69 | .flat.outer.product.of.LISTS.usi |
| b5a0 | 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 4e | ng.function.FN...The.function.FN |
| b5c0 | 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 74 | .should.have.the.same.arity.as.t |
| b5e0 | 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 68 | he.number.of.supplied.lists...Th |
| b600 | 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 61 | e.outer.product.is.computed.by.a |
| b620 | 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 69 | pplying.fn.to.all.possible.combi |
| b640 | 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 6c | nations.created.by.taking.one.el |
| b660 | 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 20 | ement.from.each.list.in.order... |
| b680 | 54 68 65 20 72 65 73 75 6c 74 73 20 61 72 65 20 66 6c 61 74 74 65 6e 65 64 2c 20 69 67 6e 6f 72 | The.results.are.flattened,.ignor |
| b6a0 | 69 6e 67 20 74 68 65 20 74 65 6e 73 6f 72 20 73 74 72 75 63 74 75 72 65 0a 6f 66 20 74 68 65 20 | ing.the.tensor.structure.of.the. |
| b6c0 | 72 65 73 75 6c 74 2e 20 20 54 68 69 73 20 69 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 63 | result...This.is.equivalent.to.c |
| b6e0 | 61 6c 6c 69 6e 67 3a 0a 0a 20 20 28 2d 66 6c 61 74 74 65 6e 2d 6e 20 28 31 2d 20 28 6c 65 6e 67 | alling:....(-flatten-n.(1-.(leng |
| b700 | 74 68 20 6c 69 73 74 73 29 29 20 28 61 70 70 6c 79 20 5c 3d 27 2d 74 61 62 6c 65 20 66 6e 20 6c | th.lists)).(apply.\='-table.fn.l |
| b720 | 69 73 74 73 29 29 0a 0a 62 75 74 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 68 | ists))..but.the.implementation.h |
| b740 | 65 72 65 20 69 73 20 6d 75 63 68 20 6d 6f 72 65 20 65 66 66 69 63 69 65 6e 74 2e 0a 0a 53 65 65 | ere.is.much.more.efficient...See |
| b760 | 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 2c 20 60 2d 74 61 62 6c 65 27 0a 0a 28 | .also:.`-flatten-n',.`-table'..( |
| b780 | 66 6e 20 46 4e 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 27 2d | fn.FN.&rest.LISTS)..(defalias.'- |
| b7a0 | 74 61 62 6c 65 2d 66 6c 61 74 20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 | table-flat.#[385."\300.!\301.!\3 |
| b7c0 | 30 32 01 40 5c 32 30 33 28 00 5c 33 30 33 05 5c 33 30 34 5c 33 30 35 06 07 5c 22 5c 22 5c 32 31 | 02.@\203(.\303.\304\305..\"\"\21 |
| b7e0 | 31 02 42 5c 32 36 32 02 04 5c 32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 36 05 05 5c 22 5c | 1.B\262..\211@A\240\210\306..\"\ |
| b800 | 32 36 36 02 5c 32 30 32 07 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65 | 266.\202..\211\237\207".[copy-se |
| b820 | 71 75 65 6e 63 65 20 6c 61 73 74 20 6e 69 6c 20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72 20 64 | quence.last.nil.apply.-map.car.d |
| b840 | 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 36 34 35 37 | ash--table-carry].10.(#$...46457 |
| b860 | 29 5d 29 0a 23 40 32 33 34 20 54 61 6b 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 6e 64 | )]).#@234.Take.a.function.FN.and |
| b880 | 20 66 65 77 65 72 20 74 68 61 6e 20 74 68 65 20 6e 6f 72 6d 61 6c 20 61 72 67 75 6d 65 6e 74 73 | .fewer.than.the.normal.arguments |
| b8a0 | 20 74 6f 20 46 4e 2c 0a 61 6e 64 20 72 65 74 75 72 6e 20 61 20 66 6e 20 74 68 61 74 20 74 61 6b | .to.FN,.and.return.a.fn.that.tak |
| b8c0 | 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 64 64 69 74 69 6f 6e | es.a.variable.number.of.addition |
| b8e0 | 61 6c 20 41 52 47 53 2e 0a 57 68 65 6e 20 63 61 6c 6c 65 64 2c 20 74 68 65 20 72 65 74 75 72 6e | al.ARGS..When.called,.the.return |
| b900 | 65 64 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 73 20 46 4e 20 77 69 74 68 20 41 52 47 53 20 66 | ed.function.calls.FN.with.ARGS.f |
| b920 | 69 72 73 74 20 61 6e 64 0a 74 68 65 6e 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 73 2e 0a 0a | irst.and.then.additional.args... |
| b940 | 28 66 6e 20 46 4e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d | (fn.FN.&rest.ARGS)..(defalias.'- |
| b960 | 70 61 72 74 69 61 6c 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 03 03 23 5c 32 30 37 22 20 | partial.#[385."\300\301..#\207". |
| b980 | 5b 61 70 70 6c 79 20 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79 5d 20 36 20 28 23 24 20 2e 20 | [apply.apply-partially].6.(#$... |
| b9a0 | 34 37 32 31 30 29 5d 29 0a 23 40 31 35 31 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 | 47210)]).#@151.Return.the.index. |
| b9c0 | 6f 66 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 67 69 76 65 | of.the.first.element.in.the.give |
| b9e0 | 6e 20 4c 49 53 54 20 77 68 69 63 68 0a 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 65 | n.LIST.which.is.equal.to.the.que |
| ba00 | 72 79 20 65 6c 65 6d 65 6e 74 20 45 4c 45 4d 2c 20 6f 72 20 6e 69 6c 20 69 66 20 74 68 65 72 65 | ry.element.ELEM,.or.nil.if.there |
| ba20 | 20 69 73 20 6e 6f 0a 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c | .is.no.such.element...(fn.ELEM.L |
| ba40 | 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 65 78 20 23 5b 35 | IST)..(defalias.'-elem-index.#[5 |
| ba60 | 31 34 20 22 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 | 14."\300..\"@\207".[-elem-indice |
| ba80 | 73 5d 20 35 20 28 23 24 20 2e 20 34 37 35 33 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | s].5.(#$...47535)]).(byte-code." |
| baa0 | 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 |
| bac0 | 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- |
| bae0 | 69 6e 64 65 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 | index.pure.t.side-effect-free].4 |
| bb00 | 29 0a 23 40 31 31 33 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 6c | ).#@113.Return.the.indices.of.al |
| bb20 | 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 | l.elements.in.LIST.equal.to.the. |
| bb40 | 71 75 65 72 79 0a 65 6c 65 6d 65 6e 74 20 45 4c 45 4d 2c 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 | query.element.ELEM,.in.ascending |
| bb60 | 20 6f 72 64 65 72 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 | .order...(fn.ELEM.LIST)..(defali |
| bb80 | 61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | as.'-elem-indices.#[514."\300\30 |
| bba0 | 31 5c 33 30 32 04 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 | 1\302.\".\"\207".[-find-indices. |
| bbc0 | 2d 70 61 72 74 69 61 6c 20 65 71 75 61 6c 5d 20 36 20 28 23 24 20 2e 20 34 37 38 38 30 29 5d 29 | -partial.equal].6.(#$...47880)]) |
| bbe0 | 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 |
| bc00 | 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 69 | 10\300\301\304\303#\207".[functi |
| bc20 | 6f 6e 2d 70 75 74 20 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65 | on-put.-elem-indices.pure.t.side |
| bc40 | 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 31 31 20 52 65 74 75 72 6e 20 74 68 | -effect-free].4).#@111.Return.th |
| bc60 | 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 20 4c 49 53 | e.indices.of.all.elements.in.LIS |
| bc80 | 54 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 0a 70 72 65 64 69 63 61 74 65 20 50 52 45 44 2c | T.satisfying.the.predicate.PRED, |
| bca0 | 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 50 52 45 44 20 4c | .in.ascending.order...(fn.PRED.L |
| bcc0 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 23 | IST)..(defalias.'-find-indices.# |
| bce0 | 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 24 00 01 40 | [514."\300\301\302.\303.\203$..@ |
| bd00 | 06 07 01 21 5c 32 30 35 14 00 01 43 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 | ...!\205...C.B\262.\210\211T\262 |
| bd20 | 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 36 32 01 | ..A\262.\202..\266.\211\237\262. |
| bd40 | 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6e 69 6c 20 30 5d 20 31 30 20 | \"\207".[apply.append.nil.0].10. |
| bd60 | 28 23 24 20 2e 20 34 38 32 31 35 29 5d 29 0a 23 40 35 35 20 41 6e 61 70 68 6f 72 69 63 20 76 65 | (#$...48215)]).#@55.Anaphoric.ve |
| bd80 | 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 27 2e 0a 0a 28 66 6e 20 46 | rsion.of.`-find-indices'...(fn.F |
| bda0 | 4f 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 | ORM.LIST)..(defalias.'--find-ind |
| bdc0 | 69 63 65 73 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 | ices.'(macro...#[514."\300\301\3 |
| bde0 | 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 6c 61 6d 62 64 | 02.E.E\207".[-find-indices.lambd |
| be00 | 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 38 35 30 30 29 5d 29 29 0a 28 70 75 74 20 27 | a.(it)].6.(#$...48500)])).(put.' |
| be20 | 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | --find-indices.'edebug-form-spec |
| be40 | 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 38 36 20 54 61 6b 65 20 61 20 70 72 65 64 | .'(form.form)).#@186.Take.a.pred |
| be60 | 69 63 61 74 65 20 50 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 | icate.PRED.and.a.LIST.and.return |
| be80 | 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 0a 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 | .the.index.of.the.first.element. |
| bea0 | 69 6e 20 74 68 65 20 6c 69 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69 | in.the.list.satisfying.the.predi |
| bec0 | 63 61 74 65 2c 20 6f 72 20 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 | cate,.or.nil.if.there.is.no.such |
| bee0 | 20 65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 66 69 72 73 74 27 2e 0a 0a 28 | .element...See.also.`-first'...( |
| bf00 | 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 66 69 6e 64 2d | fn.PRED.LIST)..(defalias.'-find- |
| bf20 | 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 66 69 | index.#[514."\300..\"@\207".[-fi |
| bf40 | 6e 64 2d 69 6e 64 69 63 65 73 5d 20 35 20 28 23 24 20 2e 20 34 38 37 32 35 29 5d 29 0a 23 40 35 | nd-indices].5.(#$...48725)]).#@5 |
| bf60 | 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 66 69 6e 64 2d 69 6e | 3.Anaphoric.version.of.`-find-in |
| bf80 | 64 65 78 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 | dex'...(fn.FORM.LIST)..(defalias |
| bfa0 | 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 | .'--find-index.'(macro...#[514." |
| bfc0 | 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 6e 64 2d 69 6e 64 | \300\301\302.E.E\207".[-find-ind |
| bfe0 | 65 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 38 39 39 34 29 5d 29 | ex.lambda.(it)].6.(#$...48994)]) |
| c000 | 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 65 78 20 27 65 64 65 62 75 67 2d 66 6f 72 | ).(put.'--find-index.'edebug-for |
| c020 | 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 38 34 20 54 61 6b 65 20 | m-spec.'(form.form)).#@184.Take. |
| c040 | 61 20 70 72 65 64 69 63 61 74 65 20 50 52 45 44 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 | a.predicate.PRED.and.a.LIST.and. |
| c060 | 72 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 0a 6c 61 73 74 20 65 6c 65 | return.the.index.of.the.last.ele |
| c080 | 6d 65 6e 74 20 69 6e 20 74 68 65 20 6c 69 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 | ment.in.the.list.satisfying.the. |
| c0a0 | 70 72 65 64 69 63 61 74 65 2c 20 6f 72 20 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f | predicate,.or.nil.if.there.is.no |
| c0c0 | 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6c 61 73 74 27 | .such.element...See.also.`-last' |
| c0e0 | 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 73 20 27 2d 66 | ...(fn.PRED.LIST)..(defalias.'-f |
| c100 | 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 | ind-last-index.#[514."\300\301.. |
| c120 | 5c 22 21 5c 32 30 37 22 20 5b 2d 6c 61 73 74 2d 69 74 65 6d 20 2d 66 69 6e 64 2d 69 6e 64 69 63 | \"!\207".[-last-item.-find-indic |
| c140 | 65 73 5d 20 36 20 28 23 24 20 2e 20 34 39 32 31 31 29 5d 29 0a 23 40 35 38 20 41 6e 61 70 68 6f | es].6.(#$...49211)]).#@58.Anapho |
| c160 | 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 | ric.version.of.`-find-last-index |
| c180 | 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.'- |
| c1a0 | 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 | -find-last-index.'(macro...#[514 |
| c1c0 | 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 6e 64 2d 6c | ."\300\301\302.E.E\207".[-find-l |
| c1e0 | 61 73 74 2d 69 6e 64 65 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 | ast-index.lambda.(it)].6.(#$...4 |
| c200 | 39 34 39 38 29 5d 29 29 0a 23 40 31 32 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 68 6f | 9498)])).#@123.Return.a.list.who |
| c220 | 73 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 | se.elements.are.elements.from.LI |
| c240 | 53 54 20 73 65 6c 65 63 74 65 64 0a 61 73 20 60 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f | ST.selected.as.`(nth.i.list)`.fo |
| c260 | 72 20 61 6c 6c 20 69 20 66 72 6f 6d 20 49 4e 44 49 43 45 53 2e 0a 0a 28 66 6e 20 49 4e 44 49 43 | r.all.i.from.INDICES...(fn.INDIC |
| c280 | 45 53 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 62 79 2d | ES.LIST)..(defalias.'-select-by- |
| c2a0 | 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 01 5c 32 30 33 1c 00 01 | indices.#[514."\300.\301.\203... |
| c2c0 | 40 5c 32 31 31 05 38 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 | @\211.8.B\262.\210\211T\262..A\2 |
| c2e0 | 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 |
| c300 | 20 30 5d 20 38 20 28 23 24 20 2e 20 34 39 36 37 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | .0].8.(#$...49679)]).(byte-code. |
| c320 | 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 |
| c340 | 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 73 65 6c 65 | 04\303#\207".[function-put.-sele |
| c360 | 63 74 2d 62 79 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 | ct-by-indices.pure.t.side-effect |
| c380 | 2d 66 72 65 65 5d 20 34 29 0a 23 40 32 38 33 20 53 65 6c 65 63 74 20 43 4f 4c 55 4d 4e 53 20 66 | -free].4).#@283.Select.COLUMNS.f |
| c3a0 | 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c | rom.TABLE...TABLE.is.a.list.of.l |
| c3c0 | 69 73 74 73 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 72 65 70 72 65 73 65 6e | ists.where.each.element.represen |
| c3e0 | 74 73 20 6f 6e 65 20 72 6f 77 2e 0a 49 74 20 69 73 20 61 73 73 75 6d 65 64 20 65 61 63 68 20 72 | ts.one.row..It.is.assumed.each.r |
| c400 | 6f 77 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 45 61 63 68 20 72 6f | ow.has.the.same.length...Each.ro |
| c420 | 77 20 69 73 20 74 72 61 6e 73 66 6f 72 6d 65 64 20 73 75 63 68 20 74 68 61 74 20 6f 6e 6c 79 20 | w.is.transformed.such.that.only. |
| c440 | 74 68 65 20 73 70 65 63 69 66 69 65 64 20 43 4f 4c 55 4d 4e 53 20 61 72 65 0a 73 65 6c 65 63 74 | the.specified.COLUMNS.are.select |
| c460 | 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 27 2c | ed...See.also:.`-select-column', |
| c480 | 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d | .`-select-by-indices'..(fn.COLUM |
| c4a0 | 4e 53 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63 6f | NS.TABLE)..(defalias.'-select-co |
| c4c0 | 6c 75 6d 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 | lumns.#[514."\300\301\302\303\30 |
| c4e0 | 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 | 4\305..!\306\"\307\310%.\"\207". |
| c500 | 5b 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 |
| c520 | 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 73 65 | \300.\"\207".vconcat.vector.[-se |
| c540 | 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 | lect-by-indices].4."\n\n(fn.IT)" |
| c560 | 5d 20 39 20 28 23 24 20 2e 20 35 30 30 36 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].9.(#$...50064)]).(byte-code."\ |
| c580 | 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 |
| c5a0 | 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 73 65 6c 65 63 74 | \303#\207".[function-put.-select |
| c5c0 | 2d 63 6f 6c 75 6d 6e 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 | -columns.pure.t.side-effect-free |
| c5e0 | 5d 20 34 29 0a 23 40 32 35 37 20 53 65 6c 65 63 74 20 43 4f 4c 55 4d 4e 20 66 72 6f 6d 20 54 41 | ].4).#@257.Select.COLUMN.from.TA |
| c600 | 42 4c 45 2e 0a 0a 54 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 | BLE...TABLE.is.a.list.of.lists.w |
| c620 | 68 65 72 65 20 65 61 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 | here.each.element.represents.one |
| c640 | 20 72 6f 77 2e 0a 49 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 | .row..It.is.assumed.each.row.has |
| c660 | 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 54 68 65 20 73 69 6e 67 6c 65 20 73 65 | .the.same.length...The.single.se |
| c680 | 6c 65 63 74 65 64 20 63 6f 6c 75 6d 6e 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 6c | lected.column.is.returned.as.a.l |
| c6a0 | 69 73 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 | ist...See.also:.`-select-columns |
| c6c0 | 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c | ',.`-select-by-indices'..(fn.COL |
| c6e0 | 55 4d 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63 | UMN.TABLE)..(defalias.'-select-c |
| c700 | 6f 6c 75 6d 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 5c 33 30 | olumn.#[514."\300\301\302\303\30 |
| c720 | 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 04 | 4\305\306\307..!\310\"\311\312%. |
| c740 | 5c 22 5c 22 5c 32 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 6d | \"\"\207".[apply.append.mapcar.m |
| c760 | 61 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 43 02 5c 22 5c | ake-byte-code.257."\301\300C.\"\ |
| c780 | 32 30 37 22 20 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 | 207".vconcat.vector.[-select-by- |
| c7a0 | 69 6e 64 69 63 65 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 31 20 28 23 24 | indices].4."\n\n(fn.IT)"].11.(#$ |
| c7c0 | 20 2e 20 35 30 36 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 | ...50667)]).(byte-code."\300\301 |
| c7e0 | 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 |
| c800 | 30 37 22 20 5b 66 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 | 07".[function-put.-select-column |
| c820 | 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 |
| c840 | 35 33 20 54 68 72 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 | 53.Thread.the.expr.through.the.f |
| c860 | 6f 72 6d 73 2e 20 49 6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 | orms..Insert.X.as.the.second.ite |
| c880 | 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 | m.in.the.first.form,.making.a.li |
| c8a0 | 73 74 20 6f 66 20 69 74 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 | st.of.it.if.it.is.not.a.list.alr |
| c8c0 | 65 61 64 79 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 | eady..If.there.are.more.forms,.i |
| c8e0 | 6e 73 65 72 74 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 73 65 63 6f | nsert.the.first.form.as.the.seco |
| c900 | 6e 64 20 69 74 65 6d 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 | nd.item.in.second.form,.etc...(f |
| c920 | 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 1f 0a | n.X.&optional.FORM.&rest.MORE).. |
| c940 | 28 64 65 66 61 6c 69 61 73 20 27 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 | (defalias.'->.'(macro...#[641.". |
| c960 | 5c 32 30 34 06 00 02 5c 32 30 37 5c 32 31 31 5c 32 30 34 1b 00 01 3c 5c 32 30 33 17 00 01 40 03 | \204...\207\211\204...<\203...@. |
| c980 | 03 41 42 42 5c 32 30 37 01 03 44 5c 32 30 37 5c 33 30 30 5c 32 31 31 04 04 45 02 42 42 5c 32 30 | .ABB\207..D\207\300\211..E.BB\20 |
| c9a0 | 37 22 20 5b 2d 3e 5d 20 37 20 28 23 24 20 2e 20 35 31 32 36 37 29 5d 29 29 0a 28 70 75 74 20 27 | 7".[->].7.(#$...51267)])).(put.' |
| c9c0 | 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 6d 20 26 72 65 73 | ->.'edebug-form-spec.'(form.&res |
| c9e0 | 74 20 5b 26 6f 72 20 73 79 6d 62 6f 6c 70 20 28 73 65 78 70 20 26 72 65 73 74 20 66 6f 72 6d 29 | t.[&or.symbolp.(sexp.&rest.form) |
| ca00 | 5d 29 29 0a 23 40 32 34 39 20 54 68 72 65 61 64 20 74 68 65 20 65 78 70 72 20 74 68 72 6f 75 67 | ])).#@249.Thread.the.expr.throug |
| ca20 | 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 6c 61 73 | h.the.forms..Insert.X.as.the.las |
| ca40 | 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 | t.item.in.the.first.form,.making |
| ca60 | 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 | .a.list.of.it.if.it.is.not.a.lis |
| ca80 | 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 | t.already..If.there.are.more.for |
| caa0 | 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 61 73 20 74 68 65 | ms,.insert.the.first.form.as.the |
| cac0 | 0a 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a | .last.item.in.second.form,.etc.. |
| cae0 | 0a 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 | .(fn.X.&optional.FORM.&rest.MORE |
| cb00 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 3e 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 | )..(defalias.'->>.'(macro...#[64 |
| cb20 | 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 32 31 31 5c 32 30 34 19 00 01 3c 5c 32 30 33 15 | 1.".\204...\207\211\204...<\203. |
| cb40 | 00 5c 33 30 30 02 04 43 5c 22 5c 32 30 37 01 03 44 5c 32 30 37 5c 33 30 31 5c 32 31 31 04 04 45 | .\300..C\"\207..D\207\301\211..E |
| cb60 | 02 42 42 5c 32 30 37 22 20 5b 61 70 70 65 6e 64 20 2d 3e 3e 5d 20 37 20 28 23 24 20 2e 20 35 31 | .BB\207".[append.->>].7.(#$...51 |
| cb80 | 37 32 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | 722)])).(put.'->>.'edebug-form-s |
| cba0 | 70 65 63 20 27 2d 3e 29 0a 23 40 32 36 39 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65 | pec.'->).#@269.Starting.with.the |
| cbc0 | 20 76 61 6c 75 65 20 6f 66 20 58 2c 20 74 68 72 65 61 64 20 65 61 63 68 20 65 78 70 72 65 73 73 | .value.of.X,.thread.each.express |
| cbe0 | 69 6f 6e 20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 2e 0a 0a 49 6e 73 65 72 74 20 58 20 61 74 20 | ion.through.FORMS...Insert.X.at. |
| cc00 | 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 73 69 67 6e 69 66 69 65 64 20 62 79 20 74 68 65 20 73 79 | the.position.signified.by.the.sy |
| cc20 | 6d 62 6f 6c 20 60 69 74 27 20 69 6e 20 74 68 65 20 66 69 72 73 74 0a 66 6f 72 6d 2e 20 20 49 66 | mbol.`it'.in.the.first.form...If |
| cc40 | 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 |
| cc60 | 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 0a 73 69 67 | e.first.form.at.the.position.sig |
| cc80 | 6e 69 66 69 65 64 20 62 79 20 60 69 74 27 20 69 6e 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d | nified.by.`it'.in.in.second.form |
| cca0 | 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 | ,.etc...(fn.X.&rest.FORMS)..(def |
| ccc0 | 61 6c 69 61 73 20 27 2d 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 | alias.'-->.'(macro...#[385."\300 |
| cce0 | 02 5c 33 30 31 03 42 42 42 5c 32 30 37 22 20 5b 2d 61 73 2d 3e 20 69 74 5d 20 36 20 28 23 24 20 | .\301.BBB\207".[-as->.it].6.(#$. |
| cd00 | 2e 20 35 32 31 34 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f | ..52143)])).(put.'-->.'edebug-fo |
| cd20 | 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 62 6f 64 79 29 29 0a 23 40 32 31 32 20 53 74 61 72 | rm-spec.'(form.body)).#@212.Star |
| cd40 | 74 69 6e 67 20 77 69 74 68 20 56 41 4c 55 45 2c 20 74 68 72 65 61 64 20 56 41 52 49 41 42 4c 45 | ting.with.VALUE,.thread.VARIABLE |
| cd60 | 20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 2e 0a 0a 49 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f | .through.FORMS...In.the.first.fo |
| cd80 | 72 6d 2c 20 62 69 6e 64 20 56 41 52 49 41 42 4c 45 20 74 6f 20 56 41 4c 55 45 2e 20 20 49 6e 20 | rm,.bind.VARIABLE.to.VALUE...In. |
| cda0 | 74 68 65 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 62 69 6e 64 0a 56 41 52 49 41 42 4c 45 20 74 | the.second.form,.bind.VARIABLE.t |
| cdc0 | 6f 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 | o.the.result.of.the.first.form,. |
| cde0 | 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 0a 0a 28 66 6e 20 56 41 4c 55 45 20 56 41 52 49 41 42 4c | and.so.forth...(fn.VALUE.VARIABL |
| ce00 | 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 20 27 2d 61 73 2d 3e | E.&rest.FORMS)..(defalias.'-as-> |
| ce20 | 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 32 31 31 5c 32 30 34 06 00 02 5c 32 30 | .'(macro...#[642."\211\204...\20 |
| ce40 | 37 5c 33 30 30 02 04 44 43 5c 33 30 31 03 40 39 5c 32 30 33 19 00 03 40 05 44 5c 32 30 32 1b 00 | 7\300..DC\301.@9\203...@.D\202.. |
| ce60 | 03 40 05 05 41 42 42 42 45 5c 32 30 37 22 20 5b 6c 65 74 20 2d 61 73 2d 3e 5d 20 39 20 28 23 24 | .@..ABBBE\207".[let.-as->].9.(#$ |
| ce80 | 20 2e 20 35 32 35 34 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 61 73 2d 3e 20 27 65 64 65 62 75 67 | ...52540)])).(put.'-as->.'edebug |
| cea0 | 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 73 79 6d 62 6f 6c 70 20 62 6f 64 79 29 29 | -form-spec.'(form.symbolp.body)) |
| cec0 | 0a 23 40 31 36 33 20 57 68 65 6e 20 65 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 | .#@163.When.expr.is.non-nil,.thr |
| cee0 | 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 |
| cf00 | 69 61 20 60 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 69 | ia.`->'),.and.when.that.result.i |
| cf20 | 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 6d | s.non-nil,.through.the.next.form |
| cf40 | 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 65 | ,.etc...(fn.X.&optional.FORM.&re |
| cf60 | 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 3e 20 27 28 6d | st.MORE)..(defalias.'-some->.'(m |
| cf80 | 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 5c 33 | acro...#[641.".\204...\207\300\3 |
| cfa0 | 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 37 22 | 01!\302\303...D\304...EE.BB\207" |
| cfc0 | 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 3e 20 2d | .[make-symbol."result".-some->.- |
| cfe0 | 77 68 65 6e 2d 6c 65 74 20 2d 3e 5d 20 31 30 20 28 23 24 20 2e 20 35 32 39 33 35 29 5d 29 29 0a | when-let.->].10.(#$...52935)])). |
| d000 | 28 70 75 74 20 27 2d 73 6f 6d 65 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 | (put.'-some->.'edebug-form-spec. |
| d020 | 27 2d 3e 29 0a 23 40 31 36 34 20 57 68 65 6e 20 65 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c | '->).#@164.When.expr.is.non-nil, |
| d040 | 20 74 68 72 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 | .thread.it.through.the.first.for |
| d060 | 6d 20 28 76 69 61 20 60 2d 3e 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 | m.(via.`->>'),.and.when.that.res |
| d080 | 75 6c 74 20 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 | ult.is.non-nil,.through.the.next |
| d0a0 | 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 20 46 4f 52 | .form,.etc...(fn.X.&optional.FOR |
| d0c0 | 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 73 6f 6d 65 2d | M.&rest.MORE)..(defalias.'-some- |
| d0e0 | 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 30 37 | >>.'(macro...#[641.".\204...\207 |
| d100 | 5c 33 30 30 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 | \300\301!\302\303...D\304...EE.B |
| d120 | 42 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 2d 73 6f | B\207".[make-symbol."result".-so |
| d140 | 6d 65 2d 3e 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 3e 3e 5d 20 31 30 20 28 23 24 20 2e 20 35 33 | me->>.-when-let.->>].10.(#$...53 |
| d160 | 32 39 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 73 6f 6d 65 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66 | 291)])).(put.'-some->>.'edebug-f |
| d180 | 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 23 40 31 36 34 20 57 68 65 6e 20 65 78 70 72 20 69 6e | orm-spec.'->).#@164.When.expr.in |
| d1a0 | 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 68 20 74 68 65 20 | .non-nil,.thread.it.through.the. |
| d1c0 | 66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 2d 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e | first.form.(via.`-->'),.and.when |
| d1e0 | 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 72 6f 75 67 68 | .that.result.is.non-nil,.through |
| d200 | 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 20 26 6f 70 74 | .the.next.form,.etc...(fn.X.&opt |
| d220 | 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 66 61 6c 69 61 | ional.FORM.&rest.MORE)..(defalia |
| d240 | 73 20 27 2d 73 6f 6d 65 2d 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 | s.'-some-->.'(macro...#[641.".\2 |
| d260 | 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 06 44 5c 33 | 04...\207\300\301!\302\303...D\3 |
| d280 | 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 20 22 72 65 | 04...EE.BB\207".[make-symbol."re |
| d2a0 | 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 2d 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 2d 3e 5d 20 31 30 | sult".-some-->.-when-let.-->].10 |
| d2c0 | 20 28 23 24 20 2e 20 35 33 36 35 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 73 6f 6d 65 2d 2d 3e 20 | .(#$...53652)])).(put.'-some-->. |
| d2e0 | 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 37 36 20 47 72 61 | 'edebug-form-spec.'->).#@176.Gra |
| d300 | 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 41 52 | de.elements.of.LIST.using.COMPAR |
| d320 | 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 75 74 | ATOR.relation,.yielding.a.permut |
| d340 | 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 67 20 | ation.vector.such.that.applying. |
| d360 | 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 20 69 | this.permutation.to.LIST.sorts.i |
| d380 | 74 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 43 4f 4d 50 41 | t.in.ascending.order...(fn.COMPA |
| d3a0 | 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 65 2d 75 | RATOR.LIST)..(defalias.'-grade-u |
| d3c0 | 70 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 5c 33 30 34 42 | p.#[514."\300\301\302\303.D\304B |
| d3e0 | 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 32 30 33 2b 00 | BE\305\306\307.\310..\311.\203+. |
| d400 | 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 32 01 01 41 5c | .@\211.B.B\262.\210\211T\262..A\ |
| d420 | 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 01 5c 22 5c 22 | 262.\202..\266.\211\237\262.\"\" |
| d440 | 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 6e 63 61 6c 6c | \207".[lambda.(it.other).funcall |
| d460 | 20 71 75 6f 74 65 20 28 28 63 61 72 20 69 74 29 20 28 63 61 72 20 6f 74 68 65 72 29 29 20 2d 6d | .quote.((car.it).(car.other)).-m |
| d480 | 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 2e 20 35 34 30 | ap.cdr.-sort.nil.0].13.(#$...540 |
| d4a0 | 31 33 29 5d 29 0a 23 40 31 37 37 20 47 72 61 64 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 | 13)]).#@177.Grade.elements.of.LI |
| d4c0 | 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 2c 20 79 69 | ST.using.COMPARATOR.relation,.yi |
| d4e0 | 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 73 75 63 68 | elding.a.permutation.vector.such |
| d500 | 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 69 6f 6e 20 | .that.applying.this.permutation. |
| d520 | 74 6f 20 4c 49 53 54 0a 73 6f 72 74 73 20 69 74 20 69 6e 20 64 65 73 63 65 6e 64 69 6e 67 20 6f | to.LIST.sorts.it.in.descending.o |
| d540 | 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 28 64 65 | rder...(fn.COMPARATOR.LIST)..(de |
| d560 | 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 64 6f 77 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c | falias.'-grade-down.#[514."\300\ |
| d580 | 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 37 | 301\302\303.D\304BBE\305\306\307 |
| d5a0 | 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 32 | .\310..\311.\203+..@\211.B.B\262 |
| d5c0 | 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 36 | .\210\211T\262..A\262.\202..\266 |
| d5e0 | 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 20 | .\211\237\262.\"\"\207".[lambda. |
| d600 | 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 6f | (it.other).funcall.quote.((car.o |
| d620 | 74 68 65 72 29 20 28 63 61 72 20 69 74 29 29 20 2d 6d 61 70 20 63 64 72 20 2d 73 6f 72 74 20 6e | ther).(car.it)).-map.cdr.-sort.n |
| d640 | 69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e 20 35 34 34 34 34 29 5d 29 0a 23 40 34 32 20 4d 6f 6e | il.0].13.(#$...54444)]).#@42.Mon |
| d660 | 6f 74 6f 6e 69 63 20 63 6f 75 6e 74 65 72 20 66 6f 72 20 67 65 6e 65 72 61 74 65 64 20 73 79 6d | otonic.counter.for.generated.sym |
| d680 | 62 6f 6c 73 2e 1f 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e | bols...(defvar.dash--source-coun |
| d6a0 | 74 65 72 20 30 20 28 23 24 20 2e 20 35 34 38 37 37 29 29 0a 23 40 38 37 20 47 65 6e 65 72 61 74 | ter.0.(#$...54877)).#@87.Generat |
| d6c0 | 65 20 61 20 6e 65 77 20 64 61 73 68 2d 73 6f 75 72 63 65 20 73 79 6d 62 6f 6c 2e 0a 0a 41 6c 6c | e.a.new.dash-source.symbol...All |
| d6e0 | 20 72 65 74 75 72 6e 65 64 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 67 75 61 72 61 6e 74 65 65 64 | .returned.symbols.are.guaranteed |
| d700 | 20 74 6f 20 62 65 20 75 6e 69 71 75 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d | .to.be.unique...(defalias.'dash- |
| d720 | 2d 6d 61 74 63 68 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 23 5b 30 20 22 5c | -match-make-source-symbol.#[0."\ |
| d740 | 33 30 31 5c 33 30 32 5c 33 30 33 08 5c 22 21 08 54 10 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 | 301\302\303.\"!.T.\207".[dash--s |
| d760 | 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 | ource-counter.make-symbol.format |
| d780 | 20 22 2d 2d 64 61 73 68 2d 73 6f 75 72 63 65 2d 25 64 2d 2d 22 5d 20 34 20 28 23 24 20 2e 20 35 | ."--dash-source-%d--"].4.(#$...5 |
| d7a0 | 34 39 36 39 29 5d 29 0a 23 40 37 30 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 | 4969)]).#@70.Return.non-nil.if.S |
| d7c0 | 59 4d 42 4f 4c 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 73 74 61 72 74 73 20 77 69 74 | YMBOL.is.a.symbol.and.starts.wit |
| d7e0 | 68 20 5f 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 | h._...(fn.SYMBOL)..(defalias.'da |
| d800 | 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 23 5b 32 35 37 20 22 | sh--match-ignore-place-p.#[257." |
| d820 | 5c 32 31 31 39 5c 32 30 35 5c 66 00 5c 33 30 30 01 21 5c 33 30 31 48 5c 33 30 32 3d 5c 32 30 37 | \2119\205\f.\300.!\301H\302=\207 |
| d840 | 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 30 20 39 35 5d 20 33 20 28 23 24 20 2e 20 35 35 32 | ".[symbol-name.0.95].3.(#$...552 |
| d860 | 31 33 29 5d 29 0a 23 40 37 35 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 | 13)]).#@75.Helper.function.gener |
| d880 | 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 73 68 69 66 74 69 6e 67 20 63 6f 64 65 2e 0a 0a | ating.idiomatic.shifting.code... |
| d8a0 | 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 6c 69 61 73 20 | (fn.SKIP-CDR.SOURCE)..(defalias. |
| d8c0 | 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 23 5b 35 31 34 | 'dash--match-cons-skip-cdr.#[514 |
| d8e0 | 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 5c 33 30 32 5c 33 30 | .".\300U\203\n.\301.D\207\302\30 |
| d900 | 33 03 03 5c 22 5c 33 30 34 03 5c 33 30 35 06 06 54 06 06 5c 22 45 45 5c 32 30 37 22 20 5b 30 20 | 3..\"\304.\305..T..\"EE\207".[0. |
| d920 | 70 6f 70 20 70 72 6f 67 31 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 | pop.prog1.dash--match-cons-get-c |
| d940 | 61 72 20 73 65 74 71 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 | ar.setq.dash--match-cons-get-cdr |
| d960 | 5d 20 39 20 28 23 24 20 2e 20 35 35 34 30 33 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 | ].9.(#$...55403)]).#@81.Helper.f |
| d980 | 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 69 63 20 63 6f 64 | unction.generating.idiomatic.cod |
| d9a0 | 65 20 74 6f 20 67 65 74 20 6e 74 68 20 63 61 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 | e.to.get.nth.car...(fn.SKIP-CDR. |
| d9c0 | 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- |
| d9e0 | 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 5c 6e | cons-get-car.#[514.".\300U\203\n |
| da00 | 00 5c 33 30 31 01 44 5c 32 30 37 01 5c 33 30 32 55 5c 32 30 33 14 00 5c 33 30 33 01 44 5c 32 30 | .\301.D\207.\302U\203..\303.D\20 |
| da20 | 37 5c 33 30 34 02 02 45 5c 32 30 37 22 20 5b 30 20 63 61 72 20 31 20 63 61 64 72 20 6e 74 68 5d | 7\304..E\207".[0.car.1.cadr.nth] |
| da40 | 20 35 20 28 23 24 20 2e 20 35 35 36 37 32 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 | .5.(#$...55672)]).#@81.Helper.fu |
| da60 | 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 69 63 20 63 6f 64 65 | nction.generating.idiomatic.code |
| da80 | 20 74 6f 20 67 65 74 20 6e 74 68 20 63 64 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 | .to.get.nth.cdr...(fn.SKIP-CDR.S |
| daa0 | 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 63 | OURCE)..(defalias.'dash--match-c |
| dac0 | 6f 6e 73 2d 67 65 74 2d 63 64 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 07 00 5c | ons-get-cdr.#[514.".\300U\203..\ |
| dae0 | 32 30 37 01 5c 33 30 31 55 5c 32 30 33 11 00 5c 33 30 32 01 44 5c 32 30 37 5c 33 30 33 02 02 45 | 207.\301U\203..\302.D\207\303..E |
| db00 | 5c 32 30 37 22 20 5b 30 20 31 20 63 64 72 20 6e 74 68 63 64 72 5d 20 35 20 28 23 24 20 2e 20 35 | \207".[0.1.cdr.nthcdr].5.(#$...5 |
| db20 | 35 38 39 35 29 5d 29 0a 23 40 38 36 20 53 65 74 75 70 20 61 20 63 6f 6e 73 20 6d 61 74 63 68 69 | 5895)]).#@86.Setup.a.cons.matchi |
| db40 | 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 68 65 20 72 65 61 6c | ng.environment.and.call.the.real |
| db60 | 20 6d 61 74 63 68 65 72 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 | .matcher...(fn.MATCH-FORM.SOURCE |
| db80 | 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 63 6f 6e 73 20 23 | )..(defalias.'dash--match-cons.# |
| dba0 | 5b 35 31 34 20 22 5c 33 30 30 20 5c 33 30 31 03 5c 32 31 31 3a 5c 32 30 33 1b 00 5c 33 30 32 01 | [514."\300.\301.\211:\203..\302. |
| dbc0 | 40 21 5c 32 30 33 1b 00 01 54 5c 32 36 32 02 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 04 00 5c | @!\203...T\262.\211A\262.\202..\ |
| dbe0 | 32 31 31 3a 5c 32 30 33 31 00 5c 32 31 31 41 5c 32 30 34 31 00 5c 33 30 33 01 40 5c 33 30 34 04 | 211:\2031.\211A\2041.\303.@\304. |
| dc00 | 06 07 5c 22 5c 22 5c 32 30 32 4b 00 01 5c 33 30 31 56 5c 32 30 33 42 00 5c 33 30 33 01 5c 33 30 | ..\"\"\202K..\301V\203B.\303.\30 |
| dc20 | 35 04 06 07 5c 22 5c 22 5c 32 30 32 4b 00 02 04 44 5c 33 30 36 06 06 05 5c 22 42 5c 32 30 37 22 | 5...\"\"\202K...D\306...\"B\207" |
| dc40 | 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 6c | .[dash--match-make-source-symbol |
| dc60 | 20 30 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 64 61 | .0.dash--match-ignore-place-p.da |
| dc80 | 73 68 2d 2d 6d 61 74 63 68 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 | sh--match.dash--match-cons-get-c |
| dca0 | 61 72 20 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 64 61 73 68 | ar.dash--match-cons-get-cdr.dash |
| dcc0 | 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 31 5d 20 31 30 20 28 23 24 20 2e 20 35 36 31 30 39 29 5d | --match-cons-1].10.(#$...56109)] |
| dce0 | 29 0a 23 40 33 38 36 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 | ).#@386.Match.MATCH-FORM.against |
| dd00 | 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 20 70 72 6f 70 65 72 | .SOURCE...MATCH-FORM.is.a.proper |
| dd20 | 20 6f 72 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 2e 20 20 45 61 63 68 20 65 6c 65 6d 65 6e 74 | .or.improper.list...Each.element |
| dd40 | 20 6f 66 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 6f | .of.MATCH-FORM.is.either.a.symbo |
| dd60 | 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 20 72 65 73 70 65 | l,.which.gets.bound.to.the.respe |
| dd80 | 63 74 69 76 65 0a 76 61 6c 75 65 20 69 6e 20 73 6f 75 72 63 65 20 6f 72 20 61 6e 6f 74 68 65 72 | ctive.value.in.source.or.another |
| dda0 | 20 6d 61 74 63 68 20 66 6f 72 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 63 74 75 | .match.form.which.gets.destructu |
| ddc0 | 72 65 64 0a 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 49 66 20 74 68 65 20 63 64 72 20 6f 66 20 | red.recursively...If.the.cdr.of. |
| dde0 | 6c 61 73 74 20 63 6f 6e 73 20 63 65 6c 6c 20 69 6e 20 74 68 65 20 6c 69 73 74 20 69 73 20 60 6e | last.cons.cell.in.the.list.is.`n |
| de00 | 69 6c 27 2c 20 6d 61 74 63 68 69 6e 67 20 73 74 6f 70 73 0a 74 68 65 72 65 2e 0a 0a 53 4f 55 52 | il',.matching.stops.there...SOUR |
| de20 | 43 45 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 6c 69 73 74 2e | CE.is.a.proper.or.improper.list. |
| de40 | 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 20 26 6f 70 74 69 6f 6e 61 | ..(fn.MATCH-FORM.SOURCE.&optiona |
| de60 | 6c 20 50 52 4f 50 53 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 | l.PROPS)..(defalias.'dash--match |
| de80 | 2d 63 6f 6e 73 2d 31 20 23 5b 37 37 30 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 36 08 00 | -cons-1.#[770."\300.\301\"\206.. |
| dea0 | 5c 33 30 32 03 3a 5c 32 30 33 61 00 03 41 5c 32 30 33 55 00 03 40 39 5c 32 30 33 2a 00 03 40 5c | \302.:\203a..A\203U..@9\203*..@\ |
| dec0 | 33 30 33 3e 5c 32 30 33 2a 00 5c 33 30 34 04 5c 33 30 35 03 06 06 5c 22 5c 22 5c 32 30 32 73 00 | 303>\203*.\304.\305...\"\"\202s. |
| dee0 | 5c 33 30 36 04 40 21 5c 32 30 33 40 00 5c 33 30 37 04 41 04 5c 33 31 30 05 5c 33 30 31 06 06 54 | \306.@!\203@.\307.A.\310.\301..T |
| df00 | 23 23 5c 32 30 32 73 00 5c 33 31 31 5c 33 31 32 05 40 5c 33 31 33 04 06 07 5c 22 5c 22 5c 33 30 | ##\202s.\311\312.@\313...\"\"\30 |
| df20 | 37 06 06 41 06 06 5c 22 5c 22 5c 32 30 32 73 00 5c 33 31 32 04 40 5c 33 31 34 03 06 06 5c 22 5c | 7..A..\"\"\202s.\312.@\314...\"\ |
| df40 | 22 5c 32 30 32 73 00 03 5c 33 31 35 3d 5c 32 30 33 6b 00 5c 33 31 35 5c 32 30 32 73 00 5c 33 31 | "\202s..\315=\203k.\315\202s.\31 |
| df60 | 32 04 5c 33 30 35 03 06 06 5c 22 5c 22 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 67 65 74 20 3a 73 | 2.\305...\"\"\207".[plist-get.:s |
| df80 | 6b 69 70 2d 63 64 72 20 30 20 28 26 6b 65 79 73 20 26 70 6c 69 73 74 20 26 61 6c 69 73 74 20 26 | kip-cdr.0.(&keys.&plist.&alist.& |
| dfa0 | 68 61 73 68 29 20 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 | hash).dash--match-kv.dash--match |
| dfc0 | 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 69 67 6e 6f 72 65 | -cons-get-cdr.dash--match-ignore |
| dfe0 | 2d 70 6c 61 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 | -place-p.dash--match-cons-1.plis |
| e000 | 74 2d 70 75 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 | t-put.-concat.dash--match.dash-- |
| e020 | 6d 61 74 63 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 | match-cons-skip-cdr.dash--match- |
| e040 | 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 35 36 35 35 32 | cons-get-car.nil].11.(#$...56552 |
| e060 | 29 5d 29 0a 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 | )]).#@59.Return.the.tail.of.SEQ. |
| e080 | 73 74 61 72 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 | starting.at.START...(fn.SEQ.STAR |
| e0a0 | 54 29 1f 0a 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 | T)..(defalias.'dash--vector-tail |
| e0c0 | 20 23 5b 35 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 | .#[514."\300.!\203+..G.Z\301.\30 |
| e0e0 | 32 5c 22 01 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 | 2\".\302\211.W\203(........\\HI\ |
| e100 | 32 31 30 5c 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 | 210\211T\262.\202..\266.\207.;\2 |
| e120 | 30 35 34 00 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 | 054...\303O\207".[vectorp.make-v |
| e140 | 65 63 74 6f 72 20 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 35 37 34 34 39 29 5d 29 0a 23 | ector.0.nil].11.(#$...57449)]).# |
| e160 | 40 38 38 20 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 | @88.Setup.a.vector.matching.envi |
| e180 | 72 6f 6e 6d 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 | ronment.and.call.the.real.matche |
| e1a0 | 72 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 | r...(fn.MATCH-FORM.SOURCE)..(def |
| e1c0 | 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 20 23 5b 35 31 34 20 | alias.'dash--match-vector.#[514. |
| e1e0 | 22 5c 33 30 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 | "\300..G\301U\203..\302.\303H\30 |
| e200 | 34 04 5c 33 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 | 4.\305BB\"\202Q..9\203\".\306..\ |
| e220 | 22 5c 32 30 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 | "\202Q.\307\310.\"\311\312.\"G\2 |
| e240 | 31 31 05 47 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 | 11.GSU\205D.\313\312.\"\302...H\ |
| e260 | 33 30 34 06 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 | 304...E\"\262.\266\202\206Q.\211 |
| e280 | 02 44 5c 33 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 | .D\306..\"B\207".[dash--match-ma |
| e2a0 | 6b 65 2d 73 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 | ke-source-symbol.1.dash--match.0 |
| e2c0 | 20 61 72 65 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 | .aref.(0).dash--match-vector-1.m |
| e2e0 | 61 70 63 61 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 | apcar.dash--match-ignore-place-p |
| e300 | 20 2d 72 65 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 | .-remove.null.-find-index].11.(# |
| e320 | 24 20 2e 20 35 37 37 30 30 29 5d 29 0a 23 40 36 39 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 | $...57700)]).#@691.Match.MATCH-F |
| e340 | 4f 52 4d 20 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 | ORM.against.SOURCE...MATCH-FORM. |
| e360 | 69 73 20 61 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 | is.a.vector...Each.element.of.MA |
| e380 | 54 43 48 2d 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 | TCH-FORM.is.either.a.symbol,.whi |
| e3a0 | 63 68 20 67 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 | ch.gets.bound.to.the.respective. |
| e3c0 | 76 61 6c 75 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 | value.in.source.or.another.match |
| e3e0 | 20 66 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 | .form.which.gets.destructured.re |
| e400 | 63 75 72 73 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 | cursively...If.second-from-last. |
| e420 | 70 6c 61 63 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 | place.in.MATCH-FORM.is.the.symbo |
| e440 | 6c 20 26 72 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 | l.&rest,.the.next.element.of.the |
| e460 | 20 4d 41 54 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 | .MATCH-FORM.is.matched.against.t |
| e480 | 68 65 20 74 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 | he.tail.of.SOURCE,.starting.at.i |
| e4a0 | 6e 64 65 78 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 | ndex.of.the.&rest.symbol...This. |
| e4c0 | 69 73 0a 63 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 | is.conceptually.the.same.as.the. |
| e4e0 | 28 68 65 61 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 | (head...tail).match.for.improper |
| e500 | 0a 6c 69 73 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 | .lists,.where.dot.plays.the.role |
| e520 | 20 6f 66 20 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 | .of.&rest...SOURCE.is.a.vector.. |
| e540 | 0a 49 66 20 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 | .If.the.MATCH-FORM.vector.is.sho |
| e560 | 72 74 65 72 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 | rter.than.SOURCE.vector,.only.th |
| e580 | 65 20 28 6c 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 | e.(length.MATCH-FORM).places.are |
| e5a0 | 20 62 6f 75 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 | .bound,.the.rest.of.the.SOURCE.i |
| e5c0 | 73 20 64 69 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 | s.discarded...(fn.MATCH-FORM.SOU |
| e5e0 | 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 76 65 63 | RCE)..(defalias.'dash--match-vec |
| e600 | 74 6f 72 2d 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 | tor-1.#[514."\300.G\301..W\203a. |
| e620 | 04 03 48 5c 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 | ..H\2119\203+.\211\302=\203+.\30 |
| e640 | 33 06 06 05 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 | 3...TH\304....E\".\262.\202U.\21 |
| e660 | 31 39 5c 32 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 | 19\203F.\305.!\300H\306=\204F.\2 |
| e680 | 31 31 5c 33 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 | 11\307....EDC\202U.\2119?\205U.\ |
| e6a0 | 33 30 33 01 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 | 303.\307....E\".B\262..T\262.\21 |
| e6c0 | 30 5c 32 30 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 | 0\202..\310\311.\237\"\207".[0.n |
| e6e0 | 69 6c 20 26 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 | il.&rest.dash--match.dash--vecto |
| e700 | 72 2d 74 61 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 | r-tail.symbol-name.95.aref.-flat |
| e720 | 74 65 6e 2d 6e 20 31 5d 20 31 31 20 28 23 24 20 2e 20 35 38 31 36 33 29 5d 29 0a 23 40 31 35 32 | ten-n.1].11.(#$...58163)]).#@152 |
| e740 | 20 53 65 74 75 70 20 61 20 6b 76 20 6d 61 74 63 68 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | .Setup.a.kv.matching.environment |
| e760 | 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 6b 76 20 | .and.call.the.real.matcher...kv. |
| e780 | 63 61 6e 20 62 65 20 61 6e 79 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 2c 20 73 75 63 68 | can.be.any.key-value.store,.such |
| e7a0 | 20 61 73 20 70 6c 69 73 74 2c 20 61 6c 69 73 74 20 6f 72 20 68 61 73 68 2d 74 61 62 6c 65 2e 0a | .as.plist,.alist.or.hash-table.. |
| e7c0 | 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 69 | .(fn.MATCH-FORM.SOURCE)..(defali |
| e7e0 | 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 23 5b 35 31 34 20 22 5c 33 30 30 20 02 | as.'dash--match-kv.#[514."\300.. |
| e800 | 47 5c 33 30 31 55 5c 32 30 33 13 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 32 2e 00 01 39 5c 32 | G\301U\203..\302.A..@#\202...9\2 |
| e820 | 30 33 5c 22 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 32 2e 00 5c 32 31 31 02 44 5c 33 30 32 04 | 03\".\302.A..@#\202..\211.D\302. |
| e840 | 41 03 06 06 40 23 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 | A...@#B\207".[dash--match-make-s |
| e860 | 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 33 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 31 5d | ource-symbol.3.dash--match-kv-1] |
| e880 | 20 38 20 28 23 24 20 2e 20 35 39 32 30 31 29 5d 29 0a 23 40 35 30 39 20 4d 61 74 63 68 20 4d 41 | .8.(#$...59201)]).#@509.Match.MA |
| e8a0 | 54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 4f 55 52 43 45 20 6f 66 20 74 79 70 65 20 | TCH-FORM.against.SOURCE.of.type. |
| e8c0 | 54 59 50 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 61 20 70 72 6f 70 65 72 20 6c 69 | TYPE...MATCH-FORM.is.a.proper.li |
| e8e0 | 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 6b 65 79 31 20 70 6c 61 63 65 31 20 2e 2e 2e 20 | st.of.the.form.(key1.place1..... |
| e900 | 6b 65 79 4e 0a 70 6c 61 63 65 4e 29 2e 20 20 45 61 63 68 20 70 6c 61 63 65 4b 20 69 73 20 65 69 | keyN.placeN)...Each.placeK.is.ei |
| e920 | 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 20 62 6f 75 6e 64 20 | ther.a.symbol,.which.gets.bound. |
| e940 | 74 6f 20 74 68 65 0a 76 61 6c 75 65 20 6f 66 20 6b 65 79 4b 20 72 65 74 72 69 65 76 65 64 20 66 | to.the.value.of.keyK.retrieved.f |
| e960 | 72 6f 6d 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 2c 20 6f 72 20 61 6e 6f 74 | rom.the.key-value.store,.or.anot |
| e980 | 68 65 72 0a 6d 61 74 63 68 20 66 6f 72 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 | her.match.form.which.gets.destru |
| e9a0 | 63 74 75 72 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 | ctured.recursively...SOURCE.is.a |
| e9c0 | 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2c 20 77 | .key-value.store.of.type.TYPE,.w |
| e9e0 | 68 69 63 68 20 63 61 6e 20 62 65 20 61 20 70 6c 69 73 74 2c 0a 61 6e 20 61 6c 69 73 74 20 6f 72 | hich.can.be.a.plist,.an.alist.or |
| ea00 | 20 61 20 68 61 73 68 20 74 61 62 6c 65 2e 0a 0a 54 59 50 45 20 69 73 20 61 20 74 6f 6b 65 6e 20 | .a.hash.table...TYPE.is.a.token. |
| ea20 | 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 6b 65 79 2d 76 | specifying.the.type.of.the.key-v |
| ea40 | 61 6c 75 65 20 73 74 6f 72 65 2e 0a 56 61 6c 69 64 20 76 61 6c 75 65 73 20 61 72 65 20 26 70 6c | alue.store..Valid.values.are.&pl |
| ea60 | 69 73 74 2c 20 26 61 6c 69 73 74 20 61 6e 64 20 26 68 61 73 68 2e 0a 0a 28 66 6e 20 4d 41 54 43 | ist,.&alist.and.&hash...(fn.MATC |
| ea80 | 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 20 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | H-FORM.SOURCE.TYPE)..(defalias.' |
| eaa0 | 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 31 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 | dash--match-kv-1.#[771."\300\301 |
| eac0 | 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 06 09 5c 22 5c 33 | \302\303\304\305\306\307....\"\3 |
| eae0 | 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 5c 33 31 33 5c 33 31 34 06 08 5c 22 5c 22 5c 22 5c 32 30 | 10\"\311\312%\313\314..\"\"\"\20 |
| eb00 | 37 22 20 5b 2d 66 6c 61 74 74 65 6e 2d 6e 20 31 20 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d | 7".[-flatten-n.1.-map.make-byte- |
| eb20 | 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 40 01 41 40 5c 33 30 31 5c 33 30 32 3d 5c 32 30 34 11 | code.257."\211@.A@\301\302=\204. |
| eb40 | 00 5c 33 30 31 5c 33 30 33 3d 5c 32 30 33 18 00 5c 33 30 34 5c 33 30 30 03 45 5c 32 30 32 31 00 | .\301\303=\203..\304\300.E\2021. |
| eb60 | 5c 33 30 31 5c 33 30 35 3d 5c 32 30 33 27 00 5c 33 30 36 5c 33 30 37 03 5c 33 30 30 45 44 5c 32 | \301\305=\203'.\306\307.\300ED\2 |
| eb80 | 30 32 31 00 5c 33 30 31 5c 33 31 30 3d 5c 32 30 35 31 00 5c 33 31 31 02 5c 33 30 30 45 01 39 5c | 021.\301\310=\2051.\311.\300E.9\ |
| eba0 | 32 30 33 3d 00 01 01 44 43 5c 32 30 32 41 00 5c 33 31 32 02 02 5c 22 5c 32 30 37 22 20 76 63 6f | 203=...DC\202A.\312..\"\207".vco |
| ebc0 | 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 26 70 6c 69 73 74 20 26 6b 65 79 73 20 70 6c 69 73 74 2d | ncat.vector.[&plist.&keys.plist- |
| ebe0 | 67 65 74 20 26 61 6c 69 73 74 20 63 64 72 20 61 73 73 6f 63 20 26 68 61 73 68 20 67 65 74 68 61 | get.&alist.cdr.assoc.&hash.getha |
| ec00 | 73 68 20 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 4b 56 29 22 20 | sh.dash--match].7."\n\n(fn.KV)". |
| ec20 | 2d 70 61 72 74 69 74 69 6f 6e 20 32 5d 20 31 33 20 28 23 24 20 2e 20 35 39 35 34 34 29 5d 29 0a | -partition.2].13.(#$...59544)]). |
| ec40 | 23 40 39 36 20 42 69 6e 64 20 61 20 73 79 6d 62 6f 6c 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 | #@96.Bind.a.symbol...This.works. |
| ec60 | 6a 75 73 74 20 6c 69 6b 65 20 60 6c 65 74 27 2c 20 74 68 65 72 65 20 69 73 20 6e 6f 20 64 65 73 | just.like.`let',.there.is.no.des |
| ec80 | 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 | tructuring...(fn.MATCH-FORM.SOUR |
| eca0 | 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 73 79 6d 62 | CE)..(defalias.'dash--match-symb |
| ecc0 | 6f 6c 20 23 5b 35 31 34 20 22 01 01 44 43 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 36 | ol.#[514."..DC\207".[].4.(#$...6 |
| ece0 | 30 34 38 35 29 5d 29 0a 23 40 32 38 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 | 0485)]).#@281.Match.MATCH-FORM.a |
| ed00 | 67 61 69 6e 73 74 20 53 4f 55 52 43 45 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 65 | gainst.SOURCE...This.function.te |
| ed20 | 73 74 73 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 6e 64 20 64 69 73 70 61 74 63 68 65 | sts.the.MATCH-FORM.and.dispatche |
| ed40 | 73 20 74 6f 20 73 70 65 63 69 66 69 63 0a 6d 61 74 63 68 65 72 73 20 62 61 73 65 64 20 6f 6e 20 | s.to.specific.matchers.based.on. |
| ed60 | 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 4b 65 79 | the.type.of.the.expression...Key |
| ed80 | 2d 76 61 6c 75 65 20 73 74 6f 72 65 73 20 61 72 65 20 64 69 73 61 6d 62 69 67 75 61 74 65 64 20 | -value.stores.are.disambiguated. |
| eda0 | 62 79 20 70 6c 61 63 69 6e 67 20 61 20 74 6f 6b 65 6e 20 26 70 6c 69 73 74 2c 0a 26 61 6c 69 73 | by.placing.a.token.&plist,.&alis |
| edc0 | 74 20 6f 72 20 26 68 61 73 68 20 61 73 20 61 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 74 68 | t.or.&hash.as.a.first.item.in.th |
| ede0 | 65 20 4d 41 54 43 48 2d 46 4f 52 4d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f | e.MATCH-FORM...(fn.MATCH-FORM.SO |
| ee00 | 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 20 23 5b | URCE)..(defalias.'dash--match.#[ |
| ee20 | 35 31 34 20 22 01 39 5c 32 30 33 5c 6e 00 5c 33 30 30 02 02 5c 22 5c 32 30 37 01 3a 5c 32 30 33 | 514.".9\203\n.\300..\"\207.:\203 |
| ee40 | 41 00 01 41 3a 5c 32 30 33 30 00 01 40 39 5c 32 30 33 30 00 01 41 40 5c 33 30 31 3d 5c 32 30 33 | A..A:\2030..@9\2030..A@\301=\203 |
| ee60 | 30 00 01 40 5c 32 31 31 02 44 5c 33 30 32 04 41 41 03 5c 22 42 5c 32 30 37 01 40 5c 33 30 33 3e | 0..@\211.D\302.AA.\"B\207.@\303> |
| ee80 | 5c 32 30 33 3c 00 5c 33 30 34 02 02 5c 22 5c 32 30 37 5c 33 30 35 02 02 5c 22 5c 32 30 37 5c 33 | \203<.\304..\"\207\305..\"\207\3 |
| eea0 | 30 36 02 21 5c 32 30 35 70 00 01 47 5c 33 30 37 56 5c 32 30 33 6c 00 01 5c 33 31 30 48 39 5c 32 | 06.!\205p..G\307V\203l..\310H9\2 |
| eec0 | 30 33 6c 00 01 5c 33 31 31 48 5c 33 30 31 3d 5c 32 30 33 6c 00 01 5c 33 31 30 48 5c 32 31 31 02 | 03l..\311H\301=\203l..\310H\211. |
| eee0 | 44 5c 33 30 32 5c 33 31 32 05 5c 33 30 37 5c 22 03 5c 22 42 5c 32 30 37 5c 33 31 33 02 02 5c 22 | D\302\312.\307\".\"B\207\313..\" |
| ef00 | 5c 32 30 37 22 20 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 | \207".[dash--match-symbol.&as.da |
| ef20 | 73 68 2d 2d 6d 61 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 | sh--match.(&keys.&plist.&alist.& |
| ef40 | 68 61 73 68 29 20 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 | hash).dash--match-kv.dash--match |
| ef60 | 2d 63 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 | -cons.vectorp.2.0.1.dash--vector |
| ef80 | 2d 74 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 | -tail.dash--match-vector].8.(#$. |
| efa0 | 2e 20 36 30 36 35 34 29 5d 29 0a 23 40 34 37 36 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 | ..60654)]).#@476.Bind.variables. |
| efc0 | 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 76 61 6c 20 42 | according.to.VARLIST.then.eval.B |
| efe0 | 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 6c 69 73 74 73 | ODY...VARLIST.is.a.list.of.lists |
| f000 | 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 45 29 2e 20 20 | .of.the.form.(PATTERN.SOURCE)... |
| f020 | 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 69 6e 73 74 20 | Each.PATTERN.is.matched.against. |
| f040 | 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 4f 55 52 43 45 | the.SOURCE.structurally...SOURCE |
| f060 | 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 20 65 61 63 68 | .is.only.evaluated.once.for.each |
| f080 | 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 72 65 66 65 72 | .PATTERN...Each.SOURCE.can.refer |
| f0a0 | 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 6e 64 20 62 79 | .to.the.symbols.already.bound.by |
| f0c0 | 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 66 75 6c 20 69 | .this.VARLIST...This.is.useful.i |
| f0e0 | 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 4f 55 52 43 45 | f.you.want.to.destructure.SOURCE |
| f100 | 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 74 6f 20 6e 61 | .recursively.but.also.want.to.na |
| f120 | 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 72 65 73 2e 0a | me.the.intermediate.structures.. |
| f140 | 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 20 61 6c 6c 20 | .See.`-let'.for.the.list.of.all. |
| f160 | 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 4c 49 53 54 20 | possible.patterns...(fn.VARLIST. |
| f180 | 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 74 2a 20 27 28 | &rest.BODY)..(defalias.'-let*.'( |
| f1a0 | 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 | macro...#[385."\300\301\302\303. |
| f1c0 | 5c 22 5c 22 5c 33 30 34 01 03 42 42 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 | \"\"\304..BB\207".[apply.append. |
| f1e0 | 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 5c 32 30 37 22 20 5b | mapcar.#[257."\300.@.A@\"\207".[ |
| f200 | 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 54 29 22 5d 20 6c 65 | dash--match].4."\n\n(fn.IT)"].le |
| f220 | 74 2a 5d 20 37 20 28 23 24 20 2e 20 36 31 33 36 31 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 | t*].7.(#$...61361)])).(byte-code |
| f240 | 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 31 5c | ."\300\301\302\303#\210\304\301\ |
| f260 | 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 65 64 65 62 75 67 2d | 305\306#\207".[put.-let*.edebug- |
| f280 | 66 6f 72 6d 2d 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 62 | form-spec.((&rest.(sexp.form)).b |
| f2a0 | 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 |
| f2c0 | 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 34 34 32 34 20 42 69 6e 64 20 76 61 72 69 61 62 6c | nction.1].4).#@4424.Bind.variabl |
| f2e0 | 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 76 61 | es.according.to.VARLIST.then.eva |
| f300 | 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 6c 69 | l.BODY...VARLIST.is.a.list.of.li |
| f320 | 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 45 29 | sts.of.the.form.(PATTERN.SOURCE) |
| f340 | 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 69 6e | ...Each.PATTERN.is.matched.again |
| f360 | 73 74 20 74 68 65 20 53 4f 55 52 43 45 20 22 73 74 72 75 63 74 75 72 61 6c 6c 79 22 2e 20 20 53 | st.the.SOURCE."structurally"...S |
| f380 | 4f 55 52 43 45 0a 69 73 20 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 |
| f3a0 | 20 65 61 63 68 20 50 41 54 54 45 52 4e 2e 20 20 45 61 63 68 20 50 41 54 54 45 52 4e 20 69 73 20 | .each.PATTERN...Each.PATTERN.is. |
| f3c0 | 6d 61 74 63 68 65 64 0a 72 65 63 75 72 73 69 76 65 6c 79 2c 20 61 6e 64 20 63 61 6e 20 74 68 65 | matched.recursively,.and.can.the |
| f3e0 | 72 65 66 6f 72 65 20 63 6f 6e 74 61 69 6e 20 73 75 62 2d 70 61 74 74 65 72 6e 73 20 77 68 69 63 | refore.contain.sub-patterns.whic |
| f400 | 68 20 61 72 65 0a 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 63 6f 72 72 65 73 70 6f 6e 64 | h.are.matched.against.correspond |
| f420 | 69 6e 67 20 73 75 62 2d 65 78 70 72 65 73 73 69 6f 6e 73 20 6f 66 20 53 4f 55 52 43 45 2e 0a 0a | ing.sub-expressions.of.SOURCE... |
| f440 | 41 6c 6c 20 74 68 65 20 53 4f 55 52 43 45 73 20 61 72 65 20 65 76 61 6c 6c 65 64 20 62 65 66 6f | All.the.SOURCEs.are.evalled.befo |
| f460 | 72 65 20 61 6e 79 20 73 79 6d 62 6f 6c 73 20 61 72 65 0a 62 6f 75 6e 64 20 28 69 2e 65 2e 20 22 | re.any.symbols.are.bound.(i.e.." |
| f480 | 69 6e 20 70 61 72 61 6c 6c 65 6c 22 29 2e 0a 0a 49 66 20 56 41 52 4c 49 53 54 20 6f 6e 6c 79 20 | in.parallel")...If.VARLIST.only. |
| f4a0 | 63 6f 6e 74 61 69 6e 73 20 6f 6e 65 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 20 65 6c | contains.one.(PATTERN.SOURCE).el |
| f4c0 | 65 6d 65 6e 74 2c 20 79 6f 75 20 63 61 6e 0a 6f 70 74 69 6f 6e 61 6c 6c 79 20 73 70 65 63 69 66 | ement,.you.can.optionally.specif |
| f4e0 | 79 20 69 74 20 75 73 69 6e 67 20 61 20 76 65 63 74 6f 72 20 61 6e 64 20 64 69 73 63 61 72 64 69 | y.it.using.a.vector.and.discardi |
| f500 | 6e 67 20 74 68 65 0a 6f 75 74 65 72 2d 6d 6f 73 74 20 70 61 72 65 6e 73 2e 20 20 54 68 75 73 0a | ng.the.outer-most.parens...Thus. |
| f520 | 0a 20 20 28 2d 6c 65 74 20 28 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 29 20 2e 2e 29 0a | ...(-let.((PATTERN.SOURCE))...). |
| f540 | 0a 62 65 63 6f 6d 65 73 0a 0a 20 20 28 2d 6c 65 74 20 5b 50 41 54 54 45 52 4e 20 53 4f 55 52 43 | .becomes....(-let.[PATTERN.SOURC |
| f560 | 45 5d 20 2e 2e 29 2e 0a 0a 60 2d 6c 65 74 27 20 75 73 65 73 20 61 20 63 6f 6e 76 65 6e 74 69 6f | E]...)...`-let'.uses.a.conventio |
| f580 | 6e 20 6f 66 20 6e 6f 74 20 62 69 6e 64 69 6e 67 20 70 6c 61 63 65 73 20 28 73 79 6d 62 6f 6c 73 | n.of.not.binding.places.(symbols |
| f5a0 | 29 20 73 74 61 72 74 69 6e 67 0a 77 69 74 68 20 5f 20 77 68 65 6e 65 76 65 72 20 69 74 27 73 20 | ).starting.with._.whenever.it's. |
| f5c0 | 70 6f 73 73 69 62 6c 65 2e 20 20 59 6f 75 20 63 61 6e 20 75 73 65 20 74 68 69 73 20 74 6f 20 73 | possible...You.can.use.this.to.s |
| f5e0 | 6b 69 70 20 6f 76 65 72 0a 65 6e 74 72 69 65 73 20 79 6f 75 20 64 6f 6e 27 74 20 63 61 72 65 20 | kip.over.entries.you.don't.care. |
| f600 | 61 62 6f 75 74 2e 20 20 48 6f 77 65 76 65 72 2c 20 74 68 69 73 20 69 73 20 6e 6f 74 20 2a 61 6c | about...However,.this.is.not.*al |
| f620 | 77 61 79 73 2a 0a 70 6f 73 73 69 62 6c 65 20 28 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 20 69 | ways*.possible.(as.a.result.of.i |
| f640 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 20 61 6e 64 20 74 68 65 73 65 20 73 79 6d 62 6f 6c 73 | mplementation).and.these.symbols |
| f660 | 20 6d 69 67 68 74 0a 67 65 74 20 62 6f 75 6e 64 20 74 6f 20 75 6e 64 65 66 69 6e 65 64 20 76 61 | .might.get.bound.to.undefined.va |
| f680 | 6c 75 65 73 2e 0a 0a 46 6f 6c 6c 6f 77 69 6e 67 20 69 73 20 74 68 65 20 6f 76 65 72 76 69 65 77 | lues...Following.is.the.overview |
| f6a0 | 20 6f 66 20 73 75 70 70 6f 72 74 65 64 20 70 61 74 74 65 72 6e 73 2e 20 20 52 65 6d 65 6d 62 65 | .of.supported.patterns...Remembe |
| f6c0 | 72 20 74 68 61 74 0a 70 61 74 74 65 72 6e 73 20 63 61 6e 20 62 65 20 6d 61 74 63 68 65 64 20 72 | r.that.patterns.can.be.matched.r |
| f6e0 | 65 63 75 72 73 69 76 65 6c 79 2c 20 73 6f 20 65 76 65 72 79 20 61 2c 20 62 2c 20 61 4b 20 69 6e | ecursively,.so.every.a,.b,.aK.in |
| f700 | 20 74 68 65 0a 66 6f 6c 6c 6f 77 69 6e 67 20 63 61 6e 20 62 65 20 61 20 6d 61 74 63 68 69 6e 67 | .the.following.can.be.a.matching |
| f720 | 20 63 6f 6e 73 74 72 75 63 74 20 61 6e 64 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 | .construct.and.not.necessarily.a |
| f740 | 0a 73 79 6d 62 6f 6c 2f 76 61 72 69 61 62 6c 65 2e 0a 0a 53 79 6d 62 6f 6c 3a 0a 0a 20 20 61 20 | .symbol/variable...Symbol:....a. |
| f760 | 2d 20 62 69 6e 64 20 74 68 65 20 53 4f 55 52 43 45 20 74 6f 20 41 2e 20 20 54 68 69 73 20 69 73 | -.bind.the.SOURCE.to.A...This.is |
| f780 | 20 6a 75 73 74 20 6c 69 6b 65 20 72 65 67 75 6c 61 72 20 60 6c 65 74 27 2e 0a 0a 43 6f 6e 73 65 | .just.like.regular.`let'...Conse |
| f7a0 | 73 20 61 6e 64 20 6c 69 73 74 73 3a 0a 0a 20 20 28 61 29 20 2d 20 62 69 6e 64 20 60 63 61 72 27 | s.and.lists:....(a).-.bind.`car' |
| f7c0 | 20 6f 66 20 63 6f 6e 73 2f 6c 69 73 74 20 74 6f 20 41 0a 0a 20 20 28 61 20 2e 20 62 29 20 2d 20 | .of.cons/list.to.A....(a...b).-. |
| f7e0 | 62 69 6e 64 20 63 61 72 20 6f 66 20 63 6f 6e 73 20 74 6f 20 41 20 61 6e 64 20 60 63 64 72 27 20 | bind.car.of.cons.to.A.and.`cdr'. |
| f800 | 74 6f 20 42 0a 0a 20 20 28 61 20 62 29 20 2d 20 62 69 6e 64 20 63 61 72 20 6f 66 20 6c 69 73 74 | to.B....(a.b).-.bind.car.of.list |
| f820 | 20 74 6f 20 41 20 61 6e 64 20 60 63 61 64 72 27 20 74 6f 20 42 0a 0a 20 20 28 61 31 20 61 32 20 | .to.A.and.`cadr'.to.B....(a1.a2. |
| f840 | 61 33 20 20 2e 2e 2e 29 20 2d 20 62 69 6e 64 20 30 74 68 20 63 61 72 20 6f 66 20 6c 69 73 74 20 | a3.....).-.bind.0th.car.of.list. |
| f860 | 74 6f 20 41 31 2c 20 31 73 74 20 74 6f 20 41 32 2c 20 32 6e 64 20 74 6f 20 41 33 20 2e 2e 2e 0a | to.A1,.1st.to.A2,.2nd.to.A3..... |
| f880 | 0a 20 20 28 61 31 20 61 32 20 61 33 20 2e 2e 2e 20 61 4e 20 2e 20 72 65 73 74 29 20 2d 20 61 73 | ...(a1.a2.a3.....aN...rest).-.as |
| f8a0 | 20 61 62 6f 76 65 2c 20 62 75 74 20 62 69 6e 64 20 74 68 65 20 4e 74 68 20 63 64 72 20 74 6f 20 | .above,.but.bind.the.Nth.cdr.to. |
| f8c0 | 52 45 53 54 2e 0a 0a 56 65 63 74 6f 72 73 3a 0a 0a 20 20 5b 61 5d 20 2d 20 62 69 6e 64 20 30 74 | REST...Vectors:....[a].-.bind.0t |
| f8e0 | 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 61 20 6e 6f 6e 2d 6c 69 73 74 20 73 65 71 75 65 6e 63 65 | h.element.of.a.non-list.sequence |
| f900 | 20 74 6f 20 41 20 28 77 6f 72 6b 73 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 76 65 63 74 6f 72 | .to.A.(works.with.........vector |
| f920 | 73 2c 20 73 74 72 69 6e 67 73 2c 20 62 69 74 20 61 72 72 61 79 73 2e 2e 2e 29 0a 0a 20 20 5b 61 | s,.strings,.bit.arrays...)....[a |
| f940 | 31 20 61 32 20 61 33 20 2e 2e 2e 5d 20 2d 20 62 69 6e 64 20 30 74 68 20 65 6c 65 6d 65 6e 74 20 | 1.a2.a3....].-.bind.0th.element. |
| f960 | 6f 66 20 6e 6f 6e 2d 6c 69 73 74 20 73 65 71 75 65 6e 63 65 20 74 6f 20 41 30 2c 20 31 73 74 20 | of.non-list.sequence.to.A0,.1st. |
| f980 | 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 31 2c 20 32 6e 64 20 74 6f | to....................A1,.2nd.to |
| f9a0 | 20 41 32 2c 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 | .A2,........................If.t |
| f9c0 | 68 65 20 50 41 54 54 45 52 4e 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 53 4f 55 52 43 | he.PATTERN.is.shorter.than.SOURC |
| f9e0 | 45 2c 20 74 68 65 20 76 61 6c 75 65 73 20 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | E,.the.values.at................ |
| fa00 | 20 20 20 20 70 6c 61 63 65 73 20 6e 6f 74 20 69 6e 20 50 41 54 54 45 52 4e 20 61 72 65 20 69 67 | ....places.not.in.PATTERN.are.ig |
| fa20 | 6e 6f 72 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 | nored.....................If.the |
| fa40 | 20 50 41 54 54 45 52 4e 20 69 73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c 20 | .PATTERN.is.longer.than.SOURCE,. |
| fa60 | 61 6e 20 60 65 72 72 6f 72 27 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | an.`error'.is................... |
| fa80 | 20 74 68 72 6f 77 6e 2e 0a 0a 20 20 5b 61 31 20 61 32 20 61 33 20 2e 2e 2e 20 26 72 65 73 74 20 | .thrown.....[a1.a2.a3.....&rest. |
| faa0 | 72 65 73 74 5d 20 2d 20 61 73 20 61 62 6f 76 65 2c 20 62 75 74 20 62 69 6e 64 20 74 68 65 20 72 | rest].-.as.above,.but.bind.the.r |
| fac0 | 65 73 74 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | est.of.......................... |
| fae0 | 20 20 20 20 20 74 68 65 20 73 65 71 75 65 6e 63 65 20 74 6f 20 52 45 53 54 2e 20 20 54 68 69 73 | .....the.sequence.to.REST...This |
| fb00 | 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .is............................. |
| fb20 | 20 20 63 6f 6e 63 65 70 74 75 61 6c 6c 79 20 74 68 65 20 73 61 6d 65 20 61 73 20 69 6d 70 72 6f | ..conceptually.the.same.as.impro |
| fb40 | 70 65 72 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | per.list........................ |
| fb60 | 20 20 20 20 20 20 20 6d 61 74 63 68 69 6e 67 20 28 61 31 20 61 32 20 2e 2e 2e 20 61 4e 20 2e 20 | .......matching.(a1.a2.....aN... |
| fb80 | 72 65 73 74 29 0a 0a 4b 65 79 2f 76 61 6c 75 65 20 73 74 6f 72 65 73 3a 0a 0a 20 20 28 26 70 6c | rest)..Key/value.stores:....(&pl |
| fba0 | 69 73 74 20 6b 65 79 30 20 61 30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 | ist.key0.a0.....keyN.aN).-.bind. |
| fbc0 | 76 61 6c 75 65 20 6d 61 70 70 65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 | value.mapped.by.keyK.in.the..... |
| fbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 | .............................SOU |
| fc00 | 52 43 45 20 70 6c 69 73 74 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 | RCE.plist.to.aK...If.the........ |
| fc20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 | ..........................value. |
| fc40 | 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 0a 20 20 28 26 61 6c | is.not.found,.aK.is.nil.....(&al |
| fc60 | 69 73 74 20 6b 65 79 30 20 61 30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 | ist.key0.a0.....keyN.aN).-.bind. |
| fc80 | 76 61 6c 75 65 20 6d 61 70 70 65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 | value.mapped.by.keyK.in.the..... |
| fca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 | .............................SOU |
| fcc0 | 52 43 45 20 61 6c 69 73 74 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 | RCE.alist.to.aK...If.the........ |
| fce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 | ..........................value. |
| fd00 | 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 0a 20 20 28 26 68 61 | is.not.found,.aK.is.nil.....(&ha |
| fd20 | 73 68 20 6b 65 79 30 20 61 30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 | sh.key0.a0.....keyN.aN).-.bind.v |
| fd40 | 61 6c 75 65 20 6d 61 70 70 65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 | alue.mapped.by.keyK.in.the...... |
| fd60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 | ...........................SOURC |
| fd80 | 45 20 68 61 73 68 20 74 61 62 6c 65 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 | E.hash.table.to.aK...If.the..... |
| fda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 | ............................valu |
| fdc0 | 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 0a 46 75 72 74 | e.is.not.found,.aK.is.nil...Furt |
| fde0 | 68 65 72 2c 20 73 70 65 63 69 61 6c 20 6b 65 79 77 6f 72 64 20 26 6b 65 79 73 20 73 75 70 70 6f | her,.special.keyword.&keys.suppo |
| fe00 | 72 74 73 20 22 69 6e 6c 69 6e 65 22 20 6d 61 74 63 68 69 6e 67 20 6f 66 0a 70 6c 69 73 74 2d 6c | rts."inline".matching.of.plist-l |
| fe20 | 69 6b 65 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 73 2c 20 73 69 6d 69 6c 61 72 6c 79 20 74 | ike.key-value.pairs,.similarly.t |
| fe40 | 6f 20 26 6b 65 79 73 20 6b 65 79 77 6f 72 64 20 6f 66 0a 60 63 6c 2d 64 65 66 75 6e 27 2e 0a 0a | o.&keys.keyword.of.`cl-defun'... |
| fe60 | 20 20 28 61 31 20 61 32 20 2e 2e 2e 20 61 4e 20 26 6b 65 79 73 20 6b 65 79 31 20 62 31 20 2e 2e | ..(a1.a2.....aN.&keys.key1.b1... |
| fe80 | 2e 20 6b 65 79 4e 20 62 4b 29 0a 0a 54 68 69 73 20 62 69 6e 64 73 20 4e 20 76 61 6c 75 65 73 20 | ..keyN.bK)..This.binds.N.values. |
| fea0 | 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 74 6f 20 61 31 20 2e 2e 2e 20 61 4e 2c 20 74 68 65 6e | from.the.list.to.a1.....aN,.then |
| fec0 | 20 69 6e 74 65 72 70 72 65 74 73 0a 74 68 65 20 63 64 72 20 61 73 20 61 20 70 6c 69 73 74 20 28 | .interprets.the.cdr.as.a.plist.( |
| fee0 | 73 65 65 20 6b 65 79 2f 76 61 6c 75 65 20 6d 61 74 63 68 69 6e 67 20 61 62 6f 76 65 29 2e 0a 0a | see.key/value.matching.above)... |
| ff00 | 59 6f 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 | You.can.name.the.source.using.th |
| ff20 | 65 20 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 | e.syntax.SYMBOL.&as.PATTERN..Thi |
| ff40 | 73 20 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 | s.syntax.works.with.lists.(prope |
| ff60 | 72 20 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 | r.or.improper),.vectors.and.all. |
| ff80 | 74 79 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 | types.of.maps.....(list.&as.a.b. |
| ffa0 | 63 29 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 | c).(list.1.2.3)..binds.A.to.1,.B |
| ffc0 | 20 74 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 | .to.2,.C.to.3.and.LIST.to.(1.2.3 |
| ffe0 | 29 2e 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 | )...Similarly:....(bounds.&as.be |
| 10000 | 67 20 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 | g...end).(cons.1.2)..binds.BEG.t |
| 10020 | 6f 20 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 | o.1,.END.to.2.and.BOUNDS.to.(1.. |
| 10040 | 20 32 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 | .2).....(items.&as.first...rest) |
| 10060 | 20 28 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 | .(list.1.2.3)..binds.FIRST.to.1, |
| 10080 | 20 52 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 | .REST.to.(2.3).and.ITEMS.to.(1.2 |
| 100a0 | 20 33 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 | .3)....[vect.&as._.b.c].[1.2.3]. |
| 100c0 | 0a 62 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 | .binds.B.to.2,.C.to.3.and.VECT.t |
| 100e0 | 6f 20 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 | o.[1.2.3].(_.avoids.binding.as.u |
| 10100 | 73 75 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 | sual).....(plist.&as.&plist.:b.b |
| 10120 | 29 20 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 | ).(list.:a.1.:b.2.:c.3)..binds.B |
| 10140 | 20 74 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 | .to.2.and.PLIST.to.(:a.1.:b.2.:c |
| 10160 | 20 33 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 | .3)...Same.for.&alist.and.&hash. |
| 10180 | 0a 0a 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 | ..This.is.especially.useful.when |
| 101a0 | 20 77 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 | .we.want.to.capture.the.result.o |
| 101c0 | 66 20 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 | f.a.computation.and.destructure. |
| 101e0 | 61 74 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 | at.the.same.time...Consider.the. |
| 10200 | 66 6f 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 | form.(function-returning-complex |
| 10220 | 2d 73 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 | -structure).returning.a.list.of. |
| 10240 | 74 77 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 | two.vectors.with.two.items.each. |
| 10260 | 20 20 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 | ..We.want.to.capture.this.entire |
| 10280 | 0a 72 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 | .result.and.pass.it.to.another.c |
| 102a0 | 6f 6d 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 | omputation,.but.at.the.same.time |
| 102c0 | 0a 77 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 | .we.want.to.get.the.second.item. |
| 102e0 | 66 72 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 | from.each.vector...We.can.achiev |
| 10300 | 65 0a 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 | e.it.with.pattern....(result.&as |
| 10320 | 20 5b 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 | .[_.a].[_.b]).(function-returnin |
| 10340 | 67 2d 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 | g-complex-structure)..Note:.Cloj |
| 10360 | 75 72 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 | ure.programmers.may.know.this.fe |
| 10380 | 61 74 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 | ature.as.the.":as.binding"...The |
| 103a0 | 20 64 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 | .difference.is.that.we.put.the.& |
| 103c0 | 61 73 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 | as.at.the.front.because.we.need. |
| 103e0 | 74 6f 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 | to.support.improper.list.binding |
| 10400 | 2e 0a 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 | ...(fn.VARLIST.&rest.BODY)..(def |
| 10420 | 61 6c 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 | alias.'-let.'(macro...#[385."\30 |
| 10440 | 30 02 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 | 0.!\203..\301\302.\303H.\304H\". |
| 10460 | 42 42 5c 32 30 37 5c 33 30 35 02 5c 33 30 33 01 5c 32 30 33 36 00 01 40 5c 33 30 36 5c 33 30 37 | BB\207\305.\303.\2036..@\306\307 |
| 10480 | 5c 33 31 30 04 5c 22 21 01 41 40 44 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 | \310.\"!.A@D.B\262.\210\211T\262 |
| 104a0 | 01 01 41 5c 32 36 32 02 5c 32 30 32 16 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 | ..A\262.\202..\266.\211\237\262. |
| 104c0 | 5c 33 31 31 5c 33 31 32 5c 33 31 33 05 04 5c 22 5c 22 5c 33 31 34 02 5c 33 31 35 03 06 06 42 42 | \311\312\313..\"\"\314.\315...BB |
| 104e0 | 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 61 74 63 68 | E\207".[vectorp.let*.dash--match |
| 10500 | 20 30 20 31 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 | .0.1.nil.make-symbol.format."inp |
| 10520 | 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 |
| 10540 | 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 |
| 10560 | 20 2d 6c 65 74 2a 5d 20 31 30 20 28 23 24 20 2e 20 36 32 31 36 34 29 5d 29 29 0a 28 62 79 74 65 | .-let*].10.(#$...62164)])).(byte |
| 10580 | 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 |
| 105a0 | 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 |
| 105c0 | 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 28 73 65 78 70 | bug-form-spec.([&or.(&rest.(sexp |
| 105e0 | 20 66 6f 72 6d 29 29 20 28 76 65 63 74 6f 72 20 5b 26 72 65 73 74 20 5b 73 65 78 70 20 66 6f 72 | .form)).(vector.[&rest.[sexp.for |
| 10600 | 6d 5d 5d 29 5d 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 | m]])].body).function-put.lisp-in |
| 10620 | 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 34 32 33 20 52 65 74 75 72 6e | dent-function.1].4).#@423.Return |
| 10640 | 20 61 20 6c 61 6d 62 64 61 20 77 68 69 63 68 20 64 65 73 74 72 75 63 74 75 72 65 73 20 69 74 73 | .a.lambda.which.destructures.its |
| 10660 | 20 69 6e 70 75 74 20 61 73 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 6e 64 20 65 78 65 63 75 74 65 | .input.as.MATCH-FORM.and.execute |
| 10680 | 73 20 42 4f 44 59 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 79 6f 75 20 68 61 76 65 20 74 6f 20 65 | s.BODY...Note.that.you.have.to.e |
| 106a0 | 6e 63 6c 6f 73 65 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 6e 20 61 20 70 61 69 72 20 | nclose.the.MATCH-FORM.in.a.pair. |
| 106c0 | 6f 66 20 70 61 72 65 6e 73 2c 0a 73 75 63 68 20 74 68 61 74 3a 0a 0a 20 20 28 2d 6c 61 6d 62 64 | of.parens,.such.that:....(-lambd |
| 106e0 | 61 20 28 78 29 20 62 6f 64 79 29 0a 20 20 28 2d 6c 61 6d 62 64 61 20 28 78 20 79 20 2e 2e 2e 29 | a.(x).body)...(-lambda.(x.y....) |
| 10700 | 20 62 6f 64 79 29 0a 0a 68 61 73 20 74 68 65 20 75 73 75 61 6c 20 73 65 6d 61 6e 74 69 63 73 20 | .body)..has.the.usual.semantics. |
| 10720 | 6f 66 20 60 6c 61 6d 62 64 61 27 2e 20 20 46 75 72 74 68 65 72 6d 6f 72 65 2c 20 74 68 65 73 65 | of.`lambda'...Furthermore,.these |
| 10740 | 20 67 65 74 0a 74 72 61 6e 73 6c 61 74 65 64 20 69 6e 74 6f 20 6e 6f 72 6d 61 6c 20 6c 61 6d 62 | .get.translated.into.normal.lamb |
| 10760 | 64 61 2c 20 73 6f 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 65 72 66 6f 72 6d 61 6e 63 65 0a 70 | da,.so.there.is.no.performance.p |
| 10780 | 65 6e 61 6c 74 79 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 20 64 65 73 63 | enalty...See.`-let'.for.the.desc |
| 107a0 | 72 69 70 74 69 6f 6e 20 6f 66 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 6d 65 63 68 61 6e 69 | ription.of.destructuring.mechani |
| 107c0 | 73 6d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 26 72 65 73 74 20 42 4f 44 59 29 1f | sm...(fn.MATCH-FORM.&rest.BODY). |
| 107e0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 61 6d 62 64 61 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b | .(defalias.'-lambda.'(macro...#[ |
| 10800 | 33 38 35 20 22 01 3a 5c 32 30 34 5c 6e 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 | 385.".:\204\n.\300\301\302\"\207 |
| 10820 | 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 33 17 00 5c 33 30 35 02 02 42 42 5c 32 30 37 5c 33 30 | \303\304.\"\203..\305..BB\207\30 |
| 10840 | 36 02 5c 33 30 37 01 5c 32 30 33 38 00 01 40 5c 32 31 31 5c 33 31 30 5c 33 31 31 5c 33 31 32 05 | 6.\307.\2038..@\211\310\311\312. |
| 10860 | 5c 22 21 44 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 | \"!D.B\262.\210\211T\262..A\262. |
| 10880 | 5c 32 30 32 1a 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 33 30 35 5c 33 31 33 | \202..\266.\211\237\262.\305\313 |
| 108a0 | 5c 33 31 34 03 5c 22 5c 33 31 35 03 05 42 42 45 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 72 | \314.\"\315..BBE\207".[signal.wr |
| 108c0 | 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 22 6d 61 74 63 68 2d 66 6f 72 6d 20 6d 75 | ong-type-argument."match-form.mu |
| 108e0 | 73 74 20 62 65 20 61 20 6c 69 73 74 22 20 2d 61 6c 6c 5c 3f 20 73 79 6d 62 6f 6c 70 20 6c 61 6d | st.be.a.list".-all\?.symbolp.lam |
| 10900 | 62 64 61 20 6e 69 6c 20 30 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 69 6e | bda.nil.0.make-symbol.format."in |
| 10920 | 70 75 74 25 64 22 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 41 40 5c 32 30 37 22 | put%d".mapcar.#[257."\211A@\207" |
| 10940 | 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 2d 6c 65 74 2a 5d 20 31 31 20 28 | .[].2."\n\n(fn.IT)"].-let*].11.( |
| 10960 | 23 24 20 2e 20 36 37 31 33 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | #$...67130)])).(byte-code."\300\ |
| 10980 | 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 35 | 301\302\303#\210\300\301\304\305 |
| 109a0 | 23 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22 20 5b 66 75 6e | #\210\306\301\307\310#\207".[fun |
| 109c0 | 63 74 69 6f 6e 2d 70 75 74 20 2d 6c 61 6d 62 64 61 20 64 6f 63 2d 73 74 72 69 6e 67 2d 65 6c 74 | ction-put.-lambda.doc-string-elt |
| 109e0 | 20 32 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 64 65 66 75 6e 20 70 75 | .2.lisp-indent-function.defun.pu |
| 10a00 | 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 26 64 65 66 69 6e 65 20 73 65 78 70 | t.edebug-form-spec.(&define.sexp |
| 10a20 | 20 5b 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 69 6e 67 70 5d 20 5b 26 6f 70 74 69 6f 6e 61 6c 20 | .[&optional.stringp].[&optional. |
| 10a40 | 28 22 69 6e 74 65 72 61 63 74 69 76 65 22 20 69 6e 74 65 72 61 63 74 69 76 65 29 5d 20 64 65 66 | ("interactive".interactive)].def |
| 10a60 | 2d 62 6f 64 79 29 5d 20 34 29 0a 23 40 33 32 30 20 49 66 20 61 6c 6c 20 56 41 4c 53 20 65 76 61 | -body)].4).#@320.If.all.VALS.eva |
| 10a80 | 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 74 6f 20 74 68 65 69 | luate.to.true,.bind.them.to.thei |
| 10aa0 | 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 64 6f 20 54 48 45 4e | r.corresponding.VARS.and.do.THEN |
| 10ac0 | 2c 20 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 20 56 41 52 53 2d 56 41 4c 53 20 73 | ,.otherwise.do.ELSE..VARS-VALS.s |
| 10ae0 | 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 0a 6f 66 20 28 56 41 52 20 56 41 4c 29 20 70 61 69 | hould.be.a.list.of.(VAR.VAL).pai |
| 10b00 | 72 73 2e 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 | rs...Note:.binding.is.done.accor |
| 10b20 | 64 69 6e 67 20 74 6f 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 | ding.to.`-let*'...VALS.are.evalu |
| 10b40 | 61 74 65 64 0a 73 65 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 | ated.sequentially,.and.evaluatio |
| 10b60 | 6e 20 73 74 6f 70 73 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 | n.stops.after.the.first.nil.VAL. |
| 10b80 | 69 73 0a 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 52 53 2d 56 41 4c 53 20 54 | is.encountered...(fn.VARS-VALS.T |
| 10ba0 | 48 45 4e 20 26 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 | HEN.&rest.ELSE)..(defalias.'-if- |
| 10bc0 | 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 5c 33 | let*.'(macro...#[642."\300\301\3 |
| 10be0 | 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 | 02\303\304\305..!\306\"\307\310% |
| 10c00 | 03 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 06 09 5c 22 5c 22 23 5c 32 30 37 22 20 5b 2d | .\311\312\313\314..\"\"#\207".[- |
| 10c20 | 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 32 | reduce-r-from.make-byte-code.512 |
| 10c40 | 20 22 01 40 02 41 40 5c 33 30 31 02 02 44 43 5c 33 30 32 04 06 06 5c 33 30 30 42 42 42 45 5c 32 | .".@.A@\301..DC\302...\300BBBE\2 |
| 10c60 | 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6c 65 74 20 69 66 5d 20 31 30 20 22 | 07".vconcat.vector.[let.if].10." |
| 10c80 | 5c 6e 5c 6e 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 49 54 20 41 43 43 29 22 20 61 70 70 6c 79 | \n\n(fn.&optional.IT.ACC)".apply |
| 10ca0 | 20 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 | .append.mapcar.#[257."\300.@.A@\ |
| 10cc0 | 22 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 | "\207".[dash--match].4."\n\n(fn. |
| 10ce0 | 49 54 29 22 5d 5d 20 31 31 20 28 23 24 20 2e 20 36 38 32 30 39 29 5d 29 29 0a 28 62 79 74 65 2d | IT)"]].11.(#$...68209)])).(byte- |
| 10d00 | 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 5c | code."\300\301\302\303#\210\304\ |
| 10d20 | 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 65 74 2a 20 | 301\305\306#\207".[put.-if-let*. |
| 10d40 | 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 28 73 65 78 70 20 66 | edebug-form-spec.((&rest.(sexp.f |
| 10d60 | 6f 72 6d 29 29 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 | orm)).form.body).function-put.li |
| 10d80 | 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 35 33 20 49 | sp-indent-function.2].4).#@153.I |
| 10da0 | 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 62 69 6e 64 | f.VAL.evaluates.to.non-nil,.bind |
| 10dc0 | 20 69 74 20 74 6f 20 56 41 52 20 61 6e 64 20 64 6f 20 54 48 45 4e 2c 0a 6f 74 68 65 72 77 69 73 | .it.to.VAR.and.do.THEN,.otherwis |
| 10de0 | 65 20 64 6f 20 45 4c 53 45 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e | e.do.ELSE...Note:.binding.is.don |
| 10e00 | 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52 | e.according.to.`-let'...(fn.(VAR |
| 10e20 | 20 56 41 4c 29 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 69 61 | .VAL).THEN.&rest.ELSE)..(defalia |
| 10e40 | 73 20 27 2d 69 66 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 | s.'-if-let.'(macro...#[642."\300 |
| 10e60 | 03 43 03 03 42 42 42 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 5d 20 37 20 28 23 24 20 2e 20 | .C..BBB\207".[-if-let*].7.(#$... |
| 10e80 | 36 39 30 32 33 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 | 69023)])).(byte-code."\300\301\3 |
| 10ea0 | 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 32 30 37 | 02\303#\210\304\301\305\306#\207 |
| 10ec0 | 22 20 5b 70 75 74 20 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 | ".[put.-if-let.edebug-form-spec. |
| 10ee0 | 28 28 73 65 78 70 20 66 6f 72 6d 29 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e | ((sexp.form).form.body).function |
| 10f00 | 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 32 5d 20 34 29 0a | -put.lisp-indent-function.2].4). |
| 10f20 | 23 40 31 31 31 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 | #@111.If.VAL.evaluates.to.non-ni |
| 10f40 | 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 20 64 6f | l,.bind.it.to.symbol.`it'.and.do |
| 10f60 | 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 28 66 6e 20 56 | .THEN,.otherwise.do.ELSE...(fn.V |
| 10f80 | 41 4c 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 69 61 73 20 27 | AL.THEN.&rest.ELSE)..(defalias.' |
| 10fa0 | 2d 2d 69 66 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 | --if-let.'(macro...#[642."\300\3 |
| 10fc0 | 30 31 04 44 03 03 42 42 42 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 20 69 74 5d 20 37 20 28 23 | 01.D..BBB\207".[-if-let.it].7.(# |
| 10fe0 | 24 20 2e 20 36 39 34 31 34 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | $...69414)])).(byte-code."\300\3 |
| 11000 | 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# |
| 11020 | 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 69 66 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d | \207".[put.--if-let.edebug-form- |
| 11040 | 73 70 65 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 | spec.(form.form.body).function-p |
| 11060 | 75 74 20 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 | ut.lisp-indent-function.2].4).#@ |
| 11080 | 33 30 31 20 49 66 20 61 6c 6c 20 56 41 4c 53 20 65 76 61 6c 75 61 74 65 20 74 6f 20 74 72 75 65 | 301.If.all.VALS.evaluate.to.true |
| 110a0 | 2c 20 62 69 6e 64 20 74 68 65 6d 20 74 6f 20 74 68 65 69 72 20 63 6f 72 72 65 73 70 6f 6e 64 69 | ,.bind.them.to.their.correspondi |
| 110c0 | 6e 67 0a 56 41 52 53 20 61 6e 64 20 65 78 65 63 75 74 65 20 62 6f 64 79 2e 20 56 41 52 53 2d 56 | ng.VARS.and.execute.body..VARS-V |
| 110e0 | 41 4c 53 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 28 56 41 52 20 56 41 4c | ALS.should.be.a.list.of.(VAR.VAL |
| 11100 | 29 0a 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 6f 6e 65 20 | ).pairs...Note:.binding.is.done. |
| 11120 | 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 61 72 65 20 | according.to.`-let*'...VALS.are. |
| 11140 | 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 65 76 61 6c | evaluated.sequentially,.and.eval |
| 11160 | 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 20 6e 69 6c | uation.stops.after.the.first.nil |
| 11180 | 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 52 53 2d 56 | .VAL.is.encountered...(fn.VARS-V |
| 111a0 | 41 4c 53 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 77 68 65 | ALS.&rest.BODY)..(defalias.'-whe |
| 111c0 | 6e 2d 6c 65 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 5c 33 30 | n-let*.'(macro...#[385."\300.\30 |
| 111e0 | 31 03 42 45 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 | 1.BE\207".[-if-let*.progn].6.(#$ |
| 11200 | 20 2e 20 36 39 37 36 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 | ...69764)])).(byte-code."\300\30 |
| 11220 | 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#\ |
| 11240 | 32 30 37 22 20 5b 70 75 74 20 2d 77 68 65 6e 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d | 207".[put.-when-let*.edebug-form |
| 11260 | 2d 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 62 6f 64 79 29 | -spec.((&rest.(sexp.form)).body) |
| 11280 | 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 69 | .function-put.lisp-indent-functi |
| 112a0 | 6f 6e 20 31 5d 20 34 29 0a 23 40 31 33 34 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20 | on.1].4).#@134.If.VAL.evaluates. |
| 112c0 | 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 6e 64 20 65 | to.non-nil,.bind.it.to.VAR.and.e |
| 112e0 | 78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 | xecute.body...Note:.binding.is.d |
| 11300 | 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56 | one.according.to.`-let'...(fn.(V |
| 11320 | 41 52 20 56 41 4c 29 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 | AR.VAL).&rest.BODY)..(defalias.' |
| 11340 | 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 30 30 02 | -when-let.'(macro...#[385."\300. |
| 11360 | 5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28 | \301.BE\207".[-if-let.progn].6.( |
| 11380 | 23 24 20 2e 20 37 30 33 31 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | #$...70319)])).(byte-code."\300\ |
| 113a0 | 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 5c 33 30 36 | 301\302\303#\210\304\301\305\306 |
| 113c0 | 23 5c 32 30 37 22 20 5b 70 75 74 20 2d 77 68 65 6e 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 | #\207".[put.-when-let.edebug-for |
| 113e0 | 6d 2d 73 70 65 63 20 28 28 73 65 78 70 20 66 6f 72 6d 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69 | m-spec.((sexp.form).body).functi |
| 11400 | 6f 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 | on-put.lisp-indent-function.1].4 |
| 11420 | 29 0a 23 40 39 32 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 | ).#@92.If.VAL.evaluates.to.non-n |
| 11440 | 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 0a 65 | il,.bind.it.to.symbol.`it'.and.e |
| 11460 | 78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 28 66 6e 20 56 41 4c 20 26 72 65 73 74 20 42 4f 44 59 | xecute.body...(fn.VAL.&rest.BODY |
| 11480 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 77 68 65 6e 2d 6c 65 74 20 27 28 6d 61 63 72 6f | )..(defalias.'--when-let.'(macro |
| 114a0 | 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 2d 69 | ...#[385."\300.\301.BE\207".[--i |
| 114c0 | 66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 37 30 36 39 35 29 5d 29 29 0a 28 | f-let.progn].6.(#$...70695)])).( |
| 114e0 | 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 |
| 11500 | 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 77 68 | \304\301\305\306#\207".[put.--wh |
| 11520 | 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 66 6f 72 6d 20 62 6f | en-let.edebug-form-spec.(form.bo |
| 11540 | 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 6e | dy).function-put.lisp-indent-fun |
| 11560 | 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 39 31 20 54 65 73 74 73 20 66 6f 72 20 65 71 75 61 | ction.1].4).#@191.Tests.for.equa |
| 11580 | 6c 69 74 79 20 75 73 65 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 60 65 71 75 61 6c | lity.use.this.function.or.`equal |
| 115a0 | 27 20 69 66 20 74 68 69 73 20 69 73 20 6e 69 6c 2e 0a 49 74 20 73 68 6f 75 6c 64 20 6f 6e 6c 79 | '.if.this.is.nil..It.should.only |
| 115c0 | 20 62 65 20 73 65 74 20 75 73 69 6e 67 20 64 79 6e 61 6d 69 63 20 73 63 6f 70 65 20 77 69 74 68 | .be.set.using.dynamic.scope.with |
| 115e0 | 20 61 20 6c 65 74 2c 20 6c 69 6b 65 3a 0a 0a 20 20 28 6c 65 74 20 28 28 2d 63 6f 6d 70 61 72 65 | .a.let,.like:....(let.((-compare |
| 11600 | 2d 66 6e 20 23 5c 3d 27 3d 29 29 20 28 2d 75 6e 69 6f 6e 20 6e 75 6d 62 65 72 73 31 20 6e 75 6d | -fn.#\='=)).(-union.numbers1.num |
| 11620 | 62 65 72 73 32 20 6e 75 6d 62 65 72 73 33 29 1f 0a 28 64 65 66 76 61 72 20 2d 63 6f 6d 70 61 72 | bers2.numbers3)..(defvar.-compar |
| 11640 | 65 2d 66 6e 20 6e 69 6c 20 28 23 24 20 2e 20 37 31 30 32 36 29 29 0a 23 40 31 36 30 20 52 65 74 | e-fn.nil.(#$...71026)).#@160.Ret |
| 11660 | 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20 64 75 70 6c 69 63 61 74 | urn.a.new.list.with.all.duplicat |
| 11680 | 65 73 20 72 65 6d 6f 76 65 64 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 | es.removed..The.test.for.equalit |
| 116a0 | 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. |
| 116c0 | 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. |
| 116e0 | 0a 0a 41 6c 69 61 73 3a 20 60 2d 75 6e 69 71 27 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 | ..Alias:.`-uniq'..(fn.LIST)..(de |
| 11700 | 66 61 6c 69 61 73 20 27 2d 64 69 73 74 69 6e 63 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 | falias.'-distinct.#[257."\300.\3 |
| 11720 | 30 31 01 5c 32 30 33 21 00 01 40 5c 33 30 32 04 02 5c 22 5c 32 30 34 15 00 5c 32 31 31 04 42 5c | 01.\203!..@\302..\"\204..\211.B\ |
| 11740 | 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 03 00 5c | 262.\210\211T\262..A\262.\202..\ |
| 11760 | 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 6f 6e 74 61 69 | 266.\211\237\207".[nil.0.-contai |
| 11780 | 6e 73 5c 3f 5d 20 38 20 28 23 24 20 2e 20 37 31 32 36 31 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 | ns\?].8.(#$...71261)]).(defalias |
| 117a0 | 20 27 2d 75 6e 69 71 20 27 2d 64 69 73 74 69 6e 63 74 29 0a 23 40 31 39 37 20 52 65 74 75 72 6e | .'-uniq.'-distinct).#@197.Return |
| 117c0 | 20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 65 6c 65 6d 65 | .a.new.list.containing.the.eleme |
| 117e0 | 6e 74 73 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 | nts.of.LIST.and.elements.of.LIST |
| 11800 | 32 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49 53 54 2e 0a 54 68 65 20 74 65 73 74 | 2.that.are.not.in.LIST..The.test |
| 11820 | 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 61 | .for.equality.is.done.with.`equa |
| 11840 | 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 61 | l',.or.with.`-compare-fn'.if.tha |
| 11860 | 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 28 | t's.non-nil...(fn.LIST.LIST2)..( |
| 11880 | 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 31 02 21 5c 33 | defalias.'-union.#[514."\301.!\3 |
| 118a0 | 30 32 5c 33 30 30 21 5c 32 30 33 11 00 08 5c 32 30 33 11 00 08 5c 32 30 32 12 00 5c 33 30 33 5c | 02\300!\203...\203...\202..\303\ |
| 118c0 | 32 31 31 18 5c 33 30 34 3e 5c 32 30 33 5f 00 5c 33 30 35 5c 33 30 36 08 5c 22 03 5c 33 30 37 01 | 211.\304>\203_.\305\306.\".\307. |
| 118e0 | 5c 32 30 33 38 00 01 40 5c 33 31 30 01 5c 33 31 31 06 06 23 5c 32 36 36 02 5c 32 31 31 54 5c 32 | \2038..@\310.\311..#\266.\211T\2 |
| 11900 | 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 1f 00 5c 32 36 36 02 02 5c 33 30 37 01 5c 32 30 33 5a | 62..A\262.\202..\266..\307.\203Z |
| 11920 | 00 01 40 5c 33 31 32 01 05 5c 22 5c 32 30 34 4e 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 | ..@\312..\"\204N.\211.B\262.\210 |
| 11940 | 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 3c 00 5c 32 36 36 03 5c 32 30 32 | \211T\262..A\262.\202<.\266.\202 |
| 11960 | 5c 32 30 31 00 01 5c 33 30 37 01 5c 32 30 33 7f 00 01 40 5c 33 31 33 04 02 5c 22 5c 32 30 34 73 | \201..\307.\203...@\313..\"\204s |
| 11980 | 00 5c 32 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 | .\211.B\262.\210\211T\262..A\262 |
| 119a0 | 02 5c 32 30 32 61 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 29 5c 32 30 37 22 20 5b 2d 63 6f 6d | .\202a.\266.\211\237)\207".[-com |
| 119c0 | 70 61 72 65 2d 66 6e 20 72 65 76 65 72 73 65 20 62 6f 75 6e 64 70 20 65 71 75 61 6c 20 28 65 71 | pare-fn.reverse.boundp.equal.(eq |
| 119e0 | 20 65 71 6c 20 65 71 75 61 6c 29 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 | .eql.equal).make-hash-table.:tes |
| 11a00 | 74 20 30 20 70 75 74 68 61 73 68 20 74 20 67 65 74 68 61 73 68 20 2d 63 6f 6e 74 61 69 6e 73 5c | t.0.puthash.t.gethash.-contains\ |
| 11a20 | 3f 5d 20 31 32 20 28 23 24 20 2e 20 37 31 36 31 30 29 5d 29 0a 23 40 31 39 31 20 52 65 74 75 72 | ?].12.(#$...71610)]).#@191.Retur |
| 11a40 | 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6f 6e 6c 79 20 74 68 65 | n.a.new.list.containing.only.the |
| 11a60 | 20 65 6c 65 6d 65 6e 74 73 20 74 68 61 74 20 61 72 65 20 6d 65 6d 62 65 72 73 20 6f 66 20 62 6f | .elements.that.are.members.of.bo |
| 11a80 | 74 68 20 4c 49 53 54 20 61 6e 64 20 4c 49 53 54 32 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 | th.LIST.and.LIST2..The.test.for. |
| 11aa0 | 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 61 6c 27 2c 0a 6f | equality.is.done.with.`equal',.o |
| 11ac0 | 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 61 74 27 73 20 6e | r.with.`-compare-fn'.if.that's.n |
| 11ae0 | 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 28 64 65 66 61 6c | on-nil...(fn.LIST.LIST2)..(defal |
| 11b00 | 69 61 73 20 27 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c | ias.'-intersection.#[514."\300.\ |
| 11b20 | 33 30 31 01 5c 32 30 33 21 00 01 40 5c 33 30 32 05 02 5c 22 5c 32 30 33 15 00 5c 32 31 31 04 42 | 301.\203!..@\302..\"\203..\211.B |
| 11b40 | 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 03 00 | \262.\210\211T\262..A\262.\202.. |
| 11b60 | 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 6f 6e 74 61 | \266.\211\237\207".[nil.0.-conta |
| 11b80 | 69 6e 73 5c 3f 5d 20 39 20 28 23 24 20 2e 20 37 32 32 35 31 29 5d 29 0a 23 40 31 37 34 20 52 65 | ins\?].9.(#$...72251)]).#@174.Re |
| 11ba0 | 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 6f 6e 6c 79 20 74 68 65 20 6d 65 | turn.a.new.list.with.only.the.me |
| 11bc0 | 6d 62 65 72 73 20 6f 66 20 4c 49 53 54 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49 | mbers.of.LIST.that.are.not.in.LI |
| 11be0 | 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 64 6f | ST2..The.test.for.equality.is.do |
| 11c00 | 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 70 61 | ne.with.`equal',.or.with.`-compa |
| 11c20 | 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 20 4c | re-fn'.if.that's.non-nil...(fn.L |
| 11c40 | 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 66 66 65 72 65 6e | IST.LIST2)..(defalias.'-differen |
| 11c60 | 63 65 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 5c 33 30 32 | ce.#[514."\300.\301.\203!..@\302 |
| 11c80 | 05 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 54 5c 32 | ..\"\204..\211.B\262.\210\211T\2 |
| 11ca0 | 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 5c 32 30 | 62..A\262.\202..\266.\211\237\20 |
| 11cc0 | 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 20 2e 20 37 | 7".[nil.0.-contains\?].9.(#$...7 |
| 11ce0 | 32 36 30 36 29 5d 29 0a 23 40 34 32 20 52 65 74 75 72 6e 20 74 68 65 20 70 6f 77 65 72 20 73 65 | 2606)]).#@42.Return.the.power.se |
| 11d00 | 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 |
| 11d20 | 20 27 2d 70 6f 77 65 72 73 65 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 | .'-powerset.#[257."\211\204..\30 |
| 11d40 | 30 5c 32 30 37 5c 33 30 31 01 41 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 | 0\207\301.A!\302\303\304\305\306 |
| 11d60 | 5c 33 30 37 5c 33 31 30 06 08 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 03 5c 22 02 5c 22 | \307\310..!\311\"\312\313%.\".\" |
| 11d80 | 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 2d 70 6f 77 65 72 73 65 74 20 61 70 70 65 6e 64 20 6d 61 | \207".[(nil).-powerset.append.ma |
| 11da0 | 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 30 40 01 42 | pcar.make-byte-code.257."\300@.B |
| 11dc0 | 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 6e 28 | \207".vconcat.vector.[].3."\n\n( |
| 11de0 | 66 6e 20 58 29 22 5d 20 31 30 20 28 23 24 20 2e 20 37 32 39 34 31 29 5d 29 0a 23 40 34 35 20 52 | fn.X)"].10.(#$...72941)]).#@45.R |
| 11e00 | 65 74 75 72 6e 20 74 68 65 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 6f 66 20 4c 49 53 54 2e 0a | eturn.the.permutations.of.LIST.. |
| 11e20 | 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 65 72 6d 75 74 61 74 | .(fn.LIST)..(defalias.'-permutat |
| 11e40 | 69 6f 6e 73 20 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 | ions.#[257."\211\204..\300\207\3 |
| 11e60 | 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 5c 33 31 30 06 08 | 01\302\303\304\305\306\307\310.. |
| 11e80 | 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 28 6e 69 6c | !\311\"\312\313%.\"\"\207".[(nil |
| 11ea0 | 29 20 61 70 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 | ).apply.append.mapcar.make-byte- |
| 11ec0 | 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 | code.257."\301\302\303\304\305\3 |
| 11ee0 | 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c 33 31 32 5c 33 31 33 04 5c 33 30 | 06..!\307\"\310\311%\312\313.\30 |
| 11f00 | 30 5c 22 21 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 61 70 63 | 0\"!\"\207".vconcat.vector.[mapc |
| 11f20 | 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 30 01 42 5c 32 30 | ar.make-byte-code.257."\300.B\20 |
| 11f40 | 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 6e 28 66 6e 20 | 7".vconcat.vector.[].3."\n\n(fn. |
| 11f60 | 50 45 52 4d 29 22 20 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 72 65 6d 6f 76 65 5d 20 38 20 22 | PERM)".-permutations.remove].8." |
| 11f80 | 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 30 20 28 23 24 20 2e 20 37 33 32 31 35 29 5d 29 0a 23 | \n\n(fn.X)"].10.(#$...73215)]).# |
| 11fa0 | 40 34 31 20 52 65 74 75 72 6e 20 61 6c 6c 20 70 72 65 66 69 78 65 73 20 6f 66 20 4c 49 53 54 2e | @41.Return.all.prefixes.of.LIST. |
| 11fc0 | 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 69 6e 69 74 73 20 23 | ..(fn.LIST)..(defalias.'-inits.# |
| 11fe0 | 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 32 33 37 21 5c 22 5c 32 33 37 5c 32 | [257."\300\301\302.\237!\"\237\2 |
| 12000 | 30 37 22 20 5b 2d 6d 61 70 20 72 65 76 65 72 73 65 20 2d 74 61 69 6c 73 5d 20 35 20 28 23 24 20 | 07".[-map.reverse.-tails].5.(#$. |
| 12020 | 2e 20 37 33 36 33 36 29 5d 29 0a 23 40 34 30 20 52 65 74 75 72 6e 20 61 6c 6c 20 73 75 66 66 69 | ..73636)]).#@40.Return.all.suffi |
| 12040 | 78 65 73 20 6f 66 20 4c 49 53 54 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | xes.of.LIST..(fn.LIST)..(defalia |
| 12060 | 73 20 27 2d 74 61 69 6c 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 23 5c | s.'-tails.#[257."\300\301\302.#\ |
| 12080 | 32 30 37 22 20 5b 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 63 6f 6e 73 20 6e 69 | 207".[-reductions-r-from.cons.ni |
| 120a0 | 6c 5d 20 35 20 28 23 24 20 2e 20 37 33 37 37 36 29 5d 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20 | l].5.(#$...73776)]).#@62.Return. |
| 120c0 | 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d 6d 6f 6e 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 | the.longest.common.prefix.of.LIS |
| 120e0 | 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 65 66 61 6c 69 61 73 | TS...(fn.&rest.LISTS)..(defalias |
| 12100 | 20 27 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 31 31 | .'-common-prefix.#[128."\211\211 |
| 12120 | 5c 32 30 33 62 00 5c 32 31 31 40 01 41 5c 33 30 30 01 5c 32 30 33 5a 00 01 40 5c 33 30 31 01 5c | \203b.\211@.A\300.\203Z..@\301.\ |
| 12140 | 33 30 32 5c 33 30 30 02 5c 32 30 33 46 00 01 5c 32 30 33 46 00 02 40 06 08 5c 32 30 33 2f 00 06 | 302\300.\203F..\203F..@..\203/.. |
| 12160 | 08 5c 32 31 31 41 5c 32 36 32 5c 6e 5c 32 34 32 01 5c 32 33 32 5c 32 30 34 35 00 5c 33 30 31 5c | .\211A\262\n\242.\232\2045.\301\ |
| 12180 | 32 36 32 03 5c 32 30 32 3a 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 | 262.\202:.\211.B\262.\210\211T\2 |
| 121a0 | 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 14 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 36 | 62..A\262.\202..\266.\211\237\26 |
| 121c0 | 32 01 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 | 2.\262.\210\211T\262..A\262.\202 |
| 121e0 | 5c 6e 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 5c 32 34 32 00 5c 33 30 31 5c 32 | \n.\266.\211\262.\202\242.\301\2 |
| 12200 | 31 31 5c 32 31 31 01 5c 33 30 32 5c 33 30 30 02 5c 32 30 33 5c 32 33 32 00 01 5c 32 30 33 5c 32 | 11\211.\302\300.\203\232..\203\2 |
| 12220 | 33 32 00 02 40 06 06 5c 32 30 33 5c 32 30 33 00 06 06 5c 32 31 31 41 5c 32 36 32 08 5c 32 34 32 | 32..@..\203\203...\211A\262.\242 |
| 12240 | 01 5c 32 33 32 5c 32 30 34 5c 32 31 31 00 5c 33 30 31 5c 32 36 32 03 5c 32 30 32 5c 32 31 36 00 | .\232\204\211.\301\262.\202\216. |
| 12260 | 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 32 03 | \211.B\262.\210\211T\262..A\262. |
| 12280 | 5c 32 30 32 68 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 36 36 5c 32 30 32 | \202h.\266.\211\237\262.\266\202 |
| 122a0 | 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 74 5d 20 31 33 20 28 23 24 20 2e 20 37 33 39 31 33 29 5d | \207".[0.nil.t].13.(#$...73913)] |
| 122c0 | 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#\ |
| 122e0 | 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 |
| 12300 | 69 6f 6e 2d 70 75 74 20 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 70 75 72 65 20 74 20 73 69 | ion-put.-common-prefix.pure.t.si |
| 12320 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 31 36 39 20 52 65 74 75 72 6e 20 | de-effect-free].4).#@169.Return. |
| 12340 | 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 45 4c 45 4d 45 4e 54 | non-nil.if.LIST.contains.ELEMENT |
| 12360 | 2e 0a 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 64 6f 6e 65 | ...The.test.for.equality.is.done |
| 12380 | 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 20 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 | .with.`equal',.or.with.`-compare |
| 123a0 | 2d 66 6e 27 0a 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 | -fn'.if.that's.non-nil...Alias:. |
| 123c0 | 60 2d 63 6f 6e 74 61 69 6e 73 2d 70 27 0a 0a 28 66 6e 20 4c 49 53 54 20 45 4c 45 4d 45 4e 54 29 | `-contains-p'..(fn.LIST.ELEMENT) |
| 123e0 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 35 31 34 20 22 | ..(defalias.'-contains\?.#[514." |
| 12400 | 08 5c 32 30 34 5c 6e 00 5c 32 31 31 02 5c 32 33 35 5c 32 30 32 3a 00 08 5c 33 30 31 3d 5c 32 30 | .\204\n.\211.\235\202:..\301=\20 |
| 12420 | 33 16 00 5c 32 31 31 02 3e 5c 32 30 32 3a 00 08 5c 33 30 32 3d 5c 32 30 33 23 00 5c 33 30 33 01 | 3..\211.>\202:..\302=\203#.\303. |
| 12440 | 03 5c 22 5c 32 30 32 3a 00 01 5c 32 31 31 5c 32 30 33 37 00 08 02 02 40 5c 22 5c 32 30 34 37 00 | .\"\202:..\211\2037....@\"\2047. |
| 12460 | 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 24 00 5c 32 31 31 5c 32 36 32 01 3f 3f 5c 32 30 37 22 | \211A\262.\202$.\211\262.??\207" |
| 12480 | 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 65 71 20 65 71 6c 20 6d 65 6d 71 6c 5d 20 36 20 28 23 | .[-compare-fn.eq.eql.memql].6.(# |
| 124a0 | 24 20 2e 20 37 34 35 35 33 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e | $...74553)]).(defalias.'-contain |
| 124c0 | 73 2d 70 20 27 2d 63 6f 6e 74 61 69 6e 73 5c 3f 29 0a 23 40 31 34 39 20 52 65 74 75 72 6e 20 74 | s-p.'-contains\?).#@149.Return.t |
| 124e0 | 72 75 65 20 69 66 20 4c 49 53 54 20 61 6e 64 20 4c 49 53 54 32 20 68 61 73 20 74 68 65 20 73 61 | rue.if.LIST.and.LIST2.has.the.sa |
| 12500 | 6d 65 20 69 74 65 6d 73 2e 0a 0a 54 68 65 20 6f 72 64 65 72 20 6f 66 20 74 68 65 20 65 6c 65 6d | me.items...The.order.of.the.elem |
| 12520 | 65 6e 74 73 20 69 6e 20 74 68 65 20 6c 69 73 74 73 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65 | ents.in.the.lists.does.not.matte |
| 12540 | 72 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 27 0a 0a 28 66 6e 20 | r...Alias:.`-same-items-p'..(fn. |
| 12560 | 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 73 61 6d 65 2d 69 74 | LIST.LIST2)..(defalias.'-same-it |
| 12580 | 65 6d 73 5c 3f 20 23 5b 35 31 34 20 22 01 47 01 47 01 01 55 5c 32 30 35 11 00 01 5c 33 30 30 05 | ems\?.#[514.".G.G..U\205...\300. |
| 125a0 | 05 5c 22 47 55 5c 32 30 37 22 20 5b 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 5d 20 38 20 28 23 24 | .\"GU\207".[-intersection].8.(#$ |
| 125c0 | 20 2e 20 37 34 39 36 38 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65 | ...74968)]).(defalias.'-same-ite |
| 125e0 | 6d 73 2d 70 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c 3f 29 0a 23 40 38 36 20 52 65 74 75 72 6e | ms-p.'-same-items\?).#@86.Return |
| 12600 | 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 50 52 45 46 49 58 20 69 73 20 70 72 65 66 69 78 20 6f 66 20 | .non-nil.if.PREFIX.is.prefix.of. |
| 12620 | 4c 49 53 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 70 72 65 66 69 78 2d 70 27 0a 0a 28 66 | LIST...Alias:.`-is-prefix-p'..(f |
| 12640 | 6e 20 50 52 45 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 70 | n.PREFIX.LIST)..(defalias.'-is-p |
| 12660 | 72 65 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 | refix\?.#[514."\211\300\301.\203 |
| 12680 | 2a 00 01 5c 32 30 33 2a 00 02 40 05 40 01 5c 32 33 32 5c 32 30 34 1a 00 5c 33 30 32 5c 32 36 32 | *..\203*..@.@.\232\204..\302\262 |
| 126a0 | 03 5c 32 30 32 1e 00 05 41 5c 32 36 32 06 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 | .\202...A\262.\210\211T\262..A\2 |
| 126c0 | 36 32 03 5c 32 30 32 03 00 5c 32 36 36 03 01 3f 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 | 62.\202..\266..?\207".[t.0.nil]. |
| 126e0 | 38 20 28 23 24 20 2e 20 37 35 32 35 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | 8.(#$...75258)]).(byte-code."\30 |
| 12700 | 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 33 | 0\301\302\303#\210\300\301\304\3 |
| 12720 | 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 73 2d 70 72 65 66 69 | 03#\207".[function-put.-is-prefi |
| 12740 | 78 5c 3f 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 | x\?.pure.t.side-effect-free].4). |
| 12760 | 23 40 38 36 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 55 46 46 49 58 20 69 73 | #@86.Return.non-nil.if.SUFFIX.is |
| 12780 | 20 73 75 66 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 2d 73 75 | .suffix.of.LIST...Alias:.`-is-su |
| 127a0 | 66 66 69 78 2d 70 27 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 | ffix-p'..(fn.SUFFIX.LIST)..(defa |
| 127c0 | 6c 69 61 73 20 27 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | lias.'-is-suffix\?.#[514."\300\3 |
| 127e0 | 30 31 03 21 5c 33 30 31 03 21 5c 22 5c 32 30 37 22 20 5b 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 | 01.!\301.!\"\207".[-is-prefix\?. |
| 12800 | 72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 37 35 36 32 31 29 5d 29 0a 28 62 79 74 65 2d | reverse].6.(#$...75621)]).(byte- |
| 12820 | 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\ |
| 12840 | 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. |
| 12860 | 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | -is-suffix\?.pure.t.side-effect- |
| 12880 | 66 72 65 65 5d 20 34 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 | free].4).#@118.Return.non-nil.if |
| 128a0 | 20 49 4e 46 49 58 20 69 73 20 69 6e 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a 54 68 69 73 20 6f | .INFIX.is.infix.of.LIST...This.o |
| 128c0 | 70 65 72 61 74 69 6f 6e 20 72 75 6e 73 20 69 6e 20 4f 28 6e 5e 32 29 20 74 69 6d 65 0a 0a 41 6c | peration.runs.in.O(n^2).time..Al |
| 128e0 | 69 61 73 3a 20 60 2d 69 73 2d 69 6e 66 69 78 2d 70 27 0a 0a 28 66 6e 20 49 4e 46 49 58 20 4c 49 | ias:.`-is-infix-p'..(fn.INFIX.LI |
| 12900 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 69 6e 66 69 78 5c 3f 20 23 5b 35 31 | ST)..(defalias.'-is-infix\?.#[51 |
| 12920 | 34 20 22 5c 33 30 30 5c 32 31 31 5c 32 30 34 16 00 01 5c 32 30 33 16 00 5c 33 30 31 03 03 5c 22 | 4."\300\211\204...\203..\301..\" |
| 12940 | 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c | \262..A\262.\202..\211\207".[nil |
| 12960 | 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 5d 20 36 20 28 23 24 20 2e 20 37 35 39 31 39 29 5d 29 0a | .-is-prefix\?].6.(#$...75919)]). |
| 12980 | 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 31 | (byte-code."\300\301\302\303#\21 |
| 129a0 | 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 | 0\300\301\304\303#\210\305\306\3 |
| 129c0 | 30 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 30 5c 33 31 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 | 07\"\210\305\310\311\"\210\305\3 |
| 129e0 | 31 32 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d | 12\301\"\207".[function-put.-is- |
| 12a00 | 69 6e 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 | infix\?.pure.t.side-effect-free. |
| 12a20 | 64 65 66 61 6c 69 61 73 20 2d 69 73 2d 70 72 65 66 69 78 2d 70 20 2d 69 73 2d 70 72 65 66 69 78 | defalias.-is-prefix-p.-is-prefix |
| 12a40 | 5c 3f 20 2d 69 73 2d 73 75 66 66 69 78 2d 70 20 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 2d 69 73 | \?.-is-suffix-p.-is-suffix\?.-is |
| 12a60 | 2d 69 6e 66 69 78 2d 70 5d 20 34 29 0a 23 40 32 36 38 20 53 6f 72 74 20 4c 49 53 54 2c 20 73 74 | -infix-p].4).#@268.Sort.LIST,.st |
| 12a80 | 61 62 6c 79 2c 20 63 6f 6d 70 61 72 69 6e 67 20 65 6c 65 6d 65 6e 74 73 20 75 73 69 6e 67 20 43 | ably,.comparing.elements.using.C |
| 12aa0 | 4f 4d 50 41 52 41 54 4f 52 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 73 6f 72 74 65 64 20 6c 69 73 | OMPARATOR..Return.the.sorted.lis |
| 12ac0 | 74 2e 20 20 4c 49 53 54 20 69 73 20 4e 4f 54 20 6d 6f 64 69 66 69 65 64 20 62 79 20 73 69 64 65 | t...LIST.is.NOT.modified.by.side |
| 12ae0 | 20 65 66 66 65 63 74 73 2e 0a 43 4f 4d 50 41 52 41 54 4f 52 20 69 73 20 63 61 6c 6c 65 64 20 77 | .effects..COMPARATOR.is.called.w |
| 12b00 | 69 74 68 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2c 20 61 6e 64 20 73 68 | ith.two.elements.of.LIST,.and.sh |
| 12b20 | 6f 75 6c 64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 0a 69 66 20 74 68 65 20 66 69 72 73 74 | ould.return.non-nil.if.the.first |
| 12b40 | 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 73 6f 72 74 20 62 65 66 6f 72 65 20 74 68 65 20 | .element.should.sort.before.the. |
| 12b60 | 73 65 63 6f 6e 64 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 | second...(fn.COMPARATOR.LIST)..( |
| 12b80 | 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 72 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 | defalias.'-sort.#[514."\300\301. |
| 12ba0 | 21 03 5c 22 5c 32 30 37 22 20 5b 73 6f 72 74 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 35 | !.\"\207".[sort.copy-sequence].5 |
| 12bc0 | 20 28 23 24 20 2e 20 37 36 34 30 33 29 5d 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 | .(#$...76403)]).#@44.Anaphoric.f |
| 12be0 | 6f 72 6d 20 6f 66 20 60 2d 73 6f 72 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f | orm.of.`-sort'...(fn.FORM.LIST). |
| 12c00 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 72 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 | .(defalias.'--sort.'(macro...#[5 |
| 12c20 | 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 6f 72 74 | 14."\300\301\302.E.E\207".[-sort |
| 12c40 | 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 5d 20 36 20 28 23 24 20 2e 20 37 36 37 35 | .lambda.(it.other)].6.(#$...7675 |
| 12c60 | 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 6f 72 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d | 7)])).(put.'--sort.'edebug-form- |
| 12c80 | 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 35 31 20 52 65 74 75 72 6e 20 | spec.'(form.form)).#@151.Return. |
| 12ca0 | 61 20 6c 69 73 74 20 77 69 74 68 20 41 52 47 53 2e 0a 0a 49 66 20 66 69 72 73 74 20 69 74 65 6d | a.list.with.ARGS...If.first.item |
| 12cc0 | 20 6f 66 20 41 52 47 53 20 69 73 20 61 6c 72 65 61 64 79 20 61 20 6c 69 73 74 2c 20 73 69 6d 70 | .of.ARGS.is.already.a.list,.simp |
| 12ce0 | 6c 79 20 72 65 74 75 72 6e 20 41 52 47 53 2e 20 20 49 66 0a 6e 6f 74 2c 20 72 65 74 75 72 6e 20 | ly.return.ARGS...If.not,.return. |
| 12d00 | 61 20 6c 69 73 74 20 77 69 74 68 20 41 52 47 53 20 61 73 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 28 | a.list.with.ARGS.as.elements...( |
| 12d20 | 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 69 73 74 | fn.&rest.ARGS)..(defalias.'-list |
| 12d40 | 20 23 5b 31 32 38 20 22 5c 32 31 31 40 5c 32 31 31 3c 5c 32 30 33 0b 00 5c 32 31 31 5c 32 30 32 | .#[128."\211@\211<\203..\211\202 |
| 12d60 | 5c 66 00 01 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20 37 36 39 35 33 29 5d 29 0a 28 62 | \f..\207".[].3.(#$...76953)]).(b |
| 12d80 | 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\ |
| 12da0 | 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- |
| 12dc0 | 70 75 74 20 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 65 | put.-list.pure.t.side-effect-fre |
| 12de0 | 65 5d 20 34 29 0a 23 40 38 32 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 58 20 | e].4).#@82.Return.a.list.with.X. |
| 12e00 | 72 65 70 65 61 74 65 64 20 4e 20 74 69 6d 65 73 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 | repeated.N.times..Return.nil.if. |
| 12e20 | 4e 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 31 2e 0a 0a 28 66 6e 20 4e 20 58 29 1f 0a 28 64 65 | N.is.less.than.1...(fn.N.X)..(de |
| 12e40 | 66 61 6c 69 61 73 20 27 2d 72 65 70 65 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 | falias.'-repeat.#[514."\300.\301 |
| 12e60 | 5c 32 31 31 02 57 5c 32 30 33 15 00 03 03 42 5c 32 36 32 03 5c 32 31 31 54 5c 32 36 32 01 5c 32 | \211.W\203....B\262.\211T\262.\2 |
| 12e80 | 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 37 20 28 23 24 | 02..\266.\211\207".[nil.0].7.(#$ |
| 12ea0 | 20 2e 20 37 37 32 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 | ...77291)]).(byte-code."\300\301 |
| 12ec0 | 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 |
| 12ee0 | 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 65 61 74 20 70 75 72 65 20 74 | 07".[function-put.-repeat.pure.t |
| 12f00 | 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 33 36 20 52 65 74 75 72 | .side-effect-free].4).#@36.Retur |
| 12f20 | 6e 20 74 68 65 20 73 75 6d 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 | n.the.sum.of.LIST...(fn.LIST)..( |
| 12f40 | 64 65 66 61 6c 69 61 73 20 27 2d 73 75 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c | defalias.'-sum.#[257."\300\301.\ |
| 12f60 | 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2b 5d 20 34 20 28 23 24 20 2e 20 37 37 35 39 35 29 5d | "\207".[apply.+].4.(#$...77595)] |
| 12f80 | 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#\ |
| 12fa0 | 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 |
| 12fc0 | 69 6f 6e 2d 70 75 74 20 2d 73 75 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | ion-put.-sum.pure.t.side-effect- |
| 12fe0 | 66 72 65 65 5d 20 34 29 0a 23 40 38 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 | free].4).#@87.Return.a.list.with |
| 13000 | 20 72 75 6e 6e 69 6e 67 20 73 75 6d 73 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a | .running.sums.of.items.in.LIST.. |
| 13020 | 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 6e 20 4c 49 | .LIST.must.be.non-empty...(fn.LI |
| 13040 | 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 73 75 6d 20 23 5b 32 | ST)..(defalias.'-running-sum.#[2 |
| 13060 | 35 37 20 22 5c 32 31 31 3a 5c 32 30 34 09 00 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 | 57."\211:\204..\300\301!\210\302 |
| 13080 | 5c 33 30 33 02 5c 22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 4c 49 53 54 20 6d 75 73 74 20 62 | \303.\"\207".[error."LIST.must.b |
| 130a0 | 65 20 6e 6f 6e 2d 65 6d 70 74 79 22 20 2d 72 65 64 75 63 74 69 6f 6e 73 20 2b 5d 20 34 20 28 23 | e.non-empty".-reductions.+].4.(# |
| 130c0 | 24 20 2e 20 37 37 38 30 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 | $...77806)]).(byte-code."\300\30 |
| 130e0 | 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#\ |
| 13100 | 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 20 | 207".[function-put.-running-sum. |
| 13120 | 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 34 30 | pure.t.side-effect-free].4).#@40 |
| 13140 | 20 52 65 74 75 72 6e 20 74 68 65 20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 | .Return.the.product.of.LIST...(f |
| 13160 | 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 72 6f 64 75 63 74 20 23 5b 32 | n.LIST)..(defalias.'-product.#[2 |
| 13180 | 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 2a 5d 20 34 | 57."\300\301.\"\207".[apply.*].4 |
| 131a0 | 20 28 23 24 20 2e 20 37 38 31 34 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...78145)]).(byte-code."\300 |
| 131c0 | 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 |
| 131e0 | 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 72 6f 64 75 63 74 20 70 | 3#\207".[function-put.-product.p |
| 13200 | 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 39 31 20 | ure.t.side-effect-free].4).#@91. |
| 13220 | 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 72 75 6e 6e 69 6e 67 20 70 72 6f 64 75 | Return.a.list.with.running.produ |
| 13240 | 63 74 73 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 4c 49 53 54 20 6d 75 73 74 | cts.of.items.in.LIST...LIST.must |
| 13260 | 20 62 65 20 6e 6f 6e 2d 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 | .be.non-empty...(fn.LIST)..(defa |
| 13280 | 6c 69 61 73 20 27 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 20 23 5b 32 35 37 20 22 5c 32 | lias.'-running-product.#[257."\2 |
| 132a0 | 31 31 3a 5c 32 30 34 09 00 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 02 5c | 11:\204..\300\301!\210\302\303.\ |
| 132c0 | 22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d | "\207".[error."LIST.must.be.non- |
| 132e0 | 65 6d 70 74 79 22 20 2d 72 65 64 75 63 74 69 6f 6e 73 20 2a 5d 20 34 20 28 23 24 20 2e 20 37 38 | empty".-reductions.*].4.(#$...78 |
| 13300 | 33 36 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 | 368)]).(byte-code."\300\301\302\ |
| 13320 | 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".[ |
| 13340 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 20 70 75 | function-put.-running-product.pu |
| 13360 | 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 37 30 20 52 | re.t.side-effect-free].4).#@70.R |
| 13380 | 65 74 75 72 6e 20 74 68 65 20 6c 61 72 67 65 73 74 20 76 61 6c 75 65 20 66 72 6f 6d 20 4c 49 53 | eturn.the.largest.value.from.LIS |
| 133a0 | 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 28 66 6e 20 4c 49 | T.of.numbers.or.markers...(fn.LI |
| 133c0 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 78 20 23 5b 32 35 37 20 22 5c 33 30 30 | ST)..(defalias.'-max.#[257."\300 |
| 133e0 | 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 61 78 5d 20 34 20 28 23 24 20 2e | \301.\"\207".[apply.max].4.(#$.. |
| 13400 | 20 37 38 37 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 31 5c 33 | .78719)]).(byte-code."\300\301\3 |
| 13420 | 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 |
| 13440 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6d 61 78 20 70 75 72 65 20 74 20 73 69 64 65 | ".[function-put.-max.pure.t.side |
| 13460 | 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 37 31 20 52 65 74 75 72 6e 20 74 68 65 | -effect-free].4).#@71.Return.the |
| 13480 | 20 73 6d 61 6c 6c 65 73 74 20 76 61 6c 75 65 20 66 72 6f 6d 20 4c 49 53 54 20 6f 66 20 6e 75 6d | .smallest.value.from.LIST.of.num |
| 134a0 | 62 65 72 73 20 6f 72 20 6d 61 72 6b 65 72 73 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 | bers.or.markers...(fn.LIST)..(de |
| 134c0 | 66 61 6c 69 61 73 20 27 2d 6d 69 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c | falias.'-min.#[257."\300\301.\"\ |
| 134e0 | 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 69 6e 5d 20 34 20 28 23 24 20 2e 20 37 38 39 36 36 29 5d | 207".[apply.min].4.(#$...78966)] |
| 13500 | 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#\ |
| 13520 | 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 |
| 13540 | 69 6f 6e 2d 70 75 74 20 2d 6d 69 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | ion-put.-min.pure.t.side-effect- |
| 13560 | 66 72 65 65 5d 20 34 29 0a 23 40 32 32 35 20 54 61 6b 65 20 61 20 63 6f 6d 70 61 72 69 73 6f 6e | free].4).#@225.Take.a.comparison |
| 13580 | 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 53 54 20 | .function.COMPARATOR.and.a.LIST. |
| 135a0 | 61 6e 64 20 72 65 74 75 72 6e 0a 74 68 65 20 67 72 65 61 74 65 73 74 20 65 6c 65 6d 65 6e 74 20 | and.return.the.greatest.element. |
| 135c0 | 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 |
| 135e0 | 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 |
| 13600 | 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 |
| 13620 | 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 |
| 13640 | 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 61 78 2d | MPARATOR.LIST)..(defalias.'-max- |
| 13660 | 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\ |
| 13680 | 33 30 30 01 5c 32 30 33 2b 00 01 40 06 06 01 05 5c 22 5c 32 30 33 1c 00 5c 32 31 31 5c 32 30 32 | 300.\203+..@....\"\203..\211\202 |
| 136a0 | 1d 00 03 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 | ...\262.\210\211T\262..A\262.\20 |
| 136c0 | 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 |
| 136e0 | 04 01 03 5c 22 5c 32 30 33 40 00 5c 32 31 31 5c 32 30 32 41 00 01 5c 32 36 36 5c 32 30 32 5c 32 | ...\"\203@.\211\202A..\266\202\2 |
| 13700 | 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 37 39 32 31 35 29 5d 29 0a 23 40 | 07".[0.nil].10.(#$...79215)]).#@ |
| 13720 | 32 32 32 20 54 61 6b 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 | 222.Take.a.comparison.function.C |
| 13740 | 4f 4d 50 41 52 41 54 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 | OMPARATOR.and.a.LIST.and.return. |
| 13760 | 74 68 65 20 6c 65 61 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 | the.least.element.of.the.list.by |
| 13780 | 20 74 68 65 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 | .the.comparison.function...See.a |
| 137a0 | 6c 73 6f 20 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 | lso.combinator.`-on'.which.can.t |
| 137c0 | 72 61 6e 73 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 | ransform.the.values.before.compa |
| 137e0 | 72 69 6e 67 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 | ring.them...(fn.COMPARATOR.LIST) |
| 13800 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 69 6e 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 31 | ..(defalias.'-min-by.#[514."\211 |
| 13820 | 5c 32 31 31 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 | \211\2033.\211@.A\300.\203+..@.. |
| 13840 | 01 05 5c 22 5c 32 30 33 1c 00 03 5c 32 30 32 1d 00 5c 32 31 31 5c 32 36 32 04 5c 32 31 30 5c 32 | ..\"\203...\202..\211\262.\210\2 |
| 13860 | 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 5c | 11T\262..A\262.\202\n.\266.\211\ |
| 13880 | 32 36 32 01 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 01 5c 32 | 262.\202C.\301\211...\"\203@..\2 |
| 138a0 | 30 32 41 00 5c 32 31 31 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 | 02A.\211\266\202\207".[0.nil].10 |
| 138c0 | 20 28 23 24 20 2e 20 37 39 36 35 32 29 5d 29 0a 23 40 31 31 37 20 41 6e 61 70 68 6f 72 69 63 20 | .(#$...79652)]).#@117.Anaphoric. |
| 138e0 | 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 6d 61 78 2d 62 79 27 2e 0a 0a 54 68 65 20 69 74 65 6d 73 | version.of.`-max-by'...The.items |
| 13900 | 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 70 | .for.the.comparator.form.are.exp |
| 13920 | 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 46 | osed.as."it".and."other"...(fn.F |
| 13940 | 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 78 2d 62 79 20 27 | ORM.LIST)..(defalias.'--max-by.' |
| 13960 | 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 45 | (macro...#[514."\300\301\302.E.E |
| 13980 | 5c 32 30 37 22 20 5b 2d 6d 61 78 2d 62 79 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 | \207".[-max-by.lambda.(it.other) |
| 139a0 | 5d 20 36 20 28 23 24 20 2e 20 38 30 30 38 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 78 2d | ].6.(#$...80086)])).(put.'--max- |
| 139c0 | 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 6d | by.'edebug-form-spec.'(form.form |
| 139e0 | 29 29 0a 23 40 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 | )).#@117.Anaphoric.version.of.`- |
| 13a00 | 6d 69 6e 2d 62 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 | min-by'...The.items.for.the.comp |
| 13a20 | 61 72 61 74 6f 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 | arator.form.are.exposed.as."it". |
| 13a40 | 61 6e 64 20 22 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 | and."other"...(fn.FORM.LIST)..(d |
| 13a60 | 65 66 61 6c 69 61 73 20 27 2d 2d 6d 69 6e 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 | efalias.'--min-by.'(macro...#[51 |
| 13a80 | 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 6d 69 6e 2d 62 | 4."\300\301\302.E.E\207".[-min-b |
| 13aa0 | 79 20 6c 61 6d 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 30 33 | y.lambda.(it.other)].6.(#$...803 |
| 13ac0 | 36 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 69 6e 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f | 61)])).(put.'--min-by.'edebug-fo |
| 13ae0 | 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 38 32 20 52 65 74 75 | rm-spec.'(form.form)).#@182.Retu |
| 13b00 | 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 69 74 65 72 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f | rn.a.list.of.iterated.applicatio |
| 13b20 | 6e 73 20 6f 66 20 46 55 4e 20 74 6f 20 49 4e 49 54 2e 0a 0a 54 68 69 73 20 6d 65 61 6e 73 20 61 | ns.of.FUN.to.INIT...This.means.a |
| 13b40 | 20 6c 69 73 74 20 6f 66 20 66 6f 72 6d 3a 0a 0a 20 20 28 69 6e 69 74 20 28 66 75 6e 20 69 6e 69 | .list.of.form:....(init.(fun.ini |
| 13b60 | 74 29 20 28 66 75 6e 20 28 66 75 6e 20 69 6e 69 74 29 29 20 2e 2e 2e 29 0a 0a 4e 20 69 73 20 74 | t).(fun.(fun.init))....)..N.is.t |
| 13b80 | 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a | he.length.of.the.returned.list.. |
| 13ba0 | 0a 28 66 6e 20 46 55 4e 20 49 4e 49 54 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 74 | .(fn.FUN.INIT.N)..(defalias.'-it |
| 13bc0 | 65 72 61 74 65 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 33 30 30 55 3f 5c 32 30 35 27 00 01 43 01 | erate.#[771."\211\300U?\205'..C. |
| 13be0 | 53 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 33 21 00 05 03 40 21 03 42 5c 32 36 32 03 5c 32 31 31 | S\300\211.W\203!...@!.B\262.\211 |
| 13c00 | 54 5c 32 36 32 01 5c 32 30 32 5c 66 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c | T\262.\202\f.\266.\211\237\262.\ |
| 13c20 | 32 30 37 22 20 5b 30 5d 20 38 20 28 23 24 20 2e 20 38 30 36 33 36 29 5d 29 0a 23 40 31 33 39 20 | 207".[0].8.(#$...80636)]).#@139. |
| 13c40 | 43 6f 6d 70 75 74 65 20 74 68 65 20 28 6c 65 61 73 74 29 20 66 69 78 70 6f 69 6e 74 20 6f 66 20 | Compute.the.(least).fixpoint.of. |
| 13c60 | 46 4e 20 77 69 74 68 20 69 6e 69 74 69 61 6c 20 69 6e 70 75 74 20 4c 49 53 54 2e 0a 0a 46 4e 20 | FN.with.initial.input.LIST...FN. |
| 13c80 | 69 73 20 63 61 6c 6c 65 64 20 61 74 20 6c 65 61 73 74 20 6f 6e 63 65 2c 20 72 65 73 75 6c 74 73 | is.called.at.least.once,.results |
| 13ca0 | 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 77 69 74 68 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e | .are.compared.with.`equal'...(fn |
| 13cc0 | 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 78 20 23 5b 35 31 34 | .FN.LIST)..(defalias.'-fix.#[514 |
| 13ce0 | 20 22 01 01 21 01 01 5c 32 33 32 5c 32 30 34 14 00 5c 32 31 31 5c 32 36 32 02 02 01 21 5c 32 36 | ."..!..\232\204..\211\262...!\26 |
| 13d00 | 32 01 5c 32 30 32 03 00 5c 32 31 31 5c 32 30 37 22 20 5b 5d 20 35 20 28 23 24 20 2e 20 38 30 39 | 2.\202..\211\207".[].5.(#$...809 |
| 13d20 | 36 30 29 5d 29 0a 23 40 34 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 | 60)]).#@43.Anaphoric.form.of.`-f |
| 13d40 | 69 78 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 | ix'...(fn.FORM.LIST)..(defalias. |
| 13d60 | 27 2d 2d 66 69 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 | '--fix.'(macro...#[514."\300\301 |
| 13d80 | 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d | \302.E.E\207".[-fix.lambda.(it)] |
| 13da0 | 20 36 20 28 23 24 20 2e 20 38 31 31 39 35 29 5d 29 29 0a 23 40 33 36 32 20 42 75 69 6c 64 20 61 | .6.(#$...81195)])).#@362.Build.a |
| 13dc0 | 20 6c 69 73 74 20 66 72 6f 6d 20 53 45 45 44 20 75 73 69 6e 67 20 46 55 4e 2e 0a 0a 54 68 69 73 | .list.from.SEED.using.FUN...This |
| 13de0 | 20 69 73 20 22 64 75 61 6c 22 20 6f 70 65 72 61 74 69 6f 6e 20 74 6f 20 60 2d 72 65 64 75 63 65 | .is."dual".operation.to.`-reduce |
| 13e00 | 2d 72 27 3a 20 77 68 69 6c 65 20 2d 72 65 64 75 63 65 2d 72 0a 63 6f 6e 73 75 6d 65 73 20 61 20 | -r':.while.-reduce-r.consumes.a. |
| 13e20 | 6c 69 73 74 20 74 6f 20 70 72 6f 64 75 63 65 20 61 20 73 69 6e 67 6c 65 20 76 61 6c 75 65 2c 20 | list.to.produce.a.single.value,. |
| 13e40 | 60 2d 75 6e 66 6f 6c 64 27 20 74 61 6b 65 73 20 61 0a 73 65 65 64 20 76 61 6c 75 65 20 61 6e 64 | `-unfold'.takes.a.seed.value.and |
| 13e60 | 20 62 75 69 6c 64 73 20 61 20 28 70 6f 74 65 6e 74 69 61 6c 6c 79 20 69 6e 66 69 6e 69 74 65 21 | .builds.a.(potentially.infinite! |
| 13e80 | 29 20 6c 69 73 74 2e 0a 0a 46 55 4e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 60 6e 69 6c 27 | ).list...FUN.should.return.`nil' |
| 13ea0 | 20 74 6f 20 73 74 6f 70 20 74 68 65 20 67 65 6e 65 72 61 74 69 6e 67 20 70 72 6f 63 65 73 73 2c | .to.stop.the.generating.process, |
| 13ec0 | 20 6f 72 20 61 0a 63 6f 6e 73 20 28 41 20 2e 20 42 29 2c 20 77 68 65 72 65 20 41 20 77 69 6c 6c | .or.a.cons.(A...B),.where.A.will |
| 13ee0 | 20 62 65 20 70 72 65 70 65 6e 64 65 64 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 61 6e 64 20 | .be.prepended.to.the.result.and. |
| 13f00 | 42 20 69 73 0a 74 68 65 20 6e 65 77 20 73 65 65 64 2e 0a 0a 28 66 6e 20 46 55 4e 20 53 45 45 44 | B.is.the.new.seed...(fn.FUN.SEED |
| 13f20 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 66 6f 6c 64 20 23 5b 35 31 34 20 22 01 01 21 | )..(defalias.'-unfold.#[514."..! |
| 13f40 | 5c 33 30 30 01 5c 32 30 33 17 00 01 40 01 42 5c 32 36 32 01 03 02 41 21 5c 32 36 32 02 5c 32 30 | \300.\203...@.B\262...A!\262.\20 |
| 13f60 | 32 04 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 38 | 2..\211\237\207".[nil].6.(#$...8 |
| 13f80 | 31 33 33 37 29 5d 29 0a 23 40 34 39 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f | 1337)]).#@49.Anaphoric.version.o |
| 13fa0 | 66 20 60 2d 75 6e 66 6f 6c 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 53 45 45 44 29 1f 0a 28 64 | f.`-unfold'...(fn.FORM.SEED)..(d |
| 13fc0 | 65 66 61 6c 69 61 73 20 27 2d 2d 75 6e 66 6f 6c 64 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 | efalias.'--unfold.'(macro...#[51 |
| 13fe0 | 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 75 6e 66 6f 6c | 4."\300\301\302.E.E\207".[-unfol |
| 14000 | 64 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 38 31 38 30 35 29 5d 29 29 | d.lambda.(it)].6.(#$...81805)])) |
| 14020 | 0a 28 70 75 74 20 27 2d 2d 75 6e 66 6f 6c 64 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | .(put.'--unfold.'edebug-form-spe |
| 14040 | 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 31 20 52 65 74 75 72 6e 20 6e 6f 6e 2d | c.'(form.form)).#@91.Return.non- |
| 14060 | 6e 69 6c 20 69 66 20 43 4f 4e 20 69 73 20 74 72 75 65 20 63 6f 6e 73 20 70 61 69 72 2e 0a 54 68 | nil.if.CON.is.true.cons.pair..Th |
| 14080 | 61 74 20 69 73 20 28 41 20 2e 20 42 29 20 77 68 65 72 65 20 42 20 69 73 20 6e 6f 74 20 61 20 6c | at.is.(A...B).where.B.is.not.a.l |
| 140a0 | 69 73 74 2e 0a 0a 28 66 6e 20 43 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 | ist...(fn.CON)..(defalias.'-cons |
| 140c0 | 2d 70 61 69 72 5c 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 35 09 00 5c 32 31 31 41 3c | -pair\?.#[257."\211<\205..\211A< |
| 140e0 | 3f 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 38 32 30 30 35 29 5d 29 0a 28 62 79 74 65 | ?\207".[].2.(#$...82005)]).(byte |
| 14100 | 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 |
| 14120 | 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 |
| 14140 | 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 | .-cons-pair\?.pure.t.side-effect |
| 14160 | 2d 66 72 65 65 5d 20 34 29 0a 23 40 38 38 20 43 6f 6e 76 65 72 74 20 61 20 63 6f 6e 73 20 70 61 | -free].4).#@88.Convert.a.cons.pa |
| 14180 | 69 72 20 74 6f 20 61 20 6c 69 73 74 20 77 69 74 68 20 60 63 61 72 27 20 61 6e 64 20 60 63 64 72 | ir.to.a.list.with.`car'.and.`cdr |
| 141a0 | 27 20 6f 66 20 74 68 65 20 70 61 69 72 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 0a 28 66 6e | '.of.the.pair.respectively...(fn |
| 141c0 | 20 43 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2d 74 6f 2d 6c 69 73 74 20 | .CON)..(defalias.'-cons-to-list. |
| 141e0 | 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 44 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20 | #[257."\211@.AD\207".[].3.(#$... |
| 14200 | 38 32 32 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 | 82287)]).(byte-code."\300\301\30 |
| 14220 | 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" |
| 14240 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2d 74 6f 2d 6c 69 73 74 20 70 75 72 | .[function-put.-cons-to-list.pur |
| 14260 | 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 39 32 20 43 | e.t.side-effect-free].4).#@192.C |
| 14280 | 6f 6e 76 65 72 74 20 61 20 76 61 6c 75 65 20 74 6f 20 61 20 6c 69 73 74 2e 0a 0a 49 66 20 74 68 | onvert.a.value.to.a.list...If.th |
| 142a0 | 65 20 76 61 6c 75 65 20 69 73 20 61 20 63 6f 6e 73 20 70 61 69 72 2c 20 6d 61 6b 65 20 61 20 6c | e.value.is.a.cons.pair,.make.a.l |
| 142c0 | 69 73 74 20 77 69 74 68 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2c 20 60 63 61 72 27 0a 61 6e 64 | ist.with.two.elements,.`car'.and |
| 142e0 | 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 70 61 69 72 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e | .`cdr'.of.the.pair.respectively. |
| 14300 | 0a 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 61 6e 79 74 68 69 6e 67 20 65 6c 73 65 2c | ..If.the.value.is.anything.else, |
| 14320 | 20 77 72 61 70 20 69 74 20 69 6e 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 56 41 4c 29 1f 0a 28 | .wrap.it.in.a.list...(fn.VAL)..( |
| 14340 | 64 65 66 61 6c 69 61 73 20 27 2d 76 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 20 23 5b 32 35 37 20 22 | defalias.'-value-to-list.#[257." |
| 14360 | 5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30 31 01 21 5c 32 30 37 5c 32 31 31 43 5c 32 30 37 | \300.!\203\n.\301.!\207\211C\207 |
| 14380 | 22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 63 6f 6e 73 2d 74 6f 2d 6c 69 73 74 5d 20 33 | ".[-cons-pair\?.-cons-to-list].3 |
| 143a0 | 20 28 23 24 20 2e 20 38 32 35 35 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...82559)]).(byte-code."\300 |
| 143c0 | 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 |
| 143e0 | 33 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 76 61 6c 75 65 2d 74 6f 2d | 3#\207".[function-put.-value-to- |
| 14400 | 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 65 65 5d 20 34 29 | list.pure.t.side-effect-free].4) |
| 14420 | 0a 23 40 34 32 33 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 | .#@423.Apply.FN.to.each.element. |
| 14440 | 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 6f 66 20 74 68 65 20 | of.TREE,.and.make.a.list.of.the. |
| 14460 | 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 52 45 45 20 61 72 65 | results..If.elements.of.TREE.are |
| 14480 | 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 46 4e 20 72 65 63 75 | .lists.themselves,.apply.FN.recu |
| 144a0 | 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 65 73 65 20 6e 65 73 | rsively.to.elements.of.these.nes |
| 144c0 | 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 68 65 20 72 65 73 75 | ted.lists...Then.reduce.the.resu |
| 144e0 | 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 61 6e 64 20 69 6e 69 | lting.lists.using.FOLDER.and.ini |
| 14500 | 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 65 20 60 2d 72 65 64 | tial.value.INIT-VALUE..See.`-red |
| 14520 | 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 20 73 61 6d 65 20 61 | uce-r-from'...This.is.the.same.a |
| 14540 | 73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 61 66 | s.calling.`-tree-reduce-from'.af |
| 14560 | 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 73 20 | ter.`-tree-map'.but.is.twice.as. |
| 14580 | 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 74 72 | fast.as.it.only.traverse.the.str |
| 145a0 | 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 49 4e 49 54 | ucture.once...(fn.FN.FOLDER.INIT |
| 145c0 | 2d 56 41 4c 55 45 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 | -VALUE.TREE)..(defalias.'-tree-m |
| 145e0 | 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 31 30 32 38 20 22 5c 32 31 31 5c 32 30 34 06 00 | apreduce-from.#[1028."\211\204.. |
| 14600 | 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 03 01 21 5c 32 30 37 5c 32 31 31 3c | \300\207\301.!\203....!\207\211< |
| 14620 | 5c 32 30 33 2e 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 37 | \203..\302..\303\304\305\306\307 |
| 14640 | 5c 33 31 30 06 5c 66 06 5c 66 06 5c 66 23 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 05 5c 22 | \310.\f.\f.\f#\311\"\312\313%.\" |
| 14660 | 23 5c 32 30 37 03 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 20 | #\207..!\207".[nil.-cons-pair\?. |
| 14680 | 2d 72 65 64 75 63 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 | -reduce-r-from.mapcar.make-byte- |
| 146a0 | 63 6f 64 65 20 32 35 37 20 22 5c 33 30 33 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 24 5c 32 30 37 | code.257."\303\300\301\302.$\207 |
| 146c0 | 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 70 72 65 64 75 63 | ".vconcat.vector.[-tree-mapreduc |
| 146e0 | 65 2d 66 72 6f 6d 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 36 20 28 23 24 20 2e | e-from].6."\n\n(fn.X)"].16.(#$.. |
| 14700 | 20 38 32 39 38 33 29 5d 29 0a 23 40 37 37 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 | .82983)]).#@77.Anaphoric.form.of |
| 14720 | 20 60 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f | .`-tree-mapreduce-from'...(fn.FO |
| 14740 | 52 4d 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 | RM.FOLDER.INIT-VALUE.TREE)..(def |
| 14760 | 61 6c 69 61 73 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 28 6d | alias.'--tree-mapreduce-from.'(m |
| 14780 | 61 63 72 6f 20 2e 20 23 5b 31 30 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 06 06 45 5c 33 | acro...#[1028."\300\301\302..E\3 |
| 147a0 | 30 31 5c 33 30 33 06 06 45 04 04 5c 32 35 37 05 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 | 01\303..E..\257.\207".[-tree-map |
| 147c0 | 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 20 61 63 63 29 | reduce-from.lambda.(it).(it.acc) |
| 147e0 | 5d 20 39 20 28 23 24 20 2e 20 38 33 37 32 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 | ].9.(#$...83727)])).(put.'--tree |
| 14800 | 2d 6d 61 70 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 | -mapreduce-from.'edebug-form-spe |
| 14820 | 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 30 37 20 | c.'(form.form.form.form)).#@407. |
| 14840 | 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45 | Apply.FN.to.each.element.of.TREE |
| 14860 | 2c 20 61 6e 64 20 6d 61 6b 65 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 | ,.and.make.a.list.of.the.results |
| 14880 | 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 73 20 | ..If.elements.of.TREE.are.lists. |
| 148a0 | 74 68 65 6d 73 65 6c 76 65 73 2c 20 61 70 70 6c 79 20 46 4e 20 72 65 63 75 72 73 69 76 65 6c 79 | themselves,.apply.FN.recursively |
| 148c0 | 20 74 6f 0a 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 73 65 20 6e 65 73 74 65 64 20 6c 69 73 | .to.elements.of.these.nested.lis |
| 148e0 | 74 73 2e 0a 0a 54 68 65 6e 20 72 65 64 75 63 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c | ts...Then.reduce.the.resulting.l |
| 14900 | 69 73 74 73 20 75 73 69 6e 67 20 46 4f 4c 44 45 52 20 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 61 | ists.using.FOLDER.and.initial.va |
| 14920 | 6c 75 65 0a 49 4e 49 54 2d 56 41 4c 55 45 2e 20 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 | lue.INIT-VALUE..See.`-reduce-r-f |
| 14940 | 72 6f 6d 27 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 63 61 6c 6c 69 | rom'...This.is.the.same.as.calli |
| 14960 | 6e 67 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 27 20 61 66 74 65 72 20 60 2d 74 72 65 65 2d 6d | ng.`-tree-reduce'.after.`-tree-m |
| 14980 | 61 70 27 0a 62 75 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 | ap'.but.is.twice.as.fast.as.it.o |
| 149a0 | 6e 6c 79 20 74 72 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 | nly.traverse.the.structure.once. |
| 149c0 | 0a 0a 28 66 6e 20 46 4e 20 46 4f 4c 44 45 52 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 | ..(fn.FN.FOLDER.TREE)..(defalias |
| 149e0 | 20 27 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 30 | .'-tree-mapreduce.#[771."\211\20 |
| 14a00 | 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 02 01 21 5c 32 30 37 5c 32 | 4..\300\207\301.!\203....!\207\2 |
| 14a20 | 31 31 3c 5c 32 30 33 2b 00 5c 33 30 32 02 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 | 11<\203+.\302.\303\304\305\306\3 |
| 14a40 | 30 37 5c 33 31 30 06 5c 6e 06 5c 6e 5c 22 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c 22 | 07\310.\n.\n\"\311\"\312\313%.\" |
| 14a60 | 5c 22 5c 32 30 37 02 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\? |
| 14a80 | 20 2d 72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 | .-reduce-r.mapcar.make-byte-code |
| 14aa0 | 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 6e 63 61 | .257."\302\300\301.#\207".vconca |
| 14ac0 | 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 5d 20 35 20 22 5c 6e | t.vector.[-tree-mapreduce].5."\n |
| 14ae0 | 5c 6e 28 66 6e 20 58 29 22 5d 20 31 33 20 28 23 24 20 2e 20 38 34 30 33 32 29 5d 29 0a 23 40 36 | \n(fn.X)"].13.(#$...84032)]).#@6 |
| 14b00 | 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 2d 6d 61 70 72 65 | 1.Anaphoric.form.of.`-tree-mapre |
| 14b20 | 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 46 4f 4c 44 45 52 20 54 52 45 45 29 1f 0a 28 | duce'...(fn.FORM.FOLDER.TREE)..( |
| 14b40 | 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 27 28 6d 61 63 | defalias.'--tree-mapreduce.'(mac |
| 14b60 | 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 33 30 31 5c 33 | ro...#[771."\300\301\302.E\301\3 |
| 14b80 | 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 6c 61 6d | 03.E.F\207".[-tree-mapreduce.lam |
| 14ba0 | 62 64 61 20 28 69 74 29 20 28 69 74 20 61 63 63 29 5d 20 38 20 28 23 24 20 2e 20 38 34 37 33 38 | bda.(it).(it.acc)].8.(#$...84738 |
| 14bc0 | 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 27 65 64 65 | )])).(put.'--tree-mapreduce.'ede |
| 14be0 | 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 29 29 | bug-form-spec.'(form.form.form)) |
| 14c00 | 0a 23 40 38 35 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f | .#@85.Apply.FN.to.each.element.o |
| 14c20 | 66 20 54 52 45 45 20 77 68 69 6c 65 20 70 72 65 73 65 72 76 69 6e 67 20 74 68 65 20 74 72 65 65 | f.TREE.while.preserving.the.tree |
| 14c40 | 20 73 74 72 75 63 74 75 72 65 2e 0a 0a 28 66 6e 20 46 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 | .structure...(fn.FN.TREE)..(defa |
| 14c60 | 6c 69 61 73 20 27 2d 74 72 65 65 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 34 06 | lias.'-tree-map.#[514."\211\204. |
| 14c80 | 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 01 01 21 5c 32 30 37 5c 32 31 31 | .\300\207\301.!\203....!\207\211 |
| 14ca0 | 3c 5c 32 30 33 26 00 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 | <\203&.\302\303\304\305\306\307. |
| 14cc0 | 07 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 02 5c 22 5c 32 30 37 01 01 21 5c 32 30 37 22 | .!\310\"\311\312%.\"\207..!\207" |
| 14ce0 | 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 | .[nil.-cons-pair\?.mapcar.make-b |
| 14d00 | 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 76 | yte-code.257."\301\300.\"\207".v |
| 14d20 | 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 5d 20 34 20 22 5c 6e 5c | concat.vector.[-tree-map].4."\n\ |
| 14d40 | 6e 28 66 6e 20 58 29 22 5d 20 39 20 28 23 24 20 2e 20 38 34 39 39 38 29 5d 29 0a 23 40 34 38 20 | n(fn.X)"].9.(#$...84998)]).#@48. |
| 14d60 | 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 6d 61 70 27 2e 0a 0a | Anaphoric.form.of.`-tree-map'... |
| 14d80 | 28 66 6e 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 | (fn.FORM.TREE)..(defalias.'--tre |
| 14da0 | 65 2d 6d 61 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 5c | e-map.'(macro...#[514."\300\301\ |
| 14dc0 | 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 20 6c 61 6d 62 64 61 20 28 | 302.E.E\207".[-tree-map.lambda.( |
| 14de0 | 69 74 29 5d 20 36 20 28 23 24 20 2e 20 38 35 33 34 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 | it)].6.(#$...85344)])).(put.'--t |
| 14e00 | 72 65 65 2d 6d 61 70 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 | ree-map.'edebug-form-spec.'(form |
| 14e20 | 20 66 6f 72 6d 29 29 0a 23 40 33 34 36 20 55 73 65 20 46 4e 20 74 6f 20 72 65 64 75 63 65 20 65 | .form)).#@346.Use.FN.to.reduce.e |
| 14e40 | 6c 65 6d 65 6e 74 73 20 6f 66 20 6c 69 73 74 20 54 52 45 45 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 | lements.of.list.TREE..If.element |
| 14e60 | 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 20 | s.of.TREE.are.lists.themselves,. |
| 14e80 | 61 70 70 6c 79 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 20 72 65 63 75 72 73 69 76 65 6c 79 2e | apply.the.reduction.recursively. |
| 14ea0 | 0a 0a 46 4e 20 69 73 20 66 69 72 73 74 20 61 70 70 6c 69 65 64 20 74 6f 20 49 4e 49 54 2d 56 41 | ..FN.is.first.applied.to.INIT-VA |
| 14ec0 | 4c 55 45 20 61 6e 64 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 | LUE.and.first.element.of.the.lis |
| 14ee0 | 74 2c 0a 74 68 65 6e 20 6f 6e 20 74 68 69 73 20 72 65 73 75 6c 74 20 61 6e 64 20 73 65 63 6f 6e | t,.then.on.this.result.and.secon |
| 14f00 | 64 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 65 74 63 2e 0a 0a 54 68 | d.element.from.the.list.etc...Th |
| 14f20 | 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 69 73 20 69 67 6e 6f 72 65 64 20 6f 6e 20 63 6f | e.initial.value.is.ignored.on.co |
| 14f40 | 6e 73 20 70 61 69 72 73 20 61 73 20 74 68 65 79 20 61 6c 77 61 79 73 20 63 6f 6e 74 61 69 6e 0a | ns.pairs.as.they.always.contain. |
| 14f60 | 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 2d 56 41 4c 55 45 | two.elements...(fn.FN.INIT-VALUE |
| 14f80 | 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 72 65 64 75 63 65 2d | .TREE)..(defalias.'-tree-reduce- |
| 14fa0 | 66 72 6f 6d 20 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 | from.#[771."\211\204..\300\207\3 |
| 14fc0 | 30 31 01 21 5c 32 30 33 0d 00 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 29 00 5c 33 30 32 03 03 5c | 01.!\203..\207\211<\203).\302..\ |
| 14fe0 | 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 0b 06 0b 5c 22 5c 33 31 | 303\304\305\306\307\310....\"\31 |
| 15000 | 31 5c 22 5c 33 31 32 5c 33 31 33 25 05 5c 22 23 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d | 1\"\312\313%.\"#\207\207".[nil.- |
| 15020 | 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 63 61 | cons-pair\?.-reduce-r-from.mapca |
| 15040 | 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 5c 33 30 30 5c 33 | r.make-byte-code.257."\302\300\3 |
| 15060 | 30 31 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 | 01.#\207".vconcat.vector.[-tree- |
| 15080 | 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 34 20 | reduce-from].5."\n\n(fn.X)"].14. |
| 150a0 | 28 23 24 20 2e 20 38 35 35 35 30 29 5d 29 0a 23 40 36 37 20 41 6e 61 70 68 6f 72 69 63 20 66 6f | (#$...85550)]).#@67.Anaphoric.fo |
| 150c0 | 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 | rm.of.`-tree-reduce-from'...(fn. |
| 150e0 | 46 4f 52 4d 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 | FORM.INIT-VALUE.TREE)..(defalias |
| 15100 | 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 | .'--tree-reduce-from.'(macro...# |
| 15120 | 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 37 22 20 5b 2d 74 | [771."\300\301\302.E..F\207".[-t |
| 15140 | 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 20 28 69 74 20 61 63 63 29 5d | ree-reduce-from.lambda.(it.acc)] |
| 15160 | 20 37 20 28 23 24 20 2e 20 38 36 31 39 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d | .7.(#$...86196)])).(put.'--tree- |
| 15180 | 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 28 | reduce-from.'edebug-form-spec.'( |
| 151a0 | 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 33 32 20 55 73 65 20 46 4e 20 74 6f | form.form.form)).#@332.Use.FN.to |
| 151c0 | 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 45 45 2e 0a 49 | .reduce.elements.of.list.TREE..I |
| 151e0 | 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 73 20 74 68 65 | f.elements.of.TREE.are.lists.the |
| 15200 | 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 6e 20 72 65 63 | mselves,.apply.the.reduction.rec |
| 15220 | 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 69 65 64 20 74 | ursively...FN.is.first.applied.t |
| 15240 | 6f 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 61 6e 64 20 | o.first.element.of.the.list.and. |
| 15260 | 73 65 63 6f 6e 64 0a 65 6c 65 6d 65 6e 74 2c 20 74 68 65 6e 20 6f 6e 20 74 68 69 73 20 72 65 73 | second.element,.then.on.this.res |
| 15280 | 75 6c 74 20 61 6e 64 20 74 68 69 72 64 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 6c | ult.and.third.element.from.the.l |
| 152a0 | 69 73 74 20 65 74 63 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 27 20 66 6f 72 20 68 6f | ist.etc...See.`-reduce-r'.for.ho |
| 152c0 | 77 20 65 78 61 63 74 6c 79 20 61 72 65 20 6c 69 73 74 73 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6f | w.exactly.are.lists.of.zero.or.o |
| 152e0 | 6e 65 20 65 6c 65 6d 65 6e 74 20 68 61 6e 64 6c 65 64 2e 0a 0a 28 66 6e 20 46 4e 20 54 52 45 45 | ne.element.handled...(fn.FN.TREE |
| 15300 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 72 65 64 75 63 65 20 23 5b 35 31 34 | )..(defalias.'-tree-reduce.#[514 |
| 15320 | 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 0d 00 | ."\211\204..\300\207\301.!\203.. |
| 15340 | 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 26 00 5c 33 30 32 02 5c 33 30 33 5c 33 30 34 5c 33 30 35 | \207\211<\203&.\302.\303\304\305 |
| 15360 | 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 09 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c | \306\307\310..!\311\"\312\313%.\ |
| 15380 | 22 5c 22 5c 32 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 | "\"\207\207".[nil.-cons-pair\?.- |
| 153a0 | 72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 | reduce-r.mapcar.make-byte-code.2 |
| 153c0 | 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 | 57."\301\300.\"\207".vconcat.vec |
| 153e0 | 74 6f 72 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 | tor.[-tree-reduce].4."\n\n(fn.X) |
| 15400 | 22 5d 20 31 31 20 28 23 24 20 2e 20 38 36 34 35 35 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f | "].11.(#$...86455)]).#@51.Anapho |
| 15420 | 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e | ric.form.of.`-tree-reduce'...(fn |
| 15440 | 20 46 4f 52 4d 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 72 | .FORM.TREE)..(defalias.'--tree-r |
| 15460 | 65 64 75 63 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 31 5c | educe.'(macro...#[514."\300\301\ |
| 15480 | 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 20 6c 61 6d 62 64 | 302.E.E\207".[-tree-reduce.lambd |
| 154a0 | 61 20 28 69 74 20 61 63 63 29 5d 20 36 20 28 23 24 20 2e 20 38 37 30 36 36 29 5d 29 29 0a 28 70 | a.(it.acc)].6.(#$...87066)])).(p |
| 154c0 | 75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | ut.'--tree-reduce.'edebug-form-s |
| 154e0 | 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 30 37 20 43 61 6c 6c 20 46 55 4e | pec.'(form.form)).#@207.Call.FUN |
| 15500 | 20 6f 6e 20 65 61 63 68 20 6e 6f 64 65 20 6f 66 20 54 52 45 45 20 74 68 61 74 20 73 61 74 69 73 | .on.each.node.of.TREE.that.satis |
| 15520 | 66 69 65 73 20 50 52 45 44 2e 0a 0a 49 66 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c | fies.PRED...If.PRED.returns.nil, |
| 15540 | 20 63 6f 6e 74 69 6e 75 65 20 64 65 73 63 65 6e 64 69 6e 67 20 64 6f 77 6e 20 74 68 69 73 20 6e | .continue.descending.down.this.n |
| 15560 | 6f 64 65 2e 20 20 49 66 20 50 52 45 44 0a 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 | ode...If.PRED.returns.non-nil,.a |
| 15580 | 70 70 6c 79 20 46 55 4e 20 74 6f 20 74 68 69 73 20 6e 6f 64 65 20 61 6e 64 20 64 6f 20 6e 6f 74 | pply.FUN.to.this.node.and.do.not |
| 155a0 | 20 64 65 73 63 65 6e 64 0a 66 75 72 74 68 65 72 2e 0a 0a 28 66 6e 20 50 52 45 44 20 46 55 4e 20 | .descend.further...(fn.PRED.FUN. |
| 155c0 | 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 2d 6e 6f 64 65 | TREE)..(defalias.'-tree-map-node |
| 155e0 | 73 20 23 5b 37 37 31 20 22 02 01 21 5c 32 30 33 5c 6e 00 01 01 21 5c 32 30 37 5c 32 31 31 3c 5c | s.#[771."..!\203\n...!\207\211<\ |
| 15600 | 32 30 33 28 00 5c 33 30 30 01 21 5c 32 30 34 28 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 | 203(.\300.!\204(.\301\302\303\30 |
| 15620 | 34 5c 33 30 35 5c 33 30 36 06 08 06 08 5c 22 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 02 5c | 4\305\306....\"\307\"\310\311%.\ |
| 15640 | 22 5c 32 30 37 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 6d 61 70 20 6d 61 | "\207\207".[-cons-pair\?.-map.ma |
| 15660 | 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 03 23 | ke-byte-code.257."\302\300\301.# |
| 15680 | 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 70 2d | \207".vconcat.vector.[-tree-map- |
| 156a0 | 6e 6f 64 65 73 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 31 20 28 23 24 20 2e 20 | nodes].5."\n\n(fn.X)"].11.(#$... |
| 156c0 | 38 37 32 38 38 29 5d 29 0a 23 40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 | 87288)]).#@59.Anaphoric.form.of. |
| 156e0 | 60 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 46 4f 52 | `-tree-map-nodes'...(fn.PRED.FOR |
| 15700 | 4d 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 2d 6e | M.TREE)..(defalias.'--tree-map-n |
| 15720 | 6f 64 65 73 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 | odes.'(macro...#[771."\300\301\3 |
| 15740 | 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 2d 6d 61 70 | 02.E\301\303.E.F\207".[-tree-map |
| 15760 | 2d 6e 6f 64 65 73 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e | -nodes.lambda.(it).(it)].8.(#$.. |
| 15780 | 20 38 37 37 35 38 29 5d 29 29 0a 23 40 33 36 33 20 52 65 74 75 72 6e 20 61 20 73 65 71 75 65 6e | .87758)])).#@363.Return.a.sequen |
| 157a0 | 63 65 20 6f 66 20 74 68 65 20 6e 6f 64 65 73 20 69 6e 20 54 52 45 45 2c 20 69 6e 20 64 65 70 74 | ce.of.the.nodes.in.TREE,.in.dept |
| 157c0 | 68 2d 66 69 72 73 74 20 73 65 61 72 63 68 20 6f 72 64 65 72 2e 0a 0a 42 52 41 4e 43 48 20 69 73 | h-first.search.order...BRANCH.is |
| 157e0 | 20 61 20 70 72 65 64 69 63 61 74 65 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 20 74 68 61 | .a.predicate.of.one.argument.tha |
| 15800 | 74 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 74 68 65 0a 70 61 73 73 65 64 20 | t.returns.non-nil.if.the.passed. |
| 15820 | 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 62 72 61 6e 63 68 2c 20 74 68 61 74 20 69 73 2c 20 61 | argument.is.a.branch,.that.is,.a |
| 15840 | 20 6e 6f 64 65 20 74 68 61 74 20 63 61 6e 20 68 61 76 65 20 63 68 69 6c 64 72 65 6e 2e 0a 0a 43 | .node.that.can.have.children...C |
| 15860 | 48 49 4c 44 52 45 4e 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67 | HILDREN.is.a.function.of.one.arg |
| 15880 | 75 6d 65 6e 74 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 63 68 69 6c 64 72 65 6e 0a | ument.that.returns.the.children. |
| 158a0 | 6f 66 20 74 68 65 20 70 61 73 73 65 64 20 62 72 61 6e 63 68 20 6e 6f 64 65 2e 0a 0a 4e 6f 6e 2d | of.the.passed.branch.node...Non- |
| 158c0 | 62 72 61 6e 63 68 20 6e 6f 64 65 73 20 61 72 65 20 73 69 6d 70 6c 79 20 63 6f 70 69 65 64 2e 0a | branch.nodes.are.simply.copied.. |
| 158e0 | 0a 28 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 | .(fn.BRANCH.CHILDREN.TREE)..(def |
| 15900 | 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 73 65 71 20 23 5b 37 37 31 20 22 5c 32 31 31 03 02 21 5c | alias.'-tree-seq.#[771."\211..!\ |
| 15920 | 32 30 35 1b 00 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 09 06 | 205..\300\301\302\303\304\305... |
| 15940 | 09 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 04 04 21 5c 22 42 5c 32 30 37 22 20 5b 2d | .\"\306\"\307\310%..!\"B\207".[- |
| 15960 | 6d 61 70 63 61 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 32 5c | mapcat.make-byte-code.257."\302\ |
| 15980 | 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 6f 72 20 5b 2d | 300\301.#\207".vconcat.vector.[- |
| 159a0 | 74 72 65 65 2d 73 65 71 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 32 20 28 23 24 | tree-seq].5."\n\n(fn.X)"].12.(#$ |
| 159c0 | 20 2e 20 38 37 39 35 33 29 5d 29 0a 23 40 35 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 | ...87953)]).#@59.Anaphoric.form. |
| 159e0 | 6f 66 20 60 2d 74 72 65 65 2d 73 65 71 27 2e 0a 0a 28 66 6e 20 42 52 41 4e 43 48 20 43 48 49 4c | of.`-tree-seq'...(fn.BRANCH.CHIL |
| 15a00 | 44 52 45 4e 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 73 65 | DREN.TREE)..(defalias.'--tree-se |
| 15a20 | 71 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 05 | q.'(macro...#[771."\300\301\302. |
| 15a40 | 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 2d 73 65 71 20 6c 61 | E\301\303.E.F\207".[-tree-seq.la |
| 15a60 | 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 38 38 35 32 39 29 5d 29 | mbda.(it).(it)].8.(#$...88529)]) |
| 15a80 | 29 0a 23 40 32 30 35 20 43 72 65 61 74 65 20 61 20 64 65 65 70 20 63 6f 70 79 20 6f 66 20 4c 49 | ).#@205.Create.a.deep.copy.of.LI |
| 15aa0 | 53 54 2e 0a 54 68 65 20 6e 65 77 20 6c 69 73 74 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 65 6c | ST..The.new.list.has.the.same.el |
| 15ac0 | 65 6d 65 6e 74 73 20 61 6e 64 20 73 74 72 75 63 74 75 72 65 20 62 75 74 20 61 6c 6c 20 63 6f 6e | ements.and.structure.but.all.con |
| 15ae0 | 73 20 61 72 65 0a 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 6e 65 77 20 6f 6e 65 73 2e 20 20 54 | s.are.replaced.with.new.ones...T |
| 15b00 | 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 77 68 65 6e 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 63 | his.is.useful.when.you.need.to.c |
| 15b20 | 6c 6f 6e 65 20 61 0a 73 74 72 75 63 74 75 72 65 20 73 75 63 68 20 61 73 20 70 6c 69 73 74 20 6f | lone.a.structure.such.as.plist.o |
| 15b40 | 72 20 61 6c 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 | r.alist...(fn.LIST)..(defalias.' |
| 15b60 | 2d 63 6c 6f 6e 65 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 | -clone.#[257."\300\301.\"\207".[ |
| 15b80 | 2d 74 72 65 65 2d 6d 61 70 20 69 64 65 6e 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 38 38 37 31 | -tree-map.identity].4.(#$...8871 |
| 15ba0 | 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 5c 33 30 | 2)]).(byte-code."\300\301\302\30 |
| 15bc0 | 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 |
| 15be0 | 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6c 6f 6e 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 | nction-put.-clone.pure.t.side-ef |
| 15c00 | 66 65 63 74 2d 66 72 65 65 5d 20 34 29 0a 23 40 36 39 20 41 64 64 20 73 79 6e 74 61 78 20 68 69 | fect-free].4).#@69.Add.syntax.hi |
| 15c20 | 67 68 6c 69 67 68 74 69 6e 67 20 74 6f 20 64 61 73 68 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6d 61 | ghlighting.to.dash.functions,.ma |
| 15c40 | 63 72 6f 73 20 61 6e 64 20 6d 61 67 69 63 20 76 61 6c 75 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 | cros.and.magic.values...(defalia |
| 15c60 | 73 20 27 64 61 73 68 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 2d 6c 6f 63 6b 20 23 5b 30 20 22 5c 33 | s.'dash-enable-font-lock.#[0."\3 |
| 15c80 | 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 65 76 61 6c 2d 61 66 74 65 72 2d 6c 6f | 00\301\302\"\207".[eval-after-lo |
| 15ca0 | 61 64 20 6c 69 73 70 2d 6d 6f 64 65 20 23 5b 30 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 | ad.lisp-mode.#[0."\302\303\304\3 |
| 15cc0 | 30 35 5c 33 30 36 5c 33 30 37 04 5c 33 31 30 5c 22 5c 33 31 31 51 5c 33 31 32 42 43 5c 33 31 33 | 05\306\307.\310\"\311Q\312BC\313 |
| 15ce0 | 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 31 34 5c 33 30 37 05 5c 33 31 30 5c 22 5c 33 31 31 | #\210\304\305\314\307.\310\"\311 |
| 15d00 | 51 5c 33 31 35 42 43 5c 33 31 33 23 5c 32 36 36 03 5c 33 31 36 20 5c 33 31 37 01 5c 32 30 35 4e | Q\315BC\313#\266.\316.\317.\205N |
| 15d20 | 00 01 40 72 5c 32 31 31 71 5c 32 31 30 08 5c 33 30 35 3d 5c 32 30 33 41 00 5c 33 32 30 5c 33 30 | ..@r\211q\210.\305=\203A.\320\30 |
| 15d40 | 31 21 5c 32 30 33 41 00 09 5c 32 30 33 41 00 5c 33 32 31 20 5c 32 31 30 29 5c 32 31 30 5c 32 31 | 1!\203A..\203A.\321.\210)\210\21 |
| 15d60 | 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 24 00 5c 32 30 37 22 20 5b 6d 61 6a 6f 72 | 1T\262..A\262.\202$.\207".[major |
| 15d80 | 2d 6d 6f 64 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 6f 64 65 20 28 22 21 63 6f 6e 73 22 20 22 21 | -mode.font-lock-mode.("!cons"."! |
| 15da0 | 63 64 72 22 20 22 2d 65 61 63 68 22 20 22 2d 2d 65 61 63 68 22 20 22 2d 65 61 63 68 2d 69 6e 64 | cdr"."-each"."--each"."-each-ind |
| 15dc0 | 65 78 65 64 22 20 22 2d 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 22 20 22 2d 65 61 63 68 2d 77 68 | exed"."--each-indexed"."-each-wh |
| 15de0 | 69 6c 65 22 20 22 2d 2d 65 61 63 68 2d 77 68 69 6c 65 22 20 22 2d 64 6f 74 6f 22 20 22 2d 64 6f | ile"."--each-while"."-doto"."-do |
| 15e00 | 74 69 6d 65 73 22 20 22 2d 2d 64 6f 74 69 6d 65 73 22 20 22 2d 6d 61 70 22 20 22 2d 2d 6d 61 70 | times"."--dotimes"."-map"."--map |
| 15e20 | 22 20 22 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 | "."-reduce-from"."--reduce-from" |
| 15e40 | 20 22 2d 72 65 64 75 63 65 22 20 22 2d 2d 72 65 64 75 63 65 22 20 22 2d 72 65 64 75 63 65 2d 72 | ."-reduce"."--reduce"."-reduce-r |
| 15e60 | 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 22 20 22 2d 72 65 64 75 63 | -from"."--reduce-r-from"."-reduc |
| 15e80 | 65 2d 72 22 20 22 2d 2d 72 65 64 75 63 65 2d 72 22 20 22 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 | e-r"."--reduce-r"."-reductions-f |
| 15ea0 | 72 6f 6d 22 20 22 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 22 20 22 2d 72 65 64 75 | rom"."-reductions-r-from"."-redu |
| 15ec0 | 63 74 69 6f 6e 73 22 20 22 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 22 20 22 2d 66 69 6c 74 65 72 | ctions"."-reductions-r"."-filter |
| 15ee0 | 22 20 22 2d 2d 66 69 6c 74 65 72 22 20 22 2d 73 65 6c 65 63 74 22 20 22 2d 2d 73 65 6c 65 63 74 | "."--filter"."-select"."--select |
| 15f00 | 22 20 22 2d 72 65 6d 6f 76 65 22 20 22 2d 2d 72 65 6d 6f 76 65 22 20 22 2d 72 65 6a 65 63 74 22 | "."-remove"."--remove"."-reject" |
| 15f20 | 20 22 2d 2d 72 65 6a 65 63 74 22 20 22 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 22 20 22 2d 2d 72 | ."--reject"."-remove-first"."--r |
| 15f40 | 65 6d 6f 76 65 2d 66 69 72 73 74 22 20 22 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 22 20 22 2d 2d | emove-first"."-reject-first"."-- |
| 15f60 | 72 65 6a 65 63 74 2d 66 69 72 73 74 22 20 22 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 22 20 22 2d 2d | reject-first"."-remove-last"."-- |
| 15f80 | 72 65 6d 6f 76 65 2d 6c 61 73 74 22 20 22 2d 72 65 6a 65 63 74 2d 6c 61 73 74 22 20 22 2d 2d 72 | remove-last"."-reject-last"."--r |
| 15fa0 | 65 6a 65 63 74 2d 6c 61 73 74 22 20 22 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 22 20 22 2d 6e 6f 6e | eject-last"."-remove-item"."-non |
| 15fc0 | 2d 6e 69 6c 22 20 22 2d 6b 65 65 70 22 20 22 2d 2d 6b 65 65 70 22 20 22 2d 6d 61 70 2d 69 6e 64 | -nil"."-keep"."--keep"."-map-ind |
| 15fe0 | 65 78 65 64 22 20 22 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 22 20 22 2d 73 70 6c 69 63 65 22 20 | exed"."--map-indexed"."-splice". |
| 16000 | 22 2d 2d 73 70 6c 69 63 65 22 20 22 2d 73 70 6c 69 63 65 2d 6c 69 73 74 22 20 22 2d 2d 73 70 6c | "--splice"."-splice-list"."--spl |
| 16020 | 69 63 65 2d 6c 69 73 74 22 20 22 2d 6d 61 70 2d 77 68 65 6e 22 20 22 2d 2d 6d 61 70 2d 77 68 65 | ice-list"."-map-when"."--map-whe |
| 16040 | 6e 22 20 22 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 22 20 22 2d 2d 72 65 70 6c 61 63 65 2d 77 | n"."-replace-where"."--replace-w |
| 16060 | 68 65 72 65 22 20 22 2d 6d 61 70 2d 66 69 72 73 74 22 20 22 2d 2d 6d 61 70 2d 66 69 72 73 74 22 | here"."-map-first"."--map-first" |
| 16080 | 20 22 2d 6d 61 70 2d 6c 61 73 74 22 20 22 2d 2d 6d 61 70 2d 6c 61 73 74 22 20 22 2d 72 65 70 6c | ."-map-last"."--map-last"."-repl |
| 160a0 | 61 63 65 22 20 22 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 22 20 22 2d 72 65 70 6c 61 63 65 2d | ace"."-replace-first"."-replace- |
| 160c0 | 6c 61 73 74 22 20 22 2d 66 6c 61 74 74 65 6e 22 20 22 2d 66 6c 61 74 74 65 6e 2d 6e 22 20 22 2d | last"."-flatten"."-flatten-n"."- |
| 160e0 | 63 6f 6e 63 61 74 22 20 22 2d 6d 61 70 63 61 74 22 20 22 2d 2d 6d 61 70 63 61 74 22 20 22 2d 63 | concat"."-mapcat"."--mapcat"."-c |
| 16100 | 6f 70 79 22 20 22 2d 63 6f 6e 73 2a 22 20 22 2d 73 6e 6f 63 22 20 22 2d 66 69 72 73 74 22 20 22 | opy"."-cons*"."-snoc"."-first"." |
| 16120 | 2d 2d 66 69 72 73 74 22 20 22 2d 66 69 6e 64 22 20 22 2d 2d 66 69 6e 64 22 20 22 2d 73 6f 6d 65 | --first"."-find"."--find"."-some |
| 16140 | 22 20 22 2d 2d 73 6f 6d 65 22 20 22 2d 61 6e 79 22 20 22 2d 2d 61 6e 79 22 20 22 2d 6c 61 73 74 | "."--some"."-any"."--any"."-last |
| 16160 | 22 20 22 2d 2d 6c 61 73 74 22 20 22 2d 66 69 72 73 74 2d 69 74 65 6d 22 20 22 2d 73 65 63 6f 6e | "."--last"."-first-item"."-secon |
| 16180 | 64 2d 69 74 65 6d 22 20 22 2d 74 68 69 72 64 2d 69 74 65 6d 22 20 22 2d 66 6f 75 72 74 68 2d 69 | d-item"."-third-item"."-fourth-i |
| 161a0 | 74 65 6d 22 20 22 2d 66 69 66 74 68 2d 69 74 65 6d 22 20 22 2d 6c 61 73 74 2d 69 74 65 6d 22 20 | tem"."-fifth-item"."-last-item". |
| 161c0 | 22 2d 62 75 74 6c 61 73 74 22 20 22 2d 63 6f 75 6e 74 22 20 22 2d 2d 63 6f 75 6e 74 22 20 22 2d | "-butlast"."-count"."--count"."- |
| 161e0 | 61 6e 79 3f 22 20 22 2d 2d 61 6e 79 3f 22 20 22 2d 73 6f 6d 65 3f 22 20 22 2d 2d 73 6f 6d 65 3f | any?"."--any?"."-some?"."--some? |
| 16200 | 22 20 22 2d 61 6e 79 2d 70 22 20 22 2d 2d 61 6e 79 2d 70 22 20 22 2d 73 6f 6d 65 2d 70 22 20 22 | "."-any-p"."--any-p"."-some-p"." |
| 16220 | 2d 2d 73 6f 6d 65 2d 70 22 20 22 2d 73 6f 6d 65 2d 3e 22 20 22 2d 73 6f 6d 65 2d 3e 3e 22 20 22 | --some-p"."-some->"."-some->>"." |
| 16240 | 2d 73 6f 6d 65 2d 2d 3e 22 20 22 2d 61 6c 6c 3f 22 20 22 2d 61 6c 6c 2d 70 22 20 22 2d 2d 61 6c | -some-->"."-all?"."-all-p"."--al |
| 16260 | 6c 3f 22 20 22 2d 2d 61 6c 6c 2d 70 22 20 22 2d 65 76 65 72 79 3f 22 20 22 2d 2d 65 76 65 72 79 | l?"."--all-p"."-every?"."--every |
| 16280 | 3f 22 20 22 2d 61 6c 6c 2d 70 22 20 22 2d 2d 61 6c 6c 2d 70 22 20 22 2d 65 76 65 72 79 2d 70 22 | ?"."-all-p"."--all-p"."-every-p" |
| 162a0 | 20 22 2d 2d 65 76 65 72 79 2d 70 22 20 22 2d 6e 6f 6e 65 3f 22 20 22 2d 2d 6e 6f 6e 65 3f 22 20 | ."--every-p"."-none?"."--none?". |
| 162c0 | 22 2d 6e 6f 6e 65 2d 70 22 20 22 2d 2d 6e 6f 6e 65 2d 70 22 20 22 2d 6f 6e 6c 79 2d 73 6f 6d 65 | "-none-p"."--none-p"."-only-some |
| 162e0 | 3f 22 20 22 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 22 20 22 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 22 | ?"."--only-some?"."-only-some-p" |
| 16300 | 20 22 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 22 20 22 2d 73 6c 69 63 65 22 20 22 2d 74 61 6b 65 | ."--only-some-p"."-slice"."-take |
| 16320 | 22 20 22 2d 64 72 6f 70 22 20 22 2d 64 72 6f 70 2d 6c 61 73 74 22 20 22 2d 74 61 6b 65 2d 6c 61 | "."-drop"."-drop-last"."-take-la |
| 16340 | 73 74 22 20 22 2d 74 61 6b 65 2d 77 68 69 6c 65 22 20 22 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 22 | st"."-take-while"."--take-while" |
| 16360 | 20 22 2d 64 72 6f 70 2d 77 68 69 6c 65 22 20 22 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 22 20 22 2d | ."-drop-while"."--drop-while"."- |
| 16380 | 73 70 6c 69 74 2d 61 74 22 20 22 2d 72 6f 74 61 74 65 22 20 22 2d 69 6e 73 65 72 74 2d 61 74 22 | split-at"."-rotate"."-insert-at" |
| 163a0 | 20 22 2d 72 65 70 6c 61 63 65 2d 61 74 22 20 22 2d 75 70 64 61 74 65 2d 61 74 22 20 22 2d 2d 75 | ."-replace-at"."-update-at"."--u |
| 163c0 | 70 64 61 74 65 2d 61 74 22 20 22 2d 72 65 6d 6f 76 65 2d 61 74 22 20 22 2d 72 65 6d 6f 76 65 2d | pdate-at"."-remove-at"."-remove- |
| 163e0 | 61 74 2d 69 6e 64 69 63 65 73 22 20 22 2d 73 70 6c 69 74 2d 77 69 74 68 22 20 22 2d 2d 73 70 6c | at-indices"."-split-with"."--spl |
| 16400 | 69 74 2d 77 69 74 68 22 20 22 2d 73 70 6c 69 74 2d 6f 6e 22 20 22 2d 73 70 6c 69 74 2d 77 68 65 | it-with"."-split-on"."-split-whe |
| 16420 | 6e 22 20 22 2d 2d 73 70 6c 69 74 2d 77 68 65 6e 22 20 22 2d 73 65 70 61 72 61 74 65 22 20 22 2d | n"."--split-when"."-separate"."- |
| 16440 | 2d 73 65 70 61 72 61 74 65 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 | -separate"."-partition-all-in-st |
| 16460 | 65 70 73 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 22 20 22 2d 70 61 72 | eps"."-partition-in-steps"."-par |
| 16480 | 74 69 74 69 6f 6e 2d 61 6c 6c 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 22 20 22 2d 70 61 72 74 69 | tition-all"."-partition"."-parti |
| 164a0 | 74 69 6f 6e 2d 61 66 74 65 72 2d 69 74 65 6d 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 | tion-after-item"."-partition-aft |
| 164c0 | 65 72 2d 70 72 65 64 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 69 74 65 6d | er-pred"."-partition-before-item |
| 164e0 | 22 20 22 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 22 20 22 2d 70 61 72 | "."-partition-before-pred"."-par |
| 16500 | 74 69 74 69 6f 6e 2d 62 79 22 20 22 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 22 20 22 2d 70 61 | tition-by"."--partition-by"."-pa |
| 16520 | 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 22 20 22 2d 2d 70 61 72 74 69 74 69 6f 6e 2d | rtition-by-header"."--partition- |
| 16540 | 62 79 2d 68 65 61 64 65 72 22 20 22 2d 67 72 6f 75 70 2d 62 79 22 20 22 2d 2d 67 72 6f 75 70 2d | by-header"."-group-by"."--group- |
| 16560 | 62 79 22 20 22 2d 69 6e 74 65 72 70 6f 73 65 22 20 22 2d 69 6e 74 65 72 6c 65 61 76 65 22 20 22 | by"."-interpose"."-interleave"." |
| 16580 | 2d 75 6e 7a 69 70 22 20 22 2d 7a 69 70 2d 77 69 74 68 22 20 22 2d 2d 7a 69 70 2d 77 69 74 68 22 | -unzip"."-zip-with"."--zip-with" |
| 165a0 | 20 22 2d 7a 69 70 22 20 22 2d 7a 69 70 2d 66 69 6c 6c 22 20 22 2d 7a 69 70 2d 70 61 69 72 22 20 | ."-zip"."-zip-fill"."-zip-pair". |
| 165c0 | 22 2d 63 79 63 6c 65 22 20 22 2d 70 61 64 22 20 22 2d 61 6e 6e 6f 74 61 74 65 22 20 22 2d 2d 61 | "-cycle"."-pad"."-annotate"."--a |
| 165e0 | 6e 6e 6f 74 61 74 65 22 20 22 2d 74 61 62 6c 65 22 20 22 2d 74 61 62 6c 65 2d 66 6c 61 74 22 20 | nnotate"."-table"."-table-flat". |
| 16600 | 22 2d 70 61 72 74 69 61 6c 22 20 22 2d 65 6c 65 6d 2d 69 6e 64 65 78 22 20 22 2d 65 6c 65 6d 2d | "-partial"."-elem-index"."-elem- |
| 16620 | 69 6e 64 69 63 65 73 22 20 22 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 22 20 22 2d 2d 66 69 6e 64 | indices"."-find-indices"."--find |
| 16640 | 2d 69 6e 64 69 63 65 73 22 20 22 2d 66 69 6e 64 2d 69 6e 64 65 78 22 20 22 2d 2d 66 69 6e 64 2d | -indices"."-find-index"."--find- |
| 16660 | 69 6e 64 65 78 22 20 22 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 22 20 22 2d 2d 66 69 6e | index"."-find-last-index"."--fin |
| 16680 | 64 2d 6c 61 73 74 2d 69 6e 64 65 78 22 20 22 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 | d-last-index"."-select-by-indice |
| 166a0 | 73 22 20 22 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 22 20 22 2d 73 65 6c 65 63 74 2d 63 6f | s"."-select-columns"."-select-co |
| 166c0 | 6c 75 6d 6e 22 20 22 2d 67 72 61 64 65 2d 75 70 22 20 22 2d 67 72 61 64 65 2d 64 6f 77 6e 22 20 | lumn"."-grade-up"."-grade-down". |
| 166e0 | 22 2d 3e 22 20 22 2d 3e 3e 22 20 22 2d 2d 3e 22 20 22 2d 61 73 2d 3e 22 20 22 2d 77 68 65 6e 2d | "->"."->>"."-->"."-as->"."-when- |
| 16700 | 6c 65 74 22 20 22 2d 77 68 65 6e 2d 6c 65 74 2a 22 20 22 2d 2d 77 68 65 6e 2d 6c 65 74 22 20 22 | let"."-when-let*"."--when-let"." |
| 16720 | 2d 69 66 2d 6c 65 74 22 20 22 2d 69 66 2d 6c 65 74 2a 22 20 22 2d 2d 69 66 2d 6c 65 74 22 20 22 | -if-let"."-if-let*"."--if-let"." |
| 16740 | 2d 6c 65 74 2a 22 20 22 2d 6c 65 74 22 20 22 2d 6c 61 6d 62 64 61 22 20 22 2d 64 69 73 74 69 6e | -let*"."-let"."-lambda"."-distin |
| 16760 | 63 74 22 20 22 2d 75 6e 69 71 22 20 22 2d 75 6e 69 6f 6e 22 20 22 2d 69 6e 74 65 72 73 65 63 74 | ct"."-uniq"."-union"."-intersect |
| 16780 | 69 6f 6e 22 20 22 2d 64 69 66 66 65 72 65 6e 63 65 22 20 22 2d 70 6f 77 65 72 73 65 74 22 20 22 | ion"."-difference"."-powerset"." |
| 167a0 | 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 22 20 22 2d 69 6e 69 74 73 22 20 22 2d 74 61 69 6c 73 22 | -permutations"."-inits"."-tails" |
| 167c0 | 20 22 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 22 20 22 2d 63 6f 6e 74 61 69 6e 73 3f 22 20 22 | ."-common-prefix"."-contains?"." |
| 167e0 | 2d 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 | -contains-p"."-same-items?"."-sa |
| 16800 | 6d 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 | me-items-p"."-is-prefix-p"."-is- |
| 16820 | 70 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 | prefix?"."-is-suffix-p"."-is-suf |
| 16840 | 66 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 | fix?"."-is-infix-p"."-is-infix?" |
| 16860 | 20 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 | ."-sort"."--sort"."-list"."-repe |
| 16880 | 61 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 | at"."-sum"."-running-sum"."-prod |
| 168a0 | 75 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 | uct"."-running-product"."-max"." |
| 168c0 | 2d 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 | -min"."-max-by"."--max-by"."-min |
| 168e0 | 2d 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 | -by"."--min-by"."-iterate"."--it |
| 16900 | 65 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 | erate"."-fix"."--fix"."-unfold". |
| 16920 | 22 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 | "--unfold"."-cons-pair?"."-cons- |
| 16940 | 74 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 | to-list"."-value-to-list"."-tree |
| 16960 | 2d 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 | -mapreduce-from"."--tree-mapredu |
| 16980 | 63 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 | ce-from"."-tree-mapreduce"."--tr |
| 169a0 | 65 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 | ee-mapreduce"."-tree-map"."--tre |
| 169c0 | 65 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 | e-map"."-tree-reduce-from"."--tr |
| 169e0 | 65 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 | ee-reduce-from"."-tree-reduce"." |
| 16a00 | 2d 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 | --tree-reduce"."-tree-seq"."--tr |
| 16a20 | 65 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 | ee-seq"."-tree-map-nodes"."--tre |
| 16a40 | 65 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 | e-map-nodes"."-clone"."-rpartial |
| 16a60 | 22 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 | "."-juxt"."-applify"."-on"."-fli |
| 16a80 | 70 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 | p"."-const"."-cut"."-orfn"."-and |
| 16aa0 | 66 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 | fn"."-iteratefn"."-fixfn"."-prod |
| 16ac0 | 66 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 | fn").("it"."it-index"."acc"."oth |
| 16ae0 | 65 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 | er").font-lock-add-keywords.emac |
| 16b00 | 73 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 | s-lisp-mode."\\_<".regexp-opt.pa |
| 16b20 | 72 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 | ren."\\_>".(1.font-lock-variable |
| 16b40 | 2d 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 | -name-face).append."(\\s-*".(1.f |
| 16b60 | 6f 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 | ont-lock-keyword-face).buffer-li |
| 16b80 | 73 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 | st.0.boundp.font-lock-refresh-de |
| 16ba0 | 66 61 75 6c 74 73 5d 20 38 5d 5d 20 33 20 28 23 24 20 2e 20 38 39 31 30 37 29 5d 29 0a 28 70 72 | faults].8]].3.(#$...89107)]).(pr |
| 16bc0 | 6f 76 69 64 65 20 27 64 61 73 68 29 0a | ovide.'dash). |
 |
depot | |
| monorepo for the virus lounge | The Virus Lounge |
| about summary refs log tree commit diff |
blob: 7a9ab22551328cb434a0d6a50803b299797dda5f (plain)