| 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 36 2e 33 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 | cs.version.26.3.;;;.with.all.opt |
| 0040 | 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 73 20 | imizations...;;;.This.file.uses. |
| 0060 | 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 64 20 | dynamic.docstrings,.first.added. |
| 0080 | 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 20 64 | in.Emacs.19.29...;;;.This.file.d |
| 00a0 | 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 49 20 | oes.not.contain.utf-8.non-ASCII. |
| 00c0 | 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 6c 6f | characters,.;;;.and.so.can.be.lo |
| 00e0 | 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 20 74 | aded.in.Emacs.versions.earlier.t |
| 0100 | 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 3b 3b | han.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 0a 3b 3b 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 0a 0a 0a 28 63 75 73 74 6f 6d 2d 64 65 63 6c 61 | ;;;;;;;;;;;;;;;;...(custom-decla |
| 01a0 | 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 67 72 | re-group.'dash.nil."Customize.gr |
| 01c0 | 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 3a 70 | oup.for.dash.el".:group.'lisp.:p |
| 01e0 | 72 65 66 69 78 20 22 64 61 73 68 2d 22 29 0a 23 40 32 31 20 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c | refix."dash-").#@21...(fn.SYMBOL |
| 0200 | 20 56 41 4c 55 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 65 6e 61 62 6c 65 | .VALUE)..(defalias.'dash--enable |
| 0220 | 2d 66 6f 6e 74 6c 6f 63 6b 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 07 00 5c 33 30 30 20 | -fontlock.#[514."\211\203..\300. |
| 0240 | 5c 32 31 30 5c 33 30 31 02 02 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 65 6e 61 62 6c 65 2d 66 | \210\301..\"\207".[dash-enable-f |
| 0260 | 6f 6e 74 2d 6c 6f 63 6b 20 73 65 74 2d 64 65 66 61 75 6c 74 5d 20 35 20 28 23 24 20 2e 20 35 30 | ont-lock.set-default].5.(#$...50 |
| 0280 | 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 5c 33 30 | 0)]).(byte-code."\300\301\302\30 |
| 02a0 | 33 5c 33 30 34 44 44 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c | 3\304DD\305\306\307\310\311\312\ |
| 02c0 | 33 31 33 26 09 5c 32 30 37 22 20 5b 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 | 313&.\207".[custom-declare-varia |
| 02e0 | 62 6c 65 20 64 61 73 68 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 66 75 6e 63 61 6c 6c | ble.dash-enable-fontlock.funcall |
| 0300 | 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 | .function.#[0."\300\207".[nil].1 |
| 0320 | 5d 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6e 61 62 6c 65 20 66 6f 6e 74 69 66 69 63 61 74 | ]."If.non-nil,.enable.fontificat |
| 0340 | 69 6f 6e 20 6f 66 20 64 61 73 68 20 66 75 6e 63 74 69 6f 6e 73 2c 20 6d 61 63 72 6f 73 20 61 6e | ion.of.dash.functions,.macros.an |
| 0360 | 64 5c 6e 73 70 65 63 69 61 6c 20 76 61 6c 75 65 73 2e 22 20 3a 74 79 70 65 20 62 6f 6f 6c 65 61 | d\nspecial.values.".:type.boolea |
| 0380 | 6e 20 3a 73 65 74 20 64 61 73 68 2d 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 6c 6f 63 6b 20 3a 67 72 | n.:set.dash--enable-fontlock.:gr |
| 03a0 | 6f 75 70 20 64 61 73 68 5d 20 31 30 29 0a 23 40 36 34 20 44 65 73 74 72 75 63 74 69 76 65 3a 20 | oup.dash].10).#@64.Destructive:. |
| 03c0 | 53 65 74 20 43 44 52 20 74 6f 20 74 68 65 20 63 6f 6e 73 20 6f 66 20 43 41 52 20 61 6e 64 20 43 | Set.CDR.to.the.cons.of.CAR.and.C |
| 03e0 | 44 52 2e 0a 0a 28 66 6e 20 43 41 52 20 43 44 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 21 63 | DR...(fn.CAR.CDR)..(defalias.'!c |
| 0400 | 6f 6e 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 04 04 | ons.'(macro...#[514."\300.\301.. |
| 0420 | 45 45 5c 32 30 37 22 20 5b 73 65 74 71 20 63 6f 6e 73 5d 20 37 20 28 23 24 20 2e 20 39 34 37 29 | EE\207".[setq.cons].7.(#$...947) |
| 0440 | 5d 29 29 0a 23 40 35 34 20 44 65 73 74 72 75 63 74 69 76 65 3a 20 53 65 74 20 4c 49 53 54 20 74 | ])).#@54.Destructive:.Set.LIST.t |
| 0460 | 6f 20 74 68 65 20 63 64 72 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 | o.the.cdr.of.LIST...(fn.LIST)..( |
| 0480 | 64 65 66 61 6c 69 61 73 20 27 21 63 64 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 32 35 37 20 22 | defalias.'!cdr.'(macro...#[257." |
| 04a0 | 5c 33 30 30 01 5c 33 30 31 03 44 45 5c 32 30 37 22 20 5b 73 65 74 71 20 63 64 72 5d 20 35 20 28 | \300.\301.DE\207".[setq.cdr].5.( |
| 04c0 | 23 24 20 2e 20 31 30 39 37 29 5d 29 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 | #$...1097)])).#@50.Anaphoric.for |
| 04e0 | 6d 20 6f 66 20 60 2d 65 61 63 68 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 26 72 65 73 74 20 42 4f | m.of.`-each'...(fn.LIST.&rest.BO |
| 0500 | 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 20 27 28 6d 61 63 72 6f 20 2e | DY)..(defalias.'--each.'(macro.. |
| 0520 | 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 30 | .#[385."\300\301!\302..D\303B\30 |
| 0540 | 34 03 5c 33 30 32 5c 33 30 35 5c 33 30 36 06 07 44 44 43 06 07 42 42 5c 33 30 37 5c 33 31 30 06 | 4.\302\305\306..DDC..BB\307\310. |
| 0560 | 07 44 5c 32 35 37 05 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 | .D\257.E\207".[make-symbol."list |
| 0580 | 22 20 6c 65 74 20 28 28 69 74 2d 69 6e 64 65 78 20 30 29 29 20 77 68 69 6c 65 20 69 74 20 63 61 | ".let.((it-index.0)).while.it.ca |
| 05a0 | 72 20 28 73 65 74 71 20 69 74 2d 69 6e 64 65 78 20 28 31 2b 20 69 74 2d 69 6e 64 65 78 29 29 20 | r.(setq.it-index.(1+.it-index)). |
| 05c0 | 21 63 64 72 5d 20 31 31 20 28 23 24 20 2e 20 31 32 33 35 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f | !cdr].11.(#$...1235)])).(byte-co |
| 05e0 | 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 33 30 | de."\300\301\302\303#\210\304\30 |
| 0600 | 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 20 | 1\305\306#\300\207".[put.--each. |
| 0620 | 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 6e | edebug-form-spec.(form.body).fun |
| 0640 | 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 31 | ction-put.lisp-indent-function.1 |
| 0660 | 5d 20 34 29 0a 23 40 32 35 31 20 45 76 61 6c 20 61 20 66 6f 72 6d 2c 20 74 68 65 6e 20 69 6e 73 | ].4).#@251.Eval.a.form,.then.ins |
| 0680 | 65 72 74 20 74 68 61 74 20 66 6f 72 6d 20 61 73 20 74 68 65 20 32 6e 64 20 61 72 67 75 6d 65 6e | ert.that.form.as.the.2nd.argumen |
| 06a0 | 74 20 74 6f 20 6f 74 68 65 72 20 66 6f 72 6d 73 2e 0a 54 68 65 20 45 56 41 4c 2d 49 4e 49 54 49 | t.to.other.forms..The.EVAL-INITI |
| 06c0 | 41 4c 2d 56 41 4c 55 45 20 66 6f 72 6d 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 2e | AL-VALUE.form.is.evaluated.once. |
| 06e0 | 20 49 74 73 20 72 65 73 75 6c 74 20 69 73 0a 70 61 73 73 65 64 20 74 6f 20 46 4f 52 4d 53 2c 20 | .Its.result.is.passed.to.FORMS,. |
| 0700 | 77 68 69 63 68 20 61 72 65 20 74 68 65 6e 20 65 76 61 6c 75 61 74 65 64 20 73 65 71 75 65 6e 74 | which.are.then.evaluated.sequent |
| 0720 | 69 61 6c 6c 79 2e 20 52 65 74 75 72 6e 73 0a 74 68 65 20 74 61 72 67 65 74 20 66 6f 72 6d 2e 0a | ially..Returns.the.target.form.. |
| 0740 | 0a 28 66 6e 20 45 56 41 4c 2d 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 46 4f | .(fn.EVAL-INITIAL-VALUE.&rest.FO |
| 0760 | 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 6f 74 6f 20 27 28 6d 61 63 72 6f 20 2e | RMS)..(defalias.'-doto.'(macro.. |
| 0780 | 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 04 44 43 5c 33 30 33 5c 33 30 | .#[385."\300\301!\302..DC\303\30 |
| 07a0 | 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 09 21 5c 33 31 32 5c 22 5c 33 | 4\305\306\307\310\311..!\312\"\3 |
| 07c0 | 31 33 5c 33 31 34 25 06 06 5c 22 04 43 5c 22 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d | 13\314%..\".C\"BB\207".[make-sym |
| 07e0 | 62 6f 6c 20 22 76 61 6c 75 65 22 20 6c 65 74 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 | bol."value".let.append.mapcar.ma |
| 0800 | 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 01 21 5c 32 30 33 0f 00 5c 33 | ke-byte-code.257."\301.!\203..\3 |
| 0820 | 30 32 01 21 5c 33 30 30 02 41 42 42 5c 32 30 37 5c 33 30 33 5c 33 30 34 5c 33 30 30 45 5c 32 30 | 02.!\300.ABB\207\303\304\300E\20 |
| 0840 | 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 71 75 65 6e 63 65 70 20 2d 66 69 | 7".vconcat.vector.[sequencep.-fi |
| 0860 | 72 73 74 2d 69 74 65 6d 20 66 75 6e 63 61 6c 6c 20 66 6f 72 6d 5d 20 34 20 22 5c 6e 5c 6e 28 66 | rst-item.funcall.form].4."\n\n(f |
| 0880 | 6e 20 46 4f 52 4d 29 22 5d 20 31 33 20 28 23 24 20 2e 20 31 36 34 33 29 5d 29 29 0a 28 62 79 74 | n.FORM)"].13.(#$...1643)])).(byt |
| 08a0 | 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 33 30 30 5c 32 30 | e-code."\300\301\302\303#\300\20 |
| 08c0 | 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 64 6f 74 6f 20 6c 69 73 70 2d 69 6e 64 65 | 7".[function-put.-doto.lisp-inde |
| 08e0 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 30 36 20 41 6e 61 70 68 6f 72 69 | nt-function.1].4).#@106.Anaphori |
| 0900 | 63 20 66 6f 72 6d 20 6f 66 20 60 2d 64 6f 74 6f 27 2e 0a 4e 6f 74 65 3a 20 60 69 74 27 20 69 73 | c.form.of.`-doto'..Note:.`it'.is |
| 0920 | 20 6e 6f 74 20 72 65 71 75 69 72 65 64 20 69 6e 20 65 61 63 68 20 66 6f 72 6d 2e 0a 0a 28 66 6e | .not.required.in.each.form...(fn |
| 0940 | 20 45 56 41 4c 2d 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 46 4f 52 4d 53 29 | .EVAL-INITIAL-VALUE.&rest.FORMS) |
| 0960 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 6f 74 6f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b | ..(defalias.'--doto.'(macro...#[ |
| 0980 | 33 38 35 20 22 5c 33 30 30 5c 33 30 31 03 44 43 5c 33 30 32 03 5c 33 30 33 5c 22 42 42 5c 32 30 | 385."\300\301.DC\302.\303\"BB\20 |
| 09a0 | 37 22 20 5b 6c 65 74 20 69 74 20 61 70 70 65 6e 64 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 | 7".[let.it.append.(it)].7.(#$... |
| 09c0 | 32 32 39 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 | 2296)])).(byte-code."\300\301\30 |
| 09e0 | 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 2d | 2\303#\300\207".[function-put.-- |
| 0a00 | 64 6f 74 6f 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a | doto.lisp-indent-function.1].4). |
| 0a20 | 23 40 38 38 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 | #@88.Call.FN.with.every.item.in. |
| 0a40 | 4c 49 53 54 2e 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 | LIST..Return.nil,.used.for.side- |
| 0a60 | 65 66 66 65 63 74 73 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 64 65 | effects.only...(fn.LIST.FN)..(de |
| 0a80 | 66 61 6c 69 61 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 | falias.'-each.#[514.".\300.\205. |
| 0aa0 | 00 01 40 03 01 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 | ..@..!\266.\211T\262..A\262.\202 |
| 0ac0 | 02 00 5c 32 30 37 22 20 5b 30 5d 20 37 20 28 23 24 20 2e 20 32 35 39 37 29 5d 29 0a 28 62 79 74 | ..\207".[0].7.(#$...2597)]).(byt |
| 0ae0 | 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 | e-code."\300\301\302\303#\210\30 |
| 0b00 | 34 5c 33 30 35 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 | 4\305\306\"\207".[put.-each.lisp |
| 0b20 | 2d 69 6e 64 65 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 | -indent-function.1.defalias.--ea |
| 0b40 | 63 68 2d 69 6e 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 | ch-indexed.--each].4).#@170.Call |
| 0b60 | 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 20 69 74 65 6d 20 69 | .(FN.index.item).for.each.item.i |
| 0b80 | 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 20 66 6f 72 6d 20 60 | n.LIST...In.the.anaphoric.form.` |
| 0ba0 | 2d 2d 65 61 63 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 | --each-indexed',.the.index.is.ex |
| 0bc0 | 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 2e 0a 0a 53 65 65 | posed.as.symbol.`it-index'...See |
| 0be0 | 20 61 6c 73 6f 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 | .also:.`-map-indexed'...(fn.LIST |
| 0c00 | 20 46 4e 29 1f 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 | .FN)..(defalias.'-each-indexed.# |
| 0c20 | 5b 35 31 34 20 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 | [514.".\300.\205...@...\"\266.\2 |
| 0c40 | 31 31 54 5c 32 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 | 11T\262..A\262.\202..\207".[0].8 |
| 0c60 | 20 28 23 24 20 2e 20 32 39 30 38 29 5d 29 0a 28 70 75 74 20 27 2d 65 61 63 68 2d 69 6e 64 65 78 | .(#$...2908)]).(put.'-each-index |
| 0c80 | 65 64 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 36 31 | ed.'lisp-indent-function.1).#@61 |
| 0ca0 | 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 2d 77 68 69 6c 65 27 | .Anaphoric.form.of.`-each-while' |
| 0cc0 | 2e 0a 0a 28 66 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 | ...(fn.LIST.PRED.&rest.BODY)..(d |
| 0ce0 | 65 66 61 6c 69 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 | efalias.'--each-while.'(macro... |
| 0d00 | 23 5b 36 34 32 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 | #[642."\300\301!\300\302!\303... |
| 0d20 | 44 02 5c 33 30 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 | D.\304B\305BB\306\307..E\303\310 |
| 0d40 | 5c 33 31 31 06 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 | \311..DDC\312\313..D\314..\315BB |
| 0d60 | 06 0b 42 42 42 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 | ..BBBE\316\317..D\257.E\207".[ma |
| 0d80 | 6b 65 2d 73 79 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 | ke-symbol."list"."continue".let. |
| 0da0 | 28 74 29 20 28 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 | (t).((it-index.0)).while.and.it. |
| 0dc0 | 63 61 72 20 69 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 | car.if.not.setq.(nil).(setq.it-i |
| 0de0 | 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 36 20 28 23 24 | ndex.(1+.it-index)).!cdr].16.(#$ |
| 0e00 | 20 2e 20 33 32 33 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 | ...3233)])).(byte-code."\300\301 |
| 0e20 | 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 33 | \302\303#\210\304\301\305\306#\3 |
| 0e40 | 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 65 64 65 62 75 67 | 00\207".[put.--each-while.edebug |
| 0e60 | 2d 66 6f 72 6d 2d 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 | -form-spec.(form.form.body).func |
| 0e80 | 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 32 5d | tion-put.lisp-indent-function.2] |
| 0ea0 | 20 34 29 0a 23 40 31 32 32 20 43 61 6c 6c 20 46 4e 20 77 69 74 68 20 65 76 65 72 79 20 69 74 65 | .4).#@122.Call.FN.with.every.ite |
| 0ec0 | 6d 20 69 6e 20 4c 49 53 54 20 77 68 69 6c 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73 20 6e | m.in.LIST.while.(PRED.item).is.n |
| 0ee0 | 6f 6e 2d 6e 69 6c 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 | on-nil..Return.nil,.used.for.sid |
| 0f00 | 65 2d 65 66 66 65 63 74 73 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 46 | e-effects.only...(fn.LIST.PRED.F |
| 0f20 | 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63 68 2d 77 68 69 6c 65 20 23 5b 37 37 31 | N)..(defalias.'-each-while.#[771 |
| 0f40 | 20 22 02 5c 33 30 30 5c 33 30 31 02 5c 32 30 35 29 00 01 5c 32 30 35 29 00 02 40 05 01 21 5c 32 | .".\300\301.\205)..\205)..@..!\2 |
| 0f60 | 30 34 19 00 5c 33 30 32 5c 32 36 32 03 5c 32 30 32 1d 00 04 01 21 5c 32 31 30 5c 32 31 30 5c 32 | 04..\302\262.\202....!\210\210\2 |
| 0f80 | 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 03 00 5c 32 30 37 22 20 5b 74 20 30 20 | 11T\262..A\262.\202..\207".[t.0. |
| 0fa0 | 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 33 37 35 34 29 5d 29 0a 28 70 75 74 20 27 2d 65 61 63 68 | nil].9.(#$...3754)]).(put.'-each |
| 0fc0 | 2d 77 68 69 6c 65 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 29 0a | -while.'lisp-indent-function.2). |
| 0fe0 | 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 65 61 63 68 2d 72 27 | #@52.Anaphoric.form.of.`-each-r' |
| 1000 | 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 69 | ...(fn.LIST.&rest.BODY)..(defali |
| 1020 | 61 73 20 27 2d 2d 65 61 63 68 2d 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 | as.'--each-r.'(macro...#[385."\3 |
| 1040 | 30 30 5c 33 30 31 21 5c 33 30 32 01 5c 33 30 33 05 44 44 5c 33 30 34 5c 33 30 35 04 44 44 5c 33 | 00\301!\302.\303.DD\304\305.DD\3 |
| 1060 | 30 36 42 42 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 06 08 5c 33 | 06BB\307\310\311\312\313\314..\3 |
| 1080 | 31 35 42 42 45 06 07 42 42 42 42 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 | 15BBE..BBBBE\207".[make-symbol." |
| 10a0 | 76 65 63 74 6f 72 22 20 6c 65 74 2a 20 76 63 6f 6e 63 61 74 20 69 74 2d 69 6e 64 65 78 20 6c 65 | vector".let*.vconcat.it-index.le |
| 10c0 | 6e 67 74 68 20 28 69 74 29 20 77 68 69 6c 65 20 28 3e 20 69 74 2d 69 6e 64 65 78 20 30 29 20 28 | ngth.(it).while.(>.it-index.0).( |
| 10e0 | 73 65 74 71 20 69 74 2d 69 6e 64 65 78 20 28 31 2d 20 69 74 2d 69 6e 64 65 78 29 29 20 73 65 74 | setq.it-index.(1-.it-index)).set |
| 1100 | 71 20 69 74 20 61 72 65 66 20 28 69 74 2d 69 6e 64 65 78 29 5d 20 31 33 20 28 23 24 20 2e 20 34 | q.it.aref.(it-index)].13.(#$...4 |
| 1120 | 30 36 39 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 | 069)])).(byte-code."\300\301\302 |
| 1140 | 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 33 30 30 5c 32 | \303#\210\304\301\305\306#\300\2 |
| 1160 | 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 2d 72 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 | 07".[put.--each-r.edebug-form-sp |
| 1180 | 65 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 | ec.(form.body).function-put.lisp |
| 11a0 | 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 30 37 20 43 61 6c | -indent-function.1].4).#@107.Cal |
| 11c0 | 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 20 69 6e 20 | l.FN.with.every.item.in.LIST.in. |
| 11e0 | 72 65 76 65 72 73 65 64 20 6f 72 64 65 72 2e 0a 20 52 65 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 | reversed.order...Return.nil,.use |
| 1200 | 64 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 | d.for.side-effects.only...(fn.LI |
| 1220 | 53 54 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63 68 2d 72 20 23 5b 35 31 34 | ST.FN)..(defalias.'-each-r.#[514 |
| 1240 | 20 22 5c 33 30 30 02 21 5c 32 31 31 47 5c 33 30 31 01 5c 33 30 32 56 5c 32 30 35 1c 00 01 53 5c | ."\300.!\211G\301.\302V\205...S\ |
| 1260 | 32 36 32 02 02 02 48 5c 32 36 32 01 03 01 21 5c 32 31 30 5c 32 30 32 06 00 5c 32 30 37 22 20 5b | 262...H\262...!\210\202..\207".[ |
| 1280 | 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 5d 20 37 20 28 23 24 20 2e 20 34 35 34 31 29 5d 29 0a 23 | vconcat.nil.0].7.(#$...4541)]).# |
| 12a0 | 40 36 33 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 2d 72 2d 77 | @63.Anaphoric.form.of.`-each-r-w |
| 12c0 | 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 26 72 65 73 74 20 42 4f 44 59 | hile'...(fn.LIST.PRED.&rest.BODY |
| 12e0 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 20 27 28 6d | )..(defalias.'--each-r-while.'(m |
| 1300 | 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 5c 33 30 33 | acro...#[642."\300\301!\302.\303 |
| 1320 | 06 06 44 44 5c 33 30 34 5c 33 30 35 04 44 44 5c 33 30 36 42 42 5c 33 30 37 5c 33 31 30 5c 33 31 | ..DD\304\305.DD\306BB\307\310\31 |
| 1340 | 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 06 08 5c 33 31 35 42 42 45 5c 33 31 36 5c 33 31 37 06 5c | 1\312\313\314..\315BBE\316\317.\ |
| 1360 | 6e 44 5c 33 32 30 06 5c 6e 42 42 42 5c 32 35 37 05 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 | nD\320.\nBBB\257.E\207".[make-sy |
| 1380 | 6d 62 6f 6c 20 22 76 65 63 74 6f 72 22 20 6c 65 74 2a 20 76 63 6f 6e 63 61 74 20 69 74 2d 69 6e | mbol."vector".let*.vconcat.it-in |
| 13a0 | 64 65 78 20 6c 65 6e 67 74 68 20 28 69 74 29 20 77 68 69 6c 65 20 28 3e 20 69 74 2d 69 6e 64 65 | dex.length.(it).while.(>.it-inde |
| 13c0 | 78 20 30 29 20 28 73 65 74 71 20 69 74 2d 69 6e 64 65 78 20 28 31 2d 20 69 74 2d 69 6e 64 65 78 | x.0).(setq.it-index.(1-.it-index |
| 13e0 | 29 29 20 73 65 74 71 20 69 74 20 61 72 65 66 20 28 69 74 2d 69 6e 64 65 78 29 20 69 66 20 6e 6f | )).setq.it.aref.(it-index).if.no |
| 1400 | 74 20 28 73 65 74 71 20 69 74 2d 69 6e 64 65 78 20 2d 31 29 5d 20 31 34 20 28 23 24 20 2e 20 34 | t.(setq.it-index.-1)].14.(#$...4 |
| 1420 | 37 37 32 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 | 772)])).(byte-code."\300\301\302 |
| 1440 | 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 33 30 30 5c 32 | \303#\210\304\301\305\306#\300\2 |
| 1460 | 30 37 22 20 5b 70 75 74 20 2d 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 20 65 64 65 62 75 67 2d 66 | 07".[put.--each-r-while.edebug-f |
| 1480 | 6f 72 6d 2d 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 | orm-spec.(form.form.body).functi |
| 14a0 | 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 32 5d 20 34 | on-put.lisp-indent-function.2].4 |
| 14c0 | 29 0a 23 40 31 33 31 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 | ).#@131.Call.FN.with.every.item. |
| 14e0 | 69 6e 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 20 77 68 69 6c 65 20 28 50 52 45 44 20 69 74 65 | in.reversed.LIST.while.(PRED.ite |
| 1500 | 6d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 2c 20 75 73 65 64 20 | m).is.non-nil..Return.nil,.used. |
| 1520 | 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 20 6f 6e 6c 79 2e 0a 0a 28 66 6e 20 4c 49 53 54 | for.side-effects.only...(fn.LIST |
| 1540 | 20 50 52 45 44 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63 68 2d 72 2d 77 68 | .PRED.FN)..(defalias.'-each-r-wh |
| 1560 | 69 6c 65 20 23 5b 37 37 31 20 22 5c 33 30 30 03 21 5c 32 31 31 47 5c 33 30 31 01 5c 33 30 32 56 | ile.#[771."\300.!\211G\301.\302V |
| 1580 | 5c 32 30 35 28 00 01 53 5c 32 36 32 02 02 02 48 5c 32 36 32 01 04 01 21 5c 32 30 34 21 00 5c 33 | \205(..S\262...H\262...!\204!.\3 |
| 15a0 | 30 33 5c 32 36 32 02 5c 32 30 32 06 00 03 01 21 5c 32 31 30 5c 32 30 32 06 00 5c 32 30 37 22 20 | 03\262.\202....!\210\202..\207". |
| 15c0 | 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 20 2d 31 5d 20 38 20 28 23 24 20 2e 20 35 33 32 30 29 | [vconcat.nil.0.-1].8.(#$...5320) |
| 15e0 | 5d 29 0a 23 40 31 33 34 20 52 65 70 65 61 74 65 64 6c 79 20 65 78 65 63 75 74 65 73 20 42 4f 44 | ]).#@134.Repeatedly.executes.BOD |
| 1600 | 59 20 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 | Y.(presumably.for.side-effects). |
| 1620 | 77 69 74 68 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 62 6f 75 6e 64 20 74 6f 20 69 6e 74 65 67 65 | with.symbol.`it'.bound.to.intege |
| 1640 | 72 73 20 66 72 6f 6d 20 30 20 74 68 72 6f 75 67 68 20 4e 55 4d 2d 31 2e 0a 0a 28 66 6e 20 4e 55 | rs.from.0.through.NUM-1...(fn.NU |
| 1660 | 4d 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 6f 74 69 | M.&rest.BODY)..(defalias.'--doti |
| 1680 | 6d 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 | mes.'(macro...#[385."\300\301!\3 |
| 16a0 | 30 32 01 04 44 5c 33 30 33 42 5c 33 30 34 5c 33 30 35 5c 33 30 36 05 45 5c 33 30 37 06 06 5c 33 | 02..D\303B\304\305\306.E\307..\3 |
| 16c0 | 31 30 5c 22 42 42 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 75 6d 22 20 | 10\"BBE\207".[make-symbol."num". |
| 16e0 | 6c 65 74 20 28 28 69 74 20 30 29 29 20 77 68 69 6c 65 20 3c 20 69 74 20 61 70 70 65 6e 64 20 28 | let.((it.0)).while.<.it.append.( |
| 1700 | 28 73 65 74 71 20 69 74 20 28 31 2b 20 69 74 29 29 29 5d 20 31 30 20 28 23 24 20 2e 20 35 36 30 | (setq.it.(1+.it)))].10.(#$...560 |
| 1720 | 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 9)])).(byte-code."\300\301\302\3 |
| 1740 | 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 33 30 30 5c 32 30 37 | 03#\210\304\301\305\306#\300\207 |
| 1760 | 22 20 5b 70 75 74 20 2d 2d 64 6f 74 69 6d 65 73 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | ".[put.--dotimes.edebug-form-spe |
| 1780 | 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- |
| 17a0 | 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 30 36 20 52 65 70 65 | indent-function.1].4).#@106.Repe |
| 17c0 | 61 74 65 64 6c 79 20 63 61 6c 6c 73 20 46 4e 20 28 70 72 65 73 75 6d 61 62 6c 79 20 66 6f 72 20 | atedly.calls.FN.(presumably.for. |
| 17e0 | 73 69 64 65 2d 65 66 66 65 63 74 73 29 20 70 61 73 73 69 6e 67 20 69 6e 20 69 6e 74 65 67 65 72 | side-effects).passing.in.integer |
| 1800 | 73 20 66 72 6f 6d 20 30 20 74 68 72 6f 75 67 68 20 4e 55 4d 2d 31 2e 0a 0a 28 66 6e 20 4e 55 4d | s.from.0.through.NUM-1...(fn.NUM |
| 1820 | 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 6f 74 69 6d 65 73 20 23 5b 35 31 34 20 | .FN)..(defalias.'-dotimes.#[514. |
| 1840 | 22 01 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 35 13 00 02 01 21 5c 32 31 30 5c 32 31 31 54 5c 32 | ".\300\211.W\205....!\210\211T\2 |
| 1860 | 36 32 01 5c 32 30 32 02 00 5c 32 30 37 22 20 5b 30 5d 20 36 20 28 23 24 20 2e 20 36 30 37 36 29 | 62.\202..\207".[0].6.(#$...6076) |
| 1880 | 5d 29 0a 28 70 75 74 20 27 2d 64 6f 74 69 6d 65 73 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 | ]).(put.'-dotimes.'lisp-indent-f |
| 18a0 | 75 6e 63 74 69 6f 6e 20 31 29 0a 23 40 39 35 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 | unction.1).#@95.Return.a.new.lis |
| 18c0 | 74 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70 | t.consisting.of.the.result.of.ap |
| 18e0 | 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a | plying.FN.to.the.items.in.LIST.. |
| 1900 | 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 6d 61 70 20 23 | .(fn.FN.LIST)..(defalias.'-map.# |
| 1920 | 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 5d 20 35 20 28 | [514."\300..\"\207".[mapcar].5.( |
| 1940 | 23 24 20 2e 20 36 33 32 30 29 5d 29 0a 23 40 34 33 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d | #$...6320)]).#@43.Anaphoric.form |
| 1960 | 20 6f 66 20 60 2d 6d 61 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.`-map'...(fn.FORM.LIST)..(de |
| 1980 | 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c | falias.'--map.'(macro...#[514."\ |
| 19a0 | 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6c 61 6d | 300\301\302.E.E\207".[mapcar.lam |
| 19c0 | 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 36 34 38 32 29 5d 29 29 0a 28 70 75 74 20 | bda.(it)].6.(#$...6482)])).(put. |
| 19e0 | 27 2d 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 20 | '--map.'edebug-form-spec.'(form. |
| 1a00 | 66 6f 72 6d 29 29 0a 23 40 36 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d | form)).#@65.Anaphoric.form.of.`- |
| 1a20 | 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 49 41 4c 2d | reduce-from'...(fn.FORM.INITIAL- |
| 1a40 | 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 63 65 | VALUE.LIST)..(defalias.'--reduce |
| 1a60 | 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 33 30 31 03 | -from.'(macro...#[771."\300\301. |
| 1a80 | 44 43 5c 33 30 32 03 5c 33 30 33 5c 33 30 31 06 08 45 45 5c 33 30 34 42 42 42 5c 32 30 37 22 20 | DC\302.\303\301..EE\304BBB\207". |
| 1aa0 | 5b 6c 65 74 20 61 63 63 20 2d 2d 65 61 63 68 20 73 65 74 71 20 28 61 63 63 29 5d 20 31 30 20 28 | [let.acc.--each.setq.(acc)].10.( |
| 1ac0 | 23 24 20 2e 20 36 36 36 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 66 72 6f | #$...6668)])).(put.'--reduce-fro |
| 1ae0 | 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 6d 20 | m.'edebug-form-spec.'(form.form. |
| 1b00 | 66 6f 72 6d 29 29 0a 23 40 33 35 34 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f | form)).#@354.Return.the.result.o |
| 1b20 | 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 61 | f.applying.FN.to.INITIAL-VALUE.a |
| 1b40 | 6e 64 20 74 68 65 0a 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2c 20 74 68 65 6e 20 | nd.the.first.item.in.LIST,.then. |
| 1b60 | 61 70 70 6c 79 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 | applying.FN.to.that.result.and.t |
| 1b80 | 68 65 20 32 6e 64 0a 69 74 65 6d 2c 20 65 74 63 2e 20 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 | he.2nd.item,.etc..If.LIST.contai |
| 1ba0 | 6e 73 20 6e 6f 20 69 74 65 6d 73 2c 20 72 65 74 75 72 6e 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 | ns.no.items,.return.INITIAL-VALU |
| 1bc0 | 45 20 61 6e 64 0a 64 6f 20 6e 6f 74 20 63 61 6c 6c 20 46 4e 2e 0a 0a 49 6e 20 74 68 65 20 61 6e | E.and.do.not.call.FN...In.the.an |
| 1be0 | 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2c 20 74 68 | aphoric.form.`--reduce-from',.th |
| 1c00 | 65 20 61 63 63 75 6d 75 6c 61 74 65 64 20 76 61 6c 75 65 20 69 73 0a 65 78 70 6f 73 65 64 20 61 | e.accumulated.value.is.exposed.a |
| 1c20 | 73 20 73 79 6d 62 6f 6c 20 60 61 63 63 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 | s.symbol.`acc'...See.also:.`-red |
| 1c40 | 75 63 65 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 49 41 | uce',.`-reduce-r'..(fn.FN.INITIA |
| 1c60 | 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 72 65 64 75 63 | L-VALUE.LIST)..(defalias.'-reduc |
| 1c80 | 65 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 01 5c 33 30 30 01 5c 32 30 33 1c 00 01 40 06 06 04 | e-from.#[771."..\300.\203...@... |
| 1ca0 | 02 5c 22 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 |
| 1cc0 | 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 30 5d 20 31 30 20 28 23 24 20 2e 20 36 | 2..\266.\211\207".[0].10.(#$...6 |
| 1ce0 | 39 32 35 29 5d 29 0a 23 40 34 36 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d | 925)]).#@46.Anaphoric.form.of.`- |
| 1d00 | 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | reduce'...(fn.FORM.LIST)..(defal |
| 1d20 | 69 61 73 20 27 2d 2d 72 65 64 75 63 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c | ias.'--reduce.'(macro...#[514."\ |
| 1d40 | 33 30 30 5c 33 30 31 21 5c 33 30 32 01 03 44 43 5c 33 30 33 03 5c 33 30 34 06 07 5c 33 30 35 06 | 300\301!\302..DC\303.\304..\305. |
| 1d60 | 07 44 5c 33 30 36 06 08 44 46 5c 33 30 32 5c 33 30 37 06 09 45 46 45 5c 32 30 37 22 20 5b 6d 61 | .D\306..DF\302\307..EFE\207".[ma |
| 1d80 | 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 2d 76 61 6c 75 65 22 20 6c 65 74 20 69 66 20 2d 2d | ke-symbol."list-value".let.if.-- |
| 1da0 | 72 65 64 75 63 65 2d 66 72 6f 6d 20 63 61 72 20 63 64 72 20 28 61 63 63 20 69 74 29 5d 20 31 32 | reduce-from.car.cdr.(acc.it)].12 |
| 1dc0 | 20 28 23 24 20 2e 20 37 34 30 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 20 27 | .(#$...7404)])).(put.'--reduce.' |
| 1de0 | 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)).# |
| 1e00 | 40 34 30 34 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 | @404.Return.the.result.of.applyi |
| 1e20 | 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 32 20 69 74 65 6d 73 20 69 6e 20 4c 49 | ng.FN.to.the.first.2.items.in.LI |
| 1e40 | 53 54 2c 0a 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 61 74 20 72 65 73 | ST,.then.applying.FN.to.that.res |
| 1e60 | 75 6c 74 20 61 6e 64 20 74 68 65 20 33 72 64 20 69 74 65 6d 2c 20 65 74 63 2e 20 49 66 20 4c 49 | ult.and.the.3rd.item,.etc..If.LI |
| 1e80 | 53 54 0a 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 69 74 65 6d 73 2c 20 72 65 74 75 72 6e 20 74 68 65 | ST.contains.no.items,.return.the |
| 1ea0 | 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 0a 61 72 | .result.of.calling.FN.with.no.ar |
| 1ec0 | 67 75 6d 65 6e 74 73 2e 20 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 69 6e 67 | guments..If.LIST.contains.a.sing |
| 1ee0 | 6c 65 20 69 74 65 6d 2c 20 72 65 74 75 72 6e 20 74 68 61 74 20 69 74 65 6d 0a 61 6e 64 20 64 6f | le.item,.return.that.item.and.do |
| 1f00 | 20 6e 6f 74 20 63 61 6c 6c 20 46 4e 2e 0a 0a 49 6e 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 | .not.call.FN...In.the.anaphoric. |
| 1f20 | 66 6f 72 6d 20 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 | form.`--reduce',.the.accumulated |
| 1f40 | 20 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 | .value.is.exposed.as.symbol.`acc |
| 1f60 | 27 2e 0a 0a 53 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 | '...See.also:.`-reduce-from',.`- |
| 1f80 | 72 65 64 75 63 65 2d 72 27 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | reduce-r'..(fn.FN.LIST)..(defali |
| 1fa0 | 61 73 20 27 2d 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 | as.'-reduce.#[514."\211\203\f.\3 |
| 1fc0 | 30 30 02 02 40 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 | 00..@.A#\207..\207".[-reduce-fro |
| 1fe0 | 6d 5d 20 36 20 28 23 24 20 2e 20 37 36 38 35 29 5d 29 0a 23 40 37 30 20 41 6e 61 70 68 6f 72 69 | m].6.(#$...7685)]).#@70.Anaphori |
| 2000 | 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a | c.version.of.`-reduce-r-from'... |
| 2020 | 28 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 | (fn.FORM.INITIAL-VALUE.LIST)..(d |
| 2040 | 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f | efalias.'--reduce-r-from.'(macro |
| 2060 | 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 5c 33 30 31 04 44 46 5c 32 30 37 22 20 5b 2d 2d | ...#[771."\300..\301.DF\207".[-- |
| 2080 | 72 65 64 75 63 65 2d 66 72 6f 6d 20 72 65 76 65 72 73 65 5d 20 38 20 28 23 24 20 2e 20 38 31 38 | reduce-from.reverse].8.(#$...818 |
| 20a0 | 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 27 65 64 65 | 4)])).(put.'--reduce-r-from.'ede |
| 20c0 | 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)) |
| 20e0 | 0a 23 40 33 33 31 20 52 65 70 6c 61 63 65 20 63 6f 6e 73 65 73 20 77 69 74 68 20 46 4e 2c 20 6e | .#@331.Replace.conses.with.FN,.n |
| 2100 | 69 6c 20 77 69 74 68 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 61 6e 64 20 65 76 61 6c 75 61 | il.with.INITIAL-VALUE.and.evalua |
| 2120 | 74 65 0a 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 2e 20 49 66 20 | te.the.resulting.expression..If. |
| 2140 | 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 69 73 0a | LIST.is.empty,.INITIAL-VALUE.is. |
| 2160 | 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 64 2e 0a 0a | returned.and.FN.is.not.called... |
| 2180 | 4e 6f 74 65 3a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 6f 72 6b 73 20 74 68 65 20 73 61 | Note:.this.function.works.the.sa |
| 21a0 | 6d 65 20 61 73 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 62 75 74 20 74 68 65 0a 6f 70 65 | me.as.`-reduce-from'.but.the.ope |
| 21c0 | 72 61 74 69 6f 6e 20 61 73 73 6f 63 69 61 74 65 73 20 66 72 6f 6d 20 72 69 67 68 74 20 69 6e 73 | ration.associates.from.right.ins |
| 21e0 | 74 65 61 64 20 6f 66 20 66 72 6f 6d 20 6c 65 66 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d | tead.of.from.left...See.also:.`- |
| 2200 | 72 65 64 75 63 65 2d 72 27 2c 20 60 2d 72 65 64 75 63 65 27 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 | reduce-r',.`-reduce'..(fn.FN.INI |
| 2220 | 54 49 41 4c 2d 56 41 4c 55 45 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 | TIAL-VALUE.LIST)..(defalias.'-re |
| 2240 | 64 75 63 65 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 5c 33 30 30 02 21 5c 33 30 31 01 5c | duce-r-from.#[771.".\300.!\301.\ |
| 2260 | 32 30 33 1e 00 01 40 06 06 01 05 5c 22 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 | 203...@....\"\262.\210\211T\262. |
| 2280 | 01 41 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 72 65 76 | .A\262.\202..\266.\211\207".[rev |
| 22a0 | 65 72 73 65 20 30 5d 20 31 30 20 28 23 24 20 2e 20 38 34 32 33 29 5d 29 0a 23 40 35 31 20 41 6e | erse.0].10.(#$...8423)]).#@51.An |
| 22c0 | 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 72 65 64 75 63 65 2d 72 27 2e 0a | aphoric.version.of.`-reduce-r'.. |
| 22e0 | 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 | .(fn.FORM.LIST)..(defalias.'--re |
| 2300 | 64 75 63 65 2d 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 | duce-r.'(macro...#[514."\300.\30 |
| 2320 | 31 03 44 45 5c 32 30 37 22 20 5b 2d 2d 72 65 64 75 63 65 20 72 65 76 65 72 73 65 5d 20 36 20 28 | 1.DE\207".[--reduce.reverse].6.( |
| 2340 | 23 24 20 2e 20 38 38 39 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72 20 27 | #$...8894)])).(put.'--reduce-r.' |
| 2360 | 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)).# |
| 2380 | 40 34 38 30 20 52 65 70 6c 61 63 65 20 63 6f 6e 73 65 73 20 77 69 74 68 20 46 4e 20 61 6e 64 20 | @480.Replace.conses.with.FN.and. |
| 23a0 | 65 76 61 6c 75 61 74 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f | evaluate.the.resulting.expressio |
| 23c0 | 6e 2e 0a 54 68 65 20 66 69 6e 61 6c 20 6e 69 6c 20 69 73 20 69 67 6e 6f 72 65 64 2e 20 49 66 20 | n..The.final.nil.is.ignored..If. |
| 23e0 | 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 6e 6f 20 69 74 65 6d 73 2c 20 72 65 74 75 72 6e 20 74 | LIST.contains.no.items,.return.t |
| 2400 | 68 65 0a 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. |
| 2420 | 61 72 67 75 6d 65 6e 74 73 2e 20 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 69 | arguments..If.LIST.contains.a.si |
| 2440 | 6e 67 6c 65 0a 69 74 65 6d 2c 20 72 65 74 75 72 6e 20 74 68 61 74 20 69 74 65 6d 20 61 6e 64 20 | ngle.item,.return.that.item.and. |
| 2460 | 64 6f 20 6e 6f 74 20 63 61 6c 6c 20 46 4e 2e 0a 0a 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d | do.not.call.FN...The.first.argum |
| 2480 | 65 6e 74 20 6f 66 20 46 4e 20 69 73 20 74 68 65 20 6e 65 77 20 69 74 65 6d 2c 20 74 68 65 20 73 | ent.of.FN.is.the.new.item,.the.s |
| 24a0 | 65 63 6f 6e 64 20 69 73 20 74 68 65 0a 61 63 63 75 6d 75 6c 61 74 65 64 20 76 61 6c 75 65 2e 0a | econd.is.the.accumulated.value.. |
| 24c0 | 0a 4e 6f 74 65 3a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 6f 72 6b 73 20 74 68 65 20 73 | .Note:.this.function.works.the.s |
| 24e0 | 61 6d 65 20 61 73 20 60 2d 72 65 64 75 63 65 27 20 62 75 74 20 74 68 65 20 6f 70 65 72 61 74 69 | ame.as.`-reduce'.but.the.operati |
| 2500 | 6f 6e 0a 61 73 73 6f 63 69 61 74 65 73 20 66 72 6f 6d 20 72 69 67 68 74 20 69 6e 73 74 65 61 64 | on.associates.from.right.instead |
| 2520 | 20 6f 66 20 66 72 6f 6d 20 6c 65 66 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 | .of.from.left...See.also:.`-redu |
| 2540 | 63 65 2d 72 2d 66 72 6f 6d 27 2c 20 60 2d 72 65 64 75 63 65 27 0a 0a 28 66 6e 20 46 4e 20 4c 49 | ce-r-from',.`-reduce'..(fn.FN.LI |
| 2560 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 2d 72 20 23 5b 35 31 34 20 | ST)..(defalias.'-reduce-r.#[514. |
| 2580 | 22 5c 32 31 31 5c 32 30 33 3a 00 5c 33 30 30 01 21 5c 32 31 31 5c 32 30 33 31 00 5c 32 31 31 40 | "\211\203:.\300.!\211\2031.\211@ |
| 25a0 | 01 41 5c 33 30 31 01 5c 32 30 33 29 00 01 40 06 06 01 05 5c 22 5c 32 36 32 04 5c 32 31 30 5c 32 | .A\301.\203)..@....\"\262.\210\2 |
| 25c0 | 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 10 00 5c 32 36 36 02 5c 32 31 31 5c 32 | 11T\262..A\262.\202..\266.\211\2 |
| 25e0 | 36 32 01 5c 32 30 32 39 00 5c 33 30 32 5c 32 31 31 04 01 03 5c 22 5c 32 36 36 5c 32 30 32 5c 32 | 62.\2029.\302\211...\"\266\202\2 |
| 2600 | 30 37 01 20 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 | 07..\207".[reverse.0.nil].10.(#$ |
| 2620 | 20 2e 20 39 30 39 33 29 5d 29 0a 23 40 31 38 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f | ...9093)]).#@188.Return.a.list.o |
| 2640 | 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 | f.the.intermediate.values.of.the |
| 2660 | 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 66 72 6f 6d 27 20 | .reduction...See.`-reduce-from'. |
| 2680 | 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 |
| 26a0 | 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 27 2c 20 60 2d 72 65 | ...See.also:.`-reductions',.`-re |
| 26c0 | 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 66 6e 20 46 4e | ductions-r',.`-reduce-r'..(fn.FN |
| 26e0 | 20 49 4e 49 54 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 | .INIT.LIST)..(defalias.'-reducti |
| 2700 | 6f 6e 73 2d 66 72 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 | ons-from.#[771.".C.\300.\203...@ |
| 2720 | 06 06 04 40 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 | ...@.\".B\262.\210\211T\262..A\2 |
| 2740 | 36 32 02 5c 32 30 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 | 62.\202..\266.\211\262.\237\207" |
| 2760 | 20 5b 30 5d 20 31 30 20 28 23 24 20 2e 20 39 37 37 37 29 5d 29 0a 23 40 31 38 33 20 52 65 74 75 | .[0].10.(#$...9777)]).#@183.Retu |
| 2780 | 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 | rn.a.list.of.the.intermediate.va |
| 27a0 | 6c 75 65 73 20 6f 66 20 74 68 65 20 72 65 64 75 63 74 69 6f 6e 2e 0a 0a 53 65 65 20 60 2d 72 65 | lues.of.the.reduction...See.`-re |
| 27c0 | 64 75 63 65 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 | duce'.for.explanation.of.the.arg |
| 27e0 | 75 6d 65 6e 74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d | uments...See.also:.`-reductions- |
| 2800 | 66 72 6f 6d 27 2c 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2c 20 60 2d 72 65 64 75 63 65 | from',.`-reductions-r',.`-reduce |
| 2820 | 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 72 | -r'..(fn.FN.LIST)..(defalias.'-r |
| 2840 | 65 64 75 63 74 69 6f 6e 73 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 35 0b 00 5c 33 30 30 02 | eductions.#[514."\211\205..\300. |
| 2860 | 02 40 03 41 23 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 5d 20 36 20 | .@.A#\207".[-reductions-from].6. |
| 2880 | 28 23 24 20 2e 20 31 30 31 30 38 29 5d 29 0a 23 40 31 38 38 20 52 65 74 75 72 6e 20 61 20 6c 69 | (#$...10108)]).#@188.Return.a.li |
| 28a0 | 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 66 | st.of.the.intermediate.values.of |
| 28c0 | 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 2d | .the.reduction...See.`-reduce-r- |
| 28e0 | 66 72 6f 6d 27 20 66 6f 72 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 72 67 | from'.for.explanation.of.the.arg |
| 2900 | 75 6d 65 6e 74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d | uments...See.also:.`-reductions- |
| 2920 | 72 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 66 | r',.`-reductions',.`-reduce'..(f |
| 2940 | 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 | n.FN.INIT.LIST)..(defalias.'-red |
| 2960 | 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 43 5c 33 30 30 02 21 5c 33 | uctions-r-from.#[771.".C\300.!\3 |
| 2980 | 30 31 01 5c 32 30 33 5c 22 00 01 40 06 06 01 05 40 5c 22 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 | 01.\203\"..@....@\".B\262.\210\2 |
| 29a0 | 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 06 00 5c 32 36 36 02 5c 32 31 31 5c 32 | 11T\262..A\262.\202..\266.\211\2 |
| 29c0 | 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 5d 20 31 30 20 28 23 24 20 2e 20 31 30 33 38 39 29 5d | 07".[reverse.0].10.(#$...10389)] |
| 29e0 | 29 0a 23 40 31 38 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 | ).#@183.Return.a.list.of.the.int |
| 2a00 | 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 74 69 6f | ermediate.values.of.the.reductio |
| 2a20 | 6e 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 27 20 66 6f 72 20 65 78 70 6c 61 6e 61 74 | n...See.`-reduce-r'.for.explanat |
| 2a40 | 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 3a | ion.of.the.arguments...See.also: |
| 2a60 | 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 27 2c 20 60 2d 72 65 64 75 63 74 69 | .`-reductions-r-from',.`-reducti |
| 2a80 | 6f 6e 73 27 2c 20 60 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 | ons',.`-reduce'..(fn.FN.LIST)..( |
| 2aa0 | 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 20 23 5b 35 31 34 20 22 5c | defalias.'-reductions-r.#[514."\ |
| 2ac0 | 32 31 31 5c 32 30 35 30 00 5c 33 30 30 01 21 5c 32 31 31 40 43 01 41 5c 33 30 31 01 5c 32 30 33 | 211\2050.\300.!\211@C.A\301.\203 |
| 2ae0 | 29 00 01 40 06 06 01 05 40 5c 22 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 | )..@....@\".B\262.\210\211T\262. |
| 2b00 | 01 41 5c 32 36 32 02 5c 32 30 32 0d 00 5c 32 36 36 02 5c 32 31 31 5c 32 36 32 01 5c 32 36 32 01 | .A\262.\202..\266.\211\262.\262. |
| 2b20 | 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 30 5d 20 31 30 20 28 23 24 20 2e 20 31 30 37 32 38 | \207".[reverse.0].10.(#$...10728 |
| 2b40 | 29 5d 29 0a 23 40 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 | )]).#@69.Anaphoric.form.of.`-fil |
| 2b60 | 74 65 72 27 2e 0a 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 | ter'...See.also:.`--remove'...(f |
| 2b80 | 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 66 69 6c 74 65 | n.FORM.LIST)..(defalias.'--filte |
| 2ba0 | 72 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 32 | r.'(macro...#[514."\300\301!\302 |
| 2bc0 | 01 43 5c 33 30 33 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 | .C\303.\304..\305\306..EEE\307.D |
| 2be0 | 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 65 74 | F\207".[make-symbol."result".let |
| 2c00 | 20 2d 2d 65 61 63 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 | .--each.when.!cons.it.nreverse]. |
| 2c20 | 31 32 20 28 23 24 20 2e 20 31 31 30 38 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6c 74 65 | 12.(#$...11081)])).(put.'--filte |
| 2c40 | 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 72 6d 29 | r.'edebug-form-spec.'(form.form) |
| 2c60 | 29 0a 23 40 31 34 35 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 | ).#@145.Return.a.new.list.of.the |
| 2c80 | 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 50 52 45 44 20 72 65 | .items.in.LIST.for.which.PRED.re |
| 2ca0 | 74 75 72 6e 73 20 61 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 | turns.a.non-nil.value...Alias:.` |
| 2cc0 | 2d 73 65 6c 65 63 74 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 | -select'..See.also:.`-keep',.`-r |
| 2ce0 | 65 6d 6f 76 65 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 | emove'...(fn.PRED.LIST)..(defali |
| 2d00 | 61 73 20 27 2d 66 69 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 | as.'-filter.#[514."\300.\301.\20 |
| 2d20 | 33 20 00 01 40 05 01 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 | 3...@..!\203..\211.B\262.\210\21 |
| 2d40 | 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 | 1T\262..A\262.\202..\266.\211\23 |
| 2d60 | 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 31 31 33 36 38 29 5d 29 0a | 7\207".[nil.0].8.(#$...11368)]). |
| 2d80 | 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 | (byte-code."\300\301\302\"\210\3 |
| 2da0 | 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 65 6c | 00\303\304\"\207".[defalias.-sel |
| 2dc0 | 65 63 74 20 2d 66 69 6c 74 65 72 20 2d 2d 73 65 6c 65 63 74 20 2d 2d 66 69 6c 74 65 72 5d 20 33 | ect.-filter.--select.--filter].3 |
| 2de0 | 29 0a 23 40 36 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 6d 6f 76 | ).#@68.Anaphoric.form.of.`-remov |
| 2e00 | 65 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 46 | e'...See.also.`--filter'...(fn.F |
| 2e20 | 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 65 20 27 | ORM.LIST)..(defalias.'--remove.' |
| 2e40 | 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 44 02 45 5c 32 30 37 | (macro...#[514."\300\301.D.E\207 |
| 2e60 | 22 20 5b 2d 2d 66 69 6c 74 65 72 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 31 31 37 35 31 29 5d | ".[--filter.not].5.(#$...11751)] |
| 2e80 | 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 6d 6f 76 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | )).(put.'--remove.'edebug-form-s |
| 2ea0 | 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 32 34 20 52 65 74 75 72 6e 20 61 | pec.'(form.form)).#@124.Return.a |
| 2ec0 | 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 66 | .new.list.of.the.items.in.LIST.f |
| 2ee0 | 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 41 6c 69 61 | or.which.PRED.returns.nil...Alia |
| 2f00 | 73 3a 20 60 2d 72 65 6a 65 63 74 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 6c 74 65 72 | s:.`-reject'..See.also:.`-filter |
| 2f20 | 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 2d | '...(fn.PRED.LIST)..(defalias.'- |
| 2f40 | 72 65 6d 6f 76 65 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 | remove.#[514."\300.\301.\203...@ |
| 2f60 | 05 01 21 5c 32 30 34 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 | ..!\204..\211.B\262.\210\211T\26 |
| 2f80 | 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 37 | 2..A\262.\202..\266.\211\237\207 |
| 2fa0 | 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 31 31 39 36 30 29 5d 29 0a 28 62 79 74 65 | ".[nil.0].8.(#$...11960)]).(byte |
| 2fc0 | 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 | -code."\300\301\302\"\210\300\30 |
| 2fe0 | 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 20 2d | 3\304\"\207".[defalias.-reject.- |
| 3000 | 72 65 6d 6f 76 65 20 2d 2d 72 65 6a 65 63 74 20 2d 2d 72 65 6d 6f 76 65 5d 20 33 29 0a 23 40 31 | remove.--reject.--remove].3).#@1 |
| 3020 | 33 37 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 20 66 69 | 37.Return.a.new.list.with.the.fi |
| 3040 | 72 73 74 20 69 74 65 6d 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 72 65 6d 6f 76 65 64 2e 0a | rst.item.matching.PRED.removed.. |
| 3060 | 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 27 0a 0a 53 65 65 20 61 6c 73 | .Alias:.`-reject-first'..See.als |
| 3080 | 6f 3a 20 60 2d 72 65 6d 6f 76 65 27 2c 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 | o:.`-remove',.`-map-first'..(fn. |
| 30a0 | 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 66 | PRED.LIST)..(defalias.'-remove-f |
| 30c0 | 69 72 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 32 30 33 19 00 02 02 40 21 5c 32 30 34 19 | irst.#[514."\300.\203....@!\204. |
| 30e0 | 00 01 40 01 42 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 01 5c 32 30 33 26 00 5c 33 | ..@.B\262..A\262.\202...\203&.\3 |
| 3100 | 30 31 01 5c 32 33 37 03 41 5c 22 5c 32 30 32 28 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b | 01.\237.A\"\202(.\211\237\207".[ |
| 3120 | 6e 69 6c 20 2d 63 6f 6e 63 61 74 5d 20 36 20 28 23 24 20 2e 20 31 32 33 32 33 29 5d 29 0a 23 40 | nil.-concat].6.(#$...12323)]).#@ |
| 3140 | 35 32 20 41 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 2d 66 69 | 52.Anaphoric.form.of.`-remove-fi |
| 3160 | 72 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 6c 69 61 73 | rst'...(fn.FORM.LIST)..(defalias |
| 3180 | 20 27 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 | .'--remove-first.'(macro...#[514 |
| 31a0 | 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 65 6d 6f 76 65 | ."\300\301\302.E.E\207".[-remove |
| 31c0 | 2d 66 69 72 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 31 32 36 31 | -first.lambda.(it)].6.(#$...1261 |
| 31e0 | 31 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 1)])).(byte-code."\300\301\302\3 |
| 3200 | 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 | 03#\210\304\305\306\"\210\304\30 |
| 3220 | 37 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 | 7\301\"\207".[put.--remove-first |
| 3240 | 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 64 65 | .edebug-form-spec.(form.form).de |
| 3260 | 66 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 20 2d 72 65 6d 6f 76 65 2d 66 69 72 | falias.-reject-first.-remove-fir |
| 3280 | 73 74 20 2d 2d 72 65 6a 65 63 74 2d 66 69 72 73 74 5d 20 34 29 0a 23 40 31 33 34 20 52 65 74 75 | st.--reject-first].4).#@134.Retu |
| 32a0 | 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d | rn.a.new.list.with.the.last.item |
| 32c0 | 20 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 | .matching.PRED.removed...Alias:. |
| 32e0 | 60 2d 72 65 6a 65 63 74 2d 6c 61 73 74 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f | `-reject-last'..See.also:.`-remo |
| 3300 | 76 65 27 2c 20 60 2d 6d 61 70 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 | ve',.`-map-last'..(fn.PRED.LIST) |
| 3320 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 23 5b 35 31 34 20 | ..(defalias.'-remove-last.#[514. |
| 3340 | 22 5c 33 30 30 02 5c 33 30 31 03 21 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 | "\300.\301.!\"\237\207".[-remove |
| 3360 | 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 31 32 39 35 36 29 5d 29 | -first.reverse].6.(#$...12956)]) |
| 3380 | 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 72 65 6d 6f 76 65 | .#@51.Anaphoric.form.of.`-remove |
| 33a0 | 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 6c 69 | -last'...(fn.FORM.LIST)..(defali |
| 33c0 | 61 73 20 27 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 | as.'--remove-last.'(macro...#[51 |
| 33e0 | 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 65 6d 6f 76 | 4."\300\301\302.E.E\207".[-remov |
| 3400 | 65 2d 6c 61 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 31 33 31 39 | e-last.lambda.(it)].6.(#$...1319 |
| 3420 | 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 0)])).(byte-code."\300\301\302\3 |
| 3440 | 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 | 03#\210\304\305\306\"\210\304\30 |
| 3460 | 37 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 | 7\301\"\207".[put.--remove-last. |
| 3480 | 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 66 6f 72 6d 29 20 64 65 66 | edebug-form-spec.(form.form).def |
| 34a0 | 61 6c 69 61 73 20 2d 72 65 6a 65 63 74 2d 6c 61 73 74 20 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 | alias.-reject-last.-remove-last. |
| 34c0 | 2d 2d 72 65 6a 65 63 74 2d 6c 61 73 74 5d 20 34 29 0a 23 40 39 32 20 52 65 6d 6f 76 65 20 61 6c | --reject-last].4).#@92.Remove.al |
| 34e0 | 6c 20 6f 63 63 75 72 65 6e 63 65 73 20 6f 66 20 49 54 45 4d 20 66 72 6f 6d 20 4c 49 53 54 2e 0a | l.occurences.of.ITEM.from.LIST.. |
| 3500 | 0a 43 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 | .Comparison.is.done.with.`equal' |
| 3520 | 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 | ...(fn.ITEM.LIST)..(defalias.'-r |
| 3540 | 65 6d 6f 76 65 2d 69 74 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 | emove-item.#[514."\300.\301.\203 |
| 3560 | 21 00 01 40 5c 32 31 31 06 06 5c 32 33 32 5c 32 30 34 15 00 5c 32 31 31 04 42 5c 32 36 32 04 5c | !..@\211..\232\204..\211.B\262.\ |
| 3580 | 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c | 210\211T\262..A\262.\202..\266.\ |
| 35a0 | 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 31 33 35 | 211\237\207".[nil.0].8.(#$...135 |
| 35c0 | 32 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 27)]).(byte-code."\300\301\302\3 |
| 35e0 | 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 | 03#\300\301\304\303#\300\207".[f |
| 3600 | 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d 69 74 65 6d 20 70 75 72 65 20 74 20 | unction-put.-remove-item.pure.t. |
| 3620 | 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 34 20 41 6e 61 70 68 6f | side-effect-free].5).#@44.Anapho |
| 3640 | 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6b 65 65 70 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c | ric.form.of.`-keep'...(fn.FORM.L |
| 3660 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6b 65 65 70 20 27 28 6d 61 63 72 6f 20 | IST)..(defalias.'--keep.'(macro. |
| 3680 | 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. |
| 36a0 | 43 5c 33 30 34 05 5c 33 30 33 05 06 09 44 43 5c 33 30 35 06 07 5c 33 30 36 06 09 06 0b 45 45 45 | C\304.\303...DC\305..\306....EEE |
| 36c0 | 45 5c 33 30 37 05 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 | E\307.DF\207".[make-symbol."resu |
| 36e0 | 6c 74 22 20 22 6d 61 70 70 65 64 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 21 63 6f | lt"."mapped".let.--each.when.!co |
| 3700 | 6e 73 20 6e 72 65 76 65 72 73 65 5d 20 31 35 20 28 23 24 20 2e 20 31 33 38 38 32 29 5d 29 29 0a | ns.nreverse].15.(#$...13882)])). |
| 3720 | 28 70 75 74 20 27 2d 2d 6b 65 65 70 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 | (put.'--keep.'edebug-form-spec.' |
| 3740 | 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 37 33 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 | (form.form)).#@173.Return.a.new. |
| 3760 | 6c 69 73 74 20 6f 66 20 74 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 20 6f 66 20 61 | list.of.the.non-nil.results.of.a |
| 3780 | 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e | pplying.FN.to.the.items.in.LIST. |
| 37a0 | 0a 0a 49 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 73 65 6c 65 63 74 20 74 68 65 20 6f 72 69 67 | ..If.you.want.to.select.the.orig |
| 37c0 | 69 6e 61 6c 20 69 74 65 6d 73 20 73 61 74 69 73 66 79 69 6e 67 20 61 20 70 72 65 64 69 63 61 74 | inal.items.satisfying.a.predicat |
| 37e0 | 65 20 75 73 65 20 60 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a | e.use.`-filter'...(fn.FN.LIST).. |
| 3800 | 28 64 65 66 61 6c 69 61 73 20 27 2d 6b 65 65 70 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 | (defalias.'-keep.#[514."\300.\30 |
| 3820 | 31 01 5c 32 30 33 5c 22 00 01 40 05 01 21 5c 32 31 31 5c 32 30 33 15 00 5c 32 31 31 05 42 5c 32 | 1.\203\"..@..!\211\203..\211.B\2 |
| 3840 | 36 32 05 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 03 00 5c | 62.\266.\211T\262..A\262.\202..\ |
| 3860 | 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 23 24 20 | 266.\211\237\207".[nil.0].9.(#$. |
| 3880 | 2e 20 31 34 31 36 33 29 5d 29 0a 23 40 34 39 20 52 65 74 75 72 6e 20 61 6c 6c 20 6e 6f 6e 2d 6e | ..14163)]).#@49.Return.all.non-n |
| 38a0 | 69 6c 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f | il.elements.of.LIST...(fn.LIST). |
| 38c0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f 6e 2d 6e 69 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 | .(defalias.'-non-nil.#[257."\300 |
| 38e0 | 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 20 6e 75 6c 6c 5d 20 34 20 28 23 | \301.\"\207".[-remove.null].4.(# |
| 3900 | 24 20 2e 20 31 34 34 38 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 | $...14480)]).(byte-code."\300\30 |
| 3920 | 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c | 1\302\303#\300\301\304\303#\300\ |
| 3940 | 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6e 6f 6e 2d 6e 69 6c 20 70 75 72 65 | 207".[function-put.-non-nil.pure |
| 3960 | 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 31 20 41 6e 61 | .t.side-effect-free].5).#@51.Ana |
| 3980 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a | phoric.form.of.`-map-indexed'... |
| 39a0 | 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 | (fn.FORM.LIST)..(defalias.'--map |
| 39c0 | 2d 69 6e 64 65 78 65 64 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | -indexed.'(macro...#[514."\300\3 |
| 39e0 | 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 06 07 06 06 45 45 5c 33 30 35 04 44 46 5c | 01!\302.C\303.\304....EE\305.DF\ |
| 3a00 | 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 65 74 20 2d | 207".[make-symbol."result".let.- |
| 3a20 | 2d 65 61 63 68 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 65 5d 20 31 30 20 28 23 24 20 2e 20 31 | -each.!cons.nreverse].10.(#$...1 |
| 3a40 | 34 37 31 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 27 65 64 | 4717)])).(put.'--map-indexed.'ed |
| 3a60 | 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 32 | ebug-form-spec.'(form.form)).#@2 |
| 3a80 | 31 31 20 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 | 11.Return.a.new.list.consisting. |
| 3aa0 | 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 28 46 4e 20 69 6e 64 65 78 20 69 74 65 6d 29 | of.the.result.of.(FN.index.item) |
| 3ac0 | 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 0a 0a 49 6e 20 74 68 65 20 | .for.each.item.in.LIST...In.the. |
| 3ae0 | 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2c 20 | anaphoric.form.`--map-indexed',. |
| 3b00 | 74 68 65 20 69 6e 64 65 78 20 69 73 20 65 78 70 6f 73 65 64 20 61 73 20 73 79 6d 62 6f 6c 20 60 | the.index.is.exposed.as.symbol.` |
| 3b20 | 69 74 2d 69 6e 64 65 78 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 65 61 63 68 2d 69 6e 64 | it-index'...See.also:.`-each-ind |
| 3b40 | 65 78 65 64 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 20 | exed'...(fn.FN.LIST)..(defalias. |
| 3b60 | 27 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 01 5c | '-map-indexed.#[514."\300.\301.\ |
| 3b80 | 32 30 33 1d 00 01 40 05 02 02 5c 22 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 | 203...@...\".B\262.\210\211T\262 |
| 3ba0 | 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 37 22 | ..A\262.\202..\266.\211\237\207" |
| 3bc0 | 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 34 39 37 39 29 5d 29 0a 23 40 35 32 20 41 | .[nil.0].9.(#$...14979)]).#@52.A |
| 3be0 | 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2e 0a 0a 28 | naphoric.form.of.`-map-when'...( |
| 3c00 | 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 20 27 2d 2d | fn.PRED.REP.LIST)..(defalias.'-- |
| 3c20 | 6d 61 70 2d 77 68 65 6e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 | map-when.'(macro...#[771."\300\3 |
| 3c40 | 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 5c 33 30 35 06 09 06 09 5c 33 30 36 42 42 | 01!\302.C\303.\304\305....\306BB |
| 3c60 | 42 06 06 45 45 5c 33 30 37 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 | B..EE\307.DF\207".[make-symbol." |
| 3c80 | 72 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 21 63 6f 6e 73 20 69 66 20 28 69 74 29 | result".let.--each.!cons.if.(it) |
| 3ca0 | 20 6e 72 65 76 65 72 73 65 5d 20 31 33 20 28 23 24 20 2e 20 31 35 33 32 37 29 5d 29 29 0a 28 70 | .nreverse].13.(#$...15327)])).(p |
| 3cc0 | 75 74 20 27 2d 2d 6d 61 70 2d 77 68 65 6e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | ut.'--map-when.'edebug-form-spec |
| 3ce0 | 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 36 36 20 52 65 74 75 72 6e | .'(form.form.form)).#@266.Return |
| 3d00 | 20 61 20 6e 65 77 20 6c 69 73 74 20 77 68 65 72 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 | .a.new.list.where.the.elements.i |
| 3d20 | 6e 20 4c 49 53 54 20 74 68 61 74 20 64 6f 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 50 52 45 | n.LIST.that.do.not.match.the.PRE |
| 3d40 | 44 20 66 75 6e 63 74 69 6f 6e 0a 61 72 65 20 75 6e 63 68 61 6e 67 65 64 2c 20 61 6e 64 20 77 68 | D.function.are.unchanged,.and.wh |
| 3d60 | 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 61 74 20 64 6f | ere.the.elements.in.LIST.that.do |
| 3d80 | 20 6d 61 74 63 68 20 74 68 65 20 50 52 45 44 20 66 75 6e 63 74 69 6f 6e 20 61 72 65 20 6d 61 70 | .match.the.PRED.function.are.map |
| 3da0 | 70 65 64 0a 74 68 72 6f 75 67 68 20 74 68 65 20 52 45 50 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 41 | ped.through.the.REP.function...A |
| 3dc0 | 6c 69 61 73 3a 20 60 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 27 0a 0a 53 65 65 20 61 6c 73 6f | lias:.`-replace-where'..See.also |
| 3de0 | 3a 20 60 2d 75 70 64 61 74 65 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 | :.`-update-at'..(fn.PRED.REP.LIS |
| 3e00 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 77 68 65 6e 20 23 5b 37 37 31 20 22 | T)..(defalias.'-map-when.#[771." |
| 3e20 | 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 27 00 01 40 06 06 01 21 5c 32 30 33 16 00 05 01 21 5c | \300.\301.\203'..@...!\203....!\ |
| 3e40 | 32 30 32 17 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 | 202..\211.B\262.\210\211T\262..A |
| 3e60 | 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 |
| 3e80 | 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 35 36 31 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | il.0].9.(#$...15610)]).(byte-cod |
| 3ea0 | 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 |
| 3ec0 | 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 | 4\"\207".[defalias.-replace-wher |
| 3ee0 | 65 20 2d 6d 61 70 2d 77 68 65 6e 20 2d 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 65 20 2d 2d 6d 61 | e.-map-when.--replace-where.--ma |
| 3f00 | 70 2d 77 68 65 6e 5d 20 33 29 0a 23 40 31 34 35 20 52 65 70 6c 61 63 65 20 66 69 72 73 74 20 69 | p-when].3).#@145.Replace.first.i |
| 3f20 | 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 77 69 74 68 | tem.in.LIST.satisfying.PRED.with |
| 3f40 | 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 73 20 69 74 | .result.of.REP.called.on.this.it |
| 3f60 | 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 60 2d 72 65 | em...See.also:.`-map-when',.`-re |
| 3f80 | 70 6c 61 63 65 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 | place-first'..(fn.PRED.REP.LIST) |
| 3fa0 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 66 69 72 73 74 20 23 5b 37 37 31 20 22 5c | ..(defalias.'-map-first.#[771."\ |
| 3fc0 | 33 30 30 01 5c 32 30 33 19 00 03 02 40 21 5c 32 30 34 19 00 01 40 01 42 5c 32 36 32 01 01 41 5c | 300.\203....@!\204...@.B\262..A\ |
| 3fe0 | 32 36 32 02 5c 32 30 32 01 00 01 5c 32 30 33 2b 00 5c 33 30 31 01 5c 32 33 37 04 04 40 21 04 41 | 262.\202...\203+.\301.\237..@!.A |
| 4000 | 42 5c 22 5c 32 30 32 2d 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e | B\"\202-.\211\237\207".[nil.-con |
| 4020 | 63 61 74 5d 20 38 20 28 23 24 20 2e 20 31 36 31 34 35 29 5d 29 0a 23 40 35 33 20 41 6e 61 70 68 | cat].8.(#$...16145)]).#@53.Anaph |
| 4040 | 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 | oric.form.of.`-map-first'...(fn. |
| 4060 | 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 20 27 2d 2d 6d 61 70 | PRED.REP.LIST)..(defalias.'--map |
| 4080 | 2d 66 69 72 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 31 | -first.'(macro...#[771."\300\301 |
| 40a0 | 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 37 22 20 5b 2d 6d | \302.E\301\303\304..F.F\207".[-m |
| 40c0 | 61 70 2d 66 69 72 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 20 28 69 67 6e 6f 72 | ap-first.lambda.(it).(it).(ignor |
| 40e0 | 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 31 36 34 34 33 29 5d 29 29 0a 23 40 31 34 33 20 52 | e.it)].9.(#$...16443)])).#@143.R |
| 4100 | 65 70 6c 61 63 65 20 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 73 61 74 69 73 66 79 | eplace.last.item.in.LIST.satisfy |
| 4120 | 69 6e 67 20 50 52 45 44 20 77 69 74 68 20 72 65 73 75 6c 74 20 6f 66 20 52 45 50 20 63 61 6c 6c | ing.PRED.with.result.of.REP.call |
| 4140 | 65 64 20 6f 6e 20 74 68 69 73 20 69 74 65 6d 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 | ed.on.this.item...See.also:.`-ma |
| 4160 | 70 2d 77 68 65 6e 27 2c 20 60 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 50 52 | p-when',.`-replace-last'..(fn.PR |
| 4180 | 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 6c 61 | ED.REP.LIST)..(defalias.'-map-la |
| 41a0 | 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 5c 33 30 31 04 21 23 5c 32 33 37 5c 32 30 37 22 | st.#[771."\300..\301.!#\237\207" |
| 41c0 | 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 38 20 28 23 24 20 2e 20 31 36 | .[-map-first.reverse].8.(#$...16 |
| 41e0 | 36 33 39 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d | 639)]).#@52.Anaphoric.form.of.`- |
| 4200 | 6d 61 70 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a | map-last'...(fn.PRED.REP.LIST).. |
| 4220 | 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 | (defalias.'--map-last.'(macro... |
| 4240 | 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 5c 33 30 | #[771."\300\301\302.E\301\303\30 |
| 4260 | 34 06 06 46 03 46 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6c 61 6d 62 64 61 20 28 69 | 4..F.F\207".[-map-last.lambda.(i |
| 4280 | 74 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 31 36 38 | t).(it).(ignore.it)].9.(#$...168 |
| 42a0 | 37 36 29 5d 29 29 0a 23 40 31 32 33 20 52 65 70 6c 61 63 65 20 61 6c 6c 20 4f 4c 44 20 69 74 65 | 76)])).#@123.Replace.all.OLD.ite |
| 42c0 | 6d 73 20 69 6e 20 4c 49 53 54 20 77 69 74 68 20 4e 45 57 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 | ms.in.LIST.with.NEW...Elements.a |
| 42e0 | 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 | re.compared.using.`equal'...See. |
| 4300 | 61 6c 73 6f 3a 20 60 2d 72 65 70 6c 61 63 65 2d 61 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 | also:.`-replace-at'..(fn.OLD.NEW |
| 4320 | 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 20 23 5b 37 37 | .LIST)..(defalias.'-replace.#[77 |
| 4340 | 31 20 22 5c 33 30 30 01 5c 33 30 31 01 5c 32 30 33 25 00 01 40 5c 32 31 31 06 07 5c 32 33 32 5c | 1."\300.\301.\203%..@\211..\232\ |
| 4360 | 32 30 33 14 00 05 5c 32 30 32 15 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 | 203...\202..\211.B\262.\210\211T |
| 4380 | 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c | \262..A\262.\202..\266.\211\237\ |
| 43a0 | 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 37 30 36 39 29 5d 29 0a 28 62 | 207".[nil.0].9.(#$...17069)]).(b |
| 43c0 | 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 33 30 30 5c | yte-code."\300\301\302\303#\300\ |
| 43e0 | 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 301\304\303#\300\207".[function- |
| 4400 | 70 75 74 20 2d 72 65 70 6c 61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | put.-replace.pure.t.side-effect- |
| 4420 | 66 72 65 65 5d 20 35 29 0a 23 40 31 33 35 20 52 65 70 6c 61 63 65 20 74 68 65 20 66 69 72 73 74 | free].5).#@135.Replace.the.first |
| 4440 | 20 6f 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 | .occurence.of.OLD.with.NEW.in.LI |
| 4460 | 53 54 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 | ST...Elements.are.compared.using |
| 4480 | 20 60 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 66 69 72 73 74 | .`equal'...See.also:.`-map-first |
| 44a0 | 27 0a 0a 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 | '..(fn.OLD.NEW.LIST)..(defalias. |
| 44c0 | 27 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c | '-replace-first.#[771."\300\301\ |
| 44e0 | 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 | 302\303\304\305..!\306\"\307\310 |
| 4500 | 25 5c 33 30 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 | %\301\302\311\304\305..!\306\"\3 |
| 4520 | 31 32 5c 33 31 30 25 03 23 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6d 61 6b 65 2d | 12\310%.#\207".[-map-first.make- |
| 4540 | 62 79 74 65 2d 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 | byte-code.257."\300.\232\207".vc |
| 4560 | 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 49 54 29 22 20 | oncat.vector.[].3."\n\n(fn.IT)". |
| 4580 | 22 5c 33 30 30 5c 32 30 37 22 20 32 5d 20 31 31 20 28 23 24 20 2e 20 31 37 34 35 35 29 5d 29 0a | "\300\207".2].11.(#$...17455)]). |
| 45a0 | 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 33 30 | (byte-code."\300\301\302\303#\30 |
| 45c0 | 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f | 0\301\304\303#\300\207".[functio |
| 45e0 | 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 20 70 75 72 65 20 74 20 73 69 64 65 | n-put.-replace-first.pure.t.side |
| 4600 | 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 33 33 20 52 65 70 6c 61 63 65 20 74 | -effect-free].5).#@133.Replace.t |
| 4620 | 68 65 20 6c 61 73 74 20 6f 63 63 75 72 65 6e 63 65 20 6f 66 20 4f 4c 44 20 77 69 74 68 20 4e 45 | he.last.occurence.of.OLD.with.NE |
| 4640 | 57 20 69 6e 20 4c 49 53 54 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70 61 72 65 | W.in.LIST...Elements.are.compare |
| 4660 | 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 6d 61 | d.using.`equal'...See.also:.`-ma |
| 4680 | 70 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28 64 65 66 | p-last'..(fn.OLD.NEW.LIST)..(def |
| 46a0 | 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 | alias.'-replace-last.#[771."\300 |
| 46c0 | 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 5c 22 5c 33 30 | \301\302\303\304\305..!\306\"\30 |
| 46e0 | 37 5c 33 31 30 25 5c 33 30 31 5c 33 30 32 5c 33 31 31 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 | 7\310%\301\302\311\304\305..!\30 |
| 4700 | 36 5c 22 5c 33 31 32 5c 33 31 30 25 03 23 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6d | 6\"\312\310%.#\207".[-map-last.m |
| 4720 | 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 | ake-byte-code.257."\300.\232\207 |
| 4740 | 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 49 | ".vconcat.vector.[].3."\n\n(fn.I |
| 4760 | 54 29 22 20 22 5c 33 30 30 5c 32 30 37 22 20 32 5d 20 31 31 20 28 23 24 20 2e 20 31 37 39 34 33 | T)"."\300\207".2].11.(#$...17943 |
| 4780 | 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 |
| 47a0 | 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e | #\300\301\304\303#\300\207".[fun |
| 47c0 | 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 | ction-put.-replace-last.pure.t.s |
| 47e0 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 36 20 41 6e 61 70 68 6f 72 | ide-effect-free].5).#@46.Anaphor |
| 4800 | 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 63 61 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 | ic.form.of.`-mapcat'...(fn.FORM. |
| 4820 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 63 61 74 20 27 28 6d 61 63 | LIST)..(defalias.'--mapcat.'(mac |
| 4840 | 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 04 45 45 5c 32 30 37 | ro...#[514."\300\301\302..EE\207 |
| 4860 | 22 20 5b 61 70 70 6c 79 20 27 61 70 70 65 6e 64 20 2d 2d 6d 61 70 5d 20 37 20 28 23 24 20 2e 20 | ".[apply.'append.--map].7.(#$... |
| 4880 | 31 38 34 32 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 63 61 74 20 27 65 64 65 62 75 67 | 18425)])).(put.'--mapcat.'edebug |
| 48a0 | 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 31 38 20 52 | -form-spec.'(form.form)).#@118.R |
| 48c0 | 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 | eturn.the.concatenation.of.the.r |
| 48e0 | 65 73 75 6c 74 20 6f 66 20 6d 61 70 70 69 6e 67 20 46 4e 20 6f 76 65 72 20 4c 49 53 54 2e 0a 54 | esult.of.mapping.FN.over.LIST..T |
| 4900 | 68 75 73 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 | hus.function.FN.should.return.a. |
| 4920 | 6c 69 73 74 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 | list...(fn.FN.LIST)..(defalias.' |
| 4940 | 2d 6d 61 70 63 61 74 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 | -mapcat.#[514."\300\301\302\303\ |
| 4960 | 33 30 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 | 304\305\306\307..!\310\"\311\312 |
| 4980 | 25 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 61 70 63 61 72 | %.\"\"\207".[apply.append.mapcar |
| 49a0 | 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 21 5c 32 30 37 22 | .make-byte-code.257."\300.!\207" |
| 49c0 | 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 49 54 | .vconcat.vector.[].3."\n\n(fn.IT |
| 49e0 | 29 22 5d 20 31 31 20 28 23 24 20 2e 20 31 38 36 32 33 29 5d 29 0a 23 40 34 33 36 20 54 61 6b 65 | )"].11.(#$...18623)]).#@436.Take |
| 4a00 | 20 61 20 6e 65 73 74 65 64 20 6c 69 73 74 20 4c 20 61 6e 64 20 72 65 74 75 72 6e 20 69 74 73 20 | .a.nested.list.L.and.return.its. |
| 4a20 | 63 6f 6e 74 65 6e 74 73 20 61 73 20 61 20 73 69 6e 67 6c 65 2c 20 66 6c 61 74 20 6c 69 73 74 2e | contents.as.a.single,.flat.list. |
| 4a40 | 0a 0a 4e 6f 74 65 20 74 68 61 74 20 62 65 63 61 75 73 65 20 60 6e 69 6c 27 20 72 65 70 72 65 73 | ..Note.that.because.`nil'.repres |
| 4a60 | 65 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 7a 65 72 6f 20 65 6c 65 6d 65 6e 74 73 20 28 61 6e | ents.a.list.of.zero.elements.(an |
| 4a80 | 0a 65 6d 70 74 79 20 6c 69 73 74 29 2c 20 61 6e 79 20 6d 65 6e 74 69 6f 6e 20 6f 66 20 6e 69 6c | .empty.list),.any.mention.of.nil |
| 4aa0 | 20 69 6e 20 4c 20 77 69 6c 6c 20 64 69 73 61 70 70 65 61 72 20 61 66 74 65 72 0a 66 6c 61 74 74 | .in.L.will.disappear.after.flatt |
| 4ac0 | 65 6e 69 6e 67 2e 20 20 49 66 20 79 6f 75 20 6e 65 65 64 20 74 6f 20 70 72 65 73 65 72 76 65 20 | ening...If.you.need.to.preserve. |
| 4ae0 | 6e 69 6c 73 2c 20 63 6f 6e 73 69 64 65 72 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 0a 6f 72 20 6d | nils,.consider.`-flatten-n'.or.m |
| 4b00 | 61 70 20 74 68 65 6d 20 74 6f 20 73 6f 6d 65 20 75 6e 69 71 75 65 20 73 79 6d 62 6f 6c 20 61 6e | ap.them.to.some.unique.symbol.an |
| 4b20 | 64 20 74 68 65 6e 20 6d 61 70 20 74 68 65 6d 20 62 61 63 6b 2e 0a 0a 43 6f 6e 73 65 73 20 6f 66 | d.then.map.them.back...Conses.of |
| 4b40 | 20 74 77 6f 20 61 74 6f 6d 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 20 22 74 65 72 6d 69 | .two.atoms.are.considered."termi |
| 4b60 | 6e 61 6c 73 22 2c 20 74 68 61 74 20 69 73 2c 20 74 68 65 79 0a 61 72 65 6e 27 74 20 66 6c 61 74 | nals",.that.is,.they.aren't.flat |
| 4b80 | 74 65 6e 65 64 20 66 75 72 74 68 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 | tened.further...See.also:.`-flat |
| 4ba0 | 74 65 6e 2d 6e 27 0a 0a 28 66 6e 20 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 | ten-n'..(fn.L)..(defalias.'-flat |
| 4bc0 | 74 65 6e 20 23 5b 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 33 10 00 5c 32 31 31 41 3c 5c 32 30 33 | ten.#[257."\211<\203..\211A<\203 |
| 4be0 | 10 00 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 5c 32 31 31 43 5c 32 30 37 22 20 5b 2d 6d 61 | ..\300\301.\"\207\211C\207".[-ma |
| 4c00 | 70 63 61 74 20 2d 66 6c 61 74 74 65 6e 5d 20 34 20 28 23 24 20 2e 20 31 38 39 34 30 29 5d 29 0a | pcat.-flatten].4.(#$...18940)]). |
| 4c20 | 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 33 30 | (byte-code."\300\301\302\303#\30 |
| 4c40 | 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f | 0\301\304\303#\300\207".[functio |
| 4c60 | 6e 2d 70 75 74 20 2d 66 6c 61 74 74 65 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 | n-put.-flatten.pure.t.side-effec |
| 4c80 | 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f | t-free].5).#@52.Anaphoric.versio |
| 4ca0 | 6e 20 6f 66 20 60 2d 69 74 65 72 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 | n.of.`-iterate'...(fn.FORM.INIT. |
| 4cc0 | 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 69 74 65 72 61 74 65 20 27 28 6d 61 63 72 6f | N)..(defalias.'--iterate.'(macro |
| 4ce0 | 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 | ...#[771."\300\301\302.E..F\207" |
| 4d00 | 20 5b 2d 69 74 65 72 61 74 65 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 | .[-iterate.lambda.(it)].7.(#$... |
| 4d20 | 31 39 36 30 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 69 74 65 72 61 74 65 20 27 65 64 65 62 75 | 19600)])).(put.'--iterate.'edebu |
| 4d40 | 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 | g-form-spec.'(form.form.form)).# |
| 4d60 | 40 37 35 20 46 6c 61 74 74 65 6e 20 4e 55 4d 20 6c 65 76 65 6c 73 20 6f 66 20 61 20 6e 65 73 74 | @75.Flatten.NUM.levels.of.a.nest |
| 4d80 | 65 64 20 4c 49 53 54 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 27 0a 0a | ed.LIST...See.also:.`-flatten'.. |
| 4da0 | 28 66 6e 20 4e 55 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 74 | (fn.NUM.LIST)..(defalias.'-flatt |
| 4dc0 | 65 6e 2d 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 05 54 23 21 5c 32 30 | en-n.#[514."\300\301\302..T#!\20 |
| 4de0 | 37 22 20 5b 2d 6c 61 73 74 2d 69 74 65 6d 20 2d 69 74 65 72 61 74 65 20 23 5b 32 35 37 20 22 5c | 7".[-last-item.-iterate.#[257."\ |
| 4e00 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 | 300\301\302\303.\"\"\207".[apply |
| 4e20 | 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 21 5c 32 30 37 | .append.mapcar.#[257."\300.!\207 |
| 4e40 | 22 20 5b 2d 6c 69 73 74 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 36 20 22 5c | ".[-list].3."\n\n(fn.IT)"]].6."\ |
| 4e60 | 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 37 20 28 23 24 20 2e 20 31 39 38 31 32 29 5d 29 0a 28 | n\n(fn.IT)"]].7.(#$...19812)]).( |
| 4e80 | 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 33 30 30 | byte-code."\300\301\302\303#\300 |
| 4ea0 | 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e | \301\304\303#\300\207".[function |
| 4ec0 | 2d 70 75 74 20 2d 66 6c 61 74 74 65 6e 2d 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 | -put.-flatten-n.pure.t.side-effe |
| 4ee0 | 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 39 39 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 | ct-free].5).#@99.Return.a.new.li |
| 4f00 | 73 74 20 77 69 74 68 20 74 68 65 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 | st.with.the.concatenation.of.the |
| 4f20 | 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 73 75 70 70 6c 69 65 64 20 4c 49 53 54 53 2e | .elements.in.the.supplied.LISTS. |
| 4f40 | 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 2d | ..(fn.&rest.LISTS)..(defalias.'- |
| 4f60 | 63 6f 6e 63 61 74 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 | concat.#[128."\300\301.\"\207".[ |
| 4f80 | 61 70 70 6c 79 20 61 70 70 65 6e 64 5d 20 34 20 28 23 24 20 2e 20 32 30 32 30 39 29 5d 29 0a 28 | apply.append].4.(#$...20209)]).( |
| 4fa0 | 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 33 30 30 | byte-code."\300\301\302\303#\300 |
| 4fc0 | 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32 | \301\304\303#\305\306\307\310#\2 |
| 4fe0 | 30 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 | 07".[function-put.-concat.pure.t |
| 5000 | 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 63 6f 70 79 | .side-effect-free.defalias.-copy |
| 5020 | 20 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 | .copy-sequence."Create.a.shallow |
| 5040 | 20 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 36 29 | .copy.of.LIST.\n\n(fn.LIST)"].6) |
| 5060 | 0a 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 | .#@323.Splice.lists.generated.by |
| 5080 | 20 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 | .FUN.in.place.of.elements.matchi |
| 50a0 | 6e 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 | ng.PRED.in.LIST...FUN.takes.the. |
| 50c0 | 65 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 | element.matching.PRED.as.input.. |
| 50e0 | 0a 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 | .This.function.can.be.used.as.re |
| 5100 | 70 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 | placement.for.`,@'.in.case.you.n |
| 5120 | 65 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 | eed.to.splice.several.lists.at.m |
| 5140 | 61 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 | arked.positions.(for.example.wit |
| 5160 | 68 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 | h.keywords)...See.also:.`-splice |
| 5180 | 2d 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 | -list',.`-insert-at'..(fn.PRED.F |
| 51a0 | 55 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 | UN.LIST)..(defalias.'-splice.#[7 |
| 51c0 | 37 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 | 71."\300.\301.\203C..@...!\2032. |
| 51e0 | 05 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 | ..!\211\301.\203-..@\211..B\262. |
| 5200 | 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 15 00 5c 32 36 36 03 | \210\211T\262..A\262.\202..\266. |
| 5220 | 5c 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 | \2027.\211.B\262.\210\211T\262.. |
| 5240 | 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 5b | A\262.\202..\266.\211\237\207".[ |
| 5260 | 6e 69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e 20 32 30 35 38 33 29 5d 29 0a 23 40 35 31 20 41 6e | nil.0].13.(#$...20583)]).#@51.An |
| 5280 | 61 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 | aphoric.form.of.`-splice'...(fn. |
| 52a0 | 50 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 | PRED.FORM.LIST)..(defalias.'--sp |
| 52c0 | 6c 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 | lice.'(macro...#[771."\300\301\3 |
| 52e0 | 30 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 | 02.E\301\303.E.F\207".[-splice.l |
| 5300 | 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 32 31 31 31 38 29 5d | ambda.(it).(it)].8.(#$...21118)] |
| 5320 | 29 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 | )).#@121.Splice.NEW-LIST.in.plac |
| 5340 | 65 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 | e.of.elements.matching.PRED.in.L |
| 5360 | 49 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 | IST...See.also:.`-splice',.`-ins |
| 5380 | 65 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 | ert-at'..(fn.PRED.NEW-LIST.LIST) |
| 53a0 | 1f 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 | ..(defalias.'-splice-list.#[771. |
| 53c0 | 22 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 | "\300.\301\302\303\304\305..!\30 |
| 53e0 | 36 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 | 6\"\307\310%.#\207".[-splice.mak |
| 5400 | 65 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 | e-byte-code.257."\300\207".vconc |
| 5420 | 61 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 | at.vector.[].2."\n\n(fn._)"].11. |
| 5440 | 28 23 24 20 2e 20 32 31 32 38 39 29 5d 29 0a 23 40 36 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f | (#$...21289)]).#@60.Anaphoric.fo |
| 5460 | 72 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 | rm.of.`-splice-list'...(fn.PRED. |
| 5480 | 4e 45 57 2d 4c 49 53 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c | NEW-LIST.LIST)..(defalias.'--spl |
| 54a0 | 69 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 | ice-list.'(macro...#[771."\300\3 |
| 54c0 | 30 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 | 01\302.E..F\207".[-splice-list.l |
| 54e0 | 61 6d 62 64 61 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 32 31 35 38 38 29 5d 29 29 0a 23 40 | ambda.(it)].7.(#$...21588)])).#@ |
| 5500 | 32 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 | 204.Make.a.new.list.from.the.ele |
| 5520 | 6d 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 | ments.of.ARGS...The.last.2.membe |
| 5540 | 72 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 | rs.of.ARGS.are.used.as.the.final |
| 5560 | 20 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 | .cons.of.the.result.so.if.the.fi |
| 5580 | 6e 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 | nal.member.of.ARGS.is.not.a.list |
| 55a0 | 20 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 | .the.result.is.a.dotted.list...( |
| 55c0 | 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 63 6f 6e 73 | fn.&rest.ARGS)..(defalias.'-cons |
| 55e0 | 2a 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 | *.#[128."\300\301.\"\207".[-redu |
| 5600 | 63 65 2d 72 20 63 6f 6e 73 5d 20 34 20 28 23 24 20 2e 20 32 31 37 36 34 29 5d 29 0a 28 62 79 74 | ce-r.cons].4.(#$...21764)]).(byt |
| 5620 | 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 33 30 30 5c 33 30 | e-code."\300\301\302\303#\300\30 |
| 5640 | 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 | 1\304\303#\300\207".[function-pu |
| 5660 | 74 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 | t.-cons*.pure.t.side-effect-free |
| 5680 | 5d 20 35 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 | ].5).#@182.Append.ELEM.to.the.en |
| 56a0 | 64 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 | d.of.the.list...This.is.like.`co |
| 56c0 | 6e 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 | ns',.but.operates.on.the.end.of. |
| 56e0 | 6c 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 | list...If.ELEMENTS.is.non.nil,.a |
| 5700 | 70 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 | ppend.these.to.the.list.as.well. |
| 5720 | 0a 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 | ..(fn.LIST.ELEM.&rest.ELEMENTS). |
| 5740 | 0a 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 | .(defalias.'-snoc.#[642."\300..C |
| 5760 | 03 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 32 31 35 35 29 | .#\207".[-concat].7.(#$...22155) |
| 5780 | 5d 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 | ]).#@45.Anaphoric.form.of.`-firs |
| 57a0 | 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 6c 69 61 73 20 27 | t'...(fn.FORM.LIST)..(defalias.' |
| 57c0 | 2d 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 | --first.'(macro...#[514."\300\30 |
| 57e0 | 31 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 | 1!\302.C\303.\304.D\305..\306..\ |
| 5800 | 33 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 | 307BBEF.F\207".[make-symbol."nee |
| 5820 | 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 77 68 65 6e 20 73 | dle".let.--each-while.not.when.s |
| 5840 | 65 74 71 20 28 69 74 29 5d 20 31 33 20 28 23 24 20 2e 20 32 32 34 30 38 29 5d 29 29 0a 28 70 75 | etq.(it)].13.(#$...22408)])).(pu |
| 5860 | 74 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 | t.'--first.'edebug-form-spec.'(f |
| 5880 | 6f 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 | orm.form)).#@163.Return.the.firs |
| 58a0 | 74 20 78 20 69 6e 20 4c 49 53 54 20 77 68 65 72 65 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f | t.x.in.LIST.where.(PRED.x).is.no |
| 58c0 | 6e 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 | n-nil,.else.nil...To.get.the.fir |
| 58e0 | 73 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 | st.item.in.the.list.no.questions |
| 5900 | 20 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 | .asked,.use.`car'...Alias:.`-fin |
| 5920 | 64 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 | d'..(fn.PRED.LIST)..(defalias.'- |
| 5940 | 66 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 | first.#[514."\300.\301\302.\203. |
| 5960 | 00 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 | ..\203...@.\203..\300\262.\202\" |
| 5980 | 00 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 | ....!\203\".\211\262.\210\211T\2 |
| 59a0 | 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 31 31 5c 32 30 37 22 20 5b | 62..A\262.\202..\266.\211\207".[ |
| 59c0 | 6e 69 6c 20 74 20 30 5d 20 39 20 28 23 24 20 2e 20 32 32 36 37 33 29 5d 29 0a 28 62 79 74 65 2d | nil.t.0].9.(#$...22673)]).(byte- |
| 59e0 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 | code."\300\301\302\"\210\300\303 |
| 5a00 | 5c 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 | \304\"\207".[defalias.-find.-fir |
| 5a20 | 73 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 | st.--find.--first].3).#@44.Anaph |
| 5a40 | 6f 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 | oric.form.of.`-some'...(fn.FORM. |
| 5a60 | 4c 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 | LIST)..(defalias.'--some.'(macro |
| 5a80 | 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 | ...#[514."\300\301!\302.C\303.\3 |
| 5aa0 | 30 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 | 04.D\305....EF.F\207".[make-symb |
| 5ac0 | 6f 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 | ol."needle".let.--each-while.not |
| 5ae0 | 20 73 65 74 71 5d 20 31 31 20 28 23 24 20 2e 20 32 33 30 39 39 29 5d 29 29 0a 28 70 75 74 20 27 | .setq].11.(#$...23099)])).(put.' |
| 5b00 | 2d 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 | --some.'edebug-form-spec.'(form. |
| 5b20 | 66 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 | form)).#@109.Return.(PRED.x).for |
| 5b40 | 20 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 | .the.first.LIST.item.where.(PRED |
| 5b60 | 20 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 | .x).is.non-nil,.else.nil...Alias |
| 5b80 | 3a 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 | :.`-any'..(fn.PRED.LIST)..(defal |
| 5ba0 | 69 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 | ias.'-some.#[514."\300.\301\302. |
| 5bc0 | 5c 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 | \203*..\203*..@.\203..\300\262.\ |
| 5be0 | 32 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 | 202.....!\262.\210\211T\262..A\2 |
| 5c00 | 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 69 6c 20 74 20 30 | 62.\202..\266.\211\207".[nil.t.0 |
| 5c20 | 5d 20 39 20 28 23 24 20 2e 20 32 33 33 34 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].9.(#$...23341)]).(byte-code."\ |
| 5c40 | 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 34 5c 22 5c | 300\301\302\"\210\300\303\304\"\ |
| 5c60 | 32 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 | 207".[defalias.-any.-some.--any. |
| 5c80 | 2d 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 | --some].3).#@44.Anaphoric.form.o |
| 5ca0 | 66 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 | f.`-last'...(fn.FORM.LIST)..(def |
| 5cc0 | 61 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 | alias.'--last.'(macro...#[514."\ |
| 5ce0 | 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 06 07 5c 33 30 35 06 07 5c | 300\301!\302.C\303.\304..\305..\ |
| 5d00 | 33 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 | 306BBEE.F\207".[make-symbol."nee |
| 5d20 | 64 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 | dle".let.--each.when.setq.(it)]. |
| 5d40 | 31 32 20 28 23 24 20 2e 20 32 33 36 39 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6c 61 73 74 20 | 12.(#$...23696)])).(put.'--last. |
| 5d60 | 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)). |
| 5d80 | 23 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 | #@80.Return.the.last.x.in.LIST.w |
| 5da0 | 68 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 | here.(PRED.x).is.non-nil,.else.n |
| 5dc0 | 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 6c 69 61 73 20 27 | il...(fn.PRED.LIST)..(defalias.' |
| 5de0 | 2d 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 | -last.#[514."\300.\301.\203...@. |
| 5e00 | 01 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 | .!\203..\211\262.\210\211T\262.. |
| 5e20 | 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 | A\262.\202..\266.\211\207".[nil. |
| 5e40 | 30 5d 20 38 20 28 23 24 20 2e 20 32 33 39 34 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | 0].8.(#$...23941)]).(byte-code." |
| 5e60 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 | \300\301\302\303#\210\304\301\30 |
| 5e80 | 35 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 | 5\306#\210\304\301\307\310#\210\ |
| 5ea0 | 33 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 | 300\311\312\313#\210\300\314\315 |
| 5ec0 | 5c 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 | \316#\207".[defalias.-first-item |
| 5ee0 | 20 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 | .car."Return.the.first.item.of.L |
| 5f00 | 49 53 54 2c 20 6f 72 20 6e 69 6c 20 6f 6e 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 5c 6e 5c | IST,.or.nil.on.an.empty.list.\n\ |
| 5f20 | 6e 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 | nSee.also:.`-second-item',.`-las |
| 5f40 | 74 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 | t-item'.\n\n(fn.LIST)".put.byte- |
| 5f60 | 6f 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 | opcode.byte-car.byte-compile.byt |
| 5f80 | 65 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 | e-compile-one-arg.-second-item.c |
| 5fa0 | 61 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 | adr."Return.the.second.item.of.L |
| 5fc0 | 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 |
| 5fe0 | 2e 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 | .\n\nSee.also:.`-third-item'.\n\ |
| 6000 | 6e 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 | n(fn.LIST)".-third-item.caddr."R |
| 6020 | 65 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 | eturn.the.third.item.of.LIST,.or |
| 6040 | 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 5c 6e 5c 6e 53 65 | .nil.if.LIST.is.too.short.\n\nSe |
| 6060 | 65 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 | e.also:.`-fourth-item'.\n\n(fn.L |
| 6080 | 49 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 | IST)"].4).#@99.Return.the.fourth |
| 60a0 | 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 | .item.of.LIST,.or.nil.if.LIST.is |
| 60c0 | 20 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 | .too.short...See.also:.`-fifth-i |
| 60e0 | 74 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 | tem'...(fn.LIST)..(defalias.'-fo |
| 6100 | 75 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 | urth-item.#[257."\211AAA@\207".[ |
| 6120 | 5d 20 32 20 28 23 24 20 2e 20 32 34 37 31 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].2.(#$...24719)]).(byte-code."\ |
| 6140 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 | 300\301\302\303#\300\301\304\303 |
| 6160 | 23 5c 33 30 30 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 | #\300\207".[function-put.-fourth |
| 6180 | 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 | -item.pure.t.side-effect-free].5 |
| 61a0 | 29 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 | ).#@97.Return.the.fifth.item.of. |
| 61c0 | 4c 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 | LIST,.or.nil.if.LIST.is.too.shor |
| 61e0 | 74 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 | t...See.also:.`-last-item'...(fn |
| 6200 | 20 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 | .LIST)..(defalias.'-fifth-item.# |
| 6220 | 5b 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 | [257."\211AAAA@\207".[].2.(#$... |
| 6240 | 32 34 39 39 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 30 | 24999)]).(byte-code."\300\301\30 |
| 6260 | 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 | 2\303#\300\301\304\303#\300\207" |
| 6280 | 20 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 | .[function-put.-fifth-item.pure. |
| 62a0 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 37 20 52 65 74 75 | t.side-effect-free].5).#@67.Retu |
| 62c0 | 72 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 | rn.the.last.item.of.LIST,.or.nil |
| 62e0 | 20 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 | .on.an.empty.list...(fn.LIST)..( |
| 6300 | 64 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 | defalias.'-last-item.#[257."\300 |
| 6320 | 01 21 40 5c 32 30 37 22 20 5b 6c 61 73 74 5d 20 33 20 28 23 24 20 2e 20 32 35 32 37 36 29 5d 29 | .!@\207".[last].3.(#$...25276)]) |
| 6340 | 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 33 | .(byte-code."\300\301\302\303#\3 |
| 6360 | 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 | 00\301\304\303#\300\207".[functi |
| 6380 | 6f 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 | on-put.-last-item.pure.t.side-ef |
| 63a0 | 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 | fect-free].5).#@68.Return.a.list |
| 63c0 | 20 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 | .of.all.items.in.list.except.for |
| 63e0 | 20 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 | .the.last...(fn.LIST)..(defalias |
| 6400 | 20 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 | .'-butlast.#[257."\300.!\207".[b |
| 6420 | 75 74 6c 61 73 74 5d 20 33 20 28 23 24 20 2e 20 32 35 35 32 33 29 5d 29 0a 28 62 79 74 65 2d 63 | utlast].3.(#$...25523)]).(byte-c |
| 6440 | 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 | ode."\300\301\302\303#\300\301\3 |
| 6460 | 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d | 04\303#\300\207".[function-put.- |
| 6480 | 62 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 | butlast.pure.t.side-effect-free] |
| 64a0 | 20 35 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 | .5).#@45.Anaphoric.form.of.`-cou |
| 64c0 | 6e 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 | nt'...(fn.PRED.LIST)..(defalias. |
| 64e0 | 27 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 | '--count.'(macro...#[514."\300\3 |
| 6500 | 30 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 | 01!\302.\303BC\304.\305..\306..\ |
| 6520 | 33 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 | 307..DEEE.F\207".[make-symbol."r |
| 6540 | 65 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 | esult".let.(0).--each.when.setq. |
| 6560 | 31 2b 5d 20 31 33 20 28 23 24 20 2e 20 32 35 37 36 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 63 | 1+].13.(#$...25769)])).(put.'--c |
| 6580 | 6f 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 | ount.'edebug-form-spec.'(form.fo |
| 65a0 | 72 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 | rm)).#@82.Counts.the.number.of.i |
| 65c0 | 74 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 | tems.in.LIST.where.(PRED.item).i |
| 65e0 | 73 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 | s.non-nil...(fn.PRED.LIST)..(def |
| 6600 | 61 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 | alias.'-count.#[514."\300.\300.\ |
| 6620 | 32 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 | 203...@..!\203...T\262.\210\211T |
| 6640 | 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 30 37 22 | \262..A\262.\202..\266.\211\207" |
| 6660 | 20 5b 30 5d 20 38 20 28 23 24 20 2e 20 32 36 30 32 36 29 5d 29 0a 23 40 31 32 20 0a 0a 28 66 6e | .[0].8.(#$...26026)]).#@12...(fn |
| 6680 | 20 56 41 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 23 5b | .VAL)..(defalias.'---truthy\?.#[ |
| 66a0 | 32 35 37 20 22 5c 32 31 31 3f 3f 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 32 36 32 33 | 257."\211??\207".[].2.(#$...2623 |
| 66c0 | 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 | 5)]).(byte-code."\300\301\302\30 |
| 66e0 | 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 | 3#\300\301\304\303#\300\207".[fu |
| 6700 | 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 70 75 72 65 20 74 20 73 69 | nction-put.---truthy\?.pure.t.si |
| 6720 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 | de-effect-free].5).#@44.Anaphori |
| 6740 | 63 20 66 6f 72 6d 20 6f 66 20 60 2d 61 6e 79 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 | c.form.of.`-any?'...(fn.FORM.LIS |
| 6760 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6e 79 5c 3f 20 27 28 6d 61 63 72 6f 20 2e | T)..(defalias.'--any\?.'(macro.. |
| 6780 | 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 45 44 5c 32 30 37 22 20 5b 2d 2d 2d 74 72 | .#[514."\300\301..ED\207".[---tr |
| 67a0 | 75 74 68 79 5c 3f 20 2d 2d 73 6f 6d 65 5d 20 36 20 28 23 24 20 2e 20 32 36 34 32 34 29 5d 29 29 | uthy\?.--some].6.(#$...26424)])) |
| 67c0 | 0a 28 70 75 74 20 27 2d 2d 61 6e 79 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | .(put.'--any\?.'edebug-form-spec |
| 67e0 | 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 36 20 52 65 74 75 72 6e 20 74 20 69 66 | .'(form.form)).#@116.Return.t.if |
| 6800 | 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6e 79 20 78 20 69 | .(PRED.x).is.non-nil.for.any.x.i |
| 6820 | 6e 20 4c 49 53 54 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 6e 79 2d | n.LIST,.else.nil...Alias:.`-any- |
| 6840 | 70 27 2c 20 60 2d 73 6f 6d 65 3f 27 2c 20 60 2d 73 6f 6d 65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 | p',.`-some?',.`-some-p'..(fn.PRE |
| 6860 | 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6e 79 5c 3f 20 23 5b 35 31 34 | D.LIST)..(defalias.'-any\?.#[514 |
| 6880 | 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 32 5c 33 30 33 02 5c 32 30 33 2b 00 01 5c 32 30 33 2b | ."\300\301.\302\303.\203+..\203+ |
| 68a0 | 00 02 40 04 5c 32 30 33 19 00 5c 33 30 31 5c 32 36 32 03 5c 32 30 32 1f 00 06 07 01 21 5c 32 36 | ..@.\203..\301\262.\202.....!\26 |
| 68c0 | 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 05 00 5c 32 36 | 2.\210\211T\262..A\262.\202..\26 |
| 68e0 | 36 03 5c 32 31 31 5c 32 36 32 01 21 5c 32 30 37 22 20 5b 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 6e | 6.\211\262.!\207".[---truthy\?.n |
| 6900 | 69 6c 20 74 20 30 5d 20 31 30 20 28 23 24 20 2e 20 32 36 36 31 33 29 5d 29 0a 28 62 79 74 65 2d | il.t.0].10.(#$...26613)]).(byte- |
| 6920 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 | code."\300\301\302\"\210\300\303 |
| 6940 | 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 | \304\"\210\300\305\302\"\210\300 |
| 6960 | 5c 33 30 36 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 37 5c 33 30 32 5c 22 5c 32 31 30 | \306\304\"\210\300\307\302\"\210 |
| 6980 | 5c 33 30 30 5c 33 31 30 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 | \300\310\304\"\207".[defalias.-s |
| 69a0 | 6f 6d 65 5c 3f 20 2d 61 6e 79 5c 3f 20 2d 2d 73 6f 6d 65 5c 3f 20 2d 2d 61 6e 79 5c 3f 20 2d 61 | ome\?.-any\?.--some\?.--any\?.-a |
| 69c0 | 6e 79 2d 70 20 2d 2d 61 6e 79 2d 70 20 2d 73 6f 6d 65 2d 70 20 2d 2d 73 6f 6d 65 2d 70 5d 20 33 | ny-p.--any-p.-some-p.--some-p].3 |
| 69e0 | 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 61 6c 6c 3f 27 | ).#@44.Anaphoric.form.of.`-all?' |
| 6a00 | 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d | ...(fn.FORM.LIST)..(defalias.'-- |
| 6a20 | 61 6c 6c 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 | all\?.'(macro...#[514."\300\301! |
| 6a40 | 5c 33 30 32 01 5c 33 30 33 42 43 5c 33 30 34 04 04 5c 33 30 35 06 06 06 09 45 46 5c 33 30 36 04 | \302.\303BC\304..\305....EF\306. |
| 6a60 | 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 61 6c 6c 22 20 6c 65 74 20 28 | DF\207".[make-symbol."all".let.( |
| 6a80 | 74 29 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 73 65 74 71 20 2d 2d 2d 74 72 75 74 68 79 5c 3f | t).--each-while.setq.---truthy\? |
| 6aa0 | 5d 20 31 31 20 28 23 24 20 2e 20 32 37 31 31 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6c 6c | ].11.(#$...27111)])).(put.'--all |
| 6ac0 | 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d | \?.'edebug-form-spec.'(form.form |
| 6ae0 | 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 78 29 20 69 73 | )).#@118.Return.t.if.(PRED.x).is |
| 6b00 | 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 78 20 69 6e 20 4c 49 53 54 2c 20 65 6c 73 65 | .non-nil.for.all.x.in.LIST,.else |
| 6b20 | 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 6c 6c 2d 70 27 2c 20 60 2d 65 76 65 72 79 3f | .nil...Alias:.`-all-p',.`-every? |
| 6b40 | 27 2c 20 60 2d 65 76 65 72 79 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 | ',.`-every-p'..(fn.PRED.LIST)..( |
| 6b60 | 64 65 66 61 6c 69 61 73 20 27 2d 61 6c 6c 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 | defalias.'-all\?.#[514."\300.\30 |
| 6b80 | 30 5c 33 30 31 02 5c 32 30 33 2a 00 01 5c 32 30 33 2a 00 02 40 04 5c 32 30 34 18 00 5c 33 30 32 | 0\301.\203*..\203*..@.\204..\302 |
| 6ba0 | 5c 32 36 32 03 5c 32 30 32 1e 00 06 06 01 21 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 | \262.\202.....!\262.\210\211T\26 |
| 6bc0 | 32 01 02 41 5c 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 33 30 33 01 21 5c 32 30 37 22 20 | 2..A\262.\202..\266.\303.!\207". |
| 6be0 | 5b 74 20 30 20 6e 69 6c 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 39 20 28 23 24 20 2e 20 32 37 | [t.0.nil.---truthy\?].9.(#$...27 |
| 6c00 | 33 36 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 30 32 5c | 369)]).(byte-code."\300\301\302\ |
| 6c20 | 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 30 35 5c | "\210\300\303\304\"\210\300\305\ |
| 6c40 | 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 30 30 5c | 302\"\210\300\306\304\"\210\300\ |
| 6c60 | 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 30 37 22 | 307\302\"\210\300\310\304\"\207" |
| 6c80 | 20 5b 64 65 66 61 6c 69 61 73 20 2d 65 76 65 72 79 5c 3f 20 2d 61 6c 6c 5c 3f 20 2d 2d 65 76 65 | .[defalias.-every\?.-all\?.--eve |
| 6ca0 | 72 79 5c 3f 20 2d 2d 61 6c 6c 5c 3f 20 2d 61 6c 6c 2d 70 20 2d 2d 61 6c 6c 2d 70 20 2d 65 76 65 | ry\?.--all\?.-all-p.--all-p.-eve |
| 6cc0 | 72 79 2d 70 20 2d 2d 65 76 65 72 79 2d 70 5d 20 33 29 0a 23 40 34 35 20 41 6e 61 70 68 6f 72 69 | ry-p.--every-p].3).#@45.Anaphori |
| 6ce0 | 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6e 6f 6e 65 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 | c.form.of.`-none?'...(fn.FORM.LI |
| 6d00 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6e 6f 6e 65 5c 3f 20 27 28 6d 61 63 72 6f | ST)..(defalias.'--none\?.'(macro |
| 6d20 | 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 44 02 45 5c 32 30 37 22 20 5b 2d 2d 61 | ...#[514."\300\301.D.E\207".[--a |
| 6d40 | 6c 6c 5c 3f 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 32 37 38 36 34 29 5d 29 29 0a 28 70 75 74 | ll\?.not].5.(#$...27864)])).(put |
| 6d60 | 20 27 2d 2d 6e 6f 6e 65 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 | .'--none\?.'edebug-form-spec.'(f |
| 6d80 | 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 32 20 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 | orm.form)).#@92.Return.t.if.(PRE |
| 6da0 | 44 20 78 29 20 69 73 20 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 78 20 69 6e 20 4c 49 53 54 2c 20 65 | D.x).is.nil.for.all.x.in.LIST,.e |
| 6dc0 | 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 6e 6f 6e 65 2d 70 27 0a 0a 28 66 6e 20 | lse.nil...Alias:.`-none-p'..(fn. |
| 6de0 | 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f 6e 65 5c 3f 20 23 | PRED.LIST)..(defalias.'-none\?.# |
| 6e00 | 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 2b 00 01 5c 32 30 33 2b | [514."\300.\300\301.\203+..\203+ |
| 6e20 | 00 02 40 04 5c 32 30 34 18 00 5c 33 30 32 5c 32 36 32 03 5c 32 30 32 1f 00 06 06 01 21 3f 5c 32 | ..@.\204..\302\262.\202.....!?\2 |
| 6e40 | 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 32 | 62.\210\211T\262..A\262.\202..\2 |
| 6e60 | 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 68 | 66.\303.!\207".[t.0.nil.---truth |
| 6e80 | 79 5c 3f 5d 20 39 20 28 23 24 20 2e 20 32 38 30 34 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | y\?].9.(#$...28048)]).(byte-code |
| 6ea0 | 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 34 | ."\300\301\302\"\210\300\303\304 |
| 6ec0 | 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 6e 6f 6e 65 2d 70 20 2d 6e 6f 6e 65 5c | \"\207".[defalias.-none-p.-none\ |
| 6ee0 | 3f 20 2d 2d 6e 6f 6e 65 2d 70 20 2d 2d 6e 6f 6e 65 5c 3f 5d 20 33 29 0a 23 40 35 30 20 41 6e 61 | ?.--none-p.--none\?].3).#@50.Ana |
| 6f00 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65 3f 27 2e 0a 0a 28 | phoric.form.of.`-only-some?'...( |
| 6f20 | 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6f 6e 6c 79 | fn.FORM.LIST)..(defalias.'--only |
| 6f40 | 2d 73 6f 6d 65 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | -some\?.'(macro...#[514."\300\30 |
| 6f60 | 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 02 44 5c 33 30 34 05 5c 33 30 35 5c 33 30 36 06 | 1!\300\302!\303..D\304.\305\306. |
| 6f80 | 07 06 07 45 44 5c 33 30 37 06 09 5c 33 31 30 06 09 5c 33 31 31 42 42 5c 33 31 30 06 09 5c 33 31 | ...ED\307..\310..\311BB\310..\31 |
| 6fa0 | 32 42 42 46 46 5c 33 31 33 5c 33 30 36 06 06 06 06 45 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d | 2BBFF\313\306....EDF\207".[make- |
| 6fc0 | 73 79 6d 62 6f 6c 20 22 79 65 73 22 20 22 6e 6f 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 | symbol."yes"."no".let.--each-whi |
| 6fe0 | 6c 65 20 6e 6f 74 20 61 6e 64 20 69 66 20 73 65 74 71 20 28 74 29 20 28 74 29 20 2d 2d 2d 74 72 | le.not.and.if.setq.(t).(t).---tr |
| 7000 | 75 74 68 79 5c 3f 5d 20 31 35 20 28 23 24 20 2e 20 32 38 34 31 33 29 5d 29 29 0a 28 70 75 74 20 | uthy\?].15.(#$...28413)])).(put. |
| 7020 | 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | '--only-some\?.'edebug-form-spec |
| 7040 | 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 34 30 20 52 65 74 75 72 6e 20 60 74 60 20 | .'(form.form)).#@240.Return.`t`. |
| 7060 | 69 66 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 20 6d 61 74 | if.at.least.one.item.of.LIST.mat |
| 7080 | 63 68 65 73 20 50 52 45 44 20 61 6e 64 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d 20 | ches.PRED.and.at.least.one.item. |
| 70a0 | 6f 66 20 4c 49 53 54 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 50 52 45 44 2e 0a 52 65 74 | of.LIST.does.not.match.PRED..Ret |
| 70c0 | 75 72 6e 20 60 6e 69 6c 60 20 62 6f 74 68 20 69 66 20 61 6c 6c 20 69 74 65 6d 73 20 6d 61 74 63 | urn.`nil`.both.if.all.items.matc |
| 70e0 | 68 20 74 68 65 20 70 72 65 64 69 63 61 74 65 20 6f 72 20 69 66 20 6e 6f 6e 65 20 6f 66 20 74 68 | h.the.predicate.or.if.none.of.th |
| 7100 | 65 20 69 74 65 6d 73 20 6d 61 74 63 68 20 74 68 65 20 70 72 65 64 69 63 61 74 65 2e 0a 0a 41 6c | e.items.match.the.predicate...Al |
| 7120 | 69 61 73 3a 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 | ias:.`-only-some-p'..(fn.PRED.LI |
| 7140 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 23 5b 35 | ST)..(defalias.'-only-some\?.#[5 |
| 7160 | 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 33 30 31 5c 33 30 32 02 5c 32 30 33 39 00 01 5c 32 30 | 14."\300\211.\301\302.\2039..\20 |
| 7180 | 33 39 00 02 40 05 5c 32 30 33 1d 00 04 5c 32 30 33 1d 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 | 39..@.\203...\203..\300\262.\202 |
| 71a0 | 2d 00 06 07 01 21 5c 32 30 33 2a 00 5c 33 30 31 5c 32 36 32 06 5c 32 30 32 2d 00 5c 33 30 31 5c | -....!\203*.\301\262.\202-.\301\ |
| 71c0 | 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 05 00 5c | 262.\210\211T\262..A\262.\202..\ |
| 71e0 | 32 36 36 03 5c 33 30 33 02 5c 32 30 35 41 00 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 74 20 30 20 | 266.\303.\205A..!\207".[nil.t.0. |
| 7200 | 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 30 20 28 23 24 20 2e 20 32 38 37 35 37 29 5d 29 0a 28 | ---truthy\?].10.(#$...28757)]).( |
| 7220 | 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 | byte-code."\300\301\302\"\210\30 |
| 7240 | 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 6f 6e 6c 79 | 0\303\304\"\207".[defalias.-only |
| 7260 | 2d 73 6f 6d 65 2d 70 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 | -some-p.-only-some\?.--only-some |
| 7280 | 2d 70 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 5d 20 33 29 0a 23 40 32 38 37 20 52 65 74 75 72 | -p.--only-some\?].3).#@287.Retur |
| 72a0 | 6e 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2c 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 69 6e | n.copy.of.LIST,.starting.from.in |
| 72c0 | 64 65 78 20 46 52 4f 4d 20 74 6f 20 69 6e 64 65 78 20 54 4f 2e 0a 0a 46 52 4f 4d 20 6f 72 20 54 | dex.FROM.to.index.TO...FROM.or.T |
| 72e0 | 4f 20 6d 61 79 20 62 65 20 6e 65 67 61 74 69 76 65 2e 20 20 54 68 65 73 65 20 76 61 6c 75 65 73 | O.may.be.negative...These.values |
| 7300 | 20 61 72 65 20 74 68 65 6e 20 69 6e 74 65 72 70 72 65 74 65 64 0a 6d 6f 64 75 6c 6f 20 74 68 65 | .are.then.interpreted.modulo.the |
| 7320 | 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6c 69 73 74 2e 0a 0a 49 66 20 53 54 45 50 20 69 73 | .length.of.the.list...If.STEP.is |
| 7340 | 20 61 20 6e 75 6d 62 65 72 2c 20 6f 6e 6c 79 20 65 61 63 68 20 53 54 45 50 74 68 20 69 74 65 6d | .a.number,.only.each.STEPth.item |
| 7360 | 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 0a 73 65 63 74 69 6f 6e 20 69 73 20 72 65 74 | .in.the.resulting.section.is.ret |
| 7380 | 75 72 6e 65 64 2e 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 0a 0a 28 66 6e 20 4c 49 53 54 | urned...Defaults.to.1...(fn.LIST |
| 73a0 | 20 46 52 4f 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 54 4f 20 53 54 45 50 29 1f 0a 28 64 65 66 61 6c | .FROM.&optional.TO.STEP)..(defal |
| 73c0 | 69 61 73 20 27 2d 73 6c 69 63 65 20 23 5b 31 30 32 36 20 22 03 47 5c 33 30 30 03 5c 32 30 36 08 | ias.'-slice.#[1026.".G\300.\206. |
| 73e0 | 00 01 5c 32 36 32 04 02 5c 32 30 36 0f 00 5c 33 30 31 5c 32 36 32 03 04 5c 33 30 32 57 5c 32 30 | ..\262..\206..\301\262..\302W\20 |
| 7400 | 33 1d 00 5c 33 30 33 05 03 5c 22 5c 32 36 32 05 03 5c 33 30 32 57 5c 32 30 33 29 00 5c 33 30 33 | 3..\303..\"\262..\302W\203).\303 |
| 7420 | 04 03 5c 22 5c 32 36 32 04 05 5c 33 30 34 5c 33 30 32 02 5c 32 30 33 68 00 01 5c 32 30 33 68 00 | ..\"\262..\304\302.\203h..\203h. |
| 7440 | 02 40 01 06 08 57 5c 32 30 34 43 00 5c 33 30 30 5c 32 36 32 03 5c 32 30 32 5c 5c 00 01 06 09 59 | .@...W\204C.\300\262.\202\\....Y |
| 7460 | 5c 32 30 33 5c 5c 00 5c 33 30 33 06 09 03 5a 06 08 5c 22 5c 33 30 32 55 5c 32 30 33 5c 5c 00 5c | \203\\.\303...Z..\"\302U\203\\.\ |
| 7480 | 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 5c | 211.B\262.\210\211T\262..A\262.\ |
| 74a0 | 32 30 32 2c 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 31 20 30 | 202,.\266.\211\237\207".[nil.1.0 |
| 74c0 | 20 6d 6f 64 20 74 5d 20 31 33 20 28 23 24 20 2e 20 32 39 33 33 39 29 5d 29 0a 28 62 79 74 65 2d | .mod.t].13.(#$...29339)]).(byte- |
| 74e0 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c | code."\300\301\302\303#\300\301\ |
| 7500 | 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 | 304\303#\300\207".[function-put. |
| 7520 | 2d 73 6c 69 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 | -slice.pure.t.side-effect-free]. |
| 7540 | 35 29 0a 23 40 31 32 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 | 5).#@126.Return.a.new.list.of.th |
| 7560 | 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2c 20 6f 72 20 61 6c 6c 20 | e.first.N.items.in.LIST,.or.all. |
| 7580 | 69 74 65 6d 73 20 69 66 20 74 68 65 72 65 20 61 72 65 20 66 65 77 65 72 20 74 68 61 6e 20 4e 2e | items.if.there.are.fewer.than.N. |
| 75a0 | 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 4e 20 | ..See.also:.`-take-last'..(fn.N. |
| 75c0 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 20 23 5b 35 31 34 20 22 5c | LIST)..(defalias.'-take.#[514."\ |
| 75e0 | 33 30 30 02 5c 33 30 31 5c 32 31 31 02 57 5c 32 30 33 1e 00 03 5c 32 30 33 17 00 03 40 03 42 5c | 300.\301\211.W\203...\203...@.B\ |
| 7600 | 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 03 00 5c 32 36 36 02 | 262..A\262.\211T\262.\202..\266. |
| 7620 | 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 37 20 28 23 24 20 2e 20 33 30 | \211\237\207".[nil.0].7.(#$...30 |
| 7640 | 30 32 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | 025)]).(byte-code."\300\301\302\ |
| 7660 | 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b | 303#\300\301\304\303#\300\207".[ |
| 7680 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 61 6b 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | function-put.-take.pure.t.side-e |
| 76a0 | 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 37 35 20 52 65 74 75 72 6e 20 74 68 65 20 6c | ffect-free].5).#@75.Return.the.l |
| 76c0 | 61 73 74 20 4e 20 69 74 65 6d 73 20 6f 66 20 4c 49 53 54 20 69 6e 20 6f 72 64 65 72 2e 0a 0a 53 | ast.N.items.of.LIST.in.order...S |
| 76e0 | 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 | ee.also:.`-take'..(fn.N.LIST)..( |
| 7700 | 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 | defalias.'-take-last.#[514."\300 |
| 7720 | 5c 33 30 31 02 04 5c 22 21 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 | \301..\"!\207".[copy-sequence.la |
| 7740 | 73 74 5d 20 36 20 28 23 24 20 2e 20 33 30 33 38 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | st].6.(#$...30388)]).(byte-code. |
| 7760 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 | "\300\301\302\303#\300\301\304\3 |
| 7780 | 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 | 03#\305\306\307\310#\207".[funct |
| 77a0 | 69 6f 6e 2d 70 75 74 20 2d 74 61 6b 65 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | ion-put.-take-last.pure.t.side-e |
| 77c0 | 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 64 72 6f 70 20 6e 74 68 63 64 72 | ffect-free.defalias.-drop.nthcdr |
| 77e0 | 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 4c 49 53 54 20 77 69 74 68 6f 75 | ."Return.the.tail.of.LIST.withou |
| 7800 | 74 20 74 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f | t.the.first.N.items.\n\nSee.also |
| 7820 | 3a 20 60 2d 64 72 6f 70 2d 6c 61 73 74 27 5c 6e 5c 6e 28 66 6e 20 4e 20 4c 49 53 54 29 22 5d 20 | :.`-drop-last'\n\n(fn.N.LIST)"]. |
| 7840 | 36 29 0a 23 40 38 34 20 52 65 6d 6f 76 65 20 74 68 65 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 20 | 6).#@84.Remove.the.last.N.items. |
| 7860 | 6f 66 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 63 6f 70 79 2e 0a 0a 53 65 65 20 | of.LIST.and.return.a.copy...See. |
| 7880 | 61 6c 73 6f 3a 20 60 2d 64 72 6f 70 27 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 | also:.`-drop'..(fn.N.LIST)..(def |
| 78a0 | 61 6c 69 61 73 20 27 2d 64 72 6f 70 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 5c | alias.'-drop-last.#[514."\300..\ |
| 78c0 | 22 5c 32 30 37 22 20 5b 62 75 74 6c 61 73 74 5d 20 35 20 28 23 24 20 2e 20 33 30 37 39 32 29 5d | "\207".[butlast].5.(#$...30792)] |
| 78e0 | 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#\ |
| 7900 | 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 | 300\301\304\303#\300\207".[funct |
| 7920 | 69 6f 6e 2d 70 75 74 20 2d 64 72 6f 70 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | ion-put.-drop-last.pure.t.side-e |
| 7940 | 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f | ffect-free].5).#@50.Anaphoric.fo |
| 7960 | 72 6d 20 6f 66 20 60 2d 74 61 6b 65 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c | rm.of.`-take-while'...(fn.FORM.L |
| 7980 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 20 27 28 | IST)..(defalias.'--take-while.'( |
| 79a0 | 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 5c 33 | macro...#[514."\300\301!\302.C\3 |
| 79c0 | 30 33 04 06 06 5c 33 30 34 5c 33 30 35 06 07 45 46 5c 33 30 36 04 44 46 5c 32 30 37 22 20 5b 6d | 03...\304\305..EF\306.DF\207".[m |
| 79e0 | 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 68 2d 77 | ake-symbol."result".let.--each-w |
| 7a00 | 68 69 6c 65 20 21 63 6f 6e 73 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 31 20 28 23 24 20 2e | hile.!cons.it.nreverse].11.(#$.. |
| 7a20 | 20 33 31 30 36 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 20 27 65 | .31060)])).(put.'--take-while.'e |
| 7a40 | 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)).#@ |
| 7a60 | 31 30 38 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 73 75 63 63 65 73 73 | 108.Return.a.new.list.of.success |
| 7a80 | 69 76 65 20 69 74 65 6d 73 20 66 72 6f 6d 20 4c 49 53 54 20 77 68 69 6c 65 20 28 50 52 45 44 20 | ive.items.from.LIST.while.(PRED. |
| 7aa0 | 69 74 65 6d 29 20 72 65 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e 0a 0a | item).returns.a.non-nil.value... |
| 7ac0 | 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 74 61 6b 65 | (fn.PRED.LIST)..(defalias.'-take |
| 7ae0 | 2d 77 68 69 6c 65 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 | -while.#[514."\300.\301\302.\203 |
| 7b00 | 2c 00 01 5c 32 30 33 2c 00 02 40 06 06 01 21 5c 32 30 34 1b 00 5c 33 30 30 5c 32 36 32 03 5c 32 | ,..\203,..@...!\204..\300\262.\2 |
| 7b20 | 30 32 20 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 02 41 5c | 02..\211.B\262.\210\211T\262..A\ |
| 7b40 | 32 36 32 03 5c 32 30 32 04 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 | 262.\202..\266.\211\237\207".[ni |
| 7b60 | 6c 20 74 20 30 5d 20 39 20 28 23 24 20 2e 20 33 31 33 33 32 29 5d 29 0a 23 40 35 30 20 41 6e 61 | l.t.0].9.(#$...31332)]).#@50.Ana |
| 7b80 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 28 | phoric.form.of.`-drop-while'...( |
| 7ba0 | 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 64 72 6f 70 | fn.FORM.LIST)..(defalias.'--drop |
| 7bc0 | 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 | -while.'(macro...#[514."\300\301 |
| 7be0 | 21 5c 33 30 32 01 03 44 43 5c 33 30 33 5c 33 30 34 04 5c 33 30 32 5c 33 30 35 5c 33 30 36 06 08 | !\302..DC\303\304.\302\305\306.. |
| 7c00 | 44 44 43 06 09 45 45 5c 33 30 37 05 44 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 | DDC..EE\307.DE.F\207".[make-symb |
| 7c20 | 6f 6c 20 22 6c 69 73 74 22 20 6c 65 74 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 21 | ol."list".let.while.and.it.car.! |
| 7c40 | 63 64 72 5d 20 31 32 20 28 23 24 20 2e 20 33 31 36 31 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d | cdr].12.(#$...31613)])).(put.'-- |
| 7c60 | 64 72 6f 70 2d 77 68 69 6c 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 | drop-while.'edebug-form-spec.'(f |
| 7c80 | 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 30 35 20 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c | orm.form)).#@105.Return.the.tail |
| 7ca0 | 20 6f 66 20 4c 49 53 54 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 | .of.LIST.starting.from.the.first |
| 7cc0 | 20 69 74 65 6d 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 20 69 74 65 6d 29 20 72 65 74 75 | .item.for.which.(PRED.item).retu |
| 7ce0 | 72 6e 73 20 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 6c | rns.nil...(fn.PRED.LIST)..(defal |
| 7d00 | 69 61 73 20 27 2d 64 72 6f 70 2d 77 68 69 6c 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 | ias.'-drop-while.#[514."\211\211 |
| 7d20 | 5c 32 30 33 16 00 5c 32 31 31 40 03 01 21 5c 32 36 32 01 5c 32 30 33 16 00 5c 32 31 31 41 5c 32 | \203..\211@..!\262.\203..\211A\2 |
| 7d40 | 36 32 01 5c 32 30 32 01 00 5c 32 31 31 5c 32 30 37 22 20 5b 5d 20 36 20 28 23 24 20 2e 20 33 31 | 62.\202..\211\207".[].6.(#$...31 |
| 7d60 | 38 38 39 29 5d 29 0a 23 40 31 30 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 | 889)]).#@107.Return.a.list.of.(( |
| 7d80 | 2d 74 61 6b 65 20 4e 20 4c 49 53 54 29 20 28 2d 64 72 6f 70 20 4e 20 4c 49 53 54 29 29 2c 20 69 | -take.N.LIST).(-drop.N.LIST)),.i |
| 7da0 | 6e 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 70 61 73 73 20 74 68 72 6f 75 67 68 20 | n.no.more.than.one.pass.through. |
| 7dc0 | 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | the.list...(fn.N.LIST)..(defalia |
| 7de0 | 73 20 27 2d 73 70 6c 69 74 2d 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 32 31 | s.'-split-at.#[514."\300.\301\21 |
| 7e00 | 31 02 57 5c 32 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 | 1.W\203...\203...@.B\262..A\262. |
| 7e20 | 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 02 44 5c | \211T\262.\202..\266.\211\237.D\ |
| 7e40 | 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 37 20 28 23 24 20 2e 20 33 32 31 30 39 29 5d 29 0a 28 62 | 207".[nil.0].7.(#$...32109)]).(b |
| 7e60 | 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 33 30 30 5c | yte-code."\300\301\302\303#\300\ |
| 7e80 | 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 301\304\303#\300\207".[function- |
| 7ea0 | 70 75 74 20 2d 73 70 6c 69 74 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 | put.-split-at.pure.t.side-effect |
| 7ec0 | 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 31 36 20 52 6f 74 61 74 65 20 4c 49 53 54 20 4e 20 70 6c | -free].5).#@116.Rotate.LIST.N.pl |
| 7ee0 | 61 63 65 73 20 74 6f 20 74 68 65 20 72 69 67 68 74 2e 20 20 57 69 74 68 20 4e 20 6e 65 67 61 74 | aces.to.the.right...With.N.negat |
| 7f00 | 69 76 65 2c 20 72 6f 74 61 74 65 20 74 6f 20 74 68 65 20 6c 65 66 74 2e 0a 54 68 65 20 74 69 6d | ive,.rotate.to.the.left..The.tim |
| 7f20 | 65 20 63 6f 6d 70 6c 65 78 69 74 79 20 69 73 20 4f 28 6e 29 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 | e.complexity.is.O(n)...(fn.N.LIS |
| 7f40 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 6f 74 61 74 65 20 23 5b 35 31 34 20 22 5c 32 | T)..(defalias.'-rotate.#[514."\2 |
| 7f60 | 31 31 5c 32 30 35 1b 00 5c 32 31 31 47 5c 33 30 30 03 02 5c 22 01 01 5a 5c 33 30 31 5c 33 30 32 | 11\205..\211G\300..\"..Z\301\302 |
| 7f80 | 02 06 06 5c 22 5c 33 30 33 03 06 07 5c 22 5c 22 5c 32 36 36 5c 32 30 33 5c 32 30 37 22 20 5b 6d | ...\"\303...\"\"\266\203\207".[m |
| 7fa0 | 6f 64 20 61 70 70 65 6e 64 20 2d 64 72 6f 70 20 2d 74 61 6b 65 5d 20 31 30 20 28 23 24 20 2e 20 | od.append.-drop.-take].10.(#$... |
| 7fc0 | 33 32 34 36 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 | 32464)]).(byte-code."\300\301\30 |
| 7fe0 | 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 | 2\303#\300\301\304\303#\300\207" |
| 8000 | 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 65 20 74 20 73 69 | .[function-put.-rotate.pure.t.si |
| 8020 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 30 38 20 52 65 74 75 72 6e 20 | de-effect-free].5).#@108.Return. |
| 8040 | 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 6f 20 4c 49 53 54 | a.list.with.X.inserted.into.LIST |
| 8060 | 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 20 60 2d 73 70 6c | .at.position.N...See.also:.`-spl |
| 8080 | 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 4e 20 58 20 4c 49 | ice',.`-splice-list'..(fn.N.X.LI |
| 80a0 | 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 20 23 5b 37 37 31 | ST)..(defalias.'-insert-at.#[771 |
| 80c0 | 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 30 37 22 20 5b 2d | ."\300..\"\211@..A@B\244\207".[- |
| 80e0 | 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 33 32 38 32 35 29 5d 29 0a 28 62 79 74 65 | split-at].7.(#$...32825)]).(byte |
| 8100 | 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 33 30 30 5c 33 30 31 | -code."\300\301\302\303#\300\301 |
| 8120 | 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 | \304\303#\300\207".[function-put |
| 8140 | 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 66 65 63 74 2d 66 | .-insert-at.pure.t.side-effect-f |
| 8160 | 72 65 65 5d 20 35 29 0a 23 40 31 30 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 | ree].5).#@106.Return.a.list.with |
| 8180 | 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 6e 20 4c 49 53 54 | .element.at.Nth.position.in.LIST |
| 81a0 | 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 6f 3a 20 60 2d 72 | .replaced.with.X...See.also:.`-r |
| 81c0 | 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 65 66 61 6c 69 61 | eplace'..(fn.N.X.LIST)..(defalia |
| 81e0 | 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 03 02 5c 22 5c 32 | s.'-replace-at.#[771."\300..\"\2 |
| 8200 | 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 2d 61 74 5d 20 37 | 11@..A@AB\244\207".[-split-at].7 |
| 8220 | 20 28 23 24 20 2e 20 33 33 31 33 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...33134)]).(byte-code."\300 |
| 8240 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 | \301\302\303#\300\301\304\303#\3 |
| 8260 | 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 65 70 6c 61 63 65 2d 61 | 00\207".[function-put.-replace-a |
| 8280 | 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 35 29 0a 23 40 | t.pure.t.side-effect-free].5).#@ |
| 82a0 | 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 6d 65 6e 74 20 61 | 130.Return.a.list.with.element.a |
| 82c0 | 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 4c 49 53 54 20 72 65 70 6c 61 63 65 64 20 | t.Nth.position.in.LIST.replaced. |
| 82e0 | 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 2e 0a 0a 53 65 65 | with.`(func.(nth.n.list))`...See |
| 8300 | 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 46 55 4e 43 20 4c | .also:.`-map-when'..(fn.N.FUNC.L |
| 8320 | 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 74 20 23 5b 37 37 | IST)..(defalias.'-update-at.#[77 |
| 8340 | 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 42 5c 32 34 34 5c | 1."\300..\"\211@..A@@!.A@AB\244\ |
| 8360 | 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 33 34 34 34 29 5d | 207".[-split-at].7.(#$...33444)] |
| 8380 | 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 66 20 60 2d 75 70 | ).#@54.Anaphoric.version.of.`-up |
| 83a0 | 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 29 1f 0a 28 64 65 | date-at'...(fn.N.FORM.LIST)..(de |
| 83c0 | 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 6f 20 2e 20 23 5b | falias.'--update-at.'(macro...#[ |
| 83e0 | 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 22 20 5b 2d 75 70 | 771."\300.\301\302.E.F\207".[-up |
| 8400 | 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 20 2e 20 33 33 36 | date-at.lambda.(it)].8.(#$...336 |
| 8420 | 37 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 27 65 64 65 62 75 67 | 71)])).(put.'--update-at.'edebug |
| 8440 | 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 | -form-spec.'(form.form.form)).#@ |
| 8460 | 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 6d 65 6e 74 20 61 | 117.Return.a.list.with.element.a |
| 8480 | 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 6f 76 65 64 2e 0a | t.Nth.position.in.LIST.removed.. |
| 84a0 | 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 69 63 65 73 27 2c | .See.also:.`-remove-at-indices', |
| 84c0 | 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 64 65 66 61 6c 69 | .`-remove'..(fn.N.LIST)..(defali |
| 84e0 | 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 02 43 02 5c 22 5c | as.'-remove-at.#[514."\300.C.\"\ |
| 8500 | 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 35 20 28 23 24 20 | 207".[-remove-at-indices].5.(#$. |
| 8520 | 2e 20 33 33 38 39 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 | ..33892)]).(byte-code."\300\301\ |
| 8540 | 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 | 302\303#\300\301\304\303#\300\20 |
| 8560 | 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 74 20 70 75 72 65 | 7".[function-put.-remove-at.pure |
| 8580 | 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 37 35 20 52 65 | .t.side-effect-free].5).#@175.Re |
| 85a0 | 74 75 72 6e 20 61 20 6c 69 73 74 20 77 68 6f 73 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 65 | turn.a.list.whose.elements.are.e |
| 85c0 | 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 65 6c 65 6d 65 6e | lements.from.LIST.without.elemen |
| 85e0 | 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 74 29 60 20 66 6f | ts.selected.as.`(nth.i.list)`.fo |
| 8600 | 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 20 61 6c 73 6f 3a | r.all.i.from.INDICES...See.also: |
| 8620 | 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 28 66 6e 20 49 4e | .`-remove-at',.`-remove'..(fn.IN |
| 8640 | 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 65 6d 6f 76 65 2d | DICES.LIST)..(defalias.'-remove- |
| 8660 | 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 03 5c 22 5c 32 31 | at-indices.#[514."\300\301.\"\21 |
| 8680 | 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 5c 33 30 36 01 5c | 1@\302\303\304\305.A..#\"B\306.\ |
| 86a0 | 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 05 42 5c 32 36 32 | 307.\2038..@\310...\"\211@.B\262 |
| 86c0 | 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 32 01 01 41 5c 32 | .\211A@A\262.\266.\211T\262..A\2 |
| 86e0 | 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 5c 33 31 32 02 5c | 62.\202..\266...B\262.\311\312.\ |
| 8700 | 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 2d 20 2d 7a 69 70 | 237\"\207".[-sort.<.-map.1-.-zip |
| 8720 | 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 70 6c 79 20 2d 63 | -with.-.nil.0.-split-at.apply.-c |
| 8740 | 6f 6e 63 61 74 5d 20 31 31 20 28 23 24 20 2e 20 33 34 32 30 36 29 5d 29 0a 28 62 79 74 65 2d 63 | oncat].11.(#$...34206)]).(byte-c |
| 8760 | 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 | ode."\300\301\302\303#\300\301\3 |
| 8780 | 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d | 04\303#\300\207".[function-put.- |
| 87a0 | 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 69 64 65 2d 65 66 | remove-at-indices.pure.t.side-ef |
| 87c0 | 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 | fect-free].5).#@50.Anaphoric.for |
| 87e0 | 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 52 45 44 20 4c 49 | m.of.`-split-with'...(fn.PRED.LI |
| 8800 | 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 74 68 20 27 28 6d | ST)..(defalias.'--split-with.'(m |
| 8820 | 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! |
| 8840 | 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 36 42 45 5c 33 30 | \300\303!\304..D.\305B.\306BE\30 |
| 8860 | 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 5c 33 31 33 5c 33 | 7\310...E\304\311\312..DDC\313\3 |
| 8880 | 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 06 5c 66 45 5c 33 | 14.\fD\315..\316BB\317\311.\fE\3 |
| 88a0 | 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 46 5c 32 30 37 22 | 20..D\257.EE\321\322..D..EF\207" |
| 88c0 | 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 6c 74 22 20 22 63 | .[make-symbol."list"."result"."c |
| 88e0 | 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 6c 65 20 61 6e 64 | ontinue".let.(nil).(t).while.and |
| 8900 | 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 21 63 6f 6e 73 20 | .it.car.if.not.setq.(nil).!cons. |
| 8920 | 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 20 2e 20 33 34 37 | !cdr.list.nreverse].17.(#$...347 |
| 8940 | 37 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 74 2d 77 69 74 68 20 27 65 64 65 62 75 | 71)])).(put.'--split-with.'edebu |
| 8960 | 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 32 38 20 | g-form-spec.'(form.form)).#@128. |
| 8980 | 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 68 69 6c 65 20 50 | Return.a.list.of.((-take-while.P |
| 89a0 | 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 44 20 4c 49 53 54 | RED.LIST).(-drop-while.PRED.LIST |
| 89c0 | 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 73 73 20 74 68 72 | )),.in.no.more.than.one.pass.thr |
| 89e0 | 6f 75 67 68 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a | ough.the.list...(fn.PRED.LIST).. |
| 8a00 | 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 31 34 20 22 5c 32 | (defalias.'-split-with.#[514."\2 |
| 8a20 | 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 00 02 40 05 01 21 | 11\300\301.\203&.\211\203&..@..! |
| 8a40 | 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 03 42 5c 32 36 32 | \204..\300\262.\202\".\211.B\262 |
| 8a60 | 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 32 30 37 22 20 5b | ..A\262.\210\202...\237.D\207".[ |
| 8a80 | 6e 69 6c 20 74 5d 20 38 20 28 23 24 20 2e 20 33 35 32 30 30 29 5d 29 0a 23 40 32 32 34 20 53 70 | nil.t].8.(#$...35200)]).#@224.Sp |
| 8aa0 | 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 4d 20 69 73 20 66 | lit.the.LIST.each.time.ITEM.is.f |
| 8ac0 | 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 62 79 27 2c 20 74 | ound...Unlike.`-partition-by',.t |
| 8ae0 | 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 74 68 65 20 72 65 | he.ITEM.is.discarded.from.the.re |
| 8b00 | 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 6f 20 72 65 6d 6f | sults..Empty.lists.are.also.remo |
| 8b20 | 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 61 72 69 73 6f 6e | ved.from.the.result...Comparison |
| 8b40 | 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 61 6c 73 6f 20 60 | .is.done.by.`equal'...See.also.` |
| 8b60 | 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 54 29 1f 0a 28 64 | -split-when'..(fn.ITEM.LIST)..(d |
| 8b80 | 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 20 2e 20 23 5b 35 | efalias.'-split-on.'(macro...#[5 |
| 8ba0 | 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 45 45 02 45 5c 32 | 14."\300\301\302\303\304..EE.E\2 |
| 8bc0 | 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 20 65 71 75 | 07".[-split-when.lambda.(it).equ |
| 8be0 | 61 6c 20 69 74 5d 20 38 20 28 23 24 20 2e 20 33 35 34 38 36 29 5d 29 29 0a 28 70 75 74 20 27 2d | al.it].8.(#$...35486)])).(put.'- |
| 8c00 | 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 20 27 28 66 6f 72 | split-on.'edebug-form-spec.'(for |
| 8c20 | 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 72 73 69 6f 6e 20 | m.form)).#@53.Anaphoric.version. |
| 8c40 | 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 4d 20 4c 49 53 54 | of.`-split-when'...(fn.FORM.LIST |
| 8c60 | 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 20 27 28 6d 61 63 | )..(defalias.'--split-when.'(mac |
| 8c80 | 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 | ro...#[514."\300\301\302.E.E\207 |
| 8ca0 | 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 5d 20 36 20 28 23 | ".[-split-when.lambda.(it)].6.(# |
| 8cc0 | 24 20 2e 20 33 35 38 38 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 74 2d 77 68 65 6e | $...35886)])).(put.'--split-when |
| 8ce0 | 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 | .'edebug-form-spec.'(form.form)) |
| 8d00 | 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 61 63 68 20 65 6c | .#@269.Split.the.LIST.on.each.el |
| 8d20 | 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 2d 6e 69 6c 2e 0a | ement.where.FN.returns.non-nil.. |
| 8d40 | 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 68 65 20 22 6d 61 | .Unlike.`-partition-by',.the."ma |
| 8d60 | 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 64 20 66 72 6f 6d | tched".element.is.discarded.from |
| 8d80 | 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 20 61 72 65 20 61 | .the.results...Empty.lists.are.a |
| 8da0 | 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 74 2e 0a 0a 54 68 | lso.removed.from.the.result...Th |
| 8dc0 | 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 20 6f 66 20 61 73 | is.function.can.be.thought.of.as |
| 8de0 | 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 74 2d 73 74 72 69 | .a.generalization.of.`split-stri |
| 8e00 | 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 69 61 73 20 27 2d | ng'...(fn.FN.LIST)..(defalias.'- |
| 8e20 | 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 02 5c 32 30 33 2a | split-when.#[514."\300\211.\203* |
| 8e40 | 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 5c 32 31 31 5c 32 | ...@!\204...@.B\262.\202#.\211\2 |
| 8e60 | 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 32 01 02 41 5c 32 | 03..\211\237.B\262.\300\262..A\2 |
| 8e80 | 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 37 02 42 5c 32 36 | 62.\202..\211\2034.\211\237.B\26 |
| 8ea0 | 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 20 33 36 31 30 33 | 2..\237\207".[nil].6.(#$...36103 |
| 8ec0 | 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 65 70 | )]).#@48.Anaphoric.form.of.`-sep |
| 8ee0 | 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 64 65 66 61 6c 69 | arate'...(fn.FORM.LIST)..(defali |
| 8f00 | 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 5b 35 31 34 20 22 | as.'--separate.'(macro...#[514." |
| 8f20 | 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 33 30 34 05 5c 33 | \300\301!\300\302!\303..D\304.\3 |
| 8f40 | 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 46 45 5c 33 31 30 | 05..\306\307..E\306\307..EFE\310 |
| 8f60 | 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 65 2d 73 79 6d 62 | \311..D\311..DEF\207".[make-symb |
| 8f80 | 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 66 20 21 63 6f 6e | ol."yes"."no".let.--each.if.!con |
| 8fa0 | 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 20 2e 20 33 36 35 | s.it.list.nreverse].14.(#$...365 |
| 8fc0 | 35 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 65 70 61 72 61 74 65 20 27 65 64 65 62 75 67 2d | 53)])).(put.'--separate.'edebug- |
| 8fe0 | 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 30 37 20 52 65 | form-spec.'(form.form)).#@107.Re |
| 9000 | 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 52 45 44 20 4c 49 | turn.a.list.of.((-filter.PRED.LI |
| 9020 | 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 69 6e 20 6f 6e 65 | ST).(-remove.PRED.LIST)),.in.one |
| 9040 | 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 66 6e 20 50 52 45 | .pass.through.the.list...(fn.PRE |
| 9060 | 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 61 74 65 20 23 5b | D.LIST)..(defalias.'-separate.#[ |
| 9080 | 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 40 06 06 01 21 5c | 514."\300\211.\301.\203*..@...!\ |
| 90a0 | 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 04 42 5c 32 36 32 | 203..\211.B\262.\202..\211.B\262 |
| 90c0 | 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 04 00 5c 32 36 36 | .\210\211T\262..A\262.\202..\266 |
| 90e0 | 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 39 20 28 23 24 20 | ..\237.\237D\207".[nil.0].9.(#$. |
| 9100 | 2e 20 33 36 38 36 32 29 5d 29 0a 23 40 38 35 20 50 72 69 76 61 74 65 3a 20 55 73 65 64 20 62 79 | ..36862)]).#@85.Private:.Used.by |
| 9120 | 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 6e 64 20 2d 70 61 | .-partition-all-in-steps.and.-pa |
| 9140 | 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 54 45 50 20 4c 49 | rtition-in-steps...(fn.N.STEP.LI |
| 9160 | 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 6f 6e 2d 61 6c 6c | ST)..(defalias.'---partition-all |
| 9180 | 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 01 5c 33 30 30 57 | -in-steps-reversed.#[771.".\300W |
| 91a0 | 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 32 30 33 20 00 5c | \203\n.\301\302!\210\303.\203..\ |
| 91c0 | 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 02 5c 32 30 32 0b | 304..\".B\262.\305..\"\262.\202. |
| 91e0 | 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 6d 75 73 74 20 62 | .\211\207".[1.error."Step.must.b |
| 9200 | 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 75 27 72 65 20 6c | e.a.positive.number,.or.you're.l |
| 9220 | 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 69 74 65 20 6c 6f | ooking.at.some.juicy.infinite.lo |
| 9240 | 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 23 24 20 2e 20 33 | ops.".nil.-take.-drop].7.(#$...3 |
| 9260 | 37 31 33 36 29 5d 29 0a 23 40 31 36 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 | 7136)]).#@160.Return.a.new.list. |
| 9280 | 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 67 72 6f 75 70 65 64 20 69 | with.the.items.in.LIST.grouped.i |
| 92a0 | 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 66 73 65 74 73 20 | nto.N-sized.sublists.at.offsets. |
| 92c0 | 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 73 20 6d 61 79 20 | STEP.apart..The.last.groups.may. |
| 92e0 | 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 20 | contain.less.than.N.items...(fn. |
| 9300 | 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 69 74 | N.STEP.LIST)..(defalias.'-partit |
| 9320 | 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 30 30 03 03 03 23 | ion-all-in-steps.#[771."\300...# |
| 9340 | 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 6c 2d 69 6e 2d 73 | \237\207".[---partition-all-in-s |
| 9360 | 74 65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 28 23 24 20 2e 20 33 37 34 38 36 29 5d 29 0a | teps-reversed].7.(#$...37486)]). |
| 9380 | 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 33 30 | (byte-code."\300\301\302\303#\30 |
| 93a0 | 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f | 0\301\304\303#\300\207".[functio |
| 93c0 | 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 65 70 73 20 70 75 | n-put.-partition-all-in-steps.pu |
| 93e0 | 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 30 32 20 | re.t.side-effect-free].5).#@202. |
| 9400 | 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 20 69 74 65 6d 73 | Return.a.new.list.with.the.items |
| 9420 | 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 7a 65 64 20 73 75 | .in.LIST.grouped.into.N-sized.su |
| 9440 | 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 72 74 2e 0a 49 66 | blists.at.offsets.STEP.apart..If |
| 9460 | 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 73 20 74 6f 20 6d | .there.are.not.enough.items.to.m |
| 9480 | 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 2c 0a 74 68 6f 73 | ake.the.last.group.N-sized,.thos |
| 94a0 | 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 6e 20 4e 20 53 54 | e.items.are.discarded...(fn.N.ST |
| 94c0 | 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 69 74 69 6f 6e 2d | EP.LIST)..(defalias.'-partition- |
| 94e0 | 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 31 31 5c 32 30 33 | in-steps.#[771."\300...#\211\203 |
| 9500 | 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 5c 32 30 32 05 00 | ..\211@G.W\203..\211A\262.\202.. |
| 9520 | 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 6e 2d 61 6c 6c 2d | \211\237\207".[---partition-all- |
| 9540 | 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 37 38 38 38 | in-steps-reversed].7.(#$...37888 |
| 9560 | 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 |
| 9580 | 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e | #\300\301\304\303#\300\207".[fun |
| 95a0 | 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 65 70 73 20 70 75 | ction-put.-partition-in-steps.pu |
| 95c0 | 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 33 32 20 | re.t.side-effect-free].5).#@132. |
| 95e0 | 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 20 69 74 65 6d 73 | Return.a.new.list.with.the.items |
| 9600 | 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 7a 65 64 20 73 75 | .in.LIST.grouped.into.N-sized.su |
| 9620 | 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 20 63 6f 6e 74 61 | blists..The.last.group.may.conta |
| 9640 | 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 20 4e 20 4c 49 53 | in.less.than.N.items...(fn.N.LIS |
| 9660 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 20 23 5b | T)..(defalias.'-partition-all.#[ |
| 9680 | 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 74 69 74 69 6f | 514."\300.\211.#\207".[-partitio |
| 96a0 | 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 38 33 36 38 29 5d 29 | n-all-in-steps].6.(#$...38368)]) |
| 96c0 | 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 33 | .(byte-code."\300\301\302\303#\3 |
| 96e0 | 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 | 00\301\304\303#\300\207".[functi |
| 9700 | 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 20 74 20 73 69 64 | on-put.-partition-all.pure.t.sid |
| 9720 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 37 35 20 52 65 74 75 72 6e 20 61 | e-effect-free].5).#@175.Return.a |
| 9740 | 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 | .new.list.with.the.items.in.LIST |
| 9760 | 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 2e 0a | .grouped.into.N-sized.sublists.. |
| 9780 | 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 73 20 74 6f | If.there.are.not.enough.items.to |
| 97a0 | 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 2c 0a 74 68 | .make.the.last.group.N-sized,.th |
| 97c0 | 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 6e 20 4e 20 | ose.items.are.discarded...(fn.N. |
| 97e0 | 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 20 23 5b 35 | LIST)..(defalias.'-partition.#[5 |
| 9800 | 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 74 69 74 69 6f 6e | 14."\300.\211.#\207".[-partition |
| 9820 | 2d 69 6e 2d 73 74 65 70 73 5d 20 36 20 28 23 24 20 2e 20 33 38 37 31 32 29 5d 29 0a 28 62 79 74 | -in-steps].6.(#$...38712)]).(byt |
| 9840 | 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 33 30 30 5c 33 30 | e-code."\300\301\302\303#\300\30 |
| 9860 | 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 | 1\304\303#\300\207".[function-pu |
| 9880 | 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 66 66 65 63 74 2d | t.-partition.pure.t.side-effect- |
| 98a0 | 66 72 65 65 5d 20 35 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 | free].5).#@52.Anaphoric.form.of. |
| 98c0 | 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 20 4c 49 53 54 29 | `-partition-by'...(fn.FORM.LIST) |
| 98e0 | 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 79 20 27 28 6d 61 | ..(defalias.'--partition-by.'(ma |
| 9900 | 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 5c | cro...#[514."\300\301!\300\302!\ |
| 9920 | 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 36 01 06 | 300\303!\300\304!\300\305!\306.. |
| 9940 | 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 33 06 08 44 44 06 | .DC\307.\310..\311B\312\313..DD. |
| 9960 | 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 37 05 5c 33 31 36 | \n\314B.\n..D..\315..DD\257.\316 |
| 9980 | 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 31 37 5c 33 32 30 | ..\310\312\313..DD....DD\317\320 |
| 99a0 | 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 33 32 34 42 42 5c | ....E\321\322..D..E\323..\324BB\ |
| 99c0 | 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 32 35 06 0d 44 5c | 323....E\257.\321\312..E\325..D\ |
| 99e0 | 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 44 5c 32 35 37 05 | 257.E\321\322.\fD..E\322..D\257. |
| 9a00 | 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 6c 74 22 20 22 73 | EE\207".[make-symbol."result"."s |
| 9a20 | 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 22 20 22 6c 69 73 | ublist"."value"."new-value"."lis |
| 9a40 | 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 63 61 72 20 28 28 | t".let.when.let*.(nil).it.car.(( |
| 9a60 | 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 20 65 71 75 61 6c | list.it)).cdr.while.unless.equal |
| 9a80 | 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 20 21 63 64 72 5d | .!cons.nreverse.setq.(nil).!cdr] |
| 9aa0 | 20 32 34 20 28 23 24 20 2e 20 33 39 30 38 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 70 61 72 74 | .24.(#$...39086)])).(put.'--part |
| 9ac0 | 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 20 27 28 66 6f 72 | ition-by.'edebug-form-spec.'(for |
| 9ae0 | 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 65 61 63 68 20 69 | m.form)).#@93.Apply.FN.to.each.i |
| 9b00 | 74 65 6d 20 69 6e 20 4c 49 53 54 2c 20 73 70 6c 69 74 74 69 6e 67 20 69 74 20 65 61 63 68 20 74 | tem.in.LIST,.splitting.it.each.t |
| 9b20 | 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 2e 0a 0a 28 66 6e | ime.FN.returns.a.new.value...(fn |
| 9b40 | 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e | .FN.LIST)..(defalias.'-partition |
| 9b60 | 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 33 30 30 01 40 5c | -by.#[514."\211\211\205B.\300.@\ |
| 9b80 | 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 01 21 03 01 5c 32 | 211C..!.A\211\2038.\211@...!..\2 |
| 9ba0 | 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 32 36 32 05 5c 32 | 32\204,..\237..B\262.\300\262.\2 |
| 9bc0 | 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 32 30 32 0f 00 02 | 11\262...B\262..A\266\203\202... |
| 9be0 | 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 30 37 22 20 5b 6e | \237.B\262..\237\266\205\207".[n |
| 9c00 | 69 6c 5d 20 31 32 20 28 23 24 20 2e 20 33 39 36 36 32 29 5d 29 0a 23 40 35 39 20 41 6e 61 70 68 | il].12.(#$...39662)]).#@59.Anaph |
| 9c20 | 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 79 2d 68 65 61 64 | oric.form.of.`-partition-by-head |
| 9c40 | 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 61 6c 69 61 73 20 | er'...(fn.FORM.LIST)..(defalias. |
| 9c60 | 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 61 63 72 6f 20 2e | '--partition-by-header.'(macro.. |
| 9c80 | 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 30 5c 33 | .#[514."\300\301!\300\302!\300\3 |
| 9ca0 | 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 33 30 36 21 5c 33 | 03!\300\304!\300\305!\300\306!\3 |
| 9cc0 | 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 31 33 5c 33 31 34 | 07...DC\310.\311.\n\312B\313\314 |
| 9ce0 | 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 5c 33 31 37 06 5c | ..DD..\315B....D..\316B.\n\317.\ |
| 9d00 | 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 06 0b 44 44 06 0b | fDD\257.\320..\311\313\314..DD.. |
| 9d20 | 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 33 5c 33 32 34 06 | ..DD\321\322....E\310..\323\324. |
| 9d40 | 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 37 42 42 5c 32 35 | .D..E\325..\326BB\325..\327BB\25 |
| 9d60 | 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 5c 33 33 31 06 0d | 7.\325..\330BBF\323\313..E\331.. |
| 9d80 | 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 0e 44 5c 32 35 37 | D\257.E\323\324..D..E\324..D\257 |
| 9da0 | 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 6c 74 22 20 22 | .EE\207".[make-symbol."result"." |
| 9dc0 | 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 65 65 6e 2d 62 6f | sublist"."header-value"."seen-bo |
| 9de0 | 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 74 20 77 68 65 6e | dy?"."new-value"."list".let.when |
| 9e00 | 20 6c 65 74 2a 20 28 6e 69 6c 29 20 69 74 20 63 61 72 20 28 28 6c 69 73 74 20 69 74 29 29 20 28 | .let*.(nil).it.car.((list.it)).( |
| 9e20 | 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 6f 6e 73 20 6e 72 | nil).cdr.while.if.equal.!cons.nr |
| 9e40 | 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 29 20 21 63 64 72 | everse.setq.(nil).(nil).(t).!cdr |
| 9e60 | 5d 20 32 37 20 28 23 24 20 2e 20 33 39 39 36 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 70 61 72 | ].27.(#$...39963)])).(put.'--par |
| 9e80 | 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 6f 72 6d 2d 73 70 | tition-by-header.'edebug-form-sp |
| 9ea0 | 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 6c 79 20 46 4e 20 | ec.'(form.form)).#@219.Apply.FN. |
| 9ec0 | 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 20 54 68 61 74 20 | to.the.first.item.in.LIST..That. |
| 9ee0 | 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 20 46 4e 20 74 6f | is.the.header.value..Apply.FN.to |
| 9f00 | 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 69 6e 67 20 69 74 | .each.item.in.LIST,.splitting.it |
| 9f20 | 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 68 65 61 64 65 72 | .each.time.FN.returns.the.header |
| 9f40 | 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 69 6e 67 20 61 74 | .value,.but.only.after.seeing.at |
| 9f60 | 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 65 20 62 6f 64 79 | .least.one.other.value.(the.body |
| 9f80 | 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 73 20 27 2d 70 61 | )...(fn.FN.LIST)..(defalias.'-pa |
| 9fa0 | 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 32 31 31 5c 32 31 | rtition-by-header.#[514."\211\21 |
| 9fc0 | 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 41 5c 32 31 31 5c | 1\205O.\300.@\211C..!\300.A\211\ |
| 9fe0 | 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 03 5c 32 30 33 37 | 203D.\211@...!..\232\2034..\2037 |
| a000 | 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 30 5c 32 36 32 04 | ..\237..B\262.\300\262.\300\262. |
| a020 | 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 5c 32 36 36 5c 32 | \2027.\301\262....B\262..A\266\2 |
| a040 | 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 5c 32 36 36 5c 32 | 03\202...\237..B\262..\237\266\2 |
| a060 | 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 34 30 36 33 31 29 5d | 06\207".[nil.t].13.(#$...40631)] |
| a080 | 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 61 66 74 65 72 20 | ).#@88.Partition.directly.after. |
| a0a0 | 65 61 63 68 20 74 69 6d 65 20 50 52 45 44 20 69 73 20 74 72 75 65 20 6f 6e 20 61 6e 20 65 6c 65 | each.time.PRED.is.true.on.an.ele |
| a0c0 | 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 | ment.of.LIST...(fn.PRED.LIST)..( |
| a0e0 | 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 70 72 65 64 20 | defalias.'-partition-after-pred. |
| a100 | 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 22 02 02 40 21 5c | #[514."\211\205\".\300..A\"..@!\ |
| a120 | 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 36 32 01 5c 32 30 | 203...@C.B\202...@.@B.AB\262.\20 |
| a140 | 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 20 35 20 28 23 24 | 7".[-partition-after-pred].5.(#$ |
| a160 | 20 2e 20 34 31 30 39 35 29 5d 29 0a 23 40 38 39 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 | ...41095)]).#@89.Partition.direc |
| a180 | 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 69 73 20 74 72 75 | tly.before.each.time.PRED.is.tru |
| a1a0 | 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 28 66 6e 20 50 52 | e.on.an.element.of.LIST...(fn.PR |
| a1c0 | 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 69 74 69 6f 6e 2d | ED.LIST)..(defalias.'-partition- |
| a1e0 | 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 31 5c 33 30 32 04 | before-pred.#[514."\300\301\302. |
| a200 | 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 72 65 76 65 72 73 | \301.!\"\"\237\207".[-map.revers |
| a220 | 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 20 28 23 24 20 2e | e.-partition-after-pred].8.(#$.. |
| a240 | 20 34 31 33 32 39 29 5d 29 0a 23 40 37 34 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c | .41329)]).#@74.Partition.directl |
| a260 | 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 65 61 72 73 20 69 | y.after.each.time.ITEM.appears.i |
| a280 | 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 61 6c 69 | n.LIST...(fn.ITEM.LIST)..(defali |
| a2a0 | 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 23 5b 35 31 34 20 | as.'-partition-after-item.#[514. |
| a2c0 | 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 5c 33 30 36 | "\300\301\302\303\304\305..!\306 |
| a2e0 | 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 69 6f 6e 2d | \"\307\310%.\"\207".[-partition- |
| a300 | 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 32 35 37 20 22 5c | after-pred.make-byte-code.257."\ |
| a320 | 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 63 74 6f 72 20 | 211\300\232\207".vconcat.vector. |
| a340 | 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 2e 20 34 31 35 | [].3."\n\n(fn.ELE)"].9.(#$...415 |
| a360 | 35 31 29 5d 29 0a 23 40 37 35 20 50 61 72 74 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 62 65 | 51)]).#@75.Partition.directly.be |
| a380 | 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 73 20 69 6e 20 4c | fore.each.time.ITEM.appears.in.L |
| a3a0 | 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 61 6c 69 61 73 20 | IST...(fn.ITEM.LIST)..(defalias. |
| a3c0 | 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 35 31 34 20 22 5c | '-partition-before-item.#[514."\ |
| a3e0 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 | 300\301\302\303\304\305..!\306\" |
| a400 | 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 69 6f 6e 2d 62 65 | \307\310%.\"\207".[-partition-be |
| a420 | 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 35 37 20 22 5c 32 | fore-pred.make-byte-code.257."\2 |
| a440 | 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 63 74 6f 72 20 5b | 11\300\232\207".vconcat.vector.[ |
| a460 | 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 2e 20 34 31 38 33 | ].3."\n\n(fn.ELE)"].9.(#$...4183 |
| a480 | 35 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 67 72 | 5)]).#@48.Anaphoric.form.of.`-gr |
| a4a0 | 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 28 64 65 66 61 6c | oup-by'...(fn.FORM.LIST)..(defal |
| a4c0 | 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 23 5b 35 31 34 20 | ias.'--group-by.'(macro...#[514. |
| a4e0 | 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 | "\300\301!\300\302!\300\303!\304 |
| a500 | 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 33 31 31 06 5c 6e | \305\306.C\307\310..D\304\311.\n |
| a520 | 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 5c 33 31 35 42 42 | DDEE\312\313...\nD..\314..\315BB |
| a540 | 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 06 0d 44 45 45 5c | DD\316..\317..\307\320\311..DEE\ |
| a560 | 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 35 42 42 42 5c 33 | 321\322.\f\323BB\324BBF\325BBB\3 |
| a580 | 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 22 6e 22 20 22 6b | 26..FED\207".[make-symbol."n"."k |
| a5a0 | 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 64 61 20 63 6f 6e | "."grp".nreverse.-map.lambda.con |
| a5c0 | 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 74 2a 20 61 73 73 | s.car.cdr.--reduce-from.let*.ass |
| a5e0 | 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 20 6c 69 73 74 20 | oc.(acc).if.setcdr.it.push.list. |
| a600 | 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 23 24 20 2e 20 34 | (it).(acc).(acc).nil].19.(#$...4 |
| a620 | 32 31 32 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 67 72 6f 75 70 2d 62 79 20 27 65 64 65 62 75 | 2122)])).(put.'--group-by.'edebu |
| a640 | 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 61 74 65 20 4c 49 | g-form-spec.t).#@125.Separate.LI |
| a660 | 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 73 20 61 72 65 20 | ST.into.an.alist.whose.keys.are. |
| a680 | 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 20 6f 66 20 4c 49 | FN.applied.to.the.elements.of.LI |
| a6a0 | 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 60 65 71 75 61 6c | ST...Keys.are.compared.by.`equal |
| a6c0 | 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 20 27 2d 67 72 | '...(fn.FN.LIST)..(defalias.'-gr |
| a6e0 | 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 03 5c 33 30 33 01 | oup-by.#[514."\300\301\302.\303. |
| a700 | 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 32 30 33 5c 22 00 | \203;..@...!\304...\"\211\203\". |
| a720 | 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 06 42 5c 32 36 32 | \211..AB\241\210\202*...D..B\262 |
| a740 | 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 36 32 01 01 41 5c | ..\266\202\262.\210\211T\262..A\ |
| a760 | 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 5c 32 33 37 5c 32 | 262.\202..\266.\211\262.\"\237\2 |
| a780 | 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 33 37 42 5c 32 30 | 07".[-map.#[257."\211@.A\237B\20 |
| a7a0 | 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 30 20 61 73 73 6f | 7".[].3."\n\n(fn.N)"].nil.0.asso |
| a7c0 | 63 5d 20 31 33 20 28 23 24 20 2e 20 34 32 35 38 31 29 5d 29 0a 23 40 37 36 20 52 65 74 75 72 6e | c].13.(#$...42581)]).#@76.Return |
| a7e0 | 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 73 20 69 6e 20 4c | .a.new.list.of.all.elements.in.L |
| a800 | 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 20 53 45 50 20 4c | IST.separated.by.SEP...(fn.SEP.L |
| a820 | 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 65 20 23 5b 35 31 | IST)..(defalias.'-interpose.#[51 |
| a840 | 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 32 36 32 02 01 5c | 4."\300.\203...@.B\262..A\262..\ |
| a860 | 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 30 32 0f 00 5c 32 | 203\"..@..BB\262..A\262.\202..\2 |
| a880 | 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 34 32 39 37 30 29 | 11\237\207".[nil].6.(#$...42970) |
| a8a0 | 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 23 | ]).(byte-code."\300\301\302\303# |
| a8c0 | 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 | \300\301\304\303#\300\207".[func |
| a8e0 | 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 20 73 69 64 65 2d | tion-put.-interpose.pure.t.side- |
| a900 | 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 39 30 20 52 65 74 75 72 6e 20 61 20 6e 65 | effect-free].5).#@90.Return.a.ne |
| a920 | 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 6e 20 65 61 63 68 | w.list.of.the.first.item.in.each |
| a940 | 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 2e 0a 0a 28 66 6e | .list,.then.the.second.etc...(fn |
| a960 | 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 69 6e 74 65 72 | .&rest.LISTS)..(defalias.'-inter |
| a980 | 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 30 5c 33 30 31 5c | leave.#[128."\211\2055.\300\301\ |
| a9a0 | 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 5c 32 31 31 40 04 | 302.\"\2031..\303.\203&..@\211@. |
| a9c0 | 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 0e | B\262.\210\211T\262..A\262.\202. |
| a9e0 | 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 05 00 5c 32 31 31 | .\266.\304\305.\"\262.\202..\211 |
| aa00 | 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 3f 20 6e 75 6c 6c | \237\262.\207".[nil.-none\?.null |
| aa20 | 20 30 20 2d 6d 61 70 20 63 64 72 5d 20 37 20 28 23 24 20 2e 20 34 33 32 38 35 29 5d 29 0a 28 62 | .0.-map.cdr].7.(#$...43285)]).(b |
| aa40 | 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 33 30 30 5c | yte-code."\300\301\302\303#\300\ |
| aa60 | 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 301\304\303#\300\207".[function- |
| aa80 | 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 65 2d 65 66 66 65 | put.-interleave.pure.t.side-effe |
| aaa0 | 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d | ct-free].5).#@145.Anaphoric.form |
| aac0 | 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 65 6e 74 73 20 69 | .of.`-zip-with'...The.elements.i |
| aae0 | 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 6c 20 60 69 74 27 | n.list1.are.bound.as.symbol.`it' |
| ab00 | 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 20 73 79 6d 62 6f | ,.the.elements.in.list2.as.symbo |
| ab20 | 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 20 4c 49 53 54 32 | l.`other'...(fn.FORM.LIST1.LIST2 |
| ab40 | 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 28 6d 61 63 72 6f | )..(defalias.'--zip-with.'(macro |
| ab60 | 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 32 21 5c 33 30 30 | ...#[771."\300\301!\300\302!\300 |
| ab80 | 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 30 36 5c 33 30 37 | \303!\304.\305B...D...DE\306\307 |
| aba0 | 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 31 06 08 44 44 44 | ..E\304\310\311..DD\312\311..DDD |
| abc0 | 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 32 35 37 05 45 5c | \313.\f.\nE\314..D\314..D\257.E\ |
| abe0 | 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 22 72 65 73 75 6c | 315..DF\207".[make-symbol."resul |
| ac00 | 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 6c 29 20 77 68 69 | t"."list1"."list2".let.(nil).whi |
| ac20 | 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 21 63 64 72 20 6e | le.and.it.car.other.!cons.!cdr.n |
| ac40 | 72 65 76 65 72 73 65 5d 20 31 36 20 28 23 24 20 2e 20 34 33 36 39 38 29 5d 29 29 0a 28 70 75 74 | reverse].16.(#$...43698)])).(put |
| ac60 | 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 73 70 65 63 20 27 | .'--zip-with.'edebug-form-spec.' |
| ac80 | 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 70 20 74 68 65 20 | (form.form.form)).#@347.Zip.the. |
| aca0 | 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 75 73 69 6e 67 20 | two.lists.LIST1.and.LIST2.using. |
| acc0 | 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 69 6f 6e 20 69 73 | a.function.FN...This.function.is |
| ace0 | 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 73 20 66 69 72 73 | .applied.pairwise.taking.as.firs |
| ad00 | 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 31 20 61 6e 64 20 | t.argument.element.of.LIST1.and. |
| ad20 | 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 20 6f 66 20 4c 49 | as.second.argument.element.of.LI |
| ad40 | 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 69 6f 6e 2e 0a 0a | ST2.at.corresponding.position... |
| ad60 | 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 77 69 74 68 27 20 | The.anaphoric.form.`--zip-with'. |
| ad80 | 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 53 54 31 20 61 73 | binds.the.elements.from.LIST1.as |
| ada0 | 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 65 6e 74 73 20 66 | .symbol.`it',.and.the.elements.f |
| adc0 | 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 27 2e 0a 0a 28 66 | rom.LIST2.as.symbol.`other'...(f |
| ade0 | 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 61 73 20 27 2d 7a | n.FN.LIST1.LIST2)..(defalias.'-z |
| ae00 | 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 23 00 5c 32 31 31 | ip-with.#[771."\300...\203#.\211 |
| ae20 | 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 32 36 32 04 02 41 | \203#..@.@....\".B\262..A\262..A |
| ae40 | 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 6e 69 6c 5d 20 31 | \266\203\202...\237\207".[nil].1 |
| ae60 | 31 20 28 23 24 20 2e 20 34 34 31 38 34 29 5d 29 0a 23 40 34 39 32 20 5a 69 70 20 4c 49 53 54 53 | 1.(#$...44184)]).#@492.Zip.LISTS |
| ae80 | 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 20 6f 66 20 65 61 | .together...Group.the.head.of.ea |
| aea0 | 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 65 63 6f 6e 64 20 | ch.list,.followed.by.the.second. |
| aec0 | 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 20 73 6f 20 6f 6e | elements.of.each.list,.and.so.on |
| aee0 | 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 6e 65 64 0a 67 72 | ..The.lengths.of.the.returned.gr |
| af00 | 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 65 6e 67 74 68 20 | oupings.are.equal.to.the.length. |
| af20 | 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 2e 0a 0a 49 66 20 | of.the.shortest.input.list...If. |
| af40 | 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 61 72 67 75 6d 65 | two.lists.are.provided.as.argume |
| af60 | 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 61 73 20 61 20 6c | nts,.return.the.groupings.as.a.l |
| af80 | 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 73 65 2c 20 72 65 | ist.of.cons.cells..Otherwise,.re |
| afa0 | 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 61 73 20 61 20 6c 69 73 74 20 6f 66 20 | turn.the.groupings.as.a.list.of. |
| afc0 | 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 64 69 73 74 69 6e | lists...Please.note!.This.distin |
| afe0 | 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 61 6e 20 75 70 63 | ction.is.being.removed.in.an.upc |
| b000 | 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 20 49 66 20 79 6f | oming.3.0.release.of.Dash..If.yo |
| b020 | 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 73 65 20 2d 7a 69 | u.rely.on.this.behavior,.use.-zi |
| b040 | 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 20 4c 49 53 54 53 | p-pair.instead...(fn.&rest.LISTS |
| b060 | 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 5c 32 31 31 5c 32 | )..(defalias.'-zip.#[128."\211\2 |
| b080 | 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 33 30 33 5c 33 30 | 052.\300\301\302.\"\203..\303\30 |
| b0a0 | 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 02 5c 32 30 32 05 | 4.\".B\262.\303\305.\"\262.\202. |
| b0c0 | 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 00 5c 33 30 33 5c | .\211\237\262..G\306U\203/.\303\ |
| b0e0 | 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 20 5b 6e 69 6c 20 | 307.\"\2020.\211\262.\207".[nil. |
| b100 | 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 72 20 32 20 23 5b | -none\?.null.mapcar.car.cdr.2.#[ |
| b120 | 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 5c 6e 5c 6e 28 66 | 257."\211@.A@B\207".[].3."\n\n(f |
| b140 | 6e 20 49 54 29 22 5d 5d 20 35 20 28 23 24 20 2e 20 34 34 36 36 33 29 5d 29 0a 28 62 79 74 65 2d | n.IT)"]].5.(#$...44663)]).(byte- |
| b160 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c | code."\300\301\302\303#\300\301\ |
| b180 | 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e | 304\303#\305\306\301\"\207".[fun |
| b1a0 | 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 | ction-put.-zip.pure.t.side-effec |
| b1c0 | 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 7a 69 70 2d 70 61 69 72 5d 20 35 29 0a 23 40 | t-free.defalias.-zip-pair].5).#@ |
| b1e0 | 31 37 37 20 5a 69 70 20 4c 49 53 54 53 2c 20 77 69 74 68 20 46 49 4c 4c 2d 56 41 4c 55 45 20 70 | 177.Zip.LISTS,.with.FILL-VALUE.p |
| b200 | 61 64 64 65 64 20 6f 6e 74 6f 20 74 68 65 20 73 68 6f 72 74 65 72 20 6c 69 73 74 73 2e 20 54 68 | added.onto.the.shorter.lists..Th |
| b220 | 65 0a 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 67 72 6f 75 70 69 | e.lengths.of.the.returned.groupi |
| b240 | 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 | ngs.are.equal.to.the.length.of.t |
| b260 | 68 65 0a 6c 6f 6e 67 65 73 74 20 69 6e 70 75 74 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 49 4c 4c | he.longest.input.list...(fn.FILL |
| b280 | 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | -VALUE.&rest.LISTS)..(defalias.' |
| b2a0 | 2d 7a 69 70 2d 66 69 6c 6c 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 30 5c 33 30 | -zip-fill.#[385."\300\301\300\30 |
| b2c0 | 32 05 05 42 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2d 7a 69 70 20 2d 70 61 64 5d 20 | 2..B\"\"\207".[apply.-zip.-pad]. |
| b2e0 | 38 20 28 23 24 20 2e 20 34 35 35 34 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | 8.(#$...45540)]).(byte-code."\30 |
| b300 | 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c | 0\301\302\303#\300\301\304\303#\ |
| b320 | 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 2d 66 69 6c 6c | 300\207".[function-put.-zip-fill |
| b340 | 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 35 29 0a 23 40 32 | .pure.t.side-effect-free].5).#@2 |
| b360 | 34 31 20 55 6e 7a 69 70 20 4c 49 53 54 53 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 74 | 41.Unzip.LISTS...This.works.just |
| b380 | 20 6c 69 6b 65 20 60 2d 7a 69 70 27 20 62 75 74 20 74 61 6b 65 73 20 61 20 6c 69 73 74 20 6f 66 | .like.`-zip'.but.takes.a.list.of |
| b3a0 | 20 6c 69 73 74 73 20 69 6e 73 74 65 61 64 20 6f 66 0a 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d | .lists.instead.of.a.variable.num |
| b3c0 | 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 20 73 75 63 68 20 74 68 61 74 0a 0a 20 20 28 | ber.of.arguments,.such.that....( |
| b3e0 | 2d 75 6e 7a 69 70 20 28 2d 7a 69 70 20 4c 31 20 4c 32 20 4c 33 20 2e 2e 2e 29 29 0a 0a 69 73 20 | -unzip.(-zip.L1.L2.L3....))..is. |
| b400 | 69 64 65 6e 74 69 74 79 20 28 67 69 76 65 6e 20 74 68 61 74 20 74 68 65 20 6c 69 73 74 73 20 61 | identity.(given.that.the.lists.a |
| b420 | 72 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 | re.the.same.length)...See.also:. |
| b440 | 60 2d 7a 69 70 27 0a 0a 28 66 6e 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d | `-zip'..(fn.LISTS)..(defalias.'- |
| b460 | 75 6e 7a 69 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 | unzip.#[257."\300\301.\"\207".[a |
| b480 | 70 70 6c 79 20 2d 7a 69 70 5d 20 34 20 28 23 24 20 2e 20 34 35 39 32 33 29 5d 29 0a 23 40 31 31 | pply.-zip].4.(#$...45923)]).#@11 |
| b4a0 | 32 20 52 65 74 75 72 6e 20 61 6e 20 69 6e 66 69 6e 69 74 65 20 63 6f 70 79 20 6f 66 20 4c 49 53 | 2.Return.an.infinite.copy.of.LIS |
| b4c0 | 54 20 74 68 61 74 20 77 69 6c 6c 20 63 79 63 6c 65 20 74 68 72 6f 75 67 68 20 74 68 65 0a 65 6c | T.that.will.cycle.through.the.el |
| b4e0 | 65 6d 65 6e 74 73 20 61 6e 64 20 72 65 70 65 61 74 20 66 72 6f 6d 20 74 68 65 20 62 65 67 69 6e | ements.and.repeat.from.the.begin |
| b500 | 6e 69 6e 67 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 79 | ning...(fn.LIST)..(defalias.'-cy |
| b520 | 63 6c 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 31 31 01 5c 32 34 34 5c | cle.#[257."\300\301.\"\211.\244\ |
| b540 | 32 30 37 22 20 5b 2d 6d 61 70 20 69 64 65 6e 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 34 36 32 | 207".[-map.identity].4.(#$...462 |
| b560 | 34 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 | 42)]).(byte-code."\300\301\302\3 |
| b580 | 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 | 03#\300\301\304\303#\300\207".[f |
| b5a0 | 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 79 63 6c 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | unction-put.-cycle.pure.t.side-e |
| b5c0 | 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 32 38 20 41 70 70 65 6e 64 73 20 46 49 4c | ffect-free].5).#@128.Appends.FIL |
| b5e0 | 4c 2d 56 41 4c 55 45 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 65 61 63 68 20 6c 69 73 74 20 | L-VALUE.to.the.end.of.each.list. |
| b600 | 69 6e 20 4c 49 53 54 53 20 73 75 63 68 20 74 68 61 74 20 74 68 65 79 0a 77 69 6c 6c 20 61 6c 6c | in.LISTS.such.that.they.will.all |
| b620 | 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 28 66 6e 20 46 49 4c 4c | .have.the.same.length...(fn.FILL |
| b640 | 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | -VALUE.&rest.LISTS)..(defalias.' |
| b660 | 2d 70 61 64 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 33 30 32 5c 33 30 33 5c | -pad.#[385."\300\301.\"\302\303\ |
| b680 | 33 30 34 03 5c 22 21 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 | 304.\"!\305\306\307\310\311\312. |
| b6a0 | 09 06 07 5c 22 5c 33 31 33 5c 22 5c 33 31 34 5c 33 31 35 25 03 5c 22 5c 32 30 37 22 20 5b 2d 61 | ...\"\313\"\314\315%.\"\207".[-a |
| b6c0 | 6e 6e 6f 74 61 74 65 20 6c 65 6e 67 74 68 20 2d 6d 61 78 20 2d 6d 61 70 20 63 61 72 20 6d 61 70 | nnotate.length.-max.-map.car.map |
| b6e0 | 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 01 41 5c 33 | car.make-byte-code.257."\302.A\3 |
| b700 | 30 33 5c 33 30 31 04 40 5a 5c 33 30 30 5c 22 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 | 03\301.@Z\300\"\"\207".vconcat.v |
| b720 | 65 63 74 6f 72 20 5b 61 70 70 65 6e 64 20 2d 72 65 70 65 61 74 5d 20 36 20 22 5c 6e 5c 6e 28 66 | ector.[append.-repeat].6."\n\n(f |
| b740 | 6e 20 49 54 29 22 5d 20 31 32 20 28 23 24 20 2e 20 34 36 35 34 39 29 5d 29 0a 23 40 31 34 31 20 | n.IT)"].12.(#$...46549)]).#@141. |
| b760 | 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 20 63 65 6c 6c 73 20 77 68 65 72 | Return.a.list.of.cons.cells.wher |
| b780 | 65 20 65 61 63 68 20 63 65 6c 6c 20 69 73 20 46 4e 20 61 70 70 6c 69 65 64 20 74 6f 20 65 61 63 | e.each.cell.is.FN.applied.to.eac |
| b7a0 | 68 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 70 61 69 72 65 64 20 77 69 74 68 20 74 68 | h.element.of.LIST.paired.with.th |
| b7c0 | 65 20 75 6e 6d 6f 64 69 66 69 65 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 | e.unmodified.element.of.LIST...( |
| b7e0 | 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6e 6e 6f 74 61 74 | fn.FN.LIST)..(defalias.'-annotat |
| b800 | 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d | e.#[514."\300\301..\".\"\207".[- |
| b820 | 7a 69 70 20 2d 6d 61 70 5d 20 36 20 28 23 24 20 2e 20 34 36 39 34 34 29 5d 29 0a 23 40 35 31 20 | zip.-map].6.(#$...46944)]).#@51. |
| b840 | 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 61 6e 6e 6f 74 61 74 65 27 | Anaphoric.version.of.`-annotate' |
| b860 | 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d | ...(fn.FORM.LIST)..(defalias.'-- |
| b880 | 61 6e 6e 6f 74 61 74 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | annotate.'(macro...#[514."\300\3 |
| b8a0 | 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 61 6e 6e 6f 74 61 74 65 20 6c 61 6d 62 64 | 01\302.E.E\207".[-annotate.lambd |
| b8c0 | 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 34 37 31 36 38 29 5d 29 29 0a 28 70 75 74 20 27 | a.(it)].6.(#$...47168)])).(put.' |
| b8e0 | 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 | --annotate.'edebug-form-spec.'(f |
| b900 | 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 34 30 20 48 65 6c 70 65 72 20 66 6f 72 20 60 2d 74 61 | orm.form)).#@140.Helper.for.`-ta |
| b920 | 62 6c 65 27 20 61 6e 64 20 60 2d 74 61 62 6c 65 2d 66 6c 61 74 27 2e 0a 0a 49 66 20 61 20 6c 69 | ble'.and.`-table-flat'...If.a.li |
| b940 | 73 74 20 6f 76 65 72 66 6c 6f 77 73 2c 20 63 61 72 72 79 20 74 6f 20 74 68 65 20 72 69 67 68 74 | st.overflows,.carry.to.the.right |
| b960 | 20 61 6e 64 20 72 65 73 65 74 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 53 20 | .and.reset.the.list...(fn.LISTS. |
| b980 | 52 45 53 54 4f 52 45 2d 4c 49 53 54 53 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 29 1f 0a 28 64 65 | RESTORE-LISTS.&optional.RE)..(de |
| b9a0 | 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 20 23 5b 37 37 30 20 | falias.'dash--table-carry.#[770. |
| b9c0 | 22 02 40 5c 32 30 36 08 00 02 5c 33 30 30 5c 32 33 32 3f 5c 32 30 35 43 00 02 02 40 5c 32 34 30 | ".@\206...\300\232?\205C...@\240 |
| b9e0 | 5c 32 31 30 02 5c 32 31 31 41 40 5c 32 31 31 02 41 02 41 5c 32 34 30 5c 32 31 30 5c 32 36 36 03 | \210.\211A@\211.A.A\240\210\266. |
| ba00 | 02 41 5c 32 36 32 03 01 41 5c 32 36 32 02 5c 32 31 31 5c 32 30 33 00 00 5c 32 31 31 40 5c 32 33 | .A\262..A\262.\211\203..\211@\23 |
| ba20 | 37 01 5c 32 31 31 41 02 02 41 40 42 5c 32 34 30 5c 32 36 36 03 5c 32 31 31 5c 33 30 31 5c 32 34 | 7.\211A..A@B\240\266.\211\301\24 |
| ba40 | 30 5c 32 31 30 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 28 6e 69 6c | 0\210\211A\262.\202..\207".[(nil |
| ba60 | 29 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 34 37 33 37 37 29 5d 29 0a 23 40 33 35 32 20 43 6f | ).nil].8.(#$...47377)]).#@352.Co |
| ba80 | 6d 70 75 74 65 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 53 20 75 73 69 | mpute.outer.product.of.LISTS.usi |
| baa0 | 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 |
| bac0 | 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 |
| bae0 | 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 |
| bb00 | 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 |
| bb20 | 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 |
| bb40 | 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 |
| bb60 | 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... |
| bb80 | 54 68 65 20 64 69 6d 65 6e 73 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 28 | The.dimension.of.the.result.is.( |
| bba0 | 6c 65 6e 67 74 68 20 6c 69 73 74 73 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 62 6c | length.lists)...See.also:.`-tabl |
| bbc0 | 65 2d 66 6c 61 74 27 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 | e-flat'..(fn.FN.&rest.LISTS)..(d |
| bbe0 | 65 66 61 6c 69 61 73 20 27 2d 74 61 62 6c 65 20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 | efalias.'-table.#[385."\300.!\30 |
| bc00 | 31 02 21 5c 33 30 32 03 47 5c 33 30 33 5c 22 01 40 5c 32 30 33 31 00 5c 33 30 34 05 5c 33 30 35 | 1.!\302.G\303\".@\2031.\304.\305 |
| bc20 | 5c 33 30 36 06 07 5c 22 5c 22 01 5c 32 31 31 02 02 40 42 5c 32 34 30 5c 32 36 36 02 04 5c 32 31 | \306..\"\".\211..@B\240\266..\21 |
| bc40 | 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 37 05 05 04 23 5c 32 36 36 02 5c 32 30 32 0b 00 5c 33 | 1@A\240\210\307...#\266.\202..\3 |
| bc60 | 30 31 01 21 40 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 | 01.!@\237\207".[copy-sequence.la |
| bc80 | 73 74 20 6d 61 6b 65 2d 6c 69 73 74 20 6e 69 6c 20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72 20 | st.make-list.nil.apply.-map.car. |
| bca0 | 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 5d 20 31 30 20 28 23 24 20 2e 20 34 37 37 34 | dash--table-carry].10.(#$...4774 |
| bcc0 | 32 29 5d 29 0a 23 40 35 33 39 20 43 6f 6d 70 75 74 65 20 66 6c 61 74 20 6f 75 74 65 72 20 70 72 | 2)]).#@539.Compute.flat.outer.pr |
| bce0 | 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 53 20 75 73 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 46 4e | oduct.of.LISTS.using.function.FN |
| bd00 | 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 68 61 76 65 20 74 | ...The.function.FN.should.have.t |
| bd20 | 68 65 20 73 61 6d 65 20 61 72 69 74 79 20 61 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 73 | he.same.arity.as.the.number.of.s |
| bd40 | 75 70 70 6c 69 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 20 6f 75 74 65 72 20 70 72 6f 64 75 63 | upplied.lists...The.outer.produc |
| bd60 | 74 20 69 73 20 63 6f 6d 70 75 74 65 64 20 62 79 20 61 70 70 6c 79 69 6e 67 20 66 6e 20 74 6f 20 | t.is.computed.by.applying.fn.to. |
| bd80 | 61 6c 6c 20 70 6f 73 73 69 62 6c 65 0a 63 6f 6d 62 69 6e 61 74 69 6f 6e 73 20 63 72 65 61 74 65 | all.possible.combinations.create |
| bda0 | 64 20 62 79 20 74 61 6b 69 6e 67 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 65 61 63 | d.by.taking.one.element.from.eac |
| bdc0 | 68 20 6c 69 73 74 20 69 6e 0a 6f 72 64 65 72 2e 20 20 54 68 65 20 72 65 73 75 6c 74 73 20 61 72 | h.list.in.order...The.results.ar |
| bde0 | 65 20 66 6c 61 74 74 65 6e 65 64 2c 20 69 67 6e 6f 72 69 6e 67 20 74 68 65 20 74 65 6e 73 6f 72 | e.flattened,.ignoring.the.tensor |
| be00 | 20 73 74 72 75 63 74 75 72 65 0a 6f 66 20 74 68 65 20 72 65 73 75 6c 74 2e 20 20 54 68 69 73 20 | .structure.of.the.result...This. |
| be20 | 69 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 63 61 6c 6c 69 6e 67 3a 0a 0a 20 20 28 2d 66 | is.equivalent.to.calling:....(-f |
| be40 | 6c 61 74 74 65 6e 2d 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 6c 69 73 74 73 29 29 20 28 61 70 | latten-n.(1-.(length.lists)).(ap |
| be60 | 70 6c 79 20 5c 3d 27 2d 74 61 62 6c 65 20 66 6e 20 6c 69 73 74 73 29 29 0a 0a 62 75 74 20 74 68 | ply.\='-table.fn.lists))..but.th |
| be80 | 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 68 65 72 65 20 69 73 20 6d 75 63 68 20 6d 6f | e.implementation.here.is.much.mo |
| bea0 | 72 65 20 65 66 66 69 63 69 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 | re.efficient...See.also:.`-flatt |
| bec0 | 65 6e 2d 6e 27 2c 20 60 2d 74 61 62 6c 65 27 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 4c 49 | en-n',.`-table'..(fn.FN.&rest.LI |
| bee0 | 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 62 6c 65 2d 66 6c 61 74 20 23 5b 33 | STS)..(defalias.'-table-flat.#[3 |
| bf00 | 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 30 32 01 40 5c 32 30 33 28 00 5c 33 30 33 | 85."\300.!\301.!\302.@\203(.\303 |
| bf20 | 05 5c 33 30 34 5c 33 30 35 06 07 5c 22 5c 22 5c 32 31 31 02 42 5c 32 36 32 02 04 5c 32 31 31 40 | .\304\305..\"\"\211.B\262..\211@ |
| bf40 | 41 5c 32 34 30 5c 32 31 30 5c 33 30 36 05 05 5c 22 5c 32 36 36 02 5c 32 30 32 07 00 5c 32 31 31 | A\240\210\306..\"\266.\202..\211 |
| bf60 | 5c 32 33 37 5c 32 30 37 22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6e 69 | \237\207".[copy-sequence.last.ni |
| bf80 | 6c 20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72 20 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 | l.apply.-map.car.dash--table-car |
| bfa0 | 72 79 5d 20 31 30 20 28 23 24 20 2e 20 34 38 33 33 31 29 5d 29 0a 23 40 32 33 34 20 54 61 6b 65 | ry].10.(#$...48331)]).#@234.Take |
| bfc0 | 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 6e 64 20 66 65 77 65 72 20 74 68 61 6e 20 74 68 | .a.function.FN.and.fewer.than.th |
| bfe0 | 65 20 6e 6f 72 6d 61 6c 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 46 4e 2c 0a 61 6e 64 20 72 65 | e.normal.arguments.to.FN,.and.re |
| c000 | 74 75 72 6e 20 61 20 66 6e 20 74 68 61 74 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 | turn.a.fn.that.takes.a.variable. |
| c020 | 6e 75 6d 62 65 72 20 6f 66 20 61 64 64 69 74 69 6f 6e 61 6c 20 41 52 47 53 2e 0a 57 68 65 6e 20 | number.of.additional.ARGS..When. |
| c040 | 63 61 6c 6c 65 64 2c 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 63 61 | called,.the.returned.function.ca |
| c060 | 6c 6c 73 20 46 4e 20 77 69 74 68 20 41 52 47 53 20 66 69 72 73 74 20 61 6e 64 0a 74 68 65 6e 20 | lls.FN.with.ARGS.first.and.then. |
| c080 | 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 73 2e 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 41 | additional.args...(fn.FN.&rest.A |
| c0a0 | 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 61 6c 20 23 5b 33 38 35 20 | RGS)..(defalias.'-partial.#[385. |
| c0c0 | 22 5c 33 30 30 5c 33 30 31 03 03 23 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 6c 79 2d 70 | "\300\301..#\207".[apply.apply-p |
| c0e0 | 61 72 74 69 61 6c 6c 79 5d 20 36 20 28 23 24 20 2e 20 34 39 30 38 34 29 5d 29 0a 23 40 31 35 31 | artially].6.(#$...49084)]).#@151 |
| c100 | 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 65 | .Return.the.index.of.the.first.e |
| c120 | 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 4c 49 53 54 20 77 68 69 63 68 0a 69 | lement.in.the.given.LIST.which.i |
| c140 | 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 65 72 79 20 65 6c 65 6d 65 6e 74 20 45 4c 45 | s.equal.to.the.query.element.ELE |
| c160 | 4d 2c 20 6f 72 20 6e 69 6c 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 0a 73 75 63 68 20 65 6c | M,.or.nil.if.there.is.no.such.el |
| c180 | 65 6d 65 6e 74 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | ement...(fn.ELEM.LIST)..(defalia |
| c1a0 | 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 40 5c | s.'-elem-index.#[514."\300..\"@\ |
| c1c0 | 32 30 37 22 20 5b 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 5d 20 35 20 28 23 24 20 2e 20 34 39 34 | 207".[-elem-indices].5.(#$...494 |
| c1e0 | 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 30 32 5c 33 | 09)]).(byte-code."\300\301\302\3 |
| c200 | 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 | 03#\300\301\304\303#\300\207".[f |
| c220 | 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 6c 65 6d 2d 69 6e 64 65 78 20 70 75 72 65 20 74 20 73 | unction-put.-elem-index.pure.t.s |
| c240 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 31 33 20 52 65 74 75 72 6e | ide-effect-free].5).#@113.Return |
| c260 | 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 | .the.indices.of.all.elements.in. |
| c280 | 4c 49 53 54 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 65 72 79 0a 65 6c 65 6d 65 6e 74 20 | LIST.equal.to.the.query.element. |
| c2a0 | 45 4c 45 4d 2c 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 45 | ELEM,.in.ascending.order...(fn.E |
| c2c0 | 4c 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 69 | LEM.LIST)..(defalias.'-elem-indi |
| c2e0 | 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 22 02 5c 22 5c 32 30 | ces.#[514."\300\301\302.\".\"\20 |
| c300 | 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 2d 70 61 72 74 69 61 6c 20 65 71 75 61 6c | 7".[-find-indices.-partial.equal |
| c320 | 5d 20 36 20 28 23 24 20 2e 20 34 39 37 35 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].6.(#$...49754)]).(byte-code."\ |
| c340 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 | 300\301\302\303#\300\301\304\303 |
| c360 | 23 5c 33 30 30 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 69 | #\300\207".[function-put.-elem-i |
| c380 | 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 | ndices.pure.t.side-effect-free]. |
| c3a0 | 35 29 0a 23 40 31 31 31 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 | 5).#@111.Return.the.indices.of.a |
| c3c0 | 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 73 61 74 69 73 66 79 69 6e 67 20 74 | ll.elements.in.LIST.satisfying.t |
| c3e0 | 68 65 0a 70 72 65 64 69 63 61 74 65 20 50 52 45 44 2c 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 | he.predicate.PRED,.in.ascending. |
| c400 | 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | order...(fn.PRED.LIST)..(defalia |
| c420 | 73 20 27 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 | s.'-find-indices.#[514."\300\301 |
| c440 | 5c 33 30 32 03 5c 33 30 33 01 5c 32 30 33 24 00 01 40 06 07 01 21 5c 32 30 35 14 00 01 43 04 42 | \302.\303.\203$..@...!\205...C.B |
| c460 | 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 05 00 | \262.\210\211T\262..A\262.\202.. |
| c480 | 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 | \266.\211\237\262.\"\207".[apply |
| c4a0 | 20 61 70 70 65 6e 64 20 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 35 30 30 38 39 29 5d 29 | .append.nil.0].10.(#$...50089)]) |
| c4c0 | 0a 23 40 35 35 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e | .#@55.Anaphoric.version.of.`-fin |
| c4e0 | 64 2d 69 6e 64 69 63 65 73 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 | d-indices'...(fn.FORM.LIST)..(de |
| c500 | 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 27 28 6d 61 63 72 6f 20 2e | falias.'--find-indices.'(macro.. |
| c520 | 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".[- |
| c540 | 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 | find-indices.lambda.(it)].6.(#$. |
| c560 | 2e 20 35 30 33 37 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 | ..50374)])).(put.'--find-indices |
| c580 | 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 | .'edebug-form-spec.'(form.form)) |
| c5a0 | 0a 23 40 31 38 36 20 54 61 6b 65 20 61 20 70 72 65 64 69 63 61 74 65 20 50 52 45 44 20 61 6e 64 | .#@186.Take.a.predicate.PRED.and |
| c5c0 | 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 | .a.LIST.and.return.the.index.of. |
| c5e0 | 74 68 65 0a 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 6c 69 73 74 20 73 61 | the.first.element.in.the.list.sa |
| c600 | 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69 63 61 74 65 2c 20 6f 72 20 6e 69 6c 20 69 | tisfying.the.predicate,.or.nil.i |
| c620 | 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 65 | f.there.is.no.such.element...See |
| c640 | 20 61 6c 73 6f 20 60 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f | .also.`-first'...(fn.PRED.LIST). |
| c660 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c | .(defalias.'-find-index.#[514."\ |
| c680 | 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 5d 20 35 20 | 300..\"@\207".[-find-indices].5. |
| c6a0 | 28 23 24 20 2e 20 35 30 35 39 39 29 5d 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 63 20 76 65 | (#$...50599)]).#@53.Anaphoric.ve |
| c6c0 | 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 69 6e 64 65 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 | rsion.of.`-find-index'...(fn.FOR |
| c6e0 | 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 65 78 | M.LIST)..(defalias.'--find-index |
| c700 | 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 |
| c720 | 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 65 78 20 6c 61 6d 62 64 61 20 28 69 74 29 | .E\207".[-find-index.lambda.(it) |
| c740 | 5d 20 36 20 28 23 24 20 2e 20 35 30 38 36 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 | ].6.(#$...50868)])).(put.'--find |
| c760 | 2d 69 6e 64 65 78 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 | -index.'edebug-form-spec.'(form. |
| c780 | 66 6f 72 6d 29 29 0a 23 40 31 38 34 20 54 61 6b 65 20 61 20 70 72 65 64 69 63 61 74 65 20 50 52 | form)).#@184.Take.a.predicate.PR |
| c7a0 | 45 44 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 6e 64 | ED.and.a.LIST.and.return.the.ind |
| c7c0 | 65 78 20 6f 66 20 74 68 65 0a 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 6c 69 | ex.of.the.last.element.in.the.li |
| c7e0 | 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69 63 61 74 65 2c 20 6f 72 20 | st.satisfying.the.predicate,.or. |
| c800 | 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e | nil.if.there.is.no.such.element. |
| c820 | 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 | ..See.also.`-last'...(fn.PRED.LI |
| c840 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 | ST)..(defalias.'-find-last-index |
| c860 | 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 5c 22 21 5c 32 30 37 22 20 5b 2d 6c 61 73 | .#[514."\300\301..\"!\207".[-las |
| c880 | 74 2d 69 74 65 6d 20 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 5d 20 36 20 28 23 24 20 2e 20 35 31 | t-item.-find-indices].6.(#$...51 |
| c8a0 | 30 38 35 29 5d 29 0a 23 40 35 38 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 | 085)]).#@58.Anaphoric.version.of |
| c8c0 | 20 60 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c | .`-find-last-index'...(fn.FORM.L |
| c8e0 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 | IST)..(defalias.'--find-last-ind |
| c900 | 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | ex.'(macro...#[514."\300\301\302 |
| c920 | 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 6c 61 6d 62 | .E.E\207".[-find-last-index.lamb |
| c940 | 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 35 31 33 37 32 29 5d 29 29 0a 23 40 31 32 33 | da.(it)].6.(#$...51372)])).#@123 |
| c960 | 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 68 6f 73 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 | .Return.a.list.whose.elements.ar |
| c980 | 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 20 73 65 6c 65 63 74 65 64 0a 61 73 | e.elements.from.LIST.selected.as |
| c9a0 | 20 60 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f 72 20 61 6c 6c 20 69 20 66 72 6f 6d 20 49 | .`(nth.i.list)`.for.all.i.from.I |
| c9c0 | 4e 44 49 43 45 53 2e 0a 0a 28 66 6e 20 49 4e 44 49 43 45 53 20 4c 49 53 54 29 1f 0a 28 64 65 66 | NDICES...(fn.INDICES.LIST)..(def |
| c9e0 | 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 | alias.'-select-by-indices.#[514. |
| ca00 | 22 5c 33 30 30 02 5c 33 30 31 01 5c 32 30 33 1c 00 01 40 5c 32 31 31 05 38 04 42 5c 32 36 32 04 | "\300.\301.\203...@\211.8.B\262. |
| ca20 | 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 03 00 5c 32 36 36 02 | \210\211T\262..A\262.\202..\266. |
| ca40 | 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 35 31 | \211\237\207".[nil.0].8.(#$...51 |
| ca60 | 35 35 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | 553)]).(byte-code."\300\301\302\ |
| ca80 | 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b | 303#\300\301\304\303#\300\207".[ |
| caa0 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 20 | function-put.-select-by-indices. |
| cac0 | 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 35 29 0a 23 40 32 38 | pure.t.side-effect-free].5).#@28 |
| cae0 | 33 20 53 65 6c 65 63 74 20 43 4f 4c 55 4d 4e 53 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 | 3.Select.COLUMNS.from.TABLE...TA |
| cb00 | 42 4c 45 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 77 68 65 72 65 20 65 61 63 | BLE.is.a.list.of.lists.where.eac |
| cb20 | 68 20 65 6c 65 6d 65 6e 74 20 72 65 70 72 65 73 65 6e 74 73 20 6f 6e 65 20 72 6f 77 2e 0a 49 74 | h.element.represents.one.row..It |
| cb40 | 20 69 73 20 61 73 73 75 6d 65 64 20 65 61 63 68 20 72 6f 77 20 68 61 73 20 74 68 65 20 73 61 6d | .is.assumed.each.row.has.the.sam |
| cb60 | 65 20 6c 65 6e 67 74 68 2e 0a 0a 45 61 63 68 20 72 6f 77 20 69 73 20 74 72 61 6e 73 66 6f 72 6d | e.length...Each.row.is.transform |
| cb80 | 65 64 20 73 75 63 68 20 74 68 61 74 20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 | ed.such.that.only.the.specified. |
| cba0 | 43 4f 4c 55 4d 4e 53 20 61 72 65 0a 73 65 6c 65 63 74 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a | COLUMNS.are.selected...See.also: |
| cbc0 | 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 | .`-select-column',.`-select-by-i |
| cbe0 | 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d 4e 53 20 54 41 42 4c 45 29 1f 0a 28 64 65 | ndices'..(fn.COLUMNS.TABLE)..(de |
| cc00 | 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 20 23 5b 35 31 34 20 22 5c | falias.'-select-columns.#[514."\ |
| cc20 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 | 300\301\302\303\304\305..!\306\" |
| cc40 | 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 | \307\310%.\"\207".[mapcar.make-b |
| cc60 | 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 |
| cc80 | 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 | concat.vector.[-select-by-indice |
| cca0 | 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 39 20 28 23 24 20 2e 20 35 31 39 33 | s].4."\n\n(fn.IT)"].9.(#$...5193 |
| ccc0 | 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 33 30 | 8)]).(byte-code."\300\301\302\30 |
| cce0 | 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 | 3#\300\301\304\303#\300\207".[fu |
| cd00 | 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 20 70 75 72 65 20 | nction-put.-select-columns.pure. |
| cd20 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 35 37 20 53 65 6c | t.side-effect-free].5).#@257.Sel |
| cd40 | 65 63 74 20 43 4f 4c 55 4d 4e 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 73 | ect.COLUMN.from.TABLE...TABLE.is |
| cd60 | 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 6d | .a.list.of.lists.where.each.elem |
| cd80 | 65 6e 74 20 72 65 70 72 65 73 65 6e 74 73 20 6f 6e 65 20 72 6f 77 2e 0a 49 74 20 69 73 20 61 73 | ent.represents.one.row..It.is.as |
| cda0 | 73 75 6d 65 64 20 65 61 63 68 20 72 6f 77 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 | sumed.each.row.has.the.same.leng |
| cdc0 | 74 68 2e 0a 0a 54 68 65 20 73 69 6e 67 6c 65 20 73 65 6c 65 63 74 65 64 20 63 6f 6c 75 6d 6e 20 | th...The.single.selected.column. |
| cde0 | 69 73 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 6c 69 73 74 2e 0a 0a 53 65 65 20 61 6c 73 6f | is.returned.as.a.list...See.also |
| ce00 | 3a 20 60 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 | :.`-select-columns',.`-select-by |
| ce20 | 2d 69 6e 64 69 63 65 73 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d 4e 20 54 41 42 4c 45 29 1f 0a 28 64 | -indices'..(fn.COLUMN.TABLE)..(d |
| ce40 | 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 20 23 5b 35 31 34 20 22 5c | efalias.'-select-column.#[514."\ |
| ce60 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 | 300\301\302\303\304\305\306\307. |
| ce80 | 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 | .!\310\"\311\312%.\"\"\207".[app |
| cea0 | 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 | ly.append.mapcar.make-byte-code. |
| cec0 | 32 35 37 20 22 5c 33 30 31 5c 33 30 30 43 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 | 257."\301\300C.\"\207".vconcat.v |
| cee0 | 65 63 74 6f 72 20 5b 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 5d 20 34 20 22 5c 6e | ector.[-select-by-indices].4."\n |
| cf00 | 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 31 20 28 23 24 20 2e 20 35 32 35 34 31 29 5d 29 0a 28 62 | \n(fn.IT)"].11.(#$...52541)]).(b |
| cf20 | 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 33 30 30 5c | yte-code."\300\301\302\303#\300\ |
| cf40 | 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 301\304\303#\300\207".[function- |
| cf60 | 70 75 74 20 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | put.-select-column.pure.t.side-e |
| cf80 | 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 35 33 20 54 68 72 65 61 64 20 74 68 65 20 | ffect-free].5).#@253.Thread.the. |
| cfa0 | 65 78 70 72 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 6e 73 65 72 74 20 58 | expr.through.the.forms..Insert.X |
| cfc0 | 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 | .as.the.second.item.in.the.first |
| cfe0 | 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66 20 69 74 | .form,.making.a.list.of.it.if.it |
| d000 | 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68 65 72 65 | .is.not.a.list.already..If.there |
| d020 | 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 20 74 68 65 20 66 69 72 73 | .are.more.forms,.insert.the.firs |
| d040 | 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 73 65 63 6f 6e 64 20 69 74 65 6d 20 69 6e 20 73 65 63 | t.form.as.the.second.item.in.sec |
| d060 | 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 6c 20 | ond.form,.etc...(fn.X.&optional. |
| d080 | 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 3e 20 | FORM.&rest.MORE)..(defalias.'->. |
| d0a0 | 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 32 31 | '(macro...#[641.".\204...\207\21 |
| d0c0 | 31 5c 32 30 34 1b 00 01 3c 5c 32 30 33 17 00 01 40 03 03 41 42 42 5c 32 30 37 01 03 44 5c 32 30 | 1\204...<\203...@..ABB\207..D\20 |
| d0e0 | 37 5c 33 30 30 5c 32 31 31 04 04 45 02 42 42 5c 32 30 37 22 20 5b 2d 3e 5d 20 37 20 28 23 24 20 | 7\300\211..E.BB\207".[->].7.(#$. |
| d100 | 2e 20 35 33 31 34 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 | ..53141)])).(put.'->.'edebug-for |
| d120 | 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 26 72 65 73 74 20 5b 26 6f 72 20 73 79 6d 62 6f 6c 70 | m-spec.'(form.&rest.[&or.symbolp |
| d140 | 20 28 73 65 78 70 20 26 72 65 73 74 20 66 6f 72 6d 29 5d 29 29 0a 23 40 32 34 39 20 54 68 72 65 | .(sexp.&rest.form)])).#@249.Thre |
| d160 | 61 64 20 74 68 65 20 65 78 70 72 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 | ad.the.expr.through.the.forms..I |
| d180 | 6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 | nsert.X.as.the.last.item.in.the. |
| d1a0 | 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 | first.form,.making.a.list.of.it. |
| d1c0 | 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 | if.it.is.not.a.list.already..If. |
| d1e0 | 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 65 | there.are.more.forms,.insert.the |
| d200 | 20 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 | .first.form.as.the.last.item.in. |
| d220 | 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e | second.form,.etc...(fn.X.&option |
| d240 | 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | al.FORM.&rest.MORE)..(defalias.' |
| d260 | 2d 3e 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 | ->>.'(macro...#[641.".\204...\20 |
| d280 | 37 5c 32 31 31 5c 32 30 34 19 00 01 3c 5c 32 30 33 15 00 5c 33 30 30 02 04 43 5c 22 5c 32 30 37 | 7\211\204...<\203..\300..C\"\207 |
| d2a0 | 01 03 44 5c 32 30 37 5c 33 30 31 5c 32 31 31 04 04 45 02 42 42 5c 32 30 37 22 20 5b 61 70 70 65 | ..D\207\301\211..E.BB\207".[appe |
| d2c0 | 6e 64 20 2d 3e 3e 5d 20 37 20 28 23 24 20 2e 20 35 33 35 39 36 29 5d 29 29 0a 28 70 75 74 20 27 | nd.->>].7.(#$...53596)])).(put.' |
| d2e0 | 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 23 40 32 36 39 | ->>.'edebug-form-spec.'->).#@269 |
| d300 | 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 58 2c 20 74 | .Starting.with.the.value.of.X,.t |
| d320 | 68 72 65 61 64 20 65 61 63 68 20 65 78 70 72 65 73 73 69 6f 6e 20 74 68 72 6f 75 67 68 20 46 4f | hread.each.expression.through.FO |
| d340 | 52 4d 53 2e 0a 0a 49 6e 73 65 72 74 20 58 20 61 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 73 | RMS...Insert.X.at.the.position.s |
| d360 | 69 67 6e 69 66 69 65 64 20 62 79 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 69 6e 20 74 | ignified.by.the.symbol.`it'.in.t |
| d380 | 68 65 20 66 69 72 73 74 0a 66 6f 72 6d 2e 20 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 | he.first.form...If.there.are.mor |
| d3a0 | 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 | e.forms,.insert.the.first.form.a |
| d3c0 | 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 0a 73 69 67 6e 69 66 69 65 64 20 62 79 20 60 69 74 27 | t.the.position.signified.by.`it' |
| d3e0 | 20 69 6e 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 | .in.in.second.form,.etc...(fn.X. |
| d400 | 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 3e 20 27 28 6d | &rest.FORMS)..(defalias.'-->.'(m |
| d420 | 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 42 42 5c 32 30 37 22 | acro...#[385."\300.\301.BBB\207" |
| d440 | 20 5b 2d 61 73 2d 3e 20 69 74 5d 20 36 20 28 23 24 20 2e 20 35 34 30 31 37 29 5d 29 29 0a 28 70 | .[-as->.it].6.(#$...54017)])).(p |
| d460 | 75 74 20 27 2d 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d | ut.'-->.'edebug-form-spec.'(form |
| d480 | 20 62 6f 64 79 29 29 0a 23 40 32 31 32 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 56 41 4c 55 | .body)).#@212.Starting.with.VALU |
| d4a0 | 45 2c 20 74 68 72 65 61 64 20 56 41 52 49 41 42 4c 45 20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 | E,.thread.VARIABLE.through.FORMS |
| d4c0 | 2e 0a 0a 49 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 62 69 6e 64 20 56 41 52 49 41 | ...In.the.first.form,.bind.VARIA |
| d4e0 | 42 4c 45 20 74 6f 20 56 41 4c 55 45 2e 20 20 49 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 66 6f 72 | BLE.to.VALUE...In.the.second.for |
| d500 | 6d 2c 20 62 69 6e 64 0a 56 41 52 49 41 42 4c 45 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 6f | m,.bind.VARIABLE.to.the.result.o |
| d520 | 66 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 0a | f.the.first.form,.and.so.forth.. |
| d540 | 0a 28 66 6e 20 56 41 4c 55 45 20 56 41 52 49 41 42 4c 45 20 26 72 65 73 74 20 46 4f 52 4d 53 29 | .(fn.VALUE.VARIABLE.&rest.FORMS) |
| d560 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 73 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 | ..(defalias.'-as->.'(macro...#[6 |
| d580 | 34 32 20 22 5c 32 31 31 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 02 04 44 43 5c 33 30 31 03 | 42."\211\204...\207\300..DC\301. |
| d5a0 | 40 39 5c 32 30 33 19 00 03 40 05 44 5c 32 30 32 1b 00 03 40 05 05 41 42 42 42 45 5c 32 30 37 22 | @9\203...@.D\202...@..ABBBE\207" |
| d5c0 | 20 5b 6c 65 74 20 2d 61 73 2d 3e 5d 20 39 20 28 23 24 20 2e 20 35 34 34 31 34 29 5d 29 29 0a 28 | .[let.-as->].9.(#$...54414)])).( |
| d5e0 | 70 75 74 20 27 2d 61 73 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 | put.'-as->.'edebug-form-spec.'(f |
| d600 | 6f 72 6d 20 73 79 6d 62 6f 6c 70 20 62 6f 64 79 29 29 0a 23 40 31 36 33 20 57 68 65 6e 20 65 78 | orm.symbolp.body)).#@163.When.ex |
| d620 | 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 69 74 20 74 68 72 6f 75 67 68 | pr.is.non-nil,.thread.it.through |
| d640 | 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 3e 27 29 2c 0a 61 6e 64 20 | .the.first.form.(via.`->'),.and. |
| d660 | 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 | when.that.result.is.non-nil,.thr |
| d680 | 6f 75 67 68 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 | ough.the.next.form,.etc...(fn.X. |
| d6a0 | 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 | &optional.FORM.&rest.MORE)..(def |
| d6c0 | 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 | alias.'-some->.'(macro...#[641." |
| d6e0 | 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 06 06 | .\204...\207\300\301!\302\303... |
| d700 | 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 | D\304...EE.BB\207".[make-symbol. |
| d720 | 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 3e 5d 20 31 | "result".-some->.-when-let.->].1 |
| d740 | 30 20 28 23 24 20 2e 20 35 34 38 30 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 73 6f 6d 65 2d 3e 20 | 0.(#$...54809)])).(put.'-some->. |
| d760 | 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 23 40 31 36 34 20 57 68 65 | 'edebug-form-spec.'->).#@164.Whe |
| d780 | 6e 20 65 78 70 72 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 69 74 20 74 68 72 | n.expr.is.non-nil,.thread.it.thr |
| d7a0 | 6f 75 67 68 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 3e 3e 27 29 2c | ough.the.first.form.(via.`->>'), |
| d7c0 | 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c | .and.when.that.result.is.non-nil |
| d7e0 | 2c 20 74 68 72 6f 75 67 68 20 74 68 65 20 6e 65 78 74 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 | ,.through.the.next.form,.etc...( |
| d800 | 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 26 72 65 73 74 20 4d 4f 52 45 29 1f | fn.X.&optional.FORM.&rest.MORE). |
| d820 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 3e 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 | .(defalias.'-some->>.'(macro...# |
| d840 | 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c | [641.".\204...\207\300\301!\302\ |
| d860 | 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 | 303...D\304...EE.BB\207".[make-s |
| d880 | 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 3e 3e 20 2d 77 68 65 6e 2d 6c 65 | ymbol."result".-some->>.-when-le |
| d8a0 | 74 20 2d 3e 3e 5d 20 31 30 20 28 23 24 20 2e 20 35 35 31 36 35 29 5d 29 29 0a 28 70 75 74 20 27 | t.->>].10.(#$...55165)])).(put.' |
| d8c0 | 2d 73 6f 6d 65 2d 3e 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a | -some->>.'edebug-form-spec.'->). |
| d8e0 | 23 40 31 36 34 20 57 68 65 6e 20 65 78 70 72 20 69 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 | #@164.When.expr.in.non-nil,.thre |
| d900 | 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 69 | ad.it.through.the.first.form.(vi |
| d920 | 61 20 60 2d 2d 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 6c 74 20 69 | a.`-->'),.and.when.that.result.i |
| d940 | 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 |
| d960 | 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 |
| d980 | 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 6d 65 2d 2d 3e 20 27 28 | st.MORE)..(defalias.'-some-->.'( |
| d9a0 | 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 5c | macro...#[641.".\204...\207\300\ |
| d9c0 | 33 30 31 21 5c 33 30 32 5c 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 45 45 03 42 42 5c 32 30 37 | 301!\302\303...D\304...EE.BB\207 |
| d9e0 | 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 2d 3e | ".[make-symbol."result".-some--> |
| da00 | 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 2d 3e 5d 20 31 30 20 28 23 24 20 2e 20 35 35 35 32 36 29 5d | .-when-let.-->].10.(#$...55526)] |
| da20 | 29 29 0a 28 70 75 74 20 27 2d 73 6f 6d 65 2d 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | )).(put.'-some-->.'edebug-form-s |
| da40 | 70 65 63 20 27 2d 3e 29 0a 23 40 31 37 36 20 47 72 61 64 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 | pec.'->).#@176.Grade.elements.of |
| da60 | 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 41 52 41 54 4f 52 20 72 65 6c 61 74 69 6f 6e 2c | .LIST.using.COMPARATOR.relation, |
| da80 | 20 79 69 65 6c 64 69 6e 67 20 61 0a 70 65 72 6d 75 74 61 74 69 6f 6e 20 76 65 63 74 6f 72 20 73 | .yielding.a.permutation.vector.s |
| daa0 | 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e 67 20 74 68 69 73 20 70 65 72 6d 75 74 61 74 69 | uch.that.applying.this.permutati |
| dac0 | 6f 6e 20 74 6f 20 4c 49 53 54 0a 73 6f 72 74 73 20 69 74 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 | on.to.LIST.sorts.it.in.ascending |
| dae0 | 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 | .order...(fn.COMPARATOR.LIST)..( |
| db00 | 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 75 70 20 23 5b 35 31 34 20 22 5c 33 30 30 5c | defalias.'-grade-up.#[514."\300\ |
| db20 | 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 |
| db40 | 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 |
| db60 | 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 |
| db80 | 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. |
| dba0 | 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 69 | (it.other).funcall.quote.((car.i |
| dbc0 | 74 29 20 28 63 61 72 20 6f 74 68 65 72 29 29 20 2d 6d 61 70 20 63 64 72 20 2d 73 6f 72 74 20 6e | t).(car.other)).-map.cdr.-sort.n |
| dbe0 | 69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e 20 35 35 38 38 37 29 5d 29 0a 23 40 31 37 37 20 47 72 | il.0].13.(#$...55887)]).#@177.Gr |
| dc00 | 61 64 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 41 | ade.elements.of.LIST.using.COMPA |
| dc20 | 52 41 54 4f 52 20 72 65 6c 61 74 69 6f 6e 2c 20 79 69 65 6c 64 69 6e 67 20 61 0a 70 65 72 6d 75 | RATOR.relation,.yielding.a.permu |
| dc40 | 74 61 74 69 6f 6e 20 76 65 63 74 6f 72 20 73 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e 67 | tation.vector.such.that.applying |
| dc60 | 20 74 68 69 73 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 74 6f 20 4c 49 53 54 0a 73 6f 72 74 73 20 | .this.permutation.to.LIST.sorts. |
| dc80 | 69 74 20 69 6e 20 64 65 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d | it.in.descending.order...(fn.COM |
| dca0 | 50 41 52 41 54 4f 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 | PARATOR.LIST)..(defalias.'-grade |
| dcc0 | 2d 64 6f 77 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 44 5c | -down.#[514."\300\301\302\303.D\ |
| dce0 | 33 30 34 42 42 45 5c 33 30 35 5c 33 30 36 5c 33 30 37 03 5c 33 31 30 06 06 5c 33 31 31 01 5c 32 | 304BBE\305\306\307.\310..\311.\2 |
| dd00 | 30 33 2b 00 01 40 5c 32 31 31 02 42 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 | 03+..@\211.B.B\262.\210\211T\262 |
| dd20 | 01 01 41 5c 32 36 32 02 5c 32 30 32 12 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 | ..A\262.\202..\266.\211\237\262. |
| dd40 | 5c 22 5c 22 5c 32 30 37 22 20 5b 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 20 66 75 6e | \"\"\207".[lambda.(it.other).fun |
| dd60 | 63 61 6c 6c 20 71 75 6f 74 65 20 28 28 63 61 72 20 6f 74 68 65 72 29 20 28 63 61 72 20 69 74 29 | call.quote.((car.other).(car.it) |
| dd80 | 29 20 2d 6d 61 70 20 63 64 72 20 2d 73 6f 72 74 20 6e 69 6c 20 30 5d 20 31 33 20 28 23 24 20 2e | ).-map.cdr.-sort.nil.0].13.(#$.. |
| dda0 | 20 35 36 33 31 38 29 5d 29 0a 23 40 34 32 20 4d 6f 6e 6f 74 6f 6e 69 63 20 63 6f 75 6e 74 65 72 | .56318)]).#@42.Monotonic.counter |
| ddc0 | 20 66 6f 72 20 67 65 6e 65 72 61 74 65 64 20 73 79 6d 62 6f 6c 73 2e 1f 0a 28 64 65 66 76 61 72 | .for.generated.symbols...(defvar |
| dde0 | 20 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 30 20 28 23 24 20 2e 20 35 36 | .dash--source-counter.0.(#$...56 |
| de00 | 37 35 31 29 29 0a 23 40 38 37 20 47 65 6e 65 72 61 74 65 20 61 20 6e 65 77 20 64 61 73 68 2d 73 | 751)).#@87.Generate.a.new.dash-s |
| de20 | 6f 75 72 63 65 20 73 79 6d 62 6f 6c 2e 0a 0a 41 6c 6c 20 72 65 74 75 72 6e 65 64 20 73 79 6d 62 | ource.symbol...All.returned.symb |
| de40 | 6f 6c 73 20 61 72 65 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 62 65 20 75 6e 69 71 75 65 2e | ols.are.guaranteed.to.be.unique. |
| de60 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61 6b 65 2d 73 6f | ..(defalias.'dash--match-make-so |
| de80 | 75 72 63 65 2d 73 79 6d 62 6f 6c 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 08 5c 22 | urce-symbol.#[0."\301\302\303.\" |
| dea0 | 21 08 54 10 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 | !.T.\207".[dash--source-counter. |
| dec0 | 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 2d 2d 64 61 73 68 2d 73 6f 75 72 63 | make-symbol.format."--dash-sourc |
| dee0 | 65 2d 25 64 2d 2d 22 5d 20 34 20 28 23 24 20 2e 20 35 36 38 34 33 29 5d 29 0a 23 40 37 30 20 52 | e-%d--"].4.(#$...56843)]).#@70.R |
| df00 | 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 59 4d 42 4f 4c 20 69 73 20 61 20 73 79 6d | eturn.non-nil.if.SYMBOL.is.a.sym |
| df20 | 62 6f 6c 20 61 6e 64 20 73 74 61 72 74 73 20 77 69 74 68 20 5f 2e 0a 0a 28 66 6e 20 53 59 4d 42 | bol.and.starts.with._...(fn.SYMB |
| df40 | 4f 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f | OL)..(defalias.'dash--match-igno |
| df60 | 72 65 2d 70 6c 61 63 65 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 39 5c 32 30 35 5c 66 00 5c 33 | re-place-p.#[257."\2119\205\f.\3 |
| df80 | 30 30 01 21 5c 33 30 31 48 5c 33 30 32 3d 5c 32 30 37 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | 00.!\301H\302=\207".[symbol-name |
| dfa0 | 20 30 20 39 35 5d 20 33 20 28 23 24 20 2e 20 35 37 30 38 37 29 5d 29 0a 23 40 37 35 20 48 65 6c | .0.95].3.(#$...57087)]).#@75.Hel |
| dfc0 | 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 | per.function.generating.idiomati |
| dfe0 | 63 20 73 68 69 66 74 69 6e 67 20 63 6f 64 65 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 | c.shifting.code...(fn.SKIP-CDR.S |
| e000 | 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 |
| e020 | 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 5c 6e | ons-skip-cdr.#[514.".\300U\203\n |
| e040 | 00 5c 33 30 31 01 44 5c 32 30 37 5c 33 30 32 5c 33 30 33 03 03 5c 22 5c 33 30 34 03 5c 33 30 35 | .\301.D\207\302\303..\"\304.\305 |
| e060 | 06 06 54 06 06 5c 22 45 45 5c 32 30 37 22 20 5b 30 20 70 6f 70 20 70 72 6f 67 31 20 64 61 73 68 | ..T..\"EE\207".[0.pop.prog1.dash |
| e080 | 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 73 65 74 71 20 64 61 73 68 2d 2d | --match-cons-get-car.setq.dash-- |
| e0a0 | 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 5d 20 39 20 28 23 24 20 2e 20 35 37 32 37 | match-cons-get-cdr].9.(#$...5727 |
| e0c0 | 37 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 | 7)]).#@81.Helper.function.genera |
| e0e0 | 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 63 6f 64 65 20 74 6f 20 67 65 74 20 6e 74 68 20 63 | ting.idiomatic.code.to.get.nth.c |
| e100 | 61 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 | ar...(fn.SKIP-CDR.SOURCE)..(defa |
| e120 | 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 23 | lias.'dash--match-cons-get-car.# |
| e140 | 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 5c 6e 00 5c 33 30 31 01 44 5c 32 30 37 01 5c 33 | [514.".\300U\203\n.\301.D\207.\3 |
| e160 | 30 32 55 5c 32 30 33 14 00 5c 33 30 33 01 44 5c 32 30 37 5c 33 30 34 02 02 45 5c 32 30 37 22 20 | 02U\203..\303.D\207\304..E\207". |
| e180 | 5b 30 20 63 61 72 20 31 20 63 61 64 72 20 6e 74 68 5d 20 35 20 28 23 24 20 2e 20 35 37 35 34 36 | [0.car.1.cadr.nth].5.(#$...57546 |
| e1a0 | 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 74 | )]).#@81.Helper.function.generat |
| e1c0 | 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 63 6f 64 65 20 74 6f 20 67 65 74 20 6e 74 68 20 63 64 | ing.idiomatic.code.to.get.nth.cd |
| e1e0 | 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c | r...(fn.SKIP-CDR.SOURCE)..(defal |
| e200 | 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 23 5b | ias.'dash--match-cons-get-cdr.#[ |
| e220 | 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 07 00 5c 32 30 37 01 5c 33 30 31 55 5c 32 30 33 11 | 514.".\300U\203..\207.\301U\203. |
| e240 | 00 5c 33 30 32 01 44 5c 32 30 37 5c 33 30 33 02 02 45 5c 32 30 37 22 20 5b 30 20 31 20 63 64 72 | .\302.D\207\303..E\207".[0.1.cdr |
| e260 | 20 6e 74 68 63 64 72 5d 20 35 20 28 23 24 20 2e 20 35 37 37 36 39 29 5d 29 0a 23 40 38 36 20 53 | .nthcdr].5.(#$...57769)]).#@86.S |
| e280 | 65 74 75 70 20 61 20 63 6f 6e 73 20 6d 61 74 63 68 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 | etup.a.cons.matching.environment |
| e2a0 | 20 61 6e 64 20 63 61 6c 6c 20 74 68 65 20 72 65 61 6c 20 6d 61 74 63 68 65 72 2e 0a 0a 28 66 6e | .and.call.the.real.matcher...(fn |
| e2c0 | 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | .MATCH-FORM.SOURCE)..(defalias.' |
| e2e0 | 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 20 5c 33 30 | dash--match-cons.#[514."\300.\30 |
| e300 | 31 03 5c 32 31 31 3a 5c 32 30 33 1b 00 5c 33 30 32 01 40 21 5c 32 30 33 1b 00 01 54 5c 32 36 32 | 1.\211:\203..\302.@!\203...T\262 |
| e320 | 02 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 04 00 5c 32 31 31 3a 5c 32 30 33 31 00 5c 32 31 31 | .\211A\262.\202..\211:\2031.\211 |
| e340 | 41 5c 32 30 34 31 00 5c 33 30 33 01 40 5c 33 30 34 04 06 07 5c 22 5c 22 5c 32 30 32 4b 00 01 5c | A\2041.\303.@\304...\"\"\202K..\ |
| e360 | 33 30 31 56 5c 32 30 33 42 00 5c 33 30 33 01 5c 33 30 35 04 06 07 5c 22 5c 22 5c 32 30 32 4b 00 | 301V\203B.\303.\305...\"\"\202K. |
| e380 | 02 04 44 5c 33 30 36 06 06 05 5c 22 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d | ..D\306...\"B\207".[dash--match- |
| e3a0 | 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 30 20 64 61 73 68 2d 2d 6d 61 74 63 68 | make-source-symbol.0.dash--match |
| e3c0 | 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 64 61 73 68 | -ignore-place-p.dash--match.dash |
| e3e0 | 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 | --match-cons-get-car.dash--match |
| e400 | 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 31 | -cons-get-cdr.dash--match-cons-1 |
| e420 | 5d 20 31 30 20 28 23 24 20 2e 20 35 37 39 38 33 29 5d 29 0a 23 40 34 37 20 47 65 74 20 65 78 70 | ].10.(#$...57983)]).#@47.Get.exp |
| e440 | 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 66 6f 72 20 54 59 50 45 2e 0a 0a 28 66 6e | and.function.name.for.TYPE...(fn |
| e460 | 20 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 67 65 74 2d 65 78 70 | .TYPE)..(defalias.'dash--get-exp |
| e480 | 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | and-function.#[257."\300\301\302 |
| e4a0 | 03 5c 22 21 5c 32 30 37 22 20 5b 69 6e 74 65 72 6e 20 66 6f 72 6d 61 74 20 22 64 61 73 68 2d 65 | .\"!\207".[intern.format."dash-e |
| e4c0 | 78 70 61 6e 64 3a 25 73 22 5d 20 35 20 28 23 24 20 2e 20 35 38 34 32 35 29 5d 29 0a 23 40 33 38 | xpand:%s"].5.(#$...58425)]).#@38 |
| e4e0 | 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 20 53 4f 55 52 43 | 6.Match.MATCH-FORM.against.SOURC |
| e500 | 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 6f 72 20 69 6d | E...MATCH-FORM.is.a.proper.or.im |
| e520 | 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 20 6f 66 0a 4d 41 | proper.list...Each.element.of.MA |
| e540 | 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 6c 2c 20 77 68 69 | TCH-FORM.is.either.a.symbol,.whi |
| e560 | 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 0a | ch.gets.bound.to.the.respective. |
| e580 | 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 20 6d 61 74 63 68 | value.in.source.or.another.match |
| e5a0 | 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 0a 72 65 | .form.which.gets.destructured.re |
| e5c0 | 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 6c 61 73 74 20 63 | cursively...If.the.cdr.of.last.c |
| e5e0 | 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 69 6c 27 2c 20 6d | ons.cell.in.the.list.is.`nil',.m |
| e600 | 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 43 45 20 69 73 20 | atching.stops.there...SOURCE.is. |
| e620 | 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 0a 0a 28 66 6e 20 | a.proper.or.improper.list...(fn. |
| e640 | 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 6c 20 50 52 4f 50 | MATCH-FORM.SOURCE.&optional.PROP |
| e660 | 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 2d 63 6f 6e 73 2d | S)..(defalias.'dash--match-cons- |
| e680 | 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 5c 33 30 32 03 3a | 1.#[770."\300.\301\"\206..\302.: |
| e6a0 | 5c 32 30 33 65 00 03 41 5c 32 30 33 59 00 03 40 39 5c 32 30 33 2e 00 5c 33 30 33 5c 33 30 34 05 | \203e..A\203Y..@9\203..\303\304. |
| e6c0 | 40 21 21 5c 32 30 33 2e 00 5c 33 30 35 5c 33 30 36 05 21 5c 33 30 37 03 06 06 5c 22 5c 22 5c 32 | @!!\203..\305\306.!\307...\"\"\2 |
| e6e0 | 30 32 77 00 5c 33 31 30 04 40 21 5c 32 30 33 44 00 5c 33 31 31 04 41 04 5c 33 31 32 05 5c 33 30 | 02w.\310.@!\203D.\311.A.\312.\30 |
| e700 | 31 06 06 54 23 23 5c 32 30 32 77 00 5c 33 31 33 5c 33 31 34 05 40 5c 33 31 35 04 06 07 5c 22 5c | 1..T##\202w.\313\314.@\315...\"\ |
| e720 | 22 5c 33 31 31 06 06 41 06 06 5c 22 5c 22 5c 32 30 32 77 00 5c 33 31 34 04 40 5c 33 31 36 03 06 | "\311..A..\"\"\202w.\314.@\316.. |
| e740 | 06 5c 22 5c 22 5c 32 30 32 77 00 03 5c 33 31 37 3d 5c 32 30 33 6f 00 5c 33 31 37 5c 32 30 32 77 | .\"\"\202w..\317=\203o.\317\202w |
| e760 | 00 5c 33 31 34 04 5c 33 30 37 03 06 06 5c 22 5c 22 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 67 65 | .\314.\307...\"\"\207".[plist-ge |
| e780 | 74 20 3a 73 6b 69 70 2d 63 64 72 20 30 20 66 75 6e 63 74 69 6f 6e 70 20 64 61 73 68 2d 2d 67 65 | t.:skip-cdr.0.functionp.dash--ge |
| e7a0 | 74 2d 65 78 70 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 | t-expand-function.dash--match-kv |
| e7c0 | 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d | .dash--match-kv-normalize-match- |
| e7e0 | 66 6f 72 6d 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 | form.dash--match-cons-get-cdr.da |
| e800 | 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 73 68 2d 2d 6d | sh--match-ignore-place-p.dash--m |
| e820 | 61 74 63 68 2d 63 6f 6e 73 2d 31 20 70 6c 69 73 74 2d 70 75 74 20 2d 63 6f 6e 63 61 74 20 64 61 | atch-cons-1.plist-put.-concat.da |
| e840 | 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 73 6b 69 70 2d | sh--match.dash--match-cons-skip- |
| e860 | 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 6e 69 6c | cdr.dash--match-cons-get-car.nil |
| e880 | 5d 20 31 31 20 28 23 24 20 2e 20 35 38 35 39 34 29 5d 29 0a 23 40 35 39 20 52 65 74 75 72 6e 20 | ].11.(#$...58594)]).#@59.Return. |
| e8a0 | 74 68 65 20 74 61 69 6c 20 6f 66 20 53 45 51 20 73 74 61 72 74 69 6e 67 20 61 74 20 53 54 41 52 | the.tail.of.SEQ.starting.at.STAR |
| e8c0 | 54 2e 0a 0a 28 66 6e 20 53 45 51 20 53 54 41 52 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 | T...(fn.SEQ.START)..(defalias.'d |
| e8e0 | 61 73 68 2d 2d 76 65 63 74 6f 72 2d 74 61 69 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 32 | ash--vector-tail.#[514."\300.!\2 |
| e900 | 30 33 2b 00 01 47 01 5a 5c 33 30 31 01 5c 33 30 32 5c 22 01 5c 33 30 32 5c 32 31 31 02 57 5c 32 | 03+..G.Z\301.\302\".\302\211.W\2 |
| e920 | 30 33 28 00 02 01 06 07 03 06 08 5c 5c 48 49 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 | 03(........\\HI\210\211T\262.\20 |
| e940 | 32 10 00 5c 32 36 36 02 5c 32 30 37 01 3b 5c 32 30 35 34 00 01 01 5c 33 30 33 4f 5c 32 30 37 22 | 2..\266.\207.;\2054...\303O\207" |
| e960 | 20 5b 76 65 63 74 6f 72 70 20 6d 61 6b 65 2d 76 65 63 74 6f 72 20 30 20 6e 69 6c 5d 20 31 31 20 | .[vectorp.make-vector.0.nil].11. |
| e980 | 28 23 24 20 2e 20 35 39 35 34 35 29 5d 29 0a 23 40 38 38 20 53 65 74 75 70 20 61 20 76 65 63 74 | (#$...59545)]).#@88.Setup.a.vect |
| e9a0 | 6f 72 20 6d 61 74 63 68 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 6e 64 20 63 61 6c 6c | or.matching.environment.and.call |
| e9c0 | 20 74 68 65 20 72 65 61 6c 20 6d 61 74 63 68 65 72 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f | .the.real.matcher...(fn.MATCH-FO |
| e9e0 | 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 | RM.SOURCE)..(defalias.'dash--mat |
| ea00 | 63 68 2d 76 65 63 74 6f 72 20 23 5b 35 31 34 20 22 5c 33 30 30 20 02 47 5c 33 30 31 55 5c 32 30 | ch-vector.#[514."\300..G\301U\20 |
| ea20 | 33 16 00 5c 33 30 32 03 5c 33 30 33 48 5c 33 30 34 04 5c 33 30 35 42 42 5c 22 5c 32 30 32 51 00 | 3..\302.\303H\304.\305BB\"\202Q. |
| ea40 | 01 39 5c 32 30 33 5c 22 00 5c 33 30 36 03 03 5c 22 5c 32 30 32 51 00 5c 33 30 37 5c 33 31 30 04 | .9\203\".\306..\"\202Q.\307\310. |
| ea60 | 5c 22 5c 33 31 31 5c 33 31 32 02 5c 22 47 5c 32 31 31 05 47 53 55 5c 32 30 35 44 00 5c 33 31 33 | \"\311\312.\"G\211.GSU\205D.\313 |
| ea80 | 5c 33 31 32 03 5c 22 5c 33 30 32 06 06 02 48 5c 33 30 34 06 07 04 45 5c 22 5c 32 36 32 01 5c 32 | \312.\"\302...H\304...E\"\262.\2 |
| eaa0 | 36 36 5c 32 30 32 5c 32 30 36 51 00 5c 32 31 31 02 44 5c 33 30 36 04 03 5c 22 42 5c 32 30 37 22 | 66\202\206Q.\211.D\306..\"B\207" |
| eac0 | 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 |
| eae0 | 20 31 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 30 20 61 72 65 66 20 28 30 29 20 64 61 73 68 2d 2d | .1.dash--match.0.aref.(0).dash-- |
| eb00 | 6d 61 74 63 68 2d 76 65 63 74 6f 72 2d 31 20 6d 61 70 63 61 72 20 64 61 73 68 2d 2d 6d 61 74 63 | match-vector-1.mapcar.dash--matc |
| eb20 | 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 2d 72 65 6d 6f 76 65 20 6e 75 6c 6c 20 2d 66 | h-ignore-place-p.-remove.null.-f |
| eb40 | 69 6e 64 2d 69 6e 64 65 78 5d 20 31 31 20 28 23 24 20 2e 20 35 39 37 39 36 29 5d 29 0a 23 40 36 | ind-index].11.(#$...59796)]).#@6 |
| eb60 | 39 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 4f 55 52 | 91.Match.MATCH-FORM.against.SOUR |
| eb80 | 43 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 61 20 76 65 63 74 6f 72 2e 20 20 45 61 | CE...MATCH-FORM.is.a.vector...Ea |
| eba0 | 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 65 69 74 68 | ch.element.of.MATCH-FORM.is.eith |
| ebc0 | 65 72 20 61 0a 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 74 6f | er.a.symbol,.which.gets.bound.to |
| ebe0 | 20 74 68 65 20 72 65 73 70 65 63 74 69 76 65 20 76 61 6c 75 65 20 69 6e 20 73 6f 75 72 63 65 20 | .the.respective.value.in.source. |
| ec00 | 6f 72 0a 61 6e 6f 74 68 65 72 20 6d 61 74 63 68 20 66 6f 72 6d 20 77 68 69 63 68 20 67 65 74 73 | or.another.match.form.which.gets |
| ec20 | 20 64 65 73 74 72 75 63 74 75 72 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 49 66 20 73 | .destructured.recursively...If.s |
| ec40 | 65 63 6f 6e 64 2d 66 72 6f 6d 2d 6c 61 73 74 20 70 6c 61 63 65 20 69 6e 20 4d 41 54 43 48 2d 46 | econd-from-last.place.in.MATCH-F |
| ec60 | 4f 52 4d 20 69 73 20 74 68 65 20 73 79 6d 62 6f 6c 20 26 72 65 73 74 2c 20 74 68 65 0a 6e 65 78 | ORM.is.the.symbol.&rest,.the.nex |
| ec80 | 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 6d | t.element.of.the.MATCH-FORM.is.m |
| eca0 | 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 74 61 69 6c 20 6f 66 0a 53 4f 55 52 43 | atched.against.the.tail.of.SOURC |
| ecc0 | 45 2c 20 73 74 61 72 74 69 6e 67 20 61 74 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 26 72 65 73 | E,.starting.at.index.of.the.&res |
| ece0 | 74 20 73 79 6d 62 6f 6c 2e 20 20 54 68 69 73 20 69 73 0a 63 6f 6e 63 65 70 74 75 61 6c 6c 79 20 | t.symbol...This.is.conceptually. |
| ed00 | 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 28 68 65 61 64 20 2e 20 74 61 69 6c 29 20 6d 61 | the.same.as.the.(head...tail).ma |
| ed20 | 74 63 68 20 66 6f 72 20 69 6d 70 72 6f 70 65 72 0a 6c 69 73 74 73 2c 20 77 68 65 72 65 20 64 6f | tch.for.improper.lists,.where.do |
| ed40 | 74 20 70 6c 61 79 73 20 74 68 65 20 72 6f 6c 65 20 6f 66 20 26 72 65 73 74 2e 0a 0a 53 4f 55 52 | t.plays.the.role.of.&rest...SOUR |
| ed60 | 43 45 20 69 73 20 61 20 76 65 63 74 6f 72 2e 0a 0a 49 66 20 74 68 65 20 4d 41 54 43 48 2d 46 4f | CE.is.a.vector...If.the.MATCH-FO |
| ed80 | 52 4d 20 76 65 63 74 6f 72 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 | RM.vector.is.shorter.than.SOURCE |
| eda0 | 20 76 65 63 74 6f 72 2c 20 6f 6e 6c 79 0a 74 68 65 20 28 6c 65 6e 67 74 68 20 4d 41 54 43 48 2d | .vector,.only.the.(length.MATCH- |
| edc0 | 46 4f 52 4d 29 20 70 6c 61 63 65 73 20 61 72 65 20 62 6f 75 6e 64 2c 20 74 68 65 20 72 65 73 74 | FORM).places.are.bound,.the.rest |
| ede0 | 20 6f 66 20 74 68 65 20 53 4f 55 52 43 45 0a 69 73 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 | .of.the.SOURCE.is.discarded...(f |
| ee00 | 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | n.MATCH-FORM.SOURCE)..(defalias. |
| ee20 | 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 2d 31 20 23 5b 35 31 34 20 22 5c 33 30 | 'dash--match-vector-1.#[514."\30 |
| ee40 | 30 02 47 5c 33 30 31 02 02 57 5c 32 30 33 61 00 04 03 48 5c 32 31 31 39 5c 32 30 33 2b 00 5c 32 | 0.G\301..W\203a...H\2119\203+.\2 |
| ee60 | 31 31 5c 33 30 32 3d 5c 32 30 33 2b 00 5c 33 30 33 06 06 05 54 48 5c 33 30 34 06 07 06 07 45 5c | 11\302=\203+.\303...TH\304....E\ |
| ee80 | 22 03 5c 32 36 32 05 5c 32 30 32 55 00 5c 32 31 31 39 5c 32 30 33 46 00 5c 33 30 35 01 21 5c 33 | ".\262.\202U.\2119\203F.\305.!\3 |
| eea0 | 30 30 48 5c 33 30 36 3d 5c 32 30 34 46 00 5c 32 31 31 5c 33 30 37 06 06 06 06 45 44 43 5c 32 30 | 00H\306=\204F.\211\307....EDC\20 |
| eec0 | 32 55 00 5c 32 31 31 39 3f 5c 32 30 35 55 00 5c 33 30 33 01 5c 33 30 37 06 07 06 07 45 5c 22 02 | 2U.\2119?\205U.\303.\307....E\". |
| eee0 | 42 5c 32 36 32 02 03 54 5c 32 36 32 04 5c 32 31 30 5c 32 30 32 04 00 5c 33 31 30 5c 33 31 31 02 | B\262..T\262.\210\202..\310\311. |
| ef00 | 5c 32 33 37 5c 22 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 26 72 65 73 74 20 64 61 73 68 2d 2d 6d | \237\"\207".[0.nil.&rest.dash--m |
| ef20 | 61 74 63 68 20 64 61 73 68 2d 2d 76 65 63 74 6f 72 2d 74 61 69 6c 20 73 79 6d 62 6f 6c 2d 6e 61 | atch.dash--vector-tail.symbol-na |
| ef40 | 6d 65 20 39 35 20 61 72 65 66 20 2d 66 6c 61 74 74 65 6e 2d 6e 20 31 5d 20 31 31 20 28 23 24 20 | me.95.aref.-flatten-n.1].11.(#$. |
| ef60 | 2e 20 36 30 32 35 39 29 5d 29 0a 23 40 31 34 38 20 4e 6f 72 6d 61 6c 69 7a 65 20 6b 76 20 50 41 | ..60259)]).#@148.Normalize.kv.PA |
| ef80 | 54 54 45 52 4e 2e 0a 0a 54 68 69 73 20 6d 65 74 68 6f 64 20 6e 6f 72 6d 61 6c 69 7a 65 73 20 50 | TTERN...This.method.normalizes.P |
| efa0 | 41 54 54 45 52 4e 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 20 65 78 70 65 63 74 65 64 20 62 79 | ATTERN.to.the.format.expected.by |
| efc0 | 0a 60 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 27 2e 20 20 53 65 65 20 60 2d 6c 65 74 27 20 66 | .`dash--match-kv'...See.`-let'.f |
| efe0 | 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 2e 0a 0a 28 66 6e 20 50 41 54 54 45 | or.the.specification...(fn.PATTE |
| f000 | 52 4e 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 6b 76 2d 6e | RN)..(defalias.'dash--match-kv-n |
| f020 | 6f 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 40 | ormalize-match-form.#[257."\211@ |
| f040 | 43 43 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 21 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 | CC\300C\301\302!\303\304\305\306 |
| f060 | 04 06 08 41 06 09 41 41 23 5c 22 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 06 | ...A..AA#\"\307\310\311\312\313. |
| f080 | 09 06 09 06 09 23 5c 33 31 34 5c 22 5c 33 31 35 5c 33 31 36 25 5c 22 5c 32 31 30 02 5c 32 34 32 | .....#\314\"\315\316%\"\210.\242 |
| f0a0 | 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 2d 2d 64 61 | \237\207".[nil.make-symbol."--da |
| f0c0 | 73 68 2d 66 69 6c 6c 2d 70 6c 61 63 65 68 6f 6c 64 65 72 2d 2d 22 20 2d 65 61 63 68 20 61 70 70 | sh-fill-placeholder--".-each.app |
| f0e0 | 6c 79 20 2d 7a 69 70 20 2d 70 61 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 | ly.-zip.-pad.make-byte-code.257. |
| f100 | 22 5c 32 31 31 40 01 41 5c 33 30 31 5c 32 34 32 5c 32 30 33 0f 00 5c 33 30 31 5c 33 30 33 5c 32 | "\211@.A\301\242\203..\301\303\2 |
| f120 | 34 30 5c 32 30 32 5c 32 36 30 00 5c 33 30 32 01 3d 5c 32 30 34 3e 00 5c 32 31 31 39 5c 32 30 33 | 40\202\260.\302.=\204>.\2119\203 |
| f140 | 2c 00 5c 33 30 34 01 21 5c 32 30 34 2c 00 5c 32 31 31 5c 33 30 35 3d 5c 32 30 34 2c 00 5c 32 31 | ,.\304.!\204,.\211\305=\204,.\21 |
| f160 | 31 5c 33 30 33 3d 5c 32 30 33 5c 32 33 37 00 5c 32 31 31 3a 5c 32 30 33 38 00 5c 32 31 31 40 5c | 1\303=\203\237.\211:\2038.\211@\ |
| f180 | 33 30 36 3d 5c 32 30 33 5c 32 33 37 00 5c 33 30 37 01 21 5c 32 30 34 5c 32 33 37 00 5c 33 30 34 | 306=\203\237.\307.!\204\237.\304 |
| f1a0 | 02 21 5c 32 30 33 5c 5c 00 5c 33 30 30 02 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c | .!\203\\.\300.\300\242B\240\210\ |
| f1c0 | 33 30 30 5c 33 31 30 5c 33 31 31 04 21 5c 33 31 32 5c 33 30 33 4f 21 5c 33 30 30 5c 32 34 32 42 | 300\310\311.!\312\303O!\300\242B |
| f1e0 | 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 33 31 00 01 3b 5c 32 30 33 74 00 5c 33 30 30 02 5c 33 | \240\210\202\231..;\203t.\300.\3 |
| f200 | 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 5c 33 31 30 03 21 5c 33 30 30 5c 32 34 | 00\242B\240\210\300\310.!\300\24 |
| f220 | 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 33 31 00 01 3a 5c 32 30 33 5c 32 32 33 00 01 40 | 2B\240\210\202\231..:\203\223..@ |
| f240 | 5c 33 30 36 3d 5c 32 30 33 5c 32 32 33 00 5c 33 30 30 02 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 | \306=\203\223.\300.\300\242B\240 |
| f260 | 5c 32 31 30 5c 33 30 30 02 41 40 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 32 | \210\300.A@\300\242B\240\210\202 |
| f280 | 5c 32 33 31 00 5c 33 31 33 5c 33 31 34 03 03 23 5c 32 31 30 5c 33 30 31 5c 33 30 33 5c 32 34 30 | \231.\313\314..#\210\301\303\240 |
| f2a0 | 5c 32 30 32 5c 32 36 30 00 5c 33 30 30 02 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c | \202\260.\300.\300\242B\240\210\ |
| f2c0 | 33 30 30 01 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 31 5c 33 30 35 5c 32 34 | 300.\300\242B\240\210\301\305\24 |
| f2e0 | 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6e 69 6c 20 6b 65 79 77 6f | 0\207".vconcat.vector.[nil.keywo |
| f300 | 72 64 70 20 74 20 71 75 6f 74 65 20 76 65 63 74 6f 72 70 20 69 6e 74 65 72 6e 20 73 79 6d 62 6f | rdp.t.quote.vectorp.intern.symbo |
| f320 | 6c 2d 6e 61 6d 65 20 31 20 65 72 72 6f 72 20 22 2d 6c 65 74 3a 20 66 6f 75 6e 64 20 6b 65 79 20 | l-name.1.error."-let:.found.key. |
| f340 | 60 25 73 27 20 69 6e 20 6b 76 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 62 75 74 20 69 74 73 | `%s'.in.kv.destructuring.but.its |
| f360 | 20 70 61 74 74 65 72 6e 20 60 25 73 27 20 69 73 20 69 6e 76 61 6c 69 64 20 61 6e 64 20 63 61 6e | .pattern.`%s'.is.invalid.and.can |
| f380 | 20 6e 6f 74 20 62 65 20 64 65 72 69 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 22 5d 20 38 | .not.be.derived.from.the.key"].8 |
| f3a0 | 20 22 5c 6e 5c 6e 28 66 6e 20 50 41 49 52 29 22 5d 20 31 34 20 28 23 24 20 2e 20 36 31 32 39 37 | ."\n\n(fn.PAIR)"].14.(#$...61297 |
| f3c0 | 29 5d 29 0a 23 40 31 35 32 20 53 65 74 75 70 20 61 20 6b 76 20 6d 61 74 63 68 69 6e 67 20 65 6e | )]).#@152.Setup.a.kv.matching.en |
| f3e0 | 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 20 6d 61 74 63 | vironment.and.call.the.real.matc |
| f400 | 68 65 72 2e 0a 0a 6b 76 20 63 61 6e 20 62 65 20 61 6e 79 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 | her...kv.can.be.any.key-value.st |
| f420 | 6f 72 65 2c 20 73 75 63 68 20 61 73 20 70 6c 69 73 74 2c 20 61 6c 69 73 74 20 6f 72 20 68 61 73 | ore,.such.as.plist,.alist.or.has |
| f440 | 68 2d 74 61 62 6c 65 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 | h-table...(fn.MATCH-FORM.SOURCE) |
| f460 | 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 6b 76 20 23 5b 35 31 | ..(defalias.'dash--match-kv.#[51 |
| f480 | 34 20 22 5c 33 30 30 20 02 47 5c 33 30 31 55 5c 32 30 33 13 00 5c 33 30 32 03 41 03 05 40 23 5c | 4."\300..G\301U\203..\302.A..@#\ |
| f4a0 | 32 30 32 2e 00 01 39 5c 32 30 33 5c 22 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 32 2e 00 5c 32 | 202...9\203\".\302.A..@#\202..\2 |
| f4c0 | 31 31 02 44 5c 33 30 32 04 41 03 06 06 40 23 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 | 11.D\302.A...@#B\207".[dash--mat |
| f4e0 | 63 68 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 33 20 64 61 73 68 2d 2d 6d 61 | ch-make-source-symbol.3.dash--ma |
| f500 | 74 63 68 2d 6b 76 2d 31 5d 20 38 20 28 23 24 20 2e 20 36 32 34 31 30 29 5d 29 0a 23 40 37 39 20 | tch-kv-1].8.(#$...62410)]).#@79. |
| f520 | 47 65 6e 65 72 61 74 65 20 65 78 74 72 61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 | Generate.extracting.KEY.from.SOU |
| f540 | 52 43 45 20 66 6f 72 20 26 68 61 73 68 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 | RCE.for.&hash.destructuring...(f |
| f560 | 6e 20 4b 45 59 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 65 | n.KEY.SOURCE)..(defalias.'dash-e |
| f580 | 78 70 61 6e 64 3a 26 68 61 73 68 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 45 5c 32 30 37 22 20 | xpand:&hash.#[514."\300..E\207". |
| f5a0 | 5b 67 65 74 68 61 73 68 5d 20 35 20 28 23 24 20 2e 20 36 32 37 35 32 29 5d 29 0a 23 40 38 30 20 | [gethash].5.(#$...62752)]).#@80. |
| f5c0 | 47 65 6e 65 72 61 74 65 20 65 78 74 72 61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 | Generate.extracting.KEY.from.SOU |
| f5e0 | 52 43 45 20 66 6f 72 20 26 70 6c 69 73 74 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 | RCE.for.&plist.destructuring...( |
| f600 | 66 6e 20 4b 45 59 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d | fn.KEY.SOURCE)..(defalias.'dash- |
| f620 | 65 78 70 61 6e 64 3a 26 70 6c 69 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 45 5c 32 30 37 | expand:&plist.#[514."\300..E\207 |
| f640 | 22 20 5b 70 6c 69 73 74 2d 67 65 74 5d 20 35 20 28 23 24 20 2e 20 36 32 39 31 32 29 5d 29 0a 23 | ".[plist-get].5.(#$...62912)]).# |
| f660 | 40 38 30 20 47 65 6e 65 72 61 74 65 20 65 78 74 72 61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d | @80.Generate.extracting.KEY.from |
| f680 | 20 53 4f 55 52 43 45 20 66 6f 72 20 26 61 6c 69 73 74 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 | .SOURCE.for.&alist.destructuring |
| f6a0 | 2e 0a 0a 28 66 6e 20 4b 45 59 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 | ...(fn.KEY.SOURCE)..(defalias.'d |
| f6c0 | 61 73 68 2d 65 78 70 61 6e 64 3a 26 61 6c 69 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | ash-expand:&alist.#[514."\300\30 |
| f6e0 | 31 03 03 45 44 5c 32 30 37 22 20 5b 63 64 72 20 61 73 73 6f 63 5d 20 36 20 28 23 24 20 2e 20 36 | 1..ED\207".[cdr.assoc].6.(#$...6 |
| f700 | 33 30 37 36 29 5d 29 0a 23 40 31 33 35 20 47 65 6e 65 72 61 74 65 20 65 78 74 72 61 63 74 69 6e | 3076)]).#@135.Generate.extractin |
| f720 | 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 52 43 45 20 66 6f 72 20 26 68 61 73 68 3f 20 64 65 73 | g.KEY.from.SOURCE.for.&hash?.des |
| f740 | 74 72 75 63 74 75 72 69 6e 67 2e 0a 53 69 6d 69 6c 61 72 20 74 6f 20 26 68 61 73 68 20 62 75 74 | tructuring..Similar.to.&hash.but |
| f760 | 20 63 68 65 63 6b 20 77 68 65 74 68 65 72 20 74 68 65 20 6d 61 70 20 69 73 20 6e 6f 74 20 6e 69 | .check.whether.the.map.is.not.ni |
| f780 | 6c 2e 0a 0a 28 66 6e 20 4b 45 59 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | l...(fn.KEY.SOURCE)..(defalias.' |
| f7a0 | 64 61 73 68 2d 65 78 70 61 6e 64 3a 26 68 61 73 68 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c | dash-expand:&hash\?.#[514."\300\ |
| f7c0 | 33 30 31 21 5c 33 30 32 01 03 44 43 5c 33 30 33 03 5c 33 30 34 06 07 06 06 45 45 45 5c 32 30 37 | 301!\302..DC\303.\304....EEE\207 |
| f7e0 | 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 73 72 63 22 20 6c 65 74 20 77 68 65 6e 20 67 65 | ".[make-symbol."src".let.when.ge |
| f800 | 74 68 61 73 68 5d 20 31 30 20 28 23 24 20 2e 20 36 33 32 34 36 29 5d 29 0a 28 64 65 66 61 6c 69 | thash].10.(#$...63246)]).(defali |
| f820 | 61 73 20 27 64 61 73 68 2d 65 78 70 61 6e 64 3a 26 6b 65 79 73 20 27 64 61 73 68 2d 65 78 70 61 | as.'dash-expand:&keys.'dash-expa |
| f840 | 6e 64 3a 26 70 6c 69 73 74 29 0a 23 40 35 30 39 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 | nd:&plist).#@509.Match.MATCH-FOR |
| f860 | 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 54 59 50 45 2e 0a 0a | M.against.SOURCE.of.type.TYPE... |
| f880 | 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 73 74 20 6f 66 20 74 | MATCH-FORM.is.a.proper.list.of.t |
| f8a0 | 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 6b 65 79 4e 0a 70 6c | he.form.(key1.place1.....keyN.pl |
| f8c0 | 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 74 68 65 72 20 61 20 | aceN)...Each.placeK.is.either.a. |
| f8e0 | 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 74 6f 20 74 68 65 0a | symbol,.which.gets.bound.to.the. |
| f900 | 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 72 6f 6d 20 74 68 65 | value.of.keyK.retrieved.from.the |
| f920 | 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 68 65 72 0a 6d 61 74 | .key-value.store,.or.another.mat |
| f940 | 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 72 65 64 20 | ch.form.which.gets.destructured. |
| f960 | 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 20 6b 65 79 2d 76 61 | recursively...SOURCE.is.a.key-va |
| f980 | 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 68 69 63 68 20 63 61 | lue.store.of.type.TYPE,.which.ca |
| f9a0 | 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 20 61 20 68 61 73 68 | n.be.a.plist,.an.alist.or.a.hash |
| f9c0 | 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 73 70 65 63 69 66 79 | .table...TYPE.is.a.token.specify |
| f9e0 | 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 61 6c 75 65 20 73 74 | ing.the.type.of.the.key-value.st |
| fa00 | 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 69 73 74 2c 20 26 61 | ore..Valid.values.are.&plist,.&a |
| fa20 | 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 48 2d 46 4f 52 4d 20 | list.and.&hash...(fn.MATCH-FORM. |
| fa40 | 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 64 61 73 68 2d 2d 6d | SOURCE.TYPE)..(defalias.'dash--m |
| fa60 | 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 5c 33 30 32 5c 33 30 | atch-kv-1.#[771."\300\301\302\30 |
| fa80 | 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 31 30 5c 22 5c 33 31 | 3\304\305\306\307....\"\310\"\31 |
| faa0 | 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 37 22 20 5b 2d 66 6c | 1\312%\313\314..\"\"\"\207".[-fl |
| fac0 | 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 63 6f 64 65 20 32 35 | atten-n.1.-map.make-byte-code.25 |
| fae0 | 37 20 22 5c 32 31 31 40 01 41 40 5c 33 30 32 5c 33 30 31 21 02 5c 33 30 30 5c 22 01 39 5c 32 30 | 7."\211@.A@\302\301!.\300\".9\20 |
| fb00 | 33 17 00 01 01 44 43 5c 32 30 32 1b 00 5c 33 30 33 02 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 | 3....DC\202..\303..\"\207".vconc |
| fb20 | 61 74 20 76 65 63 74 6f 72 20 5b 64 61 73 68 2d 2d 67 65 74 2d 65 78 70 61 6e 64 2d 66 75 6e 63 | at.vector.[dash--get-expand-func |
| fb40 | 74 69 6f 6e 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 | tion.dash--match].7."\n\n(fn.KV) |
| fb60 | 22 20 2d 70 61 72 74 69 74 69 6f 6e 20 32 5d 20 31 33 20 28 23 24 20 2e 20 36 33 35 36 39 29 5d | ".-partition.2].13.(#$...63569)] |
| fb80 | 29 0a 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 | ).#@96.Bind.a.symbol...This.work |
| fba0 | 73 20 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 | s.just.like.`let',.there.is.no.d |
| fbc0 | 65 73 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 | estructuring...(fn.MATCH-FORM.SO |
| fbe0 | 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 73 79 | URCE)..(defalias.'dash--match-sy |
| fc00 | 6d 62 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 | mbol.#[514."..DC\207".[].4.(#$.. |
| fc20 | 20 36 34 33 39 31 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 | .64391)]).#@281.Match.MATCH-FORM |
| fc40 | 20 61 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 | .against.SOURCE...This.function. |
| fc60 | 74 65 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 | tests.the.MATCH-FORM.and.dispatc |
| fc80 | 68 65 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 | hes.to.specific.matchers.based.o |
| fca0 | 6e 20 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 | n.the.type.of.the.expression...K |
| fcc0 | 65 79 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 | ey-value.stores.are.disambiguate |
| fce0 | 64 20 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 | d.by.placing.a.token.&plist,.&al |
| fd00 | 69 73 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 | ist.or.&hash.as.a.first.item.in. |
| fd20 | 74 68 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 | the.MATCH-FORM...(fn.MATCH-FORM. |
| fd40 | 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 20 | SOURCE)..(defalias.'dash--match. |
| fd60 | 23 5b 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 | #[514.".9\203\n.\300..\"\207.:\2 |
| fd80 | 30 33 45 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 | 03E..A:\2030..@9\2030..A@\301=\2 |
| fda0 | 30 33 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 5c 33 30 33 5c | 030..@\211.D\302.AA.\"B\207\303\ |
| fdc0 | 33 30 34 03 40 21 21 5c 32 30 33 40 00 5c 33 30 35 5c 33 30 36 03 21 02 5c 22 5c 32 30 37 5c 33 | 304.@!!\203@.\305\306.!.\"\207\3 |
| fde0 | 30 37 02 02 5c 22 5c 32 30 37 5c 33 31 30 02 21 5c 32 30 35 74 00 01 47 5c 33 31 31 56 5c 32 30 | 07..\"\207\310.!\205t..G\311V\20 |
| fe00 | 33 70 00 01 5c 33 31 32 48 39 5c 32 30 33 70 00 01 5c 33 31 33 48 5c 33 30 31 3d 5c 32 30 33 70 | 3p..\312H9\203p..\313H\301=\203p |
| fe20 | 00 01 5c 33 31 32 48 5c 32 31 31 02 44 5c 33 30 32 5c 33 31 34 05 5c 33 31 31 5c 22 03 5c 22 42 | ..\312H\211.D\302\314.\311\".\"B |
| fe40 | 5c 32 30 37 5c 33 31 35 02 02 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 73 | \207\315..\"\207".[dash--match-s |
| fe60 | 79 6d 62 6f 6c 20 26 61 73 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 66 75 6e 63 74 69 6f 6e 70 20 | ymbol.&as.dash--match.functionp. |
| fe80 | 64 61 73 68 2d 2d 67 65 74 2d 65 78 70 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 64 61 73 68 2d 2d | dash--get-expand-function.dash-- |
| fea0 | 6d 61 74 63 68 2d 6b 76 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f 72 6d 61 6c 69 7a | match-kv.dash--match-kv-normaliz |
| fec0 | 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 20 76 65 | e-match-form.dash--match-cons.ve |
| fee0 | 63 74 6f 72 70 20 32 20 30 20 31 20 64 61 73 68 2d 2d 76 65 63 74 6f 72 2d 74 61 69 6c 20 64 61 | ctorp.2.0.1.dash--vector-tail.da |
| ff00 | 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 5d 20 38 20 28 23 24 20 2e 20 36 34 35 36 30 29 | sh--match-vector].8.(#$...64560) |
| ff20 | 5d 29 0a 23 40 33 36 34 20 4e 6f 72 6d 61 6c 69 7a 65 20 56 41 52 4c 49 53 54 20 73 6f 20 74 68 | ]).#@364.Normalize.VARLIST.so.th |
| ff40 | 61 74 20 65 76 65 72 79 20 62 69 6e 64 69 6e 67 20 69 73 20 61 20 6c 69 73 74 2e 0a 0a 60 6c 65 | at.every.binding.is.a.list...`le |
| ff60 | 74 27 20 61 6c 6c 6f 77 73 20 73 70 65 63 69 66 79 69 6e 67 20 61 20 62 69 6e 64 69 6e 67 20 77 | t'.allows.specifying.a.binding.w |
| ff80 | 68 69 63 68 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 20 62 75 74 20 73 69 6d 70 6c 79 0a 74 68 | hich.is.not.a.list.but.simply.th |
| ffa0 | 65 20 70 6c 61 63 65 20 77 68 69 63 68 20 69 73 20 74 68 65 6e 20 61 75 74 6f 6d 61 74 69 63 61 | e.place.which.is.then.automatica |
| ffc0 | 6c 6c 79 20 62 6f 75 6e 64 20 74 6f 20 6e 69 6c 2c 20 73 75 63 68 20 74 68 61 74 20 61 6c 6c 0a | lly.bound.to.nil,.such.that.all. |
| ffe0 | 74 68 72 65 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 20 69 64 65 6e 74 | three.of.the.following.are.ident |
| 10000 | 69 63 61 6c 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 74 6f 20 6e 69 6c 2e 0a 0a 20 20 28 6c 65 | ical.and.evaluate.to.nil.....(le |
| 10020 | 74 20 28 61 29 20 61 29 0a 20 20 28 6c 65 74 20 28 28 61 29 29 20 61 29 0a 20 20 28 6c 65 74 20 | t.(a).a)...(let.((a)).a)...(let. |
| 10040 | 28 28 61 20 6e 69 6c 29 29 20 61 29 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6e 6f 72 6d | ((a.nil)).a)..This.function.norm |
| 10060 | 61 6c 69 7a 65 73 20 61 6c 6c 20 6f 66 20 74 68 65 73 65 20 74 6f 20 74 68 65 20 6c 61 73 74 20 | alizes.all.of.these.to.the.last. |
| 10080 | 66 6f 72 6d 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | form...(fn.VARLIST)..(defalias.' |
| 100a0 | 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 73 74 20 23 5b 32 35 | dash--normalize-let-varlist.#[25 |
| 100c0 | 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 23 5b 32 35 | 7."\300\301.\"\207".[mapcar.#[25 |
| 100e0 | 37 20 22 5c 32 31 31 3a 5c 32 30 33 06 00 5c 32 30 37 5c 32 31 31 5c 33 30 30 44 5c 32 30 37 22 | 7."\211:\203..\207\211\300D\207" |
| 10100 | 20 5b 6e 69 6c 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 34 20 28 23 24 20 2e | .[nil].3."\n\n(fn.IT)"]].4.(#$.. |
| 10120 | 20 36 35 33 32 31 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 61 | .65321)]).#@476.Bind.variables.a |
| 10140 | 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 4f | ccording.to.VARLIST.then.eval.BO |
| 10160 | 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 20 | DY...VARLIST.is.a.list.of.lists. |
| 10180 | 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 45 | of.the.form.(PATTERN.SOURCE)...E |
| 101a0 | 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 74 | ach.PATTERN.is.matched.against.t |
| 101c0 | 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 20 | he.SOURCE.structurally...SOURCE. |
| 101e0 | 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 20 | is.only.evaluated.once.for.each. |
| 10200 | 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 20 | PATTERN...Each.SOURCE.can.refer. |
| 10220 | 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 20 | to.the.symbols.already.bound.by. |
| 10240 | 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 66 | this.VARLIST...This.is.useful.if |
| 10260 | 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 0a | .you.want.to.destructure.SOURCE. |
| 10280 | 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 6d | recursively.but.also.want.to.nam |
| 102a0 | 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 0a | e.the.intermediate.structures... |
| 102c0 | 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 70 | See.`-let'.for.the.list.of.all.p |
| 102e0 | 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 26 | ossible.patterns...(fn.VARLIST.& |
| 10300 | 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 6d | rest.BODY)..(defalias.'-let*.'(m |
| 10320 | 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 21 5c 33 30 31 5c 33 30 32 5c 33 30 33 | acro...#[385."\300.!\301\302\303 |
| 10340 | 5c 33 30 34 04 5c 22 5c 22 5c 33 30 35 01 04 42 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6e 6f | \304.\"\"\305..BB\207".[dash--no |
| 10360 | 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 73 74 20 61 70 70 6c 79 20 61 70 70 65 6e 64 | rmalize-let-varlist.apply.append |
| 10380 | 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22 20 | .mapcar.#[257."\300.@.A@\"\207". |
| 103a0 | 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 6c | [dash--match].4."\n\n(fn.IT)"].l |
| 103c0 | 65 74 2a 5d 20 38 20 28 23 24 20 2e 20 36 35 38 34 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 | et*].8.(#$...65840)])).(byte-cod |
| 103e0 | 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 31 | e."\300\301\302\303#\210\304\301 |
| 10400 | 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c 65 74 2a 20 65 64 | \305\306#\300\207".[put.-let*.ed |
| 10420 | 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 74 20 5b 26 6f 72 20 28 73 65 78 | ebug-form-spec.((&rest.[&or.(sex |
| 10440 | 70 20 66 6f 72 6d 29 20 73 65 78 70 5d 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 | p.form).sexp]).body).function-pu |
| 10460 | 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 35 | t.lisp-indent-function.1].4).#@5 |
| 10480 | 36 38 34 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 | 684.Bind.variables.according.to. |
| 104a0 | 56 41 52 4c 49 53 54 20 74 68 65 6e 20 65 76 61 6c 20 42 4f 44 59 2e 0a 0a 56 41 52 4c 49 53 54 | VARLIST.then.eval.BODY...VARLIST |
| 104c0 | 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 | .is.a.list.of.lists.of.the.form. |
| 104e0 | 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 2e 20 20 45 61 63 68 0a 50 41 54 54 45 52 4e 20 | (PATTERN.SOURCE)...Each.PATTERN. |
| 10500 | 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 53 4f 55 52 43 45 20 22 73 | is.matched.against.the.SOURCE."s |
| 10520 | 74 72 75 63 74 75 72 61 6c 6c 79 22 2e 20 20 53 4f 55 52 43 45 0a 69 73 20 6f 6e 6c 79 20 65 76 | tructurally"...SOURCE.is.only.ev |
| 10540 | 61 6c 75 61 74 65 64 20 6f 6e 63 65 20 66 6f 72 20 65 61 63 68 20 50 41 54 54 45 52 4e 2e 20 20 | aluated.once.for.each.PATTERN... |
| 10560 | 45 61 63 68 20 50 41 54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 0a 72 65 63 75 72 73 69 76 | Each.PATTERN.is.matched.recursiv |
| 10580 | 65 6c 79 2c 20 61 6e 64 20 63 61 6e 20 74 68 65 72 65 66 6f 72 65 20 63 6f 6e 74 61 69 6e 20 73 | ely,.and.can.therefore.contain.s |
| 105a0 | 75 62 2d 70 61 74 74 65 72 6e 73 20 77 68 69 63 68 20 61 72 65 0a 6d 61 74 63 68 65 64 20 61 67 | ub-patterns.which.are.matched.ag |
| 105c0 | 61 69 6e 73 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 75 62 2d 65 78 70 72 65 73 73 69 | ainst.corresponding.sub-expressi |
| 105e0 | 6f 6e 73 20 6f 66 20 53 4f 55 52 43 45 2e 0a 0a 41 6c 6c 20 74 68 65 20 53 4f 55 52 43 45 73 20 | ons.of.SOURCE...All.the.SOURCEs. |
| 10600 | 61 72 65 20 65 76 61 6c 6c 65 64 20 62 65 66 6f 72 65 20 61 6e 79 20 73 79 6d 62 6f 6c 73 20 61 | are.evalled.before.any.symbols.a |
| 10620 | 72 65 0a 62 6f 75 6e 64 20 28 69 2e 65 2e 20 22 69 6e 20 70 61 72 61 6c 6c 65 6c 22 29 2e 0a 0a | re.bound.(i.e.."in.parallel")... |
| 10640 | 49 66 20 56 41 52 4c 49 53 54 20 6f 6e 6c 79 20 63 6f 6e 74 61 69 6e 73 20 6f 6e 65 20 28 50 41 | If.VARLIST.only.contains.one.(PA |
| 10660 | 54 54 45 52 4e 20 53 4f 55 52 43 45 29 20 65 6c 65 6d 65 6e 74 2c 20 79 6f 75 20 63 61 6e 0a 6f | TTERN.SOURCE).element,.you.can.o |
| 10680 | 70 74 69 6f 6e 61 6c 6c 79 20 73 70 65 63 69 66 79 20 69 74 20 75 73 69 6e 67 20 61 20 76 65 63 | ptionally.specify.it.using.a.vec |
| 106a0 | 74 6f 72 20 61 6e 64 20 64 69 73 63 61 72 64 69 6e 67 20 74 68 65 0a 6f 75 74 65 72 2d 6d 6f 73 | tor.and.discarding.the.outer-mos |
| 106c0 | 74 20 70 61 72 65 6e 73 2e 20 20 54 68 75 73 0a 0a 20 20 28 2d 6c 65 74 20 28 28 50 41 54 54 45 | t.parens...Thus....(-let.((PATTE |
| 106e0 | 52 4e 20 53 4f 55 52 43 45 29 29 20 2e 2e 29 0a 0a 62 65 63 6f 6d 65 73 0a 0a 20 20 28 2d 6c 65 | RN.SOURCE))...)..becomes....(-le |
| 10700 | 74 20 5b 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 5d 20 2e 2e 29 2e 0a 0a 60 2d 6c 65 74 27 20 | t.[PATTERN.SOURCE]...)...`-let'. |
| 10720 | 75 73 65 73 20 61 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 6f 66 20 6e 6f 74 20 62 69 6e 64 69 6e 67 | uses.a.convention.of.not.binding |
| 10740 | 20 70 6c 61 63 65 73 20 28 73 79 6d 62 6f 6c 73 29 20 73 74 61 72 74 69 6e 67 0a 77 69 74 68 20 | .places.(symbols).starting.with. |
| 10760 | 5f 20 77 68 65 6e 65 76 65 72 20 69 74 27 73 20 70 6f 73 73 69 62 6c 65 2e 20 20 59 6f 75 20 63 | _.whenever.it's.possible...You.c |
| 10780 | 61 6e 20 75 73 65 20 74 68 69 73 20 74 6f 20 73 6b 69 70 20 6f 76 65 72 0a 65 6e 74 72 69 65 73 | an.use.this.to.skip.over.entries |
| 107a0 | 20 79 6f 75 20 64 6f 6e 27 74 20 63 61 72 65 20 61 62 6f 75 74 2e 20 20 48 6f 77 65 76 65 72 2c | .you.don't.care.about...However, |
| 107c0 | 20 74 68 69 73 20 69 73 20 6e 6f 74 20 2a 61 6c 77 61 79 73 2a 0a 70 6f 73 73 69 62 6c 65 20 28 | .this.is.not.*always*.possible.( |
| 107e0 | 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 20 61 | as.a.result.of.implementation).a |
| 10800 | 6e 64 20 74 68 65 73 65 20 73 79 6d 62 6f 6c 73 20 6d 69 67 68 74 0a 67 65 74 20 62 6f 75 6e 64 | nd.these.symbols.might.get.bound |
| 10820 | 20 74 6f 20 75 6e 64 65 66 69 6e 65 64 20 76 61 6c 75 65 73 2e 0a 0a 46 6f 6c 6c 6f 77 69 6e 67 | .to.undefined.values...Following |
| 10840 | 20 69 73 20 74 68 65 20 6f 76 65 72 76 69 65 77 20 6f 66 20 73 75 70 70 6f 72 74 65 64 20 70 61 | .is.the.overview.of.supported.pa |
| 10860 | 74 74 65 72 6e 73 2e 20 20 52 65 6d 65 6d 62 65 72 20 74 68 61 74 0a 70 61 74 74 65 72 6e 73 20 | tterns...Remember.that.patterns. |
| 10880 | 63 61 6e 20 62 65 20 6d 61 74 63 68 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 2c 20 73 6f 20 65 | can.be.matched.recursively,.so.e |
| 108a0 | 76 65 72 79 20 61 2c 20 62 2c 20 61 4b 20 69 6e 20 74 68 65 0a 66 6f 6c 6c 6f 77 69 6e 67 20 63 | very.a,.b,.aK.in.the.following.c |
| 108c0 | 61 6e 20 62 65 20 61 20 6d 61 74 63 68 69 6e 67 20 63 6f 6e 73 74 72 75 63 74 20 61 6e 64 20 6e | an.be.a.matching.construct.and.n |
| 108e0 | 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 0a 73 79 6d 62 6f 6c 2f 76 61 72 69 61 62 6c 65 | ot.necessarily.a.symbol/variable |
| 10900 | 2e 0a 0a 53 79 6d 62 6f 6c 3a 0a 0a 20 20 61 20 2d 20 62 69 6e 64 20 74 68 65 20 53 4f 55 52 43 | ...Symbol:....a.-.bind.the.SOURC |
| 10920 | 45 20 74 6f 20 41 2e 20 20 54 68 69 73 20 69 73 20 6a 75 73 74 20 6c 69 6b 65 20 72 65 67 75 6c | E.to.A...This.is.just.like.regul |
| 10940 | 61 72 20 60 6c 65 74 27 2e 0a 0a 43 6f 6e 73 65 73 20 61 6e 64 20 6c 69 73 74 73 3a 0a 0a 20 20 | ar.`let'...Conses.and.lists:.... |
| 10960 | 28 61 29 20 2d 20 62 69 6e 64 20 60 63 61 72 27 20 6f 66 20 63 6f 6e 73 2f 6c 69 73 74 20 74 6f | (a).-.bind.`car'.of.cons/list.to |
| 10980 | 20 41 0a 0a 20 20 28 61 20 2e 20 62 29 20 2d 20 62 69 6e 64 20 63 61 72 20 6f 66 20 63 6f 6e 73 | .A....(a...b).-.bind.car.of.cons |
| 109a0 | 20 74 6f 20 41 20 61 6e 64 20 60 63 64 72 27 20 74 6f 20 42 0a 0a 20 20 28 61 20 62 29 20 2d 20 | .to.A.and.`cdr'.to.B....(a.b).-. |
| 109c0 | 62 69 6e 64 20 63 61 72 20 6f 66 20 6c 69 73 74 20 74 6f 20 41 20 61 6e 64 20 60 63 61 64 72 27 | bind.car.of.list.to.A.and.`cadr' |
| 109e0 | 20 74 6f 20 42 0a 0a 20 20 28 61 31 20 61 32 20 61 33 20 20 2e 2e 2e 29 20 2d 20 62 69 6e 64 20 | .to.B....(a1.a2.a3.....).-.bind. |
| 10a00 | 30 74 68 20 63 61 72 20 6f 66 20 6c 69 73 74 20 74 6f 20 41 31 2c 20 31 73 74 20 74 6f 20 41 32 | 0th.car.of.list.to.A1,.1st.to.A2 |
| 10a20 | 2c 20 32 6e 64 20 74 6f 20 41 33 20 2e 2e 2e 0a 0a 20 20 28 61 31 20 61 32 20 61 33 20 2e 2e 2e | ,.2nd.to.A3........(a1.a2.a3.... |
| 10a40 | 20 61 4e 20 2e 20 72 65 73 74 29 20 2d 20 61 73 20 61 62 6f 76 65 2c 20 62 75 74 20 62 69 6e 64 | .aN...rest).-.as.above,.but.bind |
| 10a60 | 20 74 68 65 20 4e 74 68 20 63 64 72 20 74 6f 20 52 45 53 54 2e 0a 0a 56 65 63 74 6f 72 73 3a 0a | .the.Nth.cdr.to.REST...Vectors:. |
| 10a80 | 0a 20 20 5b 61 5d 20 2d 20 62 69 6e 64 20 30 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 61 20 6e | ...[a].-.bind.0th.element.of.a.n |
| 10aa0 | 6f 6e 2d 6c 69 73 74 20 73 65 71 75 65 6e 63 65 20 74 6f 20 41 20 28 77 6f 72 6b 73 20 77 69 74 | on-list.sequence.to.A.(works.wit |
| 10ac0 | 68 0a 20 20 20 20 20 20 20 20 76 65 63 74 6f 72 73 2c 20 73 74 72 69 6e 67 73 2c 20 62 69 74 20 | h.........vectors,.strings,.bit. |
| 10ae0 | 61 72 72 61 79 73 2e 2e 2e 29 0a 0a 20 20 5b 61 31 20 61 32 20 61 33 20 2e 2e 2e 5d 20 2d 20 62 | arrays...)....[a1.a2.a3....].-.b |
| 10b00 | 69 6e 64 20 30 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 6e 6f 6e 2d 6c 69 73 74 20 73 65 71 75 | ind.0th.element.of.non-list.sequ |
| 10b20 | 65 6e 63 65 20 74 6f 20 41 30 2c 20 31 73 74 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ence.to.A0,.1st.to.............. |
| 10b40 | 20 20 20 20 20 20 41 31 2c 20 32 6e 64 20 74 6f 20 41 32 2c 20 2e 2e 2e 0a 20 20 20 20 20 20 20 | ......A1,.2nd.to.A2,............ |
| 10b60 | 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 20 50 41 54 54 45 52 4e 20 69 73 20 73 68 | ............If.the.PATTERN.is.sh |
| 10b80 | 6f 72 74 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c 20 74 68 65 20 76 61 6c 75 65 73 20 61 74 | orter.than.SOURCE,.the.values.at |
| 10ba0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 61 63 65 73 20 6e 6f 74 20 69 | ....................places.not.i |
| 10bc0 | 6e 20 50 41 54 54 45 52 4e 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 20 20 20 20 20 20 20 20 20 | n.PATTERN.are.ignored........... |
| 10be0 | 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 20 50 41 54 54 45 52 4e 20 69 73 20 6c 6f 6e 67 | ..........If.the.PATTERN.is.long |
| 10c00 | 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c 20 61 6e 20 60 65 72 72 6f 72 27 20 69 73 0a 20 20 | er.than.SOURCE,.an.`error'.is... |
| 10c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 77 6e 2e 0a 0a 20 20 5b 61 31 20 | .................thrown.....[a1. |
| 10c40 | 61 32 20 61 33 20 2e 2e 2e 20 26 72 65 73 74 20 72 65 73 74 5d 20 2d 20 61 73 20 61 62 6f 76 65 | a2.a3.....&rest.rest].-.as.above |
| 10c60 | 2c 20 62 75 74 20 62 69 6e 64 20 74 68 65 20 72 65 73 74 20 6f 66 0a 20 20 20 20 20 20 20 20 20 | ,.but.bind.the.rest.of.......... |
| 10c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 73 65 71 75 65 6e 63 | .....................the.sequenc |
| 10ca0 | 65 20 74 6f 20 52 45 53 54 2e 20 20 54 68 69 73 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e.to.REST...This.is............. |
| 10cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 65 70 74 75 61 6c 6c 79 20 74 | ..................conceptually.t |
| 10ce0 | 68 65 20 73 61 6d 65 20 61 73 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 0a 20 20 20 20 20 20 20 | he.same.as.improper.list........ |
| 10d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 63 68 69 6e 67 20 | .......................matching. |
| 10d20 | 28 61 31 20 61 32 20 2e 2e 2e 20 61 4e 20 2e 20 72 65 73 74 29 0a 0a 4b 65 79 2f 76 61 6c 75 65 | (a1.a2.....aN...rest)..Key/value |
| 10d40 | 20 73 74 6f 72 65 73 3a 0a 0a 20 20 28 26 70 6c 69 73 74 20 6b 65 79 30 20 61 30 20 2e 2e 2e 20 | .stores:....(&plist.key0.a0..... |
| 10d60 | 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d 61 70 70 65 64 20 62 79 20 | keyN.aN).-.bind.value.mapped.by. |
| 10d80 | 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | keyK.in.the..................... |
| 10da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 70 6c 69 73 74 20 74 6f 20 61 4b 2e | .............SOURCE.plist.to.aK. |
| 10dc0 | 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..If.the........................ |
| 10de0 | 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b | ..........value.is.not.found,.aK |
| 10e00 | 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .is.nil......................... |
| 10e20 | 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 70 6c 69 73 74 2d 67 65 74 27 20 74 6f 20 66 65 | ..........Uses.`plist-get'.to.fe |
| 10e40 | 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 20 20 28 26 61 6c 69 73 74 20 6b 65 79 30 20 61 30 20 2e | tch.values.....(&alist.key0.a0.. |
| 10e60 | 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d 61 70 70 65 64 20 | ...keyN.aN).-.bind.value.mapped. |
| 10e80 | 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | by.keyK.in.the.................. |
| 10ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 61 6c 69 73 74 20 74 6f 20 | ................SOURCE.alist.to. |
| 10ec0 | 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | aK...If.the..................... |
| 10ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c | .............value.is.not.found, |
| 10f00 | 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .aK.is.nil...................... |
| 10f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 61 73 73 6f 63 27 20 74 6f 20 66 65 74 | .............Uses.`assoc'.to.fet |
| 10f40 | 63 68 20 76 61 6c 75 65 73 2e 0a 0a 20 20 28 26 68 61 73 68 20 6b 65 79 30 20 61 30 20 2e 2e 2e | ch.values.....(&hash.key0.a0.... |
| 10f60 | 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 6c 75 65 20 6d 61 70 70 65 64 20 62 79 | .keyN.aN).-.bind.value.mapped.by |
| 10f80 | 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .keyK.in.the.................... |
| 10fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 45 20 68 61 73 68 20 74 61 62 6c 65 20 74 | .............SOURCE.hash.table.t |
| 10fc0 | 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o.aK...If.the................... |
| 10fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 | ..............value.is.not.found |
| 11000 | 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ,.aK.is.nil..................... |
| 11020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 67 65 74 68 61 73 68 27 20 74 6f 20 66 | .............Uses.`gethash'.to.f |
| 11040 | 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 46 75 72 74 68 65 72 2c 20 73 70 65 63 69 61 6c 20 6b | etch.values...Further,.special.k |
| 11060 | 65 79 77 6f 72 64 20 26 6b 65 79 73 20 73 75 70 70 6f 72 74 73 20 22 69 6e 6c 69 6e 65 22 20 6d | eyword.&keys.supports."inline".m |
| 11080 | 61 74 63 68 69 6e 67 20 6f 66 0a 70 6c 69 73 74 2d 6c 69 6b 65 20 6b 65 79 2d 76 61 6c 75 65 20 | atching.of.plist-like.key-value. |
| 110a0 | 70 61 69 72 73 2c 20 73 69 6d 69 6c 61 72 6c 79 20 74 6f 20 26 6b 65 79 73 20 6b 65 79 77 6f 72 | pairs,.similarly.to.&keys.keywor |
| 110c0 | 64 20 6f 66 0a 60 63 6c 2d 64 65 66 75 6e 27 2e 0a 0a 20 20 28 61 31 20 61 32 20 2e 2e 2e 20 61 | d.of.`cl-defun'.....(a1.a2.....a |
| 110e0 | 4e 20 26 6b 65 79 73 20 6b 65 79 31 20 62 31 20 2e 2e 2e 20 6b 65 79 4e 20 62 4b 29 0a 0a 54 68 | N.&keys.key1.b1.....keyN.bK)..Th |
| 11100 | 69 73 20 62 69 6e 64 73 20 4e 20 76 61 6c 75 65 73 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 | is.binds.N.values.from.the.list. |
| 11120 | 74 6f 20 61 31 20 2e 2e 2e 20 61 4e 2c 20 74 68 65 6e 20 69 6e 74 65 72 70 72 65 74 73 0a 74 68 | to.a1.....aN,.then.interprets.th |
| 11140 | 65 20 63 64 72 20 61 73 20 61 20 70 6c 69 73 74 20 28 73 65 65 20 6b 65 79 2f 76 61 6c 75 65 20 | e.cdr.as.a.plist.(see.key/value. |
| 11160 | 6d 61 74 63 68 69 6e 67 20 61 62 6f 76 65 29 2e 0a 0a 41 20 73 68 6f 72 74 68 61 6e 64 20 6e 6f | matching.above)...A.shorthand.no |
| 11180 | 74 61 74 69 6f 6e 20 66 6f 72 20 6b 76 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 65 78 69 73 | tation.for.kv-destructuring.exis |
| 111a0 | 74 73 20 77 68 69 63 68 20 61 6c 6c 6f 77 73 20 74 68 65 0a 70 61 74 74 65 72 6e 73 20 62 65 20 | ts.which.allows.the.patterns.be. |
| 111c0 | 6f 70 74 69 6f 6e 61 6c 6c 79 20 6c 65 66 74 20 6f 75 74 20 61 6e 64 20 64 65 72 69 76 65 64 20 | optionally.left.out.and.derived. |
| 111e0 | 66 72 6f 6d 20 74 68 65 20 6b 65 79 20 6e 61 6d 65 20 69 6e 0a 74 68 65 20 66 6f 6c 6c 6f 77 69 | from.the.key.name.in.the.followi |
| 11200 | 6e 67 20 66 61 73 68 69 6f 6e 3a 0a 0a 2d 20 61 20 6b 65 79 20 3a 66 6f 6f 20 69 73 20 63 6f 6e | ng.fashion:..-.a.key.:foo.is.con |
| 11220 | 76 65 72 74 65 64 20 69 6e 74 6f 20 60 66 6f 6f 27 20 70 61 74 74 65 72 6e 2c 0a 2d 20 61 20 6b | verted.into.`foo'.pattern,.-.a.k |
| 11240 | 65 79 20 27 62 61 72 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 60 62 61 72 27 20 | ey.'bar.is.converted.into.`bar'. |
| 11260 | 70 61 74 74 65 72 6e 2c 0a 2d 20 61 20 6b 65 79 20 22 62 61 7a 22 20 69 73 20 63 6f 6e 76 65 72 | pattern,.-.a.key."baz".is.conver |
| 11280 | 74 65 64 20 69 6e 74 6f 20 60 62 61 7a 27 20 70 61 74 74 65 72 6e 2e 0a 0a 54 68 61 74 20 69 73 | ted.into.`baz'.pattern...That.is |
| 112a0 | 2c 20 74 68 65 20 65 6e 74 69 72 65 20 76 61 6c 75 65 20 75 6e 64 65 72 20 74 68 65 20 6b 65 79 | ,.the.entire.value.under.the.key |
| 112c0 | 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 64 65 72 69 76 65 64 0a 76 61 72 69 61 62 6c | .is.bound.to.the.derived.variabl |
| 112e0 | 65 20 77 69 74 68 6f 75 74 20 61 6e 79 20 66 75 72 74 68 65 72 20 64 65 73 74 72 75 63 74 75 72 | e.without.any.further.destructur |
| 11300 | 69 6e 67 2e 0a 0a 54 68 69 73 20 69 73 20 70 6f 73 73 69 62 6c 65 20 6f 6e 6c 79 20 77 68 65 6e | ing...This.is.possible.only.when |
| 11320 | 20 74 68 65 20 66 6f 72 6d 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 6b 65 79 20 69 73 20 6e | .the.form.following.the.key.is.n |
| 11340 | 6f 74 20 61 0a 76 61 6c 69 64 20 70 61 74 74 65 72 6e 20 28 69 2e 65 2e 20 6e 6f 74 20 61 20 73 | ot.a.valid.pattern.(i.e..not.a.s |
| 11360 | 79 6d 62 6f 6c 2c 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 6f 72 20 61 20 76 65 63 74 6f 72 29 2e | ymbol,.a.cons.cell.or.a.vector). |
| 11380 | 0a 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 6d 61 74 63 68 69 6e 67 20 70 72 6f 63 65 65 64 73 | .Otherwise.the.matching.proceeds |
| 113a0 | 20 61 73 20 75 73 75 61 6c 20 61 6e 64 20 69 6e 20 63 61 73 65 20 6f 66 20 61 6e 0a 69 6e 76 61 | .as.usual.and.in.case.of.an.inva |
| 113c0 | 6c 69 64 20 73 70 65 63 20 66 61 69 6c 73 20 77 69 74 68 20 61 6e 20 65 72 72 6f 72 2e 0a 0a 54 | lid.spec.fails.with.an.error...T |
| 113e0 | 68 75 73 20 74 68 65 20 70 61 74 74 65 72 6e 73 20 61 72 65 20 6e 6f 72 6d 61 6c 69 7a 65 64 20 | hus.the.patterns.are.normalized. |
| 11400 | 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 0a 20 20 20 3b 3b 20 64 65 72 69 76 65 20 61 6c 6c 20 74 68 | as.follows:.....;;.derive.all.th |
| 11420 | 65 20 6d 69 73 73 69 6e 67 20 70 61 74 74 65 72 6e 73 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 | e.missing.patterns....(&plist.:f |
| 11440 | 6f 6f 20 27 62 61 72 20 22 62 61 7a 22 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 66 | oo.'bar."baz").=>.(&plist.:foo.f |
| 11460 | 6f 6f 20 27 62 61 72 20 62 61 72 20 22 62 61 7a 22 20 62 61 7a 29 0a 0a 20 20 20 3b 3b 20 77 65 | oo.'bar.bar."baz".baz).....;;.we |
| 11480 | 20 63 61 6e 20 73 70 65 63 69 66 79 20 73 6f 6d 65 20 62 75 74 20 6e 6f 74 20 6f 74 68 65 72 73 | .can.specify.some.but.not.others |
| 114a0 | 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 27 62 61 72 20 65 78 70 6c 69 63 69 74 2d 62 | ....(&plist.:foo.'bar.explicit-b |
| 114c0 | 61 72 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 66 6f 6f 20 27 62 61 72 20 65 78 70 | ar).=>.(&plist.:foo.foo.'bar.exp |
| 114e0 | 6c 69 63 69 74 2d 62 61 72 29 0a 0a 20 20 20 3b 3b 20 6e 6f 74 68 69 6e 67 20 68 61 70 70 65 6e | licit-bar).....;;.nothing.happen |
| 11500 | 73 2c 20 77 65 20 73 74 6f 72 65 20 3a 66 6f 6f 20 69 6e 20 78 0a 20 20 20 28 26 70 6c 69 73 74 | s,.we.store.:foo.in.x....(&plist |
| 11520 | 20 3a 66 6f 6f 20 78 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 78 29 0a 0a 20 20 20 | .:foo.x).=>.(&plist.:foo.x)..... |
| 11540 | 3b 3b 20 6e 6f 74 68 69 6e 67 20 68 61 70 70 65 6e 73 2c 20 77 65 20 6d 61 74 63 68 20 72 65 63 | ;;.nothing.happens,.we.match.rec |
| 11560 | 75 72 73 69 76 65 6c 79 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 28 61 20 62 20 63 29 | ursively....(&plist.:foo.(a.b.c) |
| 11580 | 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 28 61 20 62 20 63 29 29 0a 0a 59 6f 75 20 | ).=>.(&plist.:foo.(a.b.c))..You. |
| 115a0 | 63 61 6e 20 6e 61 6d 65 20 74 68 65 20 73 6f 75 72 63 65 20 75 73 69 6e 67 20 74 68 65 20 73 79 | can.name.the.source.using.the.sy |
| 115c0 | 6e 74 61 78 20 53 59 4d 42 4f 4c 20 26 61 73 20 50 41 54 54 45 52 4e 2e 0a 54 68 69 73 20 73 79 | ntax.SYMBOL.&as.PATTERN..This.sy |
| 115e0 | 6e 74 61 78 20 77 6f 72 6b 73 20 77 69 74 68 20 6c 69 73 74 73 20 28 70 72 6f 70 65 72 20 6f 72 | ntax.works.with.lists.(proper.or |
| 11600 | 20 69 6d 70 72 6f 70 65 72 29 2c 20 76 65 63 74 6f 72 73 20 61 6e 64 0a 61 6c 6c 20 74 79 70 65 | .improper),.vectors.and.all.type |
| 11620 | 73 20 6f 66 20 6d 61 70 73 2e 0a 0a 20 20 28 6c 69 73 74 20 26 61 73 20 61 20 62 20 63 29 20 28 | s.of.maps.....(list.&as.a.b.c).( |
| 11640 | 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 41 20 74 6f 20 31 2c 20 42 20 74 6f 20 | list.1.2.3)..binds.A.to.1,.B.to. |
| 11660 | 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 4c 49 53 54 20 74 6f 20 28 31 20 32 20 33 29 2e 0a 0a | 2,.C.to.3.and.LIST.to.(1.2.3)... |
| 11680 | 53 69 6d 69 6c 61 72 6c 79 3a 0a 0a 20 20 28 62 6f 75 6e 64 73 20 26 61 73 20 62 65 67 20 2e 20 | Similarly:....(bounds.&as.beg... |
| 116a0 | 65 6e 64 29 20 28 63 6f 6e 73 20 31 20 32 29 0a 0a 62 69 6e 64 73 20 42 45 47 20 74 6f 20 31 2c | end).(cons.1.2)..binds.BEG.to.1, |
| 116c0 | 20 45 4e 44 20 74 6f 20 32 20 61 6e 64 20 42 4f 55 4e 44 53 20 74 6f 20 28 31 20 2e 20 32 29 2e | .END.to.2.and.BOUNDS.to.(1...2). |
| 116e0 | 0a 0a 20 20 28 69 74 65 6d 73 20 26 61 73 20 66 69 72 73 74 20 2e 20 72 65 73 74 29 20 28 6c 69 | ....(items.&as.first...rest).(li |
| 11700 | 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 46 49 52 53 54 20 74 6f 20 31 2c 20 52 45 53 | st.1.2.3)..binds.FIRST.to.1,.RES |
| 11720 | 54 20 74 6f 20 28 32 20 33 29 20 61 6e 64 20 49 54 45 4d 53 20 74 6f 20 28 31 20 32 20 33 29 0a | T.to.(2.3).and.ITEMS.to.(1.2.3). |
| 11740 | 0a 20 20 5b 76 65 63 74 20 26 61 73 20 5f 20 62 20 63 5d 20 5b 31 20 32 20 33 5d 0a 0a 62 69 6e | ...[vect.&as._.b.c].[1.2.3]..bin |
| 11760 | 64 73 20 42 20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 56 45 43 54 20 74 6f 20 5b 31 | ds.B.to.2,.C.to.3.and.VECT.to.[1 |
| 11780 | 20 32 20 33 5d 20 28 5f 20 61 76 6f 69 64 73 20 62 69 6e 64 69 6e 67 20 61 73 20 75 73 75 61 6c | .2.3].(_.avoids.binding.as.usual |
| 117a0 | 29 2e 0a 0a 20 20 28 70 6c 69 73 74 20 26 61 73 20 26 70 6c 69 73 74 20 3a 62 20 62 29 20 28 6c | ).....(plist.&as.&plist.:b.b).(l |
| 117c0 | 69 73 74 20 3a 61 20 31 20 3a 62 20 32 20 3a 63 20 33 29 0a 0a 62 69 6e 64 73 20 42 20 74 6f 20 | ist.:a.1.:b.2.:c.3)..binds.B.to. |
| 117e0 | 32 20 61 6e 64 20 50 4c 49 53 54 20 74 6f 20 28 3a 61 20 31 20 3a 62 20 32 20 3a 63 20 33 29 2e | 2.and.PLIST.to.(:a.1.:b.2.:c.3). |
| 11800 | 20 20 53 61 6d 65 20 66 6f 72 20 26 61 6c 69 73 74 20 61 6e 64 20 26 68 61 73 68 2e 0a 0a 54 68 | ..Same.for.&alist.and.&hash...Th |
| 11820 | 69 73 20 69 73 20 65 73 70 65 63 69 61 6c 6c 79 20 75 73 65 66 75 6c 20 77 68 65 6e 20 77 65 20 | is.is.especially.useful.when.we. |
| 11840 | 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 0a | want.to.capture.the.result.of.a. |
| 11860 | 63 6f 6d 70 75 74 61 74 69 6f 6e 20 61 6e 64 20 64 65 73 74 72 75 63 74 75 72 65 20 61 74 20 74 | computation.and.destructure.at.t |
| 11880 | 68 65 20 73 61 6d 65 20 74 69 6d 65 2e 20 20 43 6f 6e 73 69 64 65 72 20 74 68 65 0a 66 6f 72 6d | he.same.time...Consider.the.form |
| 118a0 | 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 6e 67 2d 63 6f 6d 70 6c 65 78 2d 73 74 72 | .(function-returning-complex-str |
| 118c0 | 75 63 74 75 72 65 29 20 72 65 74 75 72 6e 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 0a 74 77 6f 20 | ucture).returning.a.list.of.two. |
| 118e0 | 76 65 63 74 6f 72 73 20 77 69 74 68 20 74 77 6f 20 69 74 65 6d 73 20 65 61 63 68 2e 20 20 57 65 | vectors.with.two.items.each...We |
| 11900 | 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 69 73 20 65 6e 74 69 72 65 0a 72 65 73 | .want.to.capture.this.entire.res |
| 11920 | 75 6c 74 20 61 6e 64 20 70 61 73 73 20 69 74 20 74 6f 20 61 6e 6f 74 68 65 72 20 63 6f 6d 70 75 | ult.and.pass.it.to.another.compu |
| 11940 | 74 61 74 69 6f 6e 2c 20 62 75 74 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 0a 77 65 20 | tation,.but.at.the.same.time.we. |
| 11960 | 77 61 6e 74 20 74 6f 20 67 65 74 20 74 68 65 20 73 65 63 6f 6e 64 20 69 74 65 6d 20 66 72 6f 6d | want.to.get.the.second.item.from |
| 11980 | 20 65 61 63 68 20 76 65 63 74 6f 72 2e 20 20 57 65 20 63 61 6e 20 61 63 68 69 65 76 65 0a 69 74 | .each.vector...We.can.achieve.it |
| 119a0 | 20 77 69 74 68 20 70 61 74 74 65 72 6e 0a 0a 20 20 28 72 65 73 75 6c 74 20 26 61 73 20 5b 5f 20 | .with.pattern....(result.&as.[_. |
| 119c0 | 61 5d 20 5b 5f 20 62 5d 29 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 6e 67 2d 63 6f | a].[_.b]).(function-returning-co |
| 119e0 | 6d 70 6c 65 78 2d 73 74 72 75 63 74 75 72 65 29 0a 0a 4e 6f 74 65 3a 20 43 6c 6f 6a 75 72 65 20 | mplex-structure)..Note:.Clojure. |
| 11a00 | 70 72 6f 67 72 61 6d 6d 65 72 73 20 6d 61 79 20 6b 6e 6f 77 20 74 68 69 73 20 66 65 61 74 75 72 | programmers.may.know.this.featur |
| 11a20 | 65 20 61 73 20 74 68 65 20 22 3a 61 73 0a 62 69 6e 64 69 6e 67 22 2e 20 20 54 68 65 20 64 69 66 | e.as.the.":as.binding"...The.dif |
| 11a40 | 66 65 72 65 6e 63 65 20 69 73 20 74 68 61 74 20 77 65 20 70 75 74 20 74 68 65 20 26 61 73 20 61 | ference.is.that.we.put.the.&as.a |
| 11a60 | 74 20 74 68 65 20 66 72 6f 6e 74 0a 62 65 63 61 75 73 65 20 77 65 20 6e 65 65 64 20 74 6f 20 73 | t.the.front.because.we.need.to.s |
| 11a80 | 75 70 70 6f 72 74 20 69 6d 70 72 6f 70 65 72 20 6c 69 73 74 20 62 69 6e 64 69 6e 67 2e 0a 0a 28 | upport.improper.list.binding...( |
| 11aa0 | 66 6e 20 56 41 52 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 | fn.VARLIST.&rest.BODY)..(defalia |
| 11ac0 | 73 20 27 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 21 5c | s.'-let.'(macro...#[385."\300.!\ |
| 11ae0 | 32 30 33 13 00 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 48 04 5c 33 30 34 48 5c 22 02 42 42 5c 32 | 203..\301\302.\303H.\304H\".BB\2 |
| 11b00 | 30 37 5c 33 30 35 02 21 5c 33 30 36 01 5c 33 30 33 01 5c 32 30 33 39 00 01 40 5c 33 30 37 5c 33 | 07\305.!\306.\303.\2039..@\307\3 |
| 11b20 | 31 30 5c 33 31 31 04 5c 22 21 01 41 40 44 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 | 10\311.\"!.A@D.B\262.\210\211T\2 |
| 11b40 | 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 19 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 | 62..A\262.\202..\266.\211\237\26 |
| 11b60 | 32 01 5c 33 31 32 5c 33 31 33 5c 33 31 34 04 04 5c 22 5c 22 5c 33 31 35 02 5c 33 31 36 03 06 07 | 2.\312\313\314..\"\"\315.\316... |
| 11b80 | 42 42 45 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 70 20 6c 65 74 2a 20 64 61 73 68 2d 2d 6d 61 74 | BBE\207".[vectorp.let*.dash--mat |
| 11ba0 | 63 68 20 30 20 31 20 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 74 2d 76 61 72 6c 69 | ch.0.1.dash--normalize-let-varli |
| 11bc0 | 73 74 20 6e 69 6c 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 69 6e 70 75 74 | st.nil.make-symbol.format."input |
| 11be0 | 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 30 37 | %d".mapcar.#[257."\211@@.A@D\207 |
| 11c00 | 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 20 2d | ".[].3."\n\n(fn.IT)"].-zip.let.- |
| 11c20 | 6c 65 74 2a 5d 20 31 31 20 28 23 24 20 2e 20 36 36 36 39 32 29 5d 29 29 0a 28 62 79 74 65 2d 63 | let*].11.(#$...66692)])).(byte-c |
| 11c40 | 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 33 | ode."\300\301\302\303#\210\304\3 |
| 11c60 | 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 6c 65 74 20 65 | 01\305\306#\300\207".[put.-let.e |
| 11c80 | 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 5b 26 6f 72 20 28 26 72 65 73 74 20 5b 26 6f | debug-form-spec.([&or.(&rest.[&o |
| 11ca0 | 72 20 28 73 65 78 70 20 66 6f 72 6d 29 20 73 65 78 70 5d 29 20 28 76 65 63 74 6f 72 20 5b 26 72 | r.(sexp.form).sexp]).(vector.[&r |
| 11cc0 | 65 73 74 20 5b 73 65 78 70 20 66 6f 72 6d 5d 5d 29 5d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f | est.[sexp.form]])].body).functio |
| 11ce0 | 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 | n-put.lisp-indent-function.1].4) |
| 11d00 | 0a 23 40 34 32 33 20 52 65 74 75 72 6e 20 61 20 6c 61 6d 62 64 61 20 77 68 69 63 68 20 64 65 73 | .#@423.Return.a.lambda.which.des |
| 11d20 | 74 72 75 63 74 75 72 65 73 20 69 74 73 20 69 6e 70 75 74 20 61 73 20 4d 41 54 43 48 2d 46 4f 52 | tructures.its.input.as.MATCH-FOR |
| 11d40 | 4d 20 61 6e 64 20 65 78 65 63 75 74 65 73 20 42 4f 44 59 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 | M.and.executes.BODY...Note.that. |
| 11d60 | 79 6f 75 20 68 61 76 65 20 74 6f 20 65 6e 63 6c 6f 73 65 20 74 68 65 20 4d 41 54 43 48 2d 46 4f | you.have.to.enclose.the.MATCH-FO |
| 11d80 | 52 4d 20 69 6e 20 61 20 70 61 69 72 20 6f 66 20 70 61 72 65 6e 73 2c 0a 73 75 63 68 20 74 68 61 | RM.in.a.pair.of.parens,.such.tha |
| 11da0 | 74 3a 0a 0a 20 20 28 2d 6c 61 6d 62 64 61 20 28 78 29 20 62 6f 64 79 29 0a 20 20 28 2d 6c 61 6d | t:....(-lambda.(x).body)...(-lam |
| 11dc0 | 62 64 61 20 28 78 20 79 20 2e 2e 2e 29 20 62 6f 64 79 29 0a 0a 68 61 73 20 74 68 65 20 75 73 75 | bda.(x.y....).body)..has.the.usu |
| 11de0 | 61 6c 20 73 65 6d 61 6e 74 69 63 73 20 6f 66 20 60 6c 61 6d 62 64 61 27 2e 20 20 46 75 72 74 68 | al.semantics.of.`lambda'...Furth |
| 11e00 | 65 72 6d 6f 72 65 2c 20 74 68 65 73 65 20 67 65 74 0a 74 72 61 6e 73 6c 61 74 65 64 20 69 6e 74 | ermore,.these.get.translated.int |
| 11e20 | 6f 20 6e 6f 72 6d 61 6c 20 6c 61 6d 62 64 61 2c 20 73 6f 20 74 68 65 72 65 20 69 73 20 6e 6f 20 | o.normal.lambda,.so.there.is.no. |
| 11e40 | 70 65 72 66 6f 72 6d 61 6e 63 65 0a 70 65 6e 61 6c 74 79 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 | performance.penalty...See.`-let' |
| 11e60 | 20 66 6f 72 20 74 68 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 64 65 73 74 72 75 63 74 | .for.the.description.of.destruct |
| 11e80 | 75 72 69 6e 67 20 6d 65 63 68 61 6e 69 73 6d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d | uring.mechanism...(fn.MATCH-FORM |
| 11ea0 | 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 61 6d 62 64 61 | .&rest.BODY)..(defalias.'-lambda |
| 11ec0 | 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 01 3a 5c 32 30 34 5c 6e 00 5c 33 30 30 5c | .'(macro...#[385.".:\204\n.\300\ |
| 11ee0 | 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30 33 17 00 5c 33 | 301\302\"\207\303\304.\"\203..\3 |
| 11f00 | 30 35 02 02 42 42 5c 32 30 37 5c 33 30 36 02 5c 33 30 37 01 5c 32 30 33 38 00 01 40 5c 32 31 31 | 05..BB\207\306.\307.\2038..@\211 |
| 11f20 | 5c 33 31 30 5c 33 31 31 5c 33 31 32 05 5c 22 21 44 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 | \310\311\312.\"!D.B\262.\210\211 |
| 11f40 | 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 1a 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 | T\262..A\262.\202..\266.\211\237 |
| 11f60 | 5c 32 36 32 01 5c 33 30 35 5c 33 31 33 5c 33 31 34 03 5c 22 5c 33 31 35 03 05 42 42 45 5c 32 30 | \262.\305\313\314.\"\315..BBE\20 |
| 11f80 | 37 22 20 5b 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 22 | 7".[signal.wrong-type-argument." |
| 11fa0 | 6d 61 74 63 68 2d 66 6f 72 6d 20 6d 75 73 74 20 62 65 20 61 20 6c 69 73 74 22 20 2d 61 6c 6c 5c | match-form.must.be.a.list".-all\ |
| 11fc0 | 3f 20 73 79 6d 62 6f 6c 70 20 6c 61 6d 62 64 61 20 6e 69 6c 20 30 20 6d 61 6b 65 2d 73 79 6d 62 | ?.symbolp.lambda.nil.0.make-symb |
| 11fe0 | 6f 6c 20 66 6f 72 6d 61 74 20 22 69 6e 70 75 74 25 64 22 20 6d 61 70 63 61 72 20 23 5b 32 35 37 | ol.format."input%d".mapcar.#[257 |
| 12000 | 20 22 5c 32 31 31 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 | ."\211A@\207".[].2."\n\n(fn.IT)" |
| 12020 | 5d 20 2d 6c 65 74 2a 5d 20 31 31 20 28 23 24 20 2e 20 37 32 39 36 37 29 5d 29 29 0a 28 62 79 74 | ].-let*].11.(#$...72967)])).(byt |
| 12040 | 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 33 30 30 5c 33 30 | e-code."\300\301\302\303#\300\30 |
| 12060 | 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 36 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 30 37 22 | 1\304\305#\306\301\307\310#\207" |
| 12080 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 6c 61 6d 62 64 61 20 64 6f 63 2d 73 74 72 69 6e | .[function-put.-lambda.doc-strin |
| 120a0 | 67 2d 65 6c 74 20 32 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 64 65 66 | g-elt.2.lisp-indent-function.def |
| 120c0 | 75 6e 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 26 64 65 66 69 6e 65 | un.put.edebug-form-spec.(&define |
| 120e0 | 20 73 65 78 70 20 5b 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 69 6e 67 70 5d 20 5b 26 6f 70 74 69 | .sexp.[&optional.stringp].[&opti |
| 12100 | 6f 6e 61 6c 20 28 22 69 6e 74 65 72 61 63 74 69 76 65 22 20 69 6e 74 65 72 61 63 74 69 76 65 29 | onal.("interactive".interactive) |
| 12120 | 5d 20 64 65 66 2d 62 6f 64 79 29 5d 20 36 29 0a 23 40 35 33 30 20 42 69 6e 64 20 65 61 63 68 20 | ].def-body)].6).#@530.Bind.each. |
| 12140 | 4d 41 54 43 48 2d 46 4f 52 4d 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 69 74 73 20 56 | MATCH-FORM.to.the.value.of.its.V |
| 12160 | 41 4c 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 69 73 | AL...MATCH-FORM.destructuring.is |
| 12180 | 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 72 75 6c 65 73 20 6f 66 20 | .done.according.to.the.rules.of. |
| 121a0 | 60 2d 6c 65 74 27 2e 0a 0a 54 68 69 73 20 6d 61 63 72 6f 20 61 6c 6c 6f 77 73 20 79 6f 75 20 74 | `-let'...This.macro.allows.you.t |
| 121c0 | 6f 20 62 69 6e 64 20 6d 75 6c 74 69 70 6c 65 20 76 61 72 69 61 62 6c 65 73 20 62 79 20 64 65 73 | o.bind.multiple.variables.by.des |
| 121e0 | 74 72 75 63 74 75 72 69 6e 67 0a 74 68 65 20 76 61 6c 75 65 2c 20 73 6f 20 66 6f 72 20 65 78 61 | tructuring.the.value,.so.for.exa |
| 12200 | 6d 70 6c 65 3a 0a 0a 20 20 28 2d 73 65 74 71 20 28 61 20 62 29 20 78 0a 20 20 20 20 20 20 20 20 | mple:....(-setq.(a.b).x......... |
| 12220 | 20 28 26 70 6c 69 73 74 20 3a 63 20 63 29 20 70 6c 69 73 74 29 0a 0a 65 78 70 61 6e 64 73 20 72 | .(&plist.:c.c).plist)..expands.r |
| 12240 | 6f 75 67 68 6c 79 20 73 70 65 61 6b 69 6e 67 20 74 6f 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 | oughly.speaking.to.the.following |
| 12260 | 20 63 6f 64 65 0a 0a 20 20 28 73 65 74 71 20 61 20 28 63 61 72 20 78 29 0a 20 20 20 20 20 20 20 | .code....(setq.a.(car.x)........ |
| 12280 | 20 62 20 28 63 61 64 72 20 78 29 0a 20 20 20 20 20 20 20 20 63 20 28 70 6c 69 73 74 2d 67 65 74 | .b.(cadr.x).........c.(plist-get |
| 122a0 | 20 70 6c 69 73 74 20 3a 63 29 29 0a 0a 43 61 72 65 20 69 73 20 74 61 6b 65 6e 20 74 6f 20 6f 6e | .plist.:c))..Care.is.taken.to.on |
| 122c0 | 6c 79 20 65 76 61 6c 75 61 74 65 20 65 61 63 68 20 56 41 4c 20 6f 6e 63 65 20 73 6f 20 74 68 61 | ly.evaluate.each.VAL.once.so.tha |
| 122e0 | 74 20 69 6e 20 63 61 73 65 20 6f 66 0a 6d 75 6c 74 69 70 6c 65 20 61 73 73 69 67 6e 6d 65 6e 74 | t.in.case.of.multiple.assignment |
| 12300 | 73 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 63 61 75 73 65 20 75 6e 65 78 70 65 63 74 65 64 20 73 | s.it.does.not.cause.unexpected.s |
| 12320 | 69 64 65 20 65 66 66 65 63 74 73 2e 0a 0a 28 66 6e 20 5b 4d 41 54 43 48 2d 46 4f 52 4d 20 56 41 | ide.effects...(fn.[MATCH-FORM.VA |
| 12340 | 4c 5d 2e 2e 2e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 74 71 20 27 28 6d 61 63 72 6f | L]...)..(defalias.'-setq.'(macro |
| 12360 | 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 01 47 5c 33 30 31 5c 22 5c 33 30 32 55 5c 32 30 33 0e | ...#[128."\300.G\301\"\302U\203. |
| 12380 | 00 5c 33 30 33 5c 33 30 34 21 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 30 31 04 5c | .\303\304!\210\305\306\307\301.\ |
| 123a0 | 22 5c 22 5c 33 31 30 5c 33 31 31 02 5c 22 5c 33 31 32 5c 33 30 35 5c 33 31 33 03 5c 22 5c 33 31 | "\"\310\311.\"\312\305\313.\"\31 |
| 123c0 | 34 5c 33 31 35 5c 33 30 32 06 06 5c 22 5c 33 31 36 5c 33 31 37 5c 33 30 35 5c 33 32 30 06 08 5c | 4\315\302..\"\316\317\305\320..\ |
| 123e0 | 22 21 42 45 5c 33 31 36 5c 33 31 37 05 21 42 46 5c 32 30 37 22 20 5b 6d 6f 64 20 32 20 31 20 65 | "!BE\316\317.!BF\207".[mod.2.1.e |
| 12400 | 72 72 6f 72 20 22 4f 64 64 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 22 20 2d | rror."Odd.number.of.arguments".- |
| 12420 | 6d 61 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22 20 5b 64 61 73 | map.#[257."\300.@.A@\"\207".[das |
| 12440 | 68 2d 2d 6d 61 74 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 2d 70 61 72 74 69 | h--match].4."\n\n(fn.X)"].-parti |
| 12460 | 74 69 6f 6e 20 2d 6d 61 70 63 61 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | tion.-mapcat.#[257."\300\301\302 |
| 12480 | 03 5c 33 30 33 01 5c 32 30 33 26 00 01 40 5c 33 30 34 5c 33 30 35 5c 33 30 36 03 40 21 5c 22 5c | .\303.\203&..@\304\305\306.@!\"\ |
| 124a0 | 32 30 34 1a 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 | 204..\211.B\262.\210\211T\262..A |
| 124c0 | 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 5c 22 5c | \262.\202..\266.\211\237\262.\"\ |
| 124e0 | 32 30 37 22 20 5b 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 32 31 31 40 5c 32 31 31 5c 33 30 30 5c | 207".[-map.#[257."\211@\211\300\ |
| 12500 | 33 30 31 5c 33 30 32 04 21 5c 33 30 33 51 21 44 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 | 301\302.!\303Q!D\207".[make-symb |
| 12520 | 6f 6c 20 22 2d 2d 64 61 73 68 2d 62 69 6e 64 69 6e 67 2d 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 | ol."--dash-binding-".symbol-name |
| 12540 | 20 22 2d 2d 22 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 42 49 4e 44 49 4e 47 29 22 5d 20 6e 69 6c | ."--"].7."\n\n(fn.BINDING)"].nil |
| 12560 | 20 30 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 2d 2d 22 20 73 79 6d 62 6f 6c 2d 6e | .0.string-prefix-p."--".symbol-n |
| 12580 | 61 6d 65 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 42 49 4e 44 49 4e 47 53 29 22 5d 20 6c 65 74 | ame].11."\n\n(fn.BINDINGS)"].let |
| 125a0 | 20 63 61 64 72 20 6c 65 74 2a 20 2d 66 6c 61 74 74 65 6e 2d 6e 20 73 65 74 71 20 2d 66 6c 61 74 | .cadr.let*.-flatten-n.setq.-flat |
| 125c0 | 74 65 6e 20 72 65 76 65 72 73 65 5d 20 31 32 20 28 23 24 20 2e 20 37 34 30 33 38 29 5d 29 29 0a | ten.reverse].12.(#$...74038)])). |
| 125e0 | 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 |
| 12600 | 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 | 0\304\301\305\306#\300\207".[put |
| 12620 | 20 2d 73 65 74 71 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 26 72 65 73 74 20 73 | .-setq.edebug-form-spec.(&rest.s |
| 12640 | 65 78 70 20 66 6f 72 6d 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 | exp.form).function-put.lisp-inde |
| 12660 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 33 32 30 20 49 66 20 61 6c 6c 20 56 | nt-function.1].4).#@320.If.all.V |
| 12680 | 41 4c 53 20 65 76 61 6c 75 61 74 65 20 74 6f 20 74 72 75 65 2c 20 62 69 6e 64 20 74 68 65 6d 20 | ALS.evaluate.to.true,.bind.them. |
| 126a0 | 74 6f 20 74 68 65 69 72 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 56 41 52 53 20 61 6e 64 20 | to.their.corresponding.VARS.and. |
| 126c0 | 64 6f 20 54 48 45 4e 2c 20 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 20 56 41 52 53 | do.THEN,.otherwise.do.ELSE..VARS |
| 126e0 | 2d 56 41 4c 53 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 0a 6f 66 20 28 56 41 52 20 56 | -VALS.should.be.a.list.of.(VAR.V |
| 12700 | 41 4c 29 20 70 61 69 72 73 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e | AL).pairs...Note:.binding.is.don |
| 12720 | 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 2a 27 2e 20 20 56 41 4c 53 20 61 72 | e.according.to.`-let*'...VALS.ar |
| 12740 | 65 20 65 76 61 6c 75 61 74 65 64 0a 73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 61 6e 64 20 65 76 | e.evaluated.sequentially,.and.ev |
| 12760 | 61 6c 75 61 74 69 6f 6e 20 73 74 6f 70 73 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 6e | aluation.stops.after.the.first.n |
| 12780 | 69 6c 20 56 41 4c 20 69 73 0a 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 0a 28 66 6e 20 56 41 52 53 | il.VAL.is.encountered...(fn.VARS |
| 127a0 | 2d 56 41 4c 53 20 54 48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 | -VALS.THEN.&rest.ELSE)..(defalia |
| 127c0 | 73 20 27 2d 69 66 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 01 5c 33 | s.'-if-let*.'(macro...#[642.".\3 |
| 127e0 | 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 08 5c 22 5c 22 21 5c 33 30 35 01 5c 32 | 00\301\302\303\304..\"\"!\305.\2 |
| 12800 | 30 33 36 00 01 40 5c 32 31 31 40 01 41 40 5c 33 30 36 02 02 44 43 5c 33 30 37 04 06 09 06 0b 42 | 036..@\211@.A@\306..DC\307.....B |
| 12820 | 42 42 45 5c 32 36 36 5c 32 30 32 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 | BBE\266\202\262.\210\211T\262..A |
| 12840 | 5c 32 36 32 02 5c 32 30 32 5c 66 00 5c 32 36 36 02 5c 32 31 31 5c 32 30 37 22 20 5b 72 65 76 65 | \262.\202\f.\266.\211\207".[reve |
| 12860 | 72 73 65 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c | rse.apply.append.mapcar.#[257."\ |
| 12880 | 33 30 30 01 40 02 41 40 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 5d 20 34 20 | 300.@.A@\"\207".[dash--match].4. |
| 128a0 | 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 30 20 6c 65 74 20 69 66 5d 20 31 35 20 28 23 24 20 | "\n\n(fn.IT)"].0.let.if].15.(#$. |
| 128c0 | 2e 20 37 35 33 38 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 31 | ..75384)])).(byte-code."\300\301 |
| 128e0 | 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 33 | \302\303#\210\304\301\305\306#\3 |
| 12900 | 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 69 66 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 | 00\207".[put.-if-let*.edebug-for |
| 12920 | 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 66 6f 72 6d | m-spec.((&rest.(sexp.form)).form |
| 12940 | 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d | .body).function-put.lisp-indent- |
| 12960 | 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 35 33 20 49 66 20 56 41 4c 20 65 76 61 6c | function.2].4).#@153.If.VAL.eval |
| 12980 | 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 56 41 52 | uates.to.non-nil,.bind.it.to.VAR |
| 129a0 | 20 61 6e 64 20 64 6f 20 54 48 45 4e 2c 0a 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e | .and.do.THEN,.otherwise.do.ELSE. |
| 129c0 | 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e | ..Note:.binding.is.done.accordin |
| 129e0 | 67 20 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52 20 56 41 4c 29 20 54 48 45 4e | g.to.`-let'...(fn.(VAR.VAL).THEN |
| 12a00 | 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 6c 65 74 | .&rest.ELSE)..(defalias.'-if-let |
| 12a20 | 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 03 43 03 03 42 42 42 5c 32 30 | .'(macro...#[642."\300.C..BBB\20 |
| 12a40 | 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 5d 20 37 20 28 23 24 20 2e 20 37 36 31 34 39 29 5d 29 29 0a | 7".[-if-let*].7.(#$...76149)])). |
| 12a60 | 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 |
| 12a80 | 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 | 0\304\301\305\306#\300\207".[put |
| 12aa0 | 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 28 28 73 65 78 70 | .-if-let.edebug-form-spec.((sexp |
| 12ac0 | 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 2d 70 75 74 20 6c | .form).form.body).function-put.l |
| 12ae0 | 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 31 31 20 | isp-indent-function.2].4).#@111. |
| 12b00 | 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e | If.VAL.evaluates.to.non-nil,.bin |
| 12b20 | 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 20 54 48 45 4e 2c | d.it.to.symbol.`it'.and.do.THEN, |
| 12b40 | 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 41 4c 20 54 48 45 | .otherwise.do.ELSE...(fn.VAL.THE |
| 12b60 | 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 2d 69 66 2d 6c | N.&rest.ELSE)..(defalias.'--if-l |
| 12b80 | 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 30 31 04 44 03 03 | et.'(macro...#[642."\300\301.D.. |
| 12ba0 | 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 24 20 2e 20 37 36 | BBB\207".[-if-let.it].7.(#$...76 |
| 12bc0 | 35 34 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 31 5c 33 30 32 | 544)])).(byte-code."\300\301\302 |
| 12be0 | 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 33 30 30 5c 32 | \303#\210\304\301\305\306#\300\2 |
| 12c00 | 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 73 70 | 07".[put.--if-let.edebug-form-sp |
| 12c20 | 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 75 74 | ec.(form.form.body).function-put |
| 12c40 | 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 33 30 | .lisp-indent-function.2].4).#@30 |
| 12c60 | 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 2c 20 | 1.If.all.VALS.evaluate.to.true,. |
| 12c80 | 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 6e 67 | bind.them.to.their.corresponding |
| 12ca0 | 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 41 4c | .VARS.and.execute.body..VARS-VAL |
| 12cc0 | 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 29 0a | S.should.be.a.list.of.(VAR.VAL). |
| 12ce0 | 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 61 63 | pairs...Note:.binding.is.done.ac |
| 12d00 | 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 65 76 | cording.to.`-let*'...VALS.are.ev |
| 12d20 | 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 75 61 | aluated.sequentially,.and.evalua |
| 12d40 | 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 20 56 | tion.stops.after.the.first.nil.V |
| 12d60 | 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 41 4c | AL.is.encountered...(fn.VARS-VAL |
| 12d80 | 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 6e 2d | S.&rest.BODY)..(defalias.'-when- |
| 12da0 | 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 31 03 | let*.'(macro...#[385."\300.\301. |
| 12dc0 | 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 20 2e | BE\207".[-if-let*.progn].6.(#$.. |
| 12de0 | 20 37 36 38 39 38 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 | .76898)])).(byte-code."\300\301\ |
| 12e00 | 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 33 30 | 302\303#\210\304\301\305\306#\30 |
| 12e20 | 30 5c 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 | 0\207".[put.-when-let*.edebug-fo |
| 12e40 | 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 6f 64 | rm-spec.((&rest.(sexp.form)).bod |
| 12e60 | 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 63 | y).function-put.lisp-indent-func |
| 12e80 | 74 69 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 | tion.1].4).#@134.If.VAL.evaluate |
| 12ea0 | 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 56 41 52 20 61 6e 64 | s.to.non-nil,.bind.it.to.VAR.and |
| 12ec0 | 20 65 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 | .execute.body...Note:.binding.is |
| 12ee0 | 20 64 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 | .done.according.to.`-let'...(fn. |
| 12f00 | 28 56 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 | (VAR.VAL).&rest.BODY)..(defalias |
| 12f20 | 20 27 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 | .'-when-let.'(macro...#[385."\30 |
| 12f40 | 30 02 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 | 0.\301.BE\207".[-if-let.progn].6 |
| 12f60 | 20 28 23 24 20 2e 20 37 37 34 35 37 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | .(#$...77457)])).(byte-code."\30 |
| 12f80 | 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 5c 33 | 0\301\302\303#\210\304\301\305\3 |
| 12fa0 | 30 36 23 5c 33 30 30 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 | 06#\300\207".[put.-when-let.edeb |
| 12fc0 | 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 73 65 78 70 20 66 6f 72 6d 29 20 62 6f 64 79 29 20 | ug-form-spec.((sexp.form).body). |
| 12fe0 | 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 6f | function-put.lisp-indent-functio |
| 13000 | 6e 20 31 5d 20 34 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 | n.1].4).#@92.If.VAL.evaluates.to |
| 13020 | 20 6e 6f 6e 2d 6e 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 | .non-nil,.bind.it.to.symbol.`it' |
| 13040 | 20 61 6e 64 0a 65 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 | .and.execute.body...(fn.VAL.&res |
| 13060 | 74 20 42 4f 44 59 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 | t.BODY)..(defalias.'--when-let.' |
| 13080 | 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 | (macro...#[385."\300.\301.BE\207 |
| 130a0 | 22 20 5b 2d 2d 69 66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 37 37 38 33 37 | ".[--if-let.progn].6.(#$...77837 |
| 130c0 | 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 | )])).(byte-code."\300\301\302\30 |
| 130e0 | 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 | 3#\210\304\301\305\306#\300\207" |
| 13100 | 20 5b 70 75 74 20 2d 2d 77 68 65 6e 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | .[put.--when-let.edebug-form-spe |
| 13120 | 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- |
| 13140 | 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 39 31 20 54 65 73 74 | indent-function.1].4).#@191.Test |
| 13160 | 73 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 75 73 65 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e | s.for.equality.use.this.function |
| 13180 | 20 6f 72 20 60 65 71 75 61 6c 27 20 69 66 20 74 68 69 73 20 69 73 20 6e 69 6c 2e 0a 49 74 20 73 | .or.`equal'.if.this.is.nil..It.s |
| 131a0 | 68 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 73 65 74 20 75 73 69 6e 67 20 64 79 6e 61 6d 69 63 20 | hould.only.be.set.using.dynamic. |
| 131c0 | 73 63 6f 70 65 20 77 69 74 68 20 61 20 6c 65 74 2c 20 6c 69 6b 65 3a 0a 0a 20 20 28 6c 65 74 20 | scope.with.a.let,.like:....(let. |
| 131e0 | 28 28 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 23 5c 3d 27 3d 29 29 20 28 2d 75 6e 69 6f 6e 20 6e 75 | ((-compare-fn.#\='=)).(-union.nu |
| 13200 | 6d 62 65 72 73 31 20 6e 75 6d 62 65 72 73 32 20 6e 75 6d 62 65 72 73 33 29 1f 0a 28 64 65 66 76 | mbers1.numbers2.numbers3)..(defv |
| 13220 | 61 72 20 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 6e 69 6c 20 28 23 24 20 2e 20 37 38 31 37 32 29 29 | ar.-compare-fn.nil.(#$...78172)) |
| 13240 | 0a 23 40 31 36 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 61 6c | .#@160.Return.a.new.list.with.al |
| 13260 | 6c 20 64 75 70 6c 69 63 61 74 65 73 20 72 65 6d 6f 76 65 64 2e 0a 54 68 65 20 74 65 73 74 20 66 | l.duplicates.removed..The.test.f |
| 13280 | 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 6c 27 | or.equality.is.done.with.`equal' |
| 132a0 | 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 74 27 | ,.or.with.`-compare-fn'.if.that' |
| 132c0 | 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 75 6e 69 71 27 0a 0a 28 66 6e 20 | s.non-nil...Alias:.`-uniq'..(fn. |
| 132e0 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 73 74 69 6e 63 74 20 23 5b 32 35 | LIST)..(defalias.'-distinct.#[25 |
| 13300 | 37 20 22 5c 32 31 31 47 5c 32 31 31 5c 33 30 31 56 5c 32 30 35 18 00 08 5c 33 30 32 3e 5c 32 30 | 7."\211G\211\301V\205...\302>\20 |
| 13320 | 35 18 00 5c 33 30 33 5c 33 30 34 08 5c 32 30 36 15 00 5c 33 30 35 5c 33 30 36 04 24 5c 32 31 31 | 5..\303\304.\206..\305\306.$\211 |
| 13340 | 5c 32 30 33 50 00 5c 33 30 37 03 5c 33 31 30 01 5c 32 30 33 47 00 01 40 5c 33 31 31 01 06 06 5c | \203P.\307.\310.\203G..@\311...\ |
| 13360 | 22 5c 32 30 34 3b 00 5c 33 31 32 01 5c 33 31 33 06 07 23 5c 32 30 33 3b 00 5c 32 31 31 04 42 5c | "\204;.\312.\313..#\203;.\211.B\ |
| 13380 | 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 1f 00 5c | 262.\210\211T\262..A\262.\202..\ |
| 133a0 | 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 32 74 00 02 5c 33 31 30 01 5c 32 30 | 266.\211\237\262.\202t..\310.\20 |
| 133c0 | 33 70 00 01 40 5c 33 31 34 04 02 5c 22 5c 32 30 34 64 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 | 3p..@\314..\"\204d.\211.B\262.\2 |
| 133e0 | 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 52 00 5c 32 36 36 02 5c 32 | 10\211T\262..A\262.\202R.\266.\2 |
| 13400 | 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 33 32 20 28 6e 69 6c | 11\237\207".[-compare-fn.32.(nil |
| 13420 | 20 65 71 75 61 6c 20 65 71 20 65 71 6c 29 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a | .equal.eq.eql).make-hash-table.: |
| 13440 | 74 65 73 74 20 65 71 75 61 6c 20 3a 73 69 7a 65 20 6e 69 6c 20 30 20 67 65 74 68 61 73 68 20 70 | test.equal.:size.nil.0.gethash.p |
| 13460 | 75 74 68 61 73 68 20 74 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 31 31 20 28 23 24 20 2e 20 37 | uthash.t.-contains\?].11.(#$...7 |
| 13480 | 38 34 30 37 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 69 71 20 27 2d 64 69 73 74 69 | 8407)]).(defalias.'-uniq.'-disti |
| 134a0 | 6e 63 74 29 0a 23 40 31 39 37 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f 6e | nct).#@197.Return.a.new.list.con |
| 134c0 | 74 61 69 6e 69 6e 67 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 61 6e 64 | taining.the.elements.of.LIST.and |
| 134e0 | 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 32 20 74 68 61 74 20 61 72 65 20 6e 6f 74 20 | .elements.of.LIST2.that.are.not. |
| 13500 | 69 6e 20 4c 49 53 54 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 69 | in.LIST..The.test.for.equality.i |
| 13520 | 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 60 2d 63 | s.done.with.`equal',.or.with.`-c |
| 13540 | 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 0a 0a 28 | ompare-fn'.if.that's.non-nil...( |
| 13560 | 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 69 6f | fn.LIST.LIST2)..(defalias.'-unio |
| 13580 | 6e 20 23 5b 35 31 34 20 22 5c 33 30 31 02 21 5c 33 30 32 5c 33 30 30 21 5c 32 30 33 11 00 08 5c | n.#[514."\301.!\302\300!\203...\ |
| 135a0 | 32 30 33 11 00 08 5c 32 30 32 12 00 5c 33 30 33 5c 32 31 31 18 5c 33 30 34 3e 5c 32 30 33 5f 00 | 203...\202..\303\211.\304>\203_. |
| 135c0 | 5c 33 30 35 5c 33 30 36 08 5c 22 03 5c 33 30 37 01 5c 32 30 33 38 00 01 40 5c 33 31 30 01 5c 33 | \305\306.\".\307.\2038..@\310.\3 |
| 135e0 | 31 31 06 06 23 5c 32 36 36 02 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 1f | 11..#\266.\211T\262..A\262.\202. |
| 13600 | 00 5c 32 36 36 02 02 5c 33 30 37 01 5c 32 30 33 5a 00 01 40 5c 33 31 32 01 05 5c 22 5c 32 30 34 | .\266..\307.\203Z..@\312..\"\204 |
| 13620 | 4e 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 | N.\211.B\262.\210\211T\262..A\26 |
| 13640 | 32 02 5c 32 30 32 3c 00 5c 32 36 36 03 5c 32 30 32 5c 32 30 31 00 01 5c 33 30 37 01 5c 32 30 33 | 2.\202<.\266.\202\201..\307.\203 |
| 13660 | 7f 00 01 40 5c 33 31 33 04 02 5c 22 5c 32 30 34 73 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 | ...@\313..\"\204s.\211.B\262.\21 |
| 13680 | 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 61 00 5c 32 36 36 02 5c 32 31 | 0\211T\262..A\262.\202a.\266.\21 |
| 136a0 | 31 5c 32 33 37 29 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 72 65 76 65 72 73 65 | 1\237)\207".[-compare-fn.reverse |
| 136c0 | 20 62 6f 75 6e 64 70 20 65 71 75 61 6c 20 28 65 71 20 65 71 6c 20 65 71 75 61 6c 29 20 6d 61 6b | .boundp.equal.(eq.eql.equal).mak |
| 136e0 | 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 30 20 70 75 74 68 61 73 68 20 74 20 67 | e-hash-table.:test.0.puthash.t.g |
| 13700 | 65 74 68 61 73 68 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 31 32 20 28 23 24 20 2e 20 37 39 30 | ethash.-contains\?].12.(#$...790 |
| 13720 | 31 39 29 5d 29 0a 23 40 31 39 31 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 63 6f | 19)]).#@191.Return.a.new.list.co |
| 13740 | 6e 74 61 69 6e 69 6e 67 20 6f 6e 6c 79 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 74 68 61 74 20 | ntaining.only.the.elements.that. |
| 13760 | 61 72 65 20 6d 65 6d 62 65 72 73 20 6f 66 20 62 6f 74 68 20 4c 49 53 54 20 61 6e 64 20 4c 49 53 | are.members.of.both.LIST.and.LIS |
| 13780 | 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 6e | T2..The.test.for.equality.is.don |
| 137a0 | 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 72 | e.with.`equal',.or.with.`-compar |
| 137c0 | 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 49 | e-fn'.if.that's.non-nil...(fn.LI |
| 137e0 | 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 74 65 72 73 65 63 74 | ST.LIST2)..(defalias.'-intersect |
| 13800 | 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 01 5c 32 30 33 21 00 01 40 5c 33 30 | ion.#[514."\300.\301.\203!..@\30 |
| 13820 | 32 05 02 5c 22 5c 32 30 33 15 00 5c 32 31 31 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c | 2..\"\203..\211.B\262.\210\211T\ |
| 13840 | 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 |
| 13860 | 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 39 20 28 23 24 20 2e 20 | 07".[nil.0.-contains\?].9.(#$... |
| 13880 | 37 39 36 36 30 29 5d 29 0a 23 40 31 37 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 | 79660)]).#@174.Return.a.new.list |
| 138a0 | 20 77 69 74 68 20 6f 6e 6c 79 20 74 68 65 20 6d 65 6d 62 65 72 73 20 6f 66 20 4c 49 53 54 20 74 | .with.only.the.members.of.LIST.t |
| 138c0 | 68 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49 53 54 32 2e 0a 54 68 65 20 74 65 73 74 20 66 | hat.are.not.in.LIST2..The.test.f |
| 138e0 | 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 6c 27 | or.equality.is.done.with.`equal' |
| 13900 | 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 74 27 | ,.or.with.`-compare-fn'.if.that' |
| 13920 | 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 64 65 | s.non-nil...(fn.LIST.LIST2)..(de |
| 13940 | 66 61 6c 69 61 73 20 27 2d 64 69 66 66 65 72 65 6e 63 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 | falias.'-difference.#[514."\300. |
| 13960 | 5c 33 30 31 01 5c 32 30 33 21 00 01 40 5c 33 30 32 05 02 5c 22 5c 32 30 34 15 00 5c 32 31 31 04 | \301.\203!..@\302..\"\204..\211. |
| 13980 | 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 03 | B\262.\210\211T\262..A\262.\202. |
| 139a0 | 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 2d 63 6f 6e 74 | .\266.\211\237\207".[nil.0.-cont |
| 139c0 | 61 69 6e 73 5c 3f 5d 20 39 20 28 23 24 20 2e 20 38 30 30 31 35 29 5d 29 0a 23 40 34 32 20 52 65 | ains\?].9.(#$...80015)]).#@42.Re |
| 139e0 | 74 75 72 6e 20 74 68 65 20 70 6f 77 65 72 20 73 65 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e | turn.the.power.set.of.LIST...(fn |
| 13a00 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 6f 77 65 72 73 65 74 20 23 5b 32 | .LIST)..(defalias.'-powerset.#[2 |
| 13a20 | 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 41 21 5c 33 30 | 57."\211\204..\300\207\301.A!\30 |
| 13a40 | 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 08 21 5c 33 31 31 | 2\303\304\305\306\307\310..!\311 |
| 13a60 | 5c 22 5c 33 31 32 5c 33 31 33 25 03 5c 22 02 5c 22 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 2d 70 | \"\312\313%.\".\"\207".[(nil).-p |
| 13a80 | 6f 77 65 72 73 65 74 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d | owerset.append.mapcar.make-byte- |
| 13aa0 | 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 40 01 42 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 | code.257."\300@.B\207".vconcat.v |
| 13ac0 | 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 30 20 28 23 24 20 | ector.[].3."\n\n(fn.X)"].10.(#$. |
| 13ae0 | 2e 20 38 30 33 35 30 29 5d 29 0a 23 40 34 35 20 52 65 74 75 72 6e 20 74 68 65 20 70 65 72 6d 75 | ..80350)]).#@45.Return.the.permu |
| 13b00 | 74 61 74 69 6f 6e 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 | tations.of.LIST...(fn.LIST)..(de |
| 13b20 | 66 61 6c 69 61 73 20 27 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 23 5b 32 35 37 20 22 5c 32 31 | falias.'-permutations.#[257."\21 |
| 13b40 | 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c | 1\204..\300\207\301\302\303\304\ |
| 13b60 | 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 08 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 | 305\306\307\310..!\311\"\312\313 |
| 13b80 | 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 | %.\"\"\207".[(nil).apply.append. |
| 13ba0 | 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 5c | mapcar.make-byte-code.257."\301\ |
| 13bc0 | 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c 33 30 37 5c 22 5c 33 31 30 | 302\303\304\305\306..!\307\"\310 |
| 13be0 | 5c 33 31 31 25 5c 33 31 32 5c 33 31 33 04 5c 33 30 30 5c 22 21 5c 22 5c 32 30 37 22 20 76 63 6f | \311%\312\313.\300\"!\"\207".vco |
| 13c00 | 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f | ncat.vector.[mapcar.make-byte-co |
| 13c20 | 64 65 20 32 35 37 20 22 5c 33 30 30 01 42 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 | de.257."\300.B\207".vconcat.vect |
| 13c40 | 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 50 45 52 4d 29 22 20 2d 70 65 72 6d 75 74 61 | or.[].3."\n\n(fn.PERM)".-permuta |
| 13c60 | 74 69 6f 6e 73 20 72 65 6d 6f 76 65 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 30 | tions.remove].8."\n\n(fn.X)"].10 |
| 13c80 | 20 28 23 24 20 2e 20 38 30 36 32 34 29 5d 29 0a 23 40 34 31 20 52 65 74 75 72 6e 20 61 6c 6c 20 | .(#$...80624)]).#@41.Return.all. |
| 13ca0 | 70 72 65 66 69 78 65 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 | prefixes.of.LIST...(fn.LIST)..(d |
| 13cc0 | 65 66 61 6c 69 61 73 20 27 2d 69 6e 69 74 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c | efalias.'-inits.#[257."\300\301\ |
| 13ce0 | 33 30 32 03 5c 32 33 37 21 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b 2d 6d 61 70 20 72 65 76 65 72 | 302.\237!\"\237\207".[-map.rever |
| 13d00 | 73 65 20 2d 74 61 69 6c 73 5d 20 35 20 28 23 24 20 2e 20 38 31 30 34 35 29 5d 29 0a 23 40 34 30 | se.-tails].5.(#$...81045)]).#@40 |
| 13d20 | 20 52 65 74 75 72 6e 20 61 6c 6c 20 73 75 66 66 69 78 65 73 20 6f 66 20 4c 49 53 54 0a 0a 28 66 | .Return.all.suffixes.of.LIST..(f |
| 13d40 | 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 69 6c 73 20 23 5b 32 35 37 | n.LIST)..(defalias.'-tails.#[257 |
| 13d60 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 23 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 74 69 6f | ."\300\301\302.#\207".[-reductio |
| 13d80 | 6e 73 2d 72 2d 66 72 6f 6d 20 63 6f 6e 73 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 38 31 31 38 | ns-r-from.cons.nil].5.(#$...8118 |
| 13da0 | 35 29 5d 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d | 5)]).#@62.Return.the.longest.com |
| 13dc0 | 6d 6f 6e 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 | mon.prefix.of.LISTS...(fn.&rest. |
| 13de0 | 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 | LISTS)..(defalias.'-common-prefi |
| 13e00 | 78 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 62 00 5c 32 31 31 40 01 41 5c 33 | x.#[128."\211\211\203b.\211@.A\3 |
| 13e20 | 30 30 01 5c 32 30 33 5a 00 01 40 5c 33 30 31 01 5c 33 30 32 5c 33 30 30 02 5c 32 30 33 46 00 01 | 00.\203Z..@\301.\302\300.\203F.. |
| 13e40 | 5c 32 30 33 46 00 02 40 06 08 5c 32 30 33 2f 00 06 08 5c 32 31 31 41 5c 32 36 32 5c 6e 5c 32 34 | \203F..@..\203/...\211A\262\n\24 |
| 13e60 | 32 01 5c 32 33 32 5c 32 30 34 35 00 5c 33 30 31 5c 32 36 32 03 5c 32 30 32 3a 00 5c 32 31 31 05 | 2.\232\2045.\301\262.\202:.\211. |
| 13e80 | 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 14 | B\262.\210\211T\262..A\262.\202. |
| 13ea0 | 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 | .\266.\211\237\262.\262.\210\211 |
| 13ec0 | 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 32 36 | T\262..A\262.\202\n.\266.\211\26 |
| 13ee0 | 32 01 5c 32 30 32 5c 32 34 32 00 5c 33 30 31 5c 32 31 31 5c 32 31 31 01 5c 33 30 32 5c 33 30 30 | 2.\202\242.\301\211\211.\302\300 |
| 13f00 | 02 5c 32 30 33 5c 32 33 32 00 01 5c 32 30 33 5c 32 33 32 00 02 40 06 06 5c 32 30 33 5c 32 30 33 | .\203\232..\203\232..@..\203\203 |
| 13f20 | 00 06 06 5c 32 31 31 41 5c 32 36 32 08 5c 32 34 32 01 5c 32 33 32 5c 32 30 34 5c 32 31 31 00 5c | ...\211A\262.\242.\232\204\211.\ |
| 13f40 | 33 30 31 5c 32 36 32 03 5c 32 30 32 5c 32 31 36 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 | 301\262.\202\216.\211.B\262.\210 |
| 13f60 | 5c 32 31 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 68 00 5c 32 36 36 03 5c 32 31 31 | \211T\262..A\262.\202h.\266.\211 |
| 13f80 | 5c 32 33 37 5c 32 36 32 01 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 74 5d | \237\262.\266\202\207".[0.nil.t] |
| 13fa0 | 20 31 33 20 28 23 24 20 2e 20 38 31 33 32 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | .13.(#$...81322)]).(byte-code."\ |
| 13fc0 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 | 300\301\302\303#\300\301\304\303 |
| 13fe0 | 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6d 6d 6f 6e | #\300\207".[function-put.-common |
| 14000 | 2d 70 72 65 66 69 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d | -prefix.pure.t.side-effect-free] |
| 14020 | 20 35 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d 6d | .5).#@62.Return.the.longest.comm |
| 14040 | 6f 6e 20 73 75 66 66 69 78 20 6f 66 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c | on.suffix.of.LISTS...(fn.&rest.L |
| 14060 | 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 6d 6f 6e 2d 73 75 66 66 69 78 | ISTS)..(defalias.'-common-suffix |
| 14080 | 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 5c 22 5c 22 5c 32 33 | .#[128."\300\301\302\303.\"\"\23 |
| 140a0 | 37 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 6d 61 70 | 7\207".[apply.-common-prefix.map |
| 140c0 | 63 61 72 20 72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 38 31 39 36 31 29 5d 29 0a 23 40 | car.reverse].6.(#$...81961)]).#@ |
| 140e0 | 31 36 39 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 61 | 169.Return.non-nil.if.LIST.conta |
| 14100 | 69 6e 73 20 45 4c 45 4d 45 4e 54 2e 0a 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c | ins.ELEMENT...The.test.for.equal |
| 14120 | 69 74 79 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 20 6f 72 20 77 69 74 | ity.is.done.with.`equal',.or.wit |
| 14140 | 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 0a 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 | h.`-compare-fn'.if.that's.non-ni |
| 14160 | 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 63 6f 6e 74 61 69 6e 73 2d 70 27 0a 0a 28 66 6e 20 4c 49 | l...Alias:.`-contains-p'..(fn.LI |
| 14180 | 53 54 20 45 4c 45 4d 45 4e 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e | ST.ELEMENT)..(defalias.'-contain |
| 141a0 | 73 5c 3f 20 23 5b 35 31 34 20 22 08 5c 32 30 34 5c 6e 00 5c 32 31 31 02 5c 32 33 35 5c 32 30 32 | s\?.#[514.".\204\n.\211.\235\202 |
| 141c0 | 3a 00 08 5c 33 30 31 3d 5c 32 30 33 16 00 5c 32 31 31 02 3e 5c 32 30 32 3a 00 08 5c 33 30 32 3d | :..\301=\203..\211.>\202:..\302= |
| 141e0 | 5c 32 30 33 23 00 5c 33 30 33 01 03 5c 22 5c 32 30 32 3a 00 01 5c 32 31 31 5c 32 30 33 37 00 08 | \203#.\303..\"\202:..\211\2037.. |
| 14200 | 02 02 40 5c 22 5c 32 30 34 37 00 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 24 00 5c 32 31 31 5c | ..@\"\2047.\211A\262.\202$.\211\ |
| 14220 | 32 36 32 01 3f 3f 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 65 71 20 65 71 6c 20 | 262.??\207".[-compare-fn.eq.eql. |
| 14240 | 6d 65 6d 71 6c 5d 20 36 20 28 23 24 20 2e 20 38 32 31 34 38 29 5d 29 0a 28 64 65 66 61 6c 69 61 | memql].6.(#$...82148)]).(defalia |
| 14260 | 73 20 27 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 27 2d 63 6f 6e 74 61 69 6e 73 5c 3f 29 0a 23 40 31 | s.'-contains-p.'-contains\?).#@1 |
| 14280 | 34 39 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 4c 49 53 54 20 61 6e 64 20 4c 49 53 54 32 | 49.Return.true.if.LIST.and.LIST2 |
| 142a0 | 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 69 74 65 6d 73 2e 0a 0a 54 68 65 20 6f 72 64 65 72 20 | .has.the.same.items...The.order. |
| 142c0 | 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 6c 69 73 74 73 20 64 6f 65 | of.the.elements.in.the.lists.doe |
| 142e0 | 73 20 6e 6f 74 20 6d 61 74 74 65 72 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 61 6d 65 2d 69 74 65 | s.not.matter...Alias:.`-same-ite |
| 14300 | 6d 73 2d 70 27 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 | ms-p'..(fn.LIST.LIST2)..(defalia |
| 14320 | 73 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c 3f 20 23 5b 35 31 34 20 22 01 47 01 47 01 01 55 5c | s.'-same-items\?.#[514.".G.G..U\ |
| 14340 | 32 30 35 11 00 01 5c 33 30 30 05 05 5c 22 47 55 5c 32 30 37 22 20 5b 2d 69 6e 74 65 72 73 65 63 | 205...\300..\"GU\207".[-intersec |
| 14360 | 74 69 6f 6e 5d 20 38 20 28 23 24 20 2e 20 38 32 35 36 33 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 | tion].8.(#$...82563)]).(defalias |
| 14380 | 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c 3f 29 0a | .'-same-items-p.'-same-items\?). |
| 143a0 | 23 40 38 36 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 50 52 45 46 49 58 20 69 73 | #@86.Return.non-nil.if.PREFIX.is |
| 143c0 | 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 70 72 | .prefix.of.LIST...Alias:.`-is-pr |
| 143e0 | 65 66 69 78 2d 70 27 0a 0a 28 66 6e 20 50 52 45 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 | efix-p'..(fn.PREFIX.LIST)..(defa |
| 14400 | 6c 69 61 73 20 27 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 | lias.'-is-prefix\?.#[514."\211\3 |
| 14420 | 30 30 5c 33 30 31 02 5c 32 30 33 2a 00 01 5c 32 30 33 2a 00 02 40 05 40 01 5c 32 33 32 5c 32 30 | 00\301.\203*..\203*..@.@.\232\20 |
| 14440 | 34 1a 00 5c 33 30 32 5c 32 36 32 03 5c 32 30 32 1e 00 05 41 5c 32 36 32 06 5c 32 31 30 5c 32 31 | 4..\302\262.\202...A\262.\210\21 |
| 14460 | 31 54 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 03 00 5c 32 36 36 03 01 3f 5c 32 30 37 22 | 1T\262..A\262.\202..\266..?\207" |
| 14480 | 20 5b 74 20 30 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 38 32 38 35 33 29 5d 29 0a 28 62 79 74 | .[t.0.nil].8.(#$...82853)]).(byt |
| 144a0 | 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 33 30 30 5c 33 30 | e-code."\300\301\302\303#\300\30 |
| 144c0 | 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 | 1\304\303#\300\207".[function-pu |
| 144e0 | 74 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 | t.-is-prefix\?.pure.t.side-effec |
| 14500 | 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 38 36 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 | t-free].5).#@86.Return.non-nil.i |
| 14520 | 66 20 53 55 46 46 49 58 20 69 73 20 73 75 66 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a 41 6c 69 | f.SUFFIX.is.suffix.of.LIST...Ali |
| 14540 | 61 73 3a 20 60 2d 69 73 2d 73 75 66 66 69 78 2d 70 27 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 4c | as:.`-is-suffix-p'..(fn.SUFFIX.L |
| 14560 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 23 5b | IST)..(defalias.'-is-suffix\?.#[ |
| 14580 | 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 21 5c 33 30 31 03 21 5c 22 5c 32 30 37 22 20 5b 2d 69 | 514."\300\301.!\301.!\"\207".[-i |
| 145a0 | 73 2d 70 72 65 66 69 78 5c 3f 20 72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 38 33 32 31 | s-prefix\?.reverse].6.(#$...8321 |
| 145c0 | 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 33 30 | 6)]).(byte-code."\300\301\302\30 |
| 145e0 | 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 | 3#\300\301\304\303#\300\207".[fu |
| 14600 | 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 | nction-put.-is-suffix\?.pure.t.s |
| 14620 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e | ide-effect-free].5).#@118.Return |
| 14640 | 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 49 4e 46 49 58 20 69 73 20 69 6e 66 69 78 20 6f 66 20 4c 49 | .non-nil.if.INFIX.is.infix.of.LI |
| 14660 | 53 54 2e 0a 0a 54 68 69 73 20 6f 70 65 72 61 74 69 6f 6e 20 72 75 6e 73 20 69 6e 20 4f 28 6e 5e | ST...This.operation.runs.in.O(n^ |
| 14680 | 32 29 20 74 69 6d 65 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 69 6e 66 69 78 2d 70 27 0a 0a 28 | 2).time..Alias:.`-is-infix-p'..( |
| 146a0 | 66 6e 20 49 4e 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 69 | fn.INFIX.LIST)..(defalias.'-is-i |
| 146c0 | 6e 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 5c 32 30 34 16 00 01 5c 32 30 | nfix\?.#[514."\300\211\204...\20 |
| 146e0 | 33 16 00 5c 33 30 31 03 03 5c 22 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 5c 32 31 | 3..\301..\"\262..A\262.\202..\21 |
| 14700 | 31 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 5d 20 36 20 28 23 24 20 | 1\207".[nil.-is-prefix\?].6.(#$. |
| 14720 | 2e 20 38 33 35 31 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 | ..83514)]).(byte-code."\300\301\ |
| 14740 | 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 | 302\303#\300\301\304\303#\305\30 |
| 14760 | 36 5c 33 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 | 6\307\"\210\305\310\311\"\210\30 |
| 14780 | 35 5c 33 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 | 5\312\301\"\207".[function-put.- |
| 147a0 | 69 73 2d 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 | is-infix\?.pure.t.side-effect-fr |
| 147c0 | 65 65 20 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 | ee.defalias.-is-prefix-p.-is-pre |
| 147e0 | 66 69 78 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 | fix\?.-is-suffix-p.-is-suffix\?. |
| 14800 | 2d 69 73 2d 69 6e 66 69 78 2d 70 5d 20 35 29 0a 23 40 32 36 38 20 53 6f 72 74 20 4c 49 53 54 2c | -is-infix-p].5).#@268.Sort.LIST, |
| 14820 | 20 73 74 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 | .stably,.comparing.elements.usin |
| 14840 | 67 20 43 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 | g.COMPARATOR..Return.the.sorted. |
| 14860 | 6c 69 73 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 | list...LIST.is.NOT.modified.by.s |
| 14880 | 69 64 65 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 | ide.effects..COMPARATOR.is.calle |
| 148a0 | 64 20 77 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 | d.with.two.elements.of.LIST,.and |
| 148c0 | 20 73 68 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 | .should.return.non-nil.if.the.fi |
| 148e0 | 72 73 74 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 | rst.element.should.sort.before.t |
| 14900 | 68 65 20 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 | he.second...(fn.COMPARATOR.LIST) |
| 14920 | 1f 0a 28 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 | ..(defalias.'-sort.#[514."\300\3 |
| 14940 | 30 31 02 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 | 01.!.\"\207".[sort.copy-sequence |
| 14960 | 5d 20 35 20 28 23 24 20 2e 20 38 33 39 39 30 29 5d 29 0a 23 40 34 34 20 41 6e 61 70 68 6f 72 69 | ].5.(#$...83990)]).#@44.Anaphori |
| 14980 | 63 20 66 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 | c.form.of.`-sort'...(fn.FORM.LIS |
| 149a0 | 54 29 1f 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 | T)..(defalias.'--sort.'(macro... |
| 149c0 | 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 73 | #[514."\300\301\302.E.E\207".[-s |
| 149e0 | 6f 72 74 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 | ort.lambda.(it.other)].6.(#$...8 |
| 14a00 | 34 33 34 34 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 | 4344)])).(put.'--sort.'edebug-fo |
| 14a20 | 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 35 31 20 52 65 74 75 | rm-spec.'(form.form)).#@151.Retu |
| 14a40 | 72 6e 20 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 | rn.a.list.with.ARGS...If.first.i |
| 14a60 | 74 65 6d 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 | tem.of.ARGS.is.already.a.list,.s |
| 14a80 | 69 6d 70 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 | imply.return.ARGS...If.not,.retu |
| 14aa0 | 72 6e 20 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 | rn.a.list.with.ARGS.as.elements. |
| 14ac0 | 0a 0a 28 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 | ..(fn.&rest.ARGS)..(defalias.'-l |
| 14ae0 | 69 73 74 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 | ist.#[128."\211@\211<\203..\211\ |
| 14b00 | 32 30 32 5c 66 00 01 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20 38 34 35 34 30 29 5d 29 | 202\f..\207".[].3.(#$...84540)]) |
| 14b20 | 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 33 | .(byte-code."\300\301\302\303#\3 |
| 14b40 | 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 | 00\301\304\303#\300\207".[functi |
| 14b60 | 6f 6e 2d 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 | on-put.-list.pure.t.side-effect- |
| 14b80 | 66 72 65 65 5d 20 35 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 | free].5).#@82.Return.a.list.with |
| 14ba0 | 20 58 20 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 | .X.repeated.N.times..Return.nil. |
| 14bc0 | 69 66 20 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 | if.N.is.less.than.1...(fn.N.X).. |
| 14be0 | 28 64 65 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 | (defalias.'-repeat.#[514."\300.\ |
| 14c00 | 33 30 31 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 | 301\211.W\203....B\262.\211T\262 |
| 14c20 | 01 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 5d 20 37 20 | .\202..\266.\211\207".[nil.0].7. |
| 14c40 | 28 23 24 20 2e 20 38 34 38 37 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | (#$...84878)]).(byte-code."\300\ |
| 14c60 | 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 | 301\302\303#\300\301\304\303#\30 |
| 14c80 | 30 5c 32 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 | 0\207".[function-put.-repeat.pur |
| 14ca0 | 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 33 36 20 52 65 | e.t.side-effect-free].5).#@36.Re |
| 14cc0 | 74 75 72 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 | turn.the.sum.of.LIST...(fn.LIST) |
| 14ce0 | 1f 0a 28 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 | ..(defalias.'-sum.#[257."\300\30 |
| 14d00 | 31 02 5c 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 38 35 31 38 | 1.\"\207".[apply.+].4.(#$...8518 |
| 14d20 | 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 |
| 14d40 | 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 | 3#\300\301\304\303#\300\207".[fu |
| 14d60 | 6e 63 74 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 | nction-put.-sum.pure.t.side-effe |
| 14d80 | 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 38 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 | ct-free].5).#@87.Return.a.list.w |
| 14da0 | 69 74 68 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 | ith.running.sums.of.items.in.LIS |
| 14dc0 | 54 2e 0a 0a 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d 65 6d 70 74 79 2e 0a 0a 28 66 6e | T...LIST.must.be.non-empty...(fn |
| 14de0 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 75 6e 6e 69 6e 67 2d 73 75 6d 20 | .LIST)..(defalias.'-running-sum. |
| 14e00 | 23 5b 32 35 37 20 22 5c 32 31 31 3a 5c 32 30 34 09 00 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c | #[257."\211:\204..\300\301!\210\ |
| 14e20 | 33 30 32 5c 33 30 33 02 5c 22 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 4c 49 53 54 20 6d 75 73 | 302\303.\"\207".[error."LIST.mus |
| 14e40 | 74 20 62 65 20 6e 6f 6e 2d 65 6d 70 74 79 22 20 2d 72 65 64 75 63 74 69 6f 6e 73 20 2b 5d 20 34 | t.be.non-empty".-reductions.+].4 |
| 14e60 | 20 28 23 24 20 2e 20 38 35 33 39 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...85393)]).(byte-code."\300 |
| 14e80 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 | \301\302\303#\300\301\304\303#\3 |
| 14ea0 | 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 75 6e 6e 69 6e 67 2d 73 | 00\207".[function-put.-running-s |
| 14ec0 | 75 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 35 29 0a 23 | um.pure.t.side-effect-free].5).# |
| 14ee0 | 40 34 30 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 | @40.Return.the.product.of.LIST.. |
| 14f00 | 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 72 6f 64 75 63 74 20 | .(fn.LIST)..(defalias.'-product. |
| 14f20 | 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 2a | #[257."\300\301.\"\207".[apply.* |
| 14f40 | 5d 20 34 20 28 23 24 20 2e 20 38 35 37 33 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].4.(#$...85732)]).(byte-code."\ |
| 14f60 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 | 300\301\302\303#\300\301\304\303 |
| 14f80 | 23 5c 33 30 30 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 | #\300\207".[function-put.-produc |
| 14fa0 | 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 35 29 0a 23 40 | t.pure.t.side-effect-free].5).#@ |
| 14fc0 | 39 31 20 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 | 91.Return.a.list.with.running.pr |
| 14fe0 | 6f 64 75 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 | oducts.of.items.in.LIST...LIST.m |
| 15000 | 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 53 54 29 1f 0a 28 64 | ust.be.non-empty...(fn.LIST)..(d |
| 15020 | 65 66 61 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 | efalias.'-running-product.#[257. |
| 15040 | 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 5c 33 30 | "\211:\204..\300\301!\210\302\30 |
| 15060 | 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 65 20 6e | 3.\"\207".[error."LIST.must.be.n |
| 15080 | 6f 6e 2d 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 | on-empty".-reductions.*].4.(#$.. |
| 150a0 | 20 38 35 39 35 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 | .85955)]).(byte-code."\300\301\3 |
| 150c0 | 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 | 02\303#\300\301\304\303#\300\207 |
| 150e0 | 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 70 72 6f 64 75 63 74 | ".[function-put.-running-product |
| 15100 | 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 35 29 0a 23 40 37 | .pure.t.side-effect-free].5).#@7 |
| 15120 | 30 20 52 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 | 0.Return.the.largest.value.from. |
| 15140 | 4c 49 53 54 20 6f 66 20 6e 75 6d 62 65 72 73 20 6f 72 20 6d 61 72 6b 65 72 73 2e 0a 0a 28 66 6e | LIST.of.numbers.or.markers...(fn |
| 15160 | 20 4c 49 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 | .LIST)..(defalias.'-max.#[257."\ |
| 15180 | 33 30 30 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 | 300\301.\"\207".[apply.max].4.(# |
| 151a0 | 24 20 2e 20 38 36 33 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 | $...86306)]).(byte-code."\300\30 |
| 151c0 | 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c | 1\302\303#\300\301\304\303#\300\ |
| 151e0 | 32 30 37 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 | 207".[function-put.-max.pure.t.s |
| 15200 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 37 31 20 52 65 74 75 72 6e 20 | ide-effect-free].5).#@71.Return. |
| 15220 | 74 68 65 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 | the.smallest.value.from.LIST.of. |
| 15240 | 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 53 54 29 1f 0a | numbers.or.markers...(fn.LIST).. |
| 15260 | 28 64 65 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 | (defalias.'-min.#[257."\300\301. |
| 15280 | 5c 22 5c 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 38 36 35 35 | \"\207".[apply.min].4.(#$...8655 |
| 152a0 | 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 | 3)]).(byte-code."\300\301\302\30 |
| 152c0 | 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 | 3#\300\301\304\303#\300\207".[fu |
| 152e0 | 6e 63 74 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 | nction-put.-min.pure.t.side-effe |
| 15300 | 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 32 35 20 54 61 6b 65 20 61 20 63 6f 6d 70 61 72 69 | ct-free].5).#@225.Take.a.compari |
| 15320 | 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 61 6e 64 20 61 20 4c 49 | son.function.COMPARATOR.and.a.LI |
| 15340 | 53 54 20 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 | ST.and.return.the.greatest.eleme |
| 15360 | 6e 74 20 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 | nt.of.the.list.by.the.comparison |
| 15380 | 20 66 75 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 | .function...See.also.combinator. |
| 153a0 | 60 2d 6f 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 | `-on'.which.can.transform.the.va |
| 153c0 | 6c 75 65 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 | lues.before.comparing.them...(fn |
| 153e0 | 20 43 4f 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 | .COMPARATOR.LIST)..(defalias.'-m |
| 15400 | 61 78 2d 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 | ax-by.#[514."\211\211\2033.\211@ |
| 15420 | 01 41 5c 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 | .A\300.\203+..@....\"\203..\211\ |
| 15440 | 32 30 32 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 | 202...\262.\210\211T\262..A\262. |
| 15460 | 5c 32 30 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 | \202\n.\266.\211\262.\202C.\301\ |
| 15480 | 32 31 31 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 | 211...\"\203@.\211\202A..\266\20 |
| 154a0 | 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 38 36 38 30 32 29 5d 29 | 2\207".[0.nil].10.(#$...86802)]) |
| 154c0 | 0a 23 40 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 | .#@222.Take.a.comparison.functio |
| 154e0 | 6e 20 43 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 | n.COMPARATOR.and.a.LIST.and.retu |
| 15500 | 72 6e 0a 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 | rn.the.least.element.of.the.list |
| 15520 | 20 62 79 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 | .by.the.comparison.function...Se |
| 15540 | 65 20 61 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 | e.also.combinator.`-on'.which.ca |
| 15560 | 6e 20 74 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 | n.transform.the.values.before.co |
| 15580 | 6d 70 61 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 | mparing.them...(fn.COMPARATOR.LI |
| 155a0 | 53 54 29 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 | ST)..(defalias.'-min-by.#[514."\ |
| 155c0 | 32 31 31 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 | 211\211\2033.\211@.A\300.\203+.. |
| 155e0 | 40 06 06 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 | @....\"\203...\202..\211\262.\21 |
| 15600 | 30 5c 32 31 31 54 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 5c 6e 00 5c 32 36 36 02 5c 32 | 0\211T\262..A\262.\202\n.\266.\2 |
| 15620 | 31 31 5c 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 | 11\262.\202C.\301\211...\"\203@. |
| 15640 | 01 5c 32 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 | .\202A.\211\266\202\207".[0.nil] |
| 15660 | 20 31 30 20 28 23 24 20 2e 20 38 37 32 33 39 29 5d 29 0a 23 40 31 31 37 20 41 6e 61 70 68 6f 72 | .10.(#$...87239)]).#@117.Anaphor |
| 15680 | 69 63 20 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 | ic.version.of.`-max-by'...The.it |
| 156a0 | 65 6d 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 61 72 61 74 6f 72 20 66 6f 72 6d 20 61 72 65 20 | ems.for.the.comparator.form.are. |
| 156c0 | 65 78 70 6f 73 65 64 20 61 73 20 22 69 74 22 20 61 6e 64 20 22 6f 74 68 65 72 22 2e 0a 0a 28 66 | exposed.as."it".and."other"...(f |
| 156e0 | 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 78 2d 62 | n.FORM.LIST)..(defalias.'--max-b |
| 15700 | 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 5c 33 30 32 04 | y.'(macro...#[514."\300\301\302. |
| 15720 | 45 02 45 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 | E.E\207".[-max-by.lambda.(it.oth |
| 15740 | 65 72 29 5d 20 36 20 28 23 24 20 2e 20 38 37 36 37 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d | er)].6.(#$...87673)])).(put.'--m |
| 15760 | 61 78 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 | ax-by.'edebug-form-spec.'(form.f |
| 15780 | 6f 72 6d 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 | orm)).#@117.Anaphoric.version.of |
| 157a0 | 20 60 2d 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 | .`-min-by'...The.items.for.the.c |
| 157c0 | 6f 6d 70 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 | omparator.form.are.exposed.as."i |
| 157e0 | 74 22 20 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 | t".and."other"...(fn.FORM.LIST). |
| 15800 | 0a 28 64 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 | .(defalias.'--min-by.'(macro...# |
| 15820 | 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 6d 69 | [514."\300\301\302.E.E\207".[-mi |
| 15840 | 6e 2d 62 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 | n-by.lambda.(it.other)].6.(#$... |
| 15860 | 38 37 39 34 38 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 | 87948)])).(put.'--min-by.'edebug |
| 15880 | 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 38 32 20 52 | -form-spec.'(form.form)).#@182.R |
| 158a0 | 65 74 75 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 | eturn.a.list.of.iterated.applica |
| 158c0 | 74 69 6f 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 | tions.of.FUN.to.INIT...This.mean |
| 158e0 | 73 20 61 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 | s.a.list.of.form:....(init.(fun. |
| 15900 | 69 6e 69 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 | init).(fun.(fun.init))....)..N.i |
| 15920 | 73 20 74 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 | s.the.length.of.the.returned.lis |
| 15940 | 74 2e 0a 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 | t...(fn.FUN.INIT.N)..(defalias.' |
| 15960 | 2d 69 74 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 | -iterate.#[771."\211\300U?\205'. |
| 15980 | 01 43 01 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 | .C.S\300\211.W\203!...@!.B\262.\ |
| 159a0 | 32 31 31 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 | 211T\262.\202\f.\266.\211\237\26 |
| 159c0 | 32 01 5c 32 30 37 22 20 5b 30 5d 20 38 20 28 23 24 20 2e 20 38 38 32 32 33 29 5d 29 0a 23 40 31 | 2.\207".[0].8.(#$...88223)]).#@1 |
| 159e0 | 33 39 20 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 | 39.Compute.the.(least).fixpoint. |
| 15a00 | 6f 66 20 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 | of.FN.with.initial.input.LIST... |
| 15a20 | 46 4e 20 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 | FN.is.called.at.least.once,.resu |
| 15a40 | 6c 74 73 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 | lts.are.compared.with.`equal'... |
| 15a60 | 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 66 69 78 20 23 5b | (fn.FN.LIST)..(defalias.'-fix.#[ |
| 15a80 | 35 31 34 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 | 514."..!..\232\204..\211\262...! |
| 15aa0 | 5c 32 36 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 | \262.\202..\211\207".[].5.(#$... |
| 15ac0 | 38 38 35 34 37 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 | 88547)]).#@43.Anaphoric.form.of. |
| 15ae0 | 60 2d 66 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 | `-fix'...(fn.FORM.LIST)..(defali |
| 15b00 | 61 73 20 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 | as.'--fix.'(macro...#[514."\300\ |
| 15b20 | 33 30 31 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 | 301\302.E.E\207".[-fix.lambda.(i |
| 15b40 | 74 29 5d 20 36 20 28 23 24 20 2e 20 38 38 37 38 32 29 5d 29 29 0a 23 40 33 36 32 20 42 75 69 6c | t)].6.(#$...88782)])).#@362.Buil |
| 15b60 | 64 20 61 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 | d.a.list.from.SEED.using.FUN...T |
| 15b80 | 68 69 73 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 | his.is."dual".operation.to.`-red |
| 15ba0 | 75 63 65 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 | uce-r':.while.-reduce-r.consumes |
| 15bc0 | 20 61 20 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 | .a.list.to.produce.a.single.valu |
| 15be0 | 65 2c 20 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 | e,.`-unfold'.takes.a.seed.value. |
| 15c00 | 61 6e 64 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 | and.builds.a.(potentially.infini |
| 15c20 | 74 65 21 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 | te!).list...FUN.should.return.`n |
| 15c40 | 69 6c 27 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 | il'.to.stop.the.generating.proce |
| 15c60 | 73 73 2c 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 | ss,.or.a.cons.(A...B),.where.A.w |
| 15c80 | 69 6c 6c 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 | ill.be.prepended.to.the.result.a |
| 15ca0 | 6e 64 20 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 | nd.B.is.the.new.seed...(fn.FUN.S |
| 15cc0 | 45 45 44 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 | EED)..(defalias.'-unfold.#[514." |
| 15ce0 | 01 01 21 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 | ..!\300.\203...@.B\262...A!\262. |
| 15d00 | 5c 32 30 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 | \202..\211\237\207".[nil].6.(#$. |
| 15d20 | 2e 20 38 38 39 32 34 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 | ..88924)]).#@49.Anaphoric.versio |
| 15d40 | 6e 20 6f 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 | n.of.`-unfold'...(fn.FORM.SEED). |
| 15d60 | 0a 28 64 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 | .(defalias.'--unfold.'(macro...# |
| 15d80 | 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 75 6e | [514."\300\301\302.E.E\207".[-un |
| 15da0 | 66 6f 6c 64 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 38 39 33 39 32 29 | fold.lambda.(it)].6.(#$...89392) |
| 15dc0 | 5d 29 29 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 | ])).(put.'--unfold.'edebug-form- |
| 15de0 | 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 34 20 52 65 74 75 72 6e 20 | spec.'(form.form)).#@114.Return. |
| 15e00 | 6e 6f 6e 2d 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 | non-nil.if.CON.is.true.cons.pair |
| 15e20 | 2e 0a 54 68 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 | ..That.is.(A...B).where.B.is.not |
| 15e40 | 20 61 20 6c 69 73 74 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 63 6f 6e 73 2d 70 61 69 72 2d 70 27 0a | .a.list...Alias:.`-cons-pair-p'. |
| 15e60 | 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 2d 70 61 69 72 | .(fn.CON)..(defalias.'-cons-pair |
| 15e80 | 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 3f 5c 32 30 37 | \?.#[257."\211<\205..\211A<?\207 |
| 15ea0 | 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 38 39 35 39 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | ".[].2.(#$...89593)]).(byte-code |
| 15ec0 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c | ."\300\301\302\303#\300\301\304\ |
| 15ee0 | 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f | 303#\305\306\301\"\207".[functio |
| 15f00 | 6e 2d 70 75 74 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 | n-put.-cons-pair\?.pure.t.side-e |
| 15f20 | 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 63 6f 6e 73 2d 70 61 69 72 2d 70 | ffect-free.defalias.-cons-pair-p |
| 15f40 | 5d 20 35 29 0a 23 40 38 38 20 43 6f 6e 76 65 72 74 20 61 20 63 6f 6e 73 20 70 61 69 72 20 74 6f | ].5).#@88.Convert.a.cons.pair.to |
| 15f60 | 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 27 20 6f 66 20 | .a.list.with.`car'.and.`cdr'.of. |
| 15f80 | 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 20 43 4f 4e 29 | the.pair.respectively...(fn.CON) |
| 15fa0 | 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 23 5b 32 35 37 | ..(defalias.'-cons-to-list.#[257 |
| 15fc0 | 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 38 39 39 33 30 | ."\211@.AD\207".[].3.(#$...89930 |
| 15fe0 | 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 |
| 16000 | 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e | #\300\301\304\303#\300\207".[fun |
| 16020 | 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 65 20 74 20 73 | ction-put.-cons-to-list.pure.t.s |
| 16040 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 39 32 20 43 6f 6e 76 65 72 | ide-effect-free].5).#@192.Conver |
| 16060 | 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 65 20 76 61 6c | t.a.value.to.a.list...If.the.val |
| 16080 | 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 69 73 74 20 77 | ue.is.a.cons.pair,.make.a.list.w |
| 160a0 | 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 20 60 63 64 72 | ith.two.elements,.`car'.and.`cdr |
| 160c0 | 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 49 66 20 | '.of.the.pair.respectively...If. |
| 160e0 | 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 20 77 72 61 70 | the.value.is.anything.else,.wrap |
| 16100 | 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 64 65 66 61 6c | .it.in.a.list...(fn.VAL)..(defal |
| 16120 | 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 5c 33 30 30 01 | ias.'-value-to-list.#[257."\300. |
| 16140 | 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 22 20 5b 2d 63 | !\203\n.\301.!\207\211C\207".[-c |
| 16160 | 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 20 28 23 24 20 | ons-pair\?.-cons-to-list].3.(#$. |
| 16180 | 2e 20 39 30 32 30 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c | ..90202)]).(byte-code."\300\301\ |
| 161a0 | 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 | 302\303#\300\301\304\303#\300\20 |
| 161c0 | 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 6c 69 73 74 20 | 7".[function-put.-value-to-list. |
| 161e0 | 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 35 29 0a 23 40 34 32 | pure.t.side-effect-free].5).#@42 |
| 16200 | 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 6f 66 20 54 52 | 3.Apply.FN.to.each.element.of.TR |
| 16220 | 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 72 65 73 75 6c | EE,.and.make.a.list.of.the.resul |
| 16240 | 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 20 6c 69 73 74 | ts..If.elements.of.TREE.are.list |
| 16260 | 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 72 73 69 76 65 | s.themselves,.apply.FN.recursive |
| 16280 | 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 74 65 64 20 6c | ly.to.elements.of.these.nested.l |
| 162a0 | 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 6c 74 69 6e 67 | ists...Then.reduce.the.resulting |
| 162c0 | 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 74 69 61 6c 20 | .lists.using.FOLDER.and.initial. |
| 162e0 | 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 75 63 65 2d 72 | value.INIT-VALUE..See.`-reduce-r |
| 16300 | 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 73 20 63 61 6c | -from'...This.is.the.same.as.cal |
| 16320 | 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 74 65 72 20 60 | ling.`-tree-reduce-from'.after.` |
| 16340 | 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 66 61 73 74 20 | -tree-map'.but.is.twice.as.fast. |
| 16360 | 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 75 63 74 75 72 | as.it.only.traverse.the.structur |
| 16380 | 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 2d 56 41 4c 55 | e.once...(fn.FN.FOLDER.INIT-VALU |
| 163a0 | 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 61 70 72 65 64 | E.TREE)..(defalias.'-tree-mapred |
| 163c0 | 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 5c 33 30 30 5c | uce-from.#[1028."\211\204..\300\ |
| 163e0 | 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 5c 32 30 33 2e | 207\301.!\203....!\207\211<\203. |
| 16400 | 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 5c 33 31 30 06 | .\302..\303\304\305\306\307\310. |
| 16420 | 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 23 5c 32 30 37 | \f.\f.\f#\311\"\312\313%.\"#\207 |
| 16440 | 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 2d 72 65 64 75 | ..!\207".[nil.-cons-pair\?.-redu |
| 16460 | 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 63 6f 64 65 20 | ce-r-from.mapcar.make-byte-code. |
| 16480 | 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 22 20 76 63 6f | 257."\303\300\301\302.$\207".vco |
| 164a0 | 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 65 2d 66 72 6f | ncat.vector.[-tree-mapreduce-fro |
| 164c0 | 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 20 39 30 36 32 | m].6."\n\n(fn.X)"].16.(#$...9062 |
| 164e0 | 36 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 20 60 2d 74 72 | 6)]).#@77.Anaphoric.form.of.`-tr |
| 16500 | 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 52 4d 20 46 4f | ee-mapreduce-from'...(fn.FORM.FO |
| 16520 | 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 61 6c 69 61 73 | LDER.INIT-VALUE.TREE)..(defalias |
| 16540 | 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 61 63 72 6f 20 | .'--tree-mapreduce-from.'(macro. |
| 16560 | 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 30 31 5c 33 30 | ..#[1028."\300\301\302..E\301\30 |
| 16580 | 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 72 65 64 75 63 | 3..E..\257.\207".[-tree-mapreduc |
| 165a0 | 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 5d 20 39 20 28 | e-from.lambda.(it).(it.acc)].9.( |
| 165c0 | 23 24 20 2e 20 39 31 33 37 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 | #$...91370)])).(put.'--tree-mapr |
| 165e0 | 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 66 | educe-from.'edebug-form-spec.'(f |
| 16600 | 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 41 70 70 6c 79 | orm.form.form.form)).#@407.Apply |
| 16620 | 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 2c 20 61 6e 64 | .FN.to.each.element.of.TREE,.and |
| 16640 | 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 2e 0a 49 66 20 | .make.a.list.of.the.results..If. |
| 16660 | 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 6d 73 | elements.of.TREE.are.lists.thems |
| 16680 | 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 20 74 6f 0a 65 | elves,.apply.FN.recursively.to.e |
| 166a0 | 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 74 73 2e 0a 0a | lements.of.these.nested.lists... |
| 166c0 | 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 69 73 74 73 20 | Then.reduce.the.resulting.lists. |
| 166e0 | 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 6c 75 65 0a 49 | using.FOLDER.and.initial.value.I |
| 16700 | 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 72 6f 6d 27 2e | NIT-VALUE..See.`-reduce-r-from'. |
| 16720 | 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 6e 67 20 60 2d | ..This.is.the.same.as.calling.`- |
| 16740 | 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 61 70 27 0a 62 | tree-reduce'.after.`-tree-map'.b |
| 16760 | 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 6e 6c 79 20 74 | ut.is.twice.as.fast.as.it.only.t |
| 16780 | 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 0a 0a 28 66 6e | raverse.the.structure.once...(fn |
| 167a0 | 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 20 27 2d 74 72 | .FN.FOLDER.TREE)..(defalias.'-tr |
| 167c0 | 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 34 06 00 5c 33 | ee-mapreduce.#[771."\211\204..\3 |
| 167e0 | 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 31 31 3c 5c 32 | 00\207\301.!\203....!\207\211<\2 |
| 16800 | 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 30 37 5c 33 31 | 03+.\302.\303\304\305\306\307\31 |
| 16820 | 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 5c 22 5c 32 30 | 0.\n.\n\"\311\"\312\313%.\"\"\20 |
| 16840 | 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 20 2d 72 65 64 | 7..!\207".[nil.-cons-pair\?.-red |
| 16860 | 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 35 37 20 | uce-r.mapcar.make-byte-code.257. |
| 16880 | 22 5c 33 30 32 5c 33 30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 | "\302\300\301.#\207".vconcat.vec |
| 168a0 | 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 5c 6e 28 66 6e | tor.[-tree-mapreduce].5."\n\n(fn |
| 168c0 | 20 58 29 22 5d 20 31 33 20 28 23 24 20 2e 20 39 31 36 37 35 29 5d 29 0a 23 40 36 31 20 41 6e 61 | .X)"].13.(#$...91675)]).#@61.Ana |
| 168e0 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 27 | phoric.form.of.`-tree-mapreduce' |
| 16900 | 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 64 65 66 61 6c | ...(fn.FORM.FOLDER.TREE)..(defal |
| 16920 | 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 72 6f 20 2e 20 | ias.'--tree-mapreduce.'(macro... |
| 16940 | 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 | #[771."\300\301\302.E\301\303.E. |
| 16960 | 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 62 64 61 20 28 | F\207".[-tree-mapreduce.lambda.( |
| 16980 | 69 74 29 20 28 69 74 20 61 63 63 29 5d 20 38 20 28 23 24 20 2e 20 39 32 33 38 31 29 5d 29 29 0a | it).(it.acc)].8.(#$...92381)])). |
| 169a0 | 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 62 75 67 2d 66 | (put.'--tree-mapreduce.'edebug-f |
| 169c0 | 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 35 | orm-spec.'(form.form.form)).#@85 |
| 169e0 | 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 66 20 54 52 45 | .Apply.FN.to.each.element.of.TRE |
| 16a00 | 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 20 73 74 72 75 | E.while.preserving.the.tree.stru |
| 16a20 | 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 6c 69 61 73 20 | cture...(fn.FN.TREE)..(defalias. |
| 16a40 | 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 00 5c 33 30 30 | '-tree-map.#[514."\211\204..\300 |
| 16a60 | 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 3c 5c 32 30 33 | \207\301.!\203....!\207\211<\203 |
| 16a80 | 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 07 21 5c 33 31 | &.\302\303\304\305\306\307..!\31 |
| 16aa0 | 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 20 5b 6e 69 6c | 0\"\311\312%.\"\207..!\207".[nil |
| 16ac0 | 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 79 74 65 2d 63 | .-cons-pair\?.mapcar.make-byte-c |
| 16ae0 | 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 63 6f 6e 63 61 | ode.257."\301\300.\"\207".vconca |
| 16b00 | 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 6e 28 66 6e 20 | t.vector.[-tree-map].4."\n\n(fn. |
| 16b20 | 58 29 22 5d 20 39 20 28 23 24 20 2e 20 39 32 36 34 31 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 | X)"].9.(#$...92641)]).#@48.Anaph |
| 16b40 | 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 28 66 6e 20 46 | oric.form.of.`-tree-map'...(fn.F |
| 16b60 | 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 6d 61 70 | ORM.TREE)..(defalias.'--tree-map |
| 16b80 | 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 |
| 16ba0 | 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 69 74 29 5d 20 | .E\207".[-tree-map.lambda.(it)]. |
| 16bc0 | 36 20 28 23 24 20 2e 20 39 32 39 38 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 6d | 6.(#$...92987)])).(put.'--tree-m |
| 16be0 | 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 20 66 6f 72 6d | ap.'edebug-form-spec.'(form.form |
| 16c00 | 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 6c 65 6d 65 6e | )).#@346.Use.FN.to.reduce.elemen |
| 16c20 | 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 73 20 6f 66 20 | ts.of.list.TREE..If.elements.of. |
| 16c40 | 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 61 70 70 6c 79 | TREE.are.lists.themselves,.apply |
| 16c60 | 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 0a 0a 46 4e 20 | .the.reduction.recursively...FN. |
| 16c80 | 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 4c 55 45 20 61 | is.first.applied.to.INIT-VALUE.a |
| 16ca0 | 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 74 2c 0a 74 68 | nd.first.element.of.the.list,.th |
| 16cc0 | 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 64 20 65 6c 65 | en.on.this.result.and.second.ele |
| 16ce0 | 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 65 20 69 6e 69 | ment.from.the.list.etc...The.ini |
| 16d00 | 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 6e 73 20 70 61 | tial.value.is.ignored.on.cons.pa |
| 16d20 | 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 74 77 6f 20 65 | irs.as.they.always.contain.two.e |
| 16d40 | 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 20 54 52 45 45 | lements...(fn.FN.INIT-VALUE.TREE |
| 16d60 | 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 66 72 6f 6d 20 | )..(defalias.'-tree-reduce-from. |
| 16d80 | 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c | #[771."\211\204..\300\207\301.!\ |
| 16da0 | 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 33 30 33 5c 33 | 203..\207\211<\203).\302..\303\3 |
| 16dc0 | 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 31 5c 22 5c 33 | 04\305\306\307\310....\"\311\"\3 |
| 16de0 | 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 63 6f 6e 73 2d | 12\313%.\"#\207\207".[nil.-cons- |
| 16e00 | 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 72 20 6d 61 6b | pair\?.-reduce-r-from.mapcar.mak |
| 16e20 | 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 5c | e-byte-code.257."\302\300\301.#\ |
| 16e40 | 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 72 65 64 75 63 | 207".vconcat.vector.[-tree-reduc |
| 16e60 | 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 28 23 24 20 2e | e-from].5."\n\n(fn.X)"].14.(#$.. |
| 16e80 | 20 39 33 31 39 33 29 5d 29 0a 23 40 36 37 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 | .93193)]).#@67.Anaphoric.form.of |
| 16ea0 | 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 46 4f 52 4d 20 | .`-tree-reduce-from'...(fn.FORM. |
| 16ec0 | 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 | INIT-VALUE.TREE)..(defalias.'--t |
| 16ee0 | 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 5b 37 37 31 20 | ree-reduce-from.'(macro...#[771. |
| 16f00 | 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 72 65 65 2d 72 | "\300\301\302.E..F\207".[-tree-r |
| 16f20 | 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 20 37 20 28 23 | educe-from.lambda.(it.acc)].7.(# |
| 16f40 | 24 20 2e 20 39 33 38 33 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 | $...93839)])).(put.'--tree-reduc |
| 16f60 | 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 66 6f 72 6d 20 | e-from.'edebug-form-spec.'(form. |
| 16f80 | 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 20 72 65 64 75 | form.form)).#@332.Use.FN.to.redu |
| 16fa0 | 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 66 20 65 6c 65 | ce.elements.of.list.TREE..If.ele |
| 16fc0 | 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 6d 73 65 6c 76 | ments.of.TREE.are.lists.themselv |
| 16fe0 | 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 75 72 73 69 76 | es,.apply.the.reduction.recursiv |
| 17000 | 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 6f 20 66 69 72 | ely...FN.is.first.applied.to.fir |
| 17020 | 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 73 65 63 6f 6e | st.element.of.the.list.and.secon |
| 17040 | 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 75 6c 74 20 61 | d.element,.then.on.this.result.a |
| 17060 | 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 69 73 74 20 65 | nd.third.element.from.the.list.e |
| 17080 | 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 77 20 65 78 61 | tc...See.`-reduce-r'.for.how.exa |
| 170a0 | 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 6e 65 20 65 6c | ctly.are.lists.of.zero.or.one.el |
| 170c0 | 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 29 1f 0a 28 64 | ement.handled...(fn.FN.TREE)..(d |
| 170e0 | 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 20 22 5c 32 31 | efalias.'-tree-reduce.#[514."\21 |
| 17100 | 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 5c 32 30 37 5c | 1\204..\300\207\301.!\203..\207\ |
| 17120 | 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 5c 33 30 36 5c | 211<\203&.\302.\303\304\305\306\ |
| 17140 | 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 22 5c 22 5c 32 | 307\310..!\311\"\312\313%.\"\"\2 |
| 17160 | 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 | 07\207".[nil.-cons-pair\?.-reduc |
| 17180 | 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 35 37 20 22 5c | e-r.mapcar.make-byte-code.257."\ |
| 171a0 | 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 74 6f 72 20 5b | 301\300.\"\207".vconcat.vector.[ |
| 171c0 | 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 22 5d 20 31 31 | -tree-reduce].4."\n\n(fn.X)"].11 |
| 171e0 | 20 28 23 24 20 2e 20 39 34 30 39 38 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 | .(#$...94098)]).#@51.Anaphoric.f |
| 17200 | 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 20 46 4f 52 4d | orm.of.`-tree-reduce'...(fn.FORM |
| 17220 | 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 65 64 75 63 65 | .TREE)..(defalias.'--tree-reduce |
| 17240 | 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 |
| 17260 | 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 61 20 28 69 74 | .E\207".[-tree-reduce.lambda.(it |
| 17280 | 20 61 63 63 29 5d 20 36 20 28 23 24 20 2e 20 39 34 37 30 39 29 5d 29 29 0a 28 70 75 74 20 27 2d | .acc)].6.(#$...94709)])).(put.'- |
| 172a0 | 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 70 65 63 20 27 | -tree-reduce.'edebug-form-spec.' |
| 172c0 | 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 20 6f 6e 20 65 | (form.form)).#@207.Call.FUN.on.e |
| 172e0 | 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 66 69 65 73 20 | ach.node.of.TREE.that.satisfies. |
| 17300 | 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 20 63 6f 6e 74 | PRED...If.PRED.returns.nil,.cont |
| 17320 | 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 6f 64 65 2e 20 | inue.descending.down.this.node.. |
| 17340 | 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 70 70 6c 79 20 | .If.PRED.returns.non-nil,.apply. |
| 17360 | 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 20 64 65 73 63 | FUN.to.this.node.and.do.not.desc |
| 17380 | 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 54 52 45 45 29 | end.further...(fn.PRED.FUN.TREE) |
| 173a0 | 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 73 20 23 5b 37 | ..(defalias.'-tree-map-nodes.#[7 |
| 173c0 | 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 32 30 33 28 00 | 71."..!\203\n...!\207\211<\203(. |
| 173e0 | 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 34 5c 33 30 35 | \300.!\204(.\301\302\303\304\305 |
| 17400 | 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 22 5c 32 30 37 | \306....\"\307\"\310\311%.\"\207 |
| 17420 | 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 6b 65 2d 62 79 | \207".[-cons-pair\?.-map.make-by |
| 17440 | 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 5c 32 30 37 22 | te-code.257."\302\300\301.#\207" |
| 17460 | 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 6e 6f 64 65 73 | .vconcat.vector.[-tree-map-nodes |
| 17480 | 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 39 34 39 33 31 | ].5."\n\n(fn.X)"].11.(#$...94931 |
| 174a0 | 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 60 2d 74 72 65 | )]).#@59.Anaphoric.form.of.`-tre |
| 174c0 | 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 4d 20 54 52 45 | e-map-nodes'...(fn.PRED.FORM.TRE |
| 174e0 | 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 6f 64 65 73 20 | E)..(defalias.'--tree-map-nodes. |
| 17500 | 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c | '(macro...#[771."\300\301\302.E\ |
| 17520 | 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 2d 6e 6f 64 65 | 301\303.E.F\207".[-tree-map-node |
| 17540 | 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 20 39 35 34 30 | s.lambda.(it).(it)].8.(#$...9540 |
| 17560 | 31 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 63 65 20 6f 66 | 1)])).#@363.Return.a.sequence.of |
| 17580 | 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 68 2d 66 69 72 | .the.nodes.in.TREE,.in.depth-fir |
| 175a0 | 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 20 61 20 70 72 | st.search.order...BRANCH.is.a.pr |
| 175c0 | 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 74 20 72 65 74 | edicate.of.one.argument.that.ret |
| 175e0 | 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 61 72 67 75 6d | urns.non-nil.if.the.passed.argum |
| 17600 | 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 20 6e 6f 64 65 | ent.is.a.branch,.that.is,.a.node |
| 17620 | 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 48 49 4c 44 52 | .that.can.have.children...CHILDR |
| 17640 | 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 75 6d 65 6e 74 | EN.is.a.function.of.one.argument |
| 17660 | 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 6f 66 20 74 68 | .that.returns.the.children.of.th |
| 17680 | 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 62 72 61 6e 63 | e.passed.branch.node...Non-branc |
| 176a0 | 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 0a 28 66 6e 20 | h.nodes.are.simply.copied...(fn. |
| 176c0 | 42 52 41 4e 43 48 20 43 48 49 4c 44 52 45 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 | BRANCH.CHILDREN.TREE)..(defalias |
| 176e0 | 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 32 30 35 1b 00 | .'-tree-seq.#[771."\211..!\205.. |
| 17700 | 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 09 5c 22 5c 33 | \300\301\302\303\304\305....\"\3 |
| 17720 | 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 6d 61 70 63 61 | 06\"\307\310%..!\"B\207".[-mapca |
| 17740 | 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 33 30 30 5c 33 | t.make-byte-code.257."\302\300\3 |
| 17760 | 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- |
| 17780 | 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 20 2e 20 39 35 | seq].5."\n\n(fn.X)"].12.(#$...95 |
| 177a0 | 35 39 36 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 60 2d | 596)]).#@59.Anaphoric.form.of.`- |
| 177c0 | 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 44 52 45 4e 20 | tree-seq'...(fn.BRANCH.CHILDREN. |
| 177e0 | 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 71 20 27 28 6d | TREE)..(defalias.'--tree-seq.'(m |
| 17800 | 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 31 | acro...#[771."\300\301\302.E\301 |
| 17820 | 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 6d 62 64 61 20 | \303.E.F\207".[-tree-seq.lambda. |
| 17840 | 28 69 74 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 39 36 31 37 32 29 5d 29 29 0a 23 40 32 | (it).(it)].8.(#$...96172)])).#@2 |
| 17860 | 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 53 54 2e 0a 54 | 05.Create.a.deep.copy.of.LIST..T |
| 17880 | 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 65 6d 65 6e 74 | he.new.list.has.the.same.element |
| 178a0 | 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 73 20 61 72 65 | s.and.structure.but.all.cons.are |
| 178c0 | 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 68 69 73 20 69 | .replaced.with.new.ones...This.i |
| 178e0 | 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 6c 6f 6e 65 20 | s.useful.when.you.need.to.clone. |
| 17900 | 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 72 20 61 6c 69 | a.structure.such.as.plist.or.ali |
| 17920 | 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6c 6f 6e | st...(fn.LIST)..(defalias.'-clon |
| 17940 | 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 2d 74 72 65 65 | e.#[257."\300\301.\"\207".[-tree |
| 17960 | 2d 6d 61 70 20 69 64 65 6e 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 39 36 33 35 35 29 5d 29 0a | -map.identity].4.(#$...96355)]). |
| 17980 | 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 33 30 | (byte-code."\300\301\302\303#\30 |
| 179a0 | 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f | 0\301\304\303#\300\207".[functio |
| 179c0 | 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 66 65 63 74 2d | n-put.-clone.pure.t.side-effect- |
| 179e0 | 66 72 65 65 5d 20 35 29 0a 23 40 36 39 20 41 64 64 20 73 79 6e 74 61 78 20 68 69 67 68 6c 69 67 | free].5).#@69.Add.syntax.highlig |
| 17a00 | 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 63 72 6f 73 20 | hting.to.dash.functions,.macros. |
| 17a20 | 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 73 20 27 64 61 | and.magic.values...(defalias.'da |
| 17a40 | 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 30 30 5c 33 30 | sh-enable-font-lock.#[0."\300\30 |
| 17a60 | 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 61 64 20 6c 69 | 1\302\"\207".[eval-after-load.li |
| 17a80 | 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 30 35 5c 33 30 | sp-mode.#[0."\302\303\304\305\30 |
| 17aa0 | 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 23 5c 32 31 30 | 6\307.\310\"\311Q\312BC\313#\210 |
| 17ac0 | 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 51 5c 33 31 35 | \304\305\314\307.\310\"\311Q\315 |
| 17ae0 | 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 00 01 40 72 5c | BC\313#\266.\316.\317.\205N..@r\ |
| 17b00 | 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 31 21 5c 32 30 | 211q\210.\305=\203A.\320\301!\20 |
| 17b20 | 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 31 54 5c 32 36 | 3A..\203A.\321.\210)\210\211T\26 |
| 17b40 | 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 2d 6d 6f 64 65 | 2..A\262.\202$.\207".[major-mode |
| 17b60 | 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 63 64 72 22 20 | .font-lock-mode.("!cons"."!cdr". |
| 17b80 | 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 65 78 65 64 22 | "-each"."--each"."-each-indexed" |
| 17ba0 | 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 69 6c 65 22 20 | ."--each-indexed"."-each-while". |
| 17bc0 | 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 74 69 6d 65 73 | "--each-while"."-doto"."-dotimes |
| 17be0 | 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 22 20 22 2d 72 | "."--dotimes"."-map"."--map"."-r |
| 17c00 | 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 20 22 2d 72 65 | educe-from"."--reduce-from"."-re |
| 17c20 | 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 2d 66 72 6f 6d | duce"."--reduce"."-reduce-r-from |
| 17c40 | 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 65 2d 72 22 20 | "."--reduce-r-from"."-reduce-r". |
| 17c60 | 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 72 6f 6d 22 20 | "--reduce-r"."-reductions-from". |
| 17c80 | 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 63 74 69 6f 6e | "-reductions-r-from"."-reduction |
| 17ca0 | 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 22 20 22 2d 2d | s"."-reductions-r"."-filter"."-- |
| 17cc0 | 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 22 20 22 2d 72 | filter"."-select"."--select"."-r |
| 17ce0 | 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 20 22 2d 2d 72 | emove"."--remove"."-reject"."--r |
| 17d00 | 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 65 6d 6f 76 65 | eject"."-remove-first"."--remove |
| 17d20 | 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 72 65 6a 65 63 | -first"."-reject-first"."--rejec |
| 17d40 | 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 72 65 6d 6f 76 | t-first"."-remove-last"."--remov |
| 17d60 | 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 65 6a 65 63 74 | e-last"."-reject-last"."--reject |
| 17d80 | 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 2d 6e 69 6c 22 | -last"."-remove-item"."-non-nil" |
| 17da0 | 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 65 78 65 64 22 | ."-keep"."--keep"."-map-indexed" |
| 17dc0 | 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 22 2d 2d 73 70 | ."--map-indexed"."-splice"."--sp |
| 17de0 | 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 69 63 65 2d 6c | lice"."-splice-list"."--splice-l |
| 17e00 | 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 6e 22 20 22 2d | ist"."-map-when"."--map-when"."- |
| 17e20 | 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 68 65 72 65 22 | replace-where"."--replace-where" |
| 17e40 | 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 20 22 2d 6d 61 | ."-map-first"."--map-first"."-ma |
| 17e60 | 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 61 63 65 22 20 | p-last"."--map-last"."-replace". |
| 17e80 | 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 6c 61 73 74 22 | "-replace-first"."-replace-last" |
| 17ea0 | 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 63 6f 6e 63 61 | ."-flatten"."-flatten-n"."-conca |
| 17ec0 | 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 6f 70 79 22 20 | t"."-mapcat"."--mapcat"."-copy". |
| 17ee0 | 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 2d 2d 66 69 72 | "-cons*"."-snoc"."-first"."--fir |
| 17f00 | 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 22 20 22 2d 2d | st"."-find"."--find"."-some"."-- |
| 17f20 | 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 22 20 22 2d 2d | some"."-any"."--any"."-last"."-- |
| 17f40 | 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 64 2d 69 74 65 | last"."-first-item"."-second-ite |
| 17f60 | 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 74 65 6d 22 20 | m"."-third-item"."-fourth-item". |
| 17f80 | 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 22 2d 62 75 74 | "-fifth-item"."-last-item"."-but |
| 17fa0 | 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 61 6e 79 3f 22 | last"."-count"."--count"."-any?" |
| 17fc0 | 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 22 20 22 2d 61 | ."--any?"."-some?"."--some?"."-a |
| 17fe0 | 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 2d 2d 73 6f 6d | ny-p"."--any-p"."-some-p"."--som |
| 18000 | 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 2d 73 6f 6d 65 | e-p"."-some->"."-some->>"."-some |
| 18020 | 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 6c 3f 22 20 22 | -->"."-all?"."-all-p"."--all?"." |
| 18040 | 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 3f 22 20 22 2d | --all-p"."-every?"."--every?"."- |
| 18060 | 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 20 22 2d 2d 65 | all-p"."--all-p"."-every-p"."--e |
| 18080 | 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 22 2d 6e 6f 6e | very-p"."-none?"."--none?"."-non |
| 180a0 | 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 3f 22 20 22 2d | e-p"."--none-p"."-only-some?"."- |
| 180c0 | 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 20 22 2d 2d 6f | -only-some?"."-only-some-p"."--o |
| 180e0 | 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 22 20 22 2d 64 | nly-some-p"."-slice"."-take"."-d |
| 18100 | 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 73 74 22 20 22 | rop"."-drop-last"."-take-last"." |
| 18120 | 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 20 22 2d 64 72 | -take-while"."--take-while"."-dr |
| 18140 | 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 73 70 6c 69 74 | op-while"."--drop-while"."-split |
| 18160 | 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 20 22 2d 72 65 | -at"."-rotate"."-insert-at"."-re |
| 18180 | 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 70 64 61 74 65 | place-at"."-update-at"."--update |
| 181a0 | 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 61 74 2d 69 6e | -at"."-remove-at"."-remove-at-in |
| 181c0 | 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 69 74 2d 77 69 | dices"."-split-with"."--split-wi |
| 181e0 | 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 6e 22 20 22 2d | th"."-split-on"."-split-when"."- |
| 18200 | 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 2d 73 65 70 61 | -split-when"."-separate"."--sepa |
| 18220 | 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 65 70 73 22 20 | rate"."-partition-all-in-steps". |
| 18240 | 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 74 69 74 69 6f | "-partition-in-steps"."-partitio |
| 18260 | 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 74 69 6f 6e 2d | n-all"."-partition"."-partition- |
| 18280 | 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 65 72 2d 70 72 | after-item"."-partition-after-pr |
| 182a0 | 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 22 20 22 2d 70 | ed"."-partition-before-item"."-p |
| 182c0 | 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 74 69 74 69 6f | artition-before-pred"."-partitio |
| 182e0 | 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 72 74 69 74 69 | n-by"."--partition-by"."-partiti |
| 18300 | 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 62 79 2d 68 65 | on-by-header"."--partition-by-he |
| 18320 | 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 62 79 22 20 22 | ader"."-group-by"."--group-by"." |
| 18340 | 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 2d 75 6e 7a 69 | -interpose"."-interleave"."-unzi |
| 18360 | 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 20 22 2d 7a 69 | p"."-zip-with"."--zip-with"."-zi |
| 18380 | 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 22 2d 63 79 63 | p"."-zip-fill"."-zip-pair"."-cyc |
| 183a0 | 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 6e 6e 6f 74 61 | le"."-pad"."-annotate"."--annota |
| 183c0 | 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 22 2d 70 61 72 | te"."-table"."-table-flat"."-par |
| 183e0 | 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 69 6e 64 69 63 | tial"."-elem-index"."-elem-indic |
| 18400 | 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 2d 69 6e 64 69 | es"."-find-indices"."--find-indi |
| 18420 | 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 69 6e 64 65 78 | ces"."-find-index"."--find-index |
| 18440 | 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 64 2d 6c 61 73 | "."-find-last-index"."--find-las |
| 18460 | 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 73 22 20 22 2d | t-index"."-select-by-indices"."- |
| 18480 | 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 6c 75 6d 6e 22 | select-columns"."-select-column" |
| 184a0 | 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 22 2d 3e 22 20 | ."-grade-up"."-grade-down"."->". |
| 184c0 | 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 6c 65 74 22 20 | "->>"."-->"."-as->"."-when-let". |
| 184e0 | 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 2d 69 66 2d 6c | "-when-let*"."--when-let"."-if-l |
| 18500 | 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 2d 6c 65 74 2a | et"."-if-let*"."--if-let"."-let* |
| 18520 | 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 63 74 22 20 22 | "."-let"."-lambda"."-distinct"." |
| 18540 | 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 69 6f 6e 22 20 | -uniq"."-union"."-intersection". |
| 18560 | 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 2d 70 65 72 6d | "-difference"."-powerset"."-perm |
| 18580 | 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 20 22 2d 63 6f | utations"."-inits"."-tails"."-co |
| 185a0 | 6d 6d 6f 6e 2d 70 72 65 66 69 78 22 20 22 2d 63 6f 6d 6d 6f 6e 2d 73 75 66 66 69 78 22 20 22 2d | mmon-prefix"."-common-suffix"."- |
| 185c0 | 63 6f 6e 74 61 69 6e 73 3f 22 20 22 2d 63 6f 6e 74 61 69 6e 73 2d 70 22 20 22 2d 73 61 6d 65 2d | contains?"."-contains-p"."-same- |
| 185e0 | 69 74 65 6d 73 3f 22 20 22 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 22 20 22 2d 69 73 2d 70 72 65 | items?"."-same-items-p"."-is-pre |
| 18600 | 66 69 78 2d 70 22 20 22 2d 69 73 2d 70 72 65 66 69 78 3f 22 20 22 2d 69 73 2d 73 75 66 66 69 78 | fix-p"."-is-prefix?"."-is-suffix |
| 18620 | 2d 70 22 20 22 2d 69 73 2d 73 75 66 66 69 78 3f 22 20 22 2d 69 73 2d 69 6e 66 69 78 2d 70 22 20 | -p"."-is-suffix?"."-is-infix-p". |
| 18640 | 22 2d 69 73 2d 69 6e 66 69 78 3f 22 20 22 2d 73 6f 72 74 22 20 22 2d 2d 73 6f 72 74 22 20 22 2d | "-is-infix?"."-sort"."--sort"."- |
| 18660 | 6c 69 73 74 22 20 22 2d 72 65 70 65 61 74 22 20 22 2d 73 75 6d 22 20 22 2d 72 75 6e 6e 69 6e 67 | list"."-repeat"."-sum"."-running |
| 18680 | 2d 73 75 6d 22 20 22 2d 70 72 6f 64 75 63 74 22 20 22 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 | -sum"."-product"."-running-produ |
| 186a0 | 63 74 22 20 22 2d 6d 61 78 22 20 22 2d 6d 69 6e 22 20 22 2d 6d 61 78 2d 62 79 22 20 22 2d 2d 6d | ct"."-max"."-min"."-max-by"."--m |
| 186c0 | 61 78 2d 62 79 22 20 22 2d 6d 69 6e 2d 62 79 22 20 22 2d 2d 6d 69 6e 2d 62 79 22 20 22 2d 69 74 | ax-by"."-min-by"."--min-by"."-it |
| 186e0 | 65 72 61 74 65 22 20 22 2d 2d 69 74 65 72 61 74 65 22 20 22 2d 66 69 78 22 20 22 2d 2d 66 69 78 | erate"."--iterate"."-fix"."--fix |
| 18700 | 22 20 22 2d 75 6e 66 6f 6c 64 22 20 22 2d 2d 75 6e 66 6f 6c 64 22 20 22 2d 63 6f 6e 73 2d 70 61 | "."-unfold"."--unfold"."-cons-pa |
| 18720 | 69 72 3f 22 20 22 2d 63 6f 6e 73 2d 70 61 69 72 2d 70 22 20 22 2d 63 6f 6e 73 2d 74 6f 2d 6c 69 | ir?"."-cons-pair-p"."-cons-to-li |
| 18740 | 73 74 22 20 22 2d 76 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 22 20 22 2d 74 72 65 65 2d 6d 61 70 72 | st"."-value-to-list"."-tree-mapr |
| 18760 | 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 | educe-from"."--tree-mapreduce-fr |
| 18780 | 6f 6d 22 20 22 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 22 20 22 2d 2d 74 72 65 65 2d 6d 61 | om"."-tree-mapreduce"."--tree-ma |
| 187a0 | 70 72 65 64 75 63 65 22 20 22 2d 74 72 65 65 2d 6d 61 70 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 | preduce"."-tree-map"."--tree-map |
| 187c0 | 22 20 22 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 74 72 65 65 2d 72 65 | "."-tree-reduce-from"."--tree-re |
| 187e0 | 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 74 72 65 65 2d 72 65 64 75 63 65 22 20 22 2d 2d 74 72 65 | duce-from"."-tree-reduce"."--tre |
| 18800 | 65 2d 72 65 64 75 63 65 22 20 22 2d 74 72 65 65 2d 73 65 71 22 20 22 2d 2d 74 72 65 65 2d 73 65 | e-reduce"."-tree-seq"."--tree-se |
| 18820 | 71 22 20 22 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 | q"."-tree-map-nodes"."--tree-map |
| 18840 | 2d 6e 6f 64 65 73 22 20 22 2d 63 6c 6f 6e 65 22 20 22 2d 72 70 61 72 74 69 61 6c 22 20 22 2d 6a | -nodes"."-clone"."-rpartial"."-j |
| 18860 | 75 78 74 22 20 22 2d 61 70 70 6c 69 66 79 22 20 22 2d 6f 6e 22 20 22 2d 66 6c 69 70 22 20 22 2d | uxt"."-applify"."-on"."-flip"."- |
| 18880 | 63 6f 6e 73 74 22 20 22 2d 63 75 74 22 20 22 2d 6f 72 66 6e 22 20 22 2d 61 6e 64 66 6e 22 20 22 | const"."-cut"."-orfn"."-andfn"." |
| 188a0 | 2d 69 74 65 72 61 74 65 66 6e 22 20 22 2d 66 69 78 66 6e 22 20 22 2d 70 72 6f 64 66 6e 22 29 20 | -iteratefn"."-fixfn"."-prodfn"). |
| 188c0 | 28 22 69 74 22 20 22 69 74 2d 69 6e 64 65 78 22 20 22 61 63 63 22 20 22 6f 74 68 65 72 22 29 20 | ("it"."it-index"."acc"."other"). |
| 188e0 | 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 20 65 6d 61 63 73 2d 6c 69 73 | font-lock-add-keywords.emacs-lis |
| 18900 | 70 2d 6d 6f 64 65 20 22 5c 5c 5f 3c 22 20 72 65 67 65 78 70 2d 6f 70 74 20 70 61 72 65 6e 20 22 | p-mode."\\_<".regexp-opt.paren." |
| 18920 | 5c 5c 5f 3e 22 20 28 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 | \\_>".(1.font-lock-variable-name |
| 18940 | 2d 66 61 63 65 29 20 61 70 70 65 6e 64 20 22 28 5c 5c 73 2d 2a 22 20 28 31 20 66 6f 6e 74 2d 6c | -face).append."(\\s-*".(1.font-l |
| 18960 | 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 20 62 75 66 66 65 72 2d 6c 69 73 74 20 30 20 | ock-keyword-face).buffer-list.0. |
| 18980 | 62 6f 75 6e 64 70 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 72 65 66 72 65 73 68 2d 64 65 66 61 75 6c 74 | boundp.font-lock-refresh-default |
| 189a0 | 73 5d 20 38 5d 5d 20 33 20 28 23 24 20 2e 20 39 36 37 35 30 29 5d 29 0a 28 70 72 6f 76 69 64 65 | s].8]].3.(#$...96750)]).(provide |
| 189c0 | 20 27 64 61 73 68 29 0a | .'dash). |
 |
index : config-emacs.git | |
| Personal ~/.emacs.d/ configuration folder. | Marius Peter |
| summaryrefslogtreecommitdiff |
blob: 1b5727c40343c3bf0801a833a4ba72f1bb3a913e (plain)
Copyright 2019--2024 Marius PETER