| 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 37 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 | cs.version.27.2.;;;.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 44 61 73 68 2c 20 61 20 6d 6f 64 65 72 6e 20 6c 69 73 74 20 6c 69 62 72 | oup.for.Dash,.a.modern.list.libr |
| 01e0 | 61 72 79 2e 22 20 3a 67 72 6f 75 70 20 27 65 78 74 65 6e 73 69 6f 6e 73 20 3a 67 72 6f 75 70 20 | ary.".:group.'extensions.:group. |
| 0200 | 27 6c 69 73 70 20 3a 70 72 65 66 69 78 20 22 64 61 73 68 2d 22 29 0a 23 40 36 34 20 44 65 73 74 | 'lisp.:prefix."dash-").#@64.Dest |
| 0220 | 72 75 63 74 69 76 65 3a 20 53 65 74 20 43 44 52 20 74 6f 20 74 68 65 20 63 6f 6e 73 20 6f 66 20 | ructive:.Set.CDR.to.the.cons.of. |
| 0240 | 43 41 52 20 61 6e 64 20 43 44 52 2e 0a 0a 28 66 6e 20 43 41 52 20 43 44 52 29 1f 0a 28 64 65 66 | CAR.and.CDR...(fn.CAR.CDR)..(def |
| 0260 | 61 6c 69 61 73 20 27 21 63 6f 6e 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 | alias.'!cons.'(macro...#[514."\3 |
| 0280 | 30 30 01 5c 33 30 31 04 04 45 45 5c 32 30 37 22 20 5b 73 65 74 71 20 63 6f 6e 73 5d 20 37 20 28 | 00.\301..EE\207".[setq.cons].7.( |
| 02a0 | 23 24 20 2e 20 35 34 30 29 5d 29 29 0a 28 70 75 74 20 27 21 63 6f 6e 73 20 27 65 64 65 62 75 67 | #$...540)])).(put.'!cons.'edebug |
| 02c0 | 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 73 79 6d 62 6f 6c 70 29 29 0a 23 40 35 34 | -form-spec.'(form.symbolp)).#@54 |
| 02e0 | 20 44 65 73 74 72 75 63 74 69 76 65 3a 20 53 65 74 20 4c 49 53 54 20 74 6f 20 74 68 65 20 63 64 | .Destructive:.Set.LIST.to.the.cd |
| 0300 | 72 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 | r.of.LIST...(fn.LIST)..(defalias |
| 0320 | 20 27 21 63 64 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 | .'!cdr.'(macro...#[257."\300.\30 |
| 0340 | 31 03 44 45 5c 32 30 37 22 20 5b 73 65 74 71 20 63 64 72 5d 20 35 20 28 23 24 20 2e 20 37 33 37 | 1.DE\207".[setq.cdr].5.(#$...737 |
| 0360 | 29 5d 29 29 0a 28 70 75 74 20 27 21 63 64 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | )])).(put.'!cdr.'edebug-form-spe |
| 0380 | 63 20 27 28 73 79 6d 62 6f 6c 70 29 29 0a 23 40 32 33 34 20 45 76 61 6c 75 61 74 65 20 42 4f 44 | c.'(symbolp)).#@234.Evaluate.BOD |
| 03a0 | 59 20 66 6f 72 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 61 6e 64 20 72 | Y.for.each.element.of.LIST.and.r |
| 03c0 | 65 74 75 72 6e 20 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 | eturn.nil..Each.element.of.LIST. |
| 03e0 | 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 | in.turn.is.bound.to.`it'.and.its |
| 0400 | 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 | .index.within.LIST.to.`it-index' |
| 0420 | 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 42 4f 44 59 2e 0a 54 68 69 73 20 69 73 | .before.evaluating.BODY..This.is |
| 0440 | 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d | .the.anaphoric.counterpart.to.`- |
| 0460 | 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 44 59 29 1f 0a 28 64 | each'...(fn.LIST.&rest.BODY)..(d |
| 0480 | 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 20 23 5b 33 38 35 20 | efalias.'--each.'(macro...#[385. |
| 04a0 | 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 05 44 02 5c 33 30 34 42 | "\300\301!\300\302!\303..D.\304B |
| 04c0 | 5c 33 30 35 42 42 5c 33 30 36 5c 33 30 37 05 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 09 44 5c 33 | \305BB\306\307.\310\311\312..D\3 |
| 04e0 | 31 33 06 09 5c 32 31 31 5c 33 31 34 06 5c 66 44 5c 32 35 37 07 06 08 42 42 42 46 5c 32 30 37 22 | 13..\211\314.\fD\257...BBBF\207" |
| 0500 | 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 69 22 20 6c 65 74 20 28 30 29 | .[make-symbol."list"."i".let.(0) |
| 0520 | 20 28 69 74 20 69 74 2d 69 6e 64 65 78 29 20 28 69 67 6e 6f 72 65 20 69 74 20 69 74 2d 69 6e 64 | .(it.it-index).(ignore.it.it-ind |
| 0540 | 65 78 29 20 77 68 69 6c 65 20 73 65 74 71 20 69 74 20 70 6f 70 20 69 74 2d 69 6e 64 65 78 20 31 | ex).while.setq.it.pop.it-index.1 |
| 0560 | 2b 5d 20 31 37 20 28 23 24 20 2e 20 39 31 36 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | +].17.(#$...916)])).(byte-code." |
| 0580 | 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 |
| 05a0 | 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 65 64 65 62 | 5\306#\300\207".[put.--each.edeb |
| 05c0 | 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f | ug-form-spec.(form.body).functio |
| 05e0 | 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) |
| 0600 | 0a 23 40 32 31 37 20 43 61 6c 6c 20 46 4e 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f | .#@217.Call.FN.on.each.element.o |
| 0620 | 66 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 3b 20 74 68 69 73 20 66 75 6e 63 74 69 6f | f.LIST..Return.nil;.this.functio |
| 0640 | 6e 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a | n.is.intended.for.side.effects.. |
| 0660 | 0a 49 74 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d | .Its.anaphoric.counterpart.is.`- |
| 0680 | 2d 65 61 63 68 27 2e 0a 0a 46 6f 72 20 61 63 63 65 73 73 20 74 6f 20 74 68 65 20 63 75 72 72 65 | -each'...For.access.to.the.curre |
| 06a0 | 6e 74 20 65 6c 65 6d 65 6e 74 27 73 20 69 6e 64 65 78 20 69 6e 20 4c 49 53 54 2c 20 73 65 65 0a | nt.element's.index.in.LIST,.see. |
| 06c0 | 60 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a | `-each-indexed'...(fn.LIST.FN).. |
| 06e0 | 28 64 65 66 61 6c 69 61 73 20 27 2d 65 61 63 68 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 | (defalias.'-each.#[514."\300\301 |
| 0700 | 02 04 5c 22 5c 32 31 30 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61 70 63 5d 20 36 20 28 23 24 20 2e | ..\"\210\207".[nil.mapc].6.(#$.. |
| 0720 | 20 31 35 34 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 | .1543)]).(byte-code."\300\301\30 |
| 0740 | 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 | 2\303#\304\305\306\"\207".[funct |
| 0760 | 69 6f 6e 2d 70 75 74 20 2d 65 61 63 68 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 | ion-put.-each.lisp-indent-functi |
| 0780 | 6f 6e 20 31 20 64 65 66 61 6c 69 61 73 20 2d 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 2d 2d 65 | on.1.defalias.--each-indexed.--e |
| 07a0 | 61 63 68 5d 20 34 29 0a 23 40 32 30 33 20 43 61 6c 6c 20 46 4e 20 6f 6e 20 65 61 63 68 20 69 6e | ach].4).#@203.Call.FN.on.each.in |
| 07c0 | 64 65 78 20 61 6e 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 46 6f 72 20 65 61 63 | dex.and.element.of.LIST..For.eac |
| 07e0 | 68 20 49 54 45 4d 20 61 74 20 49 4e 44 45 58 20 69 6e 20 4c 49 53 54 2c 20 63 61 6c 6c 20 28 66 | h.ITEM.at.INDEX.in.LIST,.call.(f |
| 0800 | 75 6e 63 61 6c 6c 20 46 4e 20 49 4e 44 45 58 20 49 54 45 4d 29 2e 0a 52 65 74 75 72 6e 20 6e 69 | uncall.FN.INDEX.ITEM)..Return.ni |
| 0820 | 6c 3b 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 | l;.this.function.is.intended.for |
| 0840 | 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d | .side.effects...See.also:.`-map- |
| 0860 | 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 | indexed'...(fn.LIST.FN)..(defali |
| 0880 | 61 73 20 27 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20 22 01 5c 33 30 30 5c 33 | as.'-each-indexed.#[514.".\300\3 |
| 08a0 | 30 31 5c 32 31 31 03 5c 32 30 35 1f 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 | 01\211.\205...\211A\262.\242\262 |
| 08c0 | 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 04 01 03 5c 22 5c 32 31 30 5c 32 30 32 04 00 5c 32 30 | ..\262..T\262....\"\210\202..\20 |
| 08e0 | 37 22 20 5b 30 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 31 39 36 36 29 5d 29 0a 28 62 79 74 65 | 7".[0.nil].9.(#$...1966)]).(byte |
| 0900 | 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 37 | -code."\300\301\302\303#\300\207 |
| 0920 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 65 61 63 68 2d 69 6e 64 65 78 65 64 20 6c 69 | ".[function-put.-each-indexed.li |
| 0940 | 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 33 39 32 20 45 | sp-indent-function.1].4).#@392.E |
| 0960 | 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 | valuate.BODY.for.each.item.in.LI |
| 0980 | 53 54 2c 20 77 68 69 6c 65 20 50 52 45 44 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d | ST,.while.PRED.evaluates.to.non- |
| 09a0 | 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 | nil..Each.element.of.LIST.in.tur |
| 09c0 | 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 | n.is.bound.to.`it'.and.its.index |
| 09e0 | 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 | .within.LIST.to.`it-index'.befor |
| 0a00 | 65 20 65 76 61 6c 75 61 74 69 6e 67 20 50 52 45 44 20 6f 72 20 42 4f 44 59 2e 20 20 4f 6e 63 65 | e.evaluating.PRED.or.BODY...Once |
| 0a20 | 0a 61 6e 20 65 6c 65 6d 65 6e 74 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 | .an.element.is.reached.for.which |
| 0a40 | 20 50 52 45 44 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 69 6c 2c 20 6e 6f 20 66 75 72 74 68 | .PRED.evaluates.to.nil,.no.furth |
| 0a60 | 65 72 0a 42 4f 44 59 20 69 73 20 65 76 61 6c 75 61 74 65 64 2e 20 20 54 68 65 20 72 65 74 75 72 | er.BODY.is.evaluated...The.retur |
| 0a80 | 6e 20 76 61 6c 75 65 20 69 73 20 61 6c 77 61 79 73 20 6e 69 6c 2e 0a 54 68 69 73 20 69 73 20 74 | n.value.is.always.nil..This.is.t |
| 0aa0 | 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 65 61 | he.anaphoric.counterpart.to.`-ea |
| 0ac0 | 63 68 2d 77 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 | ch-while'...(fn.LIST.PRED.&rest. |
| 0ae0 | 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 27 | BODY)..(defalias.'--each-while.' |
| 0b00 | 28 6d 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 30 5c 33 30 | (macro...#[642."\300\301!\300\30 |
| 0b20 | 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 06 07 44 03 5c 33 30 35 42 03 5c 33 30 36 42 42 | 2!\300\303!\304...D.\305B.\306BB |
| 0b40 | 42 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 07 5c 33 31 32 06 07 5c 33 31 33 06 0b 44 5c 33 31 34 | B\307\310\311..\312..\313..D\314 |
| 0b60 | 06 5c 6e 5c 33 31 35 06 0d 5c 32 35 37 07 06 0b 46 5c 33 31 32 5c 33 31 34 06 07 5c 33 31 35 06 | .\n\315..\257...F\312\314..\315. |
| 0b80 | 5c 6e 5c 32 31 31 5c 33 31 36 06 0d 44 5c 32 35 37 07 06 09 42 42 42 46 5c 32 30 37 22 20 5b 6d | \n\211\316..D\257...BBBF\207".[m |
| 0ba0 | 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 69 22 20 22 65 6c 74 22 20 6c 65 74 20 | ake-symbol."list"."i"."elt".let. |
| 0bc0 | 28 30 29 20 28 69 74 20 69 74 2d 69 6e 64 65 78 29 20 28 69 67 6e 6f 72 65 20 69 74 20 69 74 2d | (0).(it.it-index).(ignore.it.it- |
| 0be0 | 69 6e 64 65 78 29 20 77 68 69 6c 65 20 61 6e 64 20 73 65 74 71 20 70 6f 70 20 69 74 20 69 74 2d | index).while.and.setq.pop.it.it- |
| 0c00 | 69 6e 64 65 78 20 31 2b 5d 20 31 39 20 28 23 24 20 2e 20 32 33 39 39 29 5d 29 29 0a 28 62 79 74 | index.1+].19.(#$...2399)])).(byt |
| 0c20 | 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 |
| 0c40 | 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 20 2d 2d 65 | 4\301\305\306#\300\207".[put.--e |
| 0c60 | 61 63 68 2d 77 68 69 6c 65 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d | ach-while.edebug-form-spec.(form |
| 0c80 | 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e | .form.body).function-put.lisp-in |
| 0ca0 | 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 32 35 39 20 43 61 6c 6c 20 46 | dent-function.2].4).#@259.Call.F |
| 0cc0 | 4e 20 6f 6e 20 65 61 63 68 20 49 54 45 4d 20 69 6e 20 4c 49 53 54 2c 20 77 68 69 6c 65 20 28 50 | N.on.each.ITEM.in.LIST,.while.(P |
| 0ce0 | 52 45 44 20 49 54 45 4d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 4f 6e 63 65 20 61 6e 20 49 54 | RED.ITEM).is.non-nil..Once.an.IT |
| 0d00 | 45 4d 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 | EM.is.reached.for.which.PRED.ret |
| 0d20 | 75 72 6e 73 20 6e 69 6c 2c 20 46 4e 20 69 73 20 6e 6f 0a 6c 6f 6e 67 65 72 20 63 61 6c 6c 65 64 | urns.nil,.FN.is.no.longer.called |
| 0d40 | 2e 20 20 52 65 74 75 72 6e 20 6e 69 6c 3b 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 | ...Return.nil;.this.function.is. |
| 0d60 | 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 69 64 65 0a 65 66 66 65 63 74 73 2e 0a 0a 49 74 73 20 | intended.for.side.effects...Its. |
| 0d80 | 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 65 61 63 68 | anaphoric.counterpart.is.`--each |
| 0da0 | 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 20 46 4e 29 1f 0a 28 64 65 | -while'...(fn.LIST.PRED.FN)..(de |
| 0dc0 | 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 20 22 02 5c 33 30 30 | falias.'-each-while.#[771.".\300 |
| 0de0 | 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 35 33 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 | \301\211\211.\2053..\211A\262.\2 |
| 0e00 | 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 35 33 00 06 06 02 | 42\262..\262..\211\262.\2053.... |
| 0e20 | 21 5c 32 30 35 33 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 05 02 21 5c 32 31 | !\2053..\262..\262..T\262...!\21 |
| 0e40 | 30 5c 32 30 32 05 00 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 33 32 | 0\202..\207".[0.nil].10.(#$...32 |
| 0e60 | 35 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 58)]).(byte-code."\300\301\302\3 |
| 0e80 | 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 65 61 63 68 | 03#\300\207".[function-put.-each |
| 0ea0 | 2d 77 68 69 6c 65 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 | -while.lisp-indent-function.2].4 |
| 0ec0 | 29 0a 23 40 32 39 34 20 45 76 61 6c 75 61 74 65 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 65 | ).#@294.Evaluate.BODY.for.each.e |
| 0ee0 | 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 72 65 76 65 72 73 65 64 20 6f 72 64 65 72 | lement.of.LIST.in.reversed.order |
| 0f00 | 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 2c 20 | ..Each.element.of.LIST.in.turn,. |
| 0f20 | 73 74 61 72 74 69 6e 67 20 61 74 20 69 74 73 20 65 6e 64 2c 20 69 73 20 62 6f 75 6e 64 20 74 6f | starting.at.its.end,.is.bound.to |
| 0f40 | 0a 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 20 77 69 74 68 69 6e 20 4c 49 53 54 20 | .`it'.and.its.index.within.LIST. |
| 0f60 | 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 0a | to.`it-index'.before.evaluating. |
| 0f80 | 42 4f 44 59 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 6c 77 61 79 | BODY...The.return.value.is.alway |
| 0fa0 | 73 20 6e 69 6c 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 | s.nil..This.is.the.anaphoric.cou |
| 0fc0 | 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 65 61 63 68 2d 72 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 | nterpart.to.`-each-r'...(fn.LIST |
| 0fe0 | 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 2d | .&rest.BODY)..(defalias.'--each- |
| 1000 | 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 | r.'(macro...#[385."\300\301!\300 |
| 1020 | 5c 33 30 32 21 5c 33 30 33 02 5c 33 30 34 06 06 44 44 02 5c 33 30 35 05 44 44 5c 33 30 36 42 42 | \302!\303.\304..DD.\305.DD\306BB |
| 1040 | 5c 33 30 37 5c 33 31 30 5c 33 31 31 05 5c 33 31 32 42 42 5c 33 31 33 06 06 5c 33 31 34 06 08 44 | \307\310\311.\312BB\313..\314..D |
| 1060 | 5c 33 31 35 06 09 5c 33 31 36 5c 33 31 37 06 0d 06 0d 45 5c 32 35 37 07 06 08 42 42 42 46 5c 32 | \315..\316\317....E\257...BBBF\2 |
| 1080 | 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 76 65 63 74 6f 72 22 20 22 69 22 20 6c 65 | 07".[make-symbol."vector"."i".le |
| 10a0 | 74 2a 20 76 63 6f 6e 63 61 74 20 6c 65 6e 67 74 68 20 28 69 74 20 69 74 2d 69 6e 64 65 78 29 20 | t*.vconcat.length.(it.it-index). |
| 10c0 | 28 69 67 6e 6f 72 65 20 69 74 20 69 74 2d 69 6e 64 65 78 29 20 77 68 69 6c 65 20 3e 20 28 30 29 | (ignore.it.it-index).while.>.(0) |
| 10e0 | 20 73 65 74 71 20 31 2d 20 69 74 2d 69 6e 64 65 78 20 69 74 20 61 72 65 66 5d 20 31 38 20 28 23 | .setq.1-.it-index.it.aref].18.(# |
| 1100 | 24 20 2e 20 33 37 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 | $...3784)])).(byte-code."\300\30 |
| 1120 | 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c | 1\302\303#\210\304\301\305\306#\ |
| 1140 | 33 30 30 5c 32 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 | 300\207".[put.--each-r.edebug-fo |
| 1160 | 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 | rm-spec.(form.body).function-put |
| 1180 | 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 36 | .lisp-indent-function.1].4).#@16 |
| 11a0 | 34 20 43 61 6c 6c 20 46 4e 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 | 4.Call.FN.on.each.element.of.LIS |
| 11c0 | 54 20 69 6e 20 72 65 76 65 72 73 65 64 20 6f 72 64 65 72 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 3b | T.in.reversed.order..Return.nil; |
| 11e0 | 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 | .this.function.is.intended.for.s |
| 1200 | 69 64 65 20 65 66 66 65 63 74 73 2e 0a 0a 49 74 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e | ide.effects...Its.anaphoric.coun |
| 1220 | 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 65 61 63 68 2d 72 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 | terpart.is.`--each-r'...(fn.LIST |
| 1240 | 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 20 22 | .FN)..(defalias.'-each-r.#[514." |
| 1260 | 5c 33 30 30 02 21 5c 32 31 31 47 5c 33 30 31 5c 32 31 31 02 5c 33 30 32 56 5c 32 30 35 20 00 02 | \300.!\211G\301\211.\302V\205... |
| 1280 | 53 5c 32 36 32 03 02 5c 32 36 32 01 03 03 48 5c 32 36 32 02 04 02 21 5c 32 31 30 5c 32 30 32 07 | S\262..\262...H\262...!\210\202. |
| 12a0 | 00 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 5d 20 38 20 28 23 24 20 2e 20 34 | .\207".[vconcat.nil.0].8.(#$...4 |
| 12c0 | 35 31 34 29 5d 29 0a 23 40 34 31 37 20 45 76 61 6c 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 | 514)]).#@417.Eval.BODY.for.each. |
| 12e0 | 69 74 65 6d 20 69 6e 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 2c 20 77 68 69 6c 65 20 50 52 45 | item.in.reversed.LIST,.while.PRE |
| 1300 | 44 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 | D.evals.to.non-nil..Each.element |
| 1320 | 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 2c 20 73 74 61 72 74 69 6e 67 20 61 74 20 69 74 | .of.LIST.in.turn,.starting.at.it |
| 1340 | 73 20 65 6e 64 2c 20 69 73 20 62 6f 75 6e 64 20 74 6f 0a 60 69 74 27 20 61 6e 64 20 69 74 73 20 | s.end,.is.bound.to.`it'.and.its. |
| 1360 | 69 6e 64 65 78 20 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 | index.within.LIST.to.`it-index'. |
| 1380 | 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 0a 50 52 45 44 20 6f 72 20 42 4f 44 59 2e 20 | before.evaluating.PRED.or.BODY.. |
| 13a0 | 20 4f 6e 63 65 20 61 6e 20 65 6c 65 6d 65 6e 74 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 | .Once.an.element.is.reached.for. |
| 13c0 | 77 68 69 63 68 20 50 52 45 44 0a 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 69 6c 2c 20 6e 6f 20 | which.PRED.evaluates.to.nil,.no. |
| 13e0 | 66 75 72 74 68 65 72 20 42 4f 44 59 20 69 73 20 65 76 61 6c 75 61 74 65 64 2e 20 20 54 68 65 20 | further.BODY.is.evaluated...The. |
| 1400 | 72 65 74 75 72 6e 20 76 61 6c 75 65 0a 69 73 20 61 6c 77 61 79 73 20 6e 69 6c 2e 0a 54 68 69 73 | return.value.is.always.nil..This |
| 1420 | 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f | .is.the.anaphoric.counterpart.to |
| 1440 | 20 60 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 50 52 45 44 | .`-each-r-while'...(fn.LIST.PRED |
| 1460 | 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 65 61 63 68 2d | .&rest.BODY)..(defalias.'--each- |
| 1480 | 72 2d 77 68 69 6c 65 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 | r-while.'(macro...#[642."\300\30 |
| 14a0 | 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 5c 33 30 35 06 08 44 | 1!\300\302!\300\303!\304.\305..D |
| 14c0 | 44 03 5c 33 30 36 06 06 44 44 03 5c 33 30 37 42 42 42 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 | D.\306..DD.\307BBB\310\311\312\3 |
| 14e0 | 31 33 06 07 5c 33 31 34 42 42 5c 33 31 35 06 08 5c 33 31 36 06 5c 6e 44 5c 33 31 37 06 0b 5c 32 | 13..\314BB\315..\316.\nD\317..\2 |
| 1500 | 35 37 05 5c 33 31 35 06 08 5c 33 32 30 06 5c 66 06 5c 66 45 5c 33 32 31 06 0b 5c 32 35 37 05 06 | 57.\315..\320.\f.\fE\321..\257.. |
| 1520 | 5c 66 5c 32 35 37 05 5c 33 31 35 5c 33 31 37 06 08 5c 33 32 31 06 09 5c 32 35 37 05 06 09 42 42 | \f\257.\315\317..\321..\257...BB |
| 1540 | 42 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 76 65 63 74 6f 72 22 20 22 69 | BF\207".[make-symbol."vector"."i |
| 1560 | 22 20 22 65 6c 74 22 20 6c 65 74 2a 20 76 63 6f 6e 63 61 74 20 6c 65 6e 67 74 68 20 28 69 74 20 | "."elt".let*.vconcat.length.(it. |
| 1580 | 69 74 2d 69 6e 64 65 78 29 20 28 69 67 6e 6f 72 65 20 69 74 20 69 74 2d 69 6e 64 65 78 29 20 77 | it-index).(ignore.it.it-index).w |
| 15a0 | 68 69 6c 65 20 77 68 65 6e 20 3e 20 28 30 29 20 73 65 74 71 20 31 2d 20 69 74 2d 69 6e 64 65 78 | hile.when.>.(0).setq.1-.it-index |
| 15c0 | 20 61 72 65 66 20 69 74 5d 20 31 38 20 28 23 24 20 2e 20 34 38 31 33 29 5d 29 29 0a 28 62 79 74 | .aref.it].18.(#$...4813)])).(byt |
| 15e0 | 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 |
| 1600 | 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 20 2d 2d 65 | 4\301\305\306#\300\207".[put.--e |
| 1620 | 61 63 68 2d 72 2d 77 68 69 6c 65 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f | ach-r-while.edebug-form-spec.(fo |
| 1640 | 72 6d 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d | rm.form.body).function-put.lisp- |
| 1660 | 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 32 37 30 20 43 61 6c 6c | indent-function.2].4).#@270.Call |
| 1680 | 20 46 4e 20 6f 6e 20 65 61 63 68 20 49 54 45 4d 20 69 6e 20 72 65 76 65 72 73 65 64 20 4c 49 53 | .FN.on.each.ITEM.in.reversed.LIS |
| 16a0 | 54 2c 20 77 68 69 6c 65 20 28 50 52 45 44 20 49 54 45 4d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e | T,.while.(PRED.ITEM).is.non-nil. |
| 16c0 | 0a 4f 6e 63 65 20 61 6e 20 49 54 45 4d 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 | .Once.an.ITEM.is.reached.for.whi |
| 16e0 | 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 46 4e 20 69 73 20 6e 6f 0a 6c 6f | ch.PRED.returns.nil,.FN.is.no.lo |
| 1700 | 6e 67 65 72 20 63 61 6c 6c 65 64 2e 20 20 52 65 74 75 72 6e 20 6e 69 6c 3b 20 74 68 69 73 20 66 | nger.called...Return.nil;.this.f |
| 1720 | 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 69 64 65 0a 65 66 66 | unction.is.intended.for.side.eff |
| 1740 | 65 63 74 73 2e 0a 0a 49 74 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 | ects...Its.anaphoric.counterpart |
| 1760 | 20 69 73 20 60 2d 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 | .is.`--each-r-while'...(fn.LIST. |
| 1780 | 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 69 | PRED.FN)..(defalias.'-each-r-whi |
| 17a0 | 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 5c 32 31 31 5c 32 31 | le.#[771."\300.!\211G\301\211\21 |
| 17c0 | 31 03 5c 33 30 32 56 5c 32 30 35 31 00 03 53 5c 32 36 32 04 03 5c 32 36 32 01 04 04 48 5c 32 36 | 1.\302V\2051..S\262..\262...H\26 |
| 17e0 | 32 03 02 5c 32 36 32 02 06 06 02 21 5c 32 30 35 31 00 03 5c 32 36 32 01 02 5c 32 36 32 02 05 02 | 2..\262....!\2051..\262..\262... |
| 1800 | 21 5c 32 31 30 5c 32 30 32 08 00 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 5d | !\210\202..\207".[vconcat.nil.0] |
| 1820 | 20 31 30 20 28 23 24 20 2e 20 35 37 35 36 29 5d 29 0a 23 40 33 30 35 20 45 76 61 6c 75 61 74 65 | .10.(#$...5756)]).#@305.Evaluate |
| 1840 | 20 42 4f 44 59 20 4e 55 4d 20 74 69 6d 65 73 2c 20 70 72 65 73 75 6d 61 62 6c 79 20 66 6f 72 20 | .BODY.NUM.times,.presumably.for. |
| 1860 | 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a 42 4f 44 59 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 | side.effects..BODY.is.evaluated. |
| 1880 | 77 69 74 68 20 74 68 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 60 69 74 27 20 74 65 6d | with.the.local.variable.`it'.tem |
| 18a0 | 70 6f 72 61 72 69 6c 79 20 62 6f 75 6e 64 0a 74 6f 20 73 75 63 63 65 73 73 69 76 65 20 69 6e 74 | porarily.bound.to.successive.int |
| 18c0 | 65 67 65 72 73 20 72 75 6e 6e 69 6e 67 20 66 72 6f 6d 20 30 2c 20 69 6e 63 6c 75 73 69 76 65 2c | egers.running.from.0,.inclusive, |
| 18e0 | 20 74 6f 20 4e 55 4d 2c 0a 65 78 63 6c 75 73 69 76 65 2e 20 20 42 4f 44 59 20 69 73 20 6e 6f 74 | .to.NUM,.exclusive...BODY.is.not |
| 1900 | 20 65 76 61 6c 75 61 74 65 64 20 69 66 20 4e 55 4d 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 31 | .evaluated.if.NUM.is.less.than.1 |
| 1920 | 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 | ..This.is.the.anaphoric.counterp |
| 1940 | 61 72 74 20 74 6f 20 60 2d 64 6f 74 69 6d 65 73 27 2e 0a 0a 28 66 6e 20 4e 55 4d 20 26 72 65 73 | art.to.`-dotimes'...(fn.NUM.&res |
| 1960 | 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 6d 65 73 20 27 28 | t.BODY)..(defalias.'--dotimes.'( |
| 1980 | 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 30 30 5c 33 30 32 | macro...#[385."\300\301!\300\302 |
| 19a0 | 21 5c 33 30 33 02 05 44 02 5c 33 30 34 42 5c 33 30 35 42 42 5c 33 30 36 5c 33 30 37 5c 33 31 30 | !\303..D.\304B\305BB\306\307\310 |
| 19c0 | 05 06 07 45 5c 33 31 31 5c 33 31 32 06 07 5c 32 31 31 5c 33 31 33 06 5c 6e 44 5c 32 35 37 05 06 | ...E\311\312..\211\313.\nD\257.. |
| 19e0 | 08 42 42 42 46 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 22 69 | .BBBF\207".[make-symbol."num"."i |
| 1a00 | 22 20 6c 65 74 20 28 30 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 20 77 68 69 6c 65 | ".let.(0).(it).(ignore.it).while |
| 1a20 | 20 3c 20 73 65 74 71 20 69 74 20 31 2b 5d 20 31 35 20 28 23 24 20 2e 20 36 32 30 30 29 5d 29 29 | .<.setq.it.1+].15.(#$...6200)])) |
| 1a40 | 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 | .(byte-code."\300\301\302\303#\2 |
| 1a60 | 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 20 5b 70 75 | 10\304\301\305\306#\300\207".[pu |
| 1a80 | 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 63 20 28 66 6f | t.--dotimes.edebug-form-spec.(fo |
| 1aa0 | 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e | rm.body).function-put.lisp-inden |
| 1ac0 | 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 32 36 33 20 43 61 6c 6c 20 46 4e 20 4e | t-function.1].4).#@263.Call.FN.N |
| 1ae0 | 55 4d 20 74 69 6d 65 73 2c 20 70 72 65 73 75 6d 61 62 6c 79 20 66 6f 72 20 73 69 64 65 20 65 66 | UM.times,.presumably.for.side.ef |
| 1b00 | 66 65 63 74 73 2e 0a 46 4e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 73 69 6e 67 6c | fects..FN.is.called.with.a.singl |
| 1b20 | 65 20 61 72 67 75 6d 65 6e 74 20 6f 6e 20 73 75 63 63 65 73 73 69 76 65 20 69 6e 74 65 67 65 72 | e.argument.on.successive.integer |
| 1b40 | 73 0a 72 75 6e 6e 69 6e 67 20 66 72 6f 6d 20 30 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 74 6f 20 | s.running.from.0,.inclusive,.to. |
| 1b60 | 4e 55 4d 2c 20 65 78 63 6c 75 73 69 76 65 2e 20 20 46 4e 20 69 73 20 6e 6f 74 20 63 61 6c 6c 65 | NUM,.exclusive...FN.is.not.calle |
| 1b80 | 64 0a 69 66 20 4e 55 4d 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 31 2e 0a 0a 54 68 69 73 20 66 | d.if.NUM.is.less.than.1...This.f |
| 1ba0 | 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 | unction's.anaphoric.counterpart. |
| 1bc0 | 69 73 20 60 2d 2d 64 6f 74 69 6d 65 73 27 2e 0a 0a 28 66 6e 20 4e 55 4d 20 46 4e 29 1f 0a 28 64 | is.`--dotimes'...(fn.NUM.FN)..(d |
| 1be0 | 65 66 61 6c 69 61 73 20 27 2d 64 6f 74 69 6d 65 73 20 23 5b 35 31 34 20 22 01 5c 33 30 30 5c 33 | efalias.'-dotimes.#[514.".\300\3 |
| 1c00 | 30 31 01 03 57 5c 32 30 35 17 00 01 5c 32 36 32 01 01 54 5c 32 36 32 02 03 01 21 5c 32 31 30 5c | 01..W\205...\262..T\262...!\210\ |
| 1c20 | 32 30 32 03 00 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 37 20 28 23 24 20 2e 20 36 38 37 31 29 | 202..\207".[0.nil].7.(#$...6871) |
| 1c40 | 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# |
| 1c60 | 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 64 6f 74 69 6d 65 73 | \300\207".[function-put.-dotimes |
| 1c80 | 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 32 | .lisp-indent-function.1].4).#@12 |
| 1ca0 | 38 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 | 8.Apply.FN.to.each.item.in.LIST. |
| 1cc0 | 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 73 75 6c 74 73 2e 0a | and.return.the.list.of.results.. |
| 1ce0 | 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 | .This.function's.anaphoric.count |
| 1d00 | 65 72 70 61 72 74 20 69 73 20 60 2d 2d 6d 61 70 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 | erpart.is.`--map'...(fn.FN.LIST) |
| 1d20 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c | ..(defalias.'-map.#[514."\300..\ |
| 1d40 | 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 5d 20 35 20 28 23 24 20 2e 20 37 33 33 30 29 5d 29 0a | "\207".[mapcar].5.(#$...7330)]). |
| 1d60 | 23 40 31 39 36 20 45 76 61 6c 20 46 4f 52 4d 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e | #@196.Eval.FORM.for.each.item.in |
| 1d80 | 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 73 | .LIST.and.return.the.list.of.res |
| 1da0 | 75 6c 74 73 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 | ults..Each.element.of.LIST.in.tu |
| 1dc0 | 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 | rn.is.bound.to.`it'.before.evalu |
| 1de0 | 61 74 69 6e 67 0a 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 | ating.FORM..This.is.the.anaphori |
| 1e00 | 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 6d 61 70 27 2e 0a 0a 28 66 6e 20 46 4f | c.counterpart.to.`-map'...(fn.FO |
| 1e20 | 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 20 27 28 6d 61 63 | RM.LIST)..(defalias.'--map.'(mac |
| 1e40 | 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 46 02 45 | ro...#[514."\300\301\302\303.F.E |
| 1e60 | 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 67 6e 6f 72 | \207".[mapcar.lambda.(it).(ignor |
| 1e80 | 65 20 69 74 29 5d 20 37 20 28 23 24 20 2e 20 37 35 32 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d | e.it)].7.(#$...7526)])).(put.'-- |
| 1ea0 | 6d 61 70 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d | map.'edebug-form-spec.'(def-form |
| 1ec0 | 20 66 6f 72 6d 29 29 0a 23 40 35 36 39 20 41 63 63 75 6d 75 6c 61 74 65 20 61 20 76 61 6c 75 65 | .form)).#@569.Accumulate.a.value |
| 1ee0 | 20 62 79 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61 63 72 6f 73 73 20 4c 49 53 54 2e | .by.evaluating.FORM.across.LIST. |
| 1f00 | 0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60 2d 2d 65 61 63 68 27 20 28 77 68 | .This.macro.is.like.`--each'.(wh |
| 1f20 | 69 63 68 20 73 65 65 29 2c 20 62 75 74 20 69 74 20 61 64 64 69 74 69 6f 6e 61 6c 6c 79 0a 70 72 | ich.see),.but.it.additionally.pr |
| 1f40 | 6f 76 69 64 65 73 20 61 6e 20 61 63 63 75 6d 75 6c 61 74 6f 72 20 76 61 72 69 61 62 6c 65 20 60 | ovides.an.accumulator.variable.` |
| 1f60 | 61 63 63 27 20 77 68 69 63 68 20 69 74 20 73 75 63 63 65 73 73 69 76 65 6c 79 0a 62 69 6e 64 73 | acc'.which.it.successively.binds |
| 1f80 | 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 | .to.the.result.of.evaluating.FOR |
| 1fa0 | 4d 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 4c 49 53 54 0a 65 6c 65 6d 65 6e 74 20 62 | M.for.the.current.LIST.element.b |
| 1fc0 | 65 66 6f 72 65 20 70 72 6f 63 65 73 73 69 6e 67 20 74 68 65 20 6e 65 78 74 20 65 6c 65 6d 65 6e | efore.processing.the.next.elemen |
| 1fe0 | 74 2e 20 20 46 6f 72 20 74 68 65 20 66 69 72 73 74 0a 65 6c 65 6d 65 6e 74 2c 20 60 61 63 63 27 | t...For.the.first.element,.`acc' |
| 2000 | 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 77 69 74 68 20 74 68 65 20 72 65 73 75 6c 74 20 | .is.initialized.with.the.result. |
| 2020 | 6f 66 20 65 76 61 6c 75 61 74 69 6e 67 20 49 4e 49 54 2e 0a 54 68 65 20 72 65 74 75 72 6e 20 76 | of.evaluating.INIT..The.return.v |
| 2040 | 61 6c 75 65 20 69 73 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 76 61 6c 75 65 20 6f 66 20 60 | alue.is.the.resulting.value.of.` |
| 2060 | 61 63 63 27 2e 20 20 49 66 20 4c 49 53 54 20 69 73 0a 65 6d 70 74 79 2c 20 46 4f 52 4d 20 69 73 | acc'...If.LIST.is.empty,.FORM.is |
| 2080 | 20 6e 6f 74 20 65 76 61 6c 75 61 74 65 64 2c 20 61 6e 64 20 74 68 65 20 72 65 74 75 72 6e 20 76 | .not.evaluated,.and.the.return.v |
| 20a0 | 61 6c 75 65 20 69 73 20 74 68 65 20 72 65 73 75 6c 74 0a 6f 66 20 49 4e 49 54 2e 0a 54 68 69 73 | alue.is.the.result.of.INIT..This |
| 20c0 | 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f | .is.the.anaphoric.counterpart.to |
| 20e0 | 20 60 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 49 4e 49 54 20 | .`-reduce-from'...(fn.FORM.INIT. |
| 2100 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 | LIST)..(defalias.'--reduce-from. |
| 2120 | 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 44 43 5c 33 30 32 | '(macro...#[771."\300\301.DC\302 |
| 2140 | 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 5b 6c 65 74 20 61 | .\303\301..EE\304BBB\207".[let.a |
| 2160 | 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 23 24 20 2e 20 37 | cc.--each.setq.(acc)].10.(#$...7 |
| 2180 | 38 38 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65 64 65 | 886)])).(put.'--reduce-from.'ede |
| 21a0 | 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)) |
| 21c0 | 0a 23 40 33 37 33 20 52 65 64 75 63 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 63 | .#@373.Reduce.the.function.FN.ac |
| 21e0 | 72 6f 73 73 20 4c 49 53 54 2c 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 49 4e 49 54 2e 0a 52 | ross.LIST,.starting.with.INIT..R |
| 2200 | 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 6e 67 20 46 4e 20 | eturn.the.result.of.applying.FN. |
| 2220 | 74 6f 20 49 4e 49 54 20 61 6e 64 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 | to.INIT.and.the.first.element.of |
| 2240 | 0a 4c 49 53 54 2c 20 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 61 74 20 | .LIST,.then.applying.FN.to.that. |
| 2260 | 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 2c 0a 65 | result.and.the.second.element,.e |
| 2280 | 74 63 2e 20 20 49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 72 65 74 75 72 6e 20 49 4e | tc...If.LIST.is.empty,.return.IN |
| 22a0 | 49 54 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 20 46 4e 2e 0a 0a 54 68 69 73 20 66 75 6e | IT.without.calling.FN...This.fun |
| 22c0 | 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 | ction's.anaphoric.counterpart.is |
| 22e0 | 20 60 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c | .`--reduce-from'...For.other.fol |
| 2300 | 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 65 27 20 61 6e 64 20 60 2d 72 65 64 | ds,.see.also.`-reduce'.and.`-red |
| 2320 | 75 63 65 2d 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 | uce-r'...(fn.FN.INIT.LIST)..(def |
| 2340 | 61 6c 69 61 73 20 27 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 01 5c 33 30 | alias.'-reduce-from.#[771."..\30 |
| 2360 | 30 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 5c 22 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 | 0\301\211.\203\"..\211A\262.\242 |
| 2380 | 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 07 05 03 5c 22 5c 32 36 32 05 5c 32 30 | \262..\262..T\262.....\"\262.\20 |
| 23a0 | 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 | 2..\266.\211\207".[0.nil].11.(#$ |
| 23c0 | 20 2e 20 38 36 34 37 29 5d 29 0a 23 40 33 36 34 20 41 63 63 75 6d 75 6c 61 74 65 20 61 20 76 61 | ...8647)]).#@364.Accumulate.a.va |
| 23e0 | 6c 75 65 20 62 79 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61 63 72 6f 73 73 20 4c 49 | lue.by.evaluating.FORM.across.LI |
| 2400 | 53 54 2e 0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60 2d 2d 72 65 64 75 63 65 | ST..This.macro.is.like.`--reduce |
| 2420 | 2d 66 72 6f 6d 27 20 28 77 68 69 63 68 20 73 65 65 29 2c 20 65 78 63 65 70 74 20 74 68 65 20 66 | -from'.(which.see),.except.the.f |
| 2440 | 69 72 73 74 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 73 20 74 61 6b 65 6e 20 61 73 | irst.element.of.LIST.is.taken.as |
| 2460 | 20 49 4e 49 54 2e 20 20 54 68 75 73 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 61 20 | .INIT...Thus.if.LIST.contains.a. |
| 2480 | 73 69 6e 67 6c 65 0a 69 74 65 6d 2c 20 69 74 20 69 73 20 72 65 74 75 72 6e 65 64 20 77 69 74 68 | single.item,.it.is.returned.with |
| 24a0 | 6f 75 74 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 49 66 20 4c 49 53 54 20 69 73 | out.evaluating.FORM...If.LIST.is |
| 24c0 | 20 65 6d 70 74 79 2c 0a 46 4f 52 4d 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 77 69 74 68 20 60 | .empty,.FORM.is.evaluated.with.` |
| 24e0 | 69 74 27 20 61 6e 64 20 60 61 63 63 27 20 62 6f 75 6e 64 20 74 6f 20 6e 69 6c 2e 0a 54 68 69 73 | it'.and.`acc'.bound.to.nil..This |
| 2500 | 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f | .is.the.anaphoric.counterpart.to |
| 2520 | 20 60 2d 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 | .`-reduce'...(fn.FORM.LIST)..(de |
| 2540 | 66 61 6c 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 | falias.'--reduce.'(macro...#[514 |
| 2560 | 20 22 5c 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 | ."\300\301!\302..DC\303.\304..\3 |
| 2580 | 30 35 06 07 44 5c 33 30 36 06 08 44 46 5c 33 30 32 5c 33 30 37 5c 33 31 30 06 5c 6e 46 46 45 5c | 05..D\306..DF\302\307\310.\nFFE\ |
| 25a0 | 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 2d 76 61 6c 75 65 22 20 6c | 207".[make-symbol."list-value".l |
| 25c0 | 65 74 20 69 66 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 63 61 72 20 63 64 72 20 28 28 61 63 | et.if.--reduce-from.car.cdr.((ac |
| 25e0 | 63 20 6e 69 6c 29 20 28 69 74 20 6e 69 6c 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 20 69 74 29 | c.nil).(it.nil)).(ignore.acc.it) |
| 2600 | 5d 20 31 32 20 28 23 24 20 2e 20 39 31 36 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 | ].12.(#$...9169)])).(put.'--redu |
| 2620 | 63 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d | ce.'edebug-form-spec.'(form.form |
| 2640 | 29 29 0a 23 40 34 32 36 20 52 65 64 75 63 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 | )).#@426.Reduce.the.function.FN. |
| 2660 | 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f | across.LIST..Return.the.result.o |
| 2680 | 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 74 77 6f 20 65 | f.applying.FN.to.the.first.two.e |
| 26a0 | 6c 65 6d 65 6e 74 73 20 6f 66 0a 4c 49 53 54 2c 20 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 | lements.of.LIST,.then.applying.F |
| 26c0 | 4e 20 74 6f 20 74 68 61 74 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 74 68 69 72 64 20 65 | N.to.that.result.and.the.third.e |
| 26e0 | 6c 65 6d 65 6e 74 2c 20 65 74 63 2e 0a 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 61 20 | lement,.etc..If.LIST.contains.a. |
| 2700 | 73 69 6e 67 6c 65 20 65 6c 65 6d 65 6e 74 2c 20 72 65 74 75 72 6e 20 69 74 20 77 69 74 68 6f 75 | single.element,.return.it.withou |
| 2720 | 74 20 63 61 6c 6c 69 6e 67 20 46 4e 2e 0a 49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 | t.calling.FN..If.LIST.is.empty,. |
| 2740 | 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 4e 20 | return.the.result.of.calling.FN. |
| 2760 | 77 69 74 68 20 6e 6f 0a 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f | with.no.arguments...This.functio |
| 2780 | 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d | n's.anaphoric.counterpart.is.`-- |
| 27a0 | 72 65 64 75 63 65 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 | reduce'...For.other.folds,.see.a |
| 27c0 | 6c 73 6f 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 61 6e 64 20 60 2d 72 65 64 75 63 65 2d | lso.`-reduce-from'.and.`-reduce- |
| 27e0 | 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 | r'...(fn.FN.LIST)..(defalias.'-r |
| 2800 | 65 64 75 63 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 5c 66 00 5c 33 30 30 02 02 40 03 | educe.#[514."\211\203\f.\300..@. |
| 2820 | 41 23 5c 32 30 37 01 20 5c 32 30 37 22 20 5b 2d 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20 28 | A#\207..\207".[-reduce-from].6.( |
| 2840 | 23 24 20 2e 20 39 38 30 31 29 5d 29 0a 23 40 32 31 34 20 41 63 63 75 6d 75 6c 61 74 65 20 61 20 | #$...9801)]).#@214.Accumulate.a. |
| 2860 | 76 61 6c 75 65 20 62 79 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61 63 72 6f 73 73 20 | value.by.evaluating.FORM.across. |
| 2880 | 4c 49 53 54 20 69 6e 20 72 65 76 65 72 73 65 2e 0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73 20 6c | LIST.in.reverse..This.macro.is.l |
| 28a0 | 69 6b 65 20 60 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2c 20 65 78 63 65 70 74 20 69 74 20 73 | ike.`--reduce-from',.except.it.s |
| 28c0 | 74 61 72 74 73 20 66 72 6f 6d 20 74 68 65 20 65 6e 64 0a 6f 66 20 4c 49 53 54 2e 0a 54 68 69 73 | tarts.from.the.end.of.LIST..This |
| 28e0 | 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f | .is.the.anaphoric.counterpart.to |
| 2900 | 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 | .`-reduce-r-from'...(fn.FORM.INI |
| 2920 | 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d 66 | T.LIST)..(defalias.'--reduce-r-f |
| 2940 | 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 44 43 | rom.'(macro...#[771."\300\301.DC |
| 2960 | 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 5b 6c | \302.\303\301..EE\304BBB\207".[l |
| 2980 | 65 74 20 61 63 63 20 2d 2d 65 61 63 68 2d 72 20 73 65 74 71 20 28 61 63 63 29 5d 20 31 30 20 28 | et.acc.--each-r.setq.(acc)].10.( |
| 29a0 | 23 24 20 2e 20 31 30 33 32 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72 2d | #$...10323)])).(put.'--reduce-r- |
| 29c0 | 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 66 6f | from.'edebug-form-spec.'(form.fo |
| 29e0 | 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 34 32 20 52 65 64 75 63 65 20 74 68 65 20 66 75 6e 63 74 | rm.form)).#@842.Reduce.the.funct |
| 2a00 | 69 6f 6e 20 46 4e 20 61 63 72 6f 73 73 20 4c 49 53 54 20 69 6e 20 72 65 76 65 72 73 65 2c 20 73 | ion.FN.across.LIST.in.reverse,.s |
| 2a20 | 74 61 72 74 69 6e 67 20 77 69 74 68 20 49 4e 49 54 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 72 65 | tarting.with.INIT..Return.the.re |
| 2a40 | 73 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 6c 61 73 74 20 | sult.of.applying.FN.to.the.last. |
| 2a60 | 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 61 6e 64 0a 49 4e 49 54 2c 20 74 68 65 6e 20 61 | element.of.LIST.and.INIT,.then.a |
| 2a80 | 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 73 65 63 6f 6e 64 2d 74 6f 2d 6c 61 73 74 | pplying.FN.to.the.second-to-last |
| 2aa0 | 20 65 6c 65 6d 65 6e 74 20 61 6e 64 20 74 68 65 0a 70 72 65 76 69 6f 75 73 20 72 65 73 75 6c 74 | .element.and.the.previous.result |
| 2ac0 | 20 6f 66 20 46 4e 2c 20 65 74 63 2e 20 20 54 68 61 74 20 69 73 2c 20 74 68 65 20 66 69 72 73 74 | .of.FN,.etc...That.is,.the.first |
| 2ae0 | 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 46 4e 20 69 73 0a 74 68 65 20 63 75 72 72 65 6e 74 20 65 | .argument.of.FN.is.the.current.e |
| 2b00 | 6c 65 6d 65 6e 74 2c 20 61 6e 64 20 69 74 73 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 | lement,.and.its.second.argument. |
| 2b20 | 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 64 0a 76 61 6c 75 65 2e 20 20 49 66 20 4c 49 53 54 20 | the.accumulated.value...If.LIST. |
| 2b40 | 69 73 20 65 6d 70 74 79 2c 20 72 65 74 75 72 6e 20 49 4e 49 54 20 77 69 74 68 6f 75 74 20 63 61 | is.empty,.return.INIT.without.ca |
| 2b60 | 6c 6c 69 6e 67 20 46 4e 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6c 69 6b 65 | lling.FN...This.function.is.like |
| 2b80 | 20 60 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 62 75 74 20 74 68 65 20 6f 70 65 72 61 74 69 6f | .`-reduce-from'.but.the.operatio |
| 2ba0 | 6e 20 61 73 73 6f 63 69 61 74 65 73 0a 66 72 6f 6d 20 74 68 65 20 72 69 67 68 74 20 72 61 74 68 | n.associates.from.the.right.rath |
| 2bc0 | 65 72 20 74 68 61 6e 20 6c 65 66 74 2e 20 20 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 2c 20 69 | er.than.left...In.other.words,.i |
| 2be0 | 74 20 73 74 61 72 74 73 20 66 72 6f 6d 0a 74 68 65 20 65 6e 64 20 6f 66 20 4c 49 53 54 20 61 6e | t.starts.from.the.end.of.LIST.an |
| 2c00 | 64 20 66 6c 69 70 73 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 46 4e 2e 20 20 43 6f | d.flips.the.arguments.to.FN...Co |
| 2c20 | 6e 63 65 70 74 75 61 6c 6c 79 2c 20 69 74 0a 69 73 20 6c 69 6b 65 20 72 65 70 6c 61 63 69 6e 67 | nceptually,.it.is.like.replacing |
| 2c40 | 20 74 68 65 20 63 6f 6e 73 65 73 20 69 6e 20 4c 49 53 54 20 77 69 74 68 20 61 70 70 6c 69 63 61 | .the.conses.in.LIST.with.applica |
| 2c60 | 74 69 6f 6e 73 20 6f 66 20 46 4e 2c 20 61 6e 64 0a 69 74 73 20 6c 61 73 74 20 6c 69 6e 6b 20 77 | tions.of.FN,.and.its.last.link.w |
| 2c80 | 69 74 68 20 49 4e 49 54 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6e 67 20 74 68 65 20 72 65 73 | ith.INIT,.and.evaluating.the.res |
| 2ca0 | 75 6c 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f | ulting.expression...This.functio |
| 2cc0 | 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d | n's.anaphoric.counterpart.is.`-- |
| 2ce0 | 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 | reduce-r-from'...For.other.folds |
| 2d00 | 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 65 2d 72 27 20 61 6e 64 20 60 2d 72 65 64 | ,.see.also.`-reduce-r'.and.`-red |
| 2d20 | 75 63 65 27 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | uce'...(fn.FN.INIT.LIST)..(defal |
| 2d40 | 69 61 73 20 27 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 5c 33 30 30 | ias.'-reduce-r-from.#[771.".\300 |
| 2d60 | 02 21 5c 32 31 31 47 5c 33 30 31 5c 32 31 31 02 5c 33 30 32 56 5c 32 30 33 25 00 02 53 5c 32 36 | .!\211G\301\211.\302V\203%..S\26 |
| 2d80 | 32 03 02 5c 32 36 32 01 03 03 48 5c 32 36 32 02 06 07 02 06 06 5c 22 5c 32 36 32 05 5c 32 30 32 | 2..\262...H\262......\"\262.\202 |
| 2da0 | 08 00 5c 32 36 36 04 5c 32 31 31 5c 32 30 37 22 20 5b 76 63 6f 6e 63 61 74 20 6e 69 6c 20 30 5d | ..\266.\211\207".[vconcat.nil.0] |
| 2dc0 | 20 31 31 20 28 23 24 20 2e 20 31 30 37 33 36 29 5d 29 0a 23 40 32 30 35 20 41 63 63 75 6d 75 6c | .11.(#$...10736)]).#@205.Accumul |
| 2de0 | 61 74 65 20 61 20 76 61 6c 75 65 20 62 79 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 61 | ate.a.value.by.evaluating.FORM.a |
| 2e00 | 63 72 6f 73 73 20 4c 49 53 54 20 69 6e 20 72 65 76 65 72 73 65 20 6f 72 64 65 72 2e 0a 54 68 69 | cross.LIST.in.reverse.order..Thi |
| 2e20 | 73 20 6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60 2d 2d 72 65 64 75 63 65 27 2c 20 65 78 63 65 | s.macro.is.like.`--reduce',.exce |
| 2e40 | 70 74 20 69 74 20 73 74 61 72 74 73 20 66 72 6f 6d 20 74 68 65 20 65 6e 64 20 6f 66 0a 4c 49 53 | pt.it.starts.from.the.end.of.LIS |
| 2e60 | 54 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 | T..This.is.the.anaphoric.counter |
| 2e80 | 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 65 2d 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c | part.to.`-reduce-r'...(fn.FORM.L |
| 2ea0 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 65 2d 72 20 27 28 6d 61 | IST)..(defalias.'--reduce-r.'(ma |
| 2ec0 | 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 03 44 45 5c 32 30 37 22 20 5b | cro...#[514."\300.\301.DE\207".[ |
| 2ee0 | 2d 2d 72 65 64 75 63 65 20 72 65 76 65 72 73 65 5d 20 36 20 28 23 24 20 2e 20 31 31 37 33 37 29 | --reduce.reverse].6.(#$...11737) |
| 2f00 | 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 65 2d 72 20 27 65 64 65 62 75 67 2d 66 6f 72 | ])).(put.'--reduce-r.'edebug-for |
| 2f20 | 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 38 37 20 52 65 64 75 63 | m-spec.'(form.form)).#@887.Reduc |
| 2f40 | 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 61 63 72 6f 73 73 20 4c 49 53 54 20 69 6e | e.the.function.FN.across.LIST.in |
| 2f60 | 20 72 65 76 65 72 73 65 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 | .reverse..Return.the.result.of.a |
| 2f80 | 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f 20 74 68 65 20 6c 61 73 74 20 74 77 6f 20 65 6c 65 6d 65 | pplying.FN.to.the.last.two.eleme |
| 2fa0 | 6e 74 73 20 6f 66 0a 4c 49 53 54 2c 20 74 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 4e 20 74 6f | nts.of.LIST,.then.applying.FN.to |
| 2fc0 | 20 74 68 65 20 74 68 69 72 64 2d 74 6f 2d 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 61 6e 64 20 74 | .the.third-to-last.element.and.t |
| 2fe0 | 68 65 0a 70 72 65 76 69 6f 75 73 20 72 65 73 75 6c 74 20 6f 66 20 46 4e 2c 20 65 74 63 2e 20 20 | he.previous.result.of.FN,.etc... |
| 3000 | 54 68 61 74 20 69 73 2c 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 46 | That.is,.the.first.argument.of.F |
| 3020 | 4e 20 69 73 0a 74 68 65 20 63 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 2c 20 61 6e 64 20 69 74 | N.is.the.current.element,.and.it |
| 3040 | 73 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 65 | s.second.argument.the.accumulate |
| 3060 | 64 0a 76 61 6c 75 65 2e 20 20 49 66 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 69 6e | d.value...If.LIST.contains.a.sin |
| 3080 | 67 6c 65 20 65 6c 65 6d 65 6e 74 2c 20 72 65 74 75 72 6e 20 69 74 20 77 69 74 68 6f 75 74 0a 63 | gle.element,.return.it.without.c |
| 30a0 | 61 6c 6c 69 6e 67 20 46 4e 2e 20 20 49 66 20 4c 49 53 54 20 69 73 20 65 6d 70 74 79 2c 20 72 65 | alling.FN...If.LIST.is.empty,.re |
| 30c0 | 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 4e 0a 77 69 | turn.the.result.of.calling.FN.wi |
| 30e0 | 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 | th.no.arguments...This.function. |
| 3100 | 69 73 20 6c 69 6b 65 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 | is.like.`-reduce'.but.the.operat |
| 3120 | 69 6f 6e 20 61 73 73 6f 63 69 61 74 65 73 20 66 72 6f 6d 0a 74 68 65 20 72 69 67 68 74 20 72 61 | ion.associates.from.the.right.ra |
| 3140 | 74 68 65 72 20 74 68 61 6e 20 6c 65 66 74 2e 20 20 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 2c | ther.than.left...In.other.words, |
| 3160 | 20 69 74 20 73 74 61 72 74 73 20 66 72 6f 6d 20 74 68 65 0a 65 6e 64 20 6f 66 20 4c 49 53 54 20 | .it.starts.from.the.end.of.LIST. |
| 3180 | 61 6e 64 20 66 6c 69 70 73 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 46 4e 2e 20 20 | and.flips.the.arguments.to.FN... |
| 31a0 | 43 6f 6e 63 65 70 74 75 61 6c 6c 79 2c 20 69 74 20 69 73 0a 6c 69 6b 65 20 72 65 70 6c 61 63 69 | Conceptually,.it.is.like.replaci |
| 31c0 | 6e 67 20 74 68 65 20 63 6f 6e 73 65 73 20 69 6e 20 4c 49 53 54 20 77 69 74 68 20 61 70 70 6c 69 | ng.the.conses.in.LIST.with.appli |
| 31e0 | 63 61 74 69 6f 6e 73 20 6f 66 20 46 4e 2c 0a 69 67 6e 6f 72 69 6e 67 20 69 74 73 20 6c 61 73 74 | cations.of.FN,.ignoring.its.last |
| 3200 | 20 6c 69 6e 6b 2c 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 | .link,.and.evaluating.the.result |
| 3220 | 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 | ing.expression...This.function's |
| 3240 | 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 | .anaphoric.counterpart.is.`--red |
| 3260 | 75 63 65 2d 72 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c | uce-r'...For.other.folds,.see.al |
| 3280 | 73 6f 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 20 61 6e 64 20 60 2d 72 65 64 75 63 65 | so.`-reduce-r-from'.and.`-reduce |
| 32a0 | 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 72 65 | '...(fn.FN.LIST)..(defalias.'-re |
| 32c0 | 64 75 63 65 2d 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 41 00 5c 33 30 30 01 21 5c 32 | duce-r.#[514."\211\203A.\300.!\2 |
| 32e0 | 31 31 5c 32 30 33 38 00 5c 32 31 31 40 01 41 5c 33 30 31 5c 33 30 32 5c 32 31 31 03 5c 32 30 33 | 11\2038.\211@.A\301\302\211.\203 |
| 3300 | 30 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 | 0..\211A\262.\242\262..\262..T\2 |
| 3320 | 36 32 03 06 07 02 06 06 5c 22 5c 32 36 32 05 5c 32 30 32 12 00 5c 32 36 36 04 5c 32 31 31 5c 32 | 62......\"\262.\202..\266.\211\2 |
| 3340 | 36 32 01 5c 32 30 32 40 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.\202@.\302\211...\"\266\202\2 |
| 3360 | 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 31 20 28 23 24 | 07..\207".[reverse.0.nil].11.(#$ |
| 3380 | 20 2e 20 31 32 30 39 31 29 5d 29 0a 23 40 32 37 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 | ...12091)]).#@270.Return.a.list. |
| 33a0 | 6f 66 20 46 4f 52 4d 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 64 75 63 74 69 6f 6e | of.FORM's.intermediate.reduction |
| 33c0 | 73 20 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f | s.across.LIST..That.is,.a.list.o |
| 33e0 | 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 |
| 3400 | 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d | .accumulator.when.`--reduce-from |
| 3420 | 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 | '.(which.see).is.called.with.the |
| 3440 | 20 73 61 6d 65 0a 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 | .same.arguments..This.is.the.ana |
| 3460 | 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 74 69 6f | phoric.counterpart.to.`-reductio |
| 3480 | 6e 73 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a | ns-from'...(fn.FORM.INIT.LIST).. |
| 34a0 | 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 20 27 28 6d | (defalias.'--reductions-from.'(m |
| 34c0 | 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 5c 33 30 33 5c 33 | acro...#[771."\300\301\302\303\3 |
| 34e0 | 30 34 5c 33 30 35 06 08 46 5c 33 30 36 42 42 5c 33 30 37 05 44 04 46 44 5c 32 30 37 22 20 5b 6e | 04\305..F\306BB\307.D.FD\207".[n |
| 3500 | 72 65 76 65 72 73 65 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 63 6f 6e 73 20 6c 65 74 20 28 | reverse.--reduce-from.cons.let.( |
| 3520 | 28 61 63 63 20 28 63 61 72 20 61 63 63 29 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 29 20 28 61 | (acc.(car.acc))).(ignore.acc).(a |
| 3540 | 63 63 29 20 6c 69 73 74 5d 20 31 30 20 28 23 24 20 2e 20 31 33 32 30 32 29 5d 29 29 0a 28 70 75 | cc).list].10.(#$...13202)])).(pu |
| 3560 | 74 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 | t.'--reductions-from.'edebug-for |
| 3580 | 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 33 33 33 20 | m-spec.'(form.form.form)).#@333. |
| 35a0 | 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4e 27 73 20 69 6e 74 65 72 6d 65 64 69 61 | Return.a.list.of.FN's.intermedia |
| 35c0 | 74 65 20 72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 61 74 20 | te.reductions.across.LIST..That. |
| 35e0 | 69 73 2c 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 | is,.a.list.of.the.intermediate.v |
| 3600 | 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d | alues.of.the.accumulator.when.`- |
| 3620 | 72 65 64 75 63 65 2d 66 72 6f 6d 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20 63 61 6c 6c | reduce-from'.(which.see).is.call |
| 3640 | 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 0a 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 54 68 69 | ed.with.the.same.arguments...Thi |
| 3660 | 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 | s.function's.anaphoric.counterpa |
| 3680 | 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 27 2e 0a 0a 46 6f 72 20 | rt.is.`--reductions-from'...For. |
| 36a0 | 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 63 74 69 6f | other.folds,.see.also.`-reductio |
| 36c0 | 6e 73 27 20 61 6e 64 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a 28 66 6e 20 46 4e | ns'.and.`-reductions-r'...(fn.FN |
| 36e0 | 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 |
| 3700 | 6f 6e 73 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 43 01 5c 33 30 30 5c 33 30 31 5c 32 31 31 03 | ons-from.#[771.".C.\300\301\211. |
| 3720 | 5c 32 30 33 29 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 | \203)..\211A\262.\242\262..\262. |
| 3740 | 02 54 5c 32 36 32 03 04 40 06 08 01 04 5c 22 5c 32 36 32 01 05 42 5c 32 36 32 05 5c 32 30 32 06 | .T\262..@....\"\262..B\262.\202. |
| 3760 | 00 5c 32 36 36 04 5c 32 31 31 5c 32 36 32 01 5c 32 33 37 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d | .\266.\211\262.\237\207".[0.nil] |
| 3780 | 20 31 32 20 28 23 24 20 2e 20 31 33 37 32 38 29 5d 29 0a 23 40 32 35 35 20 52 65 74 75 72 6e 20 | .12.(#$...13728)]).#@255.Return. |
| 37a0 | 61 20 6c 69 73 74 20 6f 66 20 46 4f 52 4d 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 | a.list.of.FORM's.intermediate.re |
| 37c0 | 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 | ductions.across.LIST..That.is,.a |
| 37e0 | 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 6c 75 65 73 | .list.of.the.intermediate.values |
| 3800 | 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 2d 72 65 64 75 | .of.the.accumulator.when.`--redu |
| 3820 | 63 65 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 | ce'.(which.see).is.called.with.t |
| 3840 | 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 | he.same.arguments..This.is.the.a |
| 3860 | 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 74 | naphoric.counterpart.to.`-reduct |
| 3880 | 69 6f 6e 73 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 | ions'...(fn.FORM.LIST)..(defalia |
| 38a0 | 73 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 | s.'--reductions.'(macro...#[514. |
| 38c0 | 22 5c 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 | "\300\301!\302..DC\303.\304..\30 |
| 38e0 | 35 06 07 44 5c 33 30 36 06 08 44 46 5c 33 30 32 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 0b 44 46 | 5..D\306..DF\302\307\310\311..DF |
| 3900 | 46 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 2d 76 61 6c 75 65 | FE\207".[make-symbol."list-value |
| 3920 | 22 20 6c 65 74 20 69 66 20 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 20 63 61 72 20 63 | ".let.if.--reductions-from.car.c |
| 3940 | 64 72 20 28 61 63 63 20 69 74 29 20 28 69 67 6e 6f 72 65 20 61 63 63 20 69 74 29 20 6c 69 73 74 | dr.(acc.it).(ignore.acc.it).list |
| 3960 | 5d 20 31 33 20 28 23 24 20 2e 20 31 34 32 33 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 | ].13.(#$...14233)])).(put.'--red |
| 3980 | 75 63 74 69 6f 6e 73 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d | uctions.'edebug-form-spec.'(form |
| 39a0 | 20 66 6f 72 6d 29 29 0a 23 40 33 31 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 | .form)).#@318.Return.a.list.of.F |
| 39c0 | 4e 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f | N's.intermediate.reductions.acro |
| 39e0 | 73 73 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 | ss.LIST..That.is,.a.list.of.the. |
| 3a00 | 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d | intermediate.values.of.the.accum |
| 3a20 | 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 72 65 64 75 63 65 27 20 28 77 68 69 63 68 20 73 65 65 | ulator.when.`-reduce'.(which.see |
| 3a40 | 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d 65 | ).is.called.with.the.same.argume |
| 3a60 | 6e 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 | nts...This.function's.anaphoric. |
| 3a80 | 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 27 2e 0a 0a | counterpart.is.`--reductions'... |
| 3aa0 | 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 65 64 75 | For.other.folds,.see.also.`-redu |
| 3ac0 | 63 74 69 6f 6e 73 27 20 61 6e 64 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a 28 66 | ctions'.and.`-reductions-r'...(f |
| 3ae0 | 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 64 75 63 74 69 6f | n.FN.LIST)..(defalias.'-reductio |
| 3b00 | 6e 73 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 36 00 5c 32 31 31 40 43 01 41 5c 33 30 30 | ns.#[514."\211\2036.\211@C.A\300 |
| 3b20 | 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 2f 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 | \301\211.\203/..\211A\262.\242\2 |
| 3b40 | 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 04 40 06 07 01 04 5c 22 5c 32 36 32 01 05 42 5c | 62..\262..T\262..@....\"\262..B\ |
| 3b60 | 32 36 32 05 5c 32 30 32 5c 66 00 5c 32 36 36 04 5c 32 31 31 5c 32 36 32 01 5c 32 33 37 5c 32 30 | 262.\202\f.\266.\211\262.\237\20 |
| 3b80 | 37 01 20 43 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 31 34 37 36 36 | 7..C\207".[0.nil].11.(#$...14766 |
| 3ba0 | 29 5d 29 0a 23 40 32 38 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4f 52 4d 27 | )]).#@283.Return.a.list.of.FORM' |
| 3bc0 | 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 | s.intermediate.reductions.across |
| 3be0 | 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 | .reversed.LIST..That.is,.a.list. |
| 3c00 | 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 | of.the.intermediate.values.of.th |
| 3c20 | 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 2d 72 65 64 75 63 65 2d 72 2d 66 | e.accumulator.when.`--reduce-r-f |
| 3c40 | 72 6f 6d 27 20 28 77 68 69 63 68 20 73 65 65 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 | rom'.(which.see).is.called.with. |
| 3c60 | 74 68 65 20 73 61 6d 65 0a 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 | the.same.arguments..This.is.the. |
| 3c80 | 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 | anaphoric.counterpart.to.`-reduc |
| 3ca0 | 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 49 4e 49 54 20 4c 49 | tions-r-from'...(fn.FORM.INIT.LI |
| 3cc0 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 | ST)..(defalias.'--reductions-r-f |
| 3ce0 | 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 5c 33 30 | rom.'(macro...#[771."\300\301\30 |
| 3d00 | 32 5c 33 30 33 5c 33 30 34 06 07 46 5c 33 30 35 42 42 5c 33 30 36 04 44 03 46 5c 32 30 37 22 20 | 2\303\304..F\305BB\306.D.F\207". |
| 3d20 | 5b 2d 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 63 6f 6e 73 20 6c 65 74 20 28 28 61 63 63 20 | [--reduce-r-from.cons.let.((acc. |
| 3d40 | 28 63 61 72 20 61 63 63 29 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 29 20 28 61 63 63 29 20 6c | (car.acc))).(ignore.acc).(acc).l |
| 3d60 | 69 73 74 5d 20 39 20 28 23 24 20 2e 20 31 35 32 37 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 | ist].9.(#$...15274)])).(put.'--r |
| 3d80 | 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 | eductions-r-from.'edebug-form-sp |
| 3da0 | 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 34 36 20 52 65 74 75 | ec.'(form.form.form)).#@346.Retu |
| 3dc0 | 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4e 27 73 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 72 | rn.a.list.of.FN's.intermediate.r |
| 3de0 | 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 72 65 76 65 72 73 65 64 20 4c 49 53 54 2e 0a | eductions.across.reversed.LIST.. |
| 3e00 | 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 | That.is,.a.list.of.the.intermedi |
| 3e20 | 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 6c 61 74 6f 72 0a 77 68 | ate.values.of.the.accumulator.wh |
| 3e40 | 65 6e 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 20 28 77 68 69 63 68 20 73 65 65 29 20 | en.`-reduce-r-from'.(which.see). |
| 3e60 | 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 0a 61 72 67 75 6d 65 6e 74 | is.called.with.the.same.argument |
| 3e80 | 73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f | s...This.function's.anaphoric.co |
| 3ea0 | 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f | unterpart.is.`--reductions-r-fro |
| 3ec0 | 6d 27 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 | m'...For.other.folds,.see.also.` |
| 3ee0 | 2d 72 65 64 75 63 74 69 6f 6e 73 27 20 61 6e 64 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 | -reductions'.and.`-reductions-r' |
| 3f00 | 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | ...(fn.FN.INIT.LIST)..(defalias. |
| 3f20 | 27 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 01 43 5c 33 30 | '-reductions-r-from.#[771.".C\30 |
| 3f40 | 30 02 21 5c 32 31 31 47 5c 33 30 31 5c 32 31 31 02 5c 33 30 32 56 5c 32 30 33 2b 00 02 53 5c 32 | 0.!\211G\301\211.\302V\203+..S\2 |
| 3f60 | 36 32 03 02 5c 32 36 32 01 03 03 48 5c 32 36 32 02 04 40 06 08 03 02 5c 22 5c 32 36 32 01 05 42 | 62..\262...H\262..@....\"\262..B |
| 3f80 | 5c 32 36 32 05 5c 32 30 32 09 00 5c 32 36 36 04 5c 32 31 31 5c 32 30 37 22 20 5b 76 63 6f 6e 63 | \262.\202..\266.\211\207".[vconc |
| 3fa0 | 61 74 20 6e 69 6c 20 30 5d 20 31 32 20 28 23 24 20 2e 20 31 35 38 30 34 29 5d 29 0a 23 40 32 36 | at.nil.0].12.(#$...15804)]).#@26 |
| 3fc0 | 39 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4f 52 4d 27 73 20 69 6e 74 65 72 6d | 9.Return.a.list.of.FORM's.interm |
| 3fe0 | 65 64 69 61 74 65 20 72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 72 65 76 65 72 73 65 | ediate.reductions.across.reverse |
| 4000 | 64 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 | d.LIST..That.is,.a.list.of.the.i |
| 4020 | 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 | ntermediate.values.of.the.accumu |
| 4040 | 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 2d 72 65 64 75 63 65 2d 72 65 27 20 28 77 68 69 63 68 20 | lator.when.`--reduce-re'.(which. |
| 4060 | 73 65 65 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 | see).is.called.with.the.same.arg |
| 4080 | 75 6d 65 6e 74 73 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f | uments..This.is.the.anaphoric.co |
| 40a0 | 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 2e 0a 0a 28 | unterpart.to.`-reductions-r'...( |
| 40c0 | 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 64 75 | fn.FORM.LIST)..(defalias.'--redu |
| 40e0 | 63 74 69 6f 6e 73 2d 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 | ctions-r.'(macro...#[514."\300\3 |
| 4100 | 30 31 21 5c 33 30 32 01 5c 33 30 33 04 44 44 43 5c 33 30 34 03 5c 33 30 35 5c 33 30 36 5c 33 30 | 01!\302.\303.DDC\304.\305\306\30 |
| 4120 | 32 5c 33 30 37 5c 33 31 30 06 0b 46 5c 33 31 31 42 42 5c 33 31 32 5c 33 31 33 06 08 44 44 5c 33 | 2\307\310..F\311BB\312\313..DD\3 |
| 4140 | 31 34 06 08 44 46 5c 33 30 32 5c 33 31 35 5c 33 31 36 5c 33 31 32 06 0b 44 46 46 45 5c 32 30 37 | 14..DF\302\315\316\312..DFFE\207 |
| 4160 | 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 2d 76 61 6c 75 65 22 20 6c 65 74 20 | ".[make-symbol."list-value".let. |
| 4180 | 72 65 76 65 72 73 65 20 69 66 20 2d 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 63 6f 6e 73 20 28 28 | reverse.if.--reduce-from.cons.(( |
| 41a0 | 61 63 63 20 28 63 61 72 20 61 63 63 29 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 29 20 28 61 63 | acc.(car.acc))).(ignore.acc).(ac |
| 41c0 | 63 29 20 6c 69 73 74 20 63 61 72 20 63 64 72 20 28 28 61 63 63 20 6e 69 6c 29 20 28 69 74 20 6e | c).list.car.cdr.((acc.nil).(it.n |
| 41e0 | 69 6c 29 29 20 28 69 67 6e 6f 72 65 20 61 63 63 20 69 74 29 5d 20 31 33 20 28 23 24 20 2e 20 31 | il)).(ignore.acc.it)].13.(#$...1 |
| 4200 | 36 33 32 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 20 27 65 | 6322)])).(put.'--reductions-r.'e |
| 4220 | 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 6c 69 73 74 29 29 0a 23 40 | debug-form-spec.'(form.list)).#@ |
| 4240 | 33 33 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 46 4e 27 73 20 69 6e 74 65 72 6d | 336.Return.a.list.of.FN's.interm |
| 4260 | 65 64 69 61 74 65 20 72 65 64 75 63 74 69 6f 6e 73 20 61 63 72 6f 73 73 20 72 65 76 65 72 73 65 | ediate.reductions.across.reverse |
| 4280 | 64 20 4c 49 53 54 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 | d.LIST..That.is,.a.list.of.the.i |
| 42a0 | 6e 74 65 72 6d 65 64 69 61 74 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 61 63 63 75 6d 75 | ntermediate.values.of.the.accumu |
| 42c0 | 6c 61 74 6f 72 0a 77 68 65 6e 20 60 2d 72 65 64 75 63 65 2d 72 27 20 28 77 68 69 63 68 20 73 65 | lator.when.`-reduce-r'.(which.se |
| 42e0 | 65 29 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 61 72 67 75 6d | e).is.called.with.the.same.argum |
| 4300 | 65 6e 74 73 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 | ents...This.function's.anaphoric |
| 4320 | 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 27 | .counterpart.is.`--reductions-r' |
| 4340 | 2e 0a 0a 46 6f 72 20 6f 74 68 65 72 20 66 6f 6c 64 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 72 | ...For.other.folds,.see.also.`-r |
| 4360 | 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 27 20 61 6e 64 0a 60 2d 72 65 64 75 63 74 69 6f | eductions-r-from'.and.`-reductio |
| 4380 | 6e 73 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 | ns'...(fn.FN.LIST)..(defalias.'- |
| 43a0 | 72 65 64 75 63 74 69 6f 6e 73 2d 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 48 00 5c 33 | reductions-r.#[514."\211\203H.\3 |
| 43c0 | 30 30 01 21 5c 32 31 31 5c 32 30 33 3e 00 5c 32 31 31 40 43 01 41 5c 33 30 31 5c 33 30 32 5c 32 | 00.!\211\203>.\211@C.A\301\302\2 |
| 43e0 | 31 31 03 5c 32 30 33 36 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 | 11.\2036..\211A\262.\242\262..\2 |
| 4400 | 36 32 01 02 54 5c 32 36 32 03 04 40 06 08 03 02 5c 22 5c 32 36 32 01 05 42 5c 32 36 32 05 5c 32 | 62..T\262..@....\"\262..B\262.\2 |
| 4420 | 30 32 13 00 5c 32 36 36 04 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 47 00 5c 33 30 32 5c 32 31 31 | 02..\266.\211\262.\202G.\302\211 |
| 4440 | 04 01 03 5c 22 43 5c 32 36 36 5c 32 30 32 5c 32 30 37 01 20 43 5c 32 30 37 22 20 5b 72 65 76 65 | ...\"C\266\202\207..C\207".[reve |
| 4460 | 72 73 65 20 30 20 6e 69 6c 5d 20 31 32 20 28 23 24 20 2e 20 31 36 39 36 34 29 5d 29 0a 23 40 32 | rse.0.nil].12.(#$...16964)]).#@2 |
| 4480 | 39 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 65 20 69 74 65 6d | 96.Return.a.new.list.of.the.item |
| 44a0 | 73 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 | s.in.LIST.for.which.FORM.evals.t |
| 44c0 | 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 | o.non-nil..Each.element.of.LIST. |
| 44e0 | 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 | in.turn.is.bound.to.`it'.and.its |
| 4500 | 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 | .index.within.LIST.to.`it-index' |
| 4520 | 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 | .before.evaluating.FORM..This.is |
| 4540 | 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d | .the.anaphoric.counterpart.to.`- |
| 4560 | 66 69 6c 74 65 72 27 2e 0a 46 6f 72 20 74 68 65 20 6f 70 70 6f 73 69 74 65 20 6f 70 65 72 61 74 | filter'..For.the.opposite.operat |
| 4580 | 69 6f 6e 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 46 | ion,.see.also.`--remove'...(fn.F |
| 45a0 | 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 72 20 27 | ORM.LIST)..(defalias.'--filter.' |
| 45c0 | 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c | (macro...#[514."\300\301!\302.C\ |
| 45e0 | 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 46 5c 32 | 303.\304..\305\306..EEE\307.DF\2 |
| 4600 | 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 2d | 07".[make-symbol."result".let.-- |
| 4620 | 65 61 63 68 20 77 68 65 6e 20 70 75 73 68 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 32 20 28 | each.when.push.it.nreverse].12.( |
| 4640 | 23 24 20 2e 20 31 37 35 33 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6c 74 65 72 20 27 65 | #$...17539)])).(put.'--filter.'e |
| 4660 | 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)).#@ |
| 4680 | 32 31 38 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 74 65 | 218.Return.a.new.list.of.the.ite |
| 46a0 | 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 74 75 72 6e | ms.in.LIST.for.which.PRED.return |
| 46c0 | 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 73 65 6c 65 63 74 27 2e 0a 0a 54 | s.non-nil...Alias:.`-select'...T |
| 46e0 | 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 | his.function's.anaphoric.counter |
| 4700 | 70 61 72 74 20 69 73 20 60 2d 2d 66 69 6c 74 65 72 27 2e 0a 0a 46 6f 72 20 73 69 6d 69 6c 61 72 | part.is.`--filter'...For.similar |
| 4720 | 20 6f 70 65 72 61 74 69 6f 6e 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 6b 65 65 70 27 20 61 6e | .operations,.see.also.`-keep'.an |
| 4740 | 64 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 | d.`-remove'...(fn.PRED.LIST)..(d |
| 4760 | 65 66 61 6c 69 61 73 20 27 2d 66 69 6c 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 | efalias.'-filter.#[514."\300.\30 |
| 4780 | 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 27 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c | 1\300\211.\203'..\211A\262.\242\ |
| 47a0 | 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 02 21 5c 32 30 33 05 00 01 05 42 5c 32 | 262..\262..T\262....!\203....B\2 |
| 47c0 | 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c | 62.\202..\266.\211\237\207".[nil |
| 47e0 | 20 30 5d 20 39 20 28 23 24 20 2e 20 31 38 30 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | .0].9.(#$...18052)]).(byte-code. |
| 4800 | 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 5c | "\300\301\302\"\210\300\303\304\ |
| 4820 | 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 65 6c 65 63 74 20 2d 66 69 6c 74 65 72 | "\207".[defalias.-select.-filter |
| 4840 | 20 2d 2d 73 65 6c 65 63 74 20 2d 2d 66 69 6c 74 65 72 5d 20 33 29 0a 23 40 32 39 32 20 52 65 74 | .--select.--filter].3).#@292.Ret |
| 4860 | 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c | urn.a.new.list.of.the.items.in.L |
| 4880 | 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 69 6c 2e | IST.for.which.FORM.evals.to.nil. |
| 48a0 | 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 | .Each.element.of.LIST.in.turn.is |
| 48c0 | 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 0a 77 69 74 | .bound.to.`it'.and.its.index.wit |
| 48e0 | 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65 20 65 76 | hin.LIST.to.`it-index'.before.ev |
| 4900 | 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 | aluating.FORM..This.is.the.anaph |
| 4920 | 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 6d 6f 76 65 27 2e 0a 46 | oric.counterpart.to.`-remove'..F |
| 4940 | 6f 72 20 74 68 65 20 6f 70 70 6f 73 69 74 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 73 65 65 20 61 | or.the.opposite.operation,.see.a |
| 4960 | 6c 73 6f 20 60 2d 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f | lso.`--filter'...(fn.FORM.LIST). |
| 4980 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 | .(defalias.'--remove.'(macro...# |
| 49a0 | 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 44 02 45 5c 32 30 37 22 20 5b 2d 2d 66 69 6c 74 65 | [514."\300\301.D.E\207".[--filte |
| 49c0 | 72 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 31 38 35 32 35 29 5d 29 29 0a 28 70 75 74 20 27 2d | r.not].5.(#$...18525)])).(put.'- |
| 49e0 | 2d 72 65 6d 6f 76 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d | -remove.'edebug-form-spec.'(form |
| 4a00 | 20 66 6f 72 6d 29 29 0a 23 40 32 31 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 | .form)).#@214.Return.a.new.list. |
| 4a20 | 6f 66 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 | of.the.items.in.LIST.for.which.P |
| 4a40 | 52 45 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 | RED.returns.nil...Alias:.`-rejec |
| 4a60 | 74 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 | t'...This.function's.anaphoric.c |
| 4a80 | 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 6d 6f 76 65 27 2e 0a 0a 46 6f 72 20 73 | ounterpart.is.`--remove'...For.s |
| 4aa0 | 69 6d 69 6c 61 72 20 6f 70 65 72 61 74 69 6f 6e 73 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 6b 65 | imilar.operations,.see.also.`-ke |
| 4ac0 | 65 70 27 20 61 6e 64 20 60 2d 66 69 6c 74 65 72 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 | ep'.and.`-filter'...(fn.PRED.LIS |
| 4ae0 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 20 23 5b 35 31 34 20 22 5c 33 | T)..(defalias.'-remove.#[514."\3 |
| 4b00 | 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 27 00 03 5c 32 31 31 41 5c 32 36 32 | 00.\301\300\211.\203'..\211A\262 |
| 4b20 | 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 02 21 5c 32 30 34 05 | .\242\262..\262..T\262....!\204. |
| 4b40 | 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 | ...B\262.\202..\266.\211\237\207 |
| 4b60 | 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 31 38 39 35 38 29 5d 29 0a 28 62 79 74 65 | ".[nil.0].9.(#$...18958)]).(byte |
| 4b80 | 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 |
| 4ba0 | 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.- |
| 4bc0 | 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 34 | remove.--reject.--remove].3).#@4 |
| 4be0 | 34 36 20 52 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 66 72 6f 6d 20 4c 49 | 46.Remove.the.first.item.from.LI |
| 4c00 | 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e | ST.for.which.FORM.evals.to.non-n |
| 4c20 | 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e | il..Each.element.of.LIST.in.turn |
| 4c40 | 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 0a | .is.bound.to.`it'.and.its.index. |
| 4c60 | 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65 | within.LIST.to.`it-index'.before |
| 4c80 | 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 54 68 69 73 20 69 73 20 61 0a 6e 6f 6e | .evaluating.FORM...This.is.a.non |
| 4ca0 | 2d 64 65 73 74 72 75 63 74 69 76 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 62 75 74 20 6f 6e 6c 79 | -destructive.operation,.but.only |
| 4cc0 | 20 74 68 65 20 66 72 6f 6e 74 20 6f 66 20 4c 49 53 54 20 6c 65 61 64 69 6e 67 20 75 70 0a 74 6f | .the.front.of.LIST.leading.up.to |
| 4ce0 | 20 74 68 65 20 72 65 6d 6f 76 65 64 20 69 74 65 6d 20 69 73 20 61 20 63 6f 70 79 3b 20 74 68 65 | .the.removed.item.is.a.copy;.the |
| 4d00 | 20 72 65 73 74 20 69 73 20 4c 49 53 54 27 73 20 6f 72 69 67 69 6e 61 6c 20 74 61 69 6c 2e 0a 49 | .rest.is.LIST's.original.tail..I |
| 4d20 | 66 20 6e 6f 20 69 74 65 6d 20 69 73 20 72 65 6d 6f 76 65 64 2c 20 74 68 65 6e 20 74 68 65 20 72 | f.no.item.is.removed,.then.the.r |
| 4d40 | 65 73 75 6c 74 20 69 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 63 6f 70 79 2e 0a 54 68 69 73 20 69 | esult.is.a.complete.copy..This.i |
| 4d60 | 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 | s.the.anaphoric.counterpart.to.` |
| 4d80 | 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f | -remove-first'...(fn.FORM.LIST). |
| 4da0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 27 28 6d 61 63 | .(defalias.'--remove-first.'(mac |
| 4dc0 | 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 33 | ro...#[514."\300\301!\300\302!\3 |
| 4de0 | 30 33 01 04 44 03 44 5c 33 30 34 03 5c 33 30 35 06 08 44 5c 33 30 36 5c 33 30 37 06 07 44 06 08 | 03..D.D\304.\305..D\306\307..D.. |
| 4e00 | 45 46 5c 33 31 30 04 5c 33 31 31 5c 33 31 32 06 08 44 5c 33 31 33 06 08 44 45 5c 33 31 32 06 08 | EF\310.\311\312..D\313..DE\312.. |
| 4e20 | 44 46 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 66 72 6f 6e 74 22 20 22 74 | DFF\207".[make-symbol."front"."t |
| 4e40 | 61 69 6c 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 70 75 73 68 20 70 | ail".let.--each-while.not.push.p |
| 4e60 | 6f 70 20 69 66 20 6e 63 6f 6e 63 20 6e 72 65 76 65 72 73 65 20 63 64 72 5d 20 31 33 20 28 23 24 | op.if.nconc.nreverse.cdr].13.(#$ |
| 4e80 | 20 2e 20 31 39 34 32 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 | ...19427)])).(put.'--remove-firs |
| 4ea0 | 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 | t.'edebug-form-spec.'(form.form) |
| 4ec0 | 29 0a 23 40 34 32 36 20 52 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 66 72 | ).#@426.Remove.the.first.item.fr |
| 4ee0 | 6f 6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e | om.LIST.for.which.PRED.returns.n |
| 4f00 | 6f 6e 2d 6e 69 6c 2e 0a 54 68 69 73 20 69 73 20 61 20 6e 6f 6e 2d 64 65 73 74 72 75 63 74 69 76 | on-nil..This.is.a.non-destructiv |
| 4f20 | 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 62 75 74 20 6f 6e 6c 79 20 74 68 65 20 66 72 6f 6e 74 20 | e.operation,.but.only.the.front. |
| 4f40 | 6f 66 20 4c 49 53 54 0a 6c 65 61 64 69 6e 67 20 75 70 20 74 6f 20 74 68 65 20 72 65 6d 6f 76 65 | of.LIST.leading.up.to.the.remove |
| 4f60 | 64 20 69 74 65 6d 20 69 73 20 61 20 63 6f 70 79 3b 20 74 68 65 20 72 65 73 74 20 69 73 20 4c 49 | d.item.is.a.copy;.the.rest.is.LI |
| 4f80 | 53 54 27 73 0a 6f 72 69 67 69 6e 61 6c 20 74 61 69 6c 2e 20 20 49 66 20 6e 6f 20 69 74 65 6d 20 | ST's.original.tail...If.no.item. |
| 4fa0 | 69 73 20 72 65 6d 6f 76 65 64 2c 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 | is.removed,.then.the.result.is.a |
| 4fc0 | 0a 63 6f 6d 70 6c 65 74 65 20 63 6f 70 79 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 | .complete.copy...Alias:.`-reject |
| 4fe0 | 2d 66 69 72 73 74 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f | -first'...This.function's.anapho |
| 5000 | 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 | ric.counterpart.is.`--remove-fir |
| 5020 | 73 74 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 2c 20 60 2d 72 | st'...See.also.`-map-first',.`-r |
| 5040 | 65 6d 6f 76 65 2d 69 74 65 6d 27 2c 20 61 6e 64 20 60 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 27 2e | emove-item',.and.`-remove-last'. |
| 5060 | 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 72 65 | ..(fn.PRED.LIST)..(defalias.'-re |
| 5080 | 6d 6f 76 65 2d 66 69 72 73 74 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 01 5c 33 30 31 5c | move-first.#[514."\211\300.\301\ |
| 50a0 | 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 3d 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 | 300\211\211.\203=..\211A\262.\24 |
| 50c0 | 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 3d 00 06 08 02 21 | 2\262..\262..\211\262.\203=....! |
| 50e0 | 5c 32 30 34 3d 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 06 06 5c 32 31 31 41 | \204=..\262..\262..T\262...\211A |
| 5100 | 5c 32 36 32 08 5c 32 34 32 06 06 42 5c 32 36 32 06 5c 32 30 32 07 00 5c 32 36 36 05 01 5c 32 30 | \262.\242..B\262.\202..\266..\20 |
| 5120 | 33 4b 00 5c 32 31 31 5c 32 33 37 02 41 5c 32 34 34 5c 32 30 32 4d 00 5c 32 31 31 5c 32 33 37 5c | 3K.\211\237.A\244\202M.\211\237\ |
| 5140 | 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 31 20 28 23 24 20 2e 20 32 30 31 36 38 29 5d 29 0a 28 | 207".[nil.0].11.(#$...20168)]).( |
| 5160 | 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 |
| 5180 | 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 6a 65 | 0\303\304\"\207".[defalias.-reje |
| 51a0 | 63 74 2d 66 69 72 73 74 20 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 2d 2d 72 65 6a 65 63 74 2d | ct-first.-remove-first.--reject- |
| 51c0 | 66 69 72 73 74 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 5d 20 33 29 0a 23 40 32 37 39 20 52 | first.--remove-first].3).#@279.R |
| 51e0 | 65 6d 6f 76 65 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 66 72 6f 6d 20 4c 49 53 54 20 66 6f | emove.the.last.item.from.LIST.fo |
| 5200 | 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 45 | r.which.FORM.evals.to.non-nil..E |
| 5220 | 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 20 62 | ach.element.of.LIST.in.turn.is.b |
| 5240 | 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 0a 46 | ound.to.`it'.before.evaluating.F |
| 5260 | 4f 52 4d 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 | ORM...The.result.is.a.copy.of.LI |
| 5280 | 53 54 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 77 68 65 74 68 65 72 20 61 6e 0a 65 6c 65 6d | ST.regardless.of.whether.an.elem |
| 52a0 | 65 6e 74 20 69 73 20 72 65 6d 6f 76 65 64 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 | ent.is.removed..This.is.the.anap |
| 52c0 | 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 72 65 6d 6f 76 65 2d 6c 61 | horic.counterpart.to.`-remove-la |
| 52e0 | 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 20 | st'...(fn.FORM.LIST)..(defalias. |
| 5300 | 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 34 20 22 | '--remove-last.'(macro...#[514." |
| 5320 | 5c 33 30 30 5c 33 30 31 03 5c 33 30 32 04 44 45 44 5c 32 30 37 22 20 5b 6e 72 65 76 65 72 73 65 | \300\301.\302.DED\207".[nreverse |
| 5340 | 20 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 37 20 28 23 24 20 2e | .--remove-first.reverse].7.(#$.. |
| 5360 | 20 32 30 39 35 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 27 | .20959)])).(put.'--remove-last.' |
| 5380 | 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)).# |
| 53a0 | 40 32 39 37 20 52 65 6d 6f 76 65 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 20 66 72 6f 6d 20 4c | @297.Remove.the.last.item.from.L |
| 53c0 | 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e | IST.for.which.PRED.returns.non-n |
| 53e0 | 69 6c 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 | il..The.result.is.a.copy.of.LIST |
| 5400 | 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 77 68 65 74 68 65 72 20 61 6e 20 65 6c 65 6d 65 6e | .regardless.of.whether.an.elemen |
| 5420 | 74 20 69 73 0a 72 65 6d 6f 76 65 64 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 6a 65 63 74 2d 6c | t.is.removed...Alias:.`-reject-l |
| 5440 | 61 73 74 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 | ast'...This.function's.anaphoric |
| 5460 | 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 27 2e | .counterpart.is.`--remove-last'. |
| 5480 | 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6d 61 70 2d 6c 61 73 74 27 2c 20 60 2d 72 65 6d 6f 76 65 | ..See.also.`-map-last',.`-remove |
| 54a0 | 2d 69 74 65 6d 27 2c 20 61 6e 64 20 60 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 27 2e 0a 0a 28 66 | -item',.and.`-remove-first'...(f |
| 54c0 | 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 72 65 6d 6f 76 65 | n.PRED.LIST)..(defalias.'-remove |
| 54e0 | 2d 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 33 30 31 01 5c 33 30 32 5c 33 30 31 | -last.#[514."\300.!\301.\302\301 |
| 5500 | 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 3f 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 | \211\211.\203?..\211A\262.\242\2 |
| 5520 | 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 3f 00 06 08 02 21 5c 32 30 | 62..\262..\211\262.\203?....!\20 |
| 5540 | 34 3f 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 06 06 5c 32 31 31 41 5c 32 36 | 4?..\262..\262..T\262...\211A\26 |
| 5560 | 32 08 5c 32 34 32 06 06 42 5c 32 36 32 06 5c 32 30 32 09 00 5c 32 36 36 05 01 5c 32 30 33 4d 00 | 2.\242..B\262.\202..\266..\203M. |
| 5580 | 5c 32 31 31 5c 32 33 37 02 41 5c 32 34 34 5c 32 30 32 4f 00 5c 32 31 31 5c 32 33 37 5c 32 36 36 | \211\237.A\244\202O.\211\237\266 |
| 55a0 | 5c 32 30 32 5c 32 33 37 5c 32 30 37 22 20 5b 72 65 76 65 72 73 65 20 6e 69 6c 20 30 5d 20 31 31 | \202\237\207".[reverse.nil.0].11 |
| 55c0 | 20 28 23 24 20 2e 20 32 31 34 31 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...21413)]).(byte-code."\300 |
| 55e0 | 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 | \301\302\"\210\300\303\304\"\210 |
| 5600 | 5c 33 30 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 | \300\305\306\307#\207".[defalias |
| 5620 | 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 2d 2d 72 65 6a | .-reject-last.-remove-last.--rej |
| 5640 | 65 63 74 2d 6c 61 73 74 20 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 74 20 2d 72 65 6d 6f 76 65 2d 69 | ect-last.--remove-last.-remove-i |
| 5660 | 74 65 6d 20 72 65 6d 6f 76 65 20 22 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 | tem.remove."Return.a.copy.of.LIS |
| 5680 | 54 20 77 69 74 68 20 61 6c 6c 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 49 54 45 4d 20 72 | T.with.all.occurrences.of.ITEM.r |
| 56a0 | 65 6d 6f 76 65 64 2e 5c 6e 54 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 | emoved.\nThe.comparison.is.done. |
| 56c0 | 77 69 74 68 20 60 65 71 75 61 6c 27 2e 5c 6e 5c 6e 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 22 | with.`equal'.\n\n(fn.ITEM.LIST)" |
| 56e0 | 5d 20 34 29 0a 23 40 33 34 32 20 45 76 61 6c 20 46 4f 52 4d 20 66 6f 72 20 65 61 63 68 20 69 74 | ].4).#@342.Eval.FORM.for.each.it |
| 5700 | 65 6d 20 69 6e 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6e 6f 6e 2d 6e 69 | em.in.LIST.and.return.the.non-ni |
| 5720 | 6c 20 72 65 73 75 6c 74 73 2e 0a 4c 69 6b 65 20 60 2d 2d 66 69 6c 74 65 72 27 2c 20 62 75 74 20 | l.results..Like.`--filter',.but. |
| 5740 | 72 65 74 75 72 6e 73 20 74 68 65 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 73 20 6f 66 20 46 | returns.the.non-nil.results.of.F |
| 5760 | 4f 52 4d 20 69 6e 73 74 65 61 64 0a 6f 66 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 | ORM.instead.of.the.corresponding |
| 5780 | 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 20 20 45 61 63 68 20 65 6c 65 6d 65 6e 74 | .elements.of.LIST...Each.element |
| 57a0 | 20 6f 66 20 4c 49 53 54 20 69 6e 0a 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 | .of.LIST.in.turn.is.bound.to.`it |
| 57c0 | 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 20 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 | '.and.its.index.within.LIST.to.` |
| 57e0 | 69 74 2d 69 6e 64 65 78 27 0a 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d | it-index'.before.evaluating.FORM |
| 5800 | 2e 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 | ..This.is.the.anaphoric.counterp |
| 5820 | 61 72 74 20 74 6f 20 60 2d 6b 65 65 70 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f | art.to.`-keep'...(fn.FORM.LIST). |
| 5840 | 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 2e 20 23 5b 35 | .(defalias.'--keep.'(macro...#[5 |
| 5860 | 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 43 5c 33 30 34 | 14."\300\301!\300\302!\303.C\304 |
| 5880 | 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 45 5c 33 30 37 | .\303...DC\305..\306....EEEE\307 |
| 58a0 | 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 6c 74 22 20 22 | .DF\207".[make-symbol."result"." |
| 58c0 | 6d 61 70 70 65 64 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 70 75 73 68 20 6e 72 65 | mapped".let.--each.when.push.nre |
| 58e0 | 76 65 72 73 65 5d 20 31 35 20 28 23 24 20 2e 20 32 32 32 35 31 29 5d 29 29 0a 28 70 75 74 20 27 | verse].15.(#$...22251)])).(put.' |
| 5900 | 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 28 66 6f 72 6d 20 | --keep.'edebug-form-spec.'(form. |
| 5920 | 66 6f 72 6d 29 29 0a 23 40 32 33 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 6f | form)).#@234.Return.a.new.list.o |
| 5940 | 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 70 70 6c 79 69 6e | f.the.non-nil.results.of.applyin |
| 5960 | 67 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 0a 4c 69 6b 65 20 | g.FN.to.each.item.in.LIST..Like. |
| 5980 | 60 2d 66 69 6c 74 65 72 27 2c 20 62 75 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e 6f 6e 2d 6e | `-filter',.but.returns.the.non-n |
| 59a0 | 69 6c 20 72 65 73 75 6c 74 73 20 6f 66 20 46 4e 20 69 6e 73 74 65 61 64 20 6f 66 0a 74 68 65 20 | il.results.of.FN.instead.of.the. |
| 59c0 | 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 0a | corresponding.elements.of.LIST.. |
| 59e0 | 0a 49 74 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d | .Its.anaphoric.counterpart.is.`- |
| 5a00 | 2d 6b 65 65 70 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 | -keep'...(fn.FN.LIST)..(defalias |
| 5a20 | 20 27 2d 6b 65 65 70 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 | .'-keep.#[514."\300.\301\300\211 |
| 5a40 | 03 5c 32 30 33 2a 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 | .\203*..\211A\262.\242\262..\262 |
| 5a60 | 01 02 54 5c 32 36 32 03 06 06 02 21 5c 32 31 31 5c 32 30 33 26 00 5c 32 31 31 06 06 42 5c 32 36 | ..T\262....!\211\203&.\211..B\26 |
| 5a80 | 32 06 5c 32 31 30 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b | 2.\210\202..\266.\211\237\207".[ |
| 5aa0 | 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 32 32 38 32 39 29 5d 29 0a 23 40 36 32 20 52 65 | nil.0].10.(#$...22829)]).#@62.Re |
| 5ac0 | 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 77 69 74 68 20 61 6c 6c 20 6e 69 6c | turn.a.copy.of.LIST.with.all.nil |
| 5ae0 | 20 69 74 65 6d 73 20 72 65 6d 6f 76 65 64 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 | .items.removed...(fn.LIST)..(def |
| 5b00 | 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 01 5c 33 30 31 | alias.'-non-nil.#[257."\300.\301 |
| 5b20 | 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 24 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 | \300\211.\203$..\211A\262.\242\2 |
| 5b40 | 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 5c 32 30 33 05 00 01 05 42 5c 32 36 32 05 5c | 62..\262..T\262..\203....B\262.\ |
| 5b60 | 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 | 202..\266.\211\237\207".[nil.0]. |
| 5b80 | 38 20 28 23 24 20 2e 20 32 33 32 33 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | 8.(#$...23230)]).(byte-code."\30 |
| 5ba0 | 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#\ |
| 5bc0 | 33 30 30 5c 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 | 300\207".[function-put.-non-nil. |
| 5be0 | 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 33 32 | pure.t.side-effect-free].5).#@32 |
| 5c00 | 31 20 45 76 61 6c 20 46 4f 52 4d 20 66 6f 72 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 | 1.Eval.FORM.for.each.item.in.LIS |
| 5c20 | 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 73 75 6c 74 73 | T.and.return.the.list.of.results |
| 5c40 | 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 | ..Each.element.of.LIST.in.turn.i |
| 5c60 | 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 0a 77 69 | s.bound.to.`it'.and.its.index.wi |
| 5c80 | 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65 20 65 | thin.LIST.to.`it-index'.before.e |
| 5ca0 | 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 54 68 69 73 20 69 73 20 6c 69 6b 65 0a 60 2d | valuating.FORM...This.is.like.`- |
| 5cc0 | 2d 6d 61 70 27 2c 20 62 75 74 20 61 64 64 69 74 69 6f 6e 61 6c 6c 79 20 6d 61 6b 65 73 20 60 69 | -map',.but.additionally.makes.`i |
| 5ce0 | 74 2d 69 6e 64 65 78 27 20 61 76 61 69 6c 61 62 6c 65 20 74 6f 20 46 4f 52 4d 2e 0a 0a 54 68 69 | t-index'.available.to.FORM...Thi |
| 5d00 | 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 | s.is.the.anaphoric.counterpart.t |
| 5d20 | 6f 20 60 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 | o.`-map-indexed'...(fn.FORM.LIST |
| 5d40 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 27 28 6d 61 | )..(defalias.'--map-indexed.'(ma |
| 5d60 | 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 | cro...#[514."\300\301!\302.C\303 |
| 5d80 | 04 5c 33 30 34 06 07 06 06 45 45 5c 33 30 35 04 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 | .\304....EE\305.DF\207".[make-sy |
| 5da0 | 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 70 75 73 68 20 6e 72 | mbol."result".let.--each.push.nr |
| 5dc0 | 65 76 65 72 73 65 5d 20 31 30 20 28 23 24 20 2e 20 32 33 35 35 34 29 5d 29 29 0a 28 70 75 74 20 | everse].10.(#$...23554)])).(put. |
| 5de0 | 27 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | '--map-indexed.'edebug-form-spec |
| 5e00 | 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 32 32 20 41 70 70 6c 79 20 46 4e 20 74 6f | .'(form.form)).#@322.Apply.FN.to |
| 5e20 | 20 65 61 63 68 20 69 6e 64 65 78 20 61 6e 64 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 61 6e 64 | .each.index.and.item.in.LIST.and |
| 5e40 | 20 72 65 74 75 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 65 73 75 6c 74 73 2e 0a 54 68 69 | .return.the.list.of.results..Thi |
| 5e60 | 73 20 69 73 20 6c 69 6b 65 20 60 2d 6d 61 70 27 2c 20 62 75 74 20 46 4e 20 74 61 6b 65 73 20 74 | s.is.like.`-map',.but.FN.takes.t |
| 5e80 | 77 6f 20 61 72 67 75 6d 65 6e 74 73 3a 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 0a 63 | wo.arguments:.the.index.of.the.c |
| 5ea0 | 75 72 72 65 6e 74 20 65 6c 65 6d 65 6e 74 20 77 69 74 68 69 6e 20 4c 49 53 54 2c 20 61 6e 64 20 | urrent.element.within.LIST,.and. |
| 5ec0 | 74 68 65 20 65 6c 65 6d 65 6e 74 20 69 74 73 65 6c 66 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 | the.element.itself...This.functi |
| 5ee0 | 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d | on's.anaphoric.counterpart.is.`- |
| 5f00 | 2d 6d 61 70 2d 69 6e 64 65 78 65 64 27 2e 0a 0a 46 6f 72 20 61 20 73 69 64 65 2d 65 66 66 65 63 | -map-indexed'...For.a.side-effec |
| 5f20 | 74 69 6e 67 20 76 61 72 69 61 6e 74 2c 20 73 65 65 20 61 6c 73 6f 20 60 2d 65 61 63 68 2d 69 6e | ting.variant,.see.also.`-each-in |
| 5f40 | 64 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 | dexed'...(fn.FN.LIST)..(defalias |
| 5f60 | 20 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 5c | .'-map-indexed.#[514."\300.\301\ |
| 5f80 | 33 30 30 5c 32 31 31 03 5c 32 30 33 24 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 | 300\211.\203$..\211A\262.\242\26 |
| 5fa0 | 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 06 01 03 5c 22 05 42 5c 32 36 32 05 5c 32 30 32 | 2..\262..T\262.....\".B\262.\202 |
| 5fc0 | 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 | ..\266.\211\237\207".[nil.0].10. |
| 5fe0 | 28 23 24 20 2e 20 32 34 30 38 35 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f | (#$...24085)]).#@52.Anaphoric.fo |
| 6000 | 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 | rm.of.`-map-when'...(fn.PRED.REP |
| 6020 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 77 68 65 6e 20 27 28 | .LIST)..(defalias.'--map-when.'( |
| 6040 | 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 | macro...#[771."\300\301!\302.C\3 |
| 6060 | 30 33 04 5c 33 30 34 5c 33 30 35 06 09 06 09 5c 33 30 36 42 42 42 06 06 45 45 5c 33 30 37 04 44 | 03.\304\305....\306BBB..EE\307.D |
| 6080 | 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 |
| 60a0 | 20 2d 2d 65 61 63 68 20 21 63 6f 6e 73 20 69 66 20 28 69 74 29 20 6e 72 65 76 65 72 73 65 5d 20 | .--each.!cons.if.(it).nreverse]. |
| 60c0 | 31 33 20 28 23 24 20 2e 20 32 34 35 36 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 77 | 13.(#$...24564)])).(put.'--map-w |
| 60e0 | 68 65 6e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 | hen.'edebug-form-spec.'(form.for |
| 6100 | 6d 20 66 6f 72 6d 29 29 0a 23 40 32 36 36 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 | m.form)).#@266.Return.a.new.list |
| 6120 | 20 77 68 65 72 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 74 68 61 74 | .where.the.elements.in.LIST.that |
| 6140 | 20 64 6f 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 50 52 45 44 20 66 75 6e 63 74 69 6f 6e 0a | .do.not.match.the.PRED.function. |
| 6160 | 61 72 65 20 75 6e 63 68 61 6e 67 65 64 2c 20 61 6e 64 20 77 68 65 72 65 20 74 68 65 20 65 6c 65 | are.unchanged,.and.where.the.ele |
| 6180 | 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 74 68 61 74 20 64 6f 20 6d 61 74 63 68 20 74 68 65 20 | ments.in.LIST.that.do.match.the. |
| 61a0 | 50 52 45 44 20 66 75 6e 63 74 69 6f 6e 20 61 72 65 20 6d 61 70 70 65 64 0a 74 68 72 6f 75 67 68 | PRED.function.are.mapped.through |
| 61c0 | 20 74 68 65 20 52 45 50 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 72 65 70 | .the.REP.function...Alias:.`-rep |
| 61e0 | 6c 61 63 65 2d 77 68 65 72 65 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 75 70 64 61 74 65 2d | lace-where'..See.also:.`-update- |
| 6200 | 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | at'..(fn.PRED.REP.LIST)..(defali |
| 6220 | 61 73 20 27 2d 6d 61 70 2d 77 68 65 6e 20 23 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 | as.'-map-when.#[771."\300.\301\3 |
| 6240 | 30 30 5c 32 31 31 03 5c 32 30 33 2e 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 | 00\211.\203...\211A\262.\242\262 |
| 6260 | 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 07 02 21 5c 32 30 33 26 00 06 06 02 21 5c 32 30 32 | ..\262..T\262....!\203&....!\202 |
| 6280 | 27 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 | '...B\262.\202..\266.\211\237\20 |
| 62a0 | 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 32 34 38 34 37 29 5d 29 0a 28 62 79 | 7".[nil.0].10.(#$...24847)]).(by |
| 62c0 | 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c | te-code."\300\301\302\"\210\300\ |
| 62e0 | 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 72 65 70 6c 61 63 | 303\304\"\207".[defalias.-replac |
| 6300 | 65 2d 77 68 65 72 65 20 2d 6d 61 70 2d 77 68 65 6e 20 2d 2d 72 65 70 6c 61 63 65 2d 77 68 65 72 | e-where.-map-when.--replace-wher |
| 6320 | 65 20 2d 2d 6d 61 70 2d 77 68 65 6e 5d 20 33 29 0a 23 40 31 34 35 20 52 65 70 6c 61 63 65 20 66 | e.--map-when].3).#@145.Replace.f |
| 6340 | 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 73 61 74 69 73 66 79 69 6e 67 20 50 52 45 | irst.item.in.LIST.satisfying.PRE |
| 6360 | 44 20 77 69 74 68 20 72 65 73 75 6c 74 20 6f 66 20 52 45 50 20 63 61 6c 6c 65 64 20 6f 6e 20 74 | D.with.result.of.REP.called.on.t |
| 6380 | 68 69 73 20 69 74 65 6d 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 77 68 65 6e 27 | his.item...See.also:.`-map-when' |
| 63a0 | 2c 20 60 2d 72 65 70 6c 61 63 65 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 | ,.`-replace-first'..(fn.PRED.REP |
| 63c0 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 2d 66 69 72 73 74 20 23 5b | .LIST)..(defalias.'-map-first.#[ |
| 63e0 | 37 37 31 20 22 5c 33 30 30 01 5c 32 30 33 19 00 03 02 40 21 5c 32 30 34 19 00 01 40 01 42 5c 32 | 771."\300.\203....@!\204...@.B\2 |
| 6400 | 36 32 01 01 41 5c 32 36 32 02 5c 32 30 32 01 00 01 5c 32 30 33 2b 00 5c 33 30 31 01 5c 32 33 37 | 62..A\262.\202...\203+.\301.\237 |
| 6420 | 04 04 40 21 04 41 42 5c 22 5c 32 30 32 2d 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 | ..@!.AB\"\202-.\211\237\207".[ni |
| 6440 | 6c 20 2d 63 6f 6e 63 61 74 5d 20 38 20 28 23 24 20 2e 20 32 35 33 39 39 29 5d 29 0a 23 40 35 33 | l.-concat].8.(#$...25399)]).#@53 |
| 6460 | 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 2e | .Anaphoric.form.of.`-map-first'. |
| 6480 | 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | ..(fn.PRED.REP.LIST)..(defalias. |
| 64a0 | 27 2d 2d 6d 61 70 2d 66 69 72 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 | '--map-first.'(macro...#[771."\3 |
| 64c0 | 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 5c 33 30 34 06 06 46 03 46 5c 32 30 | 00\301\302.E\301\303\304..F.F\20 |
| 64e0 | 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 29 20 | 7".[-map-first.lambda.(it).(it). |
| 6500 | 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20 2e 20 32 35 36 39 37 29 5d 29 29 0a 28 | (ignore.it)].9.(#$...25697)])).( |
| 6520 | 70 75 74 20 27 2d 2d 6d 61 70 2d 66 69 72 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 | put.'--map-first.'edebug-form-sp |
| 6540 | 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 | ec.'(def-form.def-form.form)).#@ |
| 6560 | 31 34 33 20 52 65 70 6c 61 63 65 20 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 73 61 | 143.Replace.last.item.in.LIST.sa |
| 6580 | 74 69 73 66 79 69 6e 67 20 50 52 45 44 20 77 69 74 68 20 72 65 73 75 6c 74 20 6f 66 20 52 45 50 | tisfying.PRED.with.result.of.REP |
| 65a0 | 20 63 61 6c 6c 65 64 20 6f 6e 20 74 68 69 73 20 69 74 65 6d 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a | .called.on.this.item...See.also: |
| 65c0 | 20 60 2d 6d 61 70 2d 77 68 65 6e 27 2c 20 60 2d 72 65 70 6c 61 63 65 2d 6c 61 73 74 27 0a 0a 28 | .`-map-when',.`-replace-last'..( |
| 65e0 | 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 6d | fn.PRED.REP.LIST)..(defalias.'-m |
| 6600 | 61 70 2d 6c 61 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 03 5c 33 30 31 04 21 23 5c 32 33 37 | ap-last.#[771."\300..\301.!#\237 |
| 6620 | 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 72 65 76 65 72 73 65 5d 20 38 20 28 23 24 | \207".[-map-first.reverse].8.(#$ |
| 6640 | 20 2e 20 32 35 39 35 36 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 | ...25956)]).#@52.Anaphoric.form. |
| 6660 | 6f 66 20 60 2d 6d 61 70 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 52 45 50 20 4c 49 | of.`-map-last'...(fn.PRED.REP.LI |
| 6680 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 70 2d 6c 61 73 74 20 27 28 6d 61 63 | ST)..(defalias.'--map-last.'(mac |
| 66a0 | 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 | ro...#[771."\300\301\302.E\301\3 |
| 66c0 | 30 33 5c 33 30 34 06 06 46 03 46 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6c 61 6d 62 | 03\304..F.F\207".[-map-last.lamb |
| 66e0 | 64 61 20 28 69 74 29 20 28 69 74 29 20 28 69 67 6e 6f 72 65 20 69 74 29 5d 20 39 20 28 23 24 20 | da.(it).(it).(ignore.it)].9.(#$. |
| 6700 | 2e 20 32 36 31 39 33 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 70 2d 6c 61 73 74 20 27 65 64 | ..26193)])).(put.'--map-last.'ed |
| 6720 | 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f | ebug-form-spec.'(def-form.def-fo |
| 6740 | 72 6d 20 66 6f 72 6d 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 | rm.form)).#@123.Replace.all.OLD. |
| 6760 | 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 77 69 74 68 20 4e 45 57 2e 0a 0a 45 6c 65 6d 65 6e 74 | items.in.LIST.with.NEW...Element |
| 6780 | 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 | s.are.compared.using.`equal'...S |
| 67a0 | 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 70 6c 61 63 65 2d 61 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 | ee.also:.`-replace-at'..(fn.OLD. |
| 67c0 | 4e 45 57 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 20 23 | NEW.LIST)..(defalias.'-replace.# |
| 67e0 | 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 2c 00 03 5c | [771."\300.\301\300\211.\203,..\ |
| 6800 | 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 | 211A\262.\242\262..\262..T\262.. |
| 6820 | 06 08 5c 32 33 32 5c 32 30 33 24 00 06 06 5c 32 30 32 25 00 01 05 42 5c 32 36 32 05 5c 32 30 32 | ..\232\203$...\202%...B\262.\202 |
| 6840 | 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 | ..\266.\211\237\207".[nil.0].10. |
| 6860 | 28 23 24 20 2e 20 32 36 34 34 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | (#$...26448)]).(byte-code."\300\ |
| 6880 | 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 |
| 68a0 | 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 20 70 75 | 0\207".[function-put.-replace.pu |
| 68c0 | 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 36 20 | re.t.side-effect-free].5).#@136. |
| 68e0 | 52 65 70 6c 61 63 65 20 74 68 65 20 66 69 72 73 74 20 6f 63 63 75 72 72 65 6e 63 65 20 6f 66 20 | Replace.the.first.occurrence.of. |
| 6900 | 4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 4c 49 53 54 2e 0a 0a 45 6c 65 6d 65 6e 74 73 20 | OLD.with.NEW.in.LIST...Elements. |
| 6920 | 61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 | are.compared.using.`equal'...See |
| 6940 | 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 66 69 72 73 74 27 0a 0a 28 66 6e 20 4f 4c 44 20 4e 45 57 | .also:.`-map-first'..(fn.OLD.NEW |
| 6960 | 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 2d 66 69 72 73 | .LIST)..(defalias.'-replace-firs |
| 6980 | 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 | t.#[771."\300\301\302\303\304\30 |
| 69a0 | 35 06 08 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 30 31 5c 33 30 32 5c 33 31 31 5c | 5..!\306\"\307\310%\301\302\311\ |
| 69c0 | 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 31 32 5c 33 31 30 25 03 23 5c 32 30 37 22 | 304\305..!\306\"\312\310%.#\207" |
| 69e0 | 20 5b 2d 6d 61 70 2d 66 69 72 73 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 | .[-map-first.make-byte-code.257. |
| 6a00 | 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b | "\300.\232\207".vconcat.vector.[ |
| 6a20 | 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 20 22 5c 33 30 30 5c 32 30 37 22 20 32 5d 20 | ].3."\n\n(fn.IT)"."\300\207".2]. |
| 6a40 | 31 31 20 28 23 24 20 2e 20 32 36 38 34 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | 11.(#$...26848)]).(byte-code."\3 |
| 6a60 | 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 23 | 00\301\302\303#\300\301\304\303# |
| 6a80 | 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 72 65 70 6c 61 63 65 | \300\207".[function-put.-replace |
| 6aa0 | 2d 66 69 72 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 | -first.pure.t.side-effect-free]. |
| 6ac0 | 35 29 0a 23 40 31 33 34 20 52 65 70 6c 61 63 65 20 74 68 65 20 6c 61 73 74 20 6f 63 63 75 72 72 | 5).#@134.Replace.the.last.occurr |
| 6ae0 | 65 6e 63 65 20 6f 66 20 4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 4c 49 53 54 2e 0a 0a 45 | ence.of.OLD.with.NEW.in.LIST...E |
| 6b00 | 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 | lements.are.compared.using.`equa |
| 6b20 | 6c 27 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 6c 61 73 74 27 0a 0a 28 66 6e 20 | l'...See.also:.`-map-last'..(fn. |
| 6b40 | 4f 4c 44 20 4e 45 57 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 | OLD.NEW.LIST)..(defalias.'-repla |
| 6b60 | 63 65 2d 6c 61 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c | ce-last.#[771."\300\301\302\303\ |
| 6b80 | 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 30 31 5c 33 30 | 304\305..!\306\"\307\310%\301\30 |
| 6ba0 | 32 5c 33 31 31 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 5c 22 5c 33 31 32 5c 33 31 30 25 03 | 2\311\304\305..!\306\"\312\310%. |
| 6bc0 | 23 5c 32 30 37 22 20 5b 2d 6d 61 70 2d 6c 61 73 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 | #\207".[-map-last.make-byte-code |
| 6be0 | 20 32 35 37 20 22 5c 33 30 30 01 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 | .257."\300.\232\207".vconcat.vec |
| 6c00 | 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 20 22 5c 33 30 30 5c 32 30 37 | tor.[].3."\n\n(fn.IT)"."\300\207 |
| 6c20 | 22 20 32 5d 20 31 31 20 28 23 24 20 2e 20 32 37 33 33 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | ".2].11.(#$...27337)]).(byte-cod |
| 6c40 | 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 30 34 | e."\300\301\302\303#\300\301\304 |
| 6c60 | 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 72 65 | \303#\300\207".[function-put.-re |
| 6c80 | 70 6c 61 63 65 2d 6c 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | place-last.pure.t.side-effect-fr |
| 6ca0 | 65 65 5d 20 35 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 | ee].5).#@46.Anaphoric.form.of.`- |
| 6cc0 | 6d 61 70 63 61 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | mapcat'...(fn.FORM.LIST)..(defal |
| 6ce0 | 69 61 73 20 27 2d 2d 6d 61 70 63 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c | ias.'--mapcat.'(macro...#[514."\ |
| 6d00 | 33 30 30 5c 33 30 31 5c 33 30 32 04 04 45 45 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 27 61 70 70 | 300\301\302..EE\207".[apply.'app |
| 6d20 | 65 6e 64 20 2d 2d 6d 61 70 5d 20 37 20 28 23 24 20 2e 20 32 37 38 32 30 29 5d 29 29 0a 28 70 75 | end.--map].7.(#$...27820)])).(pu |
| 6d40 | 74 20 27 2d 2d 6d 61 70 63 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 | t.'--mapcat.'edebug-form-spec.'( |
| 6d60 | 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6e | form.form)).#@118.Return.the.con |
| 6d80 | 63 61 74 65 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 6d 61 70 70 | catenation.of.the.result.of.mapp |
| 6da0 | 69 6e 67 20 46 4e 20 6f 76 65 72 20 4c 49 53 54 2e 0a 54 68 75 73 20 66 75 6e 63 74 69 6f 6e 20 | ing.FN.over.LIST..Thus.function. |
| 6dc0 | 46 4e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 4e | FN.should.return.a.list...(fn.FN |
| 6de0 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 70 63 61 74 20 23 5b 35 31 34 | .LIST)..(defalias.'-mapcat.#[514 |
| 6e00 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 | ."\300\301\302\303\304\305\306\3 |
| 6e20 | 30 37 06 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b | 07..!\310\"\311\312%.\"\"\207".[ |
| 6e40 | 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f | apply.append.mapcar.make-byte-co |
| 6e60 | 64 65 20 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 | de.257."\300.!\207".vconcat.vect |
| 6e80 | 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 31 20 28 23 24 20 2e 20 | or.[].3."\n\n(fn.IT)"].11.(#$... |
| 6ea0 | 32 38 30 31 38 29 5d 29 0a 23 40 35 32 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 | 28018)]).#@52.Anaphoric.version. |
| 6ec0 | 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 4e 29 | of.`-iterate'...(fn.FORM.INIT.N) |
| 6ee0 | 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 20 2e | ..(defalias.'--iterate.'(macro.. |
| 6f00 | 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 33 01 04 | .#[771."\300\301!\300\302!\303.. |
| 6f20 | 44 43 5c 33 30 34 5c 33 30 35 04 5c 33 30 36 42 42 5c 33 30 37 5c 33 31 30 06 09 44 06 07 5c 33 | DC\304\305.\306BB\307\310..D..\3 |
| 6f40 | 31 31 42 44 5c 33 31 32 5c 33 31 33 5c 33 31 34 06 09 44 44 5c 33 31 35 5c 33 31 36 5c 33 31 30 | 11BD\312\313\314..DD\315\316\310 |
| 6f60 | 06 0f 45 06 0b 45 45 5c 33 31 37 06 09 44 46 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d | ..E..EE\317..DFEE\207".[make-sym |
| 6f80 | 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 6e 22 20 6c 65 74 20 77 68 65 6e 20 3e 20 28 30 29 20 | bol."result"."n".let.when.>.(0). |
| 6fa0 | 6c 65 74 2a 20 69 74 20 28 28 6c 69 73 74 20 69 74 29 29 20 64 6f 74 69 6d 65 73 20 5f 20 31 2d | let*.it.((list.it)).dotimes._.1- |
| 6fc0 | 20 70 75 73 68 20 73 65 74 71 20 6e 72 65 76 65 72 73 65 5d 20 31 37 20 28 23 24 20 2e 20 32 38 | .push.setq.nreverse].17.(#$...28 |
| 6fe0 | 33 33 34 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 67 2d | 334)])).(put.'--iterate.'edebug- |
| 7000 | 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 31 | form-spec.'(form.form.form)).#@1 |
| 7020 | 38 36 20 52 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 | 86.Return.a.list.of.iterated.app |
| 7040 | 6c 69 63 61 74 69 6f 6e 73 20 6f 66 20 46 55 4e 20 74 6f 20 49 4e 49 54 2e 0a 0a 54 68 69 73 20 | lications.of.FUN.to.INIT...This. |
| 7060 | 6d 65 61 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 0a 0a 20 20 28 49 4e | means.a.list.of.the.form:....(IN |
| 7080 | 49 54 20 28 46 55 4e 20 49 4e 49 54 29 20 28 46 55 4e 20 28 46 55 4e 20 49 4e 49 54 29 29 20 2e | IT.(FUN.INIT).(FUN.(FUN.INIT)).. |
| 70a0 | 2e 2e 29 0a 0a 4e 20 69 73 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 72 65 74 75 | ..)..N.is.the.length.of.the.retu |
| 70c0 | 72 6e 65 64 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 55 4e 20 49 4e 49 54 20 4e 29 1f 0a 28 64 65 | rned.list...(fn.FUN.INIT.N)..(de |
| 70e0 | 66 61 6c 69 61 73 20 27 2d 69 74 65 72 61 74 65 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 31 31 | falias.'-iterate.#[771."\211\211 |
| 7100 | 5c 33 30 30 56 5c 32 30 35 2d 00 02 5c 32 31 31 43 02 53 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 | \300V\205-..\211C.S\300\211.W\20 |
| 7120 | 33 27 00 5c 32 31 31 06 08 05 21 5c 32 31 31 5c 32 36 32 06 04 42 5c 32 36 32 04 5c 32 31 30 5c | 3'.\211...!\211\262..B\262.\210\ |
| 7140 | 32 31 31 54 5c 32 36 32 01 5c 32 30 32 0d 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 36 | 211T\262.\202..\266.\211\237\266 |
| 7160 | 5c 32 30 32 5c 32 30 37 22 20 5b 30 5d 20 31 31 20 28 23 24 20 2e 20 32 38 37 30 37 29 5d 29 0a | \202\207".[0].11.(#$...28707)]). |
| 7180 | 23 40 34 33 36 20 54 61 6b 65 20 61 20 6e 65 73 74 65 64 20 6c 69 73 74 20 4c 20 61 6e 64 20 72 | #@436.Take.a.nested.list.L.and.r |
| 71a0 | 65 74 75 72 6e 20 69 74 73 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 61 20 73 69 6e 67 6c 65 2c 20 | eturn.its.contents.as.a.single,. |
| 71c0 | 66 6c 61 74 20 6c 69 73 74 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 62 65 63 61 75 73 65 20 60 6e | flat.list...Note.that.because.`n |
| 71e0 | 69 6c 27 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 7a 65 72 6f 20 65 6c | il'.represents.a.list.of.zero.el |
| 7200 | 65 6d 65 6e 74 73 20 28 61 6e 0a 65 6d 70 74 79 20 6c 69 73 74 29 2c 20 61 6e 79 20 6d 65 6e 74 | ements.(an.empty.list),.any.ment |
| 7220 | 69 6f 6e 20 6f 66 20 6e 69 6c 20 69 6e 20 4c 20 77 69 6c 6c 20 64 69 73 61 70 70 65 61 72 20 61 | ion.of.nil.in.L.will.disappear.a |
| 7240 | 66 74 65 72 0a 66 6c 61 74 74 65 6e 69 6e 67 2e 20 20 49 66 20 79 6f 75 20 6e 65 65 64 20 74 6f | fter.flattening...If.you.need.to |
| 7260 | 20 70 72 65 73 65 72 76 65 20 6e 69 6c 73 2c 20 63 6f 6e 73 69 64 65 72 20 60 2d 66 6c 61 74 74 | .preserve.nils,.consider.`-flatt |
| 7280 | 65 6e 2d 6e 27 0a 6f 72 20 6d 61 70 20 74 68 65 6d 20 74 6f 20 73 6f 6d 65 20 75 6e 69 71 75 65 | en-n'.or.map.them.to.some.unique |
| 72a0 | 20 73 79 6d 62 6f 6c 20 61 6e 64 20 74 68 65 6e 20 6d 61 70 20 74 68 65 6d 20 62 61 63 6b 2e 0a | .symbol.and.then.map.them.back.. |
| 72c0 | 0a 43 6f 6e 73 65 73 20 6f 66 20 74 77 6f 20 61 74 6f 6d 73 20 61 72 65 20 63 6f 6e 73 69 64 65 | .Conses.of.two.atoms.are.conside |
| 72e0 | 72 65 64 20 22 74 65 72 6d 69 6e 61 6c 73 22 2c 20 74 68 61 74 20 69 73 2c 20 74 68 65 79 0a 61 | red."terminals",.that.is,.they.a |
| 7300 | 72 65 6e 27 74 20 66 6c 61 74 74 65 6e 65 64 20 66 75 72 74 68 65 72 2e 0a 0a 53 65 65 20 61 6c | ren't.flattened.further...See.al |
| 7320 | 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 0a 0a 28 66 6e 20 4c 29 1f 0a 28 64 65 66 61 6c | so:.`-flatten-n'..(fn.L)..(defal |
| 7340 | 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 20 23 5b 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 33 10 00 | ias.'-flatten.#[257."\211<\203.. |
| 7360 | 5c 32 31 31 41 3c 5c 32 30 33 10 00 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 5c 32 31 31 43 | \211A<\203..\300\301.\"\207\211C |
| 7380 | 5c 32 30 37 22 20 5b 2d 6d 61 70 63 61 74 20 2d 66 6c 61 74 74 65 6e 5d 20 34 20 28 23 24 20 2e | \207".[-mapcat.-flatten].4.(#$.. |
| 73a0 | 20 32 39 30 36 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 | .29062)]).(byte-code."\300\301\3 |
| 73c0 | 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 |
| 73e0 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6c 61 74 74 65 6e 20 70 75 72 65 20 74 20 | ".[function-put.-flatten.pure.t. |
| 7400 | 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 37 35 20 46 6c 61 74 74 65 | side-effect-free].5).#@75.Flatte |
| 7420 | 6e 20 4e 55 4d 20 6c 65 76 65 6c 73 20 6f 66 20 61 20 6e 65 73 74 65 64 20 4c 49 53 54 2e 0a 0a | n.NUM.levels.of.a.nested.LIST... |
| 7440 | 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 27 0a 0a 28 66 6e 20 4e 55 4d 20 4c 49 | See.also:.`-flatten'..(fn.NUM.LI |
| 7460 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6c 61 74 74 65 6e 2d 6e 20 23 5b 35 31 34 | ST)..(defalias.'-flatten-n.#[514 |
| 7480 | 20 22 01 5c 33 30 30 5c 32 31 31 02 57 5c 32 30 33 1b 00 5c 32 31 31 5c 33 30 31 5c 33 30 32 5c | .".\300\211.W\203..\211\301\302\ |
| 74a0 | 33 30 33 5c 33 30 34 06 07 5c 22 5c 22 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 | 303\304..\"\"\262.\210\211T\262. |
| 74c0 | 5c 32 30 32 02 00 5c 32 36 36 02 5c 32 30 37 22 20 5b 30 20 61 70 70 6c 79 20 61 70 70 65 6e 64 | \202..\266.\207".[0.apply.append |
| 74e0 | 20 6d 61 70 63 61 72 20 2d 6c 69 73 74 5d 20 31 30 20 28 23 24 20 2e 20 32 39 37 32 32 29 5d 29 | .mapcar.-list].10.(#$...29722)]) |
| 7500 | 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 |
| 7520 | 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 |
| 7540 | 6f 6e 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 | on-put.-flatten-n.pure.t.side-ef |
| 7560 | 66 65 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 | fect-free].5).#@99.Return.a.new. |
| 7580 | 6c 69 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 | list.with.the.concatenation.of.t |
| 75a0 | 68 65 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 | he.elements.in.the.supplied.LIST |
| 75c0 | 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | S...(fn.&rest.LISTS)..(defalias. |
| 75e0 | 27 2d 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 | '-concat.#[128."\300\301.\"\207" |
| 7600 | 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 5d 20 34 20 28 23 24 20 2e 20 33 30 30 36 37 29 5d 29 | .[apply.append].4.(#$...30067)]) |
| 7620 | 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 |
| 7640 | 30 30 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 | 00\301\304\303#\305\306\307\310# |
| 7660 | 5c 32 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 | \207".[function-put.-concat.pure |
| 7680 | 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 63 6f | .t.side-effect-free.defalias.-co |
| 76a0 | 70 79 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 | py.copy-sequence."Create.a.shall |
| 76c0 | 6f 77 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 | ow.copy.of.LIST.\n\n(fn.LIST)"]. |
| 76e0 | 36 29 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 | 6).#@323.Splice.lists.generated. |
| 7700 | 62 79 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 | by.FUN.in.place.of.elements.matc |
| 7720 | 68 69 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 | hing.PRED.in.LIST...FUN.takes.th |
| 7740 | 65 20 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 | e.element.matching.PRED.as.input |
| 7760 | 2e 0a 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 | ...This.function.can.be.used.as. |
| 7780 | 72 65 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 | replacement.for.`,@'.in.case.you |
| 77a0 | 0a 6e 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 | .need.to.splice.several.lists.at |
| 77c0 | 20 6d 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 | .marked.positions.(for.example.w |
| 77e0 | 69 74 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 | ith.keywords)...See.also:.`-spli |
| 7800 | 63 65 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 | ce-list',.`-insert-at'..(fn.PRED |
| 7820 | 20 46 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 | .FUN.LIST)..(defalias.'-splice.# |
| 7840 | 5b 37 37 31 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 50 00 03 5c | [771."\300.\301\300\211.\203P..\ |
| 7860 | 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 | 211A\262.\242\262..\262..T\262.. |
| 7880 | 07 02 21 5c 32 30 33 48 00 06 06 02 21 5c 32 31 31 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 | ..!\203H....!\211\301\300\211.\2 |
| 78a0 | 30 33 43 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 | 03C..\211A\262.\242\262..\262..T |
| 78c0 | 5c 32 36 32 03 01 06 5c 6e 42 5c 32 36 32 5c 6e 5c 32 30 32 27 00 5c 32 36 36 05 5c 32 30 32 05 | \262...\nB\262\n\202'.\266.\202. |
| 78e0 | 00 01 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 | ...B\262.\202..\266.\211\237\207 |
| 7900 | 22 20 5b 6e 69 6c 20 30 5d 20 31 35 20 28 23 24 20 2e 20 33 30 34 34 31 29 5d 29 0a 23 40 35 31 | ".[nil.0].15.(#$...30441)]).#@51 |
| 7920 | 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 63 65 27 2e 0a 0a 28 | .Anaphoric.form.of.`-splice'...( |
| 7940 | 66 6e 20 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 | fn.PRED.FORM.LIST)..(defalias.'- |
| 7960 | 2d 73 70 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 | -splice.'(macro...#[771."\300\30 |
| 7980 | 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 | 1\302.E\301\303.E.F\207".[-splic |
| 79a0 | 65 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 33 31 30 30 | e.lambda.(it).(it)].8.(#$...3100 |
| 79c0 | 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 70 6c 69 63 65 20 27 65 64 65 62 75 67 2d 66 6f 72 | 9)])).(put.'--splice.'edebug-for |
| 79e0 | 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 | m-spec.'(def-form.def-form.form) |
| 7a00 | 29 0a 23 40 31 32 31 20 53 70 6c 69 63 65 20 4e 45 57 2d 4c 49 53 54 20 69 6e 20 70 6c 61 63 65 | ).#@121.Splice.NEW-LIST.in.place |
| 7a20 | 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6d 61 74 63 68 69 6e 67 20 50 52 45 44 20 69 6e 20 4c 49 | .of.elements.matching.PRED.in.LI |
| 7a40 | 53 54 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69 63 65 27 2c 20 60 2d 69 6e 73 65 | ST...See.also:.`-splice',.`-inse |
| 7a60 | 72 74 2d 61 74 27 0a 0a 28 66 6e 20 50 52 45 44 20 4e 45 57 2d 4c 49 53 54 20 4c 49 53 54 29 1f | rt-at'..(fn.PRED.NEW-LIST.LIST). |
| 7a80 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 23 5b 37 37 31 20 22 | .(defalias.'-splice-list.#[771." |
| 7aa0 | 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 21 5c 33 30 36 | \300.\301\302\303\304\305..!\306 |
| 7ac0 | 5c 22 5c 33 30 37 5c 33 31 30 25 03 23 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 20 6d 61 6b 65 | \"\307\310%.#\207".[-splice.make |
| 7ae0 | 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 | -byte-code.257."\300\207".vconca |
| 7b00 | 74 20 76 65 63 74 6f 72 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 5f 29 22 5d 20 31 31 20 28 | t.vector.[].2."\n\n(fn._)"].11.( |
| 7b20 | 23 24 20 2e 20 33 31 32 34 30 29 5d 29 0a 23 40 36 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 | #$...31240)]).#@60.Anaphoric.for |
| 7b40 | 6d 20 6f 66 20 60 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4e | m.of.`-splice-list'...(fn.PRED.N |
| 7b60 | 45 57 2d 4c 49 53 54 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 | EW-LIST.LIST)..(defalias.'--spli |
| 7b80 | 63 65 2d 6c 69 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 | ce-list.'(macro...#[771."\300\30 |
| 7ba0 | 31 5c 33 30 32 05 45 03 03 46 5c 32 30 37 22 20 5b 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 6c 61 | 1\302.E..F\207".[-splice-list.la |
| 7bc0 | 6d 62 64 61 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 33 31 35 33 39 29 5d 29 29 0a 28 70 75 | mbda.(it)].7.(#$...31539)])).(pu |
| 7be0 | 74 20 27 2d 2d 73 70 6c 69 63 65 2d 6c 69 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 | t.'--splice-list.'edebug-form-sp |
| 7c00 | 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 33 34 20 | ec.'(def-form.form.form)).#@234. |
| 7c20 | 4d 61 6b 65 20 61 20 6e 65 77 20 6c 69 73 74 20 66 72 6f 6d 20 74 68 65 20 65 6c 65 6d 65 6e 74 | Make.a.new.list.from.the.element |
| 7c40 | 73 20 6f 66 20 41 52 47 53 2e 0a 54 68 65 20 6c 61 73 74 20 32 20 65 6c 65 6d 65 6e 74 73 20 6f | s.of.ARGS..The.last.2.elements.o |
| 7c60 | 66 20 41 52 47 53 20 61 72 65 20 75 73 65 64 20 61 73 20 74 68 65 20 66 69 6e 61 6c 20 63 6f 6e | f.ARGS.are.used.as.the.final.con |
| 7c80 | 73 20 6f 66 20 74 68 65 0a 72 65 73 75 6c 74 2c 20 73 6f 20 69 66 20 74 68 65 20 66 69 6e 61 6c | s.of.the.result,.so.if.the.final |
| 7ca0 | 20 65 6c 65 6d 65 6e 74 20 6f 66 20 41 52 47 53 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2c 20 | .element.of.ARGS.is.not.a.list,. |
| 7cc0 | 74 68 65 20 72 65 73 75 6c 74 0a 69 73 20 61 20 64 6f 74 74 65 64 20 6c 69 73 74 2e 20 20 57 69 | the.result.is.a.dotted.list...Wi |
| 7ce0 | 74 68 20 6e 6f 20 41 52 47 53 2c 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 28 66 6e 20 26 72 65 | th.no.ARGS,.return.nil...(fn.&re |
| 7d00 | 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2a 20 23 5b 31 32 | st.ARGS)..(defalias.'-cons*.#[12 |
| 7d20 | 38 20 22 5c 32 31 31 47 5c 32 31 31 5c 33 30 30 5a 02 5c 32 33 33 5c 32 31 31 41 5c 32 31 31 5c | 8."\211G\211\300Z.\233\211A\211\ |
| 7d40 | 32 30 34 12 00 03 40 5c 32 30 32 18 00 01 01 40 5c 32 34 31 5c 32 31 30 03 5c 32 30 37 22 20 5b | 204...@\202....@\241\210.\207".[ |
| 7d60 | 32 5d 20 36 20 28 23 24 20 2e 20 33 31 37 37 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | 2].6.(#$...31776)]).(byte-code." |
| 7d80 | 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 30 | \300\301\302\303#\300\301\304\30 |
| 7da0 | 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 63 6f 6e 73 2a | 3#\300\207".[function-put.-cons* |
| 7dc0 | 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 31 | .pure.t.side-effect-free].5).#@1 |
| 7de0 | 38 32 20 41 70 70 65 6e 64 20 45 4c 45 4d 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 | 82.Append.ELEM.to.the.end.of.the |
| 7e00 | 20 6c 69 73 74 2e 0a 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 63 6f 6e 73 27 2c 20 62 75 74 | .list...This.is.like.`cons',.but |
| 7e20 | 20 6f 70 65 72 61 74 65 73 20 6f 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 6c 69 73 74 2e 0a 0a 49 | .operates.on.the.end.of.list...I |
| 7e40 | 66 20 45 4c 45 4d 45 4e 54 53 20 69 73 20 6e 6f 6e 20 6e 69 6c 2c 20 61 70 70 65 6e 64 20 74 68 | f.ELEMENTS.is.non.nil,.append.th |
| 7e60 | 65 73 65 20 74 6f 20 74 68 65 20 6c 69 73 74 20 61 73 20 77 65 6c 6c 2e 0a 0a 28 66 6e 20 4c 49 | ese.to.the.list.as.well...(fn.LI |
| 7e80 | 53 54 20 45 4c 45 4d 20 26 72 65 73 74 20 45 4c 45 4d 45 4e 54 53 29 1f 0a 28 64 65 66 61 6c 69 | ST.ELEM.&rest.ELEMENTS)..(defali |
| 7ea0 | 61 73 20 27 2d 73 6e 6f 63 20 23 5b 36 34 32 20 22 5c 33 30 30 03 03 43 03 23 5c 32 30 37 22 20 | as.'-snoc.#[642."\300..C.#\207". |
| 7ec0 | 5b 2d 63 6f 6e 63 61 74 5d 20 37 20 28 23 24 20 2e 20 33 32 32 32 37 29 5d 29 0a 23 40 32 37 37 | [-concat].7.(#$...32227)]).#@277 |
| 7ee0 | 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 66 | .Return.the.first.item.in.LIST.f |
| 7f00 | 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a | or.which.FORM.evals.to.non-nil.. |
| 7f20 | 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 | Return.nil.if.no.such.element.is |
| 7f40 | 20 66 6f 75 6e 64 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 | .found..Each.element.of.LIST.in. |
| 7f60 | 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e | turn.is.bound.to.`it'.and.its.in |
| 7f80 | 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 | dex.within.LIST.to.`it-index'.be |
| 7fa0 | 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 74 68 | fore.evaluating.FORM..This.is.th |
| 7fc0 | 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 66 69 72 | e.anaphoric.counterpart.to.`-fir |
| 7fe0 | 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 20 | st'...(fn.FORM.LIST)..(defalias. |
| 8000 | 27 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 | '--first.'(macro...#[514."\300\3 |
| 8020 | 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 5c 33 30 35 06 08 44 5c 33 30 36 5c 33 30 | 01!\302.C\303.\304\305..D\306\30 |
| 8040 | 37 06 08 5c 33 31 30 42 42 44 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c | 7..\310BBDEE.F\207".[make-symbol |
| 8060 | 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 6f 72 20 6e 6f | ."needle".let.--each-while.or.no |
| 8080 | 74 20 69 67 6e 6f 72 65 20 73 65 74 71 20 28 69 74 29 5d 20 31 33 20 28 23 24 20 2e 20 33 32 34 | t.ignore.setq.(it)].13.(#$...324 |
| 80a0 | 38 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 72 73 74 20 27 65 64 65 62 75 67 2d 66 6f 72 | 81)])).(put.'--first.'edebug-for |
| 80c0 | 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 35 34 20 52 65 74 75 72 | m-spec.'(form.form)).#@254.Retur |
| 80e0 | 6e 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 20 66 6f 72 20 77 68 69 | n.the.first.item.in.LIST.for.whi |
| 8100 | 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 52 65 74 75 72 6e 20 | ch.PRED.returns.non-nil..Return. |
| 8120 | 6e 69 6c 20 69 66 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 20 66 6f 75 6e 64 2e | nil.if.no.such.element.is.found. |
| 8140 | 0a 54 6f 20 67 65 74 20 74 68 65 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 74 68 65 20 6c 69 | .To.get.the.first.item.in.the.li |
| 8160 | 73 74 20 6e 6f 20 71 75 65 73 74 69 6f 6e 73 20 61 73 6b 65 64 2c 20 75 73 65 20 60 63 61 72 27 | st.no.questions.asked,.use.`car' |
| 8180 | 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 66 69 6e 64 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f | ...Alias:.`-find'...This.functio |
| 81a0 | 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d | n's.anaphoric.counterpart.is.`-- |
| 81c0 | 66 69 72 73 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 | first'...(fn.PRED.LIST)..(defali |
| 81e0 | 61 73 20 27 2d 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 30 5c | as.'-first.#[514."\300.\301\300\ |
| 8200 | 32 31 31 5c 32 31 31 04 5c 32 30 33 37 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 | 211\211.\2037..\211A\262.\242\26 |
| 8220 | 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 37 00 06 07 02 21 5c 32 30 33 | 2..\262..\211\262.\2037....!\203 |
| 8240 | 2a 00 5c 33 30 30 02 5c 32 36 32 07 5c 32 30 33 37 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 | *.\300.\262.\2037..\262..\262..T |
| 8260 | 5c 32 36 32 04 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 30 | \262.\202..\266.\211\207".[nil.0 |
| 8280 | 5d 20 31 30 20 28 23 24 20 2e 20 33 32 39 38 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | ].10.(#$...32987)]).(byte-code." |
| 82a0 | 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 5c 22 | \300\301\302\"\210\300\303\304\" |
| 82c0 | 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 66 69 6e 64 20 2d 66 69 72 73 74 20 2d 2d 66 | \207".[defalias.-find.-first.--f |
| 82e0 | 69 6e 64 20 2d 2d 66 69 72 73 74 5d 20 33 29 0a 23 40 32 38 39 20 52 65 74 75 72 6e 20 6e 6f 6e | ind.--first].3).#@289.Return.non |
| 8300 | 2d 6e 69 6c 20 69 66 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 20 66 6f | -nil.if.FORM.evals.to.non-nil.fo |
| 8320 | 72 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2e 0a 49 66 20 | r.at.least.one.item.in.LIST..If. |
| 8340 | 73 6f 2c 20 72 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 73 75 63 68 20 72 65 73 75 6c 74 | so,.return.the.first.such.result |
| 8360 | 20 6f 66 20 46 4f 52 4d 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 | .of.FORM..Each.element.of.LIST.i |
| 8380 | 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 | n.turn.is.bound.to.`it'.and.its. |
| 83a0 | 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 | index.within.LIST.to.`it-index'. |
| 83c0 | 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 54 68 69 73 20 69 73 20 | before.evaluating.FORM..This.is. |
| 83e0 | 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 73 | the.anaphoric.counterpart.to.`-s |
| 8400 | 6f 6d 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 | ome'...(fn.FORM.LIST)..(defalias |
| 8420 | 20 27 2d 2d 73 6f 6d 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | .'--some.'(macro...#[514."\300\3 |
| 8440 | 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 5c 33 30 35 06 06 06 09 45 44 45 03 46 5c | 01!\302.C\303.\304\305....EDE.F\ |
| 8460 | 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 65 65 64 6c 65 22 20 6c 65 74 20 2d | 207".[make-symbol."needle".let.- |
| 8480 | 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 73 65 74 71 5d 20 31 31 20 28 23 24 20 2e 20 33 | -each-while.not.setq].11.(#$...3 |
| 84a0 | 33 35 32 36 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 6f 6d 65 20 27 65 64 65 62 75 67 2d 66 6f | 3526)])).(put.'--some.'edebug-fo |
| 84c0 | 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 36 32 20 52 65 74 75 | rm-spec.'(form.form)).#@162.Retu |
| 84e0 | 72 6e 20 28 50 52 45 44 20 78 29 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 4c 49 53 54 20 69 | rn.(PRED.x).for.the.first.LIST.i |
| 8500 | 74 65 6d 20 77 68 65 72 65 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 | tem.where.(PRED.x).is.non-nil,.e |
| 8520 | 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 61 6e 79 27 2e 0a 0a 54 68 69 73 20 66 | lse.nil...Alias:.`-any'...This.f |
| 8540 | 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 | unction's.anaphoric.counterpart. |
| 8560 | 69 73 20 60 2d 2d 73 6f 6d 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 | is.`--some'...(fn.PRED.LIST)..(d |
| 8580 | 65 66 61 6c 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 | efalias.'-some.#[514."\300.\301\ |
| 85a0 | 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 33 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 | 300\211\211.\2033..\211A\262.\24 |
| 85c0 | 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 33 00 06 07 02 21 | 2\262..\262..\211\262.\2033....! |
| 85e0 | 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 33 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 | \211\262.\2043..\262..\262..T\26 |
| 8600 | 32 04 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 | 2.\202..\266.\211\207".[nil.0].1 |
| 8620 | 30 20 28 23 24 20 2e 20 33 34 30 31 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | 0.(#$...34012)]).(byte-code."\30 |
| 8640 | 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 | 0\301\302\"\210\300\303\304\"\20 |
| 8660 | 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 61 6e 79 20 2d 73 6f 6d 65 20 2d 2d 61 6e 79 20 2d 2d | 7".[defalias.-any.-some.--any.-- |
| 8680 | 73 6f 6d 65 5d 20 33 29 0a 23 40 35 31 38 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 | some].3).#@518.Return.non-nil.if |
| 86a0 | 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c 20 69 | .FORM.evals.to.non-nil.for.all.i |
| 86c0 | 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 49 66 20 73 6f 2c 20 72 65 74 75 72 6e 20 74 68 65 20 | tems.in.LIST..If.so,.return.the. |
| 86e0 | 6c 61 73 74 20 73 75 63 68 20 72 65 73 75 6c 74 20 6f 66 20 46 4f 52 4d 2e 20 20 4f 74 68 65 72 | last.such.result.of.FORM...Other |
| 8700 | 77 69 73 65 2c 20 6f 6e 63 65 20 61 6e 0a 69 74 65 6d 20 69 73 20 72 65 61 63 68 65 64 20 66 6f | wise,.once.an.item.is.reached.fo |
| 8720 | 72 20 77 68 69 63 68 20 46 4f 52 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2c 20 72 65 74 75 72 6e 20 | r.which.FORM.yields.nil,.return. |
| 8740 | 6e 69 6c 20 77 69 74 68 6f 75 74 0a 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 66 6f 72 20 | nil.without.evaluating.FORM.for. |
| 8760 | 61 6e 79 20 66 75 72 74 68 65 72 20 4c 49 53 54 20 65 6c 65 6d 65 6e 74 73 2e 0a 45 61 63 68 20 | any.further.LIST.elements..Each. |
| 8780 | 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 | element.of.LIST.in.turn.is.bound |
| 87a0 | 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 | .to.`it'.and.its.index.within.LI |
| 87c0 | 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 | ST.to.`it-index'.before.evaluati |
| 87e0 | 6e 67 20 46 4f 52 4d 2e 0a 0a 54 68 69 73 20 6d 61 63 72 6f 20 69 73 20 6c 69 6b 65 20 60 2d 2d | ng.FORM...This.macro.is.like.`-- |
| 8800 | 65 76 65 72 79 2d 70 27 2c 20 62 75 74 20 6f 6e 20 73 75 63 63 65 73 73 20 72 65 74 75 72 6e 73 | every-p',.but.on.success.returns |
| 8820 | 20 74 68 65 20 6c 61 73 74 0a 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 46 4f 52 4d | .the.last.non-nil.result.of.FORM |
| 8840 | 20 69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 74 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 | .instead.of.just.t...This.is.the |
| 8860 | 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 65 76 65 72 | .anaphoric.counterpart.to.`-ever |
| 8880 | 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 69 61 73 20 27 | y'...(fn.FORM.LIST)..(defalias.' |
| 88a0 | 2d 2d 65 76 65 72 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 | --every.'(macro...#[514."\300\30 |
| 88c0 | 31 21 5c 33 30 32 01 5c 33 30 33 42 43 5c 33 30 34 04 5c 33 30 35 05 06 08 45 45 03 46 5c 32 30 | 1!\302.\303BC\304.\305...EE.F\20 |
| 88e0 | 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 74 29 20 2d 2d | 7".[make-symbol."all".let.(t).-- |
| 8900 | 65 61 63 68 2d 77 68 69 6c 65 20 73 65 74 71 5d 20 31 30 20 28 23 24 20 2e 20 33 34 34 34 37 29 | each-while.setq].10.(#$...34447) |
| 8920 | 5d 29 29 0a 28 70 75 74 20 27 2d 2d 65 76 65 72 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | ])).(put.'--every.'edebug-form-s |
| 8940 | 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 31 31 20 52 65 74 75 72 6e 20 6e | pec.'(form.form)).#@411.Return.n |
| 8960 | 6f 6e 2d 6e 69 6c 20 69 66 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 66 | on-nil.if.PRED.returns.non-nil.f |
| 8980 | 6f 72 20 61 6c 6c 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 49 66 20 73 6f 2c 20 72 65 74 | or.all.items.in.LIST..If.so,.ret |
| 89a0 | 75 72 6e 20 74 68 65 20 6c 61 73 74 20 73 75 63 68 20 72 65 73 75 6c 74 20 6f 66 20 50 52 45 44 | urn.the.last.such.result.of.PRED |
| 89c0 | 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 6f 6e 63 65 20 61 6e 0a 69 74 65 6d 20 69 73 20 72 65 | ...Otherwise,.once.an.item.is.re |
| 89e0 | 61 63 68 65 64 20 66 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 | ached.for.which.PRED.returns.nil |
| 8a00 | 2c 20 72 65 74 75 72 6e 20 6e 69 6c 20 77 69 74 68 6f 75 74 0a 63 61 6c 6c 69 6e 67 20 50 52 45 | ,.return.nil.without.calling.PRE |
| 8a20 | 44 20 6f 6e 20 61 6e 79 20 66 75 72 74 68 65 72 20 4c 49 53 54 20 65 6c 65 6d 65 6e 74 73 2e 0a | D.on.any.further.LIST.elements.. |
| 8a40 | 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6c 69 6b 65 20 60 2d 65 76 65 72 79 2d 70 | .This.function.is.like.`-every-p |
| 8a60 | 27 2c 20 62 75 74 20 6f 6e 20 73 75 63 63 65 73 73 20 72 65 74 75 72 6e 73 20 74 68 65 20 6c 61 | ',.but.on.success.returns.the.la |
| 8a80 | 73 74 0a 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 50 52 45 44 20 69 6e 73 74 65 61 | st.non-nil.result.of.PRED.instea |
| 8aa0 | 64 20 6f 66 20 6a 75 73 74 20 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e | d.of.just.t...This.function's.an |
| 8ac0 | 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 65 76 65 72 79 27 | aphoric.counterpart.is.`--every' |
| 8ae0 | 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 65 | ...(fn.PRED.LIST)..(defalias.'-e |
| 8b00 | 76 65 72 79 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 5c 32 31 31 5c 32 31 | very.#[514."\300.\301\302\211\21 |
| 8b20 | 31 04 5c 32 30 33 33 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 | 1.\2033..\211A\262.\242\262..\26 |
| 8b40 | 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 33 00 06 07 02 21 5c 32 31 31 5c 32 36 32 07 5c | 2..\211\262.\2033....!\211\262.\ |
| 8b60 | 32 30 33 33 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 06 00 5c 32 | 2033..\262..\262..T\262.\202..\2 |
| 8b80 | 36 36 05 5c 32 31 31 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 | 66.\211\207".[t.0.nil].10.(#$... |
| 8ba0 | 33 35 31 36 30 29 5d 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 | 35160)]).#@44.Anaphoric.form.of. |
| 8bc0 | 60 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | `-last'...(fn.FORM.LIST)..(defal |
| 8be0 | 69 61 73 20 27 2d 2d 6c 61 73 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 | ias.'--last.'(macro...#[514."\30 |
| 8c00 | 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 5c 33 30 34 06 07 5c 33 30 35 06 07 5c 33 30 | 0\301!\302.C\303.\304..\305..\30 |
| 8c20 | 36 42 42 45 45 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6e 65 65 64 6c | 6BBEE.F\207".[make-symbol."needl |
| 8c40 | 65 22 20 6c 65 74 20 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 28 69 74 29 5d 20 31 32 | e".let.--each.when.setq.(it)].12 |
| 8c60 | 20 28 23 24 20 2e 20 33 35 37 35 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6c 61 73 74 20 27 65 | .(#$...35758)])).(put.'--last.'e |
| 8c80 | 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)).#@ |
| 8ca0 | 38 30 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 73 74 20 78 20 69 6e 20 4c 49 53 54 20 77 68 65 | 80.Return.the.last.x.in.LIST.whe |
| 8cc0 | 72 65 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 6c 73 65 20 6e 69 6c | re.(PRED.x).is.non-nil,.else.nil |
| 8ce0 | 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 6c | ...(fn.PRED.LIST)..(defalias.'-l |
| 8d00 | 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 | ast.#[514."\300.\301\300\211.\20 |
| 8d20 | 33 25 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c | 3%..\211A\262.\242\262..\262..T\ |
| 8d40 | 32 36 32 03 06 06 02 21 5c 32 30 33 05 00 01 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c | 262....!\203...\262.\202..\266.\ |
| 8d60 | 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 33 36 30 30 33 29 5d | 211\207".[nil.0].9.(#$...36003)] |
| 8d80 | 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#\ |
| 8da0 | 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 | 210\304\301\305\306#\210\304\301 |
| 8dc0 | 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 23 5c 32 | \307\310#\210\300\311\312\313#\2 |
| 8de0 | 31 30 5c 33 30 30 5c 33 31 34 5c 33 31 35 5c 33 31 36 21 5c 32 30 33 24 00 5c 33 31 36 5c 32 30 | 10\300\314\315\316!\203$.\316\20 |
| 8e00 | 32 25 00 5c 33 31 37 5c 33 32 30 23 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 66 69 72 | 2%.\317\320#\207".[defalias.-fir |
| 8e20 | 73 74 2d 69 74 65 6d 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 | st-item.car."Return.the.first.it |
| 8e40 | 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 6f 6e 20 61 6e 20 65 6d 70 74 79 20 6c | em.of.LIST,.or.nil.on.an.empty.l |
| 8e60 | 69 73 74 2e 5c 6e 5c 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 | ist.\n\nSee.also:.`-second-item' |
| 8e80 | 2c 20 60 2d 6c 61 73 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 | ,.`-last-item'.\n\n(fn.LIST)".pu |
| 8ea0 | 74 20 62 79 74 65 2d 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 | t.byte-opcode.byte-car.byte-comp |
| 8ec0 | 69 6c 65 20 62 79 74 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 | ile.byte-compile-one-arg.-second |
| 8ee0 | 2d 69 74 65 6d 20 63 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 | -item.cadr."Return.the.second.it |
| 8f00 | 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74 6f | em.of.LIST,.or.nil.if.LIST.is.to |
| 8f20 | 6f 20 73 68 6f 72 74 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 | o.short.\n\nSee.also:.`-third-it |
| 8f40 | 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 20 2d 74 68 69 72 64 2d 69 74 65 6d 20 66 | em'.\n\n(fn.LIST)".-third-item.f |
| 8f60 | 62 6f 75 6e 64 70 20 63 61 64 64 72 20 23 5b 32 35 37 20 22 5c 32 31 31 41 41 40 5c 32 30 37 22 | boundp.caddr.#[257."\211AA@\207" |
| 8f80 | 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 22 52 65 74 75 72 6e 20 74 | .[].2."\n\n(fn.LIST)"]."Return.t |
| 8fa0 | 68 65 20 74 68 69 72 64 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 | he.third.item.of.LIST,.or.nil.if |
| 8fc0 | 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e 5c 6e 5c 6e 53 65 65 20 61 6c 73 6f 3a | .LIST.is.too.short.\n\nSee.also: |
| 8fe0 | 20 60 2d 66 6f 75 72 74 68 2d 69 74 65 6d 27 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 20 | .`-fourth-item'.\n\n(fn.LIST)"]. |
| 9000 | 34 29 0a 23 40 39 39 20 52 65 74 75 72 6e 20 74 68 65 20 66 6f 75 72 74 68 20 69 74 65 6d 20 6f | 4).#@99.Return.the.fourth.item.o |
| 9020 | 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 | f.LIST,.or.nil.if.LIST.is.too.sh |
| 9040 | 6f 72 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 69 66 74 68 2d 69 74 65 6d 27 2e 0a 0a | ort...See.also:.`-fifth-item'... |
| 9060 | 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 6f 75 72 74 68 2d 69 74 | (fn.LIST)..(defalias.'-fourth-it |
| 9080 | 65 6d 20 23 5b 32 35 37 20 22 5c 32 31 31 41 41 41 40 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 | em.#[257."\211AAA@\207".[].2.(#$ |
| 90a0 | 20 2e 20 33 36 38 37 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 | ...36872)]).(byte-code."\300\301 |
| 90c0 | 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 32 | \302\303#\300\301\304\303#\300\2 |
| 90e0 | 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6f 75 72 74 68 2d 69 74 65 6d 20 70 | 07".[function-put.-fourth-item.p |
| 9100 | 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 39 37 20 | ure.t.side-effect-free].5).#@97. |
| 9120 | 52 65 74 75 72 6e 20 74 68 65 20 66 69 66 74 68 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f | Return.the.fifth.item.of.LIST,.o |
| 9140 | 72 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 2e 0a 0a 53 65 65 | r.nil.if.LIST.is.too.short...See |
| 9160 | 20 61 6c 73 6f 3a 20 60 2d 6c 61 73 74 2d 69 74 65 6d 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f | .also:.`-last-item'...(fn.LIST). |
| 9180 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 66 74 68 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c | .(defalias.'-fifth-item.#[257."\ |
| 91a0 | 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 33 37 31 35 32 29 5d | 211AAAA@\207".[].2.(#$...37152)] |
| 91c0 | 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#\ |
| 91e0 | 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 |
| 9200 | 69 6f 6e 2d 70 75 74 20 2d 66 69 66 74 68 2d 69 74 65 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d | ion-put.-fifth-item.pure.t.side- |
| 9220 | 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 72 6e 20 74 68 65 20 | effect-free].5).#@67.Return.the. |
| 9240 | 6c 61 73 74 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 2c 20 6f 72 20 6e 69 6c 20 6f 6e 20 61 6e 20 | last.item.of.LIST,.or.nil.on.an. |
| 9260 | 65 6d 70 74 79 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | empty.list...(fn.LIST)..(defalia |
| 9280 | 73 20 27 2d 6c 61 73 74 2d 69 74 65 6d 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 40 5c 32 30 37 | s.'-last-item.#[257."\300.!@\207 |
| 92a0 | 22 20 5b 6c 61 73 74 5d 20 33 20 28 23 24 20 2e 20 33 37 34 32 39 29 5d 29 0a 28 62 79 74 65 2d | ".[last].3.(#$...37429)]).(byte- |
| 92c0 | 63 6f 64 65 20 22 5c 33 30 33 5c 33 30 30 5c 33 30 34 5c 33 30 35 23 5c 33 30 33 5c 33 30 30 5c | code."\303\300\304\305#\303\300\ |
| 92e0 | 33 30 36 5c 33 30 35 23 5c 33 30 37 5c 33 31 30 21 5c 32 30 33 19 00 5c 33 30 33 5c 33 30 30 5c | 306\305#\307\310!\203..\303\300\ |
| 9300 | 33 31 31 5c 33 31 32 23 5c 32 31 30 5c 32 30 32 27 00 5c 33 31 33 08 5c 33 30 31 20 5c 33 30 32 | 311\312#\210\202'.\313.\301.\302 |
| 9320 | 20 5c 33 31 34 5c 33 31 35 09 44 5c 6e 45 24 5c 32 31 30 5c 33 30 33 5c 32 30 37 22 20 5b 2d 6c | .\314\315.D\nE$\210\303\207".[-l |
| 9340 | 61 73 74 2d 69 74 65 6d 20 78 20 76 61 6c 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 70 75 72 65 | ast-item.x.val.function-put.pure |
| 9360 | 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 66 62 6f 75 6e 64 70 20 67 76 2d 64 | .t.side-effect-free.fboundp.gv-d |
| 9380 | 65 66 69 6e 65 2d 73 65 74 74 65 72 20 67 76 2d 65 78 70 61 6e 64 65 72 20 23 5b 33 38 35 20 22 | efine-setter.gv-expander.#[385." |
| 93a0 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 24 5c 32 30 37 22 20 5b 67 76 2d 2d 64 65 66 73 65 74 | \300\301\302..$\207".[gv--defset |
| 93c0 | 74 65 72 20 2d 6c 61 73 74 2d 69 74 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 44 | ter.-last-item.#[514."\300\301.D |
| 93e0 | 03 45 5c 32 30 37 22 20 5b 73 65 74 63 61 72 20 6c 61 73 74 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e | .E\207".[setcar.last].5."\n\n(fn |
| 9400 | 20 56 41 4c 20 58 29 22 5d 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 44 4f 20 26 72 65 73 74 20 41 | .VAL.X)"]].7."\n\n(fn.DO.&rest.A |
| 9420 | 52 47 53 29 22 5d 20 64 65 66 73 65 74 66 20 73 65 74 63 61 72 20 6c 61 73 74 5d 20 39 29 0a 23 | RGS)"].defsetf.setcar.last].9).# |
| 9440 | 40 36 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 69 74 65 6d 73 20 69 | @68.Return.a.list.of.all.items.i |
| 9460 | 6e 20 6c 69 73 74 20 65 78 63 65 70 74 20 66 6f 72 20 74 68 65 20 6c 61 73 74 2e 0a 0a 28 66 6e | n.list.except.for.the.last...(fn |
| 9480 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 62 75 74 6c 61 73 74 20 23 5b 32 35 | .LIST)..(defalias.'-butlast.#[25 |
| 94a0 | 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 62 75 74 6c 61 73 74 5d 20 33 20 28 23 24 20 2e | 7."\300.!\207".[butlast].3.(#$.. |
| 94c0 | 20 33 37 39 35 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 | .37956)]).(byte-code."\300\301\3 |
| 94e0 | 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 |
| 9500 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 62 75 74 6c 61 73 74 20 70 75 72 65 20 74 20 | ".[function-put.-butlast.pure.t. |
| 9520 | 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 35 20 41 6e 61 70 68 6f | side-effect-free].5).#@45.Anapho |
| 9540 | 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 63 6f 75 6e 74 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 | ric.form.of.`-count'...(fn.PRED. |
| 9560 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 63 6f 75 6e 74 20 27 28 6d 61 63 72 | LIST)..(defalias.'--count.'(macr |
| 9580 | 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 5c 33 30 33 42 43 5c | o...#[514."\300\301!\302.\303BC\ |
| 95a0 | 33 30 34 04 5c 33 30 35 06 07 5c 33 30 36 06 07 5c 33 30 37 06 09 44 45 45 45 03 46 5c 32 30 37 | 304.\305..\306..\307..DEEE.F\207 |
| 95c0 | 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 6c 65 74 20 28 30 29 20 | ".[make-symbol."result".let.(0). |
| 95e0 | 2d 2d 65 61 63 68 20 77 68 65 6e 20 73 65 74 71 20 31 2b 5d 20 31 33 20 28 23 24 20 2e 20 33 38 | --each.when.setq.1+].13.(#$...38 |
| 9600 | 32 30 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 63 6f 75 6e 74 20 27 65 64 65 62 75 67 2d 66 6f | 202)])).(put.'--count.'edebug-fo |
| 9620 | 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 32 20 43 6f 75 6e 74 | rm-spec.'(form.form)).#@82.Count |
| 9640 | 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 77 68 | s.the.number.of.items.in.LIST.wh |
| 9660 | 65 72 65 20 28 50 52 45 44 20 69 74 65 6d 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e | ere.(PRED.item).is.non-nil...(fn |
| 9680 | 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 75 6e 74 20 23 | .PRED.LIST)..(defalias.'-count.# |
| 96a0 | 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 30 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 26 00 03 5c | [514."\300.\300\301\211.\203&..\ |
| 96c0 | 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 | 211A\262.\242\262..\262..T\262.. |
| 96e0 | 06 02 21 5c 32 30 33 05 00 04 54 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c | ..!\203...T\262.\202..\266.\211\ |
| 9700 | 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 33 38 34 35 39 29 5d 29 0a 23 40 | 207".[0.nil].9.(#$...38459)]).#@ |
| 9720 | 35 33 20 52 65 74 75 72 6e 20 4f 42 4a 20 61 73 20 61 20 62 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 | 53.Return.OBJ.as.a.boolean.value |
| 9740 | 20 28 74 20 6f 72 20 6e 69 6c 29 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 | .(t.or.nil)...(fn.OBJ)..(defalia |
| 9760 | 73 20 27 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 35 05 00 | s.'---truthy\?.#[257."\211\205.. |
| 9780 | 5c 33 30 30 5c 32 30 37 22 20 5b 74 5d 20 32 20 28 23 24 20 2e 20 33 38 36 39 31 29 5d 29 0a 28 | \300\207".[t].2.(#$...38691)]).( |
| 97a0 | 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 |
| 97c0 | 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 |
| 97e0 | 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 64 65 2d 65 66 66 | -put.---truthy\?.pure.t.side-eff |
| 9800 | 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 63 20 66 6f 72 6d | ect-free].5).#@44.Anaphoric.form |
| 9820 | 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 54 29 1f 0a 28 64 | .of.`-any?'...(fn.FORM.LIST)..(d |
| 9840 | 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 20 23 5b 35 31 34 | efalias.'--any\?.'(macro...#[514 |
| 9860 | 20 22 5c 33 30 30 5c 33 30 31 03 03 45 5c 33 30 32 42 42 5c 32 30 37 22 20 5b 61 6e 64 20 2d 2d | ."\300\301..E\302BB\207".[and.-- |
| 9880 | 73 6f 6d 65 20 28 74 29 5d 20 36 20 28 23 24 20 2e 20 33 38 39 33 30 29 5d 29 29 0a 28 70 75 74 | some.(t)].6.(#$...38930)])).(put |
| 98a0 | 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 20 27 28 66 6f | .'--any\?.'edebug-form-spec.'(fo |
| 98c0 | 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 20 28 50 52 45 | rm.form)).#@116.Return.t.if.(PRE |
| 98e0 | 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 6e 20 4c 49 53 | D.x).is.non-nil.for.any.x.in.LIS |
| 9900 | 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 70 27 2c 20 60 | T,.else.nil...Alias:.`-any-p',.` |
| 9920 | 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 44 20 4c 49 53 | -some?',.`-some-p'..(fn.PRED.LIS |
| 9940 | 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 20 22 5c 33 30 | T)..(defalias.'-any\?.#[514."\30 |
| 9960 | 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 33 00 04 5c 32 31 31 41 5c | 0.\301\300\211\211.\2033..\211A\ |
| 9980 | 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 | 262.\242\262..\262..\211\262.\20 |
| 99a0 | 33 33 00 06 07 02 21 5c 32 31 31 5c 32 36 32 07 5c 32 30 34 33 00 02 5c 32 36 32 02 03 5c 32 36 | 33....!\211\262.\2043..\262..\26 |
| 99c0 | 32 01 03 54 5c 32 36 32 04 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 | 2..T\262.\202..\266.\211\262.\20 |
| 99e0 | 35 3c 00 5c 33 30 32 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 74 5d 20 31 30 20 28 23 24 20 2e 20 | 5<.\302\207".[nil.0.t].10.(#$... |
| 9a00 | 33 39 31 32 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 | 39120)]).(byte-code."\300\301\30 |
| 9a20 | 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 | 2\"\210\300\303\304\"\210\300\30 |
| 9a40 | 35 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 | 5\302\"\210\300\306\304\"\210\30 |
| 9a60 | 30 5c 33 30 37 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 30 34 5c 22 5c 32 30 | 0\307\302\"\210\300\310\304\"\20 |
| 9a80 | 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 73 6f 6d 65 5c 3f 20 2d 61 6e 79 5c 3f 20 2d 2d 73 6f | 7".[defalias.-some\?.-any\?.--so |
| 9aa0 | 6d 65 5c 3f 20 2d 2d 61 6e 79 5c 3f 20 2d 61 6e 79 2d 70 20 2d 2d 61 6e 79 2d 70 20 2d 73 6f 6d | me\?.--any\?.-any-p.--any-p.-som |
| 9ac0 | 65 2d 70 20 2d 2d 73 6f 6d 65 2d 70 5d 20 33 29 0a 23 40 35 33 34 20 52 65 74 75 72 6e 20 74 20 | e-p.--some-p].3).#@534.Return.t. |
| 9ae0 | 69 66 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61 6c 6c | if.FORM.evals.to.non-nil.for.all |
| 9b00 | 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 6f 6e 63 65 20 | .items.in.LIST..Otherwise,.once. |
| 9b20 | 61 6e 20 69 74 65 6d 20 69 73 20 72 65 61 63 68 65 64 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 | an.item.is.reached.for.which.FOR |
| 9b40 | 4d 20 79 69 65 6c 64 73 20 6e 69 6c 2c 0a 72 65 74 75 72 6e 20 6e 69 6c 20 77 69 74 68 6f 75 74 | M.yields.nil,.return.nil.without |
| 9b60 | 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 20 66 6f 72 20 61 6e 79 20 66 75 72 74 68 65 72 | .evaluating.FORM.for.any.further |
| 9b80 | 20 4c 49 53 54 20 65 6c 65 6d 65 6e 74 73 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 | .LIST.elements..Each.element.of. |
| 9ba0 | 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e | LIST.in.turn.is.bound.to.`it'.an |
| 9bc0 | 64 20 69 74 73 20 69 6e 64 65 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 | d.its.index.within.LIST.to.`it-i |
| 9be0 | 6e 64 65 78 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 0a 0a 54 | ndex'.before.evaluating.FORM...T |
| 9c00 | 68 65 20 73 69 6d 69 6c 61 72 20 6d 61 63 72 6f 20 60 2d 2d 65 76 65 72 79 27 20 69 73 20 6d 6f | he.similar.macro.`--every'.is.mo |
| 9c20 | 72 65 20 77 69 64 65 6c 79 20 75 73 65 66 75 6c 2c 20 73 69 6e 63 65 20 69 74 0a 72 65 74 75 72 | re.widely.useful,.since.it.retur |
| 9c40 | 6e 73 20 74 68 65 20 6c 61 73 74 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 46 4f | ns.the.last.non-nil.result.of.FO |
| 9c60 | 52 4d 20 69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 74 20 6f 6e 0a 73 75 63 63 65 73 73 2e | RM.instead.of.just.t.on.success. |
| 9c80 | 0a 0a 41 6c 69 61 73 3a 20 60 2d 2d 61 6c 6c 2d 70 27 2c 20 60 2d 2d 65 76 65 72 79 2d 70 27 2c | ..Alias:.`--all-p',.`--every-p', |
| 9ca0 | 20 60 2d 2d 65 76 65 72 79 3f 27 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f | .`--every?'...This.is.the.anapho |
| 9cc0 | 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 61 6c 6c 3f 27 2e 0a 0a 28 66 6e | ric.counterpart.to.`-all?'...(fn |
| 9ce0 | 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 61 6c 6c 5c 3f 20 | .FORM.LIST)..(defalias.'--all\?. |
| 9d00 | 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 03 03 45 5c 33 30 32 | '(macro...#[514."\300\301..E\302 |
| 9d20 | 42 42 5c 32 30 37 22 20 5b 61 6e 64 20 2d 2d 65 76 65 72 79 20 28 74 29 5d 20 36 20 28 23 24 20 | BB\207".[and.--every.(t)].6.(#$. |
| 9d40 | 2e 20 33 39 36 33 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6c 6c 5c 3f 20 27 65 64 65 62 75 | ..39639)])).(put.'--all\?.'edebu |
| 9d60 | 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 34 33 31 20 | g-form-spec.'(form.form)).#@431. |
| 9d80 | 52 65 74 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 58 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 | Return.t.if.(PRED.X).is.non-nil. |
| 9da0 | 66 6f 72 20 61 6c 6c 20 58 20 69 6e 20 4c 49 53 54 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 49 6e 20 | for.all.X.in.LIST,.else.nil..In. |
| 9dc0 | 74 68 65 20 6c 61 74 74 65 72 20 63 61 73 65 2c 20 73 74 6f 70 20 61 66 74 65 72 20 74 68 65 20 | the.latter.case,.stop.after.the. |
| 9de0 | 66 69 72 73 74 20 58 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 20 58 29 20 69 73 0a 6e 69 | first.X.for.which.(PRED.X).is.ni |
| 9e00 | 6c 2c 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 20 50 52 45 44 20 6f 6e 20 61 6e 79 20 73 | l,.without.calling.PRED.on.any.s |
| 9e20 | 75 62 73 65 71 75 65 6e 74 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 54 68 65 | ubsequent.elements.of.LIST...The |
| 9e40 | 20 73 69 6d 69 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20 60 2d 65 76 65 72 79 27 20 69 73 20 6d 6f | .similar.function.`-every'.is.mo |
| 9e60 | 72 65 20 77 69 64 65 6c 79 20 75 73 65 66 75 6c 2c 20 73 69 6e 63 65 20 69 74 0a 72 65 74 75 72 | re.widely.useful,.since.it.retur |
| 9e80 | 6e 73 20 74 68 65 20 6c 61 73 74 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 6f 66 20 50 52 | ns.the.last.non-nil.result.of.PR |
| 9ea0 | 45 44 20 69 6e 73 74 65 61 64 20 6f 66 20 6a 75 73 74 20 74 20 6f 6e 0a 73 75 63 63 65 73 73 2e | ED.instead.of.just.t.on.success. |
| 9ec0 | 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 2d 70 27 2c 20 60 | ..Alias:.`-all-p',.`-every-p',.` |
| 9ee0 | 2d 65 76 65 72 79 3f 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 | -every?'...This.function's.anaph |
| 9f00 | 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 61 6c 6c 3f 27 2e 0a 0a 28 | oric.counterpart.is.`--all?'...( |
| 9f20 | 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 6c 6c 5c 3f | fn.PRED.LIST)..(defalias.'-all\? |
| 9f40 | 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 5c 32 31 31 5c 32 31 31 04 5c 32 | .#[514."\300.\301\302\211\211.\2 |
| 9f60 | 30 33 33 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c | 033..\211A\262.\242\262..\262..\ |
| 9f80 | 32 31 31 5c 32 36 32 02 5c 32 30 33 33 00 06 07 02 21 5c 32 31 31 5c 32 36 32 07 5c 32 30 33 33 | 211\262.\2033....!\211\262.\2033 |
| 9fa0 | 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 06 00 5c 32 36 36 05 5c | ..\262..\262..T\262.\202..\266.\ |
| 9fc0 | 32 31 31 5c 32 36 32 01 5c 32 30 35 3c 00 5c 33 30 30 5c 32 30 37 22 20 5b 74 20 30 20 6e 69 6c | 211\262.\205<.\300\207".[t.0.nil |
| 9fe0 | 5d 20 31 30 20 28 23 24 20 2e 20 34 30 33 32 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | ].10.(#$...40320)]).(byte-code." |
| a000 | 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 5c 22 | \300\301\302\"\210\300\303\304\" |
| a020 | 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 | \210\300\305\302\"\210\300\306\3 |
| a040 | 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 37 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 | 04\"\210\300\307\302\"\210\300\3 |
| a060 | 31 30 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 65 76 65 72 79 5c 3f | 10\304\"\207".[defalias.-every\? |
| a080 | 20 2d 61 6c 6c 5c 3f 20 2d 2d 65 76 65 72 79 5c 3f 20 2d 2d 61 6c 6c 5c 3f 20 2d 61 6c 6c 2d 70 | .-all\?.--every\?.--all\?.-all-p |
| a0a0 | 20 2d 2d 61 6c 6c 2d 70 20 2d 65 76 65 72 79 2d 70 20 2d 2d 65 76 65 72 79 2d 70 5d 20 33 29 0a | .--all-p.-every-p.--every-p].3). |
| a0c0 | 23 40 34 35 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6e 6f 6e 65 3f 27 2e | #@45.Anaphoric.form.of.`-none?'. |
| a0e0 | 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 6e | ..(fn.FORM.LIST)..(defalias.'--n |
| a100 | 6f 6e 65 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 | one\?.'(macro...#[514."\300\301. |
| a120 | 44 02 45 5c 32 30 37 22 20 5b 2d 2d 61 6c 6c 5c 3f 20 6e 6f 74 5d 20 35 20 28 23 24 20 2e 20 34 | D.E\207".[--all\?.not].5.(#$...4 |
| a140 | 31 31 35 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6e 6f 6e 65 5c 3f 20 27 65 64 65 62 75 67 2d | 1157)])).(put.'--none\?.'edebug- |
| a160 | 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 32 20 52 65 74 | form-spec.'(form.form)).#@92.Ret |
| a180 | 75 72 6e 20 74 20 69 66 20 28 50 52 45 44 20 78 29 20 69 73 20 6e 69 6c 20 66 6f 72 20 61 6c 6c | urn.t.if.(PRED.x).is.nil.for.all |
| a1a0 | 20 78 20 69 6e 20 4c 49 53 54 2c 20 65 6c 73 65 20 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d | .x.in.LIST,.else.nil...Alias:.`- |
| a1c0 | 6e 6f 6e 65 2d 70 27 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | none-p'..(fn.PRED.LIST)..(defali |
| a1e0 | 61 73 20 27 2d 6e 6f 6e 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 | as.'-none\?.#[514."\300.\301\302 |
| a200 | 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 34 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 | \211\211.\2034..\211A\262.\242\2 |
| a220 | 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 34 00 06 07 02 21 3f 5c 32 | 62..\262..\211\262.\2034....!?\2 |
| a240 | 31 31 5c 32 36 32 07 5c 32 30 33 34 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 | 11\262.\2034..\262..\262..T\262. |
| a260 | 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 35 3d 00 5c 33 30 30 5c 32 | \202..\266.\211\262.\205=.\300\2 |
| a280 | 30 37 22 20 5b 74 20 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 34 31 33 34 31 29 5d 29 0a | 07".[t.0.nil].10.(#$...41341)]). |
| a2a0 | 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 |
| a2c0 | 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 6e 6f 6e | 00\303\304\"\207".[defalias.-non |
| a2e0 | 65 2d 70 20 2d 6e 6f 6e 65 5c 3f 20 2d 2d 6e 6f 6e 65 2d 70 20 2d 2d 6e 6f 6e 65 5c 3f 5d 20 33 | e-p.-none\?.--none-p.--none\?].3 |
| a300 | 29 0a 23 40 35 30 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 6f 6e 6c 79 2d | ).#@50.Anaphoric.form.of.`-only- |
| a320 | 73 6f 6d 65 3f 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | some?'...(fn.FORM.LIST)..(defali |
| a340 | 61 73 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 | as.'--only-some\?.'(macro...#[51 |
| a360 | 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 33 02 02 44 5c 33 30 34 | 4."\300\301!\300\302!\303..D\304 |
| a380 | 05 5c 33 30 35 5c 33 30 36 06 07 06 07 45 44 5c 33 30 37 06 09 5c 33 31 30 06 09 5c 33 31 31 42 | .\305\306....ED\307..\310..\311B |
| a3a0 | 42 5c 33 31 30 06 09 5c 33 31 32 42 42 46 46 5c 33 31 33 5c 33 30 36 06 06 06 06 45 44 46 5c 32 | B\310..\312BBFF\313\306....EDF\2 |
| a3c0 | 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 79 65 73 22 20 22 6e 6f 22 20 6c 65 74 20 | 07".[make-symbol."yes"."no".let. |
| a3e0 | 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 6e 6f 74 20 61 6e 64 20 69 66 20 73 65 74 71 20 28 74 29 | --each-while.not.and.if.setq.(t) |
| a400 | 20 28 74 29 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 35 20 28 23 24 20 2e 20 34 31 37 33 35 | .(t).---truthy\?].15.(#$...41735 |
| a420 | 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 27 65 64 65 62 75 67 | )])).(put.'--only-some\?.'edebug |
| a440 | 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 34 30 20 52 | -form-spec.'(form.form)).#@240.R |
| a460 | 65 74 75 72 6e 20 60 74 60 20 69 66 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 69 74 65 6d 20 6f | eturn.`t`.if.at.least.one.item.o |
| a480 | 66 20 4c 49 53 54 20 6d 61 74 63 68 65 73 20 50 52 45 44 20 61 6e 64 20 61 74 20 6c 65 61 73 74 | f.LIST.matches.PRED.and.at.least |
| a4a0 | 20 6f 6e 65 20 69 74 65 6d 20 6f 66 20 4c 49 53 54 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 | .one.item.of.LIST.does.not.match |
| a4c0 | 20 50 52 45 44 2e 0a 52 65 74 75 72 6e 20 60 6e 69 6c 60 20 62 6f 74 68 20 69 66 20 61 6c 6c 20 | .PRED..Return.`nil`.both.if.all. |
| a4e0 | 69 74 65 6d 73 20 6d 61 74 63 68 20 74 68 65 20 70 72 65 64 69 63 61 74 65 20 6f 72 20 69 66 20 | items.match.the.predicate.or.if. |
| a500 | 6e 6f 6e 65 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 6d 61 74 63 68 20 74 68 65 20 70 72 65 64 | none.of.the.items.match.the.pred |
| a520 | 69 63 61 74 65 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 6f 6e 6c 79 2d 73 6f 6d 65 2d 70 27 0a 0a 28 | icate...Alias:.`-only-some-p'..( |
| a540 | 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 6f 6e 6c 79 2d | fn.PRED.LIST)..(defalias.'-only- |
| a560 | 73 6f 6d 65 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 33 30 31 5c 33 30 30 5c | some\?.#[514."\300\211.\301\300\ |
| a580 | 32 31 31 5c 32 31 31 04 5c 32 30 33 43 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 | 211\211.\203C..\211A\262.\242\26 |
| a5a0 | 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 43 00 06 06 5c 32 30 33 26 00 | 2..\262..\211\262.\203C...\203&. |
| a5c0 | 05 5c 32 30 34 43 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 06 08 02 21 5c 32 | .\204C..\262..\262..T\262....!\2 |
| a5e0 | 30 33 3d 00 5c 33 30 32 5c 32 36 32 07 5c 32 30 32 07 00 5c 33 30 32 5c 32 36 32 06 5c 32 30 32 | 03=.\302\262.\202..\302\262.\202 |
| a600 | 07 00 5c 32 36 36 05 5c 33 30 33 02 5c 32 30 35 4b 00 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 30 | ..\266.\303.\205K..!\207".[nil.0 |
| a620 | 20 74 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 5d 20 31 31 20 28 23 24 20 2e 20 34 32 30 37 39 29 5d | .t.---truthy\?].11.(#$...42079)] |
| a640 | 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 | ).(byte-code."\300\301\302\"\210 |
| a660 | 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 2d 6f | \300\303\304\"\207".[defalias.-o |
| a680 | 6e 6c 79 2d 73 6f 6d 65 2d 70 20 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 20 2d 2d 6f 6e 6c 79 2d 73 | nly-some-p.-only-some\?.--only-s |
| a6a0 | 6f 6d 65 2d 70 20 2d 2d 6f 6e 6c 79 2d 73 6f 6d 65 5c 3f 5d 20 33 29 0a 23 40 32 38 37 20 52 65 | ome-p.--only-some\?].3).#@287.Re |
| a6c0 | 74 75 72 6e 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 2c 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d | turn.copy.of.LIST,.starting.from |
| a6e0 | 20 69 6e 64 65 78 20 46 52 4f 4d 20 74 6f 20 69 6e 64 65 78 20 54 4f 2e 0a 0a 46 52 4f 4d 20 6f | .index.FROM.to.index.TO...FROM.o |
| a700 | 72 20 54 4f 20 6d 61 79 20 62 65 20 6e 65 67 61 74 69 76 65 2e 20 20 54 68 65 73 65 20 76 61 6c | r.TO.may.be.negative...These.val |
| a720 | 75 65 73 20 61 72 65 20 74 68 65 6e 20 69 6e 74 65 72 70 72 65 74 65 64 0a 6d 6f 64 75 6c 6f 20 | ues.are.then.interpreted.modulo. |
| a740 | 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6c 69 73 74 2e 0a 0a 49 66 20 53 54 45 50 | the.length.of.the.list...If.STEP |
| a760 | 20 69 73 20 61 20 6e 75 6d 62 65 72 2c 20 6f 6e 6c 79 20 65 61 63 68 20 53 54 45 50 74 68 20 69 | .is.a.number,.only.each.STEPth.i |
| a780 | 74 65 6d 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 0a 73 65 63 74 69 6f 6e 20 69 73 20 | tem.in.the.resulting.section.is. |
| a7a0 | 72 65 74 75 72 6e 65 64 2e 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 0a 0a 28 66 6e 20 4c | returned...Defaults.to.1...(fn.L |
| a7c0 | 49 53 54 20 46 52 4f 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 54 4f 20 53 54 45 50 29 1f 0a 28 64 65 | IST.FROM.&optional.TO.STEP)..(de |
| a7e0 | 66 61 6c 69 61 73 20 27 2d 73 6c 69 63 65 20 23 5b 31 30 32 36 20 22 03 47 5c 33 30 30 03 5c 32 | falias.'-slice.#[1026.".G\300.\2 |
| a800 | 30 36 08 00 01 5c 32 36 32 04 02 5c 32 30 36 0f 00 5c 33 30 31 5c 32 36 32 03 04 5c 33 30 32 57 | 06...\262..\206..\301\262..\302W |
| a820 | 5c 32 30 33 1d 00 5c 33 30 33 05 03 5c 22 5c 32 36 32 05 03 5c 33 30 32 57 5c 32 30 33 29 00 5c | \203..\303..\"\262..\302W\203).\ |
| a840 | 33 30 33 04 03 5c 22 5c 32 36 32 04 05 5c 33 30 32 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 | 303..\"\262..\302\300\211\211.\2 |
| a860 | 30 33 72 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c | 03r..\211A\262.\242\262..\262..\ |
| a880 | 32 31 31 5c 32 36 32 02 5c 32 30 33 72 00 5c 32 31 31 06 09 57 5c 32 30 33 72 00 02 5c 32 36 32 | 211\262.\203r.\211..W\203r..\262 |
| a8a0 | 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 31 31 06 5c 6e 59 5c 32 30 33 2e 00 5c 33 30 33 | ..\262..T\262.\211.\nY\203..\303 |
| a8c0 | 06 5c 6e 02 5a 06 09 5c 22 5c 33 30 32 55 5c 32 30 33 2e 00 01 06 06 42 5c 32 36 32 06 5c 32 30 | .\n.Z..\"\302U\203.....B\262.\20 |
| a8e0 | 32 2e 00 5c 32 36 36 05 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 31 20 30 20 6d | 2..\266.\211\237\207".[nil.1.0.m |
| a900 | 6f 64 5d 20 31 34 20 28 23 24 20 2e 20 34 32 36 38 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | od].14.(#$...42686)]).(byte-code |
| a920 | 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\ |
| a940 | 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 73 6c 69 | 303#\300\207".[function-put.-sli |
| a960 | 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 35 29 0a 23 | ce.pure.t.side-effect-free].5).# |
| a980 | 40 33 35 30 20 54 61 6b 65 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d 73 20 66 72 6f 6d 20 | @350.Take.successive.items.from. |
| a9a0 | 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e | LIST.for.which.FORM.evals.to.non |
| a9c0 | 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 | -nil..Each.element.of.LIST.in.tu |
| a9e0 | 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 | rn.is.bound.to.`it'.and.its.inde |
| aa00 | 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f | x.within.LIST.to.`it-index'.befo |
| aa20 | 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 52 65 74 75 72 6e 20 61 20 6e 65 | re.evaluating.FORM...Return.a.ne |
| aa40 | 77 0a 6c 69 73 74 20 6f 66 20 74 68 65 20 73 75 63 63 65 73 73 69 76 65 20 65 6c 65 6d 65 6e 74 | w.list.of.the.successive.element |
| aa60 | 73 20 66 72 6f 6d 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 4c 49 53 54 20 66 6f 72 20 77 68 69 | s.from.the.start.of.LIST.for.whi |
| aa80 | 63 68 0a 46 4f 52 4d 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e 0a 54 68 | ch.FORM.evaluates.to.non-nil..Th |
| aaa0 | 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 | is.is.the.anaphoric.counterpart. |
| aac0 | 74 6f 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 49 53 54 | to.`-take-while'...(fn.FORM.LIST |
| aae0 | 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 6d 61 63 | )..(defalias.'--take-while.'(mac |
| ab00 | 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 43 5c 33 30 33 04 | ro...#[514."\300\301!\302.C\303. |
| ab20 | 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 61 6b 65 | ..\304\305..EF\306.DF\207".[make |
| ab40 | 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 68 69 6c | -symbol."result".let.--each-whil |
| ab60 | 65 20 70 75 73 68 20 69 74 20 6e 72 65 76 65 72 73 65 5d 20 31 31 20 28 23 24 20 2e 20 34 33 33 | e.push.it.nreverse].11.(#$...433 |
| ab80 | 39 37 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 64 65 62 75 | 97)])).(put.'--take-while.'edebu |
| aba0 | 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 33 32 32 20 | g-form-spec.'(form.form)).#@322. |
| abc0 | 54 61 6b 65 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d 73 20 66 72 6f 6d 20 4c 49 53 54 20 | Take.successive.items.from.LIST. |
| abe0 | 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a | for.which.PRED.returns.non-nil.. |
| ac00 | 50 52 45 44 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 | PRED.is.a.function.of.one.argume |
| ac20 | 6e 74 2e 20 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 0a 73 75 | nt...Return.a.new.list.of.the.su |
| ac40 | 63 63 65 73 73 69 76 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 74 68 65 20 73 74 61 72 74 | ccessive.elements.from.the.start |
| ac60 | 20 6f 66 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 0a | .of.LIST.for.which.PRED.returns. |
| ac80 | 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f | non-nil...This.function's.anapho |
| aca0 | 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 | ric.counterpart.is.`--take-while |
| acc0 | 27 2e 0a 0a 46 6f 72 20 61 6e 6f 74 68 65 72 20 76 61 72 69 61 6e 74 2c 20 73 65 65 20 61 6c 73 | '...For.another.variant,.see.als |
| ace0 | 6f 20 60 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 | o.`-drop-while'...(fn.PRED.LIST) |
| ad00 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d 77 68 69 6c 65 20 23 5b 35 31 34 20 22 | ..(defalias.'-take-while.#[514." |
| ad20 | 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 36 00 04 5c 32 31 | \300.\301\300\211\211.\2036..\21 |
| ad40 | 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 | 1A\262.\242\262..\262..\211\262. |
| ad60 | 5c 32 30 33 36 00 06 07 02 21 5c 32 30 33 36 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 | \2036....!\2036..\262..\262..T\2 |
| ad80 | 36 32 04 01 06 06 42 5c 32 36 32 06 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 33 37 5c | 62....B\262.\202..\266.\211\237\ |
| ada0 | 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 34 33 39 36 38 29 5d 29 0a 23 | 207".[nil.0].10.(#$...43968)]).# |
| adc0 | 40 33 34 37 20 44 72 6f 70 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d 73 20 66 72 6f 6d 20 | @347.Drop.successive.items.from. |
| ade0 | 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 73 20 74 6f 20 6e 6f 6e | LIST.for.which.FORM.evals.to.non |
| ae00 | 2d 6e 69 6c 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 | -nil..Each.element.of.LIST.in.tu |
| ae20 | 72 6e 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 61 6e 64 20 69 74 73 20 69 6e 64 65 | rn.is.bound.to.`it'.and.its.inde |
| ae40 | 78 0a 77 69 74 68 69 6e 20 4c 49 53 54 20 74 6f 20 60 69 74 2d 69 6e 64 65 78 27 20 62 65 66 6f | x.within.LIST.to.`it-index'.befo |
| ae60 | 72 65 20 65 76 61 6c 75 61 74 69 6e 67 20 46 4f 52 4d 2e 20 20 52 65 74 75 72 6e 20 74 68 65 0a | re.evaluating.FORM...Return.the. |
| ae80 | 74 61 69 6c 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 20 6f 66 20 4c 49 53 54 20 73 74 61 72 74 69 | tail.(not.a.copy).of.LIST.starti |
| aea0 | 6e 67 20 66 72 6f 6d 20 69 74 73 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 66 6f 72 0a 77 68 | ng.from.its.first.element.for.wh |
| aec0 | 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 69 6c 2e 0a 54 68 69 73 20 | ich.FORM.evaluates.to.nil..This. |
| aee0 | 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 74 6f 20 | is.the.anaphoric.counterpart.to. |
| af00 | 60 2d 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a | `-drop-while'...(fn.FORM.LIST).. |
| af20 | 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 20 27 28 6d 61 63 72 6f 20 | (defalias.'--drop-while.'(macro. |
| af40 | 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 03 44 43 5c 33 30 33 03 06 | ..#[514."\300\301!\302..DC\303.. |
| af60 | 06 5c 33 30 34 06 06 44 46 03 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c | .\304..DF.F\207".[make-symbol."l |
| af80 | 69 73 74 22 20 6c 65 74 20 2d 2d 65 61 63 68 2d 77 68 69 6c 65 20 70 6f 70 5d 20 31 30 20 28 23 | ist".let.--each-while.pop].10.(# |
| afa0 | 24 20 2e 20 34 34 34 38 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 | $...44485)])).(put.'--drop-while |
| afc0 | 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)) |
| afe0 | 0a 23 40 33 31 39 20 44 72 6f 70 20 73 75 63 63 65 73 73 69 76 65 20 69 74 65 6d 73 20 66 72 6f | .#@319.Drop.successive.items.fro |
| b000 | 6d 20 4c 49 53 54 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f | m.LIST.for.which.PRED.returns.no |
| b020 | 6e 2d 6e 69 6c 2e 0a 50 52 45 44 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6f 6e 65 | n-nil..PRED.is.a.function.of.one |
| b040 | 20 61 72 67 75 6d 65 6e 74 2e 20 20 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 6c 20 28 6e 6f 74 | .argument...Return.the.tail.(not |
| b060 | 20 61 20 63 6f 70 79 29 0a 6f 66 20 4c 49 53 54 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 69 | .a.copy).of.LIST.starting.from.i |
| b080 | 74 73 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 | ts.first.element.for.which.PRED. |
| b0a0 | 72 65 74 75 72 6e 73 0a 6e 69 6c 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e | returns.nil...This.function's.an |
| b0c0 | 61 70 68 6f 72 69 63 20 63 6f 75 6e 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 64 72 6f 70 2d 77 | aphoric.counterpart.is.`--drop-w |
| b0e0 | 68 69 6c 65 27 2e 0a 0a 46 6f 72 20 61 6e 6f 74 68 65 72 20 76 61 72 69 61 6e 74 2c 20 73 65 65 | hile'...For.another.variant,.see |
| b100 | 20 61 6c 73 6f 20 60 2d 74 61 6b 65 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c | .also.`-take-while'...(fn.PRED.L |
| b120 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 72 6f 70 2d 77 68 69 6c 65 20 23 5b 35 | IST)..(defalias.'-drop-while.#[5 |
| b140 | 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 33 30 30 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 | 14."\211\211\300\301\211\211.\20 |
| b160 | 33 36 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 | 36..\211A\262.\242\262..\262..\2 |
| b180 | 31 31 5c 32 36 32 02 5c 32 30 33 36 00 06 07 02 21 5c 32 30 33 36 00 02 5c 32 36 32 02 03 5c 32 | 11\262.\2036....!\2036..\262..\2 |
| b1a0 | 36 32 01 03 54 5c 32 36 32 04 05 5c 32 31 31 41 5c 32 36 32 07 5c 32 31 30 5c 32 30 32 06 00 5c | 62..T\262..\211A\262.\210\202..\ |
| b1c0 | 32 36 36 05 5c 32 31 31 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 34 | 266.\211\207".[0.nil].10.(#$...4 |
| b1e0 | 35 30 33 31 29 5d 29 0a 23 40 31 37 31 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 74 | 5031)]).#@171.Return.a.copy.of.t |
| b200 | 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e | he.first.N.items.in.LIST..Return |
| b220 | 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 69 66 20 69 74 20 63 6f 6e 74 61 69 6e 73 20 4e | .a.copy.of.LIST.if.it.contains.N |
| b240 | 20 69 74 65 6d 73 20 6f 72 20 66 65 77 65 72 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4e | .items.or.fewer..Return.nil.if.N |
| b260 | 20 69 73 20 7a 65 72 6f 20 6f 72 20 6c 65 73 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 | .is.zero.or.less...See.also:.`-t |
| b280 | 61 6b 65 2d 6c 61 73 74 27 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | ake-last'...(fn.N.LIST)..(defali |
| b2a0 | 61 73 20 27 2d 74 61 6b 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 | as.'-take.#[514."\300.\301\300\2 |
| b2c0 | 31 31 5c 32 31 31 04 5c 32 30 33 36 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 | 11\211.\2036..\211A\262.\242\262 |
| b2e0 | 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 36 00 5c 32 31 31 06 08 57 5c 32 | ..\262..\211\262.\2036.\211..W\2 |
| b300 | 30 33 36 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 | 036..\262..\262..T\262....B\262. |
| b320 | 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d | \202..\266.\211\237\207".[nil.0] |
| b340 | 20 31 30 20 28 23 24 20 2e 20 34 35 35 35 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | .10.(#$...45550)]).(byte-code."\ |
| b360 | 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 |
| b380 | 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 74 61 6b 65 20 70 | #\300\207".[function-put.-take.p |
| b3a0 | 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 31 37 34 | ure.t.side-effect-free].5).#@174 |
| b3c0 | 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 6c 61 73 74 20 4e 20 69 74 65 | .Return.a.copy.of.the.last.N.ite |
| b3e0 | 6d 73 20 6f 66 20 4c 49 53 54 20 69 6e 20 6f 72 64 65 72 2e 0a 52 65 74 75 72 6e 20 61 20 63 6f | ms.of.LIST.in.order..Return.a.co |
| b400 | 70 79 20 6f 66 20 4c 49 53 54 20 69 66 20 69 74 20 63 6f 6e 74 61 69 6e 73 20 4e 20 69 74 65 6d | py.of.LIST.if.it.contains.N.item |
| b420 | 73 20 6f 72 20 66 65 77 65 72 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4e 20 69 73 20 7a | s.or.fewer..Return.nil.if.N.is.z |
| b440 | 65 72 6f 20 6f 72 20 6c 65 73 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 6b 65 27 2e | ero.or.less...See.also:.`-take'. |
| b460 | 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 6b 65 2d | ..(fn.N.LIST)..(defalias.'-take- |
| b480 | 6c 61 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 04 5c 22 21 5c 32 30 37 22 20 5b | last.#[514."\300\301..\"!\207".[ |
| b4a0 | 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 5d 20 36 20 28 23 24 20 2e 20 34 36 30 31 | copy-sequence.last].6.(#$...4601 |
| b4c0 | 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 30 | 7)]).(byte-code."\300\301\302\30 |
| b4e0 | 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 36 5c 33 30 37 5c | 3#\300\301\304\303#\305\306\307\ |
| b500 | 33 31 30 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 74 61 6b 65 2d 6c 61 | 310#\207".[function-put.-take-la |
| b520 | 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 20 64 65 66 61 6c | st.pure.t.side-effect-free.defal |
| b540 | 69 61 73 20 2d 64 72 6f 70 20 6e 74 68 63 64 72 20 22 52 65 74 75 72 6e 20 74 68 65 20 74 61 69 | ias.-drop.nthcdr."Return.the.tai |
| b560 | 6c 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 20 6f 66 20 4c 49 53 54 20 77 69 74 68 6f 75 74 20 74 | l.(not.a.copy).of.LIST.without.t |
| b580 | 68 65 20 66 69 72 73 74 20 4e 20 69 74 65 6d 73 2e 5c 6e 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 | he.first.N.items.\nReturn.nil.if |
| b5a0 | 20 4c 49 53 54 20 63 6f 6e 74 61 69 6e 73 20 4e 20 69 74 65 6d 73 20 6f 72 20 66 65 77 65 72 2e | .LIST.contains.N.items.or.fewer. |
| b5c0 | 5c 6e 52 65 74 75 72 6e 20 4c 49 53 54 20 69 66 20 4e 20 69 73 20 7a 65 72 6f 20 6f 72 20 6c 65 | \nReturn.LIST.if.N.is.zero.or.le |
| b5e0 | 73 73 2e 5c 6e 5c 6e 46 6f 72 20 61 6e 6f 74 68 65 72 20 76 61 72 69 61 6e 74 2c 20 73 65 65 20 | ss.\n\nFor.another.variant,.see. |
| b600 | 61 6c 73 6f 20 60 2d 64 72 6f 70 2d 6c 61 73 74 27 2e 5c 6e 5c 6e 28 66 6e 20 4e 20 4c 49 53 54 | also.`-drop-last'.\n\n(fn.N.LIST |
| b620 | 29 22 5d 20 36 29 0a 23 40 31 37 32 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 | )"].6).#@172.Return.a.copy.of.LI |
| b640 | 53 54 20 77 69 74 68 6f 75 74 20 69 74 73 20 6c 61 73 74 20 4e 20 69 74 65 6d 73 2e 0a 52 65 74 | ST.without.its.last.N.items..Ret |
| b660 | 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 4c 49 53 54 20 69 66 20 4e 20 69 73 20 7a 65 72 6f 20 | urn.a.copy.of.LIST.if.N.is.zero. |
| b680 | 6f 72 20 6c 65 73 73 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4c 49 53 54 20 63 6f 6e 74 | or.less..Return.nil.if.LIST.cont |
| b6a0 | 61 69 6e 73 20 4e 20 69 74 65 6d 73 20 6f 72 20 66 65 77 65 72 2e 0a 0a 53 65 65 20 61 6c 73 6f | ains.N.items.or.fewer...See.also |
| b6c0 | 3a 20 60 2d 64 72 6f 70 27 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | :.`-drop'...(fn.N.LIST)..(defali |
| b6e0 | 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 5c 33 30 31 02 21 | as.'-drop-last.#[514."\300\301.! |
| b700 | 03 5c 22 5c 32 30 37 22 20 5b 6e 62 75 74 6c 61 73 74 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 | .\"\207".[nbutlast.copy-sequence |
| b720 | 5d 20 35 20 28 23 24 20 2e 20 34 36 36 33 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].5.(#$...46637)]).(byte-code."\ |
| b740 | 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 |
| b760 | 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 64 72 6f 70 2d 6c | #\300\207".[function-put.-drop-l |
| b780 | 61 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a | ast.pure.t.side-effect-free].5). |
| b7a0 | 23 40 33 35 34 20 53 70 6c 69 74 20 4c 49 53 54 20 69 6e 74 6f 20 74 77 6f 20 73 75 62 6c 69 73 | #@354.Split.LIST.into.two.sublis |
| b7c0 | 74 73 20 61 66 74 65 72 20 74 68 65 20 4e 74 68 20 65 6c 65 6d 65 6e 74 2e 0a 54 68 65 20 72 65 | ts.after.the.Nth.element..The.re |
| b7e0 | 73 75 6c 74 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 28 | sult.is.a.list.of.two.elements.( |
| b800 | 54 41 4b 45 20 44 52 4f 50 29 20 77 68 65 72 65 20 54 41 4b 45 20 69 73 20 61 0a 6e 65 77 20 6c | TAKE.DROP).where.TAKE.is.a.new.l |
| b820 | 69 73 74 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 4e 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c | ist.of.the.first.N.elements.of.L |
| b840 | 49 53 54 2c 20 61 6e 64 20 44 52 4f 50 20 69 73 20 74 68 65 0a 72 65 6d 61 69 6e 69 6e 67 20 65 | IST,.and.DROP.is.the.remaining.e |
| b860 | 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 2e 20 20 54 | lements.of.LIST.(not.a.copy)...T |
| b880 | 41 4b 45 20 61 6e 64 20 44 52 4f 50 20 61 72 65 20 6c 69 6b 65 0a 74 68 65 20 72 65 73 75 6c 74 | AKE.and.DROP.are.like.the.result |
| b8a0 | 73 20 6f 66 20 60 2d 74 61 6b 65 27 20 61 6e 64 20 60 2d 64 72 6f 70 27 2c 20 72 65 73 70 65 63 | s.of.`-take'.and.`-drop',.respec |
| b8c0 | 74 69 76 65 6c 79 2c 20 62 75 74 20 74 68 65 20 73 70 6c 69 74 0a 69 73 20 64 6f 6e 65 20 69 6e | tively,.but.the.split.is.done.in |
| b8e0 | 20 61 20 73 69 6e 67 6c 65 20 6c 69 73 74 20 74 72 61 76 65 72 73 61 6c 2e 0a 0a 28 66 6e 20 4e | .a.single.list.traversal...(fn.N |
| b900 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 61 74 20 23 5b 35 | .LIST)..(defalias.'-split-at.#[5 |
| b920 | 31 34 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 3c 00 | 14."\300.\301\300\211\211.\203<. |
| b940 | 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c | .\211A\262.\242\262..\262..\211\ |
| b960 | 32 36 32 02 5c 32 30 33 3c 00 5c 32 31 31 06 08 57 5c 32 30 33 3c 00 02 5c 32 36 32 02 03 5c 32 | 262.\203<.\211..W\203<..\262..\2 |
| b980 | 36 32 01 03 54 5c 32 36 32 04 06 06 5c 32 31 31 41 5c 32 36 32 08 5c 32 34 32 06 06 42 5c 32 36 | 62..T\262...\211A\262.\242..B\26 |
| b9a0 | 32 06 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 33 37 02 44 5c 32 30 37 22 20 5b 6e 69 | 2.\202..\266.\211\237.D\207".[ni |
| b9c0 | 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 34 37 30 31 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | l.0].10.(#$...47014)]).(byte-cod |
| b9e0 | 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 30 34 | e."\300\301\302\303#\300\301\304 |
| ba00 | 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 73 70 | \303#\300\207".[function-put.-sp |
| ba20 | 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 2d 66 72 65 65 5d 20 | lit-at.pure.t.side-effect-free]. |
| ba40 | 35 29 0a 23 40 31 30 32 20 52 6f 74 61 74 65 20 4c 49 53 54 20 4e 20 70 6c 61 63 65 73 20 74 6f | 5).#@102.Rotate.LIST.N.places.to |
| ba60 | 20 74 68 65 20 72 69 67 68 74 20 28 6c 65 66 74 20 69 66 20 4e 20 69 73 20 6e 65 67 61 74 69 76 | .the.right.(left.if.N.is.negativ |
| ba80 | 65 29 2e 0a 54 68 65 20 74 69 6d 65 20 63 6f 6d 70 6c 65 78 69 74 79 20 69 73 20 4f 28 6e 29 2e | e)..The.time.complexity.is.O(n). |
| baa0 | 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 6f 74 61 74 | ..(fn.N.LIST)..(defalias.'-rotat |
| bac0 | 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 01 5c 33 30 31 | e.#[514."\211\204..\300\207.\301 |
| bae0 | 55 5c 32 30 33 10 00 5c 33 30 32 01 21 5c 32 30 37 5c 32 31 31 47 5c 33 30 33 03 02 5c 22 01 01 | U\203..\302.!\207\211G\303..\".. |
| bb00 | 5a 5c 33 30 34 01 05 5c 32 33 33 5c 33 30 35 03 06 07 5c 22 5c 22 5c 32 30 37 22 20 5b 6e 69 6c | Z\304..\233\305...\"\"\207".[nil |
| bb20 | 20 30 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6d 6f 64 20 61 70 70 65 6e 64 20 2d 74 61 6b | .0.copy-sequence.mod.append.-tak |
| bb40 | 65 5d 20 31 30 20 28 23 24 20 2e 20 34 37 36 38 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | e].10.(#$...47689)]).(byte-code. |
| bb60 | 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 |
| bb80 | 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 72 6f 74 61 | 03#\300\207".[function-put.-rota |
| bba0 | 74 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 35 29 0a 23 | te.pure.t.side-effect-free].5).# |
| bbc0 | 40 31 30 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 58 20 69 6e 73 65 72 74 | @108.Return.a.list.with.X.insert |
| bbe0 | 65 64 20 69 6e 74 6f 20 4c 49 53 54 20 61 74 20 70 6f 73 69 74 69 6f 6e 20 4e 2e 0a 0a 53 65 65 | ed.into.LIST.at.position.N...See |
| bc00 | 20 61 6c 73 6f 3a 20 60 2d 73 70 6c 69 63 65 27 2c 20 60 2d 73 70 6c 69 63 65 2d 6c 69 73 74 27 | .also:.`-splice',.`-splice-list' |
| bc20 | 0a 0a 28 66 6e 20 4e 20 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 73 | ..(fn.N.X.LIST)..(defalias.'-ins |
| bc40 | 65 72 74 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 02 5c 22 5c 32 31 31 40 03 02 41 40 42 | ert-at.#[771."\300..\"\211@..A@B |
| bc60 | 5c 32 34 34 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 34 38 | \244\207".[-split-at].7.(#$...48 |
| bc80 | 30 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 | 069)]).(byte-code."\300\301\302\ |
| bca0 | 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".[ |
| bcc0 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e 73 65 72 74 2d 61 74 20 70 75 72 65 20 74 20 73 | function-put.-insert-at.pure.t.s |
| bce0 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 30 36 20 52 65 74 75 72 6e | ide-effect-free].5).#@106.Return |
| bd00 | 20 61 20 6c 69 73 74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e 74 68 20 70 6f 73 69 | .a.list.with.element.at.Nth.posi |
| bd20 | 74 69 6f 6e 20 69 6e 20 4c 49 53 54 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 58 2e 0a 0a 53 | tion.in.LIST.replaced.with.X...S |
| bd40 | 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 70 6c 61 63 65 27 0a 0a 28 66 6e 20 4e 20 58 20 4c 49 53 | ee.also:.`-replace'..(fn.N.X.LIS |
| bd60 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 70 6c 61 63 65 2d 61 74 20 23 5b 37 37 31 | T)..(defalias.'-replace-at.#[771 |
| bd80 | 20 22 5c 33 30 30 03 02 5c 22 5c 32 31 31 40 03 02 41 40 41 42 5c 32 34 34 5c 32 30 37 22 20 5b | ."\300..\"\211@..A@AB\244\207".[ |
| bda0 | 2d 73 70 6c 69 74 2d 61 74 5d 20 37 20 28 23 24 20 2e 20 34 38 33 37 38 29 5d 29 0a 28 62 79 74 | -split-at].7.(#$...48378)]).(byt |
| bdc0 | 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 |
| bde0 | 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 |
| be00 | 74 20 2d 72 65 70 6c 61 63 65 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 | t.-replace-at.pure.t.side-effect |
| be20 | 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 33 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 | -free].5).#@130.Return.a.list.wi |
| be40 | 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 4c 49 | th.element.at.Nth.position.in.LI |
| be60 | 53 54 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 60 28 66 75 6e 63 20 28 6e 74 68 20 6e 20 6c | ST.replaced.with.`(func.(nth.n.l |
| be80 | 69 73 74 29 29 60 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6d 61 70 2d 77 68 65 6e 27 0a 0a | ist))`...See.also:.`-map-when'.. |
| bea0 | 28 66 6e 20 4e 20 46 55 4e 43 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 70 | (fn.N.FUNC.LIST)..(defalias.'-up |
| bec0 | 64 61 74 65 2d 61 74 20 23 5b 37 37 31 20 22 5c 33 30 30 03 02 5c 22 5c 32 31 31 40 03 02 41 40 | date-at.#[771."\300..\"\211@..A@ |
| bee0 | 40 21 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 20 28 | @!.A@AB\244\207".[-split-at].7.( |
| bf00 | 23 24 20 2e 20 34 38 36 38 38 29 5d 29 0a 23 40 35 34 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 | #$...48688)]).#@54.Anaphoric.ver |
| bf20 | 73 69 6f 6e 20 6f 66 20 60 2d 75 70 64 61 74 65 2d 61 74 27 2e 0a 0a 28 66 6e 20 4e 20 46 4f 52 | sion.of.`-update-at'...(fn.N.FOR |
| bf40 | 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 75 70 64 61 74 65 2d 61 74 20 | M.LIST)..(defalias.'--update-at. |
| bf60 | 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c 33 30 30 03 5c 33 30 31 5c 33 30 32 05 45 | '(macro...#[771."\300.\301\302.E |
| bf80 | 03 46 5c 32 30 37 22 20 5b 2d 75 70 64 61 74 65 2d 61 74 20 6c 61 6d 62 64 61 20 28 69 74 29 5d | .F\207".[-update-at.lambda.(it)] |
| bfa0 | 20 38 20 28 23 24 20 2e 20 34 38 39 31 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 75 70 64 61 74 | .8.(#$...48915)])).(put.'--updat |
| bfc0 | 65 2d 61 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 64 65 | e-at.'edebug-form-spec.'(form.de |
| bfe0 | 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 31 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 | f-form.form)).#@117.Return.a.lis |
| c000 | 74 20 77 69 74 68 20 65 6c 65 6d 65 6e 74 20 61 74 20 4e 74 68 20 70 6f 73 69 74 69 6f 6e 20 69 | t.with.element.at.Nth.position.i |
| c020 | 6e 20 4c 49 53 54 20 72 65 6d 6f 76 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d | n.LIST.removed...See.also:.`-rem |
| c040 | 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 27 2c 20 60 2d 72 65 6d 6f 76 65 27 0a 0a 28 66 6e 20 | ove-at-indices',.`-remove'..(fn. |
| c060 | 4e 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 61 74 20 23 | N.LIST)..(defalias.'-remove-at.# |
| c080 | 5b 35 31 34 20 22 5c 33 30 30 02 43 02 5c 22 5c 32 30 37 22 20 5b 2d 72 65 6d 6f 76 65 2d 61 74 | [514."\300.C.\"\207".[-remove-at |
| c0a0 | 2d 69 6e 64 69 63 65 73 5d 20 35 20 28 23 24 20 2e 20 34 39 31 34 30 29 5d 29 0a 28 62 79 74 65 | -indices].5.(#$...49140)]).(byte |
| c0c0 | 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 |
| c0e0 | 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 |
| c100 | 20 2d 72 65 6d 6f 76 65 2d 61 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | .-remove-at.pure.t.side-effect-f |
| c120 | 72 65 65 5d 20 35 29 0a 23 40 31 37 35 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 68 6f 73 | ree].5).#@175.Return.a.list.whos |
| c140 | 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 | e.elements.are.elements.from.LIS |
| c160 | 54 20 77 69 74 68 6f 75 74 0a 65 6c 65 6d 65 6e 74 73 20 73 65 6c 65 63 74 65 64 20 61 73 20 60 | T.without.elements.selected.as.` |
| c180 | 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f 72 20 61 6c 6c 20 69 0a 66 72 6f 6d 20 49 4e 44 | (nth.i.list)`.for.all.i.from.IND |
| c1a0 | 49 43 45 53 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 72 65 6d 6f 76 65 2d 61 74 27 2c 20 60 | ICES...See.also:.`-remove-at',.` |
| c1c0 | 2d 72 65 6d 6f 76 65 27 0a 0a 28 66 6e 20 49 4e 44 49 43 45 53 20 4c 49 53 54 29 1f 0a 28 64 65 | -remove'..(fn.INDICES.LIST)..(de |
| c1e0 | 66 61 6c 69 61 73 20 27 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 | falias.'-remove-at-indices.#[514 |
| c200 | 20 22 5c 33 30 30 5c 33 30 31 03 5c 22 5c 32 31 31 40 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 | ."\300\301.\"\211@\302\303\304\3 |
| c220 | 30 35 05 41 06 06 23 5c 22 42 5c 33 30 36 01 5c 33 30 37 5c 33 30 36 5c 32 31 31 03 5c 32 30 33 | 05.A..#\"B\306.\307\306\211.\203 |
| c240 | 3f 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 | ?..\211A\262.\242\262..\262..T\2 |
| c260 | 36 32 03 5c 33 31 30 02 06 09 5c 22 5c 32 31 31 40 06 06 42 5c 32 36 32 06 5c 32 31 31 41 40 41 | 62.\310...\"\211@..B\262.\211A@A |
| c280 | 5c 32 36 32 09 5c 32 31 30 5c 32 30 32 16 00 5c 32 36 36 04 03 01 42 5c 32 36 32 01 5c 33 31 31 | \262.\210\202..\266...B\262.\311 |
| c2a0 | 5c 33 31 32 02 5c 32 33 37 5c 22 5c 32 30 37 22 20 5b 2d 73 6f 72 74 20 3c 20 2d 6d 61 70 20 31 | \312.\237\"\207".[-sort.<.-map.1 |
| c2c0 | 2d 20 2d 7a 69 70 2d 77 69 74 68 20 2d 20 6e 69 6c 20 30 20 2d 73 70 6c 69 74 2d 61 74 20 61 70 | -.-zip-with.-.nil.0.-split-at.ap |
| c2e0 | 70 6c 79 20 2d 63 6f 6e 63 61 74 5d 20 31 32 20 28 23 24 20 2e 20 34 39 34 35 34 29 5d 29 0a 28 | ply.-concat].12.(#$...49454)]).( |
| c300 | 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 |
| c320 | 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 |
| c340 | 2d 70 75 74 20 2d 72 65 6d 6f 76 65 2d 61 74 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 | -put.-remove-at-indices.pure.t.s |
| c360 | 69 64 65 2d 65 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 | ide-effect-free].5).#@50.Anaphor |
| c380 | 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 70 6c 69 74 2d 77 69 74 68 27 2e 0a 0a 28 66 6e 20 50 | ic.form.of.`-split-with'...(fn.P |
| c3a0 | 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 74 2d 77 69 | RED.LIST)..(defalias.'--split-wi |
| c3c0 | 74 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 | th.'(macro...#[514."\300\301!\30 |
| c3e0 | 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 05 44 03 5c 33 30 35 42 03 5c 33 30 | 0\302!\300\303!\304..D.\305B.\30 |
| c400 | 36 42 45 5c 33 30 37 5c 33 31 30 06 06 05 45 5c 33 30 34 5c 33 31 31 5c 33 31 32 06 09 44 44 43 | 6BE\307\310...E\304\311\312..DDC |
| c420 | 5c 33 31 33 5c 33 31 34 06 5c 66 44 5c 33 31 35 06 09 5c 33 31 36 42 42 5c 33 31 37 5c 33 31 31 | \313\314.\fD\315..\316BB\317\311 |
| c440 | 06 5c 66 45 5c 33 32 30 06 0d 44 5c 32 35 37 05 45 45 5c 33 32 31 5c 33 32 32 06 06 44 06 07 45 | .\fE\320..D\257.EE\321\322..D..E |
| c460 | 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 69 73 74 22 20 22 72 65 73 75 | F\207".[make-symbol."list"."resu |
| c480 | 6c 74 22 20 22 63 6f 6e 74 69 6e 75 65 22 20 6c 65 74 20 28 6e 69 6c 29 20 28 74 29 20 77 68 69 | lt"."continue".let.(nil).(t).whi |
| c4a0 | 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 69 66 20 6e 6f 74 20 73 65 74 71 20 28 6e 69 6c 29 20 | le.and.it.car.if.not.setq.(nil). |
| c4c0 | 21 63 6f 6e 73 20 21 63 64 72 20 6c 69 73 74 20 6e 72 65 76 65 72 73 65 5d 20 31 37 20 28 23 24 | !cons.!cdr.list.nreverse].17.(#$ |
| c4e0 | 20 2e 20 35 30 30 34 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 | ...50041)])).(put.'--split-with. |
| c500 | 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)). |
| c520 | 23 40 31 32 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 28 28 2d 74 61 6b 65 2d 77 | #@128.Return.a.list.of.((-take-w |
| c540 | 68 69 6c 65 20 50 52 45 44 20 4c 49 53 54 29 20 28 2d 64 72 6f 70 2d 77 68 69 6c 65 20 50 52 45 | hile.PRED.LIST).(-drop-while.PRE |
| c560 | 44 20 4c 49 53 54 29 29 2c 20 69 6e 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 70 61 | D.LIST)),.in.no.more.than.one.pa |
| c580 | 73 73 20 74 68 72 6f 75 67 68 20 74 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c | ss.through.the.list...(fn.PRED.L |
| c5a0 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 77 69 74 68 20 23 5b 35 | IST)..(defalias.'-split-with.#[5 |
| c5c0 | 31 34 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 02 5c 32 30 33 26 00 5c 32 31 31 5c 32 30 33 26 | 14."\211\300\301.\203&.\211\203& |
| c5e0 | 00 02 40 05 01 21 5c 32 30 34 19 00 5c 33 30 30 5c 32 36 32 02 5c 32 30 32 5c 22 00 5c 32 31 31 | ..@..!\204..\300\262.\202\".\211 |
| c600 | 03 42 5c 32 36 32 03 03 41 5c 32 36 32 04 5c 32 31 30 5c 32 30 32 03 00 01 5c 32 33 37 03 44 5c | .B\262..A\262.\210\202...\237.D\ |
| c620 | 32 30 37 22 20 5b 6e 69 6c 20 74 5d 20 38 20 28 23 24 20 2e 20 35 30 34 37 30 29 5d 29 0a 23 40 | 207".[nil.t].8.(#$...50470)]).#@ |
| c640 | 32 32 34 20 53 70 6c 69 74 20 74 68 65 20 4c 49 53 54 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 | 224.Split.the.LIST.each.time.ITE |
| c660 | 4d 20 69 73 20 66 6f 75 6e 64 2e 0a 0a 55 6e 6c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d | M.is.found...Unlike.`-partition- |
| c680 | 62 79 27 2c 20 74 68 65 20 49 54 45 4d 20 69 73 20 64 69 73 63 61 72 64 65 64 20 66 72 6f 6d 20 | by',.the.ITEM.is.discarded.from. |
| c6a0 | 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 45 6d 70 74 79 20 6c 69 73 74 73 20 61 72 65 20 61 6c 73 | the.results..Empty.lists.are.als |
| c6c0 | 6f 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 0a 43 6f 6d 70 | o.removed.from.the.result...Comp |
| c6e0 | 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 62 79 20 60 65 71 75 61 6c 27 2e 0a 0a 53 65 65 20 | arison.is.done.by.`equal'...See. |
| c700 | 61 6c 73 6f 20 60 2d 73 70 6c 69 74 2d 77 68 65 6e 27 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 | also.`-split-when'..(fn.ITEM.LIS |
| c720 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27 28 6d 61 63 72 6f | T)..(defalias.'-split-on.'(macro |
| c740 | 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 | ...#[514."\300\301\302\303\304.. |
| c760 | 45 45 02 45 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 77 68 65 6e 20 6c 61 6d 62 64 61 20 28 69 | EE.E\207".[-split-when.lambda.(i |
| c780 | 74 29 20 65 71 75 61 6c 20 69 74 5d 20 38 20 28 23 24 20 2e 20 35 30 37 35 36 29 5d 29 29 0a 28 | t).equal.it].8.(#$...50756)])).( |
| c7a0 | 70 75 74 20 27 2d 73 70 6c 69 74 2d 6f 6e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | put.'-split-on.'edebug-form-spec |
| c7c0 | 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 35 33 20 41 6e 61 70 68 6f 72 69 | .'(def-form.form)).#@53.Anaphori |
| c7e0 | 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 73 70 6c 69 74 2d 77 68 65 6e 27 2e 0a 0a 28 66 6e | c.version.of.`-split-when'...(fn |
| c800 | 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 70 6c 69 74 2d | .FORM.LIST)..(defalias.'--split- |
| c820 | 77 68 65 6e 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 | when.'(macro...#[514."\300\301\3 |
| c840 | 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 73 70 6c 69 74 2d 77 68 65 6e 20 6c 61 6d 62 64 61 20 | 02.E.E\207".[-split-when.lambda. |
| c860 | 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 35 31 31 36 30 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d | (it)].6.(#$...51160)])).(put.'-- |
| c880 | 73 70 6c 69 74 2d 77 68 65 6e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 | split-when.'edebug-form-spec.'(d |
| c8a0 | 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 36 39 20 53 70 6c 69 74 20 74 68 65 20 4c | ef-form.form)).#@269.Split.the.L |
| c8c0 | 49 53 54 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 77 68 65 72 65 20 46 4e 20 72 65 74 | IST.on.each.element.where.FN.ret |
| c8e0 | 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 55 6e 6c 69 6b 65 20 60 2d 70 61 72 74 69 74 69 6f | urns.non-nil...Unlike.`-partitio |
| c900 | 6e 2d 62 79 27 2c 20 74 68 65 20 22 6d 61 74 63 68 65 64 22 20 65 6c 65 6d 65 6e 74 20 69 73 20 | n-by',.the."matched".element.is. |
| c920 | 64 69 73 63 61 72 64 65 64 20 66 72 6f 6d 0a 74 68 65 20 72 65 73 75 6c 74 73 2e 20 20 45 6d 70 | discarded.from.the.results...Emp |
| c940 | 74 79 20 6c 69 73 74 73 20 61 72 65 20 61 6c 73 6f 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 | ty.lists.are.also.removed.from.t |
| c960 | 68 65 20 72 65 73 75 6c 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 62 65 | he.result...This.function.can.be |
| c980 | 20 74 68 6f 75 67 68 74 20 6f 66 20 61 73 20 61 20 67 65 6e 65 72 61 6c 69 7a 61 74 69 6f 6e 20 | .thought.of.as.a.generalization. |
| c9a0 | 6f 66 0a 60 73 70 6c 69 74 2d 73 74 72 69 6e 67 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 | of.`split-string'...(fn.FN.LIST) |
| c9c0 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 70 6c 69 74 2d 77 68 65 6e 20 23 5b 35 31 34 20 22 | ..(defalias.'-split-when.#[514." |
| c9e0 | 5c 33 30 30 5c 32 31 31 02 5c 32 30 33 2a 00 03 03 40 21 5c 32 30 34 16 00 02 40 01 42 5c 32 36 | \300\211.\203*...@!\204...@.B\26 |
| ca00 | 32 01 5c 32 30 32 23 00 5c 32 31 31 5c 32 30 33 20 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 | 2.\202#.\211\203..\211\237.B\262 |
| ca20 | 02 5c 33 30 30 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32 02 00 5c 32 31 31 5c 32 30 33 34 | .\300\262..A\262.\202..\211\2034 |
| ca40 | 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 01 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d | .\211\237.B\262..\237\207".[nil] |
| ca60 | 20 36 20 28 23 24 20 2e 20 35 31 33 38 31 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 | .6.(#$...51381)]).#@48.Anaphoric |
| ca80 | 20 66 6f 72 6d 20 6f 66 20 60 2d 73 65 70 61 72 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 | .form.of.`-separate'...(fn.FORM. |
| caa0 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 65 70 61 72 61 74 65 20 27 28 6d | LIST)..(defalias.'--separate.'(m |
| cac0 | 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! |
| cae0 | 5c 33 30 33 02 02 44 5c 33 30 34 05 5c 33 30 35 06 08 5c 33 30 36 5c 33 30 37 06 09 45 5c 33 30 | \303..D\304.\305..\306\307..E\30 |
| cb00 | 36 5c 33 30 37 06 09 45 46 45 5c 33 31 30 5c 33 31 31 06 06 44 5c 33 31 31 06 06 44 45 46 5c 32 | 6\307..EFE\310\311..D\311..DEF\2 |
| cb20 | 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 79 65 73 22 20 22 6e 6f 22 20 6c 65 74 20 | 07".[make-symbol."yes"."no".let. |
| cb40 | 2d 2d 65 61 63 68 20 69 66 20 21 63 6f 6e 73 20 69 74 20 6c 69 73 74 20 6e 72 65 76 65 72 73 65 | --each.if.!cons.it.list.nreverse |
| cb60 | 5d 20 31 34 20 28 23 24 20 2e 20 35 31 38 33 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 65 70 | ].14.(#$...51831)])).(put.'--sep |
| cb80 | 61 72 61 74 65 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 | arate.'edebug-form-spec.'(form.f |
| cba0 | 6f 72 6d 29 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 2d | orm)).#@107.Return.a.list.of.((- |
| cbc0 | 66 69 6c 74 65 72 20 50 52 45 44 20 4c 49 53 54 29 20 28 2d 72 65 6d 6f 76 65 20 50 52 45 44 20 | filter.PRED.LIST).(-remove.PRED. |
| cbe0 | 4c 49 53 54 29 29 2c 20 69 6e 20 6f 6e 65 20 70 61 73 73 20 74 68 72 6f 75 67 68 20 74 68 65 20 | LIST)),.in.one.pass.through.the. |
| cc00 | 6c 69 73 74 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 | list...(fn.PRED.LIST)..(defalias |
| cc20 | 20 27 2d 73 65 70 61 72 61 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 02 5c 33 30 31 | .'-separate.#[514."\300\211.\301 |
| cc40 | 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 31 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 | \300\211.\2031..\211A\262.\242\2 |
| cc60 | 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 07 02 21 5c 32 30 33 29 00 01 06 06 42 5c 32 | 62..\262..T\262....!\203)....B\2 |
| cc80 | 36 32 06 5c 32 30 32 06 00 01 05 42 5c 32 36 32 05 5c 32 30 32 06 00 5c 32 36 36 04 01 5c 32 33 | 62.\202....B\262.\202..\266..\23 |
| cca0 | 37 01 5c 32 33 37 44 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 31 30 20 28 23 24 20 2e 20 35 32 | 7.\237D\207".[nil.0].10.(#$...52 |
| ccc0 | 31 34 30 29 5d 29 0a 23 40 38 30 20 55 73 65 64 20 62 79 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d | 140)]).#@80.Used.by.`-partition- |
| cce0 | 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 27 20 61 6e 64 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e | all-in-steps'.and.`-partition-in |
| cd00 | 2d 73 74 65 70 73 27 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 | -steps'...(fn.N.STEP.LIST)..(def |
| cd20 | 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 | alias.'dash--partition-all-in-st |
| cd40 | 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 5c 32 30 33 0d 00 | eps-reversed.#[771.".\300W\203.. |
| cd60 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 44 5c 22 5c 32 31 30 5c 33 30 34 01 5c 32 30 33 5c 22 00 | \301\302\303.D\"\210\304.\203\". |
| cd80 | 5c 33 30 35 04 03 5c 22 01 42 5c 32 36 32 01 02 02 5c 32 33 33 5c 32 36 32 02 5c 32 30 32 0e 00 | \305..\".B\262...\233\262.\202.. |
| cda0 | 5c 32 31 31 5c 32 30 37 22 20 5b 31 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 | \211\207".[1.signal.wrong-type-a |
| cdc0 | 72 67 75 6d 65 6e 74 20 22 53 74 65 70 20 73 69 7a 65 20 3c 20 31 20 72 65 73 75 6c 74 73 20 69 | rgument."Step.size.<.1.results.i |
| cde0 | 6e 20 6a 75 69 63 79 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 73 22 20 6e 69 6c 20 2d 74 61 6b | n.juicy.infinite.loops".nil.-tak |
| ce00 | 65 5d 20 37 20 28 23 24 20 2e 20 35 32 34 32 38 29 5d 29 0a 23 40 31 36 30 20 52 65 74 75 72 6e | e].7.(#$...52428)]).#@160.Return |
| ce20 | 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 | .a.new.list.with.the.items.in.LI |
| ce40 | 53 54 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 | ST.grouped.into.N-sized.sublists |
| ce60 | 20 61 74 20 6f 66 66 73 65 74 73 20 53 54 45 50 20 61 70 61 72 74 2e 0a 54 68 65 20 6c 61 73 74 | .at.offsets.STEP.apart..The.last |
| ce80 | 20 67 72 6f 75 70 73 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 | .groups.may.contain.less.than.N. |
| cea0 | 69 74 65 6d 73 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | items...(fn.N.STEP.LIST)..(defal |
| cec0 | 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 23 5b 37 | ias.'-partition-all-in-steps.#[7 |
| cee0 | 37 31 20 22 5c 33 30 30 03 03 03 23 5c 32 33 37 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 70 61 72 | 71."\300...#\237\207".[dash--par |
| cf00 | 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 73 65 64 5d 20 37 20 | tition-all-in-steps-reversed].7. |
| cf20 | 28 23 24 20 2e 20 35 32 37 36 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | (#$...52762)]).(byte-code."\300\ |
| cf40 | 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 |
| cf60 | 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 2d | 0\207".[function-put.-partition- |
| cf80 | 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | all-in-steps.pure.t.side-effect- |
| cfa0 | 66 72 65 65 5d 20 35 29 0a 23 40 32 30 32 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 | free].5).#@202.Return.a.new.list |
| cfc0 | 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 67 72 6f 75 70 65 64 20 | .with.the.items.in.LIST.grouped. |
| cfe0 | 69 6e 74 6f 20 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 20 61 74 20 6f 66 66 73 65 74 73 | into.N-sized.sublists.at.offsets |
| d000 | 20 53 54 45 50 20 61 70 61 72 74 2e 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e | .STEP.apart..If.there.are.not.en |
| d020 | 6f 75 67 68 20 69 74 65 6d 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 6c 61 73 74 20 67 72 6f 75 | ough.items.to.make.the.last.grou |
| d040 | 70 20 4e 2d 73 69 7a 65 64 2c 0a 74 68 6f 73 65 20 69 74 65 6d 73 20 61 72 65 20 64 69 73 63 61 | p.N-sized,.those.items.are.disca |
| d060 | 72 64 65 64 2e 0a 0a 28 66 6e 20 4e 20 53 54 45 50 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | rded...(fn.N.STEP.LIST)..(defali |
| d080 | 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 20 23 5b 37 37 31 20 22 5c | as.'-partition-in-steps.#[771."\ |
| d0a0 | 33 30 30 03 03 03 23 5c 32 31 31 5c 32 30 33 18 00 5c 32 31 31 40 47 04 57 5c 32 30 33 18 00 5c | 300...#\211\203..\211@G.W\203..\ |
| d0c0 | 32 31 31 41 5c 32 36 32 01 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 64 61 | 211A\262.\202..\211\237\207".[da |
| d0e0 | 73 68 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 2d 72 65 76 65 72 | sh--partition-all-in-steps-rever |
| d100 | 73 65 64 5d 20 37 20 28 23 24 20 2e 20 35 33 31 36 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | sed].7.(#$...53167)]).(byte-code |
| d120 | 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\ |
| d140 | 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 70 61 72 | 303#\300\207".[function-put.-par |
| d160 | 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 | tition-in-steps.pure.t.side-effe |
| d180 | 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 33 32 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c | ct-free].5).#@132.Return.a.new.l |
| d1a0 | 69 73 74 20 77 69 74 68 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 20 67 72 6f 75 70 | ist.with.the.items.in.LIST.group |
| d1c0 | 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 54 68 65 20 6c 61 | ed.into.N-sized.sublists..The.la |
| d1e0 | 73 74 20 67 72 6f 75 70 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e | st.group.may.contain.less.than.N |
| d200 | 20 69 74 65 6d 73 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | .items...(fn.N.LIST)..(defalias. |
| d220 | 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 32 31 31 | '-partition-all.#[514."\300.\211 |
| d240 | 03 23 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 61 6c 6c 2d 69 6e 2d 73 74 65 70 73 | .#\207".[-partition-all-in-steps |
| d260 | 5d 20 36 20 28 23 24 20 2e 20 35 33 36 35 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].6.(#$...53650)]).(byte-code."\ |
| d280 | 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 |
| d2a0 | 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 61 72 74 69 74 | #\300\207".[function-put.-partit |
| d2c0 | 69 6f 6e 2d 61 6c 6c 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d | ion-all.pure.t.side-effect-free] |
| d2e0 | 20 35 29 0a 23 40 31 37 35 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 | .5).#@175.Return.a.new.list.with |
| d300 | 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 6e 74 6f 20 | .the.items.in.LIST.grouped.into. |
| d320 | 4e 2d 73 69 7a 65 64 20 73 75 62 6c 69 73 74 73 2e 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6e | N-sized.sublists..If.there.are.n |
| d340 | 6f 74 20 65 6e 6f 75 67 68 20 69 74 65 6d 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 6c 61 73 74 | ot.enough.items.to.make.the.last |
| d360 | 20 67 72 6f 75 70 20 4e 2d 73 69 7a 65 64 2c 0a 74 68 6f 73 65 20 69 74 65 6d 73 20 61 72 65 20 | .group.N-sized,.those.items.are. |
| d380 | 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 4e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 | discarded...(fn.N.LIST)..(defali |
| d3a0 | 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 32 31 31 03 | as.'-partition.#[514."\300.\211. |
| d3c0 | 23 5c 32 30 37 22 20 5b 2d 70 61 72 74 69 74 69 6f 6e 2d 69 6e 2d 73 74 65 70 73 5d 20 36 20 28 | #\207".[-partition-in-steps].6.( |
| d3e0 | 23 24 20 2e 20 35 33 39 39 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | #$...53994)]).(byte-code."\300\3 |
| d400 | 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 30 | 01\302\303#\300\301\304\303#\300 |
| d420 | 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 70 61 72 74 69 74 69 6f 6e 20 70 | \207".[function-put.-partition.p |
| d440 | 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 35 32 20 | ure.t.side-effect-free].5).#@52. |
| d460 | 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 | Anaphoric.form.of.`-partition-by |
| d480 | 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d | '...(fn.FORM.LIST)..(defalias.'- |
| d4a0 | 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c | -partition-by.'(macro...#[514."\ |
| d4c0 | 33 30 30 5c 33 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 30 5c 33 | 300\301!\300\302!\300\303!\300\3 |
| d4e0 | 30 34 21 5c 33 30 30 5c 33 30 35 21 5c 33 30 36 01 06 07 44 43 5c 33 30 37 03 5c 33 31 30 06 09 | 04!\300\305!\306...DC\307.\310.. |
| d500 | 5c 33 31 31 42 5c 33 31 32 5c 33 31 33 06 08 44 44 06 5c 6e 5c 33 31 34 42 06 5c 6e 06 0f 44 06 | \311B\312\313..DD.\n\314B.\n..D. |
| d520 | 09 5c 33 31 35 06 0b 44 44 5c 32 35 37 05 5c 33 31 36 06 07 5c 33 31 30 5c 33 31 32 5c 33 31 33 | .\315..DD\257.\316..\310\312\313 |
| d540 | 06 0b 44 44 06 0b 06 11 44 44 5c 33 31 37 5c 33 32 30 06 0e 06 0e 45 5c 33 32 31 5c 33 32 32 06 | ..DD....DD\317\320....E\321\322. |
| d560 | 11 44 06 12 45 5c 33 32 33 06 11 5c 33 32 34 42 42 5c 33 32 33 06 11 06 11 45 5c 32 35 37 05 5c | .D..E\323..\324BB\323....E\257.\ |
| d580 | 33 32 31 5c 33 31 32 06 10 45 5c 33 32 35 06 0d 44 5c 32 35 37 05 45 5c 33 32 31 5c 33 32 32 06 | 321\312..E\325..D\257.E\321\322. |
| d5a0 | 5c 66 44 06 0d 45 5c 33 32 32 06 0d 44 5c 32 35 37 05 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d | \fD..E\322..D\257.EE\207".[make- |
| d5c0 | 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73 74 22 20 22 76 61 6c 75 65 | symbol."result"."sublist"."value |
| d5e0 | 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 20 6c 65 | "."new-value"."list".let.when.le |
| d600 | 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 63 64 72 20 | t*.(nil).it.car.((list.it)).cdr. |
| d620 | 77 68 69 6c 65 20 75 6e 6c 65 73 73 20 65 71 75 61 6c 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 | while.unless.equal.!cons.nrevers |
| d640 | 65 20 73 65 74 71 20 28 6e 69 6c 29 20 21 63 64 72 5d 20 32 34 20 28 23 24 20 2e 20 35 34 33 36 | e.setq.(nil).!cdr].24.(#$...5436 |
| d660 | 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 27 65 64 65 62 | 8)])).(put.'--partition-by.'edeb |
| d680 | 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 39 33 20 | ug-form-spec.'(form.form)).#@93. |
| d6a0 | 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 4c 49 53 54 2c 20 73 | Apply.FN.to.each.item.in.LIST,.s |
| d6c0 | 70 6c 69 74 74 69 6e 67 20 69 74 20 65 61 63 68 20 74 69 6d 65 20 46 4e 20 72 65 74 75 72 6e 73 | plitting.it.each.time.FN.returns |
| d6e0 | 20 61 20 6e 65 77 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 | .a.new.value...(fn.FN.LIST)..(de |
| d700 | 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 20 23 5b 35 31 34 20 22 5c 32 31 | falias.'-partition-by.#[514."\21 |
| d720 | 31 5c 32 31 31 5c 32 30 35 42 00 5c 33 30 30 01 40 5c 32 31 31 43 05 02 21 04 41 5c 32 31 31 5c | 1\211\205B.\300.@\211C..!.A\211\ |
| d740 | 32 30 33 38 00 5c 32 31 31 40 06 08 01 21 03 01 5c 32 33 32 5c 32 30 34 2c 00 04 5c 32 33 37 06 | 2038.\211@...!..\232\204,..\237. |
| d760 | 07 42 5c 32 36 32 07 5c 33 30 30 5c 32 36 32 05 5c 32 31 31 5c 32 36 32 04 01 05 42 5c 32 36 32 | .B\262.\300\262.\211\262...B\262 |
| d780 | 05 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 0f 00 02 5c 32 33 37 05 42 5c 32 36 32 05 04 5c 32 | ..A\266\203\202...\237.B\262..\2 |
| d7a0 | 33 37 5c 32 36 36 5c 32 30 35 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 32 20 28 23 24 20 2e 20 35 | 37\266\205\207".[nil].12.(#$...5 |
| d7c0 | 34 39 34 34 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 | 4944)]).#@59.Anaphoric.form.of.` |
| d7e0 | 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d | -partition-by-header'...(fn.FORM |
| d800 | 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 | .LIST)..(defalias.'--partition-b |
| d820 | 79 2d 68 65 61 64 65 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | y-header.'(macro...#[514."\300\3 |
| d840 | 30 31 21 5c 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 30 5c 33 30 34 21 5c 33 | 01!\300\302!\300\303!\300\304!\3 |
| d860 | 30 30 5c 33 30 35 21 5c 33 30 30 5c 33 30 36 21 5c 33 30 37 01 06 08 44 43 5c 33 31 30 03 5c 33 | 00\305!\300\306!\307...DC\310.\3 |
| d880 | 31 31 06 5c 6e 5c 33 31 32 42 5c 33 31 33 5c 33 31 34 06 08 44 44 06 0b 5c 33 31 35 42 06 0b 06 | 11.\n\312B\313\314..DD..\315B... |
| d8a0 | 10 44 06 0b 5c 33 31 36 42 06 5c 6e 5c 33 31 37 06 5c 66 44 44 5c 32 35 37 06 5c 33 32 30 06 07 | .D..\316B.\n\317.\fDD\257.\320.. |
| d8c0 | 5c 33 31 31 5c 33 31 33 5c 33 31 34 06 0b 44 44 06 0b 06 12 44 44 5c 33 32 31 5c 33 32 32 06 0f | \311\313\314..DD....DD\321\322.. |
| d8e0 | 06 0e 45 5c 33 31 30 06 0f 5c 33 32 33 5c 33 32 34 06 14 44 06 15 45 5c 33 32 35 06 14 5c 33 32 | ..E\310..\323\324..D..E\325..\32 |
| d900 | 36 42 42 5c 33 32 35 06 13 5c 33 32 37 42 42 5c 32 35 37 05 5c 33 32 35 06 10 5c 33 33 30 42 42 | 6BB\325..\327BB\257.\325..\330BB |
| d920 | 46 5c 33 32 33 5c 33 31 33 06 11 45 5c 33 33 31 06 0d 44 5c 32 35 37 05 45 5c 33 32 33 5c 33 32 | F\323\313..E\331..D\257.E\323\32 |
| d940 | 34 06 0d 44 06 0e 45 5c 33 32 34 06 0e 44 5c 32 35 37 05 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 | 4..D..E\324..D\257.EE\207".[make |
| d960 | 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73 74 22 20 22 68 65 61 64 | -symbol."result"."sublist"."head |
| d980 | 65 72 2d 76 61 6c 75 65 22 20 22 73 65 65 6e 2d 62 6f 64 79 3f 22 20 22 6e 65 77 2d 76 61 6c 75 | er-value"."seen-body?"."new-valu |
| d9a0 | 65 22 20 22 6c 69 73 74 22 20 6c 65 74 20 77 68 65 6e 20 6c 65 74 2a 20 28 6e 69 6c 29 20 69 74 | e"."list".let.when.let*.(nil).it |
| d9c0 | 20 63 61 72 20 28 28 6c 69 73 74 20 69 74 29 29 20 28 6e 69 6c 29 20 63 64 72 20 77 68 69 6c 65 | .car.((list.it)).(nil).cdr.while |
| d9e0 | 20 69 66 20 65 71 75 61 6c 20 21 63 6f 6e 73 20 6e 72 65 76 65 72 73 65 20 73 65 74 71 20 28 6e | .if.equal.!cons.nreverse.setq.(n |
| da00 | 69 6c 29 20 28 6e 69 6c 29 20 28 74 29 20 21 63 64 72 5d 20 32 37 20 28 23 24 20 2e 20 35 35 32 | il).(nil).(t).!cdr].27.(#$...552 |
| da20 | 34 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 | 45)])).(put.'--partition-by-head |
| da40 | 65 72 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 66 6f 72 6d | er.'edebug-form-spec.'(form.form |
| da60 | 29 29 0a 23 40 32 31 39 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 69 | )).#@219.Apply.FN.to.the.first.i |
| da80 | 74 65 6d 20 69 6e 20 4c 49 53 54 2e 20 54 68 61 74 20 69 73 20 74 68 65 20 68 65 61 64 65 72 0a | tem.in.LIST..That.is.the.header. |
| daa0 | 76 61 6c 75 65 2e 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 | value..Apply.FN.to.each.item.in. |
| dac0 | 4c 49 53 54 2c 20 73 70 6c 69 74 74 69 6e 67 20 69 74 20 65 61 63 68 20 74 69 6d 65 20 46 4e 0a | LIST,.splitting.it.each.time.FN. |
| dae0 | 72 65 74 75 72 6e 73 20 74 68 65 20 68 65 61 64 65 72 20 76 61 6c 75 65 2c 20 62 75 74 20 6f 6e | returns.the.header.value,.but.on |
| db00 | 6c 79 20 61 66 74 65 72 20 73 65 65 69 6e 67 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 0a 6f 74 68 | ly.after.seeing.at.least.one.oth |
| db20 | 65 72 20 76 61 6c 75 65 20 28 74 68 65 20 62 6f 64 79 29 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 | er.value.(the.body)...(fn.FN.LIS |
| db40 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 | T)..(defalias.'-partition-by-hea |
| db60 | 64 65 72 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 35 4f 00 5c 33 30 30 01 40 5c | der.#[514."\211\211\205O.\300.@\ |
| db80 | 32 31 31 43 05 02 21 5c 33 30 30 05 41 5c 32 31 31 5c 32 30 33 44 00 5c 32 31 31 40 06 09 01 21 | 211C..!\300.A\211\203D.\211@...! |
| dba0 | 04 01 5c 32 33 32 5c 32 30 33 34 00 03 5c 32 30 33 37 00 05 5c 32 33 37 06 08 42 5c 32 36 32 08 | ..\232\2034..\2037..\237..B\262. |
| dbc0 | 5c 33 30 30 5c 32 36 32 06 5c 33 30 30 5c 32 36 32 04 5c 32 30 32 37 00 5c 33 30 31 5c 32 36 32 | \300\262.\300\262.\2027.\301\262 |
| dbe0 | 04 01 06 06 42 5c 32 36 32 06 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 10 00 03 5c 32 33 37 06 | ....B\262..A\266\203\202...\237. |
| dc00 | 06 42 5c 32 36 32 06 05 5c 32 33 37 5c 32 36 36 5c 32 30 36 5c 32 30 37 22 20 5b 6e 69 6c 20 74 | .B\262..\237\266\206\207".[nil.t |
| dc20 | 5d 20 31 33 20 28 23 24 20 2e 20 35 35 39 31 33 29 5d 29 0a 23 40 32 32 31 20 50 61 72 74 69 74 | ].13.(#$...55913)]).#@221.Partit |
| dc40 | 69 6f 6e 20 4c 49 53 54 20 61 66 74 65 72 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 66 6f 72 20 | ion.LIST.after.each.element.for. |
| dc60 | 77 68 69 63 68 20 46 4f 52 4d 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2e | which.FORM.evaluates.to.non-nil. |
| dc80 | 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 20 69 6e 20 74 75 72 6e 20 69 73 | .Each.element.of.LIST.in.turn.is |
| dca0 | 20 62 6f 75 6e 64 20 74 6f 20 60 69 74 27 20 62 65 66 6f 72 65 20 65 76 61 6c 75 61 74 69 6e 67 | .bound.to.`it'.before.evaluating |
| dcc0 | 0a 46 4f 52 4d 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 61 6e 61 70 68 6f 72 69 63 20 63 6f | .FORM...This.is.the.anaphoric.co |
| dce0 | 75 6e 74 65 72 70 61 72 74 20 74 6f 20 60 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 | unterpart.to.`-partition-after-p |
| dd00 | 72 65 64 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 | red'...(fn.FORM.LIST)..(defalias |
| dd20 | 20 27 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 27 28 6d 61 63 72 6f | .'--partition-after-pred.'(macro |
| dd40 | 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 33 30 30 | ...#[514."\300\301!\300\302!\300 |
| dd60 | 5c 33 30 33 21 5c 33 30 34 03 05 44 03 03 45 5c 33 30 35 05 5c 33 30 36 06 07 5c 33 30 37 5c 33 | \303!\304..D..E\305.\306..\307\3 |
| dd80 | 31 30 06 08 45 5c 33 30 35 06 5c 66 5c 33 30 37 5c 33 31 31 06 0b 44 06 5c 66 45 5c 33 31 32 06 | 10..E\305.\f\307\311..D.\fE\312. |
| dda0 | 0b 5c 33 31 33 42 42 46 46 5c 33 30 35 06 06 5c 33 30 37 5c 33 31 31 06 09 44 06 5c 6e 45 45 5c | .\313BBFF\305..\307\311..D.\nEE\ |
| ddc0 | 33 31 31 06 08 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 | 311..D\257.E\207".[make-symbol." |
| dde0 | 6c 69 73 74 22 20 22 72 65 73 75 6c 74 22 20 22 73 75 62 6c 69 73 74 22 20 6c 65 74 20 77 68 65 | list"."result"."sublist".let.whe |
| de00 | 6e 20 2d 2d 65 61 63 68 20 70 75 73 68 20 69 74 20 6e 72 65 76 65 72 73 65 20 73 65 74 71 20 28 | n.--each.push.it.nreverse.setq.( |
| de20 | 6e 69 6c 29 5d 20 31 38 20 28 23 24 20 2e 20 35 36 33 37 38 29 5d 29 29 0a 23 40 31 35 31 20 50 | nil)].18.(#$...56378)])).#@151.P |
| de40 | 61 72 74 69 74 69 6f 6e 20 4c 49 53 54 20 61 66 74 65 72 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 | artition.LIST.after.each.element |
| de60 | 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e | .for.which.PRED.returns.non-nil. |
| de80 | 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 6e 61 70 68 6f 72 69 63 20 63 6f 75 6e | ..This.function's.anaphoric.coun |
| dea0 | 74 65 72 70 61 72 74 20 69 73 20 60 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 | terpart.is.`--partition-after-pr |
| dec0 | 65 64 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 | ed'...(fn.PRED.LIST)..(defalias. |
| dee0 | 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 23 5b 35 31 34 20 22 5c 32 | '-partition-after-pred.#[514."\2 |
| df00 | 31 31 5c 33 30 30 5c 32 31 31 02 5c 32 30 35 45 00 02 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c | 11\300\211.\205E..\301\300\211.\ |
| df20 | 32 30 33 37 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 | 2037..\211A\262.\242\262..\262.. |
| df40 | 54 5c 32 36 32 03 01 05 42 5c 32 36 32 05 06 08 02 21 5c 32 30 33 0b 00 04 5c 32 33 37 06 06 42 | T\262...B\262....!\203...\237..B |
| df60 | 5c 32 36 32 06 5c 33 30 30 5c 32 36 32 05 5c 32 30 32 0b 00 5c 32 36 36 04 5c 32 31 31 5c 32 30 | \262.\300\262.\202..\266.\211\20 |
| df80 | 33 43 00 5c 32 31 31 5c 32 33 37 02 42 5c 32 36 32 02 01 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 | 3C.\211\237.B\262..\237\207".[ni |
| dfa0 | 6c 20 30 5d 20 31 31 20 28 23 24 20 2e 20 35 36 38 39 35 29 5d 29 0a 23 40 38 39 20 50 61 72 74 | l.0].11.(#$...56895)]).#@89.Part |
| dfc0 | 69 74 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 | ition.directly.before.each.time. |
| dfe0 | 50 52 45 44 20 69 73 20 74 72 75 65 20 6f 6e 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 | PRED.is.true.on.an.element.of.LI |
| e000 | 53 54 2e 0a 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | ST...(fn.PRED.LIST)..(defalias.' |
| e020 | 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 23 5b 35 31 34 20 22 5c 33 | -partition-before-pred.#[514."\3 |
| e040 | 30 30 5c 33 30 31 5c 33 30 32 04 5c 33 30 31 05 21 5c 22 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b | 00\301\302.\301.!\"\"\237\207".[ |
| e060 | 2d 6d 61 70 20 72 65 76 65 72 73 65 20 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 | -map.reverse.-partition-after-pr |
| e080 | 65 64 5d 20 38 20 28 23 24 20 2e 20 35 37 32 37 36 29 5d 29 0a 23 40 37 34 20 50 61 72 74 69 74 | ed].8.(#$...57276)]).#@74.Partit |
| e0a0 | 69 6f 6e 20 64 69 72 65 63 74 6c 79 20 61 66 74 65 72 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 | ion.directly.after.each.time.ITE |
| e0c0 | 4d 20 61 70 70 65 61 72 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 | M.appears.in.LIST...(fn.ITEM.LIS |
| e0e0 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d | T)..(defalias.'-partition-after- |
| e100 | 69 74 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 | item.#[514."\300\301\302\303\304 |
| e120 | 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b | \305..!\306\"\307\310%.\"\207".[ |
| e140 | 2d 70 61 72 74 69 74 69 6f 6e 2d 61 66 74 65 72 2d 70 72 65 64 20 6d 61 6b 65 2d 62 79 74 65 2d | -partition-after-pred.make-byte- |
| e160 | 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e | code.257."\211\300\232\207".vcon |
| e180 | 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 45 4c 45 29 22 5d 20 | cat.vector.[].3."\n\n(fn.ELE)"]. |
| e1a0 | 39 20 28 23 24 20 2e 20 35 37 34 39 38 29 5d 29 0a 23 40 37 35 20 50 61 72 74 69 74 69 6f 6e 20 | 9.(#$...57498)]).#@75.Partition. |
| e1c0 | 64 69 72 65 63 74 6c 79 20 62 65 66 6f 72 65 20 65 61 63 68 20 74 69 6d 65 20 49 54 45 4d 20 61 | directly.before.each.time.ITEM.a |
| e1e0 | 70 70 65 61 72 73 20 69 6e 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 49 54 45 4d 20 4c 49 53 54 29 1f | ppears.in.LIST...(fn.ITEM.LIST). |
| e200 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 69 74 | .(defalias.'-partition-before-it |
| e220 | 65 6d 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 | em.#[514."\300\301\302\303\304\3 |
| e240 | 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 2d 70 | 05..!\306\"\307\310%.\"\207".[-p |
| e260 | 61 72 74 69 74 69 6f 6e 2d 62 65 66 6f 72 65 2d 70 72 65 64 20 6d 61 6b 65 2d 62 79 74 65 2d 63 | artition-before-pred.make-byte-c |
| e280 | 6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 32 5c 32 30 37 22 20 76 63 6f 6e 63 | ode.257."\211\300\232\207".vconc |
| e2a0 | 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 45 29 22 5d 20 39 | at.vector.[].3."\n\n(fn.ELE)"].9 |
| e2c0 | 20 28 23 24 20 2e 20 35 37 37 38 32 29 5d 29 0a 23 40 34 38 20 41 6e 61 70 68 6f 72 69 63 20 66 | .(#$...57782)]).#@48.Anaphoric.f |
| e2e0 | 6f 72 6d 20 6f 66 20 60 2d 67 72 6f 75 70 2d 62 79 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 | orm.of.`-group-by'...(fn.FORM.LI |
| e300 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 67 72 6f 75 70 2d 62 79 20 27 28 6d 61 63 | ST)..(defalias.'--group-by.'(mac |
| e320 | 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 33 | ro...#[514."\300\301!\300\302!\3 |
| e340 | 30 30 5c 33 30 33 21 5c 33 30 34 5c 33 30 35 5c 33 30 36 05 43 5c 33 30 37 5c 33 31 30 06 08 44 | 00\303!\304\305\306.C\307\310..D |
| e360 | 5c 33 30 34 5c 33 31 31 06 5c 6e 44 44 45 45 5c 33 31 32 5c 33 31 33 06 06 06 5c 6e 44 06 06 5c | \304\311.\nDDEE\312\313...\nD..\ |
| e380 | 33 31 34 06 09 5c 33 31 35 42 42 44 44 5c 33 31 36 06 07 5c 33 31 37 06 09 5c 33 30 37 5c 33 32 | 314..\315BBDD\316..\317..\307\32 |
| e3a0 | 30 5c 33 31 31 06 0d 44 45 45 5c 33 32 31 5c 33 32 32 06 5c 66 5c 33 32 33 42 42 5c 33 32 34 42 | 0\311..DEE\321\322.\f\323BB\324B |
| e3c0 | 42 46 5c 33 32 35 42 42 42 5c 33 32 36 06 09 46 45 44 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 | BF\325BBB\326..FED\207".[make-sy |
| e3e0 | 6d 62 6f 6c 20 22 6e 22 20 22 6b 22 20 22 67 72 70 22 20 6e 72 65 76 65 72 73 65 20 2d 6d 61 70 | mbol."n"."k"."grp".nreverse.-map |
| e400 | 20 6c 61 6d 62 64 61 20 63 6f 6e 73 20 63 61 72 20 63 64 72 20 2d 2d 72 65 64 75 63 65 2d 66 72 | .lambda.cons.car.cdr.--reduce-fr |
| e420 | 6f 6d 20 6c 65 74 2a 20 61 73 73 6f 63 20 28 61 63 63 29 20 69 66 20 73 65 74 63 64 72 20 69 74 | om.let*.assoc.(acc).if.setcdr.it |
| e440 | 20 70 75 73 68 20 6c 69 73 74 20 28 69 74 29 20 28 61 63 63 29 20 28 61 63 63 29 20 6e 69 6c 5d | .push.list.(it).(acc).(acc).nil] |
| e460 | 20 31 39 20 28 23 24 20 2e 20 35 38 30 36 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 67 72 6f 75 | .19.(#$...58069)])).(put.'--grou |
| e480 | 70 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 29 0a 23 40 31 32 35 20 | p-by.'edebug-form-spec.t).#@125. |
| e4a0 | 53 65 70 61 72 61 74 65 20 4c 49 53 54 20 69 6e 74 6f 20 61 6e 20 61 6c 69 73 74 20 77 68 6f 73 | Separate.LIST.into.an.alist.whos |
| e4c0 | 65 20 6b 65 79 73 20 61 72 65 20 46 4e 20 61 70 70 6c 69 65 64 20 74 6f 20 74 68 65 0a 65 6c 65 | e.keys.are.FN.applied.to.the.ele |
| e4e0 | 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 2e 20 20 4b 65 79 73 20 61 72 65 20 63 6f 6d 70 61 72 65 | ments.of.LIST...Keys.are.compare |
| e500 | 64 20 62 79 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 | d.by.`equal'...(fn.FN.LIST)..(de |
| e520 | 66 61 6c 69 61 73 20 27 2d 67 72 6f 75 70 2d 62 79 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | falias.'-group-by.#[514."\300\30 |
| e540 | 31 5c 33 30 32 03 5c 33 30 33 5c 33 30 32 5c 32 31 31 03 5c 32 30 33 42 00 03 5c 32 31 31 41 5c | 1\302.\303\302\211.\203B..\211A\ |
| e560 | 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 06 08 02 21 5c 33 | 262.\242\262..\262..T\262....!\3 |
| e580 | 30 34 01 06 07 5c 22 5c 32 31 31 5c 32 30 33 31 00 5c 32 31 31 04 02 41 42 5c 32 34 31 5c 32 31 | 04...\"\211\2031.\211..AB\241\21 |
| e5a0 | 30 5c 32 30 32 39 00 01 04 44 06 07 42 5c 32 36 32 07 06 06 5c 32 36 36 5c 32 30 32 5c 32 36 32 | 0\2029...D..B\262...\266\202\262 |
| e5c0 | 05 5c 32 30 32 07 00 5c 32 36 36 04 5c 32 31 31 5c 32 36 32 01 5c 22 5c 32 33 37 5c 32 30 37 22 | .\202..\266.\211\262.\"\237\207" |
| e5e0 | 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 37 22 20 | .[-map.#[257."\211@.A\237B\207". |
| e600 | 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 63 5d 20 | [].3."\n\n(fn.N)"].nil.0.assoc]. |
| e620 | 31 34 20 28 23 24 20 2e 20 35 38 35 32 38 29 5d 29 0a 23 40 37 36 20 52 65 74 75 72 6e 20 61 20 | 14.(#$...58528)]).#@76.Return.a. |
| e640 | 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 49 53 54 | new.list.of.all.elements.in.LIST |
| e660 | 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 49 53 54 | .separated.by.SEP...(fn.SEP.LIST |
| e680 | 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 34 20 22 | )..(defalias.'-interpose.#[514." |
| e6a0 | 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 32 30 33 | \300.\203...@.B\262..A\262..\203 |
| e6c0 | 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 31 31 5c | \"..@..BB\262..A\262.\202..\211\ |
| e6e0 | 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 35 38 39 33 35 29 5d 29 0a | 237\207".[nil].6.(#$...58935)]). |
| e700 | 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 |
| e720 | 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 |
| e740 | 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 65 66 66 | n-put.-interpose.pure.t.side-eff |
| e760 | 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 77 20 6c | ect-free].5).#@90.Return.a.new.l |
| e780 | 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 20 6c 69 | ist.of.the.first.item.in.each.li |
| e7a0 | 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 20 26 72 | st,.then.the.second.etc...(fn.&r |
| e7c0 | 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 6c 65 61 | est.LISTS)..(defalias.'-interlea |
| e7e0 | 76 65 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 3b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 | ve.#[128."\211\205;.\300\301\302 |
| e800 | 03 5c 22 5c 32 30 33 37 00 01 5c 33 30 33 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 2c 00 03 5c 32 | .\"\2037..\303\300\211.\203,..\2 |
| e820 | 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 40 | 11A\262.\242\262..\262..T\262..@ |
| e840 | 05 42 5c 32 36 32 05 5c 32 30 32 10 00 5c 32 36 36 04 5c 33 30 34 5c 33 30 35 03 5c 22 5c 32 36 | .B\262.\202..\266.\304\305.\"\26 |
| e860 | 32 02 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 | 2.\202..\211\237\262.\207".[nil. |
| e880 | 2d 6e 6f 6e 65 5c 3f 20 6e 75 6c 6c 20 30 20 2d 6d 61 70 20 63 64 72 5d 20 38 20 28 23 24 20 2e | -none\?.null.0.-map.cdr].8.(#$.. |
| e8a0 | 20 35 39 32 35 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 | .59250)]).(byte-code."\300\301\3 |
| e8c0 | 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 |
| e8e0 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6e 74 65 72 6c 65 61 76 65 20 70 75 72 65 | ".[function-put.-interleave.pure |
| e900 | 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 34 35 20 41 6e | .t.side-effect-free].5).#@145.An |
| e920 | 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 7a 69 70 2d 77 69 74 68 27 2e 0a 0a 54 68 | aphoric.form.of.`-zip-with'...Th |
| e940 | 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 73 74 31 20 61 72 65 20 62 6f 75 6e 64 20 61 73 | e.elements.in.list1.are.bound.as |
| e960 | 20 73 79 6d 62 6f 6c 20 60 69 74 27 2c 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 | .symbol.`it',.the.elements.in.li |
| e980 | 73 74 32 20 61 73 20 73 79 6d 62 6f 6c 20 60 6f 74 68 65 72 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d | st2.as.symbol.`other'...(fn.FORM |
| e9a0 | 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 2d 7a 69 70 2d | .LIST1.LIST2)..(defalias.'--zip- |
| e9c0 | 77 69 74 68 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 21 5c | with.'(macro...#[771."\300\301!\ |
| e9e0 | 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 03 5c 33 30 35 42 03 06 07 44 03 | 300\302!\300\303!\304.\305B...D. |
| ea00 | 06 07 44 45 5c 33 30 36 5c 33 30 37 05 05 45 5c 33 30 34 5c 33 31 30 5c 33 31 31 06 08 44 44 5c | ..DE\306\307..E\304\310\311..DD\ |
| ea20 | 33 31 32 5c 33 31 31 06 08 44 44 44 5c 33 31 33 06 5c 66 06 5c 6e 45 5c 33 31 34 06 09 44 5c 33 | 312\311..DDD\313.\f.\nE\314..D\3 |
| ea40 | 31 34 06 09 44 5c 32 35 37 05 45 5c 33 31 35 06 06 44 46 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 | 14..D\257.E\315..DF\207".[make-s |
| ea60 | 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 22 6c 69 73 74 31 22 20 22 6c 69 73 74 32 22 20 6c | ymbol."result"."list1"."list2".l |
| ea80 | 65 74 20 28 6e 69 6c 29 20 77 68 69 6c 65 20 61 6e 64 20 69 74 20 63 61 72 20 6f 74 68 65 72 20 | et.(nil).while.and.it.car.other. |
| eaa0 | 21 63 6f 6e 73 20 21 63 64 72 20 6e 72 65 76 65 72 73 65 5d 20 31 36 20 28 23 24 20 2e 20 35 39 | !cons.!cdr.nreverse].16.(#$...59 |
| eac0 | 36 37 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 7a 69 70 2d 77 69 74 68 20 27 65 64 65 62 75 67 | 678)])).(put.'--zip-with.'edebug |
| eae0 | 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)).#@ |
| eb00 | 33 34 37 20 5a 69 70 20 74 68 65 20 74 77 6f 20 6c 69 73 74 73 20 4c 49 53 54 31 20 61 6e 64 20 | 347.Zip.the.two.lists.LIST1.and. |
| eb20 | 4c 49 53 54 32 20 75 73 69 6e 67 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 2e 20 20 54 68 69 73 | LIST2.using.a.function.FN...This |
| eb40 | 0a 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 70 70 6c 69 65 64 20 70 61 69 72 77 69 73 65 20 74 61 | .function.is.applied.pairwise.ta |
| eb60 | 6b 69 6e 67 20 61 73 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 65 6c 65 6d 65 6e 74 20 6f | king.as.first.argument.element.o |
| eb80 | 66 0a 4c 49 53 54 31 20 61 6e 64 20 61 73 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 65 | f.LIST1.and.as.second.argument.e |
| eba0 | 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 54 32 20 61 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 | lement.of.LIST2.at.corresponding |
| ebc0 | 0a 70 6f 73 69 74 69 6f 6e 2e 0a 0a 54 68 65 20 61 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 60 | .position...The.anaphoric.form.` |
| ebe0 | 2d 2d 7a 69 70 2d 77 69 74 68 27 20 62 69 6e 64 73 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 66 | --zip-with'.binds.the.elements.f |
| ec00 | 72 6f 6d 20 4c 49 53 54 31 20 61 73 20 73 79 6d 62 6f 6c 20 60 69 74 27 2c 0a 61 6e 64 20 74 68 | rom.LIST1.as.symbol.`it',.and.th |
| ec20 | 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 32 20 61 73 20 73 79 6d 62 6f 6c 20 | e.elements.from.LIST2.as.symbol. |
| ec40 | 60 6f 74 68 65 72 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 31 20 4c 49 53 54 32 29 1f 0a 28 | `other'...(fn.FN.LIST1.LIST2)..( |
| ec60 | 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 2d 77 69 74 68 20 23 5b 37 37 31 20 22 5c 33 30 30 02 | defalias.'-zip-with.#[771."\300. |
| ec80 | 02 01 5c 32 30 33 23 00 5c 32 31 31 5c 32 30 33 23 00 01 40 01 40 06 07 02 02 5c 22 05 42 5c 32 | ..\203#.\211\203#..@.@....\".B\2 |
| eca0 | 36 32 05 03 41 5c 32 36 32 04 02 41 5c 32 36 36 5c 32 30 33 5c 32 30 32 03 00 02 5c 32 33 37 5c | 62..A\262..A\266\203\202...\237\ |
| ecc0 | 32 30 37 22 20 5b 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 36 30 31 36 34 29 5d 29 0a 23 40 33 | 207".[nil].11.(#$...60164)]).#@3 |
| ece0 | 38 30 20 5a 69 70 20 4c 49 53 54 53 20 74 6f 67 65 74 68 65 72 2e 20 20 47 72 6f 75 70 20 74 68 | 80.Zip.LISTS.together...Group.th |
| ed00 | 65 20 68 65 61 64 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 | e.head.of.each.list,.followed.by |
| ed20 | 20 74 68 65 0a 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 65 61 63 68 20 6c 69 73 | .the.second.elements.of.each.lis |
| ed40 | 74 2c 20 61 6e 64 20 73 6f 20 6f 6e 2e 20 54 68 65 20 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 | t,.and.so.on..The.lengths.of.the |
| ed60 | 20 72 65 74 75 72 6e 65 64 0a 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f | .returned.groupings.are.equal.to |
| ed80 | 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 73 68 6f 72 74 65 73 74 20 69 6e 70 75 | .the.length.of.the.shortest.inpu |
| eda0 | 74 20 6c 69 73 74 2e 0a 0a 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 6c 77 | t.list...The.return.value.is.alw |
| edc0 | 61 79 73 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 2c 20 77 68 69 63 68 20 69 73 20 61 20 64 69 | ays.list.of.lists,.which.is.a.di |
| ede0 | 66 66 65 72 65 6e 63 65 0a 66 72 6f 6d 20 60 2d 7a 69 70 2d 70 61 69 72 27 20 77 68 69 63 68 20 | fference.from.`-zip-pair'.which. |
| ee00 | 72 65 74 75 72 6e 73 20 61 20 63 6f 6e 73 2d 63 65 6c 6c 20 69 6e 20 63 61 73 65 20 74 77 6f 20 | returns.a.cons-cell.in.case.two. |
| ee20 | 69 6e 70 75 74 0a 6c 69 73 74 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 2e 0a 0a 53 65 65 20 61 | input.lists.are.provided...See.a |
| ee40 | 6c 73 6f 3a 20 60 2d 7a 69 70 27 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 | lso:.`-zip'..(fn.&rest.LISTS)..( |
| ee60 | 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 2d 6c 69 73 74 73 20 23 5b 31 32 38 20 22 5c 32 31 31 | defalias.'-zip-lists.#[128."\211 |
| ee80 | 5c 32 30 35 21 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 | \205!.\300\301\302.\"\203..\303\ |
| eea0 | 33 30 34 03 5c 22 01 42 5c 32 36 32 01 5c 33 30 33 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 | 304.\".B\262.\303\305.\"\262.\20 |
| eec0 | 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 | 2..\211\237\262.\207".[nil.-none |
| eee0 | 5c 3f 20 6e 75 6c 6c 20 6d 61 70 63 61 72 20 63 61 72 20 63 64 72 5d 20 35 20 28 23 24 20 2e 20 | \?.null.mapcar.car.cdr].5.(#$... |
| ef00 | 36 30 36 34 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 | 60643)]).(byte-code."\300\301\30 |
| ef20 | 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" |
| ef40 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 2d 6c 69 73 74 73 20 70 75 72 65 20 74 | .[function-put.-zip-lists.pure.t |
| ef60 | 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 37 36 20 5a 69 70 20 | .side-effect-free].5).#@476.Zip. |
| ef80 | 4c 49 53 54 53 20 74 6f 67 65 74 68 65 72 2e 20 20 47 72 6f 75 70 20 74 68 65 20 68 65 61 64 20 | LISTS.together...Group.the.head. |
| efa0 | 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 0a 73 65 | of.each.list,.followed.by.the.se |
| efc0 | 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 65 61 63 68 20 6c 69 73 74 2c 20 61 6e 64 20 | cond.elements.of.each.list,.and. |
| efe0 | 73 6f 20 6f 6e 2e 20 54 68 65 20 6c 65 6e 67 74 68 73 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e | so.on..The.lengths.of.the.return |
| f000 | 65 64 0a 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 6c 65 | ed.groupings.are.equal.to.the.le |
| f020 | 6e 67 74 68 20 6f 66 20 74 68 65 20 73 68 6f 72 74 65 73 74 20 69 6e 70 75 74 20 6c 69 73 74 2e | ngth.of.the.shortest.input.list. |
| f040 | 0a 0a 49 66 20 74 77 6f 20 6c 69 73 74 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 61 73 20 61 | ..If.two.lists.are.provided.as.a |
| f060 | 72 67 75 6d 65 6e 74 73 2c 20 72 65 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 61 | rguments,.return.the.groupings.a |
| f080 | 73 20 61 20 6c 69 73 74 0a 6f 66 20 63 6f 6e 73 20 63 65 6c 6c 73 2e 20 4f 74 68 65 72 77 69 73 | s.a.list.of.cons.cells..Otherwis |
| f0a0 | 65 2c 20 72 65 74 75 72 6e 20 74 68 65 20 67 72 6f 75 70 69 6e 67 73 20 61 73 20 61 20 6c 69 73 | e,.return.the.groupings.as.a.lis |
| f0c0 | 74 20 6f 66 20 6c 69 73 74 73 2e 0a 0a 55 73 65 20 60 2d 7a 69 70 2d 6c 69 73 74 73 27 20 69 66 | t.of.lists...Use.`-zip-lists'.if |
| f0e0 | 20 79 6f 75 20 6e 65 65 64 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 74 6f 20 61 6c | .you.need.the.return.value.to.al |
| f100 | 77 61 79 73 20 62 65 20 61 20 6c 69 73 74 0a 6f 66 20 6c 69 73 74 73 2e 0a 0a 41 6c 69 61 73 3a | ways.be.a.list.of.lists...Alias: |
| f120 | 20 60 2d 7a 69 70 2d 70 61 69 72 27 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 7a 69 70 2d 6c 69 | .`-zip-pair'..See.also:.`-zip-li |
| f140 | 73 74 73 27 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 | sts'..(fn.&rest.LISTS)..(defalia |
| f160 | 73 20 27 2d 7a 69 70 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 30 35 32 00 5c 33 30 30 5c 33 30 | s.'-zip.#[128."\211\2052.\300\30 |
| f180 | 31 5c 33 30 32 03 5c 22 5c 32 30 33 1d 00 5c 33 30 33 5c 33 30 34 03 5c 22 01 42 5c 32 36 32 01 | 1\302.\"\203..\303\304.\".B\262. |
| f1a0 | 5c 33 30 33 5c 33 30 35 03 5c 22 5c 32 36 32 02 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 | \303\305.\"\262.\202..\211\237\2 |
| f1c0 | 36 32 01 01 47 5c 33 30 36 55 5c 32 30 33 2f 00 5c 33 30 33 5c 33 30 37 02 5c 22 5c 32 30 32 30 | 62..G\306U\203/.\303\307.\"\2020 |
| f1e0 | 00 5c 32 31 31 5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 6e 6f 6e 65 5c 3f 20 6e 75 6c | .\211\262.\207".[nil.-none\?.nul |
| f200 | 6c 20 6d 61 70 63 61 72 20 63 61 72 20 63 64 72 20 32 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 | l.mapcar.car.cdr.2.#[257."\211@. |
| f220 | 41 40 42 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 5d 20 35 20 | A@B\207".[].3."\n\n(fn.IT)"]].5. |
| f240 | 28 23 24 20 2e 20 36 31 33 30 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | (#$...61308)]).(byte-code."\300\ |
| f260 | 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 |
| f280 | 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 6e 2d 70 75 74 20 2d | 5\306\301\"\207".[function-put.- |
| f2a0 | 7a 69 70 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 | zip.pure.t.side-effect-free.defa |
| f2c0 | 6c 69 61 73 20 2d 7a 69 70 2d 70 61 69 72 5d 20 35 29 0a 23 40 31 37 37 20 5a 69 70 20 4c 49 53 | lias.-zip-pair].5).#@177.Zip.LIS |
| f2e0 | 54 53 2c 20 77 69 74 68 20 46 49 4c 4c 2d 56 41 4c 55 45 20 70 61 64 64 65 64 20 6f 6e 74 6f 20 | TS,.with.FILL-VALUE.padded.onto. |
| f300 | 74 68 65 20 73 68 6f 72 74 65 72 20 6c 69 73 74 73 2e 20 54 68 65 0a 6c 65 6e 67 74 68 73 20 6f | the.shorter.lists..The.lengths.o |
| f320 | 66 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 67 72 6f 75 70 69 6e 67 73 20 61 72 65 20 65 71 75 | f.the.returned.groupings.are.equ |
| f340 | 61 6c 20 74 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 0a 6c 6f 6e 67 65 73 74 20 | al.to.the.length.of.the.longest. |
| f360 | 69 6e 70 75 74 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 | input.list...(fn.FILL-VALUE.&res |
| f380 | 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 7a 69 70 2d 66 69 6c 6c 20 23 | t.LISTS)..(defalias.'-zip-fill.# |
| f3a0 | 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 30 5c 33 30 32 05 05 42 5c 22 5c 22 5c 32 30 | [385."\300\301\300\302..B\"\"\20 |
| f3c0 | 37 22 20 5b 61 70 70 6c 79 20 2d 7a 69 70 20 2d 70 61 64 5d 20 38 20 28 23 24 20 2e 20 36 32 31 | 7".[apply.-zip.-pad].8.(#$...621 |
| f3e0 | 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 33 | 69)]).(byte-code."\300\301\302\3 |
| f400 | 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 |
| f420 | 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 7a 69 70 2d 66 69 6c 6c 20 70 75 72 65 20 74 20 73 69 64 | unction-put.-zip-fill.pure.t.sid |
| f440 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 33 37 31 20 55 6e 7a 69 70 20 4c 49 | e-effect-free].5).#@371.Unzip.LI |
| f460 | 53 54 53 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 74 20 6c 69 6b 65 20 60 2d 7a 69 70 | STS...This.works.just.like.`-zip |
| f480 | 27 20 62 75 74 20 74 61 6b 65 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 69 6e 73 74 | '.but.takes.a.list.of.lists.inst |
| f4a0 | 65 61 64 20 6f 66 0a 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 | ead.of.a.variable.number.of.argu |
| f4c0 | 6d 65 6e 74 73 2c 20 73 75 63 68 20 74 68 61 74 0a 0a 20 20 28 2d 75 6e 7a 69 70 20 28 2d 7a 69 | ments,.such.that....(-unzip.(-zi |
| f4e0 | 70 20 4c 31 20 4c 32 20 4c 33 20 2e 2e 2e 29 29 0a 0a 69 73 20 69 64 65 6e 74 69 74 79 20 28 67 | p.L1.L2.L3....))..is.identity.(g |
| f500 | 69 76 65 6e 20 74 68 61 74 20 74 68 65 20 6c 69 73 74 73 20 61 72 65 20 74 68 65 20 73 61 6d 65 | iven.that.the.lists.are.the.same |
| f520 | 20 6c 65 6e 67 74 68 29 2e 0a 0a 4e 6f 74 65 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 20 74 68 | .length)...Note.in.particular.th |
| f540 | 61 74 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 6f 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f | at.calling.this.on.a.list.of.two |
| f560 | 20 6c 69 73 74 73 20 77 69 6c 6c 0a 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e | .lists.will.return.a.list.of.con |
| f580 | 73 2d 63 65 6c 6c 73 20 73 75 63 68 20 74 68 61 74 20 74 68 65 20 61 62 6f 76 65 20 69 64 65 6e | s-cells.such.that.the.above.iden |
| f5a0 | 74 69 74 79 20 77 6f 72 6b 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 7a 69 70 27 0a 0a 28 | tity.works...See.also:.`-zip'..( |
| f5c0 | 66 6e 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 6e 7a 69 70 20 23 5b 32 | fn.LISTS)..(defalias.'-unzip.#[2 |
| f5e0 | 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 2d 7a 69 70 | 57."\300\301.\"\207".[apply.-zip |
| f600 | 5d 20 34 20 28 23 24 20 2e 20 36 32 35 35 32 29 5d 29 0a 23 40 31 34 30 20 52 65 74 75 72 6e 20 | ].4.(#$...62552)]).#@140.Return. |
| f620 | 61 6e 20 69 6e 66 69 6e 69 74 65 20 63 69 72 63 75 6c 61 72 20 63 6f 70 79 20 6f 66 20 4c 49 53 | an.infinite.circular.copy.of.LIS |
| f640 | 54 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74 20 63 79 63 6c 65 73 20 74 68 72 6f | T..The.returned.list.cycles.thro |
| f660 | 75 67 68 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 20 72 65 70 | ugh.the.elements.of.LIST.and.rep |
| f680 | 65 61 74 73 0a 66 72 6f 6d 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 2e 0a 0a 28 66 6e 20 4c 49 | eats.from.the.beginning...(fn.LI |
| f6a0 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 79 63 6c 65 20 23 5b 32 35 37 20 22 5c 33 | ST)..(defalias.'-cycle.#[257."\3 |
| f6c0 | 30 30 01 5c 33 30 31 5c 22 5c 32 31 31 01 5c 32 34 34 5c 32 30 37 22 20 5b 61 70 70 65 6e 64 20 | 00.\301\"\211.\244\207".[append. |
| f6e0 | 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 36 33 30 30 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | nil].4.(#$...63001)]).(byte-code |
| f700 | 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\ |
| f720 | 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 63 79 63 | 303#\300\207".[function-put.-cyc |
| f740 | 6c 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 35 29 0a 23 | le.pure.t.side-effect-free].5).# |
| f760 | 40 31 32 38 20 41 70 70 65 6e 64 73 20 46 49 4c 4c 2d 56 41 4c 55 45 20 74 6f 20 74 68 65 20 65 | @128.Appends.FILL-VALUE.to.the.e |
| f780 | 6e 64 20 6f 66 20 65 61 63 68 20 6c 69 73 74 20 69 6e 20 4c 49 53 54 53 20 73 75 63 68 20 74 68 | nd.of.each.list.in.LISTS.such.th |
| f7a0 | 61 74 20 74 68 65 79 0a 77 69 6c 6c 20 61 6c 6c 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6c | at.they.will.all.have.the.same.l |
| f7c0 | 65 6e 67 74 68 2e 0a 0a 28 66 6e 20 46 49 4c 4c 2d 56 41 4c 55 45 20 26 72 65 73 74 20 4c 49 53 | ength...(fn.FILL-VALUE.&rest.LIS |
| f7e0 | 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 61 64 20 23 5b 33 38 35 20 22 5c 33 30 30 | TS)..(defalias.'-pad.#[385."\300 |
| f800 | 5c 33 30 31 02 5c 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 5c 22 21 5c 33 30 35 5c 33 30 36 5c | \301.\"\302\303\304.\"!\305\306\ |
| f820 | 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 06 09 06 07 5c 22 5c 33 31 33 5c 22 5c 33 31 34 5c | 307\310\311\312....\"\313\"\314\ |
| f840 | 33 31 35 25 03 5c 22 5c 32 30 37 22 20 5b 2d 61 6e 6e 6f 74 61 74 65 20 6c 65 6e 67 74 68 20 2d | 315%.\"\207".[-annotate.length.- |
| f860 | 6d 61 78 20 2d 6d 61 70 20 63 61 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f | max.-map.car.mapcar.make-byte-co |
| f880 | 64 65 20 32 35 37 20 22 5c 33 30 32 01 41 5c 33 30 33 5c 33 30 31 04 40 5a 5c 33 30 30 5c 22 5c | de.257."\302.A\303\301.@Z\300\"\ |
| f8a0 | 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 61 70 70 65 6e 64 20 2d 72 | "\207".vconcat.vector.[append.-r |
| f8c0 | 65 70 65 61 74 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 31 32 20 28 23 24 20 2e | epeat].6."\n\n(fn.IT)"].12.(#$.. |
| f8e0 | 20 36 33 33 33 33 29 5d 29 0a 23 40 31 34 31 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 | .63333)]).#@141.Return.a.list.of |
| f900 | 20 63 6f 6e 73 20 63 65 6c 6c 73 20 77 68 65 72 65 20 65 61 63 68 20 63 65 6c 6c 20 69 73 20 46 | .cons.cells.where.each.cell.is.F |
| f920 | 4e 20 61 70 70 6c 69 65 64 20 74 6f 20 65 61 63 68 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 4c 49 53 | N.applied.to.each.element.of.LIS |
| f940 | 54 20 70 61 69 72 65 64 20 77 69 74 68 20 74 68 65 20 75 6e 6d 6f 64 69 66 69 65 64 20 65 6c 65 | T.paired.with.the.unmodified.ele |
| f960 | 6d 65 6e 74 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 | ment.of.LIST...(fn.FN.LIST)..(de |
| f980 | 66 61 6c 69 61 73 20 27 2d 61 6e 6e 6f 74 61 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | falias.'-annotate.#[514."\300\30 |
| f9a0 | 31 03 03 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d 7a 69 70 20 2d 6d 61 70 5d 20 36 20 28 23 24 20 | 1..\".\"\207".[-zip.-map].6.(#$. |
| f9c0 | 2e 20 36 33 37 32 38 29 5d 29 0a 23 40 35 31 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f | ..63728)]).#@51.Anaphoric.versio |
| f9e0 | 6e 20 6f 66 20 60 2d 61 6e 6e 6f 74 61 74 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 | n.of.`-annotate'...(fn.FORM.LIST |
| fa00 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 28 6d 61 63 72 6f | )..(defalias.'--annotate.'(macro |
| fa20 | 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 | ...#[514."\300\301\302.E.E\207". |
| fa40 | 5b 2d 61 6e 6e 6f 74 61 74 65 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 | [-annotate.lambda.(it)].6.(#$... |
| fa60 | 36 33 39 35 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 61 6e 6e 6f 74 61 74 65 20 27 65 64 65 62 | 63952)])).(put.'--annotate.'edeb |
| fa80 | 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 | ug-form-spec.'(def-form.form)).# |
| faa0 | 40 31 34 30 20 48 65 6c 70 65 72 20 66 6f 72 20 60 2d 74 61 62 6c 65 27 20 61 6e 64 20 60 2d 74 | @140.Helper.for.`-table'.and.`-t |
| fac0 | 61 62 6c 65 2d 66 6c 61 74 27 2e 0a 0a 49 66 20 61 20 6c 69 73 74 20 6f 76 65 72 66 6c 6f 77 73 | able-flat'...If.a.list.overflows |
| fae0 | 2c 20 63 61 72 72 79 20 74 6f 20 74 68 65 20 72 69 67 68 74 20 61 6e 64 20 72 65 73 65 74 20 74 | ,.carry.to.the.right.and.reset.t |
| fb00 | 68 65 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4c 49 53 54 53 20 52 45 53 54 4f 52 45 2d 4c 49 53 54 | he.list...(fn.LISTS.RESTORE-LIST |
| fb20 | 53 20 26 6f 70 74 69 6f 6e 61 6c 20 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 | S.&optional.RE)..(defalias.'dash |
| fb40 | 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 20 23 5b 37 37 30 20 22 02 40 5c 32 30 36 08 00 02 5c 33 | --table-carry.#[770.".@\206...\3 |
| fb60 | 30 30 5c 32 33 32 3f 5c 32 30 35 43 00 02 02 40 5c 32 34 30 5c 32 31 30 02 5c 32 31 31 41 40 5c | 00\232?\205C...@\240\210.\211A@\ |
| fb80 | 32 31 31 02 41 02 41 5c 32 34 30 5c 32 31 30 5c 32 36 36 03 02 41 5c 32 36 32 03 01 41 5c 32 36 | 211.A.A\240\210\266..A\262..A\26 |
| fba0 | 32 02 5c 32 31 31 5c 32 30 33 00 00 5c 32 31 31 40 5c 32 33 37 01 5c 32 31 31 41 02 02 41 40 42 | 2.\211\203..\211@\237.\211A..A@B |
| fbc0 | 5c 32 34 30 5c 32 36 36 03 5c 32 31 31 5c 33 30 31 5c 32 34 30 5c 32 31 30 5c 32 31 31 41 5c 32 | \240\266.\211\301\240\210\211A\2 |
| fbe0 | 36 32 01 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 6e 69 6c 5d 20 38 20 28 23 24 | 62.\202..\207".[(nil).nil].8.(#$ |
| fc00 | 20 2e 20 36 34 31 36 35 29 5d 29 0a 23 40 33 35 32 20 43 6f 6d 70 75 74 65 20 6f 75 74 65 72 20 | ...64165)]).#@352.Compute.outer. |
| fc20 | 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 54 53 20 75 73 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 | product.of.LISTS.using.function. |
| fc40 | 46 4e 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 68 61 76 65 | FN...The.function.FN.should.have |
| fc60 | 20 74 68 65 20 73 61 6d 65 20 61 72 69 74 79 20 61 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 | .the.same.arity.as.the.number.of |
| fc80 | 0a 73 75 70 70 6c 69 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 20 6f 75 74 65 72 20 70 72 6f 64 | .supplied.lists...The.outer.prod |
| fca0 | 75 63 74 20 69 73 20 63 6f 6d 70 75 74 65 64 20 62 79 20 61 70 70 6c 79 69 6e 67 20 66 6e 20 74 | uct.is.computed.by.applying.fn.t |
| fcc0 | 6f 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 0a 63 6f 6d 62 69 6e 61 74 69 6f 6e 73 20 63 72 65 61 | o.all.possible.combinations.crea |
| fce0 | 74 65 64 20 62 79 20 74 61 6b 69 6e 67 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 65 | ted.by.taking.one.element.from.e |
| fd00 | 61 63 68 20 6c 69 73 74 20 69 6e 0a 6f 72 64 65 72 2e 20 20 54 68 65 20 64 69 6d 65 6e 73 69 6f | ach.list.in.order...The.dimensio |
| fd20 | 6e 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 28 6c 65 6e 67 74 68 20 6c 69 73 74 73 | n.of.the.result.is.(length.lists |
| fd40 | 29 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 74 61 62 6c 65 2d 66 6c 61 74 27 0a 0a 28 66 6e | )...See.also:.`-table-flat'..(fn |
| fd60 | 20 46 4e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 61 | .FN.&rest.LISTS)..(defalias.'-ta |
| fd80 | 62 6c 65 20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 30 31 02 21 5c 33 30 32 03 47 5c 33 30 | ble.#[385."\300.!\301.!\302.G\30 |
| fda0 | 33 5c 22 01 40 5c 32 30 33 31 00 5c 33 30 34 05 5c 33 30 35 5c 33 30 36 06 07 5c 22 5c 22 01 5c | 3\".@\2031.\304.\305\306..\"\".\ |
| fdc0 | 32 31 31 02 02 40 42 5c 32 34 30 5c 32 36 36 02 04 5c 32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c | 211..@B\240\266..\211@A\240\210\ |
| fde0 | 33 30 37 05 05 04 23 5c 32 36 36 02 5c 32 30 32 0b 00 5c 33 30 31 01 21 40 5c 32 33 37 5c 32 30 | 307...#\266.\202..\301.!@\237\20 |
| fe00 | 37 22 20 5b 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6d 61 6b 65 2d 6c 69 73 74 | 7".[copy-sequence.last.make-list |
| fe20 | 20 6e 69 6c 20 61 70 70 6c 79 20 2d 6d 61 70 20 63 61 72 20 64 61 73 68 2d 2d 74 61 62 6c 65 2d | .nil.apply.-map.car.dash--table- |
| fe40 | 63 61 72 72 79 5d 20 31 30 20 28 23 24 20 2e 20 36 34 35 33 30 29 5d 29 0a 23 40 35 33 39 20 43 | carry].10.(#$...64530)]).#@539.C |
| fe60 | 6f 6d 70 75 74 65 20 66 6c 61 74 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 6f 66 20 4c 49 53 | ompute.flat.outer.product.of.LIS |
| fe80 | 54 53 20 75 73 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 46 4e 2e 0a 0a 54 68 65 20 66 75 6e 63 74 | TS.using.function.FN...The.funct |
| fea0 | 69 6f 6e 20 46 4e 20 73 68 6f 75 6c 64 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 61 72 69 74 | ion.FN.should.have.the.same.arit |
| fec0 | 79 20 61 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 73 75 70 70 6c 69 65 64 20 6c 69 73 74 | y.as.the.number.of.supplied.list |
| fee0 | 73 2e 0a 0a 54 68 65 20 6f 75 74 65 72 20 70 72 6f 64 75 63 74 20 69 73 20 63 6f 6d 70 75 74 65 | s...The.outer.product.is.compute |
| ff00 | 64 20 62 79 20 61 70 70 6c 79 69 6e 67 20 66 6e 20 74 6f 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 | d.by.applying.fn.to.all.possible |
| ff20 | 0a 63 6f 6d 62 69 6e 61 74 69 6f 6e 73 20 63 72 65 61 74 65 64 20 62 79 20 74 61 6b 69 6e 67 20 | .combinations.created.by.taking. |
| ff40 | 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 65 61 63 68 20 6c 69 73 74 20 69 6e 0a 6f 72 | one.element.from.each.list.in.or |
| ff60 | 64 65 72 2e 20 20 54 68 65 20 72 65 73 75 6c 74 73 20 61 72 65 20 66 6c 61 74 74 65 6e 65 64 2c | der...The.results.are.flattened, |
| ff80 | 20 69 67 6e 6f 72 69 6e 67 20 74 68 65 20 74 65 6e 73 6f 72 20 73 74 72 75 63 74 75 72 65 0a 6f | .ignoring.the.tensor.structure.o |
| ffa0 | 66 20 74 68 65 20 72 65 73 75 6c 74 2e 20 20 54 68 69 73 20 69 73 20 65 71 75 69 76 61 6c 65 6e | f.the.result...This.is.equivalen |
| ffc0 | 74 20 74 6f 20 63 61 6c 6c 69 6e 67 3a 0a 0a 20 20 28 2d 66 6c 61 74 74 65 6e 2d 6e 20 28 31 2d | t.to.calling:....(-flatten-n.(1- |
| ffe0 | 20 28 6c 65 6e 67 74 68 20 6c 69 73 74 73 29 29 20 28 61 70 70 6c 79 20 5c 3d 27 2d 74 61 62 6c | .(length.lists)).(apply.\='-tabl |
| 10000 | 65 20 66 6e 20 6c 69 73 74 73 29 29 0a 0a 62 75 74 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 | e.fn.lists))..but.the.implementa |
| 10020 | 74 69 6f 6e 20 68 65 72 65 20 69 73 20 6d 75 63 68 20 6d 6f 72 65 20 65 66 66 69 63 69 65 6e 74 | tion.here.is.much.more.efficient |
| 10040 | 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 61 74 74 65 6e 2d 6e 27 2c 20 60 2d 74 61 62 | ...See.also:.`-flatten-n',.`-tab |
| 10060 | 6c 65 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 65 66 61 6c | le'..(fn.FN.&rest.LISTS)..(defal |
| 10080 | 69 61 73 20 27 2d 74 61 62 6c 65 2d 66 6c 61 74 20 23 5b 33 38 35 20 22 5c 33 30 30 01 21 5c 33 | ias.'-table-flat.#[385."\300.!\3 |
| 100a0 | 30 31 02 21 5c 33 30 32 01 40 5c 32 30 33 28 00 5c 33 30 33 05 5c 33 30 34 5c 33 30 35 06 07 5c | 01.!\302.@\203(.\303.\304\305..\ |
| 100c0 | 22 5c 22 5c 32 31 31 02 42 5c 32 36 32 02 04 5c 32 31 31 40 41 5c 32 34 30 5c 32 31 30 5c 33 30 | "\"\211.B\262..\211@A\240\210\30 |
| 100e0 | 36 05 05 5c 22 5c 32 36 36 02 5c 32 30 32 07 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 63 | 6..\"\266.\202..\211\237\207".[c |
| 10100 | 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 6c 61 73 74 20 6e 69 6c 20 61 70 70 6c 79 20 2d 6d 61 70 | opy-sequence.last.nil.apply.-map |
| 10120 | 20 63 61 72 20 64 61 73 68 2d 2d 74 61 62 6c 65 2d 63 61 72 72 79 5d 20 31 30 20 28 23 24 20 2e | .car.dash--table-carry].10.(#$.. |
| 10140 | 20 36 35 31 31 39 29 5d 29 0a 23 40 31 35 31 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 | .65119)]).#@151.Return.the.index |
| 10160 | 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 67 69 76 | .of.the.first.element.in.the.giv |
| 10180 | 65 6e 20 4c 49 53 54 20 77 68 69 63 68 0a 69 73 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 71 75 | en.LIST.which.is.equal.to.the.qu |
| 101a0 | 65 72 79 20 65 6c 65 6d 65 6e 74 20 45 4c 45 4d 2c 20 6f 72 20 6e 69 6c 20 69 66 20 74 68 65 72 | ery.element.ELEM,.or.nil.if.ther |
| 101c0 | 65 20 69 73 20 6e 6f 0a 73 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 | e.is.no.such.element...(fn.ELEM. |
| 101e0 | 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 65 78 20 23 5b | LIST)..(defalias.'-elem-index.#[ |
| 10200 | 35 31 34 20 22 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 65 6c 65 6d 2d 69 6e 64 69 63 | 514."\300..\"@\207".[-elem-indic |
| 10220 | 65 73 5d 20 35 20 28 23 24 20 2e 20 36 35 38 37 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | es].5.(#$...65872)]).(byte-code. |
| 10240 | 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 |
| 10260 | 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 65 6c 65 6d | 03#\300\207".[function-put.-elem |
| 10280 | 2d 69 6e 64 65 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 | -index.pure.t.side-effect-free]. |
| 102a0 | 35 29 0a 23 40 31 31 33 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 69 63 65 73 20 6f 66 20 61 | 5).#@113.Return.the.indices.of.a |
| 102c0 | 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c 49 53 54 20 65 71 75 61 6c 20 74 6f 20 74 68 65 | ll.elements.in.LIST.equal.to.the |
| 102e0 | 20 71 75 65 72 79 0a 65 6c 65 6d 65 6e 74 20 45 4c 45 4d 2c 20 69 6e 20 61 73 63 65 6e 64 69 6e | .query.element.ELEM,.in.ascendin |
| 10300 | 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 45 4c 45 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | g.order...(fn.ELEM.LIST)..(defal |
| 10320 | 69 61 73 20 27 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | ias.'-elem-indices.#[514."\300\3 |
| 10340 | 30 31 5c 33 30 32 04 5c 22 02 5c 22 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 | 01\302.\".\"\207".[-find-indices |
| 10360 | 20 2d 70 61 72 74 69 61 6c 20 65 71 75 61 6c 5d 20 36 20 28 23 24 20 2e 20 36 36 32 31 37 29 5d | .-partial.equal].6.(#$...66217)] |
| 10380 | 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#\ |
| 103a0 | 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 |
| 103c0 | 69 6f 6e 2d 70 75 74 20 2d 65 6c 65 6d 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 69 64 | ion-put.-elem-indices.pure.t.sid |
| 103e0 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 31 31 20 52 65 74 75 72 6e 20 74 | e-effect-free].5).#@111.Return.t |
| 10400 | 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 4c 49 | he.indices.of.all.elements.in.LI |
| 10420 | 53 54 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 0a 70 72 65 64 69 63 61 74 65 20 50 52 45 44 | ST.satisfying.the.predicate.PRED |
| 10440 | 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 50 52 45 44 20 | ,.in.ascending.order...(fn.PRED. |
| 10460 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 | LIST)..(defalias.'-find-indices. |
| 10480 | 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 33 30 32 5c 32 31 31 | #[514."\300\301\302.\303\302\211 |
| 104a0 | 03 5c 32 30 33 2a 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 | .\203*..\211A\262.\242\262..\262 |
| 104c0 | 01 02 54 5c 32 36 32 03 06 08 02 21 5c 32 30 35 23 00 5c 32 31 31 43 05 42 5c 32 36 32 05 5c 32 | ..T\262....!\205#.\211C.B\262.\2 |
| 104e0 | 30 32 07 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 32 30 37 22 20 5b 61 | 02..\266.\211\237\262.\"\207".[a |
| 10500 | 70 70 6c 79 20 61 70 70 65 6e 64 20 6e 69 6c 20 30 5d 20 31 31 20 28 23 24 20 2e 20 36 36 35 35 | pply.append.nil.0].11.(#$...6655 |
| 10520 | 32 29 5d 29 0a 23 40 35 35 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 | 2)]).#@55.Anaphoric.version.of.` |
| 10540 | 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f | -find-indices'...(fn.FORM.LIST). |
| 10560 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 27 28 6d 61 63 | .(defalias.'--find-indices.'(mac |
| 10580 | 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 |
| 105a0 | 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 | ".[-find-indices.lambda.(it)].6. |
| 105c0 | 28 23 24 20 2e 20 36 36 38 35 38 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 | (#$...66858)])).(put.'--find-ind |
| 105e0 | 69 63 65 73 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 | ices.'edebug-form-spec.'(def-for |
| 10600 | 6d 20 66 6f 72 6d 29 29 0a 23 40 31 38 36 20 54 61 6b 65 20 61 20 70 72 65 64 69 63 61 74 65 20 | m.form)).#@186.Take.a.predicate. |
| 10620 | 50 52 45 44 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 69 | PRED.and.a.LIST.and.return.the.i |
| 10640 | 6e 64 65 78 20 6f 66 20 74 68 65 0a 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 | ndex.of.the.first.element.in.the |
| 10660 | 20 6c 69 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 65 64 69 63 61 74 65 2c 20 | .list.satisfying.the.predicate,. |
| 10680 | 6f 72 20 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 63 68 20 65 6c 65 6d 65 | or.nil.if.there.is.no.such.eleme |
| 106a0 | 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 66 69 72 73 74 27 2e 0a 0a 28 66 6e 20 50 52 45 | nt...See.also.`-first'...(fn.PRE |
| 106c0 | 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e 64 2d 69 6e 64 65 78 20 | D.LIST)..(defalias.'-find-index. |
| 106e0 | 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 40 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 | #[514."\300..\"@\207".[-find-ind |
| 10700 | 69 63 65 73 5d 20 35 20 28 23 24 20 2e 20 36 37 30 38 37 29 5d 29 0a 23 40 35 33 20 41 6e 61 70 | ices].5.(#$...67087)]).#@53.Anap |
| 10720 | 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 69 6e 64 65 78 27 2e 0a | horic.version.of.`-find-index'.. |
| 10740 | 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 66 69 | .(fn.FORM.LIST)..(defalias.'--fi |
| 10760 | 6e 64 2d 69 6e 64 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 | nd-index.'(macro...#[514."\300\3 |
| 10780 | 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 69 6e 64 65 78 20 6c 61 6d | 01\302.E.E\207".[-find-index.lam |
| 107a0 | 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 36 37 33 35 36 29 5d 29 29 0a 28 70 75 74 | bda.(it)].6.(#$...67356)])).(put |
| 107c0 | 20 27 2d 2d 66 69 6e 64 2d 69 6e 64 65 78 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | .'--find-index.'edebug-form-spec |
| 107e0 | 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 38 34 20 54 61 6b 65 20 61 20 | .'(def-form.form)).#@184.Take.a. |
| 10800 | 70 72 65 64 69 63 61 74 65 20 50 52 45 44 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 | predicate.PRED.and.a.LIST.and.re |
| 10820 | 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 0a 6c 61 73 74 20 65 6c 65 6d 65 | turn.the.index.of.the.last.eleme |
| 10840 | 6e 74 20 69 6e 20 74 68 65 20 6c 69 73 74 20 73 61 74 69 73 66 79 69 6e 67 20 74 68 65 20 70 72 | nt.in.the.list.satisfying.the.pr |
| 10860 | 65 64 69 63 61 74 65 2c 20 6f 72 20 6e 69 6c 20 69 66 0a 74 68 65 72 65 20 69 73 20 6e 6f 20 73 | edicate,.or.nil.if.there.is.no.s |
| 10880 | 75 63 68 20 65 6c 65 6d 65 6e 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 2d 6c 61 73 74 27 2e 0a | uch.element...See.also.`-last'.. |
| 108a0 | 0a 28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 6e | .(fn.PRED.LIST)..(defalias.'-fin |
| 108c0 | 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 03 5c 22 | d-last-index.#[514."\300\301..\" |
| 108e0 | 21 5c 32 30 37 22 20 5b 2d 6c 61 73 74 2d 69 74 65 6d 20 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 | !\207".[-last-item.-find-indices |
| 10900 | 5d 20 36 20 28 23 24 20 2e 20 36 37 35 37 37 29 5d 29 0a 23 40 35 38 20 41 6e 61 70 68 6f 72 69 | ].6.(#$...67577)]).#@58.Anaphori |
| 10920 | 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 27 2e | c.version.of.`-find-last-index'. |
| 10940 | 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 66 | ..(fn.FORM.LIST)..(defalias.'--f |
| 10960 | 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 | ind-last-index.'(macro...#[514." |
| 10980 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 66 69 6e 64 2d 6c 61 73 | \300\301\302.E.E\207".[-find-las |
| 109a0 | 74 2d 69 6e 64 65 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 36 37 38 | t-index.lambda.(it)].6.(#$...678 |
| 109c0 | 36 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 6e 64 2d 6c 61 73 74 2d 69 6e 64 65 78 20 27 | 64)])).(put.'--find-last-index.' |
| 109e0 | 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d | edebug-form-spec.'(def-form.form |
| 10a00 | 29 29 0a 23 40 31 32 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 68 6f 73 65 20 65 6c 65 | )).#@123.Return.a.list.whose.ele |
| 10a20 | 6d 65 6e 74 73 20 61 72 65 20 65 6c 65 6d 65 6e 74 73 20 66 72 6f 6d 20 4c 49 53 54 20 73 65 6c | ments.are.elements.from.LIST.sel |
| 10a40 | 65 63 74 65 64 0a 61 73 20 60 28 6e 74 68 20 69 20 6c 69 73 74 29 60 20 66 6f 72 20 61 6c 6c 20 | ected.as.`(nth.i.list)`.for.all. |
| 10a60 | 69 20 66 72 6f 6d 20 49 4e 44 49 43 45 53 2e 0a 0a 28 66 6e 20 49 4e 44 49 43 45 53 20 4c 49 53 | i.from.INDICES...(fn.INDICES.LIS |
| 10a80 | 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 | T)..(defalias.'-select-by-indice |
| 10aa0 | 73 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 30 5c 32 31 31 03 5c 32 30 33 23 | s.#[514."\300.\301\300\211.\203# |
| 10ac0 | 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 | ..\211A\262.\242\262..\262..T\26 |
| 10ae0 | 32 03 01 06 06 38 05 42 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 | 2....8.B\262.\202..\266.\211\237 |
| 10b00 | 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 39 20 28 23 24 20 2e 20 36 38 31 30 35 29 5d 29 0a 28 | \207".[nil.0].9.(#$...68105)]).( |
| 10b20 | 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 |
| 10b40 | 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 |
| 10b60 | 2d 70 75 74 20 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 20 70 75 72 65 20 74 20 73 | -put.-select-by-indices.pure.t.s |
| 10b80 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 38 33 20 53 65 6c 65 63 74 | ide-effect-free].5).#@283.Select |
| 10ba0 | 20 43 4f 4c 55 4d 4e 53 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 73 20 61 | .COLUMNS.from.TABLE...TABLE.is.a |
| 10bc0 | 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 65 6e | .list.of.lists.where.each.elemen |
| 10be0 | 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 73 75 | t.represents.one.row..It.is.assu |
| 10c00 | 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 74 68 | med.each.row.has.the.same.length |
| 10c20 | 2e 0a 0a 45 61 63 68 20 72 6f 77 20 69 73 20 74 72 61 6e 73 66 6f 72 6d 65 64 20 73 75 63 68 20 | ...Each.row.is.transformed.such. |
| 10c40 | 74 68 61 74 20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 43 4f 4c 55 4d 4e 53 20 | that.only.the.specified.COLUMNS. |
| 10c60 | 61 72 65 0a 73 65 6c 65 63 74 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 63 | are.selected...See.also:.`-selec |
| 10c80 | 74 2d 63 6f 6c 75 6d 6e 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 27 0a | t-column',.`-select-by-indices'. |
| 10ca0 | 0a 28 66 6e 20 43 4f 4c 55 4d 4e 53 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | .(fn.COLUMNS.TABLE)..(defalias.' |
| 10cc0 | 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c | -select-columns.#[514."\300\301\ |
| 10ce0 | 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 | 302\303\304\305..!\306\"\307\310 |
| 10d00 | 25 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 | %.\"\207".[mapcar.make-byte-code |
| 10d20 | 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 74 20 76 | .257."\301\300.\"\207".vconcat.v |
| 10d40 | 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 |
| 10d60 | 5c 6e 28 66 6e 20 49 54 29 22 5d 20 39 20 28 23 24 20 2e 20 36 38 35 30 36 29 5d 29 0a 28 62 79 | \n(fn.IT)"].9.(#$...68506)]).(by |
| 10d80 | 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 33 | te-code."\300\301\302\303#\300\3 |
| 10da0 | 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 70 | 01\304\303#\300\207".[function-p |
| 10dc0 | 75 74 20 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | ut.-select-columns.pure.t.side-e |
| 10de0 | 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 35 37 20 53 65 6c 65 63 74 20 43 4f 4c 55 | ffect-free].5).#@257.Select.COLU |
| 10e00 | 4d 4e 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 54 41 42 4c 45 20 69 73 20 61 20 6c 69 73 74 20 | MN.from.TABLE...TABLE.is.a.list. |
| 10e20 | 6f 66 20 6c 69 73 74 73 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 72 65 70 72 | of.lists.where.each.element.repr |
| 10e40 | 65 73 65 6e 74 73 20 6f 6e 65 20 72 6f 77 2e 0a 49 74 20 69 73 20 61 73 73 75 6d 65 64 20 65 61 | esents.one.row..It.is.assumed.ea |
| 10e60 | 63 68 20 72 6f 77 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 0a 54 68 65 | ch.row.has.the.same.length...The |
| 10e80 | 20 73 69 6e 67 6c 65 20 73 65 6c 65 63 74 65 64 20 63 6f 6c 75 6d 6e 20 69 73 20 72 65 74 75 72 | .single.selected.column.is.retur |
| 10ea0 | 6e 65 64 20 61 73 20 61 20 6c 69 73 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 73 65 6c 65 | ned.as.a.list...See.also:.`-sele |
| 10ec0 | 63 74 2d 63 6f 6c 75 6d 6e 73 27 2c 20 60 2d 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 | ct-columns',.`-select-by-indices |
| 10ee0 | 27 0a 0a 28 66 6e 20 43 4f 4c 55 4d 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | '..(fn.COLUMN.TABLE)..(defalias. |
| 10f00 | 27 2d 73 65 6c 65 63 74 2d 63 6f 6c 75 6d 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c | '-select-column.#[514."\300\301\ |
| 10f20 | 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 09 21 5c 33 31 30 5c 22 | 302\303\304\305\306\307..!\310\" |
| 10f40 | 5c 33 31 31 5c 33 31 32 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e | \311\312%.\"\"\207".[apply.appen |
| 10f60 | 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 | d.mapcar.make-byte-code.257."\30 |
| 10f80 | 31 5c 33 30 30 43 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d | 1\300C.\"\207".vconcat.vector.[- |
| 10fa0 | 73 65 6c 65 63 74 2d 62 79 2d 69 6e 64 69 63 65 73 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 | select-by-indices].4."\n\n(fn.IT |
| 10fc0 | 29 22 5d 20 31 31 20 28 23 24 20 2e 20 36 39 31 30 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | )"].11.(#$...69109)]).(byte-code |
| 10fe0 | 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\ |
| 11000 | 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 73 65 6c | 303#\300\207".[function-put.-sel |
| 11020 | 65 63 74 2d 63 6f 6c 75 6d 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | ect-column.pure.t.side-effect-fr |
| 11040 | 65 65 5d 20 35 29 0a 23 40 32 35 33 20 54 68 72 65 61 64 20 74 68 65 20 65 78 70 72 20 74 68 72 | ee].5).#@253.Thread.the.expr.thr |
| 11060 | 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 6e 73 65 72 74 20 58 20 61 73 20 74 68 65 20 | ough.the.forms..Insert.X.as.the. |
| 11080 | 73 65 63 6f 6e 64 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d | second.item.in.the.first.form,.m |
| 110a0 | 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 | aking.a.list.of.it.if.it.is.not. |
| 110c0 | 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 | a.list.already..If.there.are.mor |
| 110e0 | 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 |
| 11100 | 73 20 74 68 65 0a 73 65 63 6f 6e 64 20 69 74 65 6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d | s.the.second.item.in.second.form |
| 11120 | 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 |
| 11140 | 73 74 20 4d 4f 52 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 3e 20 27 28 6d 61 63 72 6f 20 | st.MORE)..(defalias.'->.'(macro. |
| 11160 | 2e 20 23 5b 36 34 31 20 22 01 5c 32 30 34 06 00 02 5c 32 30 37 5c 32 31 31 5c 32 30 34 1b 00 01 | ..#[641.".\204...\207\211\204... |
| 11180 | 3c 5c 32 30 33 17 00 01 40 03 03 41 42 42 5c 32 30 37 01 03 44 5c 32 30 37 5c 33 30 30 5c 32 31 | <\203...@..ABB\207..D\207\300\21 |
| 111a0 | 31 04 04 45 02 42 42 5c 32 30 37 22 20 5b 2d 3e 5d 20 37 20 28 23 24 20 2e 20 36 39 37 30 39 29 | 1..E.BB\207".[->].7.(#$...69709) |
| 111c0 | 5d 29 29 0a 28 70 75 74 20 27 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 | ])).(put.'->.'edebug-form-spec.' |
| 111e0 | 28 66 6f 72 6d 20 26 72 65 73 74 20 5b 26 6f 72 20 73 79 6d 62 6f 6c 70 20 28 73 65 78 70 20 26 | (form.&rest.[&or.symbolp.(sexp.& |
| 11200 | 72 65 73 74 20 66 6f 72 6d 29 5d 29 29 0a 23 40 32 34 39 20 54 68 72 65 61 64 20 74 68 65 20 65 | rest.form)])).#@249.Thread.the.e |
| 11220 | 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 20 | xpr.through.the.forms..Insert.X. |
| 11240 | 61 73 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 72 73 74 20 66 6f | as.the.last.item.in.the.first.fo |
| 11260 | 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 20 69 73 | rm,.making.a.list.of.it.if.it.is |
| 11280 | 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 20 61 72 | .not.a.list.already..If.there.ar |
| 112a0 | 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 74 20 66 | e.more.forms,.insert.the.first.f |
| 112c0 | 6f 72 6d 20 61 73 20 74 68 65 0a 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 73 65 63 6f 6e 64 20 66 | orm.as.the.last.item.in.second.f |
| 112e0 | 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 6c 20 46 4f 52 4d 20 | orm,.etc...(fn.X.&optional.FORM. |
| 11300 | 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 3e 20 27 28 6d 61 | &rest.MORE)..(defalias.'->>.'(ma |
| 11320 | 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 31 5c 32 30 | cro...#[641.".\204...\207\211\20 |
| 11340 | 34 19 00 01 3c 5c 32 30 33 15 00 5c 33 30 30 02 04 43 5c 22 5c 32 30 37 01 03 44 5c 32 30 37 5c | 4...<\203..\300..C\"\207..D\207\ |
| 11360 | 33 30 31 5c 32 31 31 04 04 45 02 42 42 5c 32 30 37 22 20 5b 61 70 70 65 6e 64 20 2d 3e 3e 5d 20 | 301\211..E.BB\207".[append.->>]. |
| 11380 | 37 20 28 23 24 20 2e 20 37 30 31 36 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 3e 3e 20 27 65 64 65 | 7.(#$...70164)])).(put.'->>.'ede |
| 113a0 | 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 2d 3e 29 0a 23 40 32 36 39 20 53 74 61 72 74 69 6e | bug-form-spec.'->).#@269.Startin |
| 113c0 | 67 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 58 2c 20 74 68 72 65 61 64 20 65 61 | g.with.the.value.of.X,.thread.ea |
| 113e0 | 63 68 20 65 78 70 72 65 73 73 69 6f 6e 20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 2e 0a 0a 49 6e | ch.expression.through.FORMS...In |
| 11400 | 73 65 72 74 20 58 20 61 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 73 69 67 6e 69 66 69 65 64 | sert.X.at.the.position.signified |
| 11420 | 20 62 79 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 69 74 27 20 69 6e 20 74 68 65 20 66 69 72 73 74 | .by.the.symbol.`it'.in.the.first |
| 11440 | 0a 66 6f 72 6d 2e 20 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c | .form...If.there.are.more.forms, |
| 11460 | 20 69 6e 73 65 72 74 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 74 20 74 68 65 20 70 6f | .insert.the.first.form.at.the.po |
| 11480 | 73 69 74 69 6f 6e 0a 73 69 67 6e 69 66 69 65 64 20 62 79 20 60 69 74 27 20 69 6e 20 69 6e 20 73 | sition.signified.by.`it'.in.in.s |
| 114a0 | 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 72 65 73 74 20 46 4f | econd.form,.etc...(fn.X.&rest.FO |
| 114c0 | 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 | RMS)..(defalias.'-->.'(macro...# |
| 114e0 | 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 42 42 5c 32 30 37 22 20 5b 2d 61 73 2d 3e 20 | [385."\300.\301.BBB\207".[-as->. |
| 11500 | 69 74 5d 20 36 20 28 23 24 20 2e 20 37 30 35 38 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 3e 20 | it].6.(#$...70585)])).(put.'-->. |
| 11520 | 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 62 6f 64 79 29 29 0a | 'edebug-form-spec.'(form.body)). |
| 11540 | 23 40 32 31 32 20 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 56 41 4c 55 45 2c 20 74 68 72 65 61 | #@212.Starting.with.VALUE,.threa |
| 11560 | 64 20 56 41 52 49 41 42 4c 45 20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 2e 0a 0a 49 6e 20 74 68 | d.VARIABLE.through.FORMS...In.th |
| 11580 | 65 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 62 69 6e 64 20 56 41 52 49 41 42 4c 45 20 74 6f 20 56 | e.first.form,.bind.VARIABLE.to.V |
| 115a0 | 41 4c 55 45 2e 20 20 49 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 62 69 6e 64 0a | ALUE...In.the.second.form,.bind. |
| 115c0 | 56 41 52 49 41 42 4c 45 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 66 69 | VARIABLE.to.the.result.of.the.fi |
| 115e0 | 72 73 74 20 66 6f 72 6d 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 0a 0a 28 66 6e 20 56 41 4c | rst.form,.and.so.forth...(fn.VAL |
| 11600 | 55 45 20 56 41 52 49 41 42 4c 45 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c | UE.VARIABLE.&rest.FORMS)..(defal |
| 11620 | 69 61 73 20 27 2d 61 73 2d 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 32 31 31 | ias.'-as->.'(macro...#[642."\211 |
| 11640 | 5c 32 30 34 06 00 02 5c 32 30 37 5c 33 30 30 02 04 44 43 5c 33 30 31 03 40 39 5c 32 30 33 19 00 | \204...\207\300..DC\301.@9\203.. |
| 11660 | 03 40 05 44 5c 32 30 32 1b 00 03 40 05 05 41 42 42 42 45 5c 32 30 37 22 20 5b 6c 65 74 20 2d 61 | .@.D\202...@..ABBBE\207".[let.-a |
| 11680 | 73 2d 3e 5d 20 39 20 28 23 24 20 2e 20 37 30 39 38 32 29 5d 29 29 0a 28 70 75 74 20 27 2d 61 73 | s->].9.(#$...70982)])).(put.'-as |
| 116a0 | 2d 3e 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 20 73 79 6d 62 | ->.'edebug-form-spec.'(form.symb |
| 116c0 | 6f 6c 70 20 62 6f 64 79 29 29 0a 23 40 31 36 33 20 57 68 65 6e 20 65 78 70 72 20 69 73 20 6e 6f | olp.body)).#@163.When.expr.is.no |
| 116e0 | 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 69 74 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 69 72 | n-nil,.thread.it.through.the.fir |
| 11700 | 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 3e 27 29 2c 0a 61 6e 64 20 77 68 65 6e 20 74 68 61 | st.form.(via.`->'),.and.when.tha |
| 11720 | 74 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 6f 75 67 68 20 74 68 65 | t.result.is.non-nil,.through.the |
| 11740 | 20 6e 65 78 74 20 66 6f 72 6d 2c 20 65 74 63 2e 0a 0a 28 66 6e 20 58 20 26 6f 70 74 69 6f 6e 61 | .next.form,.etc...(fn.X.&optiona |
| 11760 | 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 2d | l.FORM.&rest.MORE)..(defalias.'- |
| 11780 | 73 6f 6d 65 2d 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 | some->.'(macro...#[641.".\204... |
| 117a0 | 5c 32 30 37 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 06 06 44 5c 33 30 34 04 06 07 | \207\300\301!\302\303...D\304... |
| 117c0 | 45 45 03 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 | EE.BB\207".[make-symbol."result" |
| 117e0 | 20 2d 73 6f 6d 65 2d 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 3e 5d 20 31 30 20 28 23 24 20 2e 20 | .-some->.-when-let.->].10.(#$... |
| 11800 | 37 31 33 37 37 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 | 71377)])).(byte-code."\300\301\3 |
| 11820 | 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 30 | 02\303#\210\304\301\305\306#\300 |
| 11840 | 5c 32 30 37 22 20 5b 70 75 74 20 2d 73 6f 6d 65 2d 3e 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | \207".[put.-some->.edebug-form-s |
| 11860 | 70 65 63 20 2d 3e 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 | pec.->.function-put.lisp-indent- |
| 11880 | 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 36 34 20 57 68 65 6e 20 65 78 70 72 20 69 | function.1].4).#@164.When.expr.i |
| 118a0 | 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 20 74 68 65 | s.non-nil,.thread.it.through.the |
| 118c0 | 20 66 69 72 73 74 20 66 6f 72 6d 20 28 76 69 61 20 60 2d 3e 3e 27 29 2c 0a 61 6e 64 20 77 68 65 | .first.form.(via.`->>'),.and.whe |
| 118e0 | 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 6f 75 67 | n.that.result.is.non-nil,.throug |
| 11900 | 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 26 6f 70 | h.the.next.form,.etc...(fn.X.&op |
| 11920 | 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 61 6c 69 | tional.FORM.&rest.MORE)..(defali |
| 11940 | 61 73 20 27 2d 73 6f 6d 65 2d 3e 3e 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 31 20 22 01 5c | as.'-some->>.'(macro...#[641.".\ |
| 11960 | 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 44 5c | 204...\207\300\301!\302\303...D\ |
| 11980 | 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 22 72 | 304...EE.BB\207".[make-symbol."r |
| 119a0 | 65 73 75 6c 74 22 20 2d 73 6f 6d 65 2d 3e 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 3e 3e 5d 20 31 | esult".-some->>.-when-let.->>].1 |
| 119c0 | 30 20 28 23 24 20 2e 20 37 31 38 32 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | 0.(#$...71829)])).(byte-code."\3 |
| 119e0 | 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c | 00\301\302\303#\210\304\301\305\ |
| 11a00 | 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 73 6f 6d 65 2d 3e 3e 20 65 64 65 62 | 306#\300\207".[put.-some->>.edeb |
| 11a20 | 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 2d 3e 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 | ug-form-spec.->.function-put.lis |
| 11a40 | 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 32 33 39 20 54 68 | p-indent-function.1].4).#@239.Th |
| 11a60 | 72 65 61 64 20 45 58 50 52 20 74 68 72 6f 75 67 68 20 46 4f 52 4d 53 20 76 69 61 20 60 2d 2d 3e | read.EXPR.through.FORMS.via.`--> |
| 11a80 | 27 2c 20 77 68 69 6c 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a | ',.while.the.result.is.non-nil.. |
| 11aa0 | 57 68 65 6e 20 45 58 50 52 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 | When.EXPR.evaluates.to.non-nil,. |
| 11ac0 | 74 68 72 65 61 64 20 74 68 65 20 72 65 73 75 6c 74 20 74 68 72 6f 75 67 68 20 74 68 65 0a 66 69 | thread.the.result.through.the.fi |
| 11ae0 | 72 73 74 20 6f 66 20 46 4f 52 4d 53 2c 20 61 6e 64 20 77 68 65 6e 20 74 68 61 74 20 72 65 73 75 | rst.of.FORMS,.and.when.that.resu |
| 11b00 | 6c 74 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 72 65 61 64 20 69 74 0a 74 68 72 6f 75 67 68 | lt.is.non-nil,.thread.it.through |
| 11b20 | 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 45 58 50 52 20 26 | .the.next.form,.etc...(fn.EXPR.& |
| 11b40 | 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 73 6f 6d 65 2d 2d 3e | rest.FORMS)..(defalias.'-some--> |
| 11b60 | 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 32 31 31 5c 32 30 34 06 00 01 5c 32 30 | .'(macro...#[385."\211\204...\20 |
| 11b80 | 37 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 02 05 44 5c 33 30 34 04 06 06 40 45 45 03 | 7\300\301!\302\303..D\304...@EE. |
| 11ba0 | 41 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 73 75 6c 74 22 20 2d | ABB\207".[make-symbol."result".- |
| 11bc0 | 73 6f 6d 65 2d 2d 3e 20 2d 77 68 65 6e 2d 6c 65 74 20 2d 2d 3e 5d 20 39 20 28 23 24 20 2e 20 37 | some-->.-when-let.-->].9.(#$...7 |
| 11be0 | 32 32 38 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 | 2286)])).(byte-code."\300\301\30 |
| 11c00 | 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 30 5c | 2\303#\210\304\301\305\306#\300\ |
| 11c20 | 32 30 37 22 20 5b 70 75 74 20 2d 73 6f 6d 65 2d 2d 3e 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | 207".[put.-some-->.edebug-form-s |
| 11c40 | 70 65 63 20 28 66 6f 72 6d 20 26 72 65 73 74 20 26 6f 72 20 73 79 6d 62 6f 6c 70 20 63 6f 6e 73 | pec.(form.&rest.&or.symbolp.cons |
| 11c60 | 70 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 | p).function-put.lisp-indent-func |
| 11c80 | 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 32 35 37 20 45 76 61 6c 75 61 74 65 20 49 4e 49 54 20 61 | tion.1].4).#@257.Evaluate.INIT.a |
| 11ca0 | 6e 64 20 70 61 73 73 20 69 74 20 61 73 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 46 4f 52 4d 53 20 | nd.pass.it.as.argument.to.FORMS. |
| 11cc0 | 77 69 74 68 20 60 2d 3e 27 2e 0a 54 68 65 20 52 45 53 55 4c 54 20 6f 66 20 65 76 61 6c 75 61 74 | with.`->'..The.RESULT.of.evaluat |
| 11ce0 | 69 6e 67 20 49 4e 49 54 20 69 73 20 74 68 72 65 61 64 65 64 20 74 68 72 6f 75 67 68 20 65 61 63 | ing.INIT.is.threaded.through.eac |
| 11d00 | 68 20 6f 66 20 46 4f 52 4d 53 0a 69 6e 64 69 76 69 64 75 61 6c 6c 79 20 75 73 69 6e 67 20 60 2d | h.of.FORMS.individually.using.`- |
| 11d20 | 3e 27 2c 20 77 68 69 63 68 20 73 65 65 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 | >',.which.see...The.return.value |
| 11d40 | 20 69 73 20 52 45 53 55 4c 54 2c 0a 77 68 69 63 68 20 46 4f 52 4d 53 20 6d 61 79 20 68 61 76 65 | .is.RESULT,.which.FORMS.may.have |
| 11d60 | 20 6d 6f 64 69 66 69 65 64 20 62 79 20 73 69 64 65 20 65 66 66 65 63 74 2e 0a 0a 28 66 6e 20 49 | .modified.by.side.effect...(fn.I |
| 11d80 | 4e 49 54 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 6f | NIT.&rest.FORMS)..(defalias.'-do |
| 11da0 | 74 6f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 | to.'(macro...#[385."\300\301!\30 |
| 11dc0 | 32 01 04 44 43 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 | 2..DC\303\304\305\306\307\310\31 |
| 11de0 | 31 06 09 21 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31 34 25 06 06 5c 22 04 43 5c 22 42 42 5c 32 30 | 1..!\312\"\313\314%..\".C\"BB\20 |
| 11e00 | 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 61 70 70 | 7".[make-symbol."result".let.app |
| 11e20 | 65 6e 64 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c | end.mapcar.make-byte-code.257."\ |
| 11e40 | 33 30 31 5c 33 30 30 02 45 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d | 301\300.E\207".vconcat.vector.[- |
| 11e60 | 3e 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 46 4f 52 4d 29 22 5d 20 31 33 20 28 23 24 20 2e 20 37 | >].4."\n\n(fn.FORM)"].13.(#$...7 |
| 11e80 | 32 38 34 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 | 2849)])).(byte-code."\300\301\30 |
| 11ea0 | 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 30 5c | 2\303#\210\304\301\305\306#\300\ |
| 11ec0 | 32 30 37 22 20 5b 70 75 74 20 2d 64 6f 74 6f 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 | 207".[put.-doto.edebug-form-spec |
| 11ee0 | 20 28 66 6f 72 6d 20 26 72 65 73 74 20 26 6f 72 20 73 79 6d 62 6f 6c 70 20 63 6f 6e 73 70 29 20 | .(form.&rest.&or.symbolp.consp). |
| 11f00 | 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 |
| 11f20 | 6e 20 31 5d 20 34 29 0a 23 40 31 39 39 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 | n.1].4).#@199.Anaphoric.form.of. |
| 11f40 | 60 2d 64 6f 74 6f 27 2e 0a 54 68 69 73 20 6a 75 73 74 20 65 76 61 6c 75 61 74 65 73 20 49 4e 49 | `-doto'..This.just.evaluates.INI |
| 11f60 | 54 2c 20 62 69 6e 64 73 20 74 68 65 20 72 65 73 75 6c 74 20 74 6f 20 60 69 74 27 2c 20 65 76 61 | T,.binds.the.result.to.`it',.eva |
| 11f80 | 6c 75 61 74 65 73 0a 46 4f 52 4d 53 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 66 69 | luates.FORMS,.and.returns.the.fi |
| 11fa0 | 6e 61 6c 20 76 61 6c 75 65 20 6f 66 20 60 69 74 27 2e 0a 4e 6f 74 65 3a 20 60 69 74 27 20 6e 65 | nal.value.of.`it'..Note:.`it'.ne |
| 11fc0 | 65 64 20 6e 6f 74 20 62 65 20 75 73 65 64 20 69 6e 20 65 61 63 68 20 66 6f 72 6d 2e 0a 0a 28 66 | ed.not.be.used.in.each.form...(f |
| 11fe0 | 6e 20 49 4e 49 54 20 26 72 65 73 74 20 46 4f 52 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | n.INIT.&rest.FORMS)..(defalias.' |
| 12000 | 2d 2d 64 6f 74 6f 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 | --doto.'(macro...#[385."\300\301 |
| 12020 | 03 44 43 5c 33 30 32 03 5c 33 30 33 5c 22 42 42 5c 32 30 37 22 20 5b 6c 65 74 20 69 74 20 61 70 | .DC\302.\303\"BB\207".[let.it.ap |
| 12040 | 70 65 6e 64 20 28 69 74 29 5d 20 37 20 28 23 24 20 2e 20 37 33 35 31 38 29 5d 29 29 0a 28 62 79 | pend.(it)].7.(#$...73518)])).(by |
| 12060 | 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 | te-code."\300\301\302\303#\210\3 |
| 12080 | 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 20 2d 2d | 04\301\305\306#\300\207".[put.-- |
| 120a0 | 64 6f 74 6f 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 | doto.edebug-form-spec.(form.body |
| 120c0 | 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 | ).function-put.lisp-indent-funct |
| 120e0 | 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 37 39 20 47 72 61 64 65 20 65 6c 65 6d 65 6e 74 73 20 6f | ion.1].4).#@179.Grade.elements.o |
| 12100 | 66 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 41 52 41 54 4f 52 20 72 65 6c 61 74 69 6f 6e | f.LIST.using.COMPARATOR.relation |
| 12120 | 2e 0a 54 68 69 73 20 79 69 65 6c 64 73 20 61 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 76 65 63 74 | ..This.yields.a.permutation.vect |
| 12140 | 6f 72 20 73 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e 67 20 74 68 69 73 0a 70 65 72 6d 75 | or.such.that.applying.this.permu |
| 12160 | 74 61 74 69 6f 6e 20 74 6f 20 4c 49 53 54 20 73 6f 72 74 73 20 69 74 20 69 6e 20 61 73 63 65 6e | tation.to.LIST.sorts.it.in.ascen |
| 12180 | 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 4c 49 53 54 | ding.order...(fn.COMPARATOR.LIST |
| 121a0 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 75 70 20 23 5b 35 31 34 20 22 5c | )..(defalias.'-grade-up.#[514."\ |
| 121c0 | 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. |
| 121e0 | 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 5c 33 31 33 05 5c 33 31 34 5c 33 31 33 5c 32 | .!\310\"\311\312%\313.\314\313\2 |
| 12200 | 31 31 03 5c 32 30 33 32 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 | 11.\2032..\211A\262.\242\262..\2 |
| 12220 | 36 32 01 02 54 5c 32 36 32 03 01 01 42 05 42 5c 32 36 32 05 5c 32 30 32 15 00 5c 32 36 36 04 5c | 62..T\262...B.B\262.\202..\266.\ |
| 12240 | 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 63 64 | 211\237\262.\"\"\207".[mapcar.cd |
| 12260 | 72 20 2d 73 6f 72 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 30 | r.-sort.make-byte-code.514."\300 |
| 12280 | 02 40 02 40 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 35 20 | .@.@\"\207".vconcat.vector.[].5. |
| 122a0 | 22 5c 6e 5c 6e 28 66 6e 20 49 54 20 4f 54 48 45 52 29 22 20 6e 69 6c 20 30 5d 20 31 33 20 28 23 | "\n\n(fn.IT.OTHER)".nil.0].13.(# |
| 122c0 | 24 20 2e 20 37 33 39 36 38 29 5d 29 0a 23 40 31 38 30 20 47 72 61 64 65 20 65 6c 65 6d 65 6e 74 | $...73968)]).#@180.Grade.element |
| 122e0 | 73 20 6f 66 20 4c 49 53 54 20 75 73 69 6e 67 20 43 4f 4d 50 41 52 41 54 4f 52 20 72 65 6c 61 74 | s.of.LIST.using.COMPARATOR.relat |
| 12300 | 69 6f 6e 2e 0a 54 68 69 73 20 79 69 65 6c 64 73 20 61 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 76 | ion..This.yields.a.permutation.v |
| 12320 | 65 63 74 6f 72 20 73 75 63 68 20 74 68 61 74 20 61 70 70 6c 79 69 6e 67 20 74 68 69 73 0a 70 65 | ector.such.that.applying.this.pe |
| 12340 | 72 6d 75 74 61 74 69 6f 6e 20 74 6f 20 4c 49 53 54 20 73 6f 72 74 73 20 69 74 20 69 6e 20 64 65 | rmutation.to.LIST.sorts.it.in.de |
| 12360 | 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 | scending.order...(fn.COMPARATOR. |
| 12380 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 67 72 61 64 65 2d 64 6f 77 6e 20 23 5b | LIST)..(defalias.'-grade-down.#[ |
| 123a0 | 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 | 514."\300\301\302\303\304\305\30 |
| 123c0 | 36 5c 33 30 37 06 09 21 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 5c 33 31 33 05 5c 33 31 34 | 6\307..!\310\"\311\312%\313.\314 |
| 123e0 | 5c 33 31 33 5c 32 31 31 03 5c 32 30 33 32 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 | \313\211.\2032..\211A\262.\242\2 |
| 12400 | 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 01 42 05 42 5c 32 36 32 05 5c 32 30 32 15 00 | 62..\262..T\262...B.B\262.\202.. |
| 12420 | 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 22 5c 32 30 37 22 20 5b 6d 61 70 | \266.\211\237\262.\"\"\207".[map |
| 12440 | 63 61 72 20 63 64 72 20 2d 73 6f 72 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 | car.cdr.-sort.make-byte-code.514 |
| 12460 | 20 22 5c 33 30 30 01 40 03 40 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 | ."\300.@.@\"\207".vconcat.vector |
| 12480 | 20 5b 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 20 4f 54 48 45 52 29 22 20 6e 69 6c 20 30 5d | .[].5."\n\n(fn.IT.OTHER)".nil.0] |
| 124a0 | 20 31 33 20 28 23 24 20 2e 20 37 34 34 35 31 29 5d 29 0a 23 40 34 32 20 4d 6f 6e 6f 74 6f 6e 69 | .13.(#$...74451)]).#@42.Monotoni |
| 124c0 | 63 20 63 6f 75 6e 74 65 72 20 66 6f 72 20 67 65 6e 65 72 61 74 65 64 20 73 79 6d 62 6f 6c 73 2e | c.counter.for.generated.symbols. |
| 124e0 | 1f 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 2d 73 6f 75 72 63 65 2d 63 6f 75 6e 74 65 72 20 30 | ..(defvar.dash--source-counter.0 |
| 12500 | 20 28 23 24 20 2e 20 37 34 39 33 36 29 29 0a 23 40 38 37 20 47 65 6e 65 72 61 74 65 20 61 20 6e | .(#$...74936)).#@87.Generate.a.n |
| 12520 | 65 77 20 64 61 73 68 2d 73 6f 75 72 63 65 20 73 79 6d 62 6f 6c 2e 0a 0a 41 6c 6c 20 72 65 74 75 | ew.dash-source.symbol...All.retu |
| 12540 | 72 6e 65 64 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 62 | rned.symbols.are.guaranteed.to.b |
| 12560 | 65 20 75 6e 69 71 75 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 | e.unique...(defalias.'dash--matc |
| 12580 | 68 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 23 5b 30 20 22 5c 33 30 31 5c 33 | h-make-source-symbol.#[0."\301\3 |
| 125a0 | 30 32 5c 33 30 33 08 5c 22 21 08 54 10 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 73 6f 75 72 63 65 | 02\303.\"!.T.\207".[dash--source |
| 125c0 | 2d 63 6f 75 6e 74 65 72 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 74 20 22 2d 2d 64 | -counter.make-symbol.format."--d |
| 125e0 | 61 73 68 2d 73 6f 75 72 63 65 2d 25 64 2d 2d 22 5d 20 34 20 28 23 24 20 2e 20 37 35 30 32 38 29 | ash-source-%d--"].4.(#$...75028) |
| 12600 | 5d 29 0a 23 40 37 30 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 59 4d 42 4f 4c | ]).#@70.Return.non-nil.if.SYMBOL |
| 12620 | 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 73 74 61 72 74 73 20 77 69 74 68 20 5f 2e 0a | .is.a.symbol.and.starts.with._.. |
| 12640 | 0a 28 66 6e 20 53 59 4d 42 4f 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d | .(fn.SYMBOL)..(defalias.'dash--m |
| 12660 | 61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 65 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 39 | atch-ignore-place-p.#[257."\2119 |
| 12680 | 5c 32 30 35 5c 66 00 5c 33 30 30 01 21 5c 33 30 31 48 5c 33 30 32 3d 5c 32 30 37 22 20 5b 73 79 | \205\f.\300.!\301H\302=\207".[sy |
| 126a0 | 6d 62 6f 6c 2d 6e 61 6d 65 20 30 20 39 35 5d 20 33 20 28 23 24 20 2e 20 37 35 32 37 32 29 5d 29 | mbol-name.0.95].3.(#$...75272)]) |
| 126c0 | 0a 23 40 37 35 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 65 6e 65 72 61 74 69 6e 67 | .#@75.Helper.function.generating |
| 126e0 | 20 69 64 69 6f 6d 61 74 69 63 20 73 68 69 66 74 69 6e 67 20 63 6f 64 65 2e 0a 0a 28 66 6e 20 53 | .idiomatic.shifting.code...(fn.S |
| 12700 | 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 | KIP-CDR.SOURCE)..(defalias.'dash |
| 12720 | 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 23 5b 35 31 34 20 22 01 5c 33 | --match-cons-skip-cdr.#[514.".\3 |
| 12740 | 30 30 55 5c 32 30 33 5c 6e 00 5c 33 30 31 01 44 5c 32 30 37 5c 33 30 32 5c 33 30 33 03 03 5c 22 | 00U\203\n.\301.D\207\302\303..\" |
| 12760 | 5c 33 30 34 03 5c 33 30 35 06 06 54 06 06 5c 22 45 45 5c 32 30 37 22 20 5b 30 20 70 6f 70 20 70 | \304.\305..T..\"EE\207".[0.pop.p |
| 12780 | 72 6f 67 31 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 73 65 | rog1.dash--match-cons-get-car.se |
| 127a0 | 74 71 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 5d 20 39 20 28 | tq.dash--match-cons-get-cdr].9.( |
| 127c0 | 23 24 20 2e 20 37 35 34 36 32 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 | #$...75462)]).#@81.Helper.functi |
| 127e0 | 6f 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 63 6f 64 65 20 74 6f 20 | on.generating.idiomatic.code.to. |
| 12800 | 67 65 74 20 6e 74 68 20 63 61 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 | get.nth.car...(fn.SKIP-CDR.SOURC |
| 12820 | 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 6f 6e 73 2d | E)..(defalias.'dash--match-cons- |
| 12840 | 67 65 74 2d 63 61 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 5c 6e 00 5c 33 30 31 | get-car.#[514.".\300U\203\n.\301 |
| 12860 | 01 44 5c 32 30 37 01 5c 33 30 32 55 5c 32 30 33 14 00 5c 33 30 33 01 44 5c 32 30 37 5c 33 30 34 | .D\207.\302U\203..\303.D\207\304 |
| 12880 | 02 02 45 5c 32 30 37 22 20 5b 30 20 63 61 72 20 31 20 63 61 64 72 20 6e 74 68 5d 20 35 20 28 23 | ..E\207".[0.car.1.cadr.nth].5.(# |
| 128a0 | 24 20 2e 20 37 35 37 33 31 29 5d 29 0a 23 40 38 31 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f | $...75731)]).#@81.Helper.functio |
| 128c0 | 6e 20 67 65 6e 65 72 61 74 69 6e 67 20 69 64 69 6f 6d 61 74 69 63 20 63 6f 64 65 20 74 6f 20 67 | n.generating.idiomatic.code.to.g |
| 128e0 | 65 74 20 6e 74 68 20 63 64 72 2e 0a 0a 28 66 6e 20 53 4b 49 50 2d 43 44 52 20 53 4f 55 52 43 45 | et.nth.cdr...(fn.SKIP-CDR.SOURCE |
| 12900 | 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 67 | )..(defalias.'dash--match-cons-g |
| 12920 | 65 74 2d 63 64 72 20 23 5b 35 31 34 20 22 01 5c 33 30 30 55 5c 32 30 33 07 00 5c 32 30 37 01 5c | et-cdr.#[514.".\300U\203..\207.\ |
| 12940 | 33 30 31 55 5c 32 30 33 11 00 5c 33 30 32 01 44 5c 32 30 37 5c 33 30 33 02 02 45 5c 32 30 37 22 | 301U\203..\302.D\207\303..E\207" |
| 12960 | 20 5b 30 20 31 20 63 64 72 20 6e 74 68 63 64 72 5d 20 35 20 28 23 24 20 2e 20 37 35 39 35 34 29 | .[0.1.cdr.nthcdr].5.(#$...75954) |
| 12980 | 5d 29 0a 23 40 38 36 20 53 65 74 75 70 20 61 20 63 6f 6e 73 20 6d 61 74 63 68 69 6e 67 20 65 6e | ]).#@86.Setup.a.cons.matching.en |
| 129a0 | 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 |
| 129c0 | 68 65 72 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 | her...(fn.MATCH-FORM.SOURCE)..(d |
| 129e0 | 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 20 23 5b 35 31 34 20 | efalias.'dash--match-cons.#[514. |
| 12a00 | 22 5c 33 30 30 20 5c 33 30 31 03 5c 32 31 31 3a 5c 32 30 33 1b 00 5c 33 30 32 01 40 21 5c 32 30 | "\300.\301.\211:\203..\302.@!\20 |
| 12a20 | 33 1b 00 01 54 5c 32 36 32 02 5c 32 31 31 41 5c 32 36 32 01 5c 32 30 32 04 00 5c 32 31 31 3a 5c | 3...T\262.\211A\262.\202..\211:\ |
| 12a40 | 32 30 33 31 00 5c 32 31 31 41 5c 32 30 34 31 00 5c 33 30 33 01 40 5c 33 30 34 04 06 07 5c 22 5c | 2031.\211A\2041.\303.@\304...\"\ |
| 12a60 | 22 5c 32 30 32 4b 00 01 5c 33 30 31 56 5c 32 30 33 42 00 5c 33 30 33 01 5c 33 30 35 04 06 07 5c | "\202K..\301V\203B.\303.\305...\ |
| 12a80 | 22 5c 22 5c 32 30 32 4b 00 02 04 44 5c 33 30 36 06 06 05 5c 22 42 5c 32 30 37 22 20 5b 64 61 73 | "\"\202K...D\306...\"B\207".[das |
| 12aa0 | 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 20 30 20 64 61 | h--match-make-source-symbol.0.da |
| 12ac0 | 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 |
| 12ae0 | 61 74 63 68 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 61 72 20 64 61 | atch.dash--match-cons-get-car.da |
| 12b00 | 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 | sh--match-cons-get-cdr.dash--mat |
| 12b20 | 63 68 2d 63 6f 6e 73 2d 31 5d 20 31 30 20 28 23 24 20 2e 20 37 36 31 36 38 29 5d 29 0a 23 40 34 | ch-cons-1].10.(#$...76168)]).#@4 |
| 12b40 | 37 20 47 65 74 20 65 78 70 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 66 6f 72 20 54 | 7.Get.expand.function.name.for.T |
| 12b60 | 59 50 45 2e 0a 0a 28 66 6e 20 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 | YPE...(fn.TYPE)..(defalias.'dash |
| 12b80 | 2d 2d 67 65 74 2d 65 78 70 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 23 5b 32 35 37 20 22 5c 33 30 | --get-expand-function.#[257."\30 |
| 12ba0 | 30 5c 33 30 31 5c 33 30 32 03 5c 22 21 5c 32 30 37 22 20 5b 69 6e 74 65 72 6e 2d 73 6f 66 74 20 | 0\301\302.\"!\207".[intern-soft. |
| 12bc0 | 66 6f 72 6d 61 74 20 22 64 61 73 68 2d 65 78 70 61 6e 64 3a 25 73 22 5d 20 35 20 28 23 24 20 2e | format."dash-expand:%s"].5.(#$.. |
| 12be0 | 20 37 36 36 31 30 29 5d 29 0a 23 40 33 38 36 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d | .76610)]).#@386.Match.MATCH-FORM |
| 12c00 | 20 61 67 61 69 6e 73 74 20 53 4f 55 52 43 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 | .against.SOURCE...MATCH-FORM.is. |
| 12c20 | 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 20 20 45 61 63 68 | a.proper.or.improper.list...Each |
| 12c40 | 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 65 69 74 68 65 72 | .element.of.MATCH-FORM.is.either |
| 12c60 | 20 61 20 73 79 6d 62 6f 6c 2c 20 77 68 69 63 68 20 67 65 74 73 20 62 6f 75 6e 64 20 74 6f 20 74 | .a.symbol,.which.gets.bound.to.t |
| 12c80 | 68 65 20 72 65 73 70 65 63 74 69 76 65 0a 76 61 6c 75 65 20 69 6e 20 73 6f 75 72 63 65 20 6f 72 | he.respective.value.in.source.or |
| 12ca0 | 20 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 20 64 | .another.match.form.which.gets.d |
| 12cc0 | 65 73 74 72 75 63 74 75 72 65 64 0a 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 49 66 20 74 68 65 | estructured.recursively...If.the |
| 12ce0 | 20 63 64 72 20 6f 66 20 6c 61 73 74 20 63 6f 6e 73 20 63 65 6c 6c 20 69 6e 20 74 68 65 20 6c 69 | .cdr.of.last.cons.cell.in.the.li |
| 12d00 | 73 74 20 69 73 20 60 6e 69 6c 27 2c 20 6d 61 74 63 68 69 6e 67 20 73 74 6f 70 73 0a 74 68 65 72 | st.is.`nil',.matching.stops.ther |
| 12d20 | 65 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 20 70 72 6f 70 65 72 20 6f 72 20 69 6d 70 72 6f 70 | e...SOURCE.is.a.proper.or.improp |
| 12d40 | 65 72 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 20 | er.list...(fn.MATCH-FORM.SOURCE. |
| 12d60 | 26 6f 70 74 69 6f 6e 61 6c 20 50 52 4f 50 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 | &optional.PROPS)..(defalias.'das |
| 12d80 | 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 31 20 23 5b 37 37 30 20 22 5c 33 30 30 01 5c 33 30 31 | h--match-cons-1.#[770."\300.\301 |
| 12da0 | 5c 22 5c 32 30 36 08 00 5c 33 30 32 03 3a 5c 32 30 33 65 00 03 41 5c 32 30 33 59 00 03 40 39 5c | \"\206..\302.:\203e..A\203Y..@9\ |
| 12dc0 | 32 30 33 2e 00 5c 33 30 33 5c 33 30 34 05 40 21 21 5c 32 30 33 2e 00 5c 33 30 35 5c 33 30 36 05 | 203..\303\304.@!!\203..\305\306. |
| 12de0 | 21 5c 33 30 37 03 06 06 5c 22 5c 22 5c 32 30 32 77 00 5c 33 31 30 04 40 21 5c 32 30 33 44 00 5c | !\307...\"\"\202w.\310.@!\203D.\ |
| 12e00 | 33 31 31 04 41 04 5c 33 31 32 05 5c 33 30 31 06 06 54 23 23 5c 32 30 32 77 00 5c 33 31 33 5c 33 | 311.A.\312.\301..T##\202w.\313\3 |
| 12e20 | 31 34 05 40 5c 33 31 35 04 06 07 5c 22 5c 22 5c 33 31 31 06 06 41 06 06 5c 22 5c 22 5c 32 30 32 | 14.@\315...\"\"\311..A..\"\"\202 |
| 12e40 | 77 00 5c 33 31 34 04 40 5c 33 31 36 03 06 06 5c 22 5c 22 5c 32 30 32 77 00 03 5c 33 31 37 3d 5c | w.\314.@\316...\"\"\202w..\317=\ |
| 12e60 | 32 30 33 6f 00 5c 33 31 37 5c 32 30 32 77 00 5c 33 31 34 04 5c 33 30 37 03 06 06 5c 22 5c 22 5c | 203o.\317\202w.\314.\307...\"\"\ |
| 12e80 | 32 30 37 22 20 5b 70 6c 69 73 74 2d 67 65 74 20 3a 73 6b 69 70 2d 63 64 72 20 30 20 66 75 6e 63 | 207".[plist-get.:skip-cdr.0.func |
| 12ea0 | 74 69 6f 6e 70 20 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 | tionp.dash--get-expand-function. |
| 12ec0 | 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f | dash--match-kv.dash--match-kv-no |
| 12ee0 | 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 | rmalize-match-form.dash--match-c |
| 12f00 | 6f 6e 73 2d 67 65 74 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 | ons-get-cdr.dash--match-ignore-p |
| 12f20 | 6c 61 63 65 2d 70 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 2d 31 20 70 6c 69 73 74 2d | lace-p.dash--match-cons-1.plist- |
| 12f40 | 70 75 74 20 2d 63 6f 6e 63 61 74 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 64 61 73 68 2d 2d 6d 61 | put.-concat.dash--match.dash--ma |
| 12f60 | 74 63 68 2d 63 6f 6e 73 2d 73 6b 69 70 2d 63 64 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f | tch-cons-skip-cdr.dash--match-co |
| 12f80 | 6e 73 2d 67 65 74 2d 63 61 72 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 37 36 37 38 34 29 5d | ns-get-car.nil].11.(#$...76784)] |
| 12fa0 | 29 0a 23 40 38 38 20 53 65 74 75 70 20 61 20 76 65 63 74 6f 72 20 6d 61 74 63 68 69 6e 67 20 65 | ).#@88.Setup.a.vector.matching.e |
| 12fc0 | 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 6e 64 20 63 61 6c 6c 20 74 68 65 20 72 65 61 6c 20 6d 61 74 | nvironment.and.call.the.real.mat |
| 12fe0 | 63 68 65 72 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 | cher...(fn.MATCH-FORM.SOURCE)..( |
| 13000 | 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 20 23 5b 35 | defalias.'dash--match-vector.#[5 |
| 13020 | 31 34 20 22 5c 33 30 30 20 02 47 5c 33 30 31 55 5c 32 30 33 16 00 5c 33 30 32 03 5c 33 30 33 48 | 14."\300..G\301U\203..\302.\303H |
| 13040 | 5c 33 30 34 04 5c 33 30 35 42 42 5c 22 5c 32 30 32 51 00 01 39 5c 32 30 33 5c 22 00 5c 33 30 36 | \304.\305BB\"\202Q..9\203\".\306 |
| 13060 | 03 03 5c 22 5c 32 30 32 51 00 5c 33 30 37 5c 33 31 30 04 5c 22 5c 33 31 31 5c 33 31 32 02 5c 22 | ..\"\202Q.\307\310.\"\311\312.\" |
| 13080 | 47 5c 32 31 31 05 47 53 55 5c 32 30 35 44 00 5c 33 31 33 5c 33 31 32 03 5c 22 5c 33 30 32 06 06 | G\211.GSU\205D.\313\312.\"\302.. |
| 130a0 | 02 48 5c 33 30 34 06 07 04 45 5c 22 5c 32 36 32 01 5c 32 36 36 5c 32 30 32 5c 32 30 36 51 00 5c | .H\304...E\"\262.\266\202\206Q.\ |
| 130c0 | 32 31 31 02 44 5c 33 30 36 04 03 5c 22 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 | 211.D\306..\"B\207".[dash--match |
| 130e0 | 2d 6d 61 6b 65 2d 73 6f 75 72 63 65 2d 73 79 6d 62 6f 6c 20 31 20 64 61 73 68 2d 2d 6d 61 74 63 | -make-source-symbol.1.dash--matc |
| 13100 | 68 20 30 20 61 72 65 66 20 28 30 29 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 2d | h.0.aref.(0).dash--match-vector- |
| 13120 | 31 20 6d 61 70 63 61 72 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 69 67 6e 6f 72 65 2d 70 6c 61 63 | 1.mapcar.dash--match-ignore-plac |
| 13140 | 65 2d 70 20 2d 72 65 6d 6f 76 65 20 6e 75 6c 6c 20 2d 66 69 6e 64 2d 69 6e 64 65 78 5d 20 31 31 | e-p.-remove.null.-find-index].11 |
| 13160 | 20 28 23 24 20 2e 20 37 37 37 33 35 29 5d 29 0a 23 40 36 39 31 20 4d 61 74 63 68 20 4d 41 54 43 | .(#$...77735)]).#@691.Match.MATC |
| 13180 | 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 4f 55 52 43 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f | H-FORM.against.SOURCE...MATCH-FO |
| 131a0 | 52 4d 20 69 73 20 61 20 76 65 63 74 6f 72 2e 20 20 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 | RM.is.a.vector...Each.element.of |
| 131c0 | 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 65 69 74 68 65 72 20 61 0a 73 79 6d 62 6f 6c 2c 20 | .MATCH-FORM.is.either.a.symbol,. |
| 131e0 | 77 68 69 63 68 20 67 65 74 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 72 65 73 70 65 63 74 69 | which.gets.bound.to.the.respecti |
| 13200 | 76 65 20 76 61 6c 75 65 20 69 6e 20 73 6f 75 72 63 65 20 6f 72 0a 61 6e 6f 74 68 65 72 20 6d 61 | ve.value.in.source.or.another.ma |
| 13220 | 74 63 68 20 66 6f 72 6d 20 77 68 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 63 74 75 72 65 64 | tch.form.which.gets.destructured |
| 13240 | 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 49 66 20 73 65 63 6f 6e 64 2d 66 72 6f 6d 2d 6c 61 | .recursively...If.second-from-la |
| 13260 | 73 74 20 70 6c 61 63 65 20 69 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 74 68 65 20 73 79 | st.place.in.MATCH-FORM.is.the.sy |
| 13280 | 6d 62 6f 6c 20 26 72 65 73 74 2c 20 74 68 65 0a 6e 65 78 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 | mbol.&rest,.the.next.element.of. |
| 132a0 | 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 | the.MATCH-FORM.is.matched.agains |
| 132c0 | 74 20 74 68 65 20 74 61 69 6c 20 6f 66 0a 53 4f 55 52 43 45 2c 20 73 74 61 72 74 69 6e 67 20 61 | t.the.tail.of.SOURCE,.starting.a |
| 132e0 | 74 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 26 72 65 73 74 20 73 79 6d 62 6f 6c 2e 20 20 54 68 | t.index.of.the.&rest.symbol...Th |
| 13300 | 69 73 20 69 73 0a 63 6f 6e 63 65 70 74 75 61 6c 6c 79 20 74 68 65 20 73 61 6d 65 20 61 73 20 74 | is.is.conceptually.the.same.as.t |
| 13320 | 68 65 20 28 68 65 61 64 20 2e 20 74 61 69 6c 29 20 6d 61 74 63 68 20 66 6f 72 20 69 6d 70 72 6f | he.(head...tail).match.for.impro |
| 13340 | 70 65 72 0a 6c 69 73 74 73 2c 20 77 68 65 72 65 20 64 6f 74 20 70 6c 61 79 73 20 74 68 65 20 72 | per.lists,.where.dot.plays.the.r |
| 13360 | 6f 6c 65 20 6f 66 20 26 72 65 73 74 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 20 76 65 63 74 6f | ole.of.&rest...SOURCE.is.a.vecto |
| 13380 | 72 2e 0a 0a 49 66 20 74 68 65 20 4d 41 54 43 48 2d 46 4f 52 4d 20 76 65 63 74 6f 72 20 69 73 20 | r...If.the.MATCH-FORM.vector.is. |
| 133a0 | 73 68 6f 72 74 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 20 76 65 63 74 6f 72 2c 20 6f 6e 6c 79 | shorter.than.SOURCE.vector,.only |
| 133c0 | 0a 74 68 65 20 28 6c 65 6e 67 74 68 20 4d 41 54 43 48 2d 46 4f 52 4d 29 20 70 6c 61 63 65 73 20 | .the.(length.MATCH-FORM).places. |
| 133e0 | 61 72 65 20 62 6f 75 6e 64 2c 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 53 4f 55 52 43 | are.bound,.the.rest.of.the.SOURC |
| 13400 | 45 0a 69 73 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 | E.is.discarded...(fn.MATCH-FORM. |
| 13420 | 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d | SOURCE)..(defalias.'dash--match- |
| 13440 | 76 65 63 74 6f 72 2d 31 20 23 5b 35 31 34 20 22 5c 33 30 30 02 47 5c 33 30 31 02 02 57 5c 32 30 | vector-1.#[514."\300.G\301..W\20 |
| 13460 | 33 61 00 04 03 48 5c 32 31 31 39 5c 32 30 33 2b 00 5c 32 31 31 5c 33 30 32 3d 5c 32 30 33 2b 00 | 3a...H\2119\203+.\211\302=\203+. |
| 13480 | 5c 33 30 33 06 06 05 54 48 5c 33 30 34 06 07 06 07 45 5c 22 03 5c 32 36 32 05 5c 32 30 32 55 00 | \303...TH\304....E\".\262.\202U. |
| 134a0 | 5c 32 31 31 39 5c 32 30 33 46 00 5c 33 30 35 01 21 5c 33 30 30 48 5c 33 30 36 3d 5c 32 30 34 46 | \2119\203F.\305.!\300H\306=\204F |
| 134c0 | 00 5c 32 31 31 5c 33 30 37 06 06 06 06 45 44 43 5c 32 30 32 55 00 5c 32 31 31 39 3f 5c 32 30 35 | .\211\307....EDC\202U.\2119?\205 |
| 134e0 | 55 00 5c 33 30 33 01 5c 33 30 37 06 07 06 07 45 5c 22 02 42 5c 32 36 32 02 03 54 5c 32 36 32 04 | U.\303.\307....E\".B\262..T\262. |
| 13500 | 5c 32 31 30 5c 32 30 32 04 00 5c 33 31 30 5c 33 31 31 02 5c 32 33 37 5c 22 5c 32 30 37 22 20 5b | \210\202..\310\311.\237\"\207".[ |
| 13520 | 30 20 6e 69 6c 20 26 72 65 73 74 20 64 61 73 68 2d 2d 6d 61 74 63 68 20 73 75 62 73 74 72 69 6e | 0.nil.&rest.dash--match.substrin |
| 13540 | 67 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 39 35 20 61 72 65 66 20 2d 66 6c 61 74 74 65 6e 2d 6e | g.symbol-name.95.aref.-flatten-n |
| 13560 | 20 31 5d 20 31 31 20 28 23 24 20 2e 20 37 38 31 39 38 29 5d 29 0a 23 40 31 34 38 20 4e 6f 72 6d | .1].11.(#$...78198)]).#@148.Norm |
| 13580 | 61 6c 69 7a 65 20 6b 76 20 50 41 54 54 45 52 4e 2e 0a 0a 54 68 69 73 20 6d 65 74 68 6f 64 20 6e | alize.kv.PATTERN...This.method.n |
| 135a0 | 6f 72 6d 61 6c 69 7a 65 73 20 50 41 54 54 45 52 4e 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 20 | ormalizes.PATTERN.to.the.format. |
| 135c0 | 65 78 70 65 63 74 65 64 20 62 79 0a 60 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 27 2e 20 20 53 | expected.by.`dash--match-kv'...S |
| 135e0 | 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 2e | ee.`-let'.for.the.specification. |
| 13600 | 0a 0a 28 66 6e 20 50 41 54 54 45 52 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d | ..(fn.PATTERN)..(defalias.'dash- |
| 13620 | 2d 6d 61 74 63 68 2d 6b 76 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6d 61 74 63 68 2d 66 6f 72 6d 20 23 | -match-kv-normalize-match-form.# |
| 13640 | 5b 32 35 37 20 22 5c 32 31 31 40 43 43 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 21 5c 33 30 33 5c | [257."\211@CC\300C\301\302!\303\ |
| 13660 | 33 30 34 5c 33 30 35 5c 33 30 36 04 06 08 41 06 09 41 41 23 5c 22 5c 33 30 37 5c 33 31 30 5c 33 | 304\305\306...A..AA#\"\307\310\3 |
| 13680 | 31 31 5c 33 31 32 5c 33 31 33 06 09 06 09 06 09 23 5c 33 31 34 5c 22 5c 33 31 35 5c 33 31 36 25 | 11\312\313......#\314\"\315\316% |
| 136a0 | 5c 22 5c 32 31 30 02 5c 32 34 32 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61 6b 65 2d 73 | \"\210.\242\237\207".[nil.make-s |
| 136c0 | 79 6d 62 6f 6c 20 22 2d 2d 64 61 73 68 2d 66 69 6c 6c 2d 70 6c 61 63 65 68 6f 6c 64 65 72 2d 2d | ymbol."--dash-fill-placeholder-- |
| 136e0 | 22 20 2d 65 61 63 68 20 61 70 70 6c 79 20 2d 7a 69 70 20 2d 70 61 64 20 6d 61 6b 65 2d 62 79 74 | ".-each.apply.-zip.-pad.make-byt |
| 13700 | 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 40 01 41 5c 33 30 31 5c 32 34 32 5c 32 30 33 0f | e-code.257."\211@.A\301\242\203. |
| 13720 | 00 5c 33 30 31 5c 33 30 33 5c 32 34 30 5c 32 30 32 5c 32 36 30 00 5c 33 30 32 01 3d 5c 32 30 34 | .\301\303\240\202\260.\302.=\204 |
| 13740 | 3e 00 5c 32 31 31 39 5c 32 30 33 2c 00 5c 33 30 34 01 21 5c 32 30 34 2c 00 5c 32 31 31 5c 33 30 | >.\2119\203,.\304.!\204,.\211\30 |
| 13760 | 35 3d 5c 32 30 34 2c 00 5c 32 31 31 5c 33 30 33 3d 5c 32 30 33 5c 32 33 37 00 5c 32 31 31 3a 5c | 5=\204,.\211\303=\203\237.\211:\ |
| 13780 | 32 30 33 38 00 5c 32 31 31 40 5c 33 30 36 3d 5c 32 30 33 5c 32 33 37 00 5c 33 30 37 01 21 5c 32 | 2038.\211@\306=\203\237.\307.!\2 |
| 137a0 | 30 34 5c 32 33 37 00 5c 33 30 34 02 21 5c 32 30 33 5c 5c 00 5c 33 30 30 02 5c 33 30 30 5c 32 34 | 04\237.\304.!\203\\.\300.\300\24 |
| 137c0 | 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 31 31 5c 33 31 32 05 21 5c 33 31 33 | 2B\240\210\300\310\311\312.!\313 |
| 137e0 | 5c 22 21 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 33 31 00 01 3b 5c | \"!\300\242B\240\210\202\231..;\ |
| 13800 | 32 30 33 74 00 5c 33 30 30 02 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 5c | 203t.\300.\300\242B\240\210\300\ |
| 13820 | 33 31 30 03 21 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 33 31 00 01 | 310.!\300\242B\240\210\202\231.. |
| 13840 | 3a 5c 32 30 33 5c 32 32 33 00 01 40 5c 33 30 36 3d 5c 32 30 33 5c 32 32 33 00 5c 33 30 30 02 5c | :\203\223..@\306=\203\223.\300.\ |
| 13860 | 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 02 41 40 5c 33 30 30 5c 32 34 32 42 | 300\242B\240\210\300.A@\300\242B |
| 13880 | 5c 32 34 30 5c 32 31 30 5c 32 30 32 5c 32 33 31 00 5c 33 31 34 5c 33 31 35 03 03 23 5c 32 31 30 | \240\210\202\231.\314\315..#\210 |
| 138a0 | 5c 33 30 31 5c 33 30 33 5c 32 34 30 5c 32 30 32 5c 32 36 30 00 5c 33 30 30 02 5c 33 30 30 5c 32 | \301\303\240\202\260.\300.\300\2 |
| 138c0 | 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 30 01 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 31 | 42B\240\210\300.\300\242B\240\21 |
| 138e0 | 30 5c 33 30 31 5c 33 30 35 5c 32 34 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f | 0\301\305\240\207".vconcat.vecto |
| 13900 | 72 20 5b 6e 69 6c 20 6b 65 79 77 6f 72 64 70 20 74 20 71 75 6f 74 65 20 76 65 63 74 6f 72 70 20 | r.[nil.keywordp.t.quote.vectorp. |
| 13920 | 69 6e 74 65 72 6e 20 73 75 62 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 31 20 65 | intern.substring.symbol-name.1.e |
| 13940 | 72 72 6f 72 20 22 2d 6c 65 74 3a 20 66 6f 75 6e 64 20 6b 65 79 20 60 25 73 27 20 69 6e 20 6b 76 | rror."-let:.found.key.`%s'.in.kv |
| 13960 | 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 20 62 75 74 20 69 74 73 20 70 61 74 74 65 72 6e 20 60 | .destructuring.but.its.pattern.` |
| 13980 | 25 73 27 20 69 73 20 69 6e 76 61 6c 69 64 20 61 6e 64 20 63 61 6e 20 6e 6f 74 20 62 65 20 64 65 | %s'.is.invalid.and.can.not.be.de |
| 139a0 | 72 69 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 22 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 | rived.from.the.key"].8."\n\n(fn. |
| 139c0 | 50 41 49 52 29 22 5d 20 31 34 20 28 23 24 20 2e 20 37 39 32 32 38 29 5d 29 0a 23 40 31 35 32 20 | PAIR)"].14.(#$...79228)]).#@152. |
| 139e0 | 53 65 74 75 70 20 61 20 6b 76 20 6d 61 74 63 68 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 | Setup.a.kv.matching.environment. |
| 13a00 | 61 6e 64 20 63 61 6c 6c 20 74 68 65 20 72 65 61 6c 20 6d 61 74 63 68 65 72 2e 0a 0a 6b 76 20 63 | and.call.the.real.matcher...kv.c |
| 13a20 | 61 6e 20 62 65 20 61 6e 79 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 2c 20 73 75 63 68 20 | an.be.any.key-value.store,.such. |
| 13a40 | 61 73 20 70 6c 69 73 74 2c 20 61 6c 69 73 74 20 6f 72 20 68 61 73 68 2d 74 61 62 6c 65 2e 0a 0a | as.plist,.alist.or.hash-table... |
| 13a60 | 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 | (fn.MATCH-FORM.SOURCE)..(defalia |
| 13a80 | 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 20 23 5b 35 31 34 20 22 5c 33 30 30 20 02 47 | s.'dash--match-kv.#[514."\300..G |
| 13aa0 | 5c 33 30 31 55 5c 32 30 33 13 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 32 2e 00 01 39 5c 32 30 | \301U\203..\302.A..@#\202...9\20 |
| 13ac0 | 33 5c 22 00 5c 33 30 32 03 41 03 05 40 23 5c 32 30 32 2e 00 5c 32 31 31 02 44 5c 33 30 32 04 41 | 3\".\302.A..@#\202..\211.D\302.A |
| 13ae0 | 03 06 06 40 23 42 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6d 61 6b 65 2d 73 6f | ...@#B\207".[dash--match-make-so |
| 13b00 | 75 72 63 65 2d 73 79 6d 62 6f 6c 20 33 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 6b 76 2d 31 5d 20 | urce-symbol.3.dash--match-kv-1]. |
| 13b20 | 38 20 28 23 24 20 2e 20 38 30 33 35 32 29 5d 29 0a 23 40 37 39 20 47 65 6e 65 72 61 74 65 20 65 | 8.(#$...80352)]).#@79.Generate.e |
| 13b40 | 78 74 72 61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 52 43 45 20 66 6f 72 20 26 68 | xtracting.KEY.from.SOURCE.for.&h |
| 13b60 | 61 73 68 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 6e 20 4b 45 59 20 53 4f 55 52 | ash.destructuring...(fn.KEY.SOUR |
| 13b80 | 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 65 78 70 61 6e 64 3a 26 68 61 73 | CE)..(defalias.'dash-expand:&has |
| 13ba0 | 68 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 45 5c 32 30 37 22 20 5b 67 65 74 68 61 73 68 5d 20 | h.#[514."\300..E\207".[gethash]. |
| 13bc0 | 35 20 28 23 24 20 2e 20 38 30 36 39 34 29 5d 29 0a 23 40 38 30 20 47 65 6e 65 72 61 74 65 20 65 | 5.(#$...80694)]).#@80.Generate.e |
| 13be0 | 78 74 72 61 63 74 69 6e 67 20 4b 45 59 20 66 72 6f 6d 20 53 4f 55 52 43 45 20 66 6f 72 20 26 70 | xtracting.KEY.from.SOURCE.for.&p |
| 13c00 | 6c 69 73 74 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 6e 20 4b 45 59 20 53 4f 55 | list.destructuring...(fn.KEY.SOU |
| 13c20 | 52 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 65 78 70 61 6e 64 3a 26 70 6c | RCE)..(defalias.'dash-expand:&pl |
| 13c40 | 69 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 45 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 67 | ist.#[514."\300..E\207".[plist-g |
| 13c60 | 65 74 5d 20 35 20 28 23 24 20 2e 20 38 30 38 35 34 29 5d 29 0a 23 40 38 30 20 47 65 6e 65 72 61 | et].5.(#$...80854)]).#@80.Genera |
| 13c80 | 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 52 43 45 20 66 6f | te.extracting.KEY.from.SOURCE.fo |
| 13ca0 | 72 20 26 61 6c 69 73 74 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 28 66 6e 20 4b 45 59 | r.&alist.destructuring...(fn.KEY |
| 13cc0 | 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 78 70 61 6e 64 | .SOURCE)..(defalias.'dash-expand |
| 13ce0 | 3a 26 61 6c 69 73 74 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 | :&alist.#[514."\300\301..ED\207" |
| 13d00 | 20 5b 63 64 72 20 61 73 73 6f 63 5d 20 36 20 28 23 24 20 2e 20 38 31 30 31 38 29 5d 29 0a 23 40 | .[cdr.assoc].6.(#$...81018)]).#@ |
| 13d20 | 31 33 35 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 | 135.Generate.extracting.KEY.from |
| 13d40 | 20 53 4f 55 52 43 45 20 66 6f 72 20 26 68 61 73 68 3f 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 | .SOURCE.for.&hash?.destructuring |
| 13d60 | 2e 0a 53 69 6d 69 6c 61 72 20 74 6f 20 26 68 61 73 68 20 62 75 74 20 63 68 65 63 6b 20 77 68 65 | ..Similar.to.&hash.but.check.whe |
| 13d80 | 74 68 65 72 20 74 68 65 20 6d 61 70 20 69 73 20 6e 6f 74 20 6e 69 6c 2e 0a 0a 28 66 6e 20 4b 45 | ther.the.map.is.not.nil...(fn.KE |
| 13da0 | 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 78 70 61 6e | Y.SOURCE)..(defalias.'dash-expan |
| 13dc0 | 64 3a 26 68 61 73 68 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 03 | d:&hash\?.#[514."\300\301!\302.. |
| 13de0 | 44 43 5c 33 30 33 03 5c 33 30 34 06 07 06 06 45 45 45 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 | DC\303.\304....EEE\207".[make-sy |
| 13e00 | 6d 62 6f 6c 20 22 73 72 63 22 20 6c 65 74 20 77 68 65 6e 20 67 65 74 68 61 73 68 5d 20 31 30 20 | mbol."src".let.when.gethash].10. |
| 13e20 | 28 23 24 20 2e 20 38 31 31 38 38 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 65 | (#$...81188)]).(defalias.'dash-e |
| 13e40 | 78 70 61 6e 64 3a 26 6b 65 79 73 20 27 64 61 73 68 2d 65 78 70 61 6e 64 3a 26 70 6c 69 73 74 29 | xpand:&keys.'dash-expand:&plist) |
| 13e60 | 0a 23 40 35 30 39 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 | .#@509.Match.MATCH-FORM.against. |
| 13e80 | 53 4f 55 52 43 45 20 6f 66 20 74 79 70 65 20 54 59 50 45 2e 0a 0a 4d 41 54 43 48 2d 46 4f 52 4d | SOURCE.of.type.TYPE...MATCH-FORM |
| 13ea0 | 20 69 73 20 61 20 70 72 6f 70 65 72 20 6c 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 6b | .is.a.proper.list.of.the.form.(k |
| 13ec0 | 65 79 31 20 70 6c 61 63 65 31 20 2e 2e 2e 20 6b 65 79 4e 0a 70 6c 61 63 65 4e 29 2e 20 20 45 61 | ey1.place1.....keyN.placeN)...Ea |
| 13ee0 | 63 68 20 70 6c 61 63 65 4b 20 69 73 20 65 69 74 68 65 72 20 61 20 73 79 6d 62 6f 6c 2c 20 77 68 | ch.placeK.is.either.a.symbol,.wh |
| 13f00 | 69 63 68 20 67 65 74 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 0a 76 61 6c 75 65 20 6f 66 20 6b | ich.gets.bound.to.the.value.of.k |
| 13f20 | 65 79 4b 20 72 65 74 72 69 65 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 | eyK.retrieved.from.the.key-value |
| 13f40 | 20 73 74 6f 72 65 2c 20 6f 72 20 61 6e 6f 74 68 65 72 0a 6d 61 74 63 68 20 66 6f 72 6d 20 77 68 | .store,.or.another.match.form.wh |
| 13f60 | 69 63 68 20 67 65 74 73 20 64 65 73 74 72 75 63 74 75 72 65 64 20 72 65 63 75 72 73 69 76 65 6c | ich.gets.destructured.recursivel |
| 13f80 | 79 2e 0a 0a 53 4f 55 52 43 45 20 69 73 20 61 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 20 | y...SOURCE.is.a.key-value.store. |
| 13fa0 | 6f 66 20 74 79 70 65 20 54 59 50 45 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 61 20 70 6c 69 | of.type.TYPE,.which.can.be.a.pli |
| 13fc0 | 73 74 2c 0a 61 6e 20 61 6c 69 73 74 20 6f 72 20 61 20 68 61 73 68 20 74 61 62 6c 65 2e 0a 0a 54 | st,.an.alist.or.a.hash.table...T |
| 13fe0 | 59 50 45 20 69 73 20 61 20 74 6f 6b 65 6e 20 73 70 65 63 69 66 79 69 6e 67 20 74 68 65 20 74 79 | YPE.is.a.token.specifying.the.ty |
| 14000 | 70 65 20 6f 66 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 20 73 74 6f 72 65 2e 0a 56 61 6c 69 64 | pe.of.the.key-value.store..Valid |
| 14020 | 20 76 61 6c 75 65 73 20 61 72 65 20 26 70 6c 69 73 74 2c 20 26 61 6c 69 73 74 20 61 6e 64 20 26 | .values.are.&plist,.&alist.and.& |
| 14040 | 68 61 73 68 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 20 54 59 50 | hash...(fn.MATCH-FORM.SOURCE.TYP |
| 14060 | 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 6b 76 2d 31 20 | E)..(defalias.'dash--match-kv-1. |
| 14080 | 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c | #[771."\300\301\302\303\304\305\ |
| 140a0 | 33 30 36 5c 33 30 37 06 09 06 09 5c 22 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 5c 33 31 33 | 306\307....\"\310\"\311\312%\313 |
| 140c0 | 5c 33 31 34 06 08 5c 22 5c 22 5c 22 5c 32 30 37 22 20 5b 2d 66 6c 61 74 74 65 6e 2d 6e 20 31 20 | \314..\"\"\"\207".[-flatten-n.1. |
| 140e0 | 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 40 01 41 | -map.make-byte-code.257."\211@.A |
| 14100 | 40 5c 33 30 32 5c 33 30 31 21 02 5c 33 30 30 5c 22 01 39 5c 32 30 33 17 00 01 01 44 43 5c 32 30 | @\302\301!.\300\".9\203....DC\20 |
| 14120 | 32 1b 00 5c 33 30 33 02 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 | 2..\303..\"\207".vconcat.vector. |
| 14140 | 5b 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 | [dash--get-expand-function.dash- |
| 14160 | 2d 6d 61 74 63 68 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 4b 56 29 22 20 2d 70 61 72 74 69 74 69 | -match].7."\n\n(fn.KV)".-partiti |
| 14180 | 6f 6e 20 32 5d 20 31 33 20 28 23 24 20 2e 20 38 31 35 31 31 29 5d 29 0a 23 40 39 36 20 42 69 6e | on.2].13.(#$...81511)]).#@96.Bin |
| 141a0 | 64 20 61 20 73 79 6d 62 6f 6c 2e 0a 0a 54 68 69 73 20 77 6f 72 6b 73 20 6a 75 73 74 20 6c 69 6b | d.a.symbol...This.works.just.lik |
| 141c0 | 65 20 60 6c 65 74 27 2c 20 74 68 65 72 65 20 69 73 20 6e 6f 20 64 65 73 74 72 75 63 74 75 72 69 | e.`let',.there.is.no.destructuri |
| 141e0 | 6e 67 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 64 65 | ng...(fn.MATCH-FORM.SOURCE)..(de |
| 14200 | 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 2d 73 79 6d 62 6f 6c 20 23 5b 35 31 34 | falias.'dash--match-symbol.#[514 |
| 14220 | 20 22 01 01 44 43 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 38 32 33 33 33 29 5d 29 0a | ."..DC\207".[].4.(#$...82333)]). |
| 14240 | 23 40 32 38 31 20 4d 61 74 63 68 20 4d 41 54 43 48 2d 46 4f 52 4d 20 61 67 61 69 6e 73 74 20 53 | #@281.Match.MATCH-FORM.against.S |
| 14260 | 4f 55 52 43 45 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 65 73 74 73 20 74 68 65 20 | OURCE...This.function.tests.the. |
| 14280 | 4d 41 54 43 48 2d 46 4f 52 4d 20 61 6e 64 20 64 69 73 70 61 74 63 68 65 73 20 74 6f 20 73 70 65 | MATCH-FORM.and.dispatches.to.spe |
| 142a0 | 63 69 66 69 63 0a 6d 61 74 63 68 65 72 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 74 79 70 65 | cific.matchers.based.on.the.type |
| 142c0 | 20 6f 66 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 0a 4b 65 79 2d 76 61 6c 75 65 20 73 | .of.the.expression...Key-value.s |
| 142e0 | 74 6f 72 65 73 20 61 72 65 20 64 69 73 61 6d 62 69 67 75 61 74 65 64 20 62 79 20 70 6c 61 63 69 | tores.are.disambiguated.by.placi |
| 14300 | 6e 67 20 61 20 74 6f 6b 65 6e 20 26 70 6c 69 73 74 2c 0a 26 61 6c 69 73 74 20 6f 72 20 26 68 61 | ng.a.token.&plist,.&alist.or.&ha |
| 14320 | 73 68 20 61 73 20 61 20 66 69 72 73 74 20 69 74 65 6d 20 69 6e 20 74 68 65 20 4d 41 54 43 48 2d | sh.as.a.first.item.in.the.MATCH- |
| 14340 | 46 4f 52 4d 2e 0a 0a 28 66 6e 20 4d 41 54 43 48 2d 46 4f 52 4d 20 53 4f 55 52 43 45 29 1f 0a 28 | FORM...(fn.MATCH-FORM.SOURCE)..( |
| 14360 | 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6d 61 74 63 68 20 23 5b 35 31 34 20 22 01 39 5c | defalias.'dash--match.#[514.".9\ |
| 14380 | 32 30 33 5c 6e 00 5c 33 30 30 02 02 5c 22 5c 32 30 37 01 3a 5c 32 30 33 45 00 01 41 3a 5c 32 30 | 203\n.\300..\"\207.:\203E..A:\20 |
| 143a0 | 33 30 00 01 40 39 5c 32 30 33 30 00 01 41 40 5c 33 30 31 3d 5c 32 30 33 30 00 01 40 5c 32 31 31 | 30..@9\2030..A@\301=\2030..@\211 |
| 143c0 | 02 44 5c 33 30 32 04 41 41 03 5c 22 42 5c 32 30 37 5c 33 30 33 5c 33 30 34 03 40 21 21 5c 32 30 | .D\302.AA.\"B\207\303\304.@!!\20 |
| 143e0 | 33 40 00 5c 33 30 35 5c 33 30 36 03 21 02 5c 22 5c 32 30 37 5c 33 30 37 02 02 5c 22 5c 32 30 37 | 3@.\305\306.!.\"\207\307..\"\207 |
| 14400 | 5c 33 31 30 02 21 5c 32 30 35 74 00 01 47 5c 33 31 31 56 5c 32 30 33 70 00 01 5c 33 31 32 48 39 | \310.!\205t..G\311V\203p..\312H9 |
| 14420 | 5c 32 30 33 70 00 01 5c 33 31 33 48 5c 33 30 31 3d 5c 32 30 33 70 00 01 5c 33 31 32 48 5c 32 31 | \203p..\313H\301=\203p..\312H\21 |
| 14440 | 31 02 44 5c 33 30 32 5c 33 31 34 05 5c 33 31 31 5c 22 03 5c 22 42 5c 32 30 37 5c 33 31 35 02 02 | 1.D\302\314.\311\".\"B\207\315.. |
| 14460 | 5c 22 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 6d 61 74 63 68 2d 73 79 6d 62 6f 6c 20 26 61 73 20 | \"\207".[dash--match-symbol.&as. |
| 14480 | 64 61 73 68 2d 2d 6d 61 74 63 68 20 66 75 6e 63 74 69 6f 6e 70 20 64 61 73 68 2d 2d 67 65 74 2d | dash--match.functionp.dash--get- |
| 144a0 | 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 20 64 | expand-function.dash--match-kv.d |
| 144c0 | 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 66 6f | ash--match-kv-normalize-match-fo |
| 144e0 | 72 6d 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 63 6f 6e 73 20 76 65 63 74 6f 72 70 20 32 20 30 20 | rm.dash--match-cons.vectorp.2.0. |
| 14500 | 31 20 73 75 62 73 74 72 69 6e 67 20 64 61 73 68 2d 2d 6d 61 74 63 68 2d 76 65 63 74 6f 72 5d 20 | 1.substring.dash--match-vector]. |
| 14520 | 38 20 28 23 24 20 2e 20 38 32 35 30 32 29 5d 29 0a 23 40 33 36 34 20 4e 6f 72 6d 61 6c 69 7a 65 | 8.(#$...82502)]).#@364.Normalize |
| 14540 | 20 56 41 52 4c 49 53 54 20 73 6f 20 74 68 61 74 20 65 76 65 72 79 20 62 69 6e 64 69 6e 67 20 69 | .VARLIST.so.that.every.binding.i |
| 14560 | 73 20 61 20 6c 69 73 74 2e 0a 0a 60 6c 65 74 27 20 61 6c 6c 6f 77 73 20 73 70 65 63 69 66 79 69 | s.a.list...`let'.allows.specifyi |
| 14580 | 6e 67 20 61 20 62 69 6e 64 69 6e 67 20 77 68 69 63 68 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 | ng.a.binding.which.is.not.a.list |
| 145a0 | 20 62 75 74 20 73 69 6d 70 6c 79 0a 74 68 65 20 70 6c 61 63 65 20 77 68 69 63 68 20 69 73 20 74 | .but.simply.the.place.which.is.t |
| 145c0 | 68 65 6e 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 6f 75 6e 64 20 74 6f 20 6e 69 6c 2c 20 | hen.automatically.bound.to.nil,. |
| 145e0 | 73 75 63 68 20 74 68 61 74 20 61 6c 6c 0a 74 68 72 65 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f | such.that.all.three.of.the.follo |
| 14600 | 77 69 6e 67 20 61 72 65 20 69 64 65 6e 74 69 63 61 6c 20 61 6e 64 20 65 76 61 6c 75 61 74 65 20 | wing.are.identical.and.evaluate. |
| 14620 | 74 6f 20 6e 69 6c 2e 0a 0a 20 20 28 6c 65 74 20 28 61 29 20 61 29 0a 20 20 28 6c 65 74 20 28 28 | to.nil.....(let.(a).a)...(let.(( |
| 14640 | 61 29 29 20 61 29 0a 20 20 28 6c 65 74 20 28 28 61 20 6e 69 6c 29 29 20 61 29 0a 0a 54 68 69 73 | a)).a)...(let.((a.nil)).a)..This |
| 14660 | 20 66 75 6e 63 74 69 6f 6e 20 6e 6f 72 6d 61 6c 69 7a 65 73 20 61 6c 6c 20 6f 66 20 74 68 65 73 | .function.normalizes.all.of.thes |
| 14680 | 65 20 74 6f 20 74 68 65 20 6c 61 73 74 20 66 6f 72 6d 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 | e.to.the.last.form...(fn.VARLIST |
| 146a0 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 6c 65 | )..(defalias.'dash--normalize-le |
| 146c0 | 74 2d 76 61 72 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 | t-varlist.#[257."\300\301.\"\207 |
| 146e0 | 22 20 5b 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 3a 5c 32 30 33 06 00 5c 32 30 37 | ".[mapcar.#[257."\211:\203..\207 |
| 14700 | 5c 32 31 31 5c 33 30 30 44 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 | \211\300D\207".[nil].3."\n\n(fn. |
| 14720 | 49 54 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 38 33 32 35 35 29 5d 29 0a 23 40 34 37 36 20 42 69 | IT)"]].4.(#$...83255)]).#@476.Bi |
| 14740 | 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 56 41 52 4c 49 53 | nd.variables.according.to.VARLIS |
| 14760 | 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 20 69 73 20 61 20 | T.then.eval.BODY...VARLIST.is.a. |
| 14780 | 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 28 50 41 54 54 45 | list.of.lists.of.the.form.(PATTE |
| 147a0 | 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 69 73 20 6d 61 74 | RN.SOURCE)...Each.PATTERN.is.mat |
| 147c0 | 63 68 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 53 4f 55 52 43 45 20 73 74 72 75 63 74 75 72 | ched.against.the.SOURCE.structur |
| 147e0 | 61 6c 6c 79 2e 20 20 53 4f 55 52 43 45 20 69 73 0a 6f 6e 6c 79 20 65 76 61 6c 75 61 74 65 64 20 | ally...SOURCE.is.only.evaluated. |
| 14800 | 6f 6e 63 65 20 66 6f 72 20 65 61 63 68 20 50 41 54 54 45 52 4e 2e 0a 0a 45 61 63 68 20 53 4f 55 | once.for.each.PATTERN...Each.SOU |
| 14820 | 52 43 45 20 63 61 6e 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 61 6c 72 | RCE.can.refer.to.the.symbols.alr |
| 14840 | 65 61 64 79 20 62 6f 75 6e 64 20 62 79 20 74 68 69 73 0a 56 41 52 4c 49 53 54 2e 20 20 54 68 69 | eady.bound.by.this.VARLIST...Thi |
| 14860 | 73 20 69 73 20 75 73 65 66 75 6c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 64 65 73 74 72 | s.is.useful.if.you.want.to.destr |
| 14880 | 75 63 74 75 72 65 20 53 4f 55 52 43 45 0a 72 65 63 75 72 73 69 76 65 6c 79 20 62 75 74 20 61 6c | ucture.SOURCE.recursively.but.al |
| 148a0 | 73 6f 20 77 61 6e 74 20 74 6f 20 6e 61 6d 65 20 74 68 65 20 69 6e 74 65 72 6d 65 64 69 61 74 65 | so.want.to.name.the.intermediate |
| 148c0 | 20 73 74 72 75 63 74 75 72 65 73 2e 0a 0a 53 65 65 20 60 2d 6c 65 74 27 20 66 6f 72 20 74 68 65 | .structures...See.`-let'.for.the |
| 148e0 | 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 20 70 61 74 74 65 72 6e 73 2e 0a | .list.of.all.possible.patterns.. |
| 14900 | 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c | .(fn.VARLIST.&rest.BODY)..(defal |
| 14920 | 69 61 73 20 27 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 | ias.'-let*.'(macro...#[385."\300 |
| 14940 | 02 21 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 5c 22 5c 22 5c 33 30 35 01 04 42 42 5c | .!\301\302\303\304.\"\"\305..BB\ |
| 14960 | 32 30 37 22 20 5b 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 | 207".[dash--normalize-let-varlis |
| 14980 | 74 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 33 30 | t.apply.append.mapcar.#[257."\30 |
| 149a0 | 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 22 5c | 0.@.A@\"\207".[dash--match].4."\ |
| 149c0 | 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 6c 65 74 2a 5d 20 38 20 28 23 24 20 2e 20 38 33 37 37 34 | n\n(fn.IT)"].let*].8.(#$...83774 |
| 149e0 | 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 |
| 14a00 | 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" |
| 14a20 | 20 5b 70 75 74 20 2d 6c 65 74 2a 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 | .[put.-let*.edebug-form-spec.((& |
| 14a40 | 72 65 73 74 20 5b 26 6f 72 20 28 73 65 78 70 20 66 6f 72 6d 29 20 73 65 78 70 5d 29 20 62 6f 64 | rest.[&or.(sexp.form).sexp]).bod |
| 14a60 | 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 |
| 14a80 | 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 35 36 38 34 20 42 69 6e 64 20 76 61 72 69 61 62 6c 65 73 | tion.1].4).#@5684.Bind.variables |
| 14aa0 | 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 56 41 52 4c 49 53 54 20 74 68 65 6e 20 65 76 61 6c 20 | .according.to.VARLIST.then.eval. |
| 14ac0 | 42 4f 44 59 2e 0a 0a 56 41 52 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 | BODY...VARLIST.is.a.list.of.list |
| 14ae0 | 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 2e 20 | s.of.the.form.(PATTERN.SOURCE).. |
| 14b00 | 20 45 61 63 68 0a 50 41 54 54 45 52 4e 20 69 73 20 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 | .Each.PATTERN.is.matched.against |
| 14b20 | 20 74 68 65 20 53 4f 55 52 43 45 20 22 73 74 72 75 63 74 75 72 61 6c 6c 79 22 2e 20 20 53 4f 55 | .the.SOURCE."structurally"...SOU |
| 14b40 | 52 43 45 0a 69 73 20 6f 6e 6c 79 20 65 76 61 6c 75 61 74 65 64 20 6f 6e 63 65 20 66 6f 72 20 65 | RCE.is.only.evaluated.once.for.e |
| 14b60 | 61 63 68 20 50 41 54 54 45 52 4e 2e 20 20 45 61 63 68 20 50 41 54 54 45 52 4e 20 69 73 20 6d 61 | ach.PATTERN...Each.PATTERN.is.ma |
| 14b80 | 74 63 68 65 64 0a 72 65 63 75 72 73 69 76 65 6c 79 2c 20 61 6e 64 20 63 61 6e 20 74 68 65 72 65 | tched.recursively,.and.can.there |
| 14ba0 | 66 6f 72 65 20 63 6f 6e 74 61 69 6e 20 73 75 62 2d 70 61 74 74 65 72 6e 73 20 77 68 69 63 68 20 | fore.contain.sub-patterns.which. |
| 14bc0 | 61 72 65 0a 6d 61 74 63 68 65 64 20 61 67 61 69 6e 73 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e | are.matched.against.correspondin |
| 14be0 | 67 20 73 75 62 2d 65 78 70 72 65 73 73 69 6f 6e 73 20 6f 66 20 53 4f 55 52 43 45 2e 0a 0a 41 6c | g.sub-expressions.of.SOURCE...Al |
| 14c00 | 6c 20 74 68 65 20 53 4f 55 52 43 45 73 20 61 72 65 20 65 76 61 6c 6c 65 64 20 62 65 66 6f 72 65 | l.the.SOURCEs.are.evalled.before |
| 14c20 | 20 61 6e 79 20 73 79 6d 62 6f 6c 73 20 61 72 65 0a 62 6f 75 6e 64 20 28 69 2e 65 2e 20 22 69 6e | .any.symbols.are.bound.(i.e.."in |
| 14c40 | 20 70 61 72 61 6c 6c 65 6c 22 29 2e 0a 0a 49 66 20 56 41 52 4c 49 53 54 20 6f 6e 6c 79 20 63 6f | .parallel")...If.VARLIST.only.co |
| 14c60 | 6e 74 61 69 6e 73 20 6f 6e 65 20 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 20 65 6c 65 6d | ntains.one.(PATTERN.SOURCE).elem |
| 14c80 | 65 6e 74 2c 20 79 6f 75 20 63 61 6e 0a 6f 70 74 69 6f 6e 61 6c 6c 79 20 73 70 65 63 69 66 79 20 | ent,.you.can.optionally.specify. |
| 14ca0 | 69 74 20 75 73 69 6e 67 20 61 20 76 65 63 74 6f 72 20 61 6e 64 20 64 69 73 63 61 72 64 69 6e 67 | it.using.a.vector.and.discarding |
| 14cc0 | 20 74 68 65 0a 6f 75 74 65 72 2d 6d 6f 73 74 20 70 61 72 65 6e 73 2e 20 20 54 68 75 73 0a 0a 20 | .the.outer-most.parens...Thus... |
| 14ce0 | 20 28 2d 6c 65 74 20 28 28 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 29 29 20 2e 2e 2e 29 0a 0a | .(-let.((PATTERN.SOURCE))....).. |
| 14d00 | 62 65 63 6f 6d 65 73 0a 0a 20 20 28 2d 6c 65 74 20 5b 50 41 54 54 45 52 4e 20 53 4f 55 52 43 45 | becomes....(-let.[PATTERN.SOURCE |
| 14d20 | 5d 20 2e 2e 2e 29 2e 0a 0a 60 2d 6c 65 74 27 20 75 73 65 73 20 61 20 63 6f 6e 76 65 6e 74 69 6f | ]....)...`-let'.uses.a.conventio |
| 14d40 | 6e 20 6f 66 20 6e 6f 74 20 62 69 6e 64 69 6e 67 20 70 6c 61 63 65 73 20 28 73 79 6d 62 6f 6c 73 | n.of.not.binding.places.(symbols |
| 14d60 | 29 20 73 74 61 72 74 69 6e 67 0a 77 69 74 68 20 5f 20 77 68 65 6e 65 76 65 72 20 69 74 27 73 20 | ).starting.with._.whenever.it's. |
| 14d80 | 70 6f 73 73 69 62 6c 65 2e 20 20 59 6f 75 20 63 61 6e 20 75 73 65 20 74 68 69 73 20 74 6f 20 73 | possible...You.can.use.this.to.s |
| 14da0 | 6b 69 70 20 6f 76 65 72 0a 65 6e 74 72 69 65 73 20 79 6f 75 20 64 6f 6e 27 74 20 63 61 72 65 20 | kip.over.entries.you.don't.care. |
| 14dc0 | 61 62 6f 75 74 2e 20 20 48 6f 77 65 76 65 72 2c 20 74 68 69 73 20 69 73 20 6e 6f 74 20 2a 61 6c | about...However,.this.is.not.*al |
| 14de0 | 77 61 79 73 2a 0a 70 6f 73 73 69 62 6c 65 20 28 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 20 69 | ways*.possible.(as.a.result.of.i |
| 14e00 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 20 61 6e 64 20 74 68 65 73 65 20 73 79 6d 62 6f 6c 73 | mplementation).and.these.symbols |
| 14e20 | 20 6d 69 67 68 74 0a 67 65 74 20 62 6f 75 6e 64 20 74 6f 20 75 6e 64 65 66 69 6e 65 64 20 76 61 | .might.get.bound.to.undefined.va |
| 14e40 | 6c 75 65 73 2e 0a 0a 46 6f 6c 6c 6f 77 69 6e 67 20 69 73 20 74 68 65 20 6f 76 65 72 76 69 65 77 | lues...Following.is.the.overview |
| 14e60 | 20 6f 66 20 73 75 70 70 6f 72 74 65 64 20 70 61 74 74 65 72 6e 73 2e 20 20 52 65 6d 65 6d 62 65 | .of.supported.patterns...Remembe |
| 14e80 | 72 20 74 68 61 74 0a 70 61 74 74 65 72 6e 73 20 63 61 6e 20 62 65 20 6d 61 74 63 68 65 64 20 72 | r.that.patterns.can.be.matched.r |
| 14ea0 | 65 63 75 72 73 69 76 65 6c 79 2c 20 73 6f 20 65 76 65 72 79 20 61 2c 20 62 2c 20 61 4b 20 69 6e | ecursively,.so.every.a,.b,.aK.in |
| 14ec0 | 20 74 68 65 0a 66 6f 6c 6c 6f 77 69 6e 67 20 63 61 6e 20 62 65 20 61 20 6d 61 74 63 68 69 6e 67 | .the.following.can.be.a.matching |
| 14ee0 | 20 63 6f 6e 73 74 72 75 63 74 20 61 6e 64 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 | .construct.and.not.necessarily.a |
| 14f00 | 0a 73 79 6d 62 6f 6c 2f 76 61 72 69 61 62 6c 65 2e 0a 0a 53 79 6d 62 6f 6c 3a 0a 0a 20 20 61 20 | .symbol/variable...Symbol:....a. |
| 14f20 | 2d 20 62 69 6e 64 20 74 68 65 20 53 4f 55 52 43 45 20 74 6f 20 41 2e 20 20 54 68 69 73 20 69 73 | -.bind.the.SOURCE.to.A...This.is |
| 14f40 | 20 6a 75 73 74 20 6c 69 6b 65 20 72 65 67 75 6c 61 72 20 60 6c 65 74 27 2e 0a 0a 43 6f 6e 73 65 | .just.like.regular.`let'...Conse |
| 14f60 | 73 20 61 6e 64 20 6c 69 73 74 73 3a 0a 0a 20 20 28 61 29 20 2d 20 62 69 6e 64 20 60 63 61 72 27 | s.and.lists:....(a).-.bind.`car' |
| 14f80 | 20 6f 66 20 63 6f 6e 73 2f 6c 69 73 74 20 74 6f 20 41 0a 0a 20 20 28 61 20 2e 20 62 29 20 2d 20 | .of.cons/list.to.A....(a...b).-. |
| 14fa0 | 62 69 6e 64 20 63 61 72 20 6f 66 20 63 6f 6e 73 20 74 6f 20 41 20 61 6e 64 20 60 63 64 72 27 20 | bind.car.of.cons.to.A.and.`cdr'. |
| 14fc0 | 74 6f 20 42 0a 0a 20 20 28 61 20 62 29 20 2d 20 62 69 6e 64 20 63 61 72 20 6f 66 20 6c 69 73 74 | to.B....(a.b).-.bind.car.of.list |
| 14fe0 | 20 74 6f 20 41 20 61 6e 64 20 60 63 61 64 72 27 20 74 6f 20 42 0a 0a 20 20 28 61 31 20 61 32 20 | .to.A.and.`cadr'.to.B....(a1.a2. |
| 15000 | 61 33 20 2e 2e 2e 29 20 2d 20 62 69 6e 64 20 30 74 68 20 63 61 72 20 6f 66 20 6c 69 73 74 20 74 | a3....).-.bind.0th.car.of.list.t |
| 15020 | 6f 20 41 31 2c 20 31 73 74 20 74 6f 20 41 32 2c 20 32 6e 64 20 74 6f 20 41 33 2e 2e 2e 0a 0a 20 | o.A1,.1st.to.A2,.2nd.to.A3...... |
| 15040 | 20 28 61 31 20 61 32 20 61 33 20 2e 2e 2e 20 61 4e 20 2e 20 72 65 73 74 29 20 2d 20 61 73 20 61 | .(a1.a2.a3.....aN...rest).-.as.a |
| 15060 | 62 6f 76 65 2c 20 62 75 74 20 62 69 6e 64 20 74 68 65 20 4e 74 68 20 63 64 72 20 74 6f 20 52 45 | bove,.but.bind.the.Nth.cdr.to.RE |
| 15080 | 53 54 2e 0a 0a 56 65 63 74 6f 72 73 3a 0a 0a 20 20 5b 61 5d 20 2d 20 62 69 6e 64 20 30 74 68 20 | ST...Vectors:....[a].-.bind.0th. |
| 150a0 | 65 6c 65 6d 65 6e 74 20 6f 66 20 61 20 6e 6f 6e 2d 6c 69 73 74 20 73 65 71 75 65 6e 63 65 20 74 | element.of.a.non-list.sequence.t |
| 150c0 | 6f 20 41 20 28 77 6f 72 6b 73 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 76 65 63 74 6f 72 73 2c | o.A.(works.with.........vectors, |
| 150e0 | 20 73 74 72 69 6e 67 73 2c 20 62 69 74 20 61 72 72 61 79 73 2e 2e 2e 29 0a 0a 20 20 5b 61 31 20 | .strings,.bit.arrays...)....[a1. |
| 15100 | 61 32 20 61 33 20 2e 2e 2e 5d 20 2d 20 62 69 6e 64 20 30 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 | a2.a3....].-.bind.0th.element.of |
| 15120 | 20 6e 6f 6e 2d 6c 69 73 74 20 73 65 71 75 65 6e 63 65 20 74 6f 20 41 30 2c 20 31 73 74 20 74 6f | .non-list.sequence.to.A0,.1st.to |
| 15140 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 31 2c 20 32 6e 64 20 74 6f 20 41 | ....................A1,.2nd.to.A |
| 15160 | 32 2c 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 | 2,........................If.the |
| 15180 | 20 50 41 54 54 45 52 4e 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c | .PATTERN.is.shorter.than.SOURCE, |
| 151a0 | 20 74 68 65 20 76 61 6c 75 65 73 20 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .the.values.at.................. |
| 151c0 | 20 20 70 6c 61 63 65 73 20 6e 6f 74 20 69 6e 20 50 41 54 54 45 52 4e 20 61 72 65 20 69 67 6e 6f | ..places.not.in.PATTERN.are.igno |
| 151e0 | 72 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 74 68 65 20 50 | red.....................If.the.P |
| 15200 | 41 54 54 45 52 4e 20 69 73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 53 4f 55 52 43 45 2c 20 61 6e | ATTERN.is.longer.than.SOURCE,.an |
| 15220 | 20 60 65 72 72 6f 72 27 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 | .`error'.is....................t |
| 15240 | 68 72 6f 77 6e 2e 0a 0a 20 20 5b 61 31 20 61 32 20 61 33 20 2e 2e 2e 20 26 72 65 73 74 20 72 65 | hrown.....[a1.a2.a3.....&rest.re |
| 15260 | 73 74 5d 20 2d 20 61 73 20 61 62 6f 76 65 2c 20 62 75 74 20 62 69 6e 64 20 74 68 65 20 72 65 73 | st].-.as.above,.but.bind.the.res |
| 15280 | 74 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.of............................ |
| 152a0 | 20 20 20 74 68 65 20 73 65 71 75 65 6e 63 65 20 74 6f 20 52 45 53 54 2e 20 20 54 68 69 73 20 69 | ...the.sequence.to.REST...This.i |
| 152c0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s............................... |
| 152e0 | 63 6f 6e 63 65 70 74 75 61 6c 6c 79 20 74 68 65 20 73 61 6d 65 20 61 73 20 69 6d 70 72 6f 70 65 | conceptually.the.same.as.imprope |
| 15300 | 72 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.list.......................... |
| 15320 | 20 20 20 20 20 6d 61 74 63 68 69 6e 67 20 28 61 31 20 61 32 20 2e 2e 2e 20 61 4e 20 2e 20 72 65 | .....matching.(a1.a2.....aN...re |
| 15340 | 73 74 29 0a 0a 4b 65 79 2f 76 61 6c 75 65 20 73 74 6f 72 65 73 3a 0a 0a 20 20 28 26 70 6c 69 73 | st)..Key/value.stores:....(&plis |
| 15360 | 74 20 6b 65 79 30 20 61 30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 61 | t.key0.a0.....keyN.aN).-.bind.va |
| 15380 | 6c 75 65 20 6d 61 70 70 65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 20 | lue.mapped.by.keyK.in.the....... |
| 153a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 | ...........................SOURC |
| 153c0 | 45 20 70 6c 69 73 74 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 | E.plist.to.aK...If.the.......... |
| 153e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 73 | ........................value.is |
| 15400 | 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 20 20 20 | .not.found,.aK.is.nil........... |
| 15420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 60 70 6c | ........................Uses.`pl |
| 15440 | 69 73 74 2d 67 65 74 27 20 74 6f 20 66 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 20 20 28 26 61 | ist-get'.to.fetch.values.....(&a |
| 15460 | 6c 69 73 74 20 6b 65 79 30 20 61 30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 | list.key0.a0.....keyN.aN).-.bind |
| 15480 | 20 76 61 6c 75 65 20 6d 61 70 70 65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 | .value.mapped.by.keyK.in.the.... |
| 154a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f | ..............................SO |
| 154c0 | 55 52 43 45 20 61 6c 69 73 74 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20 20 | URCE.alist.to.aK...If.the....... |
| 154e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 | ...........................value |
| 15500 | 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 20 | .is.not.found,.aK.is.nil........ |
| 15520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 | ...........................Uses. |
| 15540 | 60 61 73 73 6f 63 27 20 74 6f 20 66 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 20 20 28 26 68 61 | `assoc'.to.fetch.values.....(&ha |
| 15560 | 73 68 20 6b 65 79 30 20 61 30 20 2e 2e 2e 20 6b 65 79 4e 20 61 4e 29 20 2d 20 62 69 6e 64 20 76 | sh.key0.a0.....keyN.aN).-.bind.v |
| 15580 | 61 6c 75 65 20 6d 61 70 70 65 64 20 62 79 20 6b 65 79 4b 20 69 6e 20 74 68 65 0a 20 20 20 20 20 | alue.mapped.by.keyK.in.the...... |
| 155a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4f 55 52 43 | ...........................SOURC |
| 155c0 | 45 20 68 61 73 68 20 74 61 62 6c 65 20 74 6f 20 61 4b 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 | E.hash.table.to.aK...If.the..... |
| 155e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 | ............................valu |
| 15600 | 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 61 4b 20 69 73 20 6e 69 6c 2e 0a 20 20 20 20 20 | e.is.not.found,.aK.is.nil....... |
| 15620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65 73 20 | ...........................Uses. |
| 15640 | 60 67 65 74 68 61 73 68 27 20 74 6f 20 66 65 74 63 68 20 76 61 6c 75 65 73 2e 0a 0a 46 75 72 74 | `gethash'.to.fetch.values...Furt |
| 15660 | 68 65 72 2c 20 73 70 65 63 69 61 6c 20 6b 65 79 77 6f 72 64 20 26 6b 65 79 73 20 73 75 70 70 6f | her,.special.keyword.&keys.suppo |
| 15680 | 72 74 73 20 22 69 6e 6c 69 6e 65 22 20 6d 61 74 63 68 69 6e 67 20 6f 66 0a 70 6c 69 73 74 2d 6c | rts."inline".matching.of.plist-l |
| 156a0 | 69 6b 65 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 73 2c 20 73 69 6d 69 6c 61 72 6c 79 20 74 | ike.key-value.pairs,.similarly.t |
| 156c0 | 6f 20 26 6b 65 79 73 20 6b 65 79 77 6f 72 64 20 6f 66 0a 60 63 6c 2d 64 65 66 75 6e 27 2e 0a 0a | o.&keys.keyword.of.`cl-defun'... |
| 156e0 | 20 20 28 61 31 20 61 32 20 2e 2e 2e 20 61 4e 20 26 6b 65 79 73 20 6b 65 79 31 20 62 31 20 2e 2e | ..(a1.a2.....aN.&keys.key1.b1... |
| 15700 | 2e 20 6b 65 79 4e 20 62 4b 29 0a 0a 54 68 69 73 20 62 69 6e 64 73 20 4e 20 76 61 6c 75 65 73 20 | ..keyN.bK)..This.binds.N.values. |
| 15720 | 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 74 6f 20 61 31 20 2e 2e 2e 20 61 4e 2c 20 74 68 65 6e | from.the.list.to.a1.....aN,.then |
| 15740 | 20 69 6e 74 65 72 70 72 65 74 73 0a 74 68 65 20 63 64 72 20 61 73 20 61 20 70 6c 69 73 74 20 28 | .interprets.the.cdr.as.a.plist.( |
| 15760 | 73 65 65 20 6b 65 79 2f 76 61 6c 75 65 20 6d 61 74 63 68 69 6e 67 20 61 62 6f 76 65 29 2e 0a 0a | see.key/value.matching.above)... |
| 15780 | 41 20 73 68 6f 72 74 68 61 6e 64 20 6e 6f 74 61 74 69 6f 6e 20 66 6f 72 20 6b 76 2d 64 65 73 74 | A.shorthand.notation.for.kv-dest |
| 157a0 | 72 75 63 74 75 72 69 6e 67 20 65 78 69 73 74 73 20 77 68 69 63 68 20 61 6c 6c 6f 77 73 20 74 68 | ructuring.exists.which.allows.th |
| 157c0 | 65 0a 70 61 74 74 65 72 6e 73 20 62 65 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 6c 65 66 74 20 6f 75 | e.patterns.be.optionally.left.ou |
| 157e0 | 74 20 61 6e 64 20 64 65 72 69 76 65 64 20 66 72 6f 6d 20 74 68 65 20 6b 65 79 20 6e 61 6d 65 20 | t.and.derived.from.the.key.name. |
| 15800 | 69 6e 0a 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 61 73 68 69 6f 6e 3a 0a 0a 2d 20 61 20 6b | in.the.following.fashion:..-.a.k |
| 15820 | 65 79 20 3a 66 6f 6f 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 60 66 6f 6f 27 20 | ey.:foo.is.converted.into.`foo'. |
| 15840 | 70 61 74 74 65 72 6e 2c 0a 2d 20 61 20 6b 65 79 20 27 62 61 72 20 69 73 20 63 6f 6e 76 65 72 74 | pattern,.-.a.key.'bar.is.convert |
| 15860 | 65 64 20 69 6e 74 6f 20 60 62 61 72 27 20 70 61 74 74 65 72 6e 2c 0a 2d 20 61 20 6b 65 79 20 22 | ed.into.`bar'.pattern,.-.a.key." |
| 15880 | 62 61 7a 22 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 60 62 61 7a 27 20 70 61 74 | baz".is.converted.into.`baz'.pat |
| 158a0 | 74 65 72 6e 2e 0a 0a 54 68 61 74 20 69 73 2c 20 74 68 65 20 65 6e 74 69 72 65 20 76 61 6c 75 65 | tern...That.is,.the.entire.value |
| 158c0 | 20 75 6e 64 65 72 20 74 68 65 20 6b 65 79 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 64 | .under.the.key.is.bound.to.the.d |
| 158e0 | 65 72 69 76 65 64 0a 76 61 72 69 61 62 6c 65 20 77 69 74 68 6f 75 74 20 61 6e 79 20 66 75 72 74 | erived.variable.without.any.furt |
| 15900 | 68 65 72 20 64 65 73 74 72 75 63 74 75 72 69 6e 67 2e 0a 0a 54 68 69 73 20 69 73 20 70 6f 73 73 | her.destructuring...This.is.poss |
| 15920 | 69 62 6c 65 20 6f 6e 6c 79 20 77 68 65 6e 20 74 68 65 20 66 6f 72 6d 20 66 6f 6c 6c 6f 77 69 6e | ible.only.when.the.form.followin |
| 15940 | 67 20 74 68 65 20 6b 65 79 20 69 73 20 6e 6f 74 20 61 0a 76 61 6c 69 64 20 70 61 74 74 65 72 6e | g.the.key.is.not.a.valid.pattern |
| 15960 | 20 28 69 2e 65 2e 20 6e 6f 74 20 61 20 73 79 6d 62 6f 6c 2c 20 61 20 63 6f 6e 73 20 63 65 6c 6c | .(i.e..not.a.symbol,.a.cons.cell |
| 15980 | 20 6f 72 20 61 20 76 65 63 74 6f 72 29 2e 0a 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 6d 61 74 | .or.a.vector)..Otherwise.the.mat |
| 159a0 | 63 68 69 6e 67 20 70 72 6f 63 65 65 64 73 20 61 73 20 75 73 75 61 6c 20 61 6e 64 20 69 6e 20 63 | ching.proceeds.as.usual.and.in.c |
| 159c0 | 61 73 65 20 6f 66 20 61 6e 0a 69 6e 76 61 6c 69 64 20 73 70 65 63 20 66 61 69 6c 73 20 77 69 74 | ase.of.an.invalid.spec.fails.wit |
| 159e0 | 68 20 61 6e 20 65 72 72 6f 72 2e 0a 0a 54 68 75 73 20 74 68 65 20 70 61 74 74 65 72 6e 73 20 61 | h.an.error...Thus.the.patterns.a |
| 15a00 | 72 65 20 6e 6f 72 6d 61 6c 69 7a 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 0a 20 20 20 3b 3b | re.normalized.as.follows:.....;; |
| 15a20 | 20 64 65 72 69 76 65 20 61 6c 6c 20 74 68 65 20 6d 69 73 73 69 6e 67 20 70 61 74 74 65 72 6e 73 | .derive.all.the.missing.patterns |
| 15a40 | 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 27 62 61 72 20 22 62 61 7a 22 29 20 3d 3e 20 | ....(&plist.:foo.'bar."baz").=>. |
| 15a60 | 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 66 6f 6f 20 27 62 61 72 20 62 61 72 20 22 62 61 7a 22 20 | (&plist.:foo.foo.'bar.bar."baz". |
| 15a80 | 62 61 7a 29 0a 0a 20 20 20 3b 3b 20 77 65 20 63 61 6e 20 73 70 65 63 69 66 79 20 73 6f 6d 65 20 | baz).....;;.we.can.specify.some. |
| 15aa0 | 62 75 74 20 6e 6f 74 20 6f 74 68 65 72 73 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 27 | but.not.others....(&plist.:foo.' |
| 15ac0 | 62 61 72 20 65 78 70 6c 69 63 69 74 2d 62 61 72 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f | bar.explicit-bar).=>.(&plist.:fo |
| 15ae0 | 6f 20 66 6f 6f 20 27 62 61 72 20 65 78 70 6c 69 63 69 74 2d 62 61 72 29 0a 0a 20 20 20 3b 3b 20 | o.foo.'bar.explicit-bar).....;;. |
| 15b00 | 6e 6f 74 68 69 6e 67 20 68 61 70 70 65 6e 73 2c 20 77 65 20 73 74 6f 72 65 20 3a 66 6f 6f 20 69 | nothing.happens,.we.store.:foo.i |
| 15b20 | 6e 20 78 0a 20 20 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 78 29 20 3d 3e 20 28 26 70 6c 69 73 | n.x....(&plist.:foo.x).=>.(&plis |
| 15b40 | 74 20 3a 66 6f 6f 20 78 29 0a 0a 20 20 20 3b 3b 20 6e 6f 74 68 69 6e 67 20 68 61 70 70 65 6e 73 | t.:foo.x).....;;.nothing.happens |
| 15b60 | 2c 20 77 65 20 6d 61 74 63 68 20 72 65 63 75 72 73 69 76 65 6c 79 0a 20 20 20 28 26 70 6c 69 73 | ,.we.match.recursively....(&plis |
| 15b80 | 74 20 3a 66 6f 6f 20 28 61 20 62 20 63 29 29 20 3d 3e 20 28 26 70 6c 69 73 74 20 3a 66 6f 6f 20 | t.:foo.(a.b.c)).=>.(&plist.:foo. |
| 15ba0 | 28 61 20 62 20 63 29 29 0a 0a 59 6f 75 20 63 61 6e 20 6e 61 6d 65 20 74 68 65 20 73 6f 75 72 63 | (a.b.c))..You.can.name.the.sourc |
| 15bc0 | 65 20 75 73 69 6e 67 20 74 68 65 20 73 79 6e 74 61 78 20 53 59 4d 42 4f 4c 20 26 61 73 20 50 41 | e.using.the.syntax.SYMBOL.&as.PA |
| 15be0 | 54 54 45 52 4e 2e 0a 54 68 69 73 20 73 79 6e 74 61 78 20 77 6f 72 6b 73 20 77 69 74 68 20 6c 69 | TTERN..This.syntax.works.with.li |
| 15c00 | 73 74 73 20 28 70 72 6f 70 65 72 20 6f 72 20 69 6d 70 72 6f 70 65 72 29 2c 20 76 65 63 74 6f 72 | sts.(proper.or.improper),.vector |
| 15c20 | 73 20 61 6e 64 0a 61 6c 6c 20 74 79 70 65 73 20 6f 66 20 6d 61 70 73 2e 0a 0a 20 20 28 6c 69 73 | s.and.all.types.of.maps.....(lis |
| 15c40 | 74 20 26 61 73 20 61 20 62 20 63 29 20 28 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 | t.&as.a.b.c).(list.1.2.3)..binds |
| 15c60 | 20 41 20 74 6f 20 31 2c 20 42 20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 61 6e 64 20 4c 49 53 54 | .A.to.1,.B.to.2,.C.to.3.and.LIST |
| 15c80 | 20 74 6f 20 28 31 20 32 20 33 29 2e 0a 0a 53 69 6d 69 6c 61 72 6c 79 3a 0a 0a 20 20 28 62 6f 75 | .to.(1.2.3)...Similarly:....(bou |
| 15ca0 | 6e 64 73 20 26 61 73 20 62 65 67 20 2e 20 65 6e 64 29 20 28 63 6f 6e 73 20 31 20 32 29 0a 0a 62 | nds.&as.beg...end).(cons.1.2)..b |
| 15cc0 | 69 6e 64 73 20 42 45 47 20 74 6f 20 31 2c 20 45 4e 44 20 74 6f 20 32 20 61 6e 64 20 42 4f 55 4e | inds.BEG.to.1,.END.to.2.and.BOUN |
| 15ce0 | 44 53 20 74 6f 20 28 31 20 2e 20 32 29 2e 0a 0a 20 20 28 69 74 65 6d 73 20 26 61 73 20 66 69 72 | DS.to.(1...2).....(items.&as.fir |
| 15d00 | 73 74 20 2e 20 72 65 73 74 29 20 28 6c 69 73 74 20 31 20 32 20 33 29 0a 0a 62 69 6e 64 73 20 46 | st...rest).(list.1.2.3)..binds.F |
| 15d20 | 49 52 53 54 20 74 6f 20 31 2c 20 52 45 53 54 20 74 6f 20 28 32 20 33 29 20 61 6e 64 20 49 54 45 | IRST.to.1,.REST.to.(2.3).and.ITE |
| 15d40 | 4d 53 20 74 6f 20 28 31 20 32 20 33 29 0a 0a 20 20 5b 76 65 63 74 20 26 61 73 20 5f 20 62 20 63 | MS.to.(1.2.3)....[vect.&as._.b.c |
| 15d60 | 5d 20 5b 31 20 32 20 33 5d 0a 0a 62 69 6e 64 73 20 42 20 74 6f 20 32 2c 20 43 20 74 6f 20 33 20 | ].[1.2.3]..binds.B.to.2,.C.to.3. |
| 15d80 | 61 6e 64 20 56 45 43 54 20 74 6f 20 5b 31 20 32 20 33 5d 20 28 5f 20 61 76 6f 69 64 73 20 62 69 | and.VECT.to.[1.2.3].(_.avoids.bi |
| 15da0 | 6e 64 69 6e 67 20 61 73 20 75 73 75 61 6c 29 2e 0a 0a 20 20 28 70 6c 69 73 74 20 26 61 73 20 26 | nding.as.usual).....(plist.&as.& |
| 15dc0 | 70 6c 69 73 74 20 3a 62 20 62 29 20 28 6c 69 73 74 20 3a 61 20 31 20 3a 62 20 32 20 3a 63 20 33 | plist.:b.b).(list.:a.1.:b.2.:c.3 |
| 15de0 | 29 0a 0a 62 69 6e 64 73 20 42 20 74 6f 20 32 20 61 6e 64 20 50 4c 49 53 54 20 74 6f 20 28 3a 61 | )..binds.B.to.2.and.PLIST.to.(:a |
| 15e00 | 20 31 20 3a 62 20 32 20 3a 63 20 33 29 2e 20 20 53 61 6d 65 20 66 6f 72 20 26 61 6c 69 73 74 20 | .1.:b.2.:c.3)...Same.for.&alist. |
| 15e20 | 61 6e 64 20 26 68 61 73 68 2e 0a 0a 54 68 69 73 20 69 73 20 65 73 70 65 63 69 61 6c 6c 79 20 75 | and.&hash...This.is.especially.u |
| 15e40 | 73 65 66 75 6c 20 77 68 65 6e 20 77 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 | seful.when.we.want.to.capture.th |
| 15e60 | 65 20 72 65 73 75 6c 74 20 6f 66 20 61 0a 63 6f 6d 70 75 74 61 74 69 6f 6e 20 61 6e 64 20 64 65 | e.result.of.a.computation.and.de |
| 15e80 | 73 74 72 75 63 74 75 72 65 20 61 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 2e 20 20 43 6f 6e | structure.at.the.same.time...Con |
| 15ea0 | 73 69 64 65 72 20 74 68 65 0a 66 6f 72 6d 20 28 66 75 6e 63 74 69 6f 6e 2d 72 65 74 75 72 6e 69 | sider.the.form.(function-returni |
| 15ec0 | 6e 67 2d 63 6f 6d 70 6c 65 78 2d 73 74 72 75 63 74 75 72 65 29 20 72 65 74 75 72 6e 69 6e 67 20 | ng-complex-structure).returning. |
| 15ee0 | 61 20 6c 69 73 74 20 6f 66 0a 74 77 6f 20 76 65 63 74 6f 72 73 20 77 69 74 68 20 74 77 6f 20 69 | a.list.of.two.vectors.with.two.i |
| 15f00 | 74 65 6d 73 20 65 61 63 68 2e 20 20 57 65 20 77 61 6e 74 20 74 6f 20 63 61 70 74 75 72 65 20 74 | tems.each...We.want.to.capture.t |
| 15f20 | 68 69 73 20 65 6e 74 69 72 65 0a 72 65 73 75 6c 74 20 61 6e 64 20 70 61 73 73 20 69 74 20 74 6f | his.entire.result.and.pass.it.to |
| 15f40 | 20 61 6e 6f 74 68 65 72 20 63 6f 6d 70 75 74 61 74 69 6f 6e 2c 20 62 75 74 20 61 74 20 74 68 65 | .another.computation,.but.at.the |
| 15f60 | 20 73 61 6d 65 20 74 69 6d 65 0a 77 65 20 77 61 6e 74 20 74 6f 20 67 65 74 20 74 68 65 20 73 65 | .same.time.we.want.to.get.the.se |
| 15f80 | 63 6f 6e 64 20 69 74 65 6d 20 66 72 6f 6d 20 65 61 63 68 20 76 65 63 74 6f 72 2e 20 20 57 65 20 | cond.item.from.each.vector...We. |
| 15fa0 | 63 61 6e 20 61 63 68 69 65 76 65 0a 69 74 20 77 69 74 68 20 70 61 74 74 65 72 6e 0a 0a 20 20 28 | can.achieve.it.with.pattern....( |
| 15fc0 | 72 65 73 75 6c 74 20 26 61 73 20 5b 5f 20 61 5d 20 5b 5f 20 62 5d 29 20 28 66 75 6e 63 74 69 6f | result.&as.[_.a].[_.b]).(functio |
| 15fe0 | 6e 2d 72 65 74 75 72 6e 69 6e 67 2d 63 6f 6d 70 6c 65 78 2d 73 74 72 75 63 74 75 72 65 29 0a 0a | n-returning-complex-structure).. |
| 16000 | 4e 6f 74 65 3a 20 43 6c 6f 6a 75 72 65 20 70 72 6f 67 72 61 6d 6d 65 72 73 20 6d 61 79 20 6b 6e | Note:.Clojure.programmers.may.kn |
| 16020 | 6f 77 20 74 68 69 73 20 66 65 61 74 75 72 65 20 61 73 20 74 68 65 20 22 3a 61 73 0a 62 69 6e 64 | ow.this.feature.as.the.":as.bind |
| 16040 | 69 6e 67 22 2e 20 20 54 68 65 20 64 69 66 66 65 72 65 6e 63 65 20 69 73 20 74 68 61 74 20 77 65 | ing"...The.difference.is.that.we |
| 16060 | 20 70 75 74 20 74 68 65 20 26 61 73 20 61 74 20 74 68 65 20 66 72 6f 6e 74 0a 62 65 63 61 75 73 | .put.the.&as.at.the.front.becaus |
| 16080 | 65 20 77 65 20 6e 65 65 64 20 74 6f 20 73 75 70 70 6f 72 74 20 69 6d 70 72 6f 70 65 72 20 6c 69 | e.we.need.to.support.improper.li |
| 160a0 | 73 74 20 62 69 6e 64 69 6e 67 2e 0a 0a 28 66 6e 20 56 41 52 4c 49 53 54 20 26 72 65 73 74 20 42 | st.binding...(fn.VARLIST.&rest.B |
| 160c0 | 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 | ODY)..(defalias.'-let.'(macro... |
| 160e0 | 23 5b 33 38 35 20 22 5c 33 30 30 02 21 5c 32 30 33 13 00 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 | #[385."\300.!\203..\301\302.\303 |
| 16100 | 48 04 5c 33 30 34 48 5c 22 02 42 42 5c 32 30 37 5c 33 30 35 02 21 5c 33 30 36 01 5c 33 30 33 5c | H.\304H\".BB\207\305.!\306.\303\ |
| 16120 | 33 30 36 5c 32 31 31 03 5c 32 30 33 3f 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 | 306\211.\203?..\211A\262.\242\26 |
| 16140 | 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 30 37 5c 33 31 30 5c 33 31 31 03 5c 22 21 02 | 2..\262..T\262.\307\310\311.\"!. |
| 16160 | 41 40 44 05 42 5c 32 36 32 05 5c 32 30 32 1b 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 | A@D.B\262.\202..\266.\211\237\26 |
| 16180 | 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... |
| 161a0 | 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 |
| 161c0 | 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 |
| 161e0 | 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 |
| 16200 | 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 |
| 16220 | 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.- |
| 16240 | 6c 65 74 2a 5d 20 31 32 20 28 23 24 20 2e 20 38 34 36 32 36 29 5d 29 29 0a 28 62 79 74 65 2d 63 | let*].12.(#$...84626)])).(byte-c |
| 16260 | 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 |
| 16280 | 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 |
| 162a0 | 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 |
| 162c0 | 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 |
| 162e0 | 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 |
| 16300 | 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) |
| 16320 | 0a 23 40 34 32 37 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 | .#@427.Return.a.lambda.which.des |
| 16340 | 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 |
| 16360 | 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. |
| 16380 | 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 |
| 163a0 | 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 |
| 163c0 | 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 |
| 163e0 | 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 |
| 16400 | 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 |
| 16420 | 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 |
| 16440 | 6f 20 6e 6f 72 6d 61 6c 20 60 6c 61 6d 62 64 61 27 2c 20 73 6f 20 74 68 65 72 65 20 69 73 20 6e | o.normal.`lambda',.so.there.is.n |
| 16460 | 6f 20 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 | o.performance.penalty...See.`-le |
| 16480 | 74 27 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 65 73 74 | t'.for.a.description.of.the.dest |
| 164a0 | 72 75 63 74 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 | ructuring.mechanism...(fn.MATCH- |
| 164c0 | 46 4f 52 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 6c 61 | FORM.&rest.BODY)..(defalias.'-la |
| 164e0 | 6d 62 64 61 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 01 3c 5c 32 30 34 5c 66 00 5c | mbda.'(macro...#[385.".<\204\f.\ |
| 16500 | 33 30 30 5c 33 30 31 5c 33 30 32 04 44 5c 22 5c 32 30 37 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 | 300\301\302.D\"\207\303\304.\"\2 |
| 16520 | 30 33 19 00 5c 33 30 35 02 02 42 42 5c 32 30 37 5c 33 30 36 02 5c 33 30 37 5c 33 30 36 5c 32 31 | 03..\305..BB\207\306.\307\306\21 |
| 16540 | 31 03 5c 32 30 33 40 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 | 1.\203@..\211A\262.\242\262..\26 |
| 16560 | 32 01 02 54 5c 32 36 32 03 01 5c 33 31 30 5c 33 31 31 5c 33 31 32 04 5c 22 21 44 05 42 5c 32 36 | 2..T\262..\310\311\312.\"!D.B\26 |
| 16580 | 32 05 5c 32 30 32 1e 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 33 30 35 5c 33 | 2.\202..\266.\211\237\262.\305\3 |
| 165a0 | 31 33 5c 33 31 34 03 5c 22 5c 33 31 35 03 05 42 42 45 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 | 13\314.\"\315..BBE\207".[signal. |
| 165c0 | 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 70 20 2d 61 6c 6c 5c 3f | wrong-type-argument.listp.-all\? |
| 165e0 | 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 6f | .symbolp.lambda.nil.0.make-symbo |
| 16600 | 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 63 61 64 72 20 2d | l.format."input%d".mapcar.cadr.- |
| 16620 | 6c 65 74 2a 5d 20 31 32 20 28 23 24 20 2e 20 39 30 39 31 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 | let*].12.(#$...90919)])).(byte-c |
| 16640 | 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 |
| 16660 | 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 20 5b 66 | 04\305#\306\301\307\310#\207".[f |
| 16680 | 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 67 2d 65 | unction-put.-lambda.doc-string-e |
| 166a0 | 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 75 6e 20 | lt.2.lisp-indent-function.defun. |
| 166c0 | 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 20 73 65 | put.edebug-form-spec.(&define.se |
| 166e0 | 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 6f 6e 61 | xp.[&optional.stringp].[&optiona |
| 16700 | 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 5d 20 64 | l.("interactive".interactive)].d |
| 16720 | 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 4d 41 54 | ef-body)].6).#@530.Bind.each.MAT |
| 16740 | 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 41 4c 2e | CH-FORM.to.the.value.of.its.VAL. |
| 16760 | 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 20 64 6f | ..MATCH-FORM.destructuring.is.do |
| 16780 | 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 60 2d 6c | ne.according.to.the.rules.of.`-l |
| 167a0 | 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 6f 20 62 | et'...This.macro.allows.you.to.b |
| 167c0 | 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 74 72 75 | ind.multiple.variables.by.destru |
| 167e0 | 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 6d 70 6c | cturing.the.value,.so.for.exampl |
| 16800 | 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 20 28 26 | e:....(-setq.(a.b).x..........(& |
| 16820 | 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 6f 75 67 | plist.:c.c).plist)..expands.roug |
| 16840 | 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 20 63 6f | hly.speaking.to.the.following.co |
| 16860 | 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 20 62 20 | de....(setq.a.(car.x).........b. |
| 16880 | 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 20 70 6c | (cadr.x).........c.(plist-get.pl |
| 168a0 | 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 6c 79 20 | ist.:c))..Care.is.taken.to.only. |
| 168c0 | 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 74 20 69 | evaluate.each.VAL.once.so.that.i |
| 168e0 | 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 73 20 69 | n.case.of.multiple.assignments.i |
| 16900 | 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 69 64 65 | t.does.not.cause.unexpected.side |
| 16920 | 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 4c 5d 2e | .effects...(fn.[MATCH-FORM.VAL]. |
| 16940 | 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 20 2e 20 | ..)..(defalias.'-setq.'(macro... |
| 16960 | 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 13 00 5c 33 | #[128."\300.G\301\"\302U\203..\3 |
| 16980 | 30 33 5c 33 30 34 5c 33 30 35 03 47 54 44 5c 22 5c 32 31 30 5c 33 30 36 5c 33 30 37 5c 33 31 30 | 03\304\305.GTD\"\210\306\307\310 |
| 169a0 | 5c 33 30 31 04 5c 22 5c 22 5c 33 31 31 5c 33 31 32 02 5c 22 5c 33 31 33 5c 33 30 36 5c 33 31 34 | \301.\"\"\311\312.\"\313\306\314 |
| 169c0 | 03 5c 22 5c 33 31 35 5c 33 31 36 5c 33 30 32 06 06 5c 22 5c 33 31 37 5c 33 32 30 5c 33 30 36 5c | .\"\315\316\302..\"\317\320\306\ |
| 169e0 | 33 32 31 06 08 5c 22 21 42 45 5c 33 31 37 5c 33 32 30 05 21 42 46 5c 32 30 37 22 20 5b 6d 6f 64 | 321..\"!BE\317\320.!BF\207".[mod |
| 16a00 | 20 32 20 31 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 6e 75 6d 62 65 72 2d 6f 66 2d 61 72 67 75 | .2.1.signal.wrong-number-of-argu |
| 16a20 | 6d 65 6e 74 73 20 2d 73 65 74 71 20 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 40 02 41 | ments.-setq.-map.#[257."\300.@.A |
| 16a40 | 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 22 5c 6e 5c 6e 28 66 | @\"\207".[dash--match].4."\n\n(f |
| 16a60 | 6e 20 58 29 22 5d 20 2d 70 61 72 74 69 74 69 6f 6e 20 2d 6d 61 70 63 61 74 20 23 5b 32 35 37 20 | n.X)"].-partition.-mapcat.#[257. |
| 16a80 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 33 30 32 5c 32 31 31 03 5c 32 30 33 2c | "\300\301\302.\303\302\211.\203, |
| 16aa0 | 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 | ..\211A\262.\242\262..\262..T\26 |
| 16ac0 | 32 03 5c 33 30 34 5c 33 30 35 5c 33 30 36 04 40 21 5c 22 5c 32 30 34 07 00 01 05 42 5c 32 36 32 | 2.\304\305\306.@!\"\204....B\262 |
| 16ae0 | 05 5c 32 30 32 07 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 22 5c 32 30 37 22 | .\202..\266.\211\237\262.\"\207" |
| 16b00 | 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 33 30 31 5c | .[-map.#[257."\211@\211\300\301\ |
| 16b20 | 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 6f 6c 20 22 | 302.!\303Q!D\207".[make-symbol." |
| 16b40 | 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 20 22 2d 2d | --dash-binding-".symbol-name."-- |
| 16b60 | 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 20 30 20 73 | "].7."\n\n(fn.BINDING)"].nil.0.s |
| 16b80 | 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 61 6d 65 5d | tring-prefix-p."--".symbol-name] |
| 16ba0 | 20 31 32 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 20 63 61 64 | .12."\n\n(fn.BINDINGS)"].let.cad |
| 16bc0 | 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 74 65 6e 20 | r.let*.-flatten-n.setq.-flatten. |
| 16be0 | 72 65 76 65 72 73 65 5d 20 31 32 20 28 23 24 20 2e 20 39 31 39 35 35 29 5d 29 29 0a 28 62 79 74 | reverse].12.(#$...91955)])).(byt |
| 16c00 | 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 |
| 16c20 | 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 20 2d 73 65 | 4\301\305\306#\300\207".[put.-se |
| 16c40 | 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 65 78 70 20 | tq.edebug-form-spec.(&rest.sexp. |
| 16c60 | 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 6e 74 2d 66 | form).function-put.lisp-indent-f |
| 16c80 | 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 41 4c 53 20 | unction.1].4).#@320.If.all.VALS. |
| 16ca0 | 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 74 6f 20 74 | evaluate.to.true,.bind.them.to.t |
| 16cc0 | 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 64 6f 20 54 | heir.corresponding.VARS.and.do.T |
| 16ce0 | 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 2d 56 41 4c | HEN,.otherwise.do.ELSE..VARS-VAL |
| 16d00 | 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 41 4c 29 20 | S.should.be.a.list.of.(VAR.VAL). |
| 16d20 | 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 |
| 16d40 | 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 |
| 16d60 | 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 |
| 16d80 | 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 |
| 16da0 | 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 |
| 16dc0 | 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 73 20 27 2d | S.THEN.&rest.ELSE)..(defalias.'- |
| 16de0 | 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 30 30 5c 33 | if-let*.'(macro...#[642.".\300\3 |
| 16e00 | 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 08 5c 22 5c 22 21 5c 32 31 31 47 5c 33 30 35 5c 32 | 01\302\303\304..\"\"!\211G\305\2 |
| 16e20 | 31 31 02 5c 33 30 36 56 5c 32 30 33 3c 00 02 53 5c 32 36 32 03 02 5c 32 36 32 01 03 03 48 5c 32 | 11.\306V\203<..S\262..\262...H\2 |
| 16e40 | 36 32 02 01 40 02 41 40 5c 33 30 37 02 02 44 43 5c 33 31 30 04 06 5c 6e 06 5c 66 42 42 42 45 5c | 62..@.A@\307..DC\310..\n.\fBBBE\ |
| 16e60 | 32 36 36 5c 32 30 32 5c 32 36 32 05 5c 32 30 32 0f 00 5c 32 36 36 04 5c 32 31 31 5c 32 30 37 22 | 266\202\262.\202..\266.\211\207" |
| 16e80 | 20 5b 76 63 6f 6e 63 61 74 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b | .[vconcat.apply.append.mapcar.#[ |
| 16ea0 | 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 68 2d 2d 6d 61 74 | 257."\300.@.A@\"\207".[dash--mat |
| 16ec0 | 63 68 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 29 22 5d 20 6e 69 6c 20 30 20 6c 65 74 20 69 | ch].4."\n\n(fn.IT)"].nil.0.let.i |
| 16ee0 | 66 5d 20 31 36 20 28 23 24 20 2e 20 39 33 33 33 32 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 | f].16.(#$...93332)])).(byte-code |
| 16f00 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c | ."\300\301\302\303#\210\304\301\ |
| 16f20 | 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 69 66 2d 6c 65 74 2a 20 | 305\306#\300\207".[put.-if-let*. |
| 16f40 | 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 65 78 70 20 66 | edebug-form-spec.((&rest.(sexp.f |
| 16f60 | 6f 72 6d 29 29 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 | orm)).form.body).function-put.li |
| 16f80 | 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 5d 20 34 29 0a 23 40 31 35 33 20 49 | sp-indent-function.2].4).#@153.I |
| 16fa0 | 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 | f.VAL.evaluates.to.non-nil,.bind |
| 16fc0 | 20 69 74 20 74 6f 20 56 41 52 20 61 6e 64 20 64 6f 20 54 48 45 4e 2c 0a 6f 74 68 65 72 77 69 73 | .it.to.VAR.and.do.THEN,.otherwis |
| 16fe0 | 65 20 64 6f 20 45 4c 53 45 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e | e.do.ELSE...Note:.binding.is.don |
| 17000 | 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52 | e.according.to.`-let'...(fn.(VAR |
| 17020 | 20 56 41 4c 29 20 54 48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 | .VAL).THEN.&rest.ELSE)..(defalia |
| 17040 | 73 20 27 2d 69 66 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 | s.'-if-let.'(macro...#[642."\300 |
| 17060 | 03 43 03 03 42 42 42 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 5d 20 37 20 28 23 24 20 2e 20 | .C..BBB\207".[-if-let*].7.(#$... |
| 17080 | 39 34 31 31 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 | 94111)])).(byte-code."\300\301\3 |
| 170a0 | 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 30 | 02\303#\210\304\301\305\306#\300 |
| 170c0 | 5c 32 30 37 22 20 5b 70 75 74 20 2d 69 66 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | \207".[put.-if-let.edebug-form-s |
| 170e0 | 70 65 63 20 28 28 73 65 78 70 20 66 6f 72 6d 29 20 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 | pec.((sexp.form).form.body).func |
| 17100 | 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] |
| 17120 | 20 34 29 0a 23 40 31 31 31 20 49 66 20 56 41 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f | .4).#@111.If.VAL.evaluates.to.no |
| 17140 | 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 20 61 6e | n-nil,.bind.it.to.symbol.`it'.an |
| 17160 | 64 20 64 6f 20 54 48 45 4e 2c 0a 6f 74 68 65 72 77 69 73 65 20 64 6f 20 45 4c 53 45 2e 0a 0a 28 | d.do.THEN,.otherwise.do.ELSE...( |
| 17180 | 66 6e 20 56 41 4c 20 54 48 45 4e 20 26 72 65 73 74 20 45 4c 53 45 29 1f 0a 28 64 65 66 61 6c 69 | fn.VAL.THEN.&rest.ELSE)..(defali |
| 171a0 | 61 73 20 27 2d 2d 69 66 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 | as.'--if-let.'(macro...#[642."\3 |
| 171c0 | 30 30 5c 33 30 31 04 44 03 03 42 42 42 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 20 69 74 5d 20 | 00\301.D..BBB\207".[-if-let.it]. |
| 171e0 | 37 20 28 23 24 20 2e 20 39 34 35 30 36 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | 7.(#$...94506)])).(byte-code."\3 |
| 17200 | 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c | 00\301\302\303#\210\304\301\305\ |
| 17220 | 33 30 36 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 69 66 2d 6c 65 74 20 65 64 65 62 | 306#\300\207".[put.--if-let.edeb |
| 17240 | 75 67 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 | ug-form-spec.(form.form.body).fu |
| 17260 | 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 | nction-put.lisp-indent-function. |
| 17280 | 32 5d 20 34 29 0a 23 40 33 30 31 20 49 66 20 61 6c 6c 20 56 41 4c 53 20 65 76 61 6c 75 61 74 65 | 2].4).#@301.If.all.VALS.evaluate |
| 172a0 | 20 74 6f 20 74 72 75 65 2c 20 62 69 6e 64 20 74 68 65 6d 20 74 6f 20 74 68 65 69 72 20 63 6f 72 | .to.true,.bind.them.to.their.cor |
| 172c0 | 72 65 73 70 6f 6e 64 69 6e 67 0a 56 41 52 53 20 61 6e 64 20 65 78 65 63 75 74 65 20 62 6f 64 79 | responding.VARS.and.execute.body |
| 172e0 | 2e 20 56 41 52 53 2d 56 41 4c 53 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 | ..VARS-VALS.should.be.a.list.of. |
| 17300 | 28 56 41 52 20 56 41 4c 29 0a 70 61 69 72 73 2e 0a 0a 4e 6f 74 65 3a 20 62 69 6e 64 69 6e 67 20 | (VAR.VAL).pairs...Note:.binding. |
| 17320 | 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c 65 74 2a 27 2e 20 20 56 | is.done.according.to.`-let*'...V |
| 17340 | 41 4c 53 20 61 72 65 20 65 76 61 6c 75 61 74 65 64 0a 73 65 71 75 65 6e 74 69 61 6c 6c 79 2c 20 | ALS.are.evaluated.sequentially,. |
| 17360 | 61 6e 64 20 65 76 61 6c 75 61 74 69 6f 6e 20 73 74 6f 70 73 20 61 66 74 65 72 20 74 68 65 20 66 | and.evaluation.stops.after.the.f |
| 17380 | 69 72 73 74 20 6e 69 6c 20 56 41 4c 20 69 73 0a 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 0a 28 66 | irst.nil.VAL.is.encountered...(f |
| 173a0 | 6e 20 56 41 52 53 2d 56 41 4c 53 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 | n.VARS-VALS.&rest.BODY)..(defali |
| 173c0 | 61 73 20 27 2d 77 68 65 6e 2d 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 | as.'-when-let*.'(macro...#[385." |
| 173e0 | 5c 33 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 74 2a 20 70 72 6f 67 | \300.\301.BE\207".[-if-let*.prog |
| 17400 | 6e 5d 20 36 20 28 23 24 20 2e 20 39 34 38 36 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | n].6.(#$...94860)])).(byte-code. |
| 17420 | 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 | "\300\301\302\303#\210\304\301\3 |
| 17440 | 30 35 5c 33 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 2a | 05\306#\300\207".[put.-when-let* |
| 17460 | 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 26 72 65 73 74 20 28 73 65 78 70 20 | .edebug-form-spec.((&rest.(sexp. |
| 17480 | 66 6f 72 6d 29 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 | form)).body).function-put.lisp-i |
| 174a0 | 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 33 34 20 49 66 20 56 41 | ndent-function.1].4).#@134.If.VA |
| 174c0 | 4c 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 | L.evaluates.to.non-nil,.bind.it. |
| 174e0 | 74 6f 20 56 41 52 20 61 6e 64 20 65 78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 4e 6f 74 65 3a 20 | to.VAR.and.execute.body...Note:. |
| 17500 | 62 69 6e 64 69 6e 67 20 69 73 20 64 6f 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 2d 6c | binding.is.done.according.to.`-l |
| 17520 | 65 74 27 2e 0a 0a 28 66 6e 20 28 56 41 52 20 56 41 4c 29 20 26 72 65 73 74 20 42 4f 44 59 29 1f | et'...(fn.(VAR.VAL).&rest.BODY). |
| 17540 | 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 77 68 65 6e 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 | .(defalias.'-when-let.'(macro... |
| 17560 | 23 5b 33 38 35 20 22 5c 33 30 30 02 5c 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 69 66 2d 6c 65 | #[385."\300.\301.BE\207".[-if-le |
| 17580 | 74 20 70 72 6f 67 6e 5d 20 36 20 28 23 24 20 2e 20 39 35 34 31 39 29 5d 29 29 0a 28 62 79 74 65 | t.progn].6.(#$...95419)])).(byte |
| 175a0 | 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 | -code."\300\301\302\303#\210\304 |
| 175c0 | 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 20 2d 77 68 65 | \301\305\306#\300\207".[put.-whe |
| 175e0 | 6e 2d 6c 65 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 28 73 65 78 70 20 66 6f | n-let.edebug-form-spec.((sexp.fo |
| 17600 | 72 6d 29 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 | rm).body).function-put.lisp-inde |
| 17620 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 39 32 20 49 66 20 56 41 4c 20 65 76 | nt-function.1].4).#@92.If.VAL.ev |
| 17640 | 61 6c 75 61 74 65 73 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 2c 20 62 69 6e 64 20 69 74 20 74 6f 20 73 | aluates.to.non-nil,.bind.it.to.s |
| 17660 | 79 6d 62 6f 6c 20 60 69 74 27 20 61 6e 64 0a 65 78 65 63 75 74 65 20 62 6f 64 79 2e 0a 0a 28 66 | ymbol.`it'.and.execute.body...(f |
| 17680 | 6e 20 56 41 4c 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d | n.VAL.&rest.BODY)..(defalias.'-- |
| 176a0 | 77 68 65 6e 2d 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 02 5c | when-let.'(macro...#[385."\300.\ |
| 176c0 | 33 30 31 03 42 45 5c 32 30 37 22 20 5b 2d 2d 69 66 2d 6c 65 74 20 70 72 6f 67 6e 5d 20 36 20 28 | 301.BE\207".[--if-let.progn].6.( |
| 176e0 | 23 24 20 2e 20 39 35 37 39 39 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | #$...95799)])).(byte-code."\300\ |
| 17700 | 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 | 301\302\303#\210\304\301\305\306 |
| 17720 | 23 5c 33 30 30 5c 32 30 37 22 20 5b 70 75 74 20 2d 2d 77 68 65 6e 2d 6c 65 74 20 65 64 65 62 75 | #\300\207".[put.--when-let.edebu |
| 17740 | 67 2d 66 6f 72 6d 2d 73 70 65 63 20 28 66 6f 72 6d 20 62 6f 64 79 29 20 66 75 6e 63 74 69 6f 6e | g-form-spec.(form.body).function |
| 17760 | 2d 70 75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a | -put.lisp-indent-function.1].4). |
| 17780 | 23 40 31 39 31 20 54 65 73 74 73 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 75 73 65 20 74 68 69 | #@191.Tests.for.equality.use.thi |
| 177a0 | 73 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 60 65 71 75 61 6c 27 20 69 66 20 74 68 69 73 20 69 73 | s.function.or.`equal'.if.this.is |
| 177c0 | 20 6e 69 6c 2e 0a 49 74 20 73 68 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 73 65 74 20 75 73 69 6e | .nil..It.should.only.be.set.usin |
| 177e0 | 67 20 64 79 6e 61 6d 69 63 20 73 63 6f 70 65 20 77 69 74 68 20 61 20 6c 65 74 2c 20 6c 69 6b 65 | g.dynamic.scope.with.a.let,.like |
| 17800 | 3a 0a 0a 20 20 28 6c 65 74 20 28 28 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 23 5c 3d 27 3d 29 29 20 | :....(let.((-compare-fn.#\='=)). |
| 17820 | 28 2d 75 6e 69 6f 6e 20 6e 75 6d 62 65 72 73 31 20 6e 75 6d 62 65 72 73 32 20 6e 75 6d 62 65 72 | (-union.numbers1.numbers2.number |
| 17840 | 73 33 29 1f 0a 28 64 65 66 76 61 72 20 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 6e 69 6c 20 28 23 24 | s3)..(defvar.-compare-fn.nil.(#$ |
| 17860 | 20 2e 20 39 36 31 33 34 29 29 0a 23 40 31 36 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 | ...96134)).#@160.Return.a.new.li |
| 17880 | 73 74 20 77 69 74 68 20 61 6c 6c 20 64 75 70 6c 69 63 61 74 65 73 20 72 65 6d 6f 76 65 64 2e 0a | st.with.all.duplicates.removed.. |
| 178a0 | 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 20 69 73 20 64 6f 6e 65 20 77 69 | The.test.for.equality.is.done.wi |
| 178c0 | 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e | th.`equal',.or.with.`-compare-fn |
| 178e0 | 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 75 | '.if.that's.non-nil...Alias:.`-u |
| 17900 | 6e 69 71 27 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 64 69 73 | niq'..(fn.LIST)..(defalias.'-dis |
| 17920 | 74 69 6e 63 74 20 23 5b 32 35 37 20 22 5c 32 31 31 47 5c 32 31 31 5c 33 30 31 56 5c 32 30 35 18 | tinct.#[257."\211G\211\301V\205. |
| 17940 | 00 08 5c 33 30 32 3e 5c 32 30 35 18 00 5c 33 30 33 5c 33 30 34 08 5c 32 30 36 15 00 5c 33 30 35 | ..\302>\205..\303\304.\206..\305 |
| 17960 | 5c 33 30 36 04 24 5c 32 31 31 5c 32 30 33 56 00 5c 33 30 37 03 5c 33 31 30 5c 33 30 37 5c 32 31 | \306.$\211\203V.\307.\310\307\21 |
| 17980 | 31 03 5c 32 30 33 4d 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 | 1.\203M..\211A\262.\242\262..\26 |
| 179a0 | 32 01 02 54 5c 32 36 32 03 5c 33 31 31 02 06 07 5c 22 5c 32 30 34 21 00 5c 33 31 32 02 5c 33 31 | 2..T\262.\311...\"\204!.\312.\31 |
| 179c0 | 33 06 08 23 5c 32 30 33 21 00 01 05 42 5c 32 36 32 05 5c 32 30 32 21 00 5c 32 36 36 04 5c 32 31 | 3..#\203!...B\262.\202!.\266.\21 |
| 179e0 | 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 32 5c 32 30 30 00 02 5c 33 31 30 5c 33 30 37 5c 32 31 31 | 1\237\262.\202\200..\310\307\211 |
| 17a00 | 03 5c 32 30 33 7c 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 | .\203|..\211A\262.\242\262..\262 |
| 17a20 | 01 02 54 5c 32 36 32 03 5c 33 31 34 05 03 5c 22 5c 32 30 34 5a 00 01 05 42 5c 32 36 32 05 5c 32 | ..T\262.\314..\"\204Z...B\262.\2 |
| 17a40 | 30 32 5a 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 | 02Z.\266.\211\237\207".[-compare |
| 17a60 | 2d 66 6e 20 33 32 20 28 6e 69 6c 20 65 71 75 61 6c 20 65 71 20 65 71 6c 29 20 6d 61 6b 65 2d 68 | -fn.32.(nil.equal.eq.eql).make-h |
| 17a80 | 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c 20 3a 73 69 7a 65 20 6e 69 6c 20 | ash-table.:test.equal.:size.nil. |
| 17aa0 | 30 20 67 65 74 68 61 73 68 20 70 75 74 68 61 73 68 20 74 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d | 0.gethash.puthash.t.-contains\?] |
| 17ac0 | 20 31 32 20 28 23 24 20 2e 20 39 36 33 36 39 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 75 | .12.(#$...96369)]).(defalias.'-u |
| 17ae0 | 6e 69 71 20 27 2d 64 69 73 74 69 6e 63 74 29 0a 23 40 31 39 37 20 52 65 74 75 72 6e 20 61 20 6e | niq.'-distinct).#@197.Return.a.n |
| 17b00 | 65 77 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 | ew.list.containing.the.elements. |
| 17b20 | 6f 66 20 4c 49 53 54 20 61 6e 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 32 20 74 68 | of.LIST.and.elements.of.LIST2.th |
| 17b40 | 61 74 20 61 72 65 20 6e 6f 74 20 69 6e 20 4c 49 53 54 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 | at.are.not.in.LIST..The.test.for |
| 17b60 | 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 2c 0a | .equality.is.done.with.`equal',. |
| 17b80 | 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 73 20 | or.with.`-compare-fn'.if.that's. |
| 17ba0 | 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 66 61 | non-nil...(fn.LIST.LIST2)..(defa |
| 17bc0 | 6c 69 61 73 20 27 2d 75 6e 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 31 02 21 5c 33 30 32 5c 33 | lias.'-union.#[514."\301.!\302\3 |
| 17be0 | 30 30 21 5c 32 30 33 11 00 08 5c 32 30 33 11 00 08 5c 32 30 32 12 00 5c 33 30 33 5c 32 31 31 18 | 00!\203...\203...\202..\303\211. |
| 17c00 | 5c 33 30 34 3e 5c 32 30 33 6d 00 5c 33 30 35 5c 33 30 36 08 5c 22 03 5c 33 30 37 5c 33 31 30 5c | \304>\203m.\305\306.\".\307\310\ |
| 17c20 | 32 31 31 03 5c 32 30 33 3e 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c | 211.\203>..\211A\262.\242\262..\ |
| 17c40 | 32 36 32 01 02 54 5c 32 36 32 03 5c 33 31 31 02 5c 33 31 32 06 07 23 5c 32 31 30 5c 32 30 32 21 | 262..T\262.\311.\312..#\210\202! |
| 17c60 | 00 5c 32 36 36 04 02 5c 33 30 37 5c 33 31 30 5c 32 31 31 03 5c 32 30 33 68 00 03 5c 32 31 31 41 | .\266..\307\310\211.\203h..\211A |
| 17c80 | 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 31 33 02 | \262.\242\262..\262..T\262.\313. |
| 17ca0 | 06 06 5c 22 5c 32 30 34 44 00 01 06 06 42 5c 32 36 32 06 5c 32 30 32 44 00 5c 32 36 36 05 5c 32 | ..\"\204D....B\262.\202D.\266.\2 |
| 17cc0 | 30 32 5c 32 32 35 00 01 5c 33 30 37 5c 33 31 30 5c 32 31 31 03 5c 32 30 33 5c 32 32 33 00 03 5c | 02\225..\307\310\211.\203\223..\ |
| 17ce0 | 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c | 211A\262.\242\262..\262..T\262.\ |
| 17d00 | 33 31 34 05 03 5c 22 5c 32 30 34 71 00 01 05 42 5c 32 36 32 05 5c 32 30 32 71 00 5c 32 36 36 04 | 314..\"\204q...B\262.\202q.\266. |
| 17d20 | 5c 32 31 31 5c 32 33 37 29 5c 32 30 37 22 20 5b 2d 63 6f 6d 70 61 72 65 2d 66 6e 20 72 65 76 65 | \211\237)\207".[-compare-fn.reve |
| 17d40 | 72 73 65 20 62 6f 75 6e 64 70 20 65 71 75 61 6c 20 28 65 71 20 65 71 6c 20 65 71 75 61 6c 29 20 | rse.boundp.equal.(eq.eql.equal). |
| 17d60 | 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 30 20 6e 69 6c 20 70 75 74 68 | make-hash-table.:test.0.nil.puth |
| 17d80 | 61 73 68 20 74 20 67 65 74 68 61 73 68 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 31 33 20 28 23 | ash.t.gethash.-contains\?].13.(# |
| 17da0 | 24 20 2e 20 39 37 30 31 34 29 5d 29 0a 23 40 31 39 31 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 | $...97014)]).#@191.Return.a.new. |
| 17dc0 | 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6f 6e 6c 79 20 74 68 65 20 65 6c 65 6d 65 6e 74 | list.containing.only.the.element |
| 17de0 | 73 20 74 68 61 74 20 61 72 65 20 6d 65 6d 62 65 72 73 20 6f 66 20 62 6f 74 68 20 4c 49 53 54 20 | s.that.are.members.of.both.LIST. |
| 17e00 | 61 6e 64 20 4c 49 53 54 32 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c 69 74 79 | and.LIST2..The.test.for.equality |
| 17e20 | 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 68 20 60 | .is.done.with.`equal',.or.with.` |
| 17e40 | 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a | -compare-fn'.if.that's.non-nil.. |
| 17e60 | 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e | .(fn.LIST.LIST2)..(defalias.'-in |
| 17e80 | 74 65 72 73 65 63 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 30 5c | tersection.#[514."\300.\301\300\ |
| 17ea0 | 32 31 31 03 5c 32 30 33 28 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c | 211.\203(..\211A\262.\242\262..\ |
| 17ec0 | 32 36 32 01 02 54 5c 32 36 32 03 5c 33 30 32 06 06 03 5c 22 5c 32 30 33 05 00 01 05 42 5c 32 36 | 262..T\262.\302...\"\203....B\26 |
| 17ee0 | 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 | 2.\202..\266.\211\237\207".[nil. |
| 17f00 | 30 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 31 30 20 28 23 24 20 2e 20 39 37 37 31 35 29 5d 29 | 0.-contains\?].10.(#$...97715)]) |
| 17f20 | 0a 23 40 31 37 34 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 6f 6e | .#@174.Return.a.new.list.with.on |
| 17f40 | 6c 79 20 74 68 65 20 6d 65 6d 62 65 72 73 20 6f 66 20 4c 49 53 54 20 74 68 61 74 20 61 72 65 20 | ly.the.members.of.LIST.that.are. |
| 17f60 | 6e 6f 74 20 69 6e 20 4c 49 53 54 32 2e 0a 54 68 65 20 74 65 73 74 20 66 6f 72 20 65 71 75 61 6c | not.in.LIST2..The.test.for.equal |
| 17f80 | 69 74 79 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 60 65 71 75 61 6c 27 2c 0a 6f 72 20 77 69 74 | ity.is.done.with.`equal',.or.wit |
| 17fa0 | 68 20 60 2d 63 6f 6d 70 61 72 65 2d 66 6e 27 20 69 66 20 74 68 61 74 27 73 20 6e 6f 6e 2d 6e 69 | h.`-compare-fn'.if.that's.non-ni |
| 17fc0 | 6c 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 4c 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | l...(fn.LIST.LIST2)..(defalias.' |
| 17fe0 | 2d 64 69 66 66 65 72 65 6e 63 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 5c 33 30 30 | -difference.#[514."\300.\301\300 |
| 18000 | 5c 32 31 31 03 5c 32 30 33 28 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 | \211.\203(..\211A\262.\242\262.. |
| 18020 | 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 30 32 06 06 03 5c 22 5c 32 30 34 05 00 01 05 42 5c 32 | \262..T\262.\302...\"\204....B\2 |
| 18040 | 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c | 62.\202..\266.\211\237\207".[nil |
| 18060 | 20 30 20 2d 63 6f 6e 74 61 69 6e 73 5c 3f 5d 20 31 30 20 28 23 24 20 2e 20 39 38 30 38 37 29 5d | .0.-contains\?].10.(#$...98087)] |
| 18080 | 29 0a 23 40 34 32 20 52 65 74 75 72 6e 20 74 68 65 20 70 6f 77 65 72 20 73 65 74 20 6f 66 20 4c | ).#@42.Return.the.power.set.of.L |
| 180a0 | 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 6f 77 | IST...(fn.LIST)..(defalias.'-pow |
| 180c0 | 65 72 73 65 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c | erset.#[257."\211\204..\300\207\ |
| 180e0 | 33 30 31 01 41 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 | 301.A!\302\303\304\305\306\307\3 |
| 18100 | 31 30 06 08 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 03 5c 22 02 5c 22 5c 32 30 37 22 20 | 10..!\311\"\312\313%.\".\"\207". |
| 18120 | 5b 28 6e 69 6c 29 20 2d 70 6f 77 65 72 73 65 74 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 6d | [(nil).-powerset.append.mapcar.m |
| 18140 | 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 40 01 42 5c 32 30 37 22 20 | ake-byte-code.257."\300@.B\207". |
| 18160 | 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 58 29 22 | vconcat.vector.[].3."\n\n(fn.X)" |
| 18180 | 5d 20 31 30 20 28 23 24 20 2e 20 39 38 34 33 39 29 5d 29 0a 23 40 34 35 20 52 65 74 75 72 6e 20 | ].10.(#$...98439)]).#@45.Return. |
| 181a0 | 74 68 65 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c | the.permutations.of.LIST...(fn.L |
| 181c0 | 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 23 | IST)..(defalias.'-permutations.# |
| 181e0 | 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 5c 33 30 32 | [257."\211\204..\300\207\301\302 |
| 18200 | 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 5c | \303\304\305\306\307\310..!\311\ |
| 18220 | 22 5c 33 31 32 5c 33 31 33 25 04 5c 22 5c 22 5c 32 30 37 22 20 5b 28 6e 69 6c 29 20 61 70 70 6c | "\312\313%.\"\"\207".[(nil).appl |
| 18240 | 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 32 | y.append.mapcar.make-byte-code.2 |
| 18260 | 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 21 5c | 57."\301\302\303\304\305\306..!\ |
| 18280 | 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c 33 31 32 5c 33 31 33 04 5c 33 30 30 5c 22 21 5c 22 | 307\"\310\311%\312\313.\300\"!\" |
| 182a0 | 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 61 70 63 61 72 20 6d 61 6b | \207".vconcat.vector.[mapcar.mak |
| 182c0 | 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 42 5c 32 30 37 22 20 76 63 6f | e-byte-code.257."\300.B\207".vco |
| 182e0 | 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 50 45 52 4d 29 22 | ncat.vector.[].3."\n\n(fn.PERM)" |
| 18300 | 20 2d 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 72 65 6d 6f 76 65 5d 20 38 20 22 5c 6e 5c 6e 28 66 | .-permutations.remove].8."\n\n(f |
| 18320 | 6e 20 58 29 22 5d 20 31 30 20 28 23 24 20 2e 20 39 38 37 31 33 29 5d 29 0a 23 40 34 31 20 52 65 | n.X)"].10.(#$...98713)]).#@41.Re |
| 18340 | 74 75 72 6e 20 61 6c 6c 20 70 72 65 66 69 78 65 73 20 6f 66 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 | turn.all.prefixes.of.LIST...(fn. |
| 18360 | 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 6e 69 74 73 20 23 5b 32 35 37 20 22 | LIST)..(defalias.'-inits.#[257." |
| 18380 | 5c 32 31 31 43 5c 33 30 30 02 21 5c 32 36 32 02 01 5c 32 30 33 19 00 5c 33 30 30 02 41 5c 32 31 | \211C\300.!\262..\203..\300.A\21 |
| 183a0 | 31 5c 32 36 32 04 21 01 42 5c 32 36 32 01 5c 32 30 32 07 00 5c 32 31 31 5c 32 30 37 22 20 5b 72 | 1\262.!.B\262.\202..\211\207".[r |
| 183c0 | 65 76 65 72 73 65 5d 20 35 20 28 23 24 20 2e 20 39 39 31 33 34 29 5d 29 0a 23 40 34 30 20 52 65 | everse].5.(#$...99134)]).#@40.Re |
| 183e0 | 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 6e 20 4c | turn.all.suffixes.of.LIST..(fn.L |
| 18400 | 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 20 22 5c | IST)..(defalias.'-tails.#[257."\ |
| 18420 | 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 6e 73 2d | 300\301\302.#\207".[-reductions- |
| 18440 | 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 39 39 32 39 34 29 5d | r-from.cons.nil].5.(#$...99294)] |
| 18460 | 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 6f 6e | ).#@62.Return.the.longest.common |
| 18480 | 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 4c 49 53 | .prefix.of.LISTS...(fn.&rest.LIS |
| 184a0 | 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 78 20 23 | TS)..(defalias.'-common-prefix.# |
| 184c0 | 5b 31 32 38 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 72 00 5c 32 31 31 40 01 41 5c 33 30 30 5c | [128."\211\211\203r.\211@.A\300\ |
| 184e0 | 33 30 31 5c 32 31 31 03 5c 32 30 33 6a 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 | 301\211.\203j..\211A\262.\242\26 |
| 18500 | 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 30 31 02 5c 33 30 30 5c 33 30 31 5c 32 31 31 | 2..\262..T\262.\301.\300\301\211 |
| 18520 | 5c 32 31 31 04 5c 32 30 33 5f 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 | \211.\203_..\211A\262.\242\262.. |
| 18540 | 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 5f 00 06 5c 6e 5c 32 30 33 5f 00 06 5c | \262..\211\262.\203_..\n\203_..\ |
| 18560 | 6e 5c 32 31 31 41 5c 32 36 32 5c 66 5c 32 34 32 02 5c 32 33 32 5c 32 30 33 5f 00 02 5c 32 36 32 | n\211A\262\f\242.\232\203_..\262 |
| 18580 | 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 01 06 06 42 5c 32 36 32 06 5c 32 30 32 25 00 5c 32 36 | ..\262..T\262....B\262.\202%.\26 |
| 185a0 | 36 05 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 36 32 05 5c 32 30 32 5c 66 00 5c 32 36 36 04 | 6.\211\237\262.\262.\202\f.\266. |
| 185c0 | 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 5c 32 37 34 00 5c 33 30 31 5c 32 31 31 5c 32 31 31 01 5c | \211\262.\202\274.\301\211\211.\ |
| 185e0 | 33 30 30 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 5c 32 36 34 00 04 5c 32 31 31 41 5c | 300\301\211\211.\203\264..\211A\ |
| 18600 | 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 | 262.\242\262..\262..\211\262.\20 |
| 18620 | 33 5c 32 36 34 00 06 07 5c 32 30 33 5c 32 36 34 00 06 07 5c 32 31 31 41 5c 32 36 32 09 5c 32 34 | 3\264...\203\264...\211A\262.\24 |
| 18640 | 32 02 5c 32 33 32 5c 32 30 33 5c 32 36 34 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 | 2.\232\203\264..\262..\262..T\26 |
| 18660 | 32 04 01 06 06 42 5c 32 36 32 06 5c 32 30 32 7a 00 5c 32 36 36 05 5c 32 31 31 5c 32 33 37 5c 32 | 2....B\262.\202z.\266.\211\237\2 |
| 18680 | 36 32 01 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 35 20 28 23 24 20 | 62.\266\202\207".[0.nil].15.(#$. |
| 186a0 | 2e 20 39 39 34 33 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c | ..99431)]).(byte-code."\300\301\ |
| 186c0 | 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 |
| 186e0 | 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 | 7".[function-put.-common-prefix. |
| 18700 | 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 36 32 | pure.t.side-effect-free].5).#@62 |
| 18720 | 20 52 65 74 75 72 6e 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 63 6f 6d 6d 6f 6e 20 73 75 66 66 69 | .Return.the.longest.common.suffi |
| 18740 | 78 20 6f 66 20 4c 49 53 54 53 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 4c 49 53 54 53 29 1f 0a 28 | x.of.LISTS...(fn.&rest.LISTS)..( |
| 18760 | 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6d 6d 6f 6e 2d 73 75 66 66 69 78 20 23 5b 31 32 38 20 22 | defalias.'-common-suffix.#[128." |
| 18780 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 5c 22 5c 22 5c 32 33 37 5c 32 30 37 22 20 5b | \300\301\302\303.\"\"\237\207".[ |
| 187a0 | 61 70 70 6c 79 20 2d 63 6f 6d 6d 6f 6e 2d 70 72 65 66 69 78 20 6d 61 70 63 61 72 20 72 65 76 65 | apply.-common-prefix.mapcar.reve |
| 187c0 | 72 73 65 5d 20 36 20 28 23 24 20 2e 20 31 30 30 31 32 39 29 5d 29 0a 23 40 31 36 39 20 52 65 74 | rse].6.(#$...100129)]).#@169.Ret |
| 187e0 | 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 69 6e 73 20 45 4c 45 | urn.non-nil.if.LIST.contains.ELE |
| 18800 | 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 69 74 79 20 69 73 20 | MENT...The.test.for.equality.is. |
| 18820 | 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 68 20 60 2d 63 6f 6d | done.with.`equal',.or.with.`-com |
| 18840 | 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 6c 2e 0a 0a 41 6c 69 | pare-fn'.if.that's.non-nil...Ali |
| 18860 | 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 53 54 20 45 4c 45 4d | as:.`-contains-p'..(fn.LIST.ELEM |
| 18880 | 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 73 5c 3f 20 23 5b 35 | ENT)..(defalias.'-contains\?.#[5 |
| 188a0 | 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 34 00 08 5c 33 30 31 | 14.".\204\n.\211.\235\2024..\301 |
| 188c0 | 5c 32 36 37 5c 32 30 32 1d 00 5c 32 31 31 02 3e 5c 32 30 32 34 00 5c 33 30 32 01 03 5c 22 5c 32 | \267\202..\211.>\2024.\302..\"\2 |
| 188e0 | 30 32 34 00 01 5c 32 31 31 5c 32 30 33 31 00 08 02 02 40 5c 22 5c 32 30 34 31 00 5c 32 31 31 41 | 024..\211\2031....@\"\2041.\211A |
| 18900 | 5c 32 36 32 01 5c 32 30 32 1e 00 5c 32 31 31 5c 32 36 32 01 3f 3f 5c 32 30 37 22 20 5b 2d 63 6f | \262.\202..\211\262.??\207".[-co |
| 18920 | 6d 70 61 72 65 2d 66 6e 20 23 73 28 68 61 73 68 2d 74 61 62 6c 65 20 73 69 7a 65 20 32 20 74 65 | mpare-fn.#s(hash-table.size.2.te |
| 18940 | 73 74 20 65 71 20 72 65 68 61 73 68 2d 73 69 7a 65 20 31 2e 35 20 72 65 68 61 73 68 2d 74 68 72 | st.eq.rehash-size.1.5.rehash-thr |
| 18960 | 65 73 68 6f 6c 64 20 30 2e 38 31 32 35 20 70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20 28 65 | eshold.0.8125.purecopy.t.data.(e |
| 18980 | 71 20 31 36 20 65 71 6c 20 32 32 29 29 20 6d 65 6d 71 6c 5d 20 36 20 28 23 24 20 2e 20 31 30 30 | q.16.eql.22)).memql].6.(#$...100 |
| 189a0 | 33 31 37 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 27 2d | 317)]).(defalias.'-contains-p.'- |
| 189c0 | 63 6f 6e 74 61 69 6e 73 5c 3f 29 0a 23 40 31 34 39 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 | contains\?).#@149.Return.true.if |
| 189e0 | 20 4c 49 53 54 20 61 6e 64 20 4c 49 53 54 32 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 69 74 65 | .LIST.and.LIST2.has.the.same.ite |
| 18a00 | 6d 73 2e 0a 0a 54 68 65 20 6f 72 64 65 72 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 | ms...The.order.of.the.elements.i |
| 18a20 | 6e 20 74 68 65 20 6c 69 73 74 73 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65 72 2e 0a 0a 41 6c | n.the.lists.does.not.matter...Al |
| 18a40 | 69 61 73 3a 20 60 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 27 0a 0a 28 66 6e 20 4c 49 53 54 20 4c | ias:.`-same-items-p'..(fn.LIST.L |
| 18a60 | 49 53 54 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c 3f 20 | IST2)..(defalias.'-same-items\?. |
| 18a80 | 23 5b 35 31 34 20 22 01 47 01 47 01 01 55 5c 32 30 35 11 00 01 5c 33 30 30 05 05 5c 22 47 55 5c | #[514.".G.G..U\205...\300..\"GU\ |
| 18aa0 | 32 30 37 22 20 5b 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 5d 20 38 20 28 23 24 20 2e 20 31 30 30 | 207".[-intersection].8.(#$...100 |
| 18ac0 | 38 31 38 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 61 6d 65 2d 69 74 65 6d 73 2d 70 20 | 818)]).(defalias.'-same-items-p. |
| 18ae0 | 27 2d 73 61 6d 65 2d 69 74 65 6d 73 5c 3f 29 0a 23 40 38 39 20 52 65 74 75 72 6e 20 6e 6f 6e 2d | '-same-items\?).#@89.Return.non- |
| 18b00 | 6e 69 6c 20 69 66 20 50 52 45 46 49 58 20 69 73 20 61 20 70 72 65 66 69 78 20 6f 66 20 4c 49 53 | nil.if.PREFIX.is.a.prefix.of.LIS |
| 18b20 | 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 70 72 65 66 69 78 2d 70 27 2e 0a 0a 28 66 6e 20 | T...Alias:.`-is-prefix-p'...(fn. |
| 18b40 | 50 52 45 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 69 73 2d 70 72 65 | PREFIX.LIST)..(defalias.'-is-pre |
| 18b60 | 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 5c 33 30 31 5c 32 31 31 5c 32 31 | fix\?.#[514."\211\300\301\211\21 |
| 18b80 | 31 04 5c 32 30 33 39 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 | 1.\2039..\211A\262.\242\262..\26 |
| 18ba0 | 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 39 00 06 06 40 02 5c 32 33 32 5c 32 30 33 39 00 | 2..\211\262.\2039...@.\232\2039. |
| 18bc0 | 06 06 41 5c 32 31 31 5c 32 36 32 08 5c 32 30 33 39 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 | ..A\211\262.\2039..\262..\262..T |
| 18be0 | 5c 32 36 32 04 5c 32 30 32 05 00 5c 32 36 36 05 01 3f 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 | \262.\202..\266..?\207".[0.nil]. |
| 18c00 | 39 20 28 23 24 20 2e 20 31 30 31 31 30 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | 9.(#$...101109)]).(byte-code."\3 |
| 18c20 | 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 23 | 00\301\302\303#\300\301\304\303# |
| 18c40 | 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 69 73 2d 70 72 65 66 | \300\207".[function-put.-is-pref |
| 18c60 | 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 | ix\?.pure.t.side-effect-free].5) |
| 18c80 | 0a 23 40 38 39 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 55 46 46 49 58 20 69 | .#@89.Return.non-nil.if.SUFFIX.i |
| 18ca0 | 73 20 61 20 73 75 66 66 69 78 20 6f 66 20 4c 49 53 54 2e 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 | s.a.suffix.of.LIST...Alias:.`-is |
| 18cc0 | 2d 73 75 66 66 69 78 2d 70 27 2e 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 4c 49 53 54 29 1f 0a 28 | -suffix-p'...(fn.SUFFIX.LIST)..( |
| 18ce0 | 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 35 31 34 20 22 01 5c | defalias.'-is-suffix\?.#[514.".\ |
| 18d00 | 33 30 30 02 04 47 5c 22 5c 32 33 32 5c 32 30 37 22 20 5b 6c 61 73 74 5d 20 36 20 28 23 24 20 2e | 300..G\"\232\207".[last].6.(#$.. |
| 18d20 | 20 31 30 31 35 31 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c | .101510)]).(byte-code."\300\301\ |
| 18d40 | 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 |
| 18d60 | 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 69 73 2d 73 75 66 66 69 78 5c 3f 20 70 75 | 7".[function-put.-is-suffix\?.pu |
| 18d80 | 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 31 38 20 | re.t.side-effect-free].5).#@118. |
| 18da0 | 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 49 4e 46 49 58 20 69 73 20 69 6e 66 69 78 | Return.non-nil.if.INFIX.is.infix |
| 18dc0 | 20 6f 66 20 4c 49 53 54 2e 0a 0a 54 68 69 73 20 6f 70 65 72 61 74 69 6f 6e 20 72 75 6e 73 20 69 | .of.LIST...This.operation.runs.i |
| 18de0 | 6e 20 4f 28 6e 5e 32 29 20 74 69 6d 65 0a 0a 41 6c 69 61 73 3a 20 60 2d 69 73 2d 69 6e 66 69 78 | n.O(n^2).time..Alias:.`-is-infix |
| 18e00 | 2d 70 27 0a 0a 28 66 6e 20 49 4e 46 49 58 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | -p'..(fn.INFIX.LIST)..(defalias. |
| 18e20 | 27 2d 69 73 2d 69 6e 66 69 78 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 32 31 31 5c 32 30 34 | '-is-infix\?.#[514."\300\211\204 |
| 18e40 | 16 00 01 5c 32 30 33 16 00 5c 33 30 31 03 03 5c 22 5c 32 36 32 01 01 41 5c 32 36 32 02 5c 32 30 | ...\203..\301..\"\262..A\262.\20 |
| 18e60 | 32 01 00 5c 32 31 31 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 69 73 2d 70 72 65 66 69 78 5c 3f 5d 20 | 2..\211\207".[nil.-is-prefix\?]. |
| 18e80 | 36 20 28 23 24 20 2e 20 31 30 31 37 39 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | 6.(#$...101792)]).(byte-code."\3 |
| 18ea0 | 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 23 | 00\301\302\303#\300\301\304\303# |
| 18ec0 | 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 30 5c 33 31 31 5c 22 | \305\306\307\"\210\305\310\311\" |
| 18ee0 | 5c 32 31 30 5c 33 30 35 5c 33 31 32 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f | \210\305\312\301\"\207".[functio |
| 18f00 | 6e 2d 70 75 74 20 2d 69 73 2d 69 6e 66 69 78 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 | n-put.-is-infix\?.pure.t.side-ef |
| 18f20 | 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 69 73 2d 70 72 65 66 69 78 2d 70 20 | fect-free.defalias.-is-prefix-p. |
| 18f40 | 2d 69 73 2d 70 72 65 66 69 78 5c 3f 20 2d 69 73 2d 73 75 66 66 69 78 2d 70 20 2d 69 73 2d 73 75 | -is-prefix\?.-is-suffix-p.-is-su |
| 18f60 | 66 66 69 78 5c 3f 20 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 | ffix\?.-is-infix-p].5).#@268.Sor |
| 18f80 | 74 20 4c 49 53 54 2c 20 73 74 61 62 6c 79 2c 20 63 6f 6d 70 61 72 69 6e 67 20 65 6c 65 6d 65 6e | t.LIST,.stably,.comparing.elemen |
| 18fa0 | 74 73 20 75 73 69 6e 67 20 43 4f 4d 50 41 52 41 54 4f 52 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 | ts.using.COMPARATOR..Return.the. |
| 18fc0 | 73 6f 72 74 65 64 20 6c 69 73 74 2e 20 20 4c 49 53 54 20 69 73 20 4e 4f 54 20 6d 6f 64 69 66 69 | sorted.list...LIST.is.NOT.modifi |
| 18fe0 | 65 64 20 62 79 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 0a 43 4f 4d 50 41 52 41 54 4f 52 20 69 | ed.by.side.effects..COMPARATOR.i |
| 19000 | 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 | s.called.with.two.elements.of.LI |
| 19020 | 53 54 2c 20 61 6e 64 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 0a 69 66 | ST,.and.should.return.non-nil.if |
| 19040 | 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 73 6f 72 74 20 62 | .the.first.element.should.sort.b |
| 19060 | 65 66 6f 72 65 20 74 68 65 20 73 65 63 6f 6e 64 2e 0a 0a 28 66 6e 20 43 4f 4d 50 41 52 41 54 4f | efore.the.second...(fn.COMPARATO |
| 19080 | 52 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 73 6f 72 74 20 23 5b 35 31 34 20 | R.LIST)..(defalias.'-sort.#[514. |
| 190a0 | 22 5c 33 30 30 5c 33 30 31 02 21 03 5c 22 5c 32 30 37 22 20 5b 73 6f 72 74 20 63 6f 70 79 2d 73 | "\300\301.!.\"\207".[sort.copy-s |
| 190c0 | 65 71 75 65 6e 63 65 5d 20 35 20 28 23 24 20 2e 20 31 30 32 32 36 39 29 5d 29 0a 23 40 34 34 20 | equence].5.(#$...102269)]).#@44. |
| 190e0 | 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 73 6f 72 74 27 2e 0a 0a 28 66 6e 20 | Anaphoric.form.of.`-sort'...(fn. |
| 19100 | 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 73 6f 72 74 20 27 28 | FORM.LIST)..(defalias.'--sort.'( |
| 19120 | 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c | macro...#[514."\300\301\302.E.E\ |
| 19140 | 32 30 37 22 20 5b 2d 73 6f 72 74 20 6c 61 6d 62 64 61 20 28 69 74 20 6f 74 68 65 72 29 5d 20 36 | 207".[-sort.lambda.(it.other)].6 |
| 19160 | 20 28 23 24 20 2e 20 31 30 32 36 32 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 73 6f 72 74 20 27 | .(#$...102624)])).(put.'--sort.' |
| 19180 | 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d | edebug-form-spec.'(def-form.form |
| 191a0 | 29 29 0a 23 40 33 39 38 20 45 6e 73 75 72 65 20 41 52 47 20 69 73 20 61 20 6c 69 73 74 2e 0a 49 | )).#@398.Ensure.ARG.is.a.list..I |
| 191c0 | 66 20 41 52 47 20 69 73 20 61 6c 72 65 61 64 79 20 61 20 6c 69 73 74 2c 20 72 65 74 75 72 6e 20 | f.ARG.is.already.a.list,.return. |
| 191e0 | 69 74 20 61 73 20 69 73 20 28 6e 6f 74 20 61 20 63 6f 70 79 29 2e 0a 4f 74 68 65 72 77 69 73 65 | it.as.is.(not.a.copy)..Otherwise |
| 19200 | 2c 20 72 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 74 68 20 41 52 47 20 61 73 20 | ,.return.a.new.list.with.ARG.as. |
| 19220 | 69 74 73 20 6f 6e 6c 79 20 65 6c 65 6d 65 6e 74 2e 0a 0a 41 6e 6f 74 68 65 72 20 73 75 70 70 6f | its.only.element...Another.suppo |
| 19240 | 72 74 65 64 20 63 61 6c 6c 69 6e 67 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 69 73 20 28 2d 6c 69 73 | rted.calling.convention.is.(-lis |
| 19260 | 74 20 26 72 65 73 74 20 41 52 47 53 29 2e 0a 49 6e 20 74 68 69 73 20 63 61 73 65 2c 20 69 66 20 | t.&rest.ARGS)..In.this.case,.if. |
| 19280 | 41 52 47 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2c 20 61 20 6e 65 77 20 6c 69 73 74 20 77 69 | ARG.is.not.a.list,.a.new.list.wi |
| 192a0 | 74 68 20 61 6c 6c 20 6f 66 0a 41 52 47 53 20 61 73 20 65 6c 65 6d 65 6e 74 73 20 69 73 20 72 65 | th.all.of.ARGS.as.elements.is.re |
| 192c0 | 74 75 72 6e 65 64 2e 20 20 54 68 69 73 20 75 73 65 20 69 73 20 73 75 70 70 6f 72 74 65 64 20 66 | turned...This.use.is.supported.f |
| 192e0 | 6f 72 0a 62 61 63 6b 77 61 72 64 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 61 6e 64 20 69 73 | or.backward.compatibility.and.is |
| 19300 | 20 6f 74 68 65 72 77 69 73 65 20 64 65 70 72 65 63 61 74 65 64 2e 0a 0a 28 66 6e 20 26 6f 70 74 | .otherwise.deprecated...(fn.&opt |
| 19320 | 69 6f 6e 61 6c 20 41 52 47 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 | ional.ARG.&rest.ARGS)..(defalias |
| 19340 | 20 27 2d 6c 69 73 74 20 23 5b 33 38 34 20 22 01 3c 5c 32 30 33 07 00 01 5c 32 30 37 01 01 42 5c | .'-list.#[384.".<\203...\207..B\ |
| 19360 | 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 31 30 32 38 32 35 29 5d 29 0a 28 62 79 74 65 2d | 207".[].4.(#$...102825)]).(byte- |
| 19380 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c | code."\300\301\302\303#\210\304\ |
| 193a0 | 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 34 5c 33 30 31 5c 33 30 37 5c 33 30 36 23 5c 33 30 | 301\305\306#\304\301\307\306#\30 |
| 193c0 | 30 5c 32 30 37 22 20 5b 73 65 74 2d 61 64 76 65 72 74 69 73 65 64 2d 63 61 6c 6c 69 6e 67 2d 63 | 0\207".[set-advertised-calling-c |
| 193e0 | 6f 6e 76 65 6e 74 69 6f 6e 20 2d 6c 69 73 74 20 28 61 72 67 29 20 22 32 2e 31 38 2e 30 22 20 66 | onvention.-list.(arg)."2.18.0".f |
| 19400 | 75 6e 63 74 69 6f 6e 2d 70 75 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | unction-put.pure.t.side-effect-f |
| 19420 | 72 65 65 5d 20 35 29 0a 23 40 31 30 30 20 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 20 | ree].5).#@100.Return.a.new.list. |
| 19440 | 6f 66 20 6c 65 6e 67 74 68 20 4e 20 77 69 74 68 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 62 65 | of.length.N.with.each.element.be |
| 19460 | 69 6e 67 20 58 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 4e 20 69 73 20 6c 65 73 73 20 74 | ing.X..Return.nil.if.N.is.less.t |
| 19480 | 68 61 6e 20 31 2e 0a 0a 28 66 6e 20 4e 20 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 65 | han.1...(fn.N.X)..(defalias.'-re |
| 194a0 | 70 65 61 74 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 32 30 35 5c 6e 00 5c 33 30 31 02 02 5c | peat.#[514."\300.!\205\n.\301..\ |
| 194c0 | 22 5c 32 30 37 22 20 5b 6e 61 74 6e 75 6d 70 20 6d 61 6b 65 2d 6c 69 73 74 5d 20 35 20 28 23 24 | "\207".[natnump.make-list].5.(#$ |
| 194e0 | 20 2e 20 31 30 33 34 37 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 | ...103470)]).(byte-code."\300\30 |
| 19500 | 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\ |
| 19520 | 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 65 20 | 207".[function-put.-repeat.pure. |
| 19540 | 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 74 75 | t.side-effect-free].5).#@36.Retu |
| 19560 | 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 1f 0a | rn.the.sum.of.LIST...(fn.LIST).. |
| 19580 | 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 31 02 | (defalias.'-sum.#[257."\300\301. |
| 195a0 | 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 31 30 33 37 37 32 | \"\207".[apply.+].4.(#$...103772 |
| 195c0 | 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 |
| 195e0 | 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 |
| 19600 | 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 63 | ction-put.-sum.pure.t.side-effec |
| 19620 | 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 38 36 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 | t-free].5).#@86.Return.a.list.wi |
| 19640 | 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 54 | th.running.sums.of.items.in.LIST |
| 19660 | 2e 0a 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 4c | ..LIST.must.be.non-empty...(fn.L |
| 19680 | 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 23 5b | IST)..(defalias.'-running-sum.#[ |
| 196a0 | 32 35 37 20 22 5c 32 31 31 5c 32 30 34 0b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 44 5c 22 5c | 257."\211\204..\300\301\302.D\"\ |
| 196c0 | 32 31 30 5c 33 30 33 5c 33 30 34 02 5c 22 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 72 6f 6e | 210\303\304.\"\207".[signal.wron |
| 196e0 | 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 6f 6e 73 70 20 2d 72 65 64 75 63 74 69 6f 6e | g-type-argument.consp.-reduction |
| 19700 | 73 20 2b 5d 20 35 20 28 23 24 20 2e 20 31 30 33 39 38 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | s.+].5.(#$...103984)]).(byte-cod |
| 19720 | 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 30 34 | e."\300\301\302\303#\300\301\304 |
| 19740 | 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 72 75 | \303#\300\207".[function-put.-ru |
| 19760 | 6e 6e 69 6e 67 2d 73 75 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 | nning-sum.pure.t.side-effect-fre |
| 19780 | 65 5d 20 35 29 0a 23 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 | e].5).#@40.Return.the.product.of |
| 197a0 | 20 4c 49 53 54 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 | .LIST...(fn.LIST)..(defalias.'-p |
| 197c0 | 72 6f 64 75 63 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b | roduct.#[257."\300\301.\"\207".[ |
| 197e0 | 61 70 70 6c 79 20 2a 5d 20 34 20 28 23 24 20 2e 20 31 30 34 33 33 31 29 5d 29 0a 28 62 79 74 65 | apply.*].4.(#$...104331)]).(byte |
| 19800 | 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 |
| 19820 | 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 |
| 19840 | 20 2d 70 72 6f 64 75 63 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 | .-product.pure.t.side-effect-fre |
| 19860 | 65 5d 20 35 29 0a 23 40 39 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 72 75 | e].5).#@90.Return.a.list.with.ru |
| 19880 | 6e 6e 69 6e 67 20 70 72 6f 64 75 63 74 73 20 6f 66 20 69 74 65 6d 73 20 69 6e 20 4c 49 53 54 2e | nning.products.of.items.in.LIST. |
| 198a0 | 0a 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6e 6f 6e 2d 65 6d 70 74 79 2e 0a 0a 28 66 6e 20 4c 49 | .LIST.must.be.non-empty...(fn.LI |
| 198c0 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 | ST)..(defalias.'-running-product |
| 198e0 | 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 34 0b 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 44 | .#[257."\211\204..\300\301\302.D |
| 19900 | 5c 22 5c 32 31 30 5c 33 30 33 5c 33 30 34 02 5c 22 5c 32 30 37 22 20 5b 73 69 67 6e 61 6c 20 77 | \"\210\303\304.\"\207".[signal.w |
| 19920 | 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 6f 6e 73 70 20 2d 72 65 64 75 63 74 | rong-type-argument.consp.-reduct |
| 19940 | 69 6f 6e 73 20 2a 5d 20 35 20 28 23 24 20 2e 20 31 30 34 35 35 35 29 5d 29 0a 28 62 79 74 65 2d | ions.*].5.(#$...104555)]).(byte- |
| 19960 | 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\ |
| 19980 | 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. |
| 199a0 | 2d 72 75 6e 6e 69 6e 67 2d 70 72 6f 64 75 63 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 | -running-product.pure.t.side-eff |
| 199c0 | 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 37 30 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 72 | ect-free].5).#@70.Return.the.lar |
| 199e0 | 67 65 73 74 20 76 61 6c 75 65 20 66 72 6f 6d 20 4c 49 53 54 20 6f 66 20 6e 75 6d 62 65 72 73 20 | gest.value.from.LIST.of.numbers. |
| 19a00 | 6f 72 20 6d 61 72 6b 65 72 73 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 | or.markers...(fn.LIST)..(defalia |
| 19a20 | 73 20 27 2d 6d 61 78 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 | s.'-max.#[257."\300\301.\"\207". |
| 19a40 | 5b 61 70 70 6c 79 20 6d 61 78 5d 20 34 20 28 23 24 20 2e 20 31 30 34 39 31 34 29 5d 29 0a 28 62 | [apply.max].4.(#$...104914)]).(b |
| 19a60 | 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\ |
| 19a80 | 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- |
| 19aa0 | 70 75 74 20 2d 6d 61 78 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 | put.-max.pure.t.side-effect-free |
| 19ac0 | 5d 20 35 29 0a 23 40 37 31 20 52 65 74 75 72 6e 20 74 68 65 20 73 6d 61 6c 6c 65 73 74 20 76 61 | ].5).#@71.Return.the.smallest.va |
| 19ae0 | 6c 75 65 20 66 72 6f 6d 20 4c 49 53 54 20 6f 66 20 6e 75 6d 62 65 72 73 20 6f 72 20 6d 61 72 6b | lue.from.LIST.of.numbers.or.mark |
| 19b00 | 65 72 73 2e 0a 0a 28 66 6e 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 69 6e | ers...(fn.LIST)..(defalias.'-min |
| 19b20 | 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 | .#[257."\300\301.\"\207".[apply. |
| 19b40 | 6d 69 6e 5d 20 34 20 28 23 24 20 2e 20 31 30 35 31 36 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | min].4.(#$...105162)]).(byte-cod |
| 19b60 | 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 30 34 | e."\300\301\302\303#\300\301\304 |
| 19b80 | 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 6d 69 | \303#\300\207".[function-put.-mi |
| 19ba0 | 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 | n.pure.t.side-effect-free].5).#@ |
| 19bc0 | 32 32 35 20 54 61 6b 65 20 61 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 43 | 225.Take.a.comparison.function.C |
| 19be0 | 4f 4d 50 41 52 41 54 4f 52 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 65 74 75 72 6e 0a | OMPARATOR.and.a.LIST.and.return. |
| 19c00 | 74 68 65 20 67 72 65 61 74 65 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 | the.greatest.element.of.the.list |
| 19c20 | 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 |
| 19c40 | 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 |
| 19c60 | 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 |
| 19c80 | 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 |
| 19ca0 | 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6d 61 78 2d 62 79 20 23 5b 35 31 34 20 22 5c | ST)..(defalias.'-max-by.#[514."\ |
| 19cc0 | 32 31 31 5c 32 31 31 5c 32 30 33 3a 00 5c 32 31 31 40 01 41 5c 33 30 30 5c 33 30 31 5c 32 31 31 | 211\211\203:.\211@.A\300\301\211 |
| 19ce0 | 03 5c 32 30 33 32 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 | .\2032..\211A\262.\242\262..\262 |
| 19d00 | 01 02 54 5c 32 36 32 03 06 07 02 06 06 5c 22 5c 32 30 33 2c 00 01 5c 32 30 32 2d 00 04 5c 32 36 | ..T\262......\"\203,..\202-..\26 |
| 19d20 | 32 05 5c 32 30 32 5c 66 00 5c 32 36 36 04 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 4a 00 5c 33 30 | 2.\202\f.\266.\211\262.\202J.\30 |
| 19d40 | 31 5c 32 31 31 04 01 03 5c 22 5c 32 30 33 47 00 5c 32 31 31 5c 32 30 32 48 00 01 5c 32 36 36 5c | 1\211...\"\203G.\211\202H..\266\ |
| 19d60 | 32 30 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 31 30 35 34 31 32 | 202\207".[0.nil].11.(#$...105412 |
| 19d80 | 29 5d 29 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 | )]).#@222.Take.a.comparison.func |
| 19da0 | 74 69 6f 6e 20 43 4f 4d 50 41 52 41 54 4f 52 20 61 6e 64 20 61 20 4c 49 53 54 20 61 6e 64 20 72 | tion.COMPARATOR.and.a.LIST.and.r |
| 19dc0 | 65 74 75 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 | eturn.the.least.element.of.the.l |
| 19de0 | 69 73 74 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 | ist.by.the.comparison.function.. |
| 19e00 | 0a 53 65 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 | .See.also.combinator.`-on'.which |
| 19e20 | 20 63 61 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 | .can.transform.the.values.before |
| 19e40 | 0a 63 6f 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 | .comparing.them...(fn.COMPARATOR |
| 19e60 | 20 4c 49 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 | .LIST)..(defalias.'-min-by.#[514 |
| 19e80 | 20 22 5c 32 31 31 5c 32 31 31 5c 32 30 33 3a 00 5c 32 31 31 40 01 41 5c 33 30 30 5c 33 30 31 5c | ."\211\211\203:.\211@.A\300\301\ |
| 19ea0 | 32 31 31 03 5c 32 30 33 32 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c | 211.\2032..\211A\262.\242\262..\ |
| 19ec0 | 32 36 32 01 02 54 5c 32 36 32 03 06 07 02 06 06 5c 22 5c 32 30 33 2c 00 04 5c 32 30 32 2d 00 01 | 262..T\262......\"\203,..\202-.. |
| 19ee0 | 5c 32 36 32 05 5c 32 30 32 5c 66 00 5c 32 36 36 04 5c 32 31 31 5c 32 36 32 01 5c 32 30 32 4a 00 | \262.\202\f.\266.\211\262.\202J. |
| 19f00 | 5c 33 30 31 5c 32 31 31 04 01 03 5c 22 5c 32 30 33 47 00 01 5c 32 30 32 48 00 5c 32 31 31 5c 32 | \301\211...\"\203G..\202H.\211\2 |
| 19f20 | 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 30 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 31 30 35 | 66\202\207".[0.nil].11.(#$...105 |
| 19f40 | 38 36 36 29 5d 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 | 866)]).#@117.Anaphoric.version.o |
| 19f60 | 66 20 60 2d 6d 61 78 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 | f.`-max-by'...The.items.for.the. |
| 19f80 | 63 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 | comparator.form.are.exposed.as." |
| 19fa0 | 69 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 | it".and."other"...(fn.FORM.LIST) |
| 19fc0 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 6d 61 78 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 | ..(defalias.'--max-by.'(macro... |
| 19fe0 | 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 6d | #[514."\300\301\302.E.E\207".[-m |
| 1a000 | 61 78 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 | ax-by.lambda.(it.other)].6.(#$.. |
| 1a020 | 20 31 30 36 33 31 37 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 61 78 2d 62 79 20 27 65 64 65 62 | .106317)])).(put.'--max-by.'edeb |
| 1a040 | 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 | ug-form-spec.'(def-form.form)).# |
| 1a060 | 40 31 31 37 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 2d 6d 69 6e 2d | @117.Anaphoric.version.of.`-min- |
| 1a080 | 62 79 27 2e 0a 0a 54 68 65 20 69 74 65 6d 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 61 72 61 74 | by'...The.items.for.the.comparat |
| 1a0a0 | 6f 72 20 66 6f 72 6d 20 61 72 65 20 65 78 70 6f 73 65 64 20 61 73 20 22 69 74 22 20 61 6e 64 20 | or.form.are.exposed.as."it".and. |
| 1a0c0 | 22 6f 74 68 65 72 22 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c | "other"...(fn.FORM.LIST)..(defal |
| 1a0e0 | 69 61 73 20 27 2d 2d 6d 69 6e 2d 62 79 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c | ias.'--min-by.'(macro...#[514."\ |
| 1a100 | 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 6d 69 6e 2d 62 79 20 6c 61 | 300\301\302.E.E\207".[-min-by.la |
| 1a120 | 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 31 30 36 35 39 37 29 | mbda.(it.other)].6.(#$...106597) |
| 1a140 | 5d 29 29 0a 28 70 75 74 20 27 2d 2d 6d 69 6e 2d 62 79 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d | ])).(put.'--min-by.'edebug-form- |
| 1a160 | 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 35 31 20 52 65 74 | spec.'(def-form.form)).#@251.Ret |
| 1a180 | 75 72 6e 20 61 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 43 4f 55 4e 54 20 6e 75 6d 62 | urn.a.list.containing.COUNT.numb |
| 1a1a0 | 65 72 73 2e 0a 53 74 61 72 74 73 20 66 72 6f 6d 20 53 54 41 52 54 20 61 6e 64 20 61 64 64 73 20 | ers..Starts.from.START.and.adds. |
| 1a1c0 | 53 54 45 50 20 65 61 63 68 20 74 69 6d 65 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 53 54 41 | STEP.each.time...The.default.STA |
| 1a1e0 | 52 54 20 69 73 0a 7a 65 72 6f 2c 20 74 68 65 20 64 65 66 61 75 6c 74 20 53 54 45 50 20 69 73 20 | RT.is.zero,.the.default.STEP.is. |
| 1a200 | 31 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 69 74 73 20 6e 61 6d 65 20 | 1..This.function.takes.its.name. |
| 1a220 | 66 72 6f 6d 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 70 72 69 6d 69 74 69 76 65 | from.the.corresponding.primitive |
| 1a240 | 20 69 6e 0a 74 68 65 20 41 50 4c 20 6c 61 6e 67 75 61 67 65 2e 0a 0a 28 66 6e 20 43 4f 55 4e 54 | .in.the.APL.language...(fn.COUNT |
| 1a260 | 20 26 6f 70 74 69 6f 6e 61 6c 20 53 54 41 52 54 20 53 54 45 50 29 1f 0a 28 64 65 66 61 6c 69 61 | .&optional.START.STEP)..(defalia |
| 1a280 | 73 20 27 2d 69 6f 74 61 20 23 5b 37 36 39 20 22 5c 33 30 30 03 21 5c 32 30 34 0d 00 5c 33 30 31 | s.'-iota.#[769."\300.!\204..\301 |
| 1a2a0 | 5c 33 30 32 5c 33 30 30 05 44 5c 22 5c 32 31 30 01 5c 32 30 34 14 00 5c 33 30 33 5c 32 36 32 02 | \302\300.D\"\210.\204..\303\262. |
| 1a2c0 | 5c 32 31 31 5c 32 30 34 1b 00 5c 33 30 34 5c 32 36 32 01 5c 32 31 31 5c 33 30 33 55 5c 32 30 33 | \211\204..\304\262.\211\303U\203 |
| 1a2e0 | 26 00 5c 33 30 35 03 03 5c 22 5c 32 30 37 02 5c 32 31 31 5c 33 30 33 56 5c 32 30 35 53 00 02 5c | &.\305..\"\207.\211\303V\205S..\ |
| 1a300 | 32 31 31 43 02 53 5c 33 30 33 5c 32 31 31 02 57 5c 32 30 33 4d 00 5c 32 31 31 04 06 07 5c 5c 5c | 211C.S\303\211.W\203M.\211...\\\ |
| 1a320 | 32 31 31 5c 32 36 32 06 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 | 211\262..B\262.\210\211T\262.\20 |
| 1a340 | 32 33 00 5c 32 36 36 02 5c 32 31 31 5c 32 33 37 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 6e | 23.\266.\211\237\266\202\207".[n |
| 1a360 | 61 74 6e 75 6d 70 20 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 | atnump.signal.wrong-type-argumen |
| 1a380 | 74 20 30 20 31 20 6d 61 6b 65 2d 6c 69 73 74 5d 20 31 31 20 28 23 24 20 2e 20 31 30 36 38 37 37 | t.0.1.make-list].11.(#$...106877 |
| 1a3a0 | 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 |
| 1a3c0 | 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 |
| 1a3e0 | 63 74 69 6f 6e 2d 70 75 74 20 2d 69 6f 74 61 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 | ction-put.-iota.pure.t.side-effe |
| 1a400 | 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 33 39 20 43 6f 6d 70 75 74 65 20 74 68 65 20 28 6c | ct-free].5).#@139.Compute.the.(l |
| 1a420 | 65 61 73 74 29 20 66 69 78 70 6f 69 6e 74 20 6f 66 20 46 4e 20 77 69 74 68 20 69 6e 69 74 69 61 | east).fixpoint.of.FN.with.initia |
| 1a440 | 6c 20 69 6e 70 75 74 20 4c 49 53 54 2e 0a 0a 46 4e 20 69 73 20 63 61 6c 6c 65 64 20 61 74 20 6c | l.input.LIST...FN.is.called.at.l |
| 1a460 | 65 61 73 74 20 6f 6e 63 65 2c 20 72 65 73 75 6c 74 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 | east.once,.results.are.compared. |
| 1a480 | 77 69 74 68 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 46 4e 20 4c 49 53 54 29 1f 0a 28 64 65 | with.`equal'...(fn.FN.LIST)..(de |
| 1a4a0 | 66 61 6c 69 61 73 20 27 2d 66 69 78 20 23 5b 35 31 34 20 22 01 01 21 01 01 5c 32 33 32 5c 32 30 | falias.'-fix.#[514."..!..\232\20 |
| 1a4c0 | 34 14 00 5c 32 31 31 5c 32 36 32 02 02 01 21 5c 32 36 32 01 5c 32 30 32 03 00 5c 32 31 31 5c 32 | 4..\211\262...!\262.\202..\211\2 |
| 1a4e0 | 30 37 22 20 5b 5d 20 35 20 28 23 24 20 2e 20 31 30 37 35 33 38 29 5d 29 0a 23 40 34 33 20 41 6e | 07".[].5.(#$...107538)]).#@43.An |
| 1a500 | 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 66 69 78 27 2e 0a 0a 28 66 6e 20 46 4f 52 | aphoric.form.of.`-fix'...(fn.FOR |
| 1a520 | 4d 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 66 69 78 20 27 28 6d 61 63 72 | M.LIST)..(defalias.'--fix.'(macr |
| 1a540 | 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 22 | o...#[514."\300\301\302.E.E\207" |
| 1a560 | 20 5b 2d 66 69 78 20 6c 61 6d 62 64 61 20 28 69 74 29 5d 20 36 20 28 23 24 20 2e 20 31 30 37 37 | .[-fix.lambda.(it)].6.(#$...1077 |
| 1a580 | 37 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 66 69 78 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d | 74)])).(put.'--fix.'edebug-form- |
| 1a5a0 | 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 36 32 20 42 75 69 | spec.'(def-form.form)).#@362.Bui |
| 1a5c0 | 6c 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 | ld.a.list.from.SEED.using.FUN... |
| 1a5e0 | 54 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 | This.is."dual".operation.to.`-re |
| 1a600 | 64 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 | duce-r':.while.-reduce-r.consume |
| 1a620 | 73 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 | s.a.list.to.produce.a.single.val |
| 1a640 | 75 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 | ue,.`-unfold'.takes.a.seed.value |
| 1a660 | 20 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 | .and.builds.a.(potentially.infin |
| 1a680 | 69 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 | ite!).list...FUN.should.return.` |
| 1a6a0 | 6e 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 | nil'.to.stop.the.generating.proc |
| 1a6c0 | 65 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 | ess,.or.a.cons.(A...B),.where.A. |
| 1a6e0 | 77 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 | will.be.prepended.to.the.result. |
| 1a700 | 61 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 | and.B.is.the.new.seed...(fn.FUN. |
| 1a720 | 53 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 | SEED)..(defalias.'-unfold.#[514. |
| 1a740 | 22 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 | "..!\300.\203...@.B\262...A!\262 |
| 1a760 | 02 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 | .\202..\211\237\207".[nil].6.(#$ |
| 1a780 | 20 2e 20 31 30 37 39 36 35 29 5d 29 0a 23 40 34 39 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 | ...107965)]).#@49.Anaphoric.vers |
| 1a7a0 | 69 6f 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 | ion.of.`-unfold'...(fn.FORM.SEED |
| 1a7c0 | 29 1f 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 | )..(defalias.'--unfold.'(macro.. |
| 1a7e0 | 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".[- |
| 1a800 | 75 6e 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 31 30 38 34 | unfold.lambda.(it)].6.(#$...1084 |
| 1a820 | 33 34 29 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 | 34)])).(put.'--unfold.'edebug-fo |
| 1a840 | 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 31 32 35 20 | rm-spec.'(def-form.form)).#@125. |
| 1a860 | 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4f 42 4a 20 69 73 20 61 20 74 72 75 65 20 | Return.non-nil.if.OBJ.is.a.true. |
| 1a880 | 63 6f 6e 73 20 70 61 69 72 2e 0a 54 68 61 74 20 69 73 2c 20 61 20 63 6f 6e 73 20 28 41 20 2e 20 | cons.pair..That.is,.a.cons.(A... |
| 1a8a0 | 42 29 20 77 68 65 72 65 20 42 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 2e 0a 0a 41 6c 69 61 73 | B).where.B.is.not.a.list...Alias |
| 1a8c0 | 3a 20 60 2d 63 6f 6e 73 2d 70 61 69 72 2d 70 27 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 | :.`-cons-pair-p'...(fn.OBJ)..(de |
| 1a8e0 | 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 23 5b 32 35 37 20 22 5c 32 31 31 | falias.'-cons-pair\?.#[257."\211 |
| 1a900 | 5c 32 34 33 3c 3f 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 2e 20 31 30 38 36 34 30 29 5d 29 | \243<?\207".[].2.(#$...108640)]) |
| 1a920 | 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 |
| 1a940 | 30 30 5c 33 30 31 5c 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 | 00\301\304\303#\305\306\301\"\20 |
| 1a960 | 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 70 75 | 7".[function-put.-cons-pair\?.pu |
| 1a980 | 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d | re.t.side-effect-free.defalias.- |
| 1a9a0 | 63 6f 6e 73 2d 70 61 69 72 2d 70 5d 20 35 29 0a 23 40 38 38 20 43 6f 6e 76 65 72 74 20 61 20 63 | cons-pair-p].5).#@88.Convert.a.c |
| 1a9c0 | 6f 6e 73 20 70 61 69 72 20 74 6f 20 61 20 6c 69 73 74 20 77 69 74 68 20 60 63 61 72 27 20 61 6e | ons.pair.to.a.list.with.`car'.an |
| 1a9e0 | 64 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 70 61 69 72 20 72 65 73 70 65 63 74 69 76 65 6c 79 | d.`cdr'.of.the.pair.respectively |
| 1aa00 | 2e 0a 0a 28 66 6e 20 43 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 6e 73 2d 74 6f | ...(fn.CON)..(defalias.'-cons-to |
| 1aa20 | 2d 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 44 5c 32 30 37 22 20 5b 5d 20 33 20 | -list.#[257."\211@.AD\207".[].3. |
| 1aa40 | 28 23 24 20 2e 20 31 30 38 39 38 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | (#$...108981)]).(byte-code."\300 |
| 1aa60 | 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 |
| 1aa80 | 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 6e 73 2d 74 6f 2d 6c | 00\207".[function-put.-cons-to-l |
| 1aaa0 | 69 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a | ist.pure.t.side-effect-free].5). |
| 1aac0 | 23 40 31 39 32 20 43 6f 6e 76 65 72 74 20 61 20 76 61 6c 75 65 20 74 6f 20 61 20 6c 69 73 74 2e | #@192.Convert.a.value.to.a.list. |
| 1aae0 | 0a 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 61 20 63 6f 6e 73 20 70 61 69 72 2c 20 6d | ..If.the.value.is.a.cons.pair,.m |
| 1ab00 | 61 6b 65 20 61 20 6c 69 73 74 20 77 69 74 68 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2c 20 60 63 | ake.a.list.with.two.elements,.`c |
| 1ab20 | 61 72 27 0a 61 6e 64 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 70 61 69 72 20 72 65 73 70 65 63 | ar'.and.`cdr'.of.the.pair.respec |
| 1ab40 | 74 69 76 65 6c 79 2e 0a 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 61 6e 79 74 68 69 6e | tively...If.the.value.is.anythin |
| 1ab60 | 67 20 65 6c 73 65 2c 20 77 72 61 70 20 69 74 20 69 6e 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 | g.else,.wrap.it.in.a.list...(fn. |
| 1ab80 | 56 41 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 76 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 20 | VAL)..(defalias.'-value-to-list. |
| 1aba0 | 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30 31 01 21 5c 32 30 37 5c 32 | #[257."\300.!\203\n.\301.!\207\2 |
| 1abc0 | 31 31 43 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 63 6f 6e 73 2d 74 6f 2d | 11C\207".[-cons-pair\?.-cons-to- |
| 1abe0 | 6c 69 73 74 5d 20 33 20 28 23 24 20 2e 20 31 30 39 32 35 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f | list].3.(#$...109254)]).(byte-co |
| 1ac00 | 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 30 | de."\300\301\302\303#\300\301\30 |
| 1ac20 | 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 76 | 4\303#\300\207".[function-put.-v |
| 1ac40 | 61 6c 75 65 2d 74 6f 2d 6c 69 73 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | alue-to-list.pure.t.side-effect- |
| 1ac60 | 66 72 65 65 5d 20 35 29 0a 23 40 34 32 33 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 | free].5).#@423.Apply.FN.to.each. |
| 1ac80 | 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45 2c 20 61 6e 64 20 6d 61 6b 65 20 61 20 6c 69 73 74 | element.of.TREE,.and.make.a.list |
| 1aca0 | 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 | .of.the.results..If.elements.of. |
| 1acc0 | 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 |
| 1ace0 | 20 46 4e 20 72 65 63 75 72 73 69 76 65 6c 79 20 74 6f 0a 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 | .FN.recursively.to.elements.of.t |
| 1ad00 | 68 65 73 65 20 6e 65 73 74 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 6e 20 72 65 64 75 63 65 20 | hese.nested.lists...Then.reduce. |
| 1ad20 | 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 74 73 20 75 73 69 6e 67 20 46 4f 4c 44 45 52 | the.resulting.lists.using.FOLDER |
| 1ad40 | 20 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 0a 49 4e 49 54 2d 56 41 4c 55 45 2e 20 53 | .and.initial.value.INIT-VALUE..S |
| 1ad60 | 65 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 | ee.`-reduce-r-from'...This.is.th |
| 1ad80 | 65 20 73 61 6d 65 20 61 73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 2d | e.same.as.calling.`-tree-reduce- |
| 1ada0 | 66 72 6f 6d 27 20 61 66 74 65 72 20 60 2d 74 72 65 65 2d 6d 61 70 27 0a 62 75 74 20 69 73 20 74 | from'.after.`-tree-map'.but.is.t |
| 1adc0 | 77 69 63 65 20 61 73 20 66 61 73 74 20 61 73 20 69 74 20 6f 6e 6c 79 20 74 72 61 76 65 72 73 65 | wice.as.fast.as.it.only.traverse |
| 1ade0 | 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 6f 6e 63 65 2e 0a 0a 28 66 6e 20 46 4e 20 46 4f 4c | .the.structure.once...(fn.FN.FOL |
| 1ae00 | 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 20 | DER.INIT-VALUE.TREE)..(defalias. |
| 1ae20 | 27 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 23 5b 31 30 32 38 20 22 5c 32 | '-tree-mapreduce-from.#[1028."\2 |
| 1ae40 | 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 03 01 21 5c | 11\204..\300\207\301.!\203....!\ |
| 1ae60 | 32 30 37 5c 32 31 31 3c 5c 32 30 33 2e 00 5c 33 30 32 03 03 5c 33 30 33 5c 33 30 34 5c 33 30 35 | 207\211<\203..\302..\303\304\305 |
| 1ae80 | 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 5c 66 06 5c 66 06 5c 66 23 5c 33 31 31 5c 22 5c 33 31 32 | \306\307\310.\f.\f.\f#\311\"\312 |
| 1aea0 | 5c 33 31 33 25 05 5c 22 23 5c 32 30 37 03 01 21 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 | \313%.\"#\207..!\207".[nil.-cons |
| 1aec0 | 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 63 61 72 20 6d 61 | -pair\?.-reduce-r-from.mapcar.ma |
| 1aee0 | 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 33 5c 33 30 30 5c 33 30 31 5c 33 | ke-byte-code.257."\303\300\301\3 |
| 1af00 | 30 32 04 24 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d | 02.$\207".vconcat.vector.[-tree- |
| 1af20 | 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 | mapreduce-from].6."\n\n(fn.X)"]. |
| 1af40 | 31 36 20 28 23 24 20 2e 20 31 30 39 36 37 39 29 5d 29 0a 23 40 37 37 20 41 6e 61 70 68 6f 72 69 | 16.(#$...109679)]).#@77.Anaphori |
| 1af60 | 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 27 | c.form.of.`-tree-mapreduce-from' |
| 1af80 | 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 46 4f 4c 44 45 52 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 | ...(fn.FORM.FOLDER.INIT-VALUE.TR |
| 1afa0 | 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 | EE)..(defalias.'--tree-mapreduce |
| 1afc0 | 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 30 32 38 20 22 5c 33 30 30 5c 33 30 31 | -from.'(macro...#[1028."\300\301 |
| 1afe0 | 5c 33 30 32 06 06 45 5c 33 30 31 5c 33 30 33 06 06 45 04 04 5c 32 35 37 05 5c 32 30 37 22 20 5b | \302..E\301\303..E..\257.\207".[ |
| 1b000 | 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 20 28 69 74 29 | -tree-mapreduce-from.lambda.(it) |
| 1b020 | 20 28 69 74 20 61 63 63 29 5d 20 39 20 28 23 24 20 2e 20 31 31 30 34 32 34 29 5d 29 29 0a 28 70 | .(it.acc)].9.(#$...110424)])).(p |
| 1b040 | 75 74 20 27 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65 64 65 62 75 | ut.'--tree-mapreduce-from.'edebu |
| 1b060 | 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 | g-form-spec.'(def-form.def-form. |
| 1b080 | 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 34 30 37 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 | form.form)).#@407.Apply.FN.to.ea |
| 1b0a0 | 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 45 45 2c 20 61 6e 64 20 6d 61 6b 65 20 61 20 6c | ch.element.of.TREE,.and.make.a.l |
| 1b0c0 | 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 | ist.of.the.results..If.elements. |
| 1b0e0 | 6f 66 20 54 52 45 45 20 61 72 65 20 6c 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73 2c 20 61 70 | of.TREE.are.lists.themselves,.ap |
| 1b100 | 70 6c 79 20 46 4e 20 72 65 63 75 72 73 69 76 65 6c 79 20 74 6f 0a 65 6c 65 6d 65 6e 74 73 20 6f | ply.FN.recursively.to.elements.o |
| 1b120 | 66 20 74 68 65 73 65 20 6e 65 73 74 65 64 20 6c 69 73 74 73 2e 0a 0a 54 68 65 6e 20 72 65 64 75 | f.these.nested.lists...Then.redu |
| 1b140 | 63 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 74 73 20 75 73 69 6e 67 20 46 4f 4c | ce.the.resulting.lists.using.FOL |
| 1b160 | 44 45 52 20 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 0a 49 4e 49 54 2d 56 41 4c 55 45 | DER.and.initial.value.INIT-VALUE |
| 1b180 | 2e 20 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 27 2e 0a 0a 54 68 69 73 20 69 73 | ..See.`-reduce-r-from'...This.is |
| 1b1a0 | 20 74 68 65 20 73 61 6d 65 20 61 73 20 63 61 6c 6c 69 6e 67 20 60 2d 74 72 65 65 2d 72 65 64 75 | .the.same.as.calling.`-tree-redu |
| 1b1c0 | 63 65 27 20 61 66 74 65 72 20 60 2d 74 72 65 65 2d 6d 61 70 27 0a 62 75 74 20 69 73 20 74 77 69 | ce'.after.`-tree-map'.but.is.twi |
| 1b1e0 | 63 65 20 61 73 20 66 61 73 74 20 61 73 20 69 74 20 6f 6e 6c 79 20 74 72 61 76 65 72 73 65 20 74 | ce.as.fast.as.it.only.traverse.t |
| 1b200 | 68 65 20 73 74 72 75 63 74 75 72 65 20 6f 6e 63 65 2e 0a 0a 28 66 6e 20 46 4e 20 46 4f 4c 44 45 | he.structure.once...(fn.FN.FOLDE |
| 1b220 | 52 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 | R.TREE)..(defalias.'-tree-mapred |
| 1b240 | 75 63 65 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 | uce.#[771."\211\204..\300\207\30 |
| 1b260 | 31 01 21 5c 32 30 33 10 00 02 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 2b 00 5c 33 30 32 02 | 1.!\203....!\207\211<\203+.\302. |
| 1b280 | 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 5c 6e 06 5c 6e 5c 22 | \303\304\305\306\307\310.\n.\n\" |
| 1b2a0 | 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 04 5c 22 5c 22 5c 32 30 37 02 01 21 5c 32 30 37 22 | \311\"\312\313%.\"\"\207..!\207" |
| 1b2c0 | 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 65 2d 72 20 6d 61 70 | .[nil.-cons-pair\?.-reduce-r.map |
| 1b2e0 | 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 5c 33 30 30 | car.make-byte-code.257."\302\300 |
| 1b300 | 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 | \301.#\207".vconcat.vector.[-tre |
| 1b320 | 65 2d 6d 61 70 72 65 64 75 63 65 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 33 20 | e-mapreduce].5."\n\n(fn.X)"].13. |
| 1b340 | 28 23 24 20 2e 20 31 31 30 37 33 38 29 5d 29 0a 23 40 36 31 20 41 6e 61 70 68 6f 72 69 63 20 66 | (#$...110738)]).#@61.Anaphoric.f |
| 1b360 | 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 27 2e 0a 0a 28 66 6e 20 46 | orm.of.`-tree-mapreduce'...(fn.F |
| 1b380 | 4f 52 4d 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 2d 74 | ORM.FOLDER.TREE)..(defalias.'--t |
| 1b3a0 | 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 37 37 31 20 22 5c | ree-mapreduce.'(macro...#[771."\ |
| 1b3c0 | 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 03 46 5c 32 30 37 22 20 5b | 300\301\302.E\301\303.E.F\207".[ |
| 1b3e0 | 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 20 6c 61 6d 62 64 61 20 28 69 74 29 20 28 69 74 20 | -tree-mapreduce.lambda.(it).(it. |
| 1b400 | 61 63 63 29 5d 20 38 20 28 23 24 20 2e 20 31 31 31 34 34 35 29 5d 29 29 0a 28 70 75 74 20 27 2d | acc)].8.(#$...111445)])).(put.'- |
| 1b420 | 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 6f 72 6d 2d 73 70 65 | -tree-mapreduce.'edebug-form-spe |
| 1b440 | 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 38 | c.'(def-form.def-form.form)).#@8 |
| 1b460 | 35 20 41 70 70 6c 79 20 46 4e 20 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 54 52 | 5.Apply.FN.to.each.element.of.TR |
| 1b480 | 45 45 20 77 68 69 6c 65 20 70 72 65 73 65 72 76 69 6e 67 20 74 68 65 20 74 72 65 65 20 73 74 72 | EE.while.preserving.the.tree.str |
| 1b4a0 | 75 63 74 75 72 65 2e 0a 0a 28 66 6e 20 46 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 | ucture...(fn.FN.TREE)..(defalias |
| 1b4c0 | 20 27 2d 74 72 65 65 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 | .'-tree-map.#[514."\211\204..\30 |
| 1b4e0 | 30 5c 32 30 37 5c 33 30 31 01 21 5c 32 30 33 10 00 01 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 | 0\207\301.!\203....!\207\211<\20 |
| 1b500 | 33 26 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 07 21 5c 33 | 3&.\302\303\304\305\306\307..!\3 |
| 1b520 | 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 02 5c 22 5c 32 30 37 01 01 21 5c 32 30 37 22 20 5b 6e 69 | 10\"\311\312%.\"\207..!\207".[ni |
| 1b540 | 6c 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d | l.-cons-pair\?.mapcar.make-byte- |
| 1b560 | 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 63 6f 6e 63 | code.257."\301\300.\"\207".vconc |
| 1b580 | 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e | at.vector.[-tree-map].4."\n\n(fn |
| 1b5a0 | 20 58 29 22 5d 20 39 20 28 23 24 20 2e 20 31 31 31 37 31 34 29 5d 29 0a 23 40 34 38 20 41 6e 61 | .X)"].9.(#$...111714)]).#@48.Ana |
| 1b5c0 | 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 6d 61 70 27 2e 0a 0a 28 66 6e | phoric.form.of.`-tree-map'...(fn |
| 1b5e0 | 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 2d 74 72 65 65 2d 6d | .FORM.TREE)..(defalias.'--tree-m |
| 1b600 | 61 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | ap.'(macro...#[514."\300\301\302 |
| 1b620 | 04 45 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 20 6c 61 6d 62 64 61 20 28 69 74 29 | .E.E\207".[-tree-map.lambda.(it) |
| 1b640 | 5d 20 36 20 28 23 24 20 2e 20 31 31 32 30 36 31 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 | ].6.(#$...112061)])).(put.'--tre |
| 1b660 | 65 2d 6d 61 70 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f | e-map.'edebug-form-spec.'(def-fo |
| 1b680 | 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 34 36 20 55 73 65 20 46 4e 20 74 6f 20 72 65 64 75 63 65 | rm.form)).#@346.Use.FN.to.reduce |
| 1b6a0 | 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 6d 65 | .elements.of.list.TREE..If.eleme |
| 1b6c0 | 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 65 73 | nts.of.TREE.are.lists.themselves |
| 1b6e0 | 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 65 6c | ,.apply.the.reduction.recursivel |
| 1b700 | 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 49 4e 49 54 2d | y...FN.is.first.applied.to.INIT- |
| 1b720 | 56 41 4c 55 45 20 61 6e 64 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c | VALUE.and.first.element.of.the.l |
| 1b740 | 69 73 74 2c 0a 74 68 65 6e 20 6f 6e 20 74 68 69 73 20 72 65 73 75 6c 74 20 61 6e 64 20 73 65 63 | ist,.then.on.this.result.and.sec |
| 1b760 | 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 6c 69 73 74 20 65 74 63 2e 0a 0a | ond.element.from.the.list.etc... |
| 1b780 | 54 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 69 73 20 69 67 6e 6f 72 65 64 20 6f 6e 20 | The.initial.value.is.ignored.on. |
| 1b7a0 | 63 6f 6e 73 20 70 61 69 72 73 20 61 73 20 74 68 65 79 20 61 6c 77 61 79 73 20 63 6f 6e 74 61 69 | cons.pairs.as.they.always.contai |
| 1b7c0 | 6e 0a 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 28 66 6e 20 46 4e 20 49 4e 49 54 2d 56 41 4c | n.two.elements...(fn.FN.INIT-VAL |
| 1b7e0 | 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 72 65 64 75 63 | UE.TREE)..(defalias.'-tree-reduc |
| 1b800 | 65 2d 66 72 6f 6d 20 23 5b 37 37 31 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 | e-from.#[771."\211\204..\300\207 |
| 1b820 | 5c 33 30 31 01 21 5c 32 30 33 0d 00 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 29 00 5c 33 30 32 03 | \301.!\203..\207\211<\203).\302. |
| 1b840 | 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 0b 06 0b 5c 22 5c | .\303\304\305\306\307\310....\"\ |
| 1b860 | 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 05 5c 22 23 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c | 311\"\312\313%.\"#\207\207".[nil |
| 1b880 | 20 2d 63 6f 6e 73 2d 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 2d 66 72 6f 6d 20 6d 61 70 | .-cons-pair\?.-reduce-r-from.map |
| 1b8a0 | 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 5c 33 30 30 | car.make-byte-code.257."\302\300 |
| 1b8c0 | 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 | \301.#\207".vconcat.vector.[-tre |
| 1b8e0 | 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 | e-reduce-from].5."\n\n(fn.X)"].1 |
| 1b900 | 34 20 28 23 24 20 2e 20 31 31 32 32 37 32 29 5d 29 0a 23 40 36 37 20 41 6e 61 70 68 6f 72 69 63 | 4.(#$...112272)]).#@67.Anaphoric |
| 1b920 | 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 27 2e 0a 0a 28 | .form.of.`-tree-reduce-from'...( |
| 1b940 | 66 6e 20 46 4f 52 4d 20 49 4e 49 54 2d 56 41 4c 55 45 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c | fn.FORM.INIT-VALUE.TREE)..(defal |
| 1b960 | 69 61 73 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 28 6d 61 63 72 6f 20 | ias.'--tree-reduce-from.'(macro. |
| 1b980 | 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 20 | ..#[771."\300\301\302.E..F\207". |
| 1b9a0 | 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 6c 61 6d 62 64 61 20 28 69 74 20 61 63 | [-tree-reduce-from.lambda.(it.ac |
| 1b9c0 | 63 29 5d 20 37 20 28 23 24 20 2e 20 31 31 32 39 31 39 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 | c)].7.(#$...112919)])).(put.'--t |
| 1b9e0 | 72 65 65 2d 72 65 64 75 63 65 2d 66 72 6f 6d 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | ree-reduce-from.'edebug-form-spe |
| 1ba00 | 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 33 33 32 20 55 | c.'(def-form.form.form)).#@332.U |
| 1ba20 | 73 65 20 46 4e 20 74 6f 20 72 65 64 75 63 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 6c 69 73 74 | se.FN.to.reduce.elements.of.list |
| 1ba40 | 20 54 52 45 45 2e 0a 49 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 54 52 45 45 20 61 72 65 20 6c | .TREE..If.elements.of.TREE.are.l |
| 1ba60 | 69 73 74 73 20 74 68 65 6d 73 65 6c 76 65 73 2c 20 61 70 70 6c 79 20 74 68 65 20 72 65 64 75 63 | ists.themselves,.apply.the.reduc |
| 1ba80 | 74 69 6f 6e 20 72 65 63 75 72 73 69 76 65 6c 79 2e 0a 0a 46 4e 20 69 73 20 66 69 72 73 74 20 61 | tion.recursively...FN.is.first.a |
| 1baa0 | 70 70 6c 69 65 64 20 74 6f 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c | pplied.to.first.element.of.the.l |
| 1bac0 | 69 73 74 20 61 6e 64 20 73 65 63 6f 6e 64 0a 65 6c 65 6d 65 6e 74 2c 20 74 68 65 6e 20 6f 6e 20 | ist.and.second.element,.then.on. |
| 1bae0 | 74 68 69 73 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 69 72 64 20 65 6c 65 6d 65 6e 74 20 66 72 | this.result.and.third.element.fr |
| 1bb00 | 6f 6d 20 74 68 65 20 6c 69 73 74 20 65 74 63 2e 0a 0a 53 65 65 20 60 2d 72 65 64 75 63 65 2d 72 | om.the.list.etc...See.`-reduce-r |
| 1bb20 | 27 20 66 6f 72 20 68 6f 77 20 65 78 61 63 74 6c 79 20 61 72 65 20 6c 69 73 74 73 20 6f 66 20 7a | '.for.how.exactly.are.lists.of.z |
| 1bb40 | 65 72 6f 20 6f 72 20 6f 6e 65 20 65 6c 65 6d 65 6e 74 20 68 61 6e 64 6c 65 64 2e 0a 0a 28 66 6e | ero.or.one.element.handled...(fn |
| 1bb60 | 20 46 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 74 72 65 65 2d 72 65 64 75 | .FN.TREE)..(defalias.'-tree-redu |
| 1bb80 | 63 65 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 34 06 00 5c 33 30 30 5c 32 30 37 5c 33 30 31 | ce.#[514."\211\204..\300\207\301 |
| 1bba0 | 01 21 5c 32 30 33 0d 00 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 26 00 5c 33 30 32 02 5c 33 30 33 | .!\203..\207\211<\203&.\302.\303 |
| 1bbc0 | 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 09 21 5c 33 31 31 5c 22 5c 33 31 | \304\305\306\307\310..!\311\"\31 |
| 1bbe0 | 32 5c 33 31 33 25 04 5c 22 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 6e 69 6c 20 2d 63 6f 6e 73 2d | 2\313%.\"\"\207\207".[nil.-cons- |
| 1bc00 | 70 61 69 72 5c 3f 20 2d 72 65 64 75 63 65 2d 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 | pair\?.-reduce-r.mapcar.make-byt |
| 1bc20 | 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 63 6f | e-code.257."\301\300.\"\207".vco |
| 1bc40 | 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 74 72 65 65 2d 72 65 64 75 63 65 5d 20 34 20 22 5c 6e | ncat.vector.[-tree-reduce].4."\n |
| 1bc60 | 5c 6e 28 66 6e 20 58 29 22 5d 20 31 31 20 28 23 24 20 2e 20 31 31 33 31 38 33 29 5d 29 0a 23 40 | \n(fn.X)"].11.(#$...113183)]).#@ |
| 1bc80 | 35 31 20 41 6e 61 70 68 6f 72 69 63 20 66 6f 72 6d 20 6f 66 20 60 2d 74 72 65 65 2d 72 65 64 75 | 51.Anaphoric.form.of.`-tree-redu |
| 1bca0 | 63 65 27 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | ce'...(fn.FORM.TREE)..(defalias. |
| 1bcc0 | 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 | '--tree-reduce.'(macro...#[514." |
| 1bce0 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 2d 74 72 65 65 2d 72 65 64 | \300\301\302.E.E\207".[-tree-red |
| 1bd00 | 75 63 65 20 6c 61 6d 62 64 61 20 28 69 74 20 61 63 63 29 5d 20 36 20 28 23 24 20 2e 20 31 31 33 | uce.lambda.(it.acc)].6.(#$...113 |
| 1bd20 | 37 39 35 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d 74 72 65 65 2d 72 65 64 75 63 65 20 27 65 64 65 | 795)])).(put.'--tree-reduce.'ede |
| 1bd40 | 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a | bug-form-spec.'(def-form.form)). |
| 1bd60 | 23 40 32 30 37 20 43 61 6c 6c 20 46 55 4e 20 6f 6e 20 65 61 63 68 20 6e 6f 64 65 20 6f 66 20 54 | #@207.Call.FUN.on.each.node.of.T |
| 1bd80 | 52 45 45 20 74 68 61 74 20 73 61 74 69 73 66 69 65 73 20 50 52 45 44 2e 0a 0a 49 66 20 50 52 45 | REE.that.satisfies.PRED...If.PRE |
| 1bda0 | 44 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 63 6f 6e 74 69 6e 75 65 20 64 65 73 63 65 6e 64 69 | D.returns.nil,.continue.descendi |
| 1bdc0 | 6e 67 20 64 6f 77 6e 20 74 68 69 73 20 6e 6f 64 65 2e 20 20 49 66 20 50 52 45 44 0a 72 65 74 75 | ng.down.this.node...If.PRED.retu |
| 1bde0 | 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 70 70 6c 79 20 46 55 4e 20 74 6f 20 74 68 69 73 20 6e | rns.non-nil,.apply.FUN.to.this.n |
| 1be00 | 6f 64 65 20 61 6e 64 20 64 6f 20 6e 6f 74 20 64 65 73 63 65 6e 64 0a 66 75 72 74 68 65 72 2e 0a | ode.and.do.not.descend.further.. |
| 1be20 | 0a 28 66 6e 20 50 52 45 44 20 46 55 4e 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | .(fn.PRED.FUN.TREE)..(defalias.' |
| 1be40 | 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 23 5b 37 37 31 20 22 02 01 21 5c 32 30 33 5c 6e | -tree-map-nodes.#[771."..!\203\n |
| 1be60 | 00 01 01 21 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 28 00 5c 33 30 30 01 21 5c 32 30 34 28 00 5c | ...!\207\211<\203(.\300.!\204(.\ |
| 1be80 | 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 08 06 08 5c 22 5c 33 30 | 301\302\303\304\305\306....\"\30 |
| 1bea0 | 37 5c 22 5c 33 31 30 5c 33 31 31 25 02 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 2d 63 6f 6e 73 2d | 7\"\310\311%.\"\207\207".[-cons- |
| 1bec0 | 70 61 69 72 5c 3f 20 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 | pair\?.-map.make-byte-code.257." |
| 1bee0 | 5c 33 30 32 5c 33 30 30 5c 33 30 31 03 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 | \302\300\301.#\207".vconcat.vect |
| 1bf00 | 6f 72 20 5b 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 | or.[-tree-map-nodes].5."\n\n(fn. |
| 1bf20 | 58 29 22 5d 20 31 31 20 28 23 24 20 2e 20 31 31 34 30 32 32 29 5d 29 0a 23 40 35 39 20 41 6e 61 | X)"].11.(#$...114022)]).#@59.Ana |
| 1bf40 | 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 2d 6e 6f 64 65 73 27 | phoric.form.of.`-tree-map-nodes' |
| 1bf60 | 2e 0a 0a 28 66 6e 20 50 52 45 44 20 46 4f 52 4d 20 54 52 45 45 29 1f 0a 28 64 65 66 61 6c 69 61 | ...(fn.PRED.FORM.TREE)..(defalia |
| 1bf80 | 73 20 27 2d 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b | s.'--tree-map-nodes.'(macro...#[ |
| 1bfa0 | 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 46 5c | 771."\300\301\302.E\301\303.E.F\ |
| 1bfc0 | 32 30 37 22 20 5b 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 6c 61 6d 62 64 61 20 28 69 74 | 207".[-tree-map-nodes.lambda.(it |
| 1bfe0 | 29 20 28 69 74 29 5d 20 38 20 28 23 24 20 2e 20 31 31 34 34 39 33 29 5d 29 29 0a 28 70 75 74 20 | ).(it)].8.(#$...114493)])).(put. |
| 1c000 | 27 2d 2d 74 72 65 65 2d 6d 61 70 2d 6e 6f 64 65 73 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | '--tree-map-nodes.'edebug-form-s |
| 1c020 | 70 65 63 20 27 28 64 65 66 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 | pec.'(def-form.def-form.form)).# |
| 1c040 | 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 20 74 68 65 20 6e 6f | @363.Return.a.sequence.of.the.no |
| 1c060 | 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 73 74 20 73 65 61 72 | des.in.TREE,.in.depth-first.sear |
| 1c080 | 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 65 64 69 63 61 74 65 | ch.order...BRANCH.is.a.predicate |
| 1c0a0 | 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 6e 6f | .of.one.argument.that.returns.no |
| 1c0c0 | 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 65 6e 74 20 69 73 20 | n-nil.if.the.passed.argument.is. |
| 1c0e0 | 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 20 74 68 61 74 20 63 | a.branch,.that.is,.a.node.that.c |
| 1c100 | 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 45 4e 20 69 73 20 61 | an.have.children...CHILDREN.is.a |
| 1c120 | 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 20 74 68 61 74 20 72 | .function.of.one.argument.that.r |
| 1c140 | 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 65 20 70 61 73 73 65 | eturns.the.children.of.the.passe |
| 1c160 | 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 68 20 6e 6f 64 65 73 | d.branch.node...Non-branch.nodes |
| 1c180 | 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 42 52 41 4e 43 48 20 | .are.simply.copied...(fn.BRANCH. |
| 1c1a0 | 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 20 27 2d 74 72 65 65 | CHILDREN.TREE)..(defalias.'-tree |
| 1c1c0 | 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 5c 33 30 30 5c 33 30 | -seq.#[771."\211..!\205..\300\30 |
| 1c1e0 | 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 30 36 5c 22 5c 33 30 | 1\302\303\304\305....\"\306\"\30 |
| 1c200 | 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 74 20 6d 61 6b 65 2d | 7\310%..!\"B\207".[-mapcat.make- |
| 1c220 | 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 32 30 | byte-code.257."\302\300\301.#\20 |
| 1c240 | 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 73 65 71 5d 20 35 20 | 7".vconcat.vector.[-tree-seq].5. |
| 1c260 | 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 31 32 20 28 23 24 20 2e 20 31 31 34 37 35 37 29 5d 29 | "\n\n(fn.X)"].12.(#$...114757)]) |
| 1c280 | 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 65 2d 73 | .#@59.Anaphoric.form.of.`-tree-s |
| 1c2a0 | 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 54 52 45 45 29 1f | eq'...(fn.BRANCH.CHILDREN.TREE). |
| 1c2c0 | 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 61 63 72 6f 20 2e | .(defalias.'--tree-seq.'(macro.. |
| 1c2e0 | 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 05 45 5c 33 30 31 5c 33 30 33 05 45 | .#[771."\300\301\302.E\301\303.E |
| 1c300 | 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 28 69 74 29 20 28 | .F\207".[-tree-seq.lambda.(it).( |
| 1c320 | 69 74 29 5d 20 38 20 28 23 24 20 2e 20 31 31 35 33 33 34 29 5d 29 29 0a 28 70 75 74 20 27 2d 2d | it)].8.(#$...115334)])).(put.'-- |
| 1c340 | 74 72 65 65 2d 73 65 71 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 64 65 66 | tree-seq.'edebug-form-spec.'(def |
| 1c360 | 2d 66 6f 72 6d 20 64 65 66 2d 66 6f 72 6d 20 66 6f 72 6d 29 29 0a 23 40 32 30 35 20 43 72 65 61 | -form.def-form.form)).#@205.Crea |
| 1c380 | 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 68 65 20 6e 65 77 20 | te.a.deep.copy.of.LIST..The.new. |
| 1c3a0 | 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 73 20 61 6e 64 20 73 | list.has.the.same.elements.and.s |
| 1c3c0 | 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 0a 72 65 70 6c 61 63 | tructure.but.all.cons.are.replac |
| 1c3e0 | 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 73 20 75 73 65 66 75 | ed.with.new.ones...This.is.usefu |
| 1c400 | 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 61 0a 73 74 72 75 63 | l.when.you.need.to.clone.a.struc |
| 1c420 | 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 73 74 2e 0a 0a 28 66 | ture.such.as.plist.or.alist...(f |
| 1c440 | 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 65 20 23 5b 32 35 37 | n.LIST)..(defalias.'-clone.#[257 |
| 1c460 | 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 2d 6d 61 70 20 69 64 | ."\300\301.\"\207".[-tree-map.id |
| 1c480 | 65 6e 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 31 31 35 35 38 30 29 5d 29 0a 28 62 79 74 65 2d | entity].4.(#$...115580)]).(byte- |
| 1c4a0 | 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\ |
| 1c4c0 | 33 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e | 304\303#\305\306\307\"\207".[fun |
| 1c4e0 | 63 74 69 6f 6e 2d 70 75 74 20 2d 63 6c 6f 6e 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 | ction-put.-clone.pure.t.side-eff |
| 1c500 | 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 2d 70 61 72 74 69 61 6c 20 61 70 70 6c 79 | ect-free.defalias.-partial.apply |
| 1c520 | 2d 70 61 72 74 69 61 6c 6c 79 5d 20 35 29 0a 23 40 33 39 32 20 52 65 74 75 72 6e 20 61 20 66 75 | -partially].5).#@392.Return.a.fu |
| 1c540 | 6e 63 74 69 6f 6e 20 74 68 61 74 20 69 73 20 61 20 70 61 72 74 69 61 6c 20 61 70 70 6c 69 63 61 | nction.that.is.a.partial.applica |
| 1c560 | 74 69 6f 6e 20 6f 66 20 46 4e 20 74 6f 20 41 52 47 53 2e 0a 41 52 47 53 20 69 73 20 61 20 6c 69 | tion.of.FN.to.ARGS..ARGS.is.a.li |
| 1c580 | 73 74 20 6f 66 20 74 68 65 20 6c 61 73 74 20 4e 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 70 61 | st.of.the.last.N.arguments.to.pa |
| 1c5a0 | 73 73 20 74 6f 20 46 4e 2e 20 20 54 68 65 20 72 65 73 75 6c 74 0a 69 73 20 61 20 6e 65 77 20 66 | ss.to.FN...The.result.is.a.new.f |
| 1c5c0 | 75 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 64 6f 65 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 46 | unction.which.does.the.same.as.F |
| 1c5e0 | 4e 2c 20 65 78 63 65 70 74 20 74 68 61 74 20 74 68 65 20 6c 61 73 74 0a 4e 20 61 72 67 75 6d 65 | N,.except.that.the.last.N.argume |
| 1c600 | 6e 74 73 20 61 72 65 20 66 69 78 65 64 20 61 74 20 74 68 65 20 76 61 6c 75 65 73 20 77 69 74 68 | nts.are.fixed.at.the.values.with |
| 1c620 | 20 77 68 69 63 68 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 61 73 0a 63 61 6c 6c 65 64 2e | .which.this.function.was.called. |
| 1c640 | 20 20 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 2d 70 61 72 74 69 61 6c 27 2c 20 65 78 63 65 70 | ..This.is.like.`-partial',.excep |
| 1c660 | 74 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 66 69 78 65 64 0a 73 74 61 72 74 69 | t.the.arguments.are.fixed.starti |
| 1c680 | 6e 67 20 66 72 6f 6d 20 74 68 65 20 72 69 67 68 74 20 72 61 74 68 65 72 20 74 68 61 6e 20 74 68 | ng.from.the.right.rather.than.th |
| 1c6a0 | 65 20 6c 65 66 74 2e 0a 0a 28 66 6e 20 46 4e 20 26 72 65 73 74 20 41 52 47 53 29 1f 0a 28 64 65 | e.left...(fn.FN.&rest.ARGS)..(de |
| 1c6c0 | 66 61 6c 69 61 73 20 27 2d 72 70 61 72 74 69 61 6c 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 | falias.'-rpartial.#[385."\300\30 |
| 1c6e0 | 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 06 06 5c 22 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 | 1\302\303\304....\"\305\"\306\30 |
| 1c700 | 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 31 32 38 20 22 5c 33 30 | 7%\207".[make-byte-code.128."\30 |
| 1c720 | 32 5c 33 30 30 5c 33 30 33 03 5c 33 30 31 5c 22 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 | 2\300\303.\301\"\"\207".vconcat. |
| 1c740 | 76 65 63 74 6f 72 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e | vector.[apply.append].6."\n\n(fn |
| 1c760 | 20 26 72 65 73 74 20 41 52 47 53 2d 42 45 46 4f 52 45 29 22 5d 20 39 20 28 23 24 20 2e 20 31 31 | .&rest.ARGS-BEFORE)"].9.(#$...11 |
| 1c780 | 36 30 32 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | 6021)]).(byte-code."\300\301\302 |
| 1c7a0 | 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 20 | \303#\300\301\304\303#\300\207". |
| 1c7c0 | 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 72 70 61 72 74 69 61 6c 20 70 75 72 65 20 74 20 73 | [function-put.-rpartial.pure.t.s |
| 1c7e0 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 39 34 20 52 65 74 75 72 6e | ide-effect-free].5).#@194.Return |
| 1c800 | 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 69 73 20 74 68 65 20 6a 75 78 74 61 70 6f 73 | .a.function.that.is.the.juxtapos |
| 1c820 | 69 74 69 6f 6e 20 6f 66 20 46 4e 53 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 | ition.of.FNS..The.returned.funct |
| 1c840 | 69 6f 6e 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 41 | ion.takes.a.variable.number.of.A |
| 1c860 | 52 47 53 2c 20 61 70 70 6c 69 65 73 0a 65 61 63 68 20 6f 66 20 46 4e 53 20 69 6e 20 74 75 72 6e | RGS,.applies.each.of.FNS.in.turn |
| 1c880 | 20 74 6f 20 41 52 47 53 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 6c 69 73 74 20 6f | .to.ARGS,.and.returns.the.list.o |
| 1c8a0 | 66 20 72 65 73 75 6c 74 73 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 46 4e 53 29 1f 0a 28 64 65 66 | f.results...(fn.&rest.FNS)..(def |
| 1c8c0 | 61 6c 69 61 73 20 27 2d 6a 75 78 74 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | alias.'-juxt.#[128."\300\301\302 |
| 1c8e0 | 5c 33 30 33 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b | \303\304.!\305\"\306\307%\207".[ |
| 1c900 | 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 31 32 38 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 | make-byte-code.128."\301\302\303 |
| 1c920 | 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 5c 33 31 31 25 5c 33 | \304\305\306..!\307\"\310\311%\3 |
| 1c940 | 30 30 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6d 61 70 63 61 72 | 00\"\207".vconcat.vector.[mapcar |
| 1c960 | 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 01 5c 33 30 30 5c 22 | .make-byte-code.257."\301.\300\" |
| 1c980 | 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 61 70 70 6c 79 5d 20 34 20 22 | \207".vconcat.vector.[apply].4." |
| 1c9a0 | 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 | \n\n(fn.X)"].8."\n\n(fn.&rest.AR |
| 1c9c0 | 47 53 29 22 5d 20 37 20 28 23 24 20 2e 20 31 31 36 37 33 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f | GS)"].7.(#$...116730)]).(byte-co |
| 1c9e0 | 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 30 | de."\300\301\302\303#\300\301\30 |
| 1ca00 | 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 6a | 4\303#\300\207".[function-put.-j |
| 1ca20 | 75 78 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 | uxt.pure.t.side-effect-free].5). |
| 1ca40 | 23 40 33 33 35 20 43 6f 6d 70 6f 73 65 20 46 4e 53 20 69 6e 74 6f 20 61 20 73 69 6e 67 6c 65 20 | #@335.Compose.FNS.into.a.single. |
| 1ca60 | 63 6f 6d 70 6f 73 69 74 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 52 65 74 75 72 6e 20 61 20 66 75 6e | composite.function..Return.a.fun |
| 1ca80 | 63 74 69 6f 6e 20 74 68 61 74 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 | ction.that.takes.a.variable.numb |
| 1caa0 | 65 72 20 6f 66 20 41 52 47 53 2c 20 61 70 70 6c 69 65 73 0a 74 68 65 20 6c 61 73 74 20 66 75 6e | er.of.ARGS,.applies.the.last.fun |
| 1cac0 | 63 74 69 6f 6e 20 69 6e 20 46 4e 53 20 74 6f 20 41 52 47 53 2c 20 61 6e 64 20 72 65 74 75 72 6e | ction.in.FNS.to.ARGS,.and.return |
| 1cae0 | 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 0a 63 61 6c 6c 69 6e 67 20 65 61 63 68 20 72 65 6d | s.the.result.of.calling.each.rem |
| 1cb00 | 61 69 6e 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 | aining.function.on.the.result.of |
| 1cb20 | 20 74 68 65 20 70 72 65 76 69 6f 75 73 0a 66 75 6e 63 74 69 6f 6e 2c 20 72 69 67 68 74 2d 74 6f | .the.previous.function,.right-to |
| 1cb40 | 2d 6c 65 66 74 2e 20 20 49 66 20 6e 6f 20 46 4e 53 20 61 72 65 20 67 69 76 65 6e 2c 20 72 65 74 | -left...If.no.FNS.are.given,.ret |
| 1cb60 | 75 72 6e 20 61 20 76 61 72 69 61 64 69 63 0a 60 69 64 65 6e 74 69 74 79 27 20 66 75 6e 63 74 69 | urn.a.variadic.`identity'.functi |
| 1cb80 | 6f 6e 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 46 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | on...(fn.&rest.FNS)..(defalias.' |
| 1cba0 | 2d 63 6f 6d 70 6f 73 65 20 23 5b 31 32 38 20 22 5c 32 31 31 5c 32 33 37 5c 32 31 31 40 01 41 5c | -compose.#[128."\211\237\211@.A\ |
| 1cbc0 | 32 31 31 5c 32 30 33 1c 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 06 | 211\203..\300\301\302\303\304... |
| 1cbe0 | 06 5c 22 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 32 25 00 02 5c 32 30 33 24 00 01 | .\"\305\"\306\307%\202%..\203$.. |
| 1cc00 | 5c 32 30 32 25 00 5c 33 31 30 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 | \202%.\310\207".[make-byte-code. |
| 1cc20 | 31 32 38 20 22 5c 33 30 32 5c 33 30 30 02 5c 22 5c 33 30 31 5c 33 30 33 5c 33 30 34 5c 32 31 31 | 128."\302\300.\"\301\303\304\211 |
| 1cc40 | 03 5c 32 30 33 23 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 | .\203#..\211A\262.\242\262..\262 |
| 1cc60 | 01 02 54 5c 32 36 32 03 01 05 21 5c 32 36 32 05 5c 32 30 32 08 00 5c 32 36 36 04 5c 32 31 31 5c | ..T\262...!\262.\202..\266.\211\ |
| 1cc80 | 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 61 70 70 6c 79 20 30 20 6e 69 6c | 207".vconcat.vector.[apply.0.nil |
| 1cca0 | 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 22 20 23 5b 33 38 34 20 | ].8."\n\n(fn.&rest.ARGS)".#[384. |
| 1ccc0 | 22 01 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 | ".\207".[].3."\n\n(fn.&optional. |
| 1cce0 | 41 52 47 20 26 72 65 73 74 20 5f 29 22 5d 5d 20 31 31 20 28 23 24 20 2e 20 31 31 37 33 31 38 29 | ARG.&rest._)"]].11.(#$...117318) |
| 1cd00 | 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# |
| 1cd20 | 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 |
| 1cd40 | 74 69 6f 6e 2d 70 75 74 20 2d 63 6f 6d 70 6f 73 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 | tion-put.-compose.pure.t.side-ef |
| 1cd60 | 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 38 35 20 52 65 74 75 72 6e 20 61 20 66 75 6e | fect-free].5).#@185.Return.a.fun |
| 1cd80 | 63 74 69 6f 6e 20 74 68 61 74 20 61 70 70 6c 69 65 73 20 46 4e 20 74 6f 20 61 20 73 69 6e 67 6c | ction.that.applies.FN.to.a.singl |
| 1cda0 | 65 20 6c 69 73 74 20 6f 66 20 61 72 67 73 2e 0a 54 68 69 73 20 63 68 61 6e 67 65 73 20 74 68 65 | e.list.of.args..This.changes.the |
| 1cdc0 | 20 61 72 69 74 79 20 6f 66 20 46 4e 20 66 72 6f 6d 20 74 61 6b 69 6e 67 20 4e 20 64 69 73 74 69 | .arity.of.FN.from.taking.N.disti |
| 1cde0 | 6e 63 74 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 0a 74 61 6b 69 6e 67 20 31 20 61 72 67 75 6d 65 | nct.arguments.to.taking.1.argume |
| 1ce00 | 6e 74 20 77 68 69 63 68 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 4e 20 61 72 67 75 6d 65 6e 74 | nt.which.is.a.list.of.N.argument |
| 1ce20 | 73 2e 0a 0a 28 66 6e 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 61 70 70 6c 69 66 79 | s...(fn.FN)..(defalias.'-applify |
| 1ce40 | 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c 33 | .#[257."\300\301\302\303\304.!\3 |
| 1ce60 | 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f | 05\"\306\307%\207".[make-byte-co |
| 1ce80 | 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 74 | de.257."\301\300.\"\207".vconcat |
| 1cea0 | 20 76 65 63 74 6f 72 20 5b 61 70 70 6c 79 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 41 52 47 53 29 | .vector.[apply].4."\n\n(fn.ARGS) |
| 1cec0 | 22 5d 20 37 20 28 23 24 20 2e 20 31 31 38 31 33 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 | "].7.(#$...118132)]).(byte-code. |
| 1cee0 | 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 |
| 1cf00 | 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 61 70 70 6c | 03#\300\207".[function-put.-appl |
| 1cf20 | 69 66 79 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 | ify.pure.t.side-effect-free].5). |
| 1cf40 | 23 40 34 35 34 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 63 61 6c | #@454.Return.a.function.that.cal |
| 1cf60 | 6c 73 20 54 52 41 4e 53 20 6f 6e 20 65 61 63 68 20 61 72 67 20 61 6e 64 20 4f 50 20 6f 6e 20 74 | ls.TRANS.on.each.arg.and.OP.on.t |
| 1cf80 | 68 65 20 72 65 73 75 6c 74 73 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f | he.results..The.returned.functio |
| 1cfa0 | 6e 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 | n.takes.a.variable.number.of.arg |
| 1cfc0 | 75 6d 65 6e 74 73 2c 20 63 61 6c 6c 73 0a 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 54 52 41 4e 53 | uments,.calls.the.function.TRANS |
| 1cfe0 | 20 6f 6e 20 65 61 63 68 20 6f 6e 65 20 69 6e 20 74 75 72 6e 2c 20 61 6e 64 20 74 68 65 6e 20 70 | .on.each.one.in.turn,.and.then.p |
| 1d000 | 61 73 73 65 73 20 74 68 6f 73 65 0a 72 65 73 75 6c 74 73 20 61 73 20 74 68 65 20 6c 69 73 74 20 | asses.those.results.as.the.list. |
| 1d020 | 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 4f 50 2c 20 69 6e 20 74 68 65 20 73 61 6d 65 20 | of.arguments.to.OP,.in.the.same. |
| 1d040 | 6f 72 64 65 72 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 | order...For.example,.the.followi |
| 1d060 | 6e 67 20 70 61 69 72 73 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 20 6d 6f 72 61 | ng.pairs.of.expressions.are.mora |
| 1d080 | 6c 6c 79 0a 65 71 75 69 76 61 6c 65 6e 74 3a 0a 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 6f 6e | lly.equivalent:....(funcall.(-on |
| 1d0a0 | 20 23 5c 3d 27 2b 20 23 5c 3d 27 31 2b 29 20 31 20 32 20 33 29 20 3d 20 28 2b 20 28 31 2b 20 31 | .#\='+.#\='1+).1.2.3).=.(+.(1+.1 |
| 1d0c0 | 29 20 28 31 2b 20 32 29 20 28 31 2b 20 33 29 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 6f 6e | ).(1+.2).(1+.3))...(funcall.(-on |
| 1d0e0 | 20 23 5c 3d 27 2b 20 23 5c 3d 27 31 2b 29 29 20 20 20 20 20 20 20 3d 20 28 2b 29 0a 0a 28 66 6e | .#\='+.#\='1+)).......=.(+)..(fn |
| 1d100 | 20 4f 50 20 54 52 41 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 6e 20 23 5b 35 31 34 | .OP.TRANS)..(defalias.'-on.#[514 |
| 1d120 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 06 06 5c 22 5c 33 30 35 | ."\300\301\302\303\304....\"\305 |
| 1d140 | 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 | \"\306\307%\207".[make-byte-code |
| 1d160 | 20 31 32 38 20 22 5c 32 31 31 41 41 5c 32 30 33 0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 33 5c 33 | .128."\211AA\203..\302\300\303\3 |
| 1d180 | 30 31 04 5c 22 5c 22 5c 32 30 37 5c 32 31 31 41 5c 32 30 33 1f 00 5c 33 30 30 5c 33 30 31 02 40 | 01.\"\"\207\211A\203..\300\301.@ |
| 1d1a0 | 21 5c 33 30 31 03 41 40 21 5c 22 5c 32 30 37 5c 32 31 31 5c 32 30 33 2a 00 5c 33 30 30 5c 33 30 | !\301.A@!\"\207\211\203*.\300\30 |
| 1d1c0 | 31 02 40 21 21 5c 32 30 37 5c 33 30 30 20 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 | 1.@!!\207\300.\207".vconcat.vect |
| 1d1e0 | 6f 72 20 5b 61 70 70 6c 79 20 6d 61 70 63 61 72 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 | or.[apply.mapcar].6."\n\n(fn.&re |
| 1d200 | 73 74 20 41 52 47 53 29 22 5d 20 39 20 28 23 24 20 2e 20 31 31 38 35 39 38 29 5d 29 0a 28 62 79 | st.ARGS)"].9.(#$...118598)]).(by |
| 1d220 | 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 33 | te-code."\300\301\302\303#\300\3 |
| 1d240 | 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 70 | 01\304\303#\300\207".[function-p |
| 1d260 | 75 74 20 2d 6f 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 | ut.-on.pure.t.side-effect-free]. |
| 1d280 | 35 29 0a 23 40 32 37 31 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 | 5).#@271.Return.a.function.that. |
| 1d2a0 | 63 61 6c 6c 73 20 46 4e 20 77 69 74 68 20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 20 72 65 76 65 | calls.FN.with.its.arguments.reve |
| 1d2c0 | 72 73 65 64 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 | rsed..The.returned.function.take |
| 1d2e0 | 73 20 74 68 65 20 73 61 6d 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 61 | s.the.same.number.of.arguments.a |
| 1d300 | 73 20 46 4e 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e | s.FN...For.example,.the.followin |
| 1d320 | 67 20 74 77 6f 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 20 6d 6f 72 61 6c 6c 79 0a 65 71 | g.two.expressions.are.morally.eq |
| 1d340 | 75 69 76 61 6c 65 6e 74 3a 0a 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 2d 66 6c 69 70 20 23 5c 3d | uivalent:....(funcall.(-flip.#\= |
| 1d360 | 27 2d 29 20 31 20 32 29 20 3d 20 28 2d 20 32 20 31 29 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d | '-).1.2).=.(-.2.1)..See.also:.`- |
| 1d380 | 72 6f 74 61 74 65 2d 61 72 67 73 27 2e 0a 0a 28 66 6e 20 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 | rotate-args'...(fn.FN)..(defalia |
| 1d3a0 | 73 20 27 2d 66 6c 69 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 | s.'-flip.#[257."\300\301\302\303 |
| 1d3c0 | 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 | \304.!\305\"\306\307%\207".[make |
| 1d3e0 | 2d 62 79 74 65 2d 63 6f 64 65 20 31 32 38 20 22 5c 32 31 31 41 41 5c 32 30 33 5c 66 00 5c 33 30 | -byte-code.128."\211AA\203\f.\30 |
| 1d400 | 31 5c 33 30 30 02 5c 32 33 37 5c 22 5c 32 30 37 5c 32 31 31 41 5c 32 30 33 19 00 5c 33 30 30 01 | 1\300.\237\"\207\211A\203..\300. |
| 1d420 | 41 40 02 40 5c 22 5c 32 30 37 5c 32 31 31 5c 32 30 33 5c 22 00 5c 33 30 30 01 40 21 5c 32 30 37 | A@.@\"\207\211\203\".\300.@!\207 |
| 1d440 | 5c 33 30 30 20 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 61 70 70 6c 79 | \300.\207".vconcat.vector.[apply |
| 1d460 | 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 52 47 53 29 22 5d 20 37 20 28 23 24 | ].4."\n\n(fn.&rest.ARGS)"].7.(#$ |
| 1d480 | 20 2e 20 31 31 39 34 33 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 | ...119433)]).(byte-code."\300\30 |
| 1d4a0 | 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\ |
| 1d4c0 | 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 2d 66 6c 69 70 20 70 75 72 65 20 74 20 | 207".[function-put.-flip.pure.t. |
| 1d4e0 | 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 39 36 20 52 65 74 75 72 | side-effect-free].5).#@296.Retur |
| 1d500 | 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 63 61 6c 6c 73 20 46 4e 20 77 69 74 68 20 | n.a.function.that.calls.FN.with. |
| 1d520 | 61 72 67 73 20 72 6f 74 61 74 65 64 20 4e 20 70 6c 61 63 65 73 20 74 6f 20 74 68 65 20 72 69 67 | args.rotated.N.places.to.the.rig |
| 1d540 | 68 74 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 | ht..The.returned.function.takes. |
| 1d560 | 74 68 65 20 73 61 6d 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 61 73 20 | the.same.number.of.arguments.as. |
| 1d580 | 46 4e 2c 0a 72 6f 74 61 74 65 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d 65 6e 74 | FN,.rotates.the.list.of.argument |
| 1d5a0 | 73 20 4e 20 70 6c 61 63 65 73 20 74 6f 20 74 68 65 20 72 69 67 68 74 20 28 6c 65 66 74 20 69 66 | s.N.places.to.the.right.(left.if |
| 1d5c0 | 20 4e 20 69 73 0a 6e 65 67 61 74 69 76 65 29 20 6a 75 73 74 20 6c 69 6b 65 20 60 2d 72 6f 74 61 | .N.is.negative).just.like.`-rota |
| 1d5e0 | 74 65 27 2c 20 61 6e 64 20 61 70 70 6c 69 65 73 20 46 4e 20 74 6f 20 74 68 65 20 72 65 73 75 6c | te',.and.applies.FN.to.the.resul |
| 1d600 | 74 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 66 6c 69 70 27 2e 0a 0a 28 66 6e 20 4e 20 46 4e | t...See.also:.`-flip'...(fn.N.FN |
| 1d620 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 72 6f 74 61 74 65 2d 61 72 67 73 20 23 5b 35 31 34 | )..(defalias.'-rotate-args.#[514 |
| 1d640 | 20 22 01 5c 33 30 30 55 5c 32 30 33 07 00 5c 32 30 37 01 5c 33 30 31 5c 32 34 36 5c 33 30 30 55 | .".\300U\203..\207.\301\246\300U |
| 1d660 | 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 07 06 07 06 07 23 5c 33 30 37 5c | \302\303\304\305\306......#\307\ |
| 1d680 | 22 5c 33 31 30 5c 33 31 31 25 5c 32 30 37 22 20 5b 30 20 32 20 6d 61 6b 65 2d 62 79 74 65 2d 63 | "\310\311%\207".[0.2.make-byte-c |
| 1d6a0 | 6f 64 65 20 31 32 38 20 22 5c 32 31 31 41 41 5c 32 30 33 0e 00 5c 33 30 33 5c 33 30 31 5c 33 30 | ode.128."\211AA\203..\303\301\30 |
| 1d6c0 | 34 5c 33 30 30 04 5c 22 5c 22 5c 32 30 37 5c 32 31 31 41 5c 32 30 33 2d 00 5c 32 31 31 40 01 41 | 4\300.\"\"\207\211A\203-.\211@.A |
| 1d6e0 | 40 5c 33 30 31 5c 33 30 32 5c 32 30 33 21 00 02 5c 32 30 32 5c 22 00 01 5c 33 30 32 5c 32 30 33 | @\301\302\203!..\202\"..\302\203 |
| 1d700 | 2a 00 02 5c 32 30 32 2b 00 03 5c 22 5c 32 30 37 5c 32 31 31 5c 32 30 33 36 00 5c 33 30 31 01 40 | *..\202+..\"\207\211\2036.\301.@ |
| 1d720 | 21 5c 32 30 37 5c 33 30 31 20 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b | !\207\301.\207".vconcat.vector.[ |
| 1d740 | 61 70 70 6c 79 20 2d 72 6f 74 61 74 65 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 | apply.-rotate].6."\n\n(fn.&rest. |
| 1d760 | 41 52 47 53 29 22 5d 20 31 31 20 28 23 24 20 2e 20 31 32 30 30 35 39 29 5d 29 0a 28 62 79 74 65 | ARGS)"].11.(#$...120059)]).(byte |
| 1d780 | 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 |
| 1d7a0 | 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 |
| 1d7c0 | 20 2d 72 6f 74 61 74 65 2d 61 72 67 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 | .-rotate-args.pure.t.side-effect |
| 1d7e0 | 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 30 30 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f | -free].5).#@100.Return.a.functio |
| 1d800 | 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 43 20 69 67 6e 6f 72 69 6e 67 20 61 6e 79 20 61 64 | n.that.returns.C.ignoring.any.ad |
| 1d820 | 64 69 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 73 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 61 | ditional.arguments...In.types:.a |
| 1d840 | 20 2d 3e 20 62 20 2d 3e 20 61 0a 0a 28 66 6e 20 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d | .->.b.->.a..(fn.C)..(defalias.'- |
| 1d860 | 63 6f 6e 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 | const.#[257."\300\301\302\303\30 |
| 1d880 | 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 | 4.!\305\"\306\307%\207".[make-by |
| 1d8a0 | 74 65 2d 63 6f 64 65 20 31 32 38 20 22 5c 33 30 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 | te-code.128."\300\207".vconcat.v |
| 1d8c0 | 65 63 74 6f 72 20 5b 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 5f 29 22 5d 20 37 | ector.[].2."\n\n(fn.&rest._)"].7 |
| 1d8e0 | 20 28 23 24 20 2e 20 31 32 30 38 31 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | .(#$...120816)]).(byte-code."\30 |
| 1d900 | 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#\ |
| 1d920 | 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 6e 73 74 20 70 75 | 300\207".[function-put.-const.pu |
| 1d940 | 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 37 36 20 | re.t.side-effect-free].5).#@176. |
| 1d960 | 54 61 6b 65 20 6e 2d 61 72 79 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 6e 20 61 72 67 75 6d 65 | Take.n-ary.function.and.n.argume |
| 1d980 | 6e 74 73 20 61 6e 64 20 73 70 65 63 69 61 6c 69 7a 65 20 73 6f 6d 65 20 6f 66 20 74 68 65 6d 2e | nts.and.specialize.some.of.them. |
| 1d9a0 | 0a 41 72 67 75 6d 65 6e 74 73 20 64 65 6e 6f 74 65 64 20 62 79 20 3c 3e 20 77 69 6c 6c 20 62 65 | .Arguments.denoted.by.<>.will.be |
| 1d9c0 | 20 6c 65 66 74 20 75 6e 73 70 65 63 69 61 6c 69 7a 65 64 2e 0a 0a 53 65 65 20 53 52 46 49 2d 32 | .left.unspecialized...See.SRFI-2 |
| 1d9e0 | 36 20 66 6f 72 20 64 65 74 61 69 6c 65 64 20 64 65 73 63 72 69 70 74 69 6f 6e 2e 0a 0a 28 66 6e | 6.for.detailed.description...(fn |
| 1da00 | 20 26 72 65 73 74 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 75 74 20 | .&rest.PARAMS)..(defalias.'-cut. |
| 1da20 | 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 02 5c 33 30 30 5c 33 | '(macro...#[128."\300\301.\300\3 |
| 1da40 | 30 31 5c 32 31 31 03 5c 32 30 33 38 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 | 01\211.\2038..\211A\262.\242\262 |
| 1da60 | 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 01 5c 33 30 32 3d 5c 32 30 35 2a 00 05 54 5c 32 36 32 | ..\262..T\262..\302=\205*..T\262 |
| 1da80 | 06 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 5c 22 21 5c 32 31 31 5c 32 30 33 34 00 5c 32 31 31 | .\303\304\305..\"!\211\2034.\211 |
| 1daa0 | 06 06 42 5c 32 36 32 06 5c 32 31 30 5c 32 30 32 06 00 5c 32 36 36 04 5c 32 31 31 5c 32 33 37 5c | ..B\262.\210\202..\266.\211\237\ |
| 1dac0 | 32 36 32 01 43 5c 33 30 36 01 5c 32 34 32 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 | 262.C\306.\242\307\310\311\312\3 |
| 1dae0 | 31 33 5c 33 31 34 06 08 21 5c 33 31 35 5c 22 5c 33 31 36 5c 33 31 37 25 06 06 5c 22 05 40 5c 33 | 13\314..!\315\"\316\317%..\".@\3 |
| 1db00 | 30 32 3d 5c 32 30 33 60 00 5c 33 32 30 01 42 5c 32 30 32 61 00 5c 32 31 31 5c 32 36 32 01 45 5c | 02=\203`.\320.B\202a.\211\262.E\ |
| 1db20 | 32 30 37 22 20 5b 30 20 6e 69 6c 20 3c 3e 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 66 6f 72 6d 61 | 207".[0.nil.<>.make-symbol.forma |
| 1db40 | 74 20 22 44 25 64 22 20 6c 61 6d 62 64 61 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d | t."D%d".lambda.mapcar.make-byte- |
| 1db60 | 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 31 3d 5c 32 30 33 10 00 5c 33 30 30 5c 32 34 | code.257."\211\301=\203..\300\24 |
| 1db80 | 32 5c 33 30 30 5c 32 31 31 5c 32 34 32 41 5c 32 34 30 5c 32 31 30 5c 32 34 32 5c 32 30 37 5c 32 | 2\300\211\242A\240\210\242\207\2 |
| 1dba0 | 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 3c 3e 5d 20 34 20 22 5c 6e 5c 6e 28 | 07".vconcat.vector.[<>].4."\n\n( |
| 1dbc0 | 66 6e 20 49 54 29 22 20 66 75 6e 63 61 6c 6c 5d 20 31 32 20 28 23 24 20 2e 20 31 32 31 31 38 34 | fn.IT)".funcall].12.(#$...121184 |
| 1dbe0 | 29 5d 29 29 0a 28 70 75 74 20 27 2d 63 75 74 20 27 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 | )])).(put.'-cut.'edebug-form-spe |
| 1dc00 | 63 20 27 28 26 6f 70 74 69 6f 6e 61 6c 20 73 65 78 70 20 26 72 65 73 74 20 26 6f 72 20 22 3c 3e | c.'(&optional.sexp.&rest.&or."<> |
| 1dc20 | 22 20 66 6f 72 6d 29 29 0a 23 40 32 32 34 20 52 65 74 75 72 6e 20 61 20 70 72 65 64 69 63 61 74 | ".form)).#@224.Return.a.predicat |
| 1dc40 | 65 20 74 68 61 74 20 6e 65 67 61 74 65 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 50 52 45 | e.that.negates.the.result.of.PRE |
| 1dc60 | 44 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 70 72 65 64 69 63 61 74 65 20 70 61 73 73 65 73 | D..The.returned.predicate.passes |
| 1dc80 | 20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 50 52 45 44 2e 20 20 49 66 20 50 52 45 44 | .its.arguments.to.PRED...If.PRED |
| 1dca0 | 0a 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 6e 6f 6e 2d | .returns.nil,.the.result.is.non- |
| 1dcc0 | 6e 69 6c 3b 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 6e 69 6c | nil;.otherwise.the.result.is.nil |
| 1dce0 | 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 61 6e 64 66 6e 27 20 61 6e 64 20 60 2d 6f 72 66 6e | ...See.also:.`-andfn'.and.`-orfn |
| 1dd00 | 27 2e 0a 0a 28 66 6e 20 50 52 45 44 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6e 6f 74 20 23 | '...(fn.PRED)..(defalias.'-not.# |
| 1dd20 | 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c 33 30 35 | [257."\300\301\302\303\304.!\305 |
| 1dd40 | 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 | \"\306\307%\207".[make-byte-code |
| 1dd60 | 20 31 32 38 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 3f 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 | .128."\301\300.\"?\207".vconcat. |
| 1dd80 | 76 65 63 74 6f 72 20 5b 61 70 70 6c 79 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 | vector.[apply].4."\n\n(fn.&rest. |
| 1dda0 | 41 52 47 53 29 22 5d 20 37 20 28 23 24 20 2e 20 31 32 31 39 30 33 29 5d 29 0a 28 62 79 74 65 2d | ARGS)"].7.(#$...121903)]).(byte- |
| 1ddc0 | 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\ |
| 1dde0 | 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. |
| 1de00 | 2d 6e 6f 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 | -not.pure.t.side-effect-free].5) |
| 1de20 | 0a 23 40 34 31 38 20 52 65 74 75 72 6e 20 61 20 70 72 65 64 69 63 61 74 65 20 74 68 61 74 20 72 | .#@418.Return.a.predicate.that.r |
| 1de40 | 65 74 75 72 6e 73 20 74 68 65 20 66 69 72 73 74 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 | eturns.the.first.non-nil.result. |
| 1de60 | 6f 66 20 50 52 45 44 53 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 70 72 65 64 69 63 61 74 65 | of.PREDS..The.returned.predicate |
| 1de80 | 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 | .takes.a.variable.number.of.argu |
| 1dea0 | 6d 65 6e 74 73 2c 0a 70 61 73 73 65 73 20 74 68 65 6d 20 74 6f 20 65 61 63 68 20 70 72 65 64 69 | ments,.passes.them.to.each.predi |
| 1dec0 | 63 61 74 65 20 69 6e 20 50 52 45 44 53 20 69 6e 20 74 75 72 6e 20 75 6e 74 69 6c 20 6f 6e 65 20 | cate.in.PREDS.in.turn.until.one. |
| 1dee0 | 6f 66 20 74 68 65 6d 0a 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6e 64 20 72 65 74 | of.them.returns.non-nil,.and.ret |
| 1df00 | 75 72 6e 73 20 74 68 61 74 20 6e 6f 6e 2d 6e 69 6c 20 72 65 73 75 6c 74 20 77 69 74 68 6f 75 74 | urns.that.non-nil.result.without |
| 1df20 | 20 63 61 6c 6c 69 6e 67 0a 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 50 52 45 44 53 2e 20 20 49 | .calling.the.remaining.PREDS...I |
| 1df40 | 66 20 61 6c 6c 20 50 52 45 44 53 20 72 65 74 75 72 6e 20 6e 69 6c 2c 20 6f 72 20 69 66 20 6e 6f | f.all.PREDS.return.nil,.or.if.no |
| 1df60 | 20 50 52 45 44 53 20 61 72 65 0a 67 69 76 65 6e 2c 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 70 | .PREDS.are.given,.the.returned.p |
| 1df80 | 72 65 64 69 63 61 74 65 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a | redicate.returns.nil...See.also: |
| 1dfa0 | 20 60 2d 61 6e 64 66 6e 27 20 61 6e 64 20 60 2d 6e 6f 74 27 2e 0a 0a 28 66 6e 20 26 72 65 73 74 | .`-andfn'.and.`-not'...(fn.&rest |
| 1dfc0 | 20 50 52 45 44 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 6f 72 66 6e 20 23 5b 31 32 38 20 | .PREDS)..(defalias.'-orfn.#[128. |
| 1dfe0 | 22 5c 32 31 31 41 5c 32 30 33 12 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 | "\211A\203..\300\301\302\303\304 |
| 1e000 | 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 5c 32 31 31 5c 32 30 33 19 00 5c | .!\305\"\306\307%\207\211\203..\ |
| 1e020 | 32 31 31 40 5c 32 30 37 5c 33 31 30 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 | 211@\207\310\207".[make-byte-cod |
| 1e040 | 65 20 31 32 38 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 33 30 31 5c 32 31 31 5c 32 31 31 04 | e.128."\301\300\302\301\211\211. |
| 1e060 | 5c 32 30 33 34 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 | \2034..\211A\262.\242\262..\262. |
| 1e080 | 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 34 00 5c 33 30 33 02 06 08 5c 22 5c 32 31 31 5c 32 36 | .\211\262.\2034.\303...\"\211\26 |
| 1e0a0 | 32 07 5c 32 30 34 34 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 06 | 2.\2044..\262..\262..T\262.\202. |
| 1e0c0 | 00 5c 32 36 36 05 5c 32 31 31 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b | .\266.\211\207".vconcat.vector.[ |
| 1e0e0 | 6e 69 6c 20 30 20 61 70 70 6c 79 5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 41 | nil.0.apply].10."\n\n(fn.&rest.A |
| 1e100 | 52 47 53 29 22 20 69 67 6e 6f 72 65 5d 20 37 20 28 23 24 20 2e 20 31 32 32 34 30 37 29 5d 29 0a | RGS)".ignore].7.(#$...122407)]). |
| 1e120 | 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 |
| 1e140 | 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 |
| 1e160 | 6e 2d 70 75 74 20 2d 6f 72 66 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | n-put.-orfn.pure.t.side-effect-f |
| 1e180 | 72 65 65 5d 20 35 29 0a 23 40 34 32 35 20 52 65 74 75 72 6e 20 61 20 70 72 65 64 69 63 61 74 65 | ree].5).#@425.Return.a.predicate |
| 1e1a0 | 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 61 6c 6c 20 50 52 45 | .that.returns.non-nil.if.all.PRE |
| 1e1c0 | 44 53 20 64 6f 20 73 6f 2e 0a 54 68 65 20 72 65 74 75 72 6e 65 64 20 70 72 65 64 69 63 61 74 65 | DS.do.so..The.returned.predicate |
| 1e1e0 | 20 50 20 74 61 6b 65 73 20 61 20 76 61 72 69 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 | .P.takes.a.variable.number.of.ar |
| 1e200 | 67 75 6d 65 6e 74 73 20 61 6e 64 0a 70 61 73 73 65 73 20 74 68 65 6d 20 74 6f 20 65 61 63 68 20 | guments.and.passes.them.to.each. |
| 1e220 | 70 72 65 64 69 63 61 74 65 20 69 6e 20 50 52 45 44 53 20 69 6e 20 74 75 72 6e 2e 20 20 49 66 20 | predicate.in.PREDS.in.turn...If. |
| 1e240 | 61 6e 79 20 6f 6e 65 20 6f 66 0a 50 52 45 44 53 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 50 20 | any.one.of.PREDS.returns.nil,.P. |
| 1e260 | 61 6c 73 6f 20 72 65 74 75 72 6e 73 20 6e 69 6c 20 77 69 74 68 6f 75 74 20 63 61 6c 6c 69 6e 67 | also.returns.nil.without.calling |
| 1e280 | 20 74 68 65 0a 72 65 6d 61 69 6e 69 6e 67 20 50 52 45 44 53 2e 20 20 49 66 20 61 6c 6c 20 50 52 | .the.remaining.PREDS...If.all.PR |
| 1e2a0 | 45 44 53 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 50 20 72 65 74 75 72 6e 73 20 74 68 | EDS.return.non-nil,.P.returns.th |
| 1e2c0 | 65 20 6c 61 73 74 0a 73 75 63 68 20 76 61 6c 75 65 2e 20 20 49 66 20 6e 6f 20 50 52 45 44 53 20 | e.last.such.value...If.no.PREDS. |
| 1e2e0 | 61 72 65 20 67 69 76 65 6e 2c 20 50 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d | are.given,.P.always.returns.non- |
| 1e300 | 6e 69 6c 2e 0a 0a 53 65 65 20 61 6c 73 6f 3a 20 60 2d 6f 72 66 6e 27 20 61 6e 64 20 60 2d 6e 6f | nil...See.also:.`-orfn'.and.`-no |
| 1e320 | 74 27 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 50 52 45 44 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 | t'...(fn.&rest.PREDS)..(defalias |
| 1e340 | 20 27 2d 61 6e 64 66 6e 20 23 5b 31 32 38 20 22 5c 32 31 31 41 5c 32 30 33 12 00 5c 33 30 30 5c | .'-andfn.#[128."\211A\203..\300\ |
| 1e360 | 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 | 301\302\303\304.!\305\"\306\307% |
| 1e380 | 5c 32 30 37 5c 32 31 31 5c 32 30 33 19 00 5c 32 31 31 40 5c 32 30 37 5c 33 31 30 5c 33 31 31 21 | \207\211\203..\211@\207\310\311! |
| 1e3a0 | 5c 32 30 33 21 00 5c 33 31 31 5c 32 30 37 5c 33 31 32 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 | \203!.\311\207\312\207".[make-by |
| 1e3c0 | 74 65 2d 63 6f 64 65 20 31 32 38 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 33 30 33 5c 32 31 | te-code.128."\301\300\302\303\21 |
| 1e3e0 | 31 5c 32 31 31 04 5c 32 30 33 34 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 | 1\211.\2034..\211A\262.\242\262. |
| 1e400 | 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 34 00 5c 33 30 34 02 06 08 5c 22 5c | .\262..\211\262.\2034.\304...\"\ |
| 1e420 | 32 31 31 5c 32 36 32 07 5c 32 30 33 34 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 | 211\262.\2034..\262..\262..T\262 |
| 1e440 | 04 5c 32 30 32 06 00 5c 32 36 36 05 5c 32 31 31 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 | .\202..\266.\211\207".vconcat.ve |
| 1e460 | 63 74 6f 72 20 5b 74 20 30 20 6e 69 6c 20 61 70 70 6c 79 5d 20 31 30 20 22 5c 6e 5c 6e 28 66 6e | ctor.[t.0.nil.apply].10."\n\n(fn |
| 1e480 | 20 26 72 65 73 74 20 41 52 47 53 29 22 20 66 62 6f 75 6e 64 70 20 61 6c 77 61 79 73 20 23 5b 31 | .&rest.ARGS)".fboundp.always.#[1 |
| 1e4a0 | 32 38 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 74 5d 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 | 28."\300\207".[t].2."\n\n(fn.&re |
| 1e4c0 | 73 74 20 5f 29 22 5d 5d 20 37 20 28 23 24 20 2e 20 31 32 33 32 37 38 29 5d 29 0a 28 62 79 74 65 | st._)"]].7.(#$...123278)]).(byte |
| 1e4e0 | 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 |
| 1e500 | 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 |
| 1e520 | 20 2d 61 6e 64 66 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d | .-andfn.pure.t.side-effect-free] |
| 1e540 | 20 35 29 0a 23 40 33 39 36 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 46 4e 20 63 | .5).#@396.Return.a.function.FN.c |
| 1e560 | 6f 6d 70 6f 73 65 64 20 4e 20 74 69 6d 65 73 20 77 69 74 68 20 69 74 73 65 6c 66 2e 0a 0a 46 4e | omposed.N.times.with.itself...FN |
| 1e580 | 20 69 73 20 61 20 75 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 20 79 6f 75 20 6e 65 | .is.a.unary.function...If.you.ne |
| 1e5a0 | 65 64 20 74 6f 20 75 73 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 68 69 67 68 65 72 0a 61 | ed.to.use.a.function.of.higher.a |
| 1e5c0 | 72 69 74 79 2c 20 75 73 65 20 60 2d 61 70 70 6c 69 66 79 27 20 66 69 72 73 74 20 74 6f 20 74 75 | rity,.use.`-applify'.first.to.tu |
| 1e5e0 | 72 6e 20 69 74 20 69 6e 74 6f 20 61 20 75 6e 61 72 79 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a 57 69 | rn.it.into.a.unary.function...Wi |
| 1e600 | 74 68 20 6e 20 3d 20 30 2c 20 74 68 69 73 20 61 63 74 73 20 61 73 20 69 64 65 6e 74 69 74 79 20 | th.n.=.0,.this.acts.as.identity. |
| 1e620 | 66 75 6e 63 74 69 6f 6e 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 28 61 20 2d 3e 20 61 29 20 2d 3e | function...In.types:.(a.->.a).-> |
| 1e640 | 20 49 6e 74 20 2d 3e 20 61 20 2d 3e 20 61 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 | .Int.->.a.->.a...This.function.s |
| 1e660 | 61 74 69 73 66 69 65 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 61 77 3a 0a 0a 20 20 28 | atisfies.the.following.law:....( |
| 1e680 | 66 75 6e 63 61 6c 6c 20 28 2d 69 74 65 72 61 74 65 66 6e 20 66 6e 20 6e 29 20 69 6e 69 74 29 20 | funcall.(-iteratefn.fn.n).init). |
| 1e6a0 | 3d 20 28 2d 6c 61 73 74 2d 69 74 65 6d 20 28 2d 69 74 65 72 61 74 65 20 66 6e 20 69 6e 69 74 20 | =.(-last-item.(-iterate.fn.init. |
| 1e6c0 | 28 31 2b 20 6e 29 29 29 2e 0a 0a 28 66 6e 20 46 4e 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | (1+.n)))...(fn.FN.N)..(defalias. |
| 1e6e0 | 27 2d 69 74 65 72 61 74 65 66 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | '-iteratefn.#[514."\300\301\302\ |
| 1e700 | 33 30 33 5c 33 30 34 06 06 06 06 5c 22 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 | 303\304....\"\305\"\306\307%\207 |
| 1e720 | 22 20 5b 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 33 30 32 5c | ".[make-byte-code.257."\301\302\ |
| 1e740 | 33 30 33 01 03 57 5c 32 30 33 18 00 01 5c 32 36 32 01 01 54 5c 32 36 32 02 5c 33 30 30 04 21 5c | 303..W\203...\262..T\262.\300.!\ |
| 1e760 | 32 36 32 04 5c 32 30 32 03 00 5c 32 36 36 03 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 | 262.\202..\266.\207".vconcat.vec |
| 1e780 | 74 6f 72 20 5b 30 20 6e 69 6c 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 39 20 28 23 | tor.[0.nil].6."\n\n(fn.X)"].9.(# |
| 1e7a0 | 24 20 2e 20 31 32 34 32 33 34 29 5d 29 0a 23 40 33 37 39 20 52 65 74 75 72 6e 20 61 20 63 6c 6f | $...124234)]).#@379.Return.a.clo |
| 1e7c0 | 73 75 72 65 20 74 68 61 74 20 63 6f 75 6e 74 73 20 66 72 6f 6d 20 42 45 47 20 74 6f 20 45 4e 44 | sure.that.counts.from.BEG.to.END |
| 1e7e0 | 2c 20 77 69 74 68 20 69 6e 63 72 65 6d 65 6e 74 20 49 4e 43 2e 0a 0a 54 68 65 20 63 6c 6f 73 75 | ,.with.increment.INC...The.closu |
| 1e800 | 72 65 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 68 65 20 6e 65 78 74 20 76 61 6c 75 65 20 69 6e | re.will.return.the.next.value.in |
| 1e820 | 20 74 68 65 20 63 6f 75 6e 74 69 6e 67 20 73 65 71 75 65 6e 63 65 0a 65 61 63 68 20 74 69 6d 65 | .the.counting.sequence.each.time |
| 1e840 | 20 69 74 20 69 73 20 63 61 6c 6c 65 64 2c 20 61 6e 64 20 6e 69 6c 20 61 66 74 65 72 20 45 4e 44 | .it.is.called,.and.nil.after.END |
| 1e860 | 20 69 73 20 72 65 61 63 68 65 64 2e 20 42 45 47 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 30 2c 20 | .is.reached..BEG.defaults.to.0,. |
| 1e880 | 49 4e 43 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2c 20 61 6e 64 20 69 66 20 45 4e 44 20 69 73 | INC.defaults.to.1,.and.if.END.is |
| 1e8a0 | 20 6e 69 6c 2c 20 74 68 65 20 63 6f 75 6e 74 65 72 0a 77 69 6c 6c 20 69 6e 63 72 65 6d 65 6e 74 | .nil,.the.counter.will.increment |
| 1e8c0 | 20 69 6e 64 65 66 69 6e 69 74 65 6c 79 2e 0a 0a 54 68 65 20 63 6c 6f 73 75 72 65 20 61 63 63 65 | .indefinitely...The.closure.acce |
| 1e8e0 | 70 74 73 20 61 6e 79 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 20 77 68 69 | pts.any.number.of.arguments,.whi |
| 1e900 | 63 68 20 61 72 65 20 64 69 73 63 61 72 64 65 64 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c | ch.are.discarded...(fn.&optional |
| 1e920 | 20 42 45 47 20 45 4e 44 20 49 4e 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 63 6f 75 6e 74 | .BEG.END.INC)..(defalias.'-count |
| 1e940 | 65 72 20 23 5b 37 36 38 20 22 5c 32 31 31 5c 32 30 36 05 00 5c 33 30 30 03 5c 32 30 36 5c 6e 00 | er.#[768."\211\206..\300.\206\n. |
| 1e960 | 5c 33 30 31 43 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 08 06 07 06 07 23 | \301C\302\303\304\305\306......# |
| 1e980 | 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 5c 32 30 37 22 20 5b 31 20 30 20 6d 61 6b 65 2d 62 | \307\"\310\311%\207".[1.0.make-b |
| 1e9a0 | 79 74 65 2d 63 6f 64 65 20 31 32 38 20 22 5c 33 30 30 5c 32 30 33 0b 00 5c 33 30 32 5c 32 34 32 | yte-code.128."\300\203..\302\242 |
| 1e9c0 | 5c 33 30 30 57 5c 32 30 35 14 00 5c 33 30 32 5c 32 34 32 5c 33 30 32 5c 32 31 31 5c 32 34 32 5c | \300W\205..\302\242\302\211\242\ |
| 1e9e0 | 33 30 31 5c 5c 5c 32 34 30 5c 32 31 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f | 301\\\240\210\207".vconcat.vecto |
| 1ea00 | 72 20 5b 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 26 72 65 73 74 20 5f 29 22 5d 20 31 33 20 28 23 | r.[].5."\n\n(fn.&rest._)"].13.(# |
| 1ea20 | 24 20 2e 20 31 32 34 38 35 32 29 5d 29 0a 23 40 39 34 20 54 68 65 20 64 65 66 61 75 6c 74 20 6d | $...124852)]).#@94.The.default.m |
| 1ea40 | 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 72 61 74 69 6f 6e 73 20 70 65 72 66 | aximum.number.of.iterations.perf |
| 1ea60 | 6f 72 6d 65 64 20 62 79 20 60 2d 66 69 78 66 6e 27 0a 20 20 75 6e 6c 65 73 73 20 6f 74 68 65 72 | ormed.by.`-fixfn'...unless.other |
| 1ea80 | 77 69 73 65 20 73 70 65 63 69 66 69 65 64 2e 1f 0a 28 64 65 66 76 61 72 20 2d 66 69 78 66 6e 2d | wise.specified...(defvar.-fixfn- |
| 1eaa0 | 6d 61 78 2d 69 74 65 72 61 74 69 6f 6e 73 20 31 30 30 30 20 28 23 24 20 2e 20 31 32 35 34 39 31 | max-iterations.1000.(#$...125491 |
| 1eac0 | 29 29 0a 23 40 31 31 39 30 20 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 | )).#@1190.Return.a.function.that |
| 1eae0 | 20 63 6f 6d 70 75 74 65 73 20 74 68 65 20 28 6c 65 61 73 74 29 20 66 69 78 70 6f 69 6e 74 20 6f | .computes.the.(least).fixpoint.o |
| 1eb00 | 66 20 46 4e 2e 0a 0a 46 4e 20 6d 75 73 74 20 62 65 20 61 20 75 6e 61 72 79 20 66 75 6e 63 74 69 | f.FN...FN.must.be.a.unary.functi |
| 1eb20 | 6f 6e 2e 20 54 68 65 20 72 65 74 75 72 6e 65 64 20 6c 61 6d 62 64 61 20 74 61 6b 65 73 20 61 20 | on..The.returned.lambda.takes.a. |
| 1eb40 | 73 69 6e 67 6c 65 0a 61 72 67 75 6d 65 6e 74 2c 20 58 2c 20 74 68 65 20 69 6e 69 74 69 61 6c 20 | single.argument,.X,.the.initial. |
| 1eb60 | 76 61 6c 75 65 20 66 6f 72 20 74 68 65 20 66 69 78 70 6f 69 6e 74 20 69 74 65 72 61 74 69 6f 6e | value.for.the.fixpoint.iteration |
| 1eb80 | 2e 20 54 68 65 0a 69 74 65 72 61 74 69 6f 6e 20 68 61 6c 74 73 20 77 68 65 6e 20 65 69 74 68 65 | ..The.iteration.halts.when.eithe |
| 1eba0 | 72 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73 20 69 73 | r.of.the.following.conditions.is |
| 1ebc0 | 20 73 61 74 69 73 66 69 65 64 3a 0a 0a 20 31 2e 20 49 74 65 72 61 74 69 6f 6e 20 63 6f 6e 76 65 | .satisfied:...1..Iteration.conve |
| 1ebe0 | 72 67 65 73 20 74 6f 20 74 68 65 20 66 69 78 70 6f 69 6e 74 2c 20 77 69 74 68 20 65 71 75 61 6c | rges.to.the.fixpoint,.with.equal |
| 1ec00 | 69 74 79 20 62 65 69 6e 67 0a 20 20 20 20 74 65 73 74 65 64 20 75 73 69 6e 67 20 45 51 55 41 4c | ity.being.....tested.using.EQUAL |
| 1ec20 | 2d 54 45 53 54 2e 20 49 66 20 45 51 55 41 4c 2d 54 45 53 54 20 69 73 20 6e 6f 74 20 73 70 65 63 | -TEST..If.EQUAL-TEST.is.not.spec |
| 1ec40 | 69 66 69 65 64 2c 0a 20 20 20 20 60 65 71 75 61 6c 27 20 69 73 20 75 73 65 64 2e 20 46 6f 72 20 | ified,.....`equal'.is.used..For. |
| 1ec60 | 66 75 6e 63 74 69 6f 6e 73 20 6f 76 65 72 20 74 68 65 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e | functions.over.the.floating.poin |
| 1ec80 | 74 0a 20 20 20 20 6e 75 6d 62 65 72 73 2c 20 69 74 20 6d 61 79 20 62 65 20 6e 65 63 65 73 73 61 | t.....numbers,.it.may.be.necessa |
| 1eca0 | 72 79 20 74 6f 20 70 72 6f 76 69 64 65 20 61 6e 20 61 70 70 72 6f 70 72 69 61 74 65 0a 20 20 20 | ry.to.provide.an.appropriate.... |
| 1ecc0 | 20 61 70 70 72 6f 78 69 6d 61 74 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 74 65 73 74 2e 0a 0a 20 | .approximate.comparison.test.... |
| 1ece0 | 32 2e 20 48 41 4c 54 2d 54 45 53 54 20 72 65 74 75 72 6e 73 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 | 2..HALT-TEST.returns.a.non-nil.v |
| 1ed00 | 61 6c 75 65 2e 20 48 41 4c 54 2d 54 45 53 54 20 64 65 66 61 75 6c 74 73 20 74 6f 20 61 0a 20 20 | alue..HALT-TEST.defaults.to.a... |
| 1ed20 | 20 20 73 69 6d 70 6c 65 20 63 6f 75 6e 74 65 72 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 20 | ..simple.counter.that.returns.t. |
| 1ed40 | 61 66 74 65 72 20 60 2d 66 69 78 66 6e 2d 6d 61 78 2d 69 74 65 72 61 74 69 6f 6e 73 27 2c 0a 20 | after.`-fixfn-max-iterations',.. |
| 1ed60 | 20 20 20 74 6f 20 67 75 61 72 64 20 61 67 61 69 6e 73 74 20 69 6e 66 69 6e 69 74 65 20 69 74 65 | ...to.guard.against.infinite.ite |
| 1ed80 | 72 61 74 69 6f 6e 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 48 41 4c 54 2d 54 45 53 54 0a 20 20 20 | ration..Otherwise,.HALT-TEST.... |
| 1eda0 | 20 6d 75 73 74 20 62 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 61 63 63 65 70 74 73 | .must.be.a.function.that.accepts |
| 1edc0 | 20 61 20 73 69 6e 67 6c 65 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 0a 20 20 20 20 63 75 72 72 | .a.single.argument,.the.....curr |
| 1ede0 | 65 6e 74 20 76 61 6c 75 65 20 6f 66 20 58 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d | ent.value.of.X,.and.returns.non- |
| 1ee00 | 6e 69 6c 20 61 73 20 6c 6f 6e 67 20 61 73 20 69 74 65 72 61 74 69 6f 6e 0a 20 20 20 20 73 68 6f | nil.as.long.as.iteration.....sho |
| 1ee20 | 75 6c 64 20 63 6f 6e 74 69 6e 75 65 2e 20 49 6e 20 74 68 69 73 20 77 61 79 2c 20 61 20 6d 6f 72 | uld.continue..In.this.way,.a.mor |
| 1ee40 | 65 20 73 6f 70 68 69 73 74 69 63 61 74 65 64 0a 20 20 20 20 63 6f 6e 76 65 72 67 65 6e 63 65 20 | e.sophisticated.....convergence. |
| 1ee60 | 74 65 73 74 20 6d 61 79 20 62 65 20 73 75 70 70 6c 69 65 64 20 62 79 20 74 68 65 20 63 61 6c 6c | test.may.be.supplied.by.the.call |
| 1ee80 | 65 72 2e 0a 0a 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 6d | er...The.return.value.of.the.lam |
| 1eea0 | 62 64 61 20 69 73 20 65 69 74 68 65 72 20 74 68 65 20 66 69 78 70 6f 69 6e 74 20 6f 72 2c 20 69 | bda.is.either.the.fixpoint.or,.i |
| 1eec0 | 66 0a 69 74 65 72 61 74 69 6f 6e 20 68 61 6c 74 65 64 20 62 65 66 6f 72 65 20 63 6f 6e 76 65 72 | f.iteration.halted.before.conver |
| 1eee0 | 67 69 6e 67 2c 20 61 20 63 6f 6e 73 20 77 69 74 68 20 63 61 72 20 60 68 61 6c 74 65 64 27 20 61 | ging,.a.cons.with.car.`halted'.a |
| 1ef00 | 6e 64 0a 63 64 72 20 74 68 65 20 66 69 6e 61 6c 20 6f 75 74 70 75 74 20 66 72 6f 6d 20 48 41 4c | nd.cdr.the.final.output.from.HAL |
| 1ef20 | 54 2d 54 45 53 54 2e 0a 0a 49 6e 20 74 79 70 65 73 3a 20 28 61 20 2d 3e 20 61 29 20 2d 3e 20 61 | T-TEST...In.types:.(a.->.a).->.a |
| 1ef40 | 20 2d 3e 20 61 2e 0a 0a 28 66 6e 20 46 4e 20 26 6f 70 74 69 6f 6e 61 6c 20 45 51 55 41 4c 2d 54 | .->.a...(fn.FN.&optional.EQUAL-T |
| 1ef60 | 45 53 54 20 48 41 4c 54 2d 54 45 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 66 69 78 66 | EST.HALT-TEST)..(defalias.'-fixf |
| 1ef80 | 6e 20 23 5b 37 36 39 20 22 01 5c 32 30 36 05 00 5c 33 30 31 01 5c 32 30 36 0f 00 5c 33 30 32 5c | n.#[769.".\206..\301.\206..\302\ |
| 1efa0 | 33 30 33 5c 33 30 34 08 5c 22 21 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 06 | 303\304.\"!\305\306\307\310\311. |
| 1efc0 | 09 06 07 06 07 23 5c 33 31 32 5c 22 5c 33 31 33 5c 33 31 34 25 5c 32 30 37 22 20 5b 2d 66 69 78 | .....#\312\"\313\314%\207".[-fix |
| 1efe0 | 66 6e 2d 6d 61 78 2d 69 74 65 72 61 74 69 6f 6e 73 20 65 71 75 61 6c 20 2d 6e 6f 74 20 2d 63 6f | fn-max-iterations.equal.-not.-co |
| 1f000 | 75 6e 74 65 72 20 30 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 | unter.0.make-byte-code.257."\300 |
| 1f020 | 01 21 5c 33 30 32 02 21 5c 32 31 31 5c 32 30 34 21 00 5c 33 30 31 03 03 5c 22 5c 32 30 34 21 00 | .!\302.!\211\204!.\301..\"\204!. |
| 1f040 | 01 5c 32 36 32 03 5c 33 30 30 02 21 5c 32 36 32 02 5c 33 30 32 02 21 5c 32 36 32 01 5c 32 30 32 | .\262.\300.!\262.\302.!\262.\202 |
| 1f060 | 06 00 5c 32 31 31 5c 32 30 33 2b 00 5c 33 30 33 01 42 5c 32 30 32 2c 00 01 5c 32 30 37 22 20 76 | ..\211\203+.\303.B\202,..\207".v |
| 1f080 | 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 68 61 6c 74 65 64 5d 20 36 20 22 5c 6e 5c 6e 28 66 | concat.vector.[halted].6."\n\n(f |
| 1f0a0 | 6e 20 58 29 22 5d 20 31 33 20 28 23 24 20 2e 20 31 32 35 36 34 32 29 5d 29 0a 23 40 36 38 39 20 | n.X)"].13.(#$...125642)]).#@689. |
| 1f0c0 | 54 61 6b 65 20 61 20 6c 69 73 74 20 6f 66 20 6e 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 72 | Take.a.list.of.n.functions.and.r |
| 1f0e0 | 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 74 61 6b 65 73 20 61 0a 6c 69 | eturn.a.function.that.takes.a.li |
| 1f100 | 73 74 20 6f 66 20 6c 65 6e 67 74 68 20 6e 2c 20 61 70 70 6c 79 69 6e 67 20 69 2d 74 68 20 66 75 | st.of.length.n,.applying.i-th.fu |
| 1f120 | 6e 63 74 69 6f 6e 20 74 6f 20 69 2d 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 0a 69 6e | nction.to.i-th.element.of.the.in |
| 1f140 | 70 75 74 20 6c 69 73 74 2e 20 20 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 65 6e | put.list...Returns.a.list.of.len |
| 1f160 | 67 74 68 20 6e 2e 0a 0a 49 6e 20 74 79 70 65 73 20 28 66 6f 72 20 6e 3d 32 29 3a 20 28 28 61 20 | gth.n...In.types.(for.n=2):.((a. |
| 1f180 | 2d 3e 20 62 29 2c 20 28 63 20 2d 3e 20 64 29 29 20 2d 3e 20 28 61 2c 20 63 29 20 2d 3e 20 28 62 | ->.b),.(c.->.d)).->.(a,.c).->.(b |
| 1f1a0 | 2c 20 64 29 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 61 74 69 73 66 69 65 73 20 74 68 | ,.d)..This.function.satisfies.th |
| 1f1c0 | 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 61 77 73 3a 0a 0a 20 20 28 2d 63 6f 6d 70 6f 73 65 20 28 | e.following.laws:....(-compose.( |
| 1f1e0 | 2d 70 72 6f 64 66 6e 20 66 20 67 20 2e 2e 2e 29 20 28 2d 70 72 6f 64 66 6e 20 66 5c 3d 27 20 67 | -prodfn.f.g....).(-prodfn.f\='.g |
| 1f200 | 5c 3d 27 20 2e 2e 2e 29 29 20 3d 20 28 2d 70 72 6f 64 66 6e 20 28 2d 63 6f 6d 70 6f 73 65 20 66 | \='....)).=.(-prodfn.(-compose.f |
| 1f220 | 20 66 5c 3d 27 29 20 28 2d 63 6f 6d 70 6f 73 65 20 67 20 67 5c 3d 27 29 20 2e 2e 2e 29 0a 20 20 | .f\=').(-compose.g.g\=')....)... |
| 1f240 | 28 2d 70 72 6f 64 66 6e 20 66 20 67 20 2e 2e 2e 29 20 3d 20 28 2d 6a 75 78 74 20 28 2d 63 6f 6d | (-prodfn.f.g....).=.(-juxt.(-com |
| 1f260 | 70 6f 73 65 20 66 20 28 2d 70 61 72 74 69 61 6c 20 5c 3d 27 6e 74 68 20 30 29 29 20 28 2d 63 6f | pose.f.(-partial.\='nth.0)).(-co |
| 1f280 | 6d 70 6f 73 65 20 67 20 28 2d 70 61 72 74 69 61 6c 20 5c 3d 27 6e 74 68 20 31 29 29 20 2e 2e 2e | mpose.g.(-partial.\='nth.1)).... |
| 1f2a0 | 29 0a 20 20 28 2d 63 6f 6d 70 6f 73 65 20 28 2d 70 72 6f 64 66 6e 20 66 20 67 20 2e 2e 2e 29 20 | )...(-compose.(-prodfn.f.g....). |
| 1f2c0 | 28 2d 6a 75 78 74 20 66 5c 3d 27 20 67 5c 3d 27 20 2e 2e 2e 29 29 20 3d 20 28 2d 6a 75 78 74 20 | (-juxt.f\='.g\='....)).=.(-juxt. |
| 1f2e0 | 28 2d 63 6f 6d 70 6f 73 65 20 66 20 66 5c 3d 27 29 20 28 2d 63 6f 6d 70 6f 73 65 20 67 20 67 5c | (-compose.f.f\=').(-compose.g.g\ |
| 1f300 | 3d 27 29 20 2e 2e 2e 29 0a 20 20 28 2d 63 6f 6d 70 6f 73 65 20 28 2d 70 61 72 74 69 61 6c 20 5c | =')....)...(-compose.(-partial.\ |
| 1f320 | 3d 27 6e 74 68 20 6e 29 20 28 2d 70 72 6f 64 20 66 31 20 66 32 20 2e 2e 2e 29 29 20 3d 20 28 2d | ='nth.n).(-prod.f1.f2....)).=.(- |
| 1f340 | 63 6f 6d 70 6f 73 65 20 66 6e 20 28 2d 70 61 72 74 69 61 6c 20 5c 3d 27 6e 74 68 20 6e 29 29 0a | compose.fn.(-partial.\='nth.n)). |
| 1f360 | 0a 28 66 6e 20 26 72 65 73 74 20 46 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 2d 70 72 6f | .(fn.&rest.FNS)..(defalias.'-pro |
| 1f380 | 64 66 6e 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 05 | dfn.#[128."\300\301\302\303\304. |
| 1f3a0 | 21 5c 33 30 35 5c 22 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 62 79 74 65 | !\305\"\306\307%\207".[make-byte |
| 1f3c0 | 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 30 03 23 5c 32 30 37 22 20 76 | -code.257."\301\302\300.#\207".v |
| 1f3e0 | 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 2d 7a 69 70 2d 77 69 74 68 20 66 75 6e 63 61 6c 6c | concat.vector.[-zip-with.funcall |
| 1f400 | 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 5d 20 37 20 28 23 24 20 2e 20 31 32 37 31 36 38 | ].5."\n\n(fn.X)"].7.(#$...127168 |
| 1f420 | 29 5d 29 0a 23 40 34 35 20 46 6f 6e 74 20 6c 6f 63 6b 20 6b 65 79 77 6f 72 64 73 20 66 6f 72 20 | )]).#@45.Font.lock.keywords.for. |
| 1f440 | 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 2e 1f 0a 28 64 65 66 76 61 72 20 64 61 | `dash-fontify-mode'...(defvar.da |
| 1f460 | 73 68 2d 2d 6b 65 79 77 6f 72 64 73 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 | sh--keywords.(byte-code."\301\30 |
| 1f480 | 32 42 5c 33 30 33 5c 33 30 34 42 5c 33 30 35 08 5c 33 30 36 57 5c 32 30 35 19 00 5c 33 30 37 5c | 2B\303\304B\305.\306W\205..\307\ |
| 1f4a0 | 33 31 30 5c 33 31 31 02 5c 33 31 32 5c 22 50 5c 33 31 33 42 43 5c 32 36 32 01 42 42 42 5c 32 30 | 310\311.\312\"P\313BC\262.BBB\20 |
| 1f4c0 | 37 22 20 5b 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f 6e 20 22 5c 5c 5f 3c 5c 5c 28 | 7".[emacs-major-version."\\_<\\( |
| 1f4e0 | 3f 3a 61 63 63 5c 5c 7c 69 74 5c 5c 28 3f 3a 2d 69 6e 64 65 78 5c 5c 29 3f 5c 5c 7c 6f 74 68 65 | ?:acc\\|it\\(?:-index\\)?\\|othe |
| 1f500 | 72 5c 5c 29 5c 5c 5f 3e 22 20 28 30 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d | r\\)\\_>".(0.font-lock-variable- |
| 1f520 | 6e 61 6d 65 2d 66 61 63 65 29 20 22 28 5c 5c 28 5c 5c 28 3f 3a 64 65 66 5c 5c 28 3f 3a 2d 65 78 | name-face)."(\\(\\(?:def\\(?:-ex |
| 1f540 | 61 6d 70 6c 65 2d 67 72 6f 75 70 5c 5c 7c 65 78 61 6d 70 6c 65 73 5c 5c 29 5c 5c 29 5c 5c 29 5c | ample-group\\|examples\\)\\)\\)\ |
| 1f560 | 5c 5f 3e 5b 09 20 5d 2b 5c 5c 28 5c 5c 28 3f 3a 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 5c 5c 7c 5c 5c | \_>[..]+\\(\\(?:\\sw\\|\\s_\\|\\ |
| 1f580 | 5c 5c 2e 5c 5c 29 2a 5c 5c 29 22 20 28 28 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 | \\.\\)*\\)".((1.font-lock-keywor |
| 1f5a0 | 64 2d 66 61 63 65 29 20 28 32 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 | d-face).(2.font-lock-function-na |
| 1f5c0 | 6d 65 2d 66 61 63 65 29 29 20 22 5c 5c 5f 3c 5c 5c 28 3f 3a 5c 5c 28 3f 3a 21 21 5c 5c 7c 5b 3d | me-face))."\\_<\\(?:\\(?:!!\\|[= |
| 1f5e0 | 7e 5d 5c 5c 29 3e 5c 5c 29 5c 5c 5f 3e 22 20 32 35 20 28 22 21 63 64 72 22 20 22 21 63 6f 6e 73 | ~]\\)>\\)\\_>".25.("!cdr"."!cons |
| 1f600 | 22 20 22 2d 2d 3e 22 20 22 2d 2d 61 6c 6c 3f 22 20 22 2d 2d 61 6e 6e 6f 74 61 74 65 22 20 22 2d | "."-->"."--all?"."--annotate"."- |
| 1f620 | 2d 61 6e 79 3f 22 20 22 2d 2d 63 6f 75 6e 74 22 20 22 2d 2d 64 6f 74 69 6d 65 73 22 20 22 2d 2d | -any?"."--count"."--dotimes"."-- |
| 1f640 | 64 6f 74 6f 22 20 22 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 22 20 22 2d 2d 65 61 63 68 22 20 22 2d | doto"."--drop-while"."--each"."- |
| 1f660 | 2d 65 61 63 68 2d 72 22 20 22 2d 2d 65 61 63 68 2d 72 2d 77 68 69 6c 65 22 20 22 2d 2d 65 61 63 | -each-r"."--each-r-while"."--eac |
| 1f680 | 68 2d 77 68 69 6c 65 22 20 22 2d 2d 66 69 6c 74 65 72 22 20 22 2d 2d 66 69 6e 64 2d 69 6e 64 65 | h-while"."--filter"."--find-inde |
| 1f6a0 | 78 22 20 22 2d 2d 66 69 6e 64 2d 69 6e 64 69 63 65 73 22 20 22 2d 2d 66 69 6e 64 2d 6c 61 73 74 | x"."--find-indices"."--find-last |
| 1f6c0 | 2d 69 6e 64 65 78 22 20 22 2d 2d 66 69 72 73 74 22 20 22 2d 2d 66 69 78 22 20 22 2d 2d 67 72 6f | -index"."--first"."--fix"."--gro |
| 1f6e0 | 75 70 2d 62 79 22 20 22 2d 2d 69 66 2d 6c 65 74 22 20 22 2d 2d 69 74 65 72 61 74 65 22 20 22 2d | up-by"."--if-let"."--iterate"."- |
| 1f700 | 2d 6b 65 65 70 22 20 22 2d 2d 6c 61 73 74 22 20 22 2d 2d 6d 61 70 22 20 22 2d 2d 6d 61 70 2d 66 | -keep"."--last"."--map"."--map-f |
| 1f720 | 69 72 73 74 22 20 22 2d 2d 6d 61 70 2d 69 6e 64 65 78 65 64 22 20 22 2d 2d 6d 61 70 2d 6c 61 73 | irst"."--map-indexed"."--map-las |
| 1f740 | 74 22 20 22 2d 2d 6d 61 70 2d 77 68 65 6e 22 20 22 2d 2d 6d 61 70 63 61 74 22 20 22 2d 2d 6d 61 | t"."--map-when"."--mapcat"."--ma |
| 1f760 | 78 2d 62 79 22 20 22 2d 2d 6d 69 6e 2d 62 79 22 20 22 2d 2d 6e 6f 6e 65 3f 22 20 22 2d 2d 6f 6e | x-by"."--min-by"."--none?"."--on |
| 1f780 | 6c 79 2d 73 6f 6d 65 3f 22 20 22 2d 2d 70 61 72 74 69 74 69 6f 6e 2d 62 79 22 20 22 2d 2d 70 61 | ly-some?"."--partition-by"."--pa |
| 1f7a0 | 72 74 69 74 69 6f 6e 2d 62 79 2d 68 65 61 64 65 72 22 20 22 2d 2d 72 65 64 75 63 65 22 20 22 2d | rtition-by-header"."--reduce"."- |
| 1f7c0 | 2d 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64 75 63 65 2d 72 22 20 22 2d 2d 72 65 | -reduce-from"."--reduce-r"."--re |
| 1f7e0 | 64 75 63 65 2d 72 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64 75 63 74 69 6f 6e 73 22 20 22 2d 2d 72 | duce-r-from"."--reductions"."--r |
| 1f800 | 65 64 75 63 74 69 6f 6e 73 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 22 | eductions-from"."--reductions-r" |
| 1f820 | 20 22 2d 2d 72 65 64 75 63 74 69 6f 6e 73 2d 72 2d 66 72 6f 6d 22 20 22 2d 2d 72 65 6d 6f 76 65 | ."--reductions-r-from"."--remove |
| 1f840 | 22 20 22 2d 2d 72 65 6d 6f 76 65 2d 66 69 72 73 74 22 20 22 2d 2d 72 65 6d 6f 76 65 2d 6c 61 73 | "."--remove-first"."--remove-las |
| 1f860 | 74 22 20 22 2d 2d 73 65 70 61 72 61 74 65 22 20 22 2d 2d 73 6f 6d 65 22 20 22 2d 2d 73 6f 72 74 | t"."--separate"."--some"."--sort |
| 1f880 | 22 20 22 2d 2d 73 70 6c 69 63 65 22 20 22 2d 2d 73 70 6c 69 63 65 2d 6c 69 73 74 22 20 22 2d 2d | "."--splice"."--splice-list"."-- |
| 1f8a0 | 73 70 6c 69 74 2d 77 68 65 6e 22 20 22 2d 2d 73 70 6c 69 74 2d 77 69 74 68 22 20 22 2d 2d 74 61 | split-when"."--split-with"."--ta |
| 1f8c0 | 6b 65 2d 77 68 69 6c 65 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 22 20 22 2d 2d 74 72 65 65 2d 6d | ke-while"."--tree-map"."--tree-m |
| 1f8e0 | 61 70 2d 6e 6f 64 65 73 22 20 22 2d 2d 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 22 20 22 2d 2d | ap-nodes"."--tree-mapreduce"."-- |
| 1f900 | 74 72 65 65 2d 6d 61 70 72 65 64 75 63 65 2d 66 72 6f 6d 22 20 22 2d 2d 74 72 65 65 2d 72 65 64 | tree-mapreduce-from"."--tree-red |
| 1f920 | 75 63 65 22 20 22 2d 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 | uce"."--tree-reduce-from"."--tre |
| 1f940 | 65 2d 73 65 71 22 20 22 2d 2d 75 6e 66 6f 6c 64 22 20 22 2d 2d 75 70 64 61 74 65 2d 61 74 22 20 | e-seq"."--unfold"."--update-at". |
| 1f960 | 22 2d 2d 77 68 65 6e 2d 6c 65 74 22 20 22 2d 2d 7a 69 70 2d 77 69 74 68 22 20 22 2d 3e 22 20 22 | "--when-let"."--zip-with"."->"." |
| 1f980 | 2d 3e 3e 22 20 22 2d 61 73 2d 3e 22 20 22 2d 64 6f 74 6f 22 20 22 2d 69 66 2d 6c 65 74 22 20 22 | ->>"."-as->"."-doto"."-if-let"." |
| 1f9a0 | 2d 69 66 2d 6c 65 74 2a 22 20 22 2d 6c 61 6d 62 64 61 22 20 22 2d 6c 65 74 22 20 22 2d 6c 65 74 | -if-let*"."-lambda"."-let"."-let |
| 1f9c0 | 2a 22 20 22 2d 73 65 74 71 22 20 22 2d 73 6f 6d 65 2d 2d 3e 22 20 22 2d 73 6f 6d 65 2d 3e 22 20 | *"."-setq"."-some-->"."-some->". |
| 1f9e0 | 22 2d 73 6f 6d 65 2d 3e 3e 22 20 22 2d 73 70 6c 69 74 2d 6f 6e 22 20 22 2d 77 68 65 6e 2d 6c 65 | "-some->>"."-split-on"."-when-le |
| 1fa00 | 74 22 20 22 2d 77 68 65 6e 2d 6c 65 74 2a 22 29 20 22 28 22 20 72 65 67 65 78 70 2d 6f 70 74 20 | t"."-when-let*")."(".regexp-opt. |
| 1fa20 | 73 79 6d 62 6f 6c 73 20 31 5d 20 38 29 20 28 23 24 20 2e 20 31 32 38 30 34 31 29 29 0a 28 62 79 | symbols.1].8).(#$...128041)).(by |
| 1fa40 | 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 5c 33 30 34 44 44 5c | te-code."\300\301\302\303\304DD\ |
| 1fa60 | 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 26 09 5c 32 30 | 305\306\307\310\311\312\313&.\20 |
| 1fa80 | 37 22 20 5b 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 64 61 73 68 | 7".[custom-declare-variable.dash |
| 1faa0 | 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6c 69 67 68 74 65 72 20 66 75 6e 63 61 6c 6c 20 66 75 | -fontify-mode-lighter.funcall.fu |
| 1fac0 | 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 5d 20 22 | nction.#[0."\300\207".[nil].1]." |
| 1fae0 | 4d 6f 64 65 20 6c 69 6e 65 20 6c 69 67 68 74 65 72 20 66 6f 72 20 60 64 61 73 68 2d 66 6f 6e 74 | Mode.line.lighter.for.`dash-font |
| 1fb00 | 69 66 79 2d 6d 6f 64 65 27 2e 5c 6e 45 69 74 68 65 72 20 61 20 73 74 72 69 6e 67 20 74 6f 20 64 | ify-mode'.\nEither.a.string.to.d |
| 1fb20 | 69 73 70 6c 61 79 20 69 6e 20 74 68 65 20 6d 6f 64 65 20 6c 69 6e 65 20 77 68 65 6e 5c 6e 60 64 | isplay.in.the.mode.line.when\n`d |
| 1fb40 | 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 20 69 73 20 6f 6e 2c 20 6f 72 20 6e 69 6c 20 | ash-fontify-mode'.is.on,.or.nil. |
| 1fb60 | 74 6f 20 64 69 73 70 6c 61 79 5c 6e 6e 6f 74 68 69 6e 67 20 28 74 68 65 20 64 65 66 61 75 6c 74 | to.display\nnothing.(the.default |
| 1fb80 | 29 2e 22 20 3a 70 61 63 6b 61 67 65 2d 76 65 72 73 69 6f 6e 20 28 64 61 73 68 20 2e 20 22 32 2e | ).".:package-version.(dash..."2. |
| 1fba0 | 31 38 2e 30 22 29 20 3a 67 72 6f 75 70 20 64 61 73 68 20 3a 74 79 70 65 20 28 63 68 6f 69 63 65 | 18.0").:group.dash.:type.(choice |
| 1fbc0 | 20 28 73 74 72 69 6e 67 20 3a 74 61 67 20 22 4c 69 67 68 74 65 72 22 20 3a 76 61 6c 75 65 20 22 | .(string.:tag."Lighter".:value." |
| 1fbe0 | 20 44 61 73 68 22 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4e 6f 74 68 69 6e 67 22 20 6e 69 | .Dash").(const.:tag."Nothing".ni |
| 1fc00 | 6c 29 29 5d 20 31 30 29 0a 23 40 31 30 33 20 4e 6f 6e 2d 6e 69 6c 20 69 66 20 44 61 73 68 2d 46 | l))].10).#@103.Non-nil.if.Dash-F |
| 1fc20 | 6f 6e 74 69 66 79 20 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 2e 0a 55 73 65 20 74 68 65 20 | ontify.mode.is.enabled..Use.the. |
| 1fc40 | 63 6f 6d 6d 61 6e 64 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 20 74 6f 20 63 | command.`dash-fontify-mode'.to.c |
| 1fc60 | 68 61 6e 67 65 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 1f 0a 28 64 65 66 76 61 72 20 64 61 | hange.this.variable...(defvar.da |
| 1fc80 | 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 6e 69 6c 20 28 23 24 20 2e 20 31 33 30 30 36 33 | sh-fontify-mode.nil.(#$...130063 |
| 1fca0 | 29 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 | )).(make-variable-buffer-local.' |
| 1fcc0 | 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 29 0a 23 40 37 34 32 20 54 6f 67 67 6c 65 20 | dash-fontify-mode).#@742.Toggle. |
| 1fce0 | 66 6f 6e 74 69 66 69 63 61 74 69 6f 6e 20 6f 66 20 44 61 73 68 20 73 70 65 63 69 61 6c 20 76 61 | fontification.of.Dash.special.va |
| 1fd00 | 72 69 61 62 6c 65 73 2e 0a 0a 49 66 20 63 61 6c 6c 65 64 20 69 6e 74 65 72 61 63 74 69 76 65 6c | riables...If.called.interactivel |
| 1fd20 | 79 2c 20 65 6e 61 62 6c 65 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 20 69 66 20 41 | y,.enable.Dash-Fontify.mode.if.A |
| 1fd40 | 52 47 20 69 73 0a 70 6f 73 69 74 69 76 65 2c 20 61 6e 64 20 64 69 73 61 62 6c 65 20 69 74 20 69 | RG.is.positive,.and.disable.it.i |
| 1fd60 | 66 20 41 52 47 20 69 73 20 7a 65 72 6f 20 6f 72 20 6e 65 67 61 74 69 76 65 2e 20 20 49 66 20 63 | f.ARG.is.zero.or.negative...If.c |
| 1fd80 | 61 6c 6c 65 64 0a 66 72 6f 6d 20 4c 69 73 70 2c 20 61 6c 73 6f 20 65 6e 61 62 6c 65 20 74 68 65 | alled.from.Lisp,.also.enable.the |
| 1fda0 | 20 6d 6f 64 65 20 69 66 20 41 52 47 20 69 73 20 6f 6d 69 74 74 65 64 20 6f 72 20 6e 69 6c 2c 20 | .mode.if.ARG.is.omitted.or.nil,. |
| 1fdc0 | 61 6e 64 0a 74 6f 67 67 6c 65 20 69 74 20 69 66 20 41 52 47 20 69 73 20 60 74 6f 67 67 6c 65 27 | and.toggle.it.if.ARG.is.`toggle' |
| 1fde0 | 3b 20 64 69 73 61 62 6c 65 20 74 68 65 20 6d 6f 64 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 44 | ;.disable.the.mode.otherwise...D |
| 1fe00 | 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 20 69 73 20 61 20 62 75 66 66 65 72 2d 6c 6f 63 | ash-Fontify.mode.is.a.buffer-loc |
| 1fe20 | 61 6c 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 45 6d 61 63 73 | al.minor.mode.intended.for.Emacs |
| 1fe40 | 0a 4c 69 73 70 20 62 75 66 66 65 72 73 2e 20 20 45 6e 61 62 6c 69 6e 67 20 69 74 20 63 61 75 73 | .Lisp.buffers...Enabling.it.caus |
| 1fe60 | 65 73 20 74 68 65 20 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 73 20 62 6f 75 6e 64 20 69 | es.the.special.variables.bound.i |
| 1fe80 | 6e 0a 61 6e 61 70 68 6f 72 69 63 20 44 61 73 68 20 6d 61 63 72 6f 73 20 74 6f 20 62 65 20 66 6f | n.anaphoric.Dash.macros.to.be.fo |
| 1fea0 | 6e 74 69 66 69 65 64 2e 20 20 54 68 65 73 65 20 61 6e 61 70 68 6f 72 61 73 20 69 6e 63 6c 75 64 | ntified...These.anaphoras.includ |
| 1fec0 | 65 0a 60 69 74 27 2c 20 60 69 74 2d 69 6e 64 65 78 27 2c 20 60 61 63 63 27 2c 20 61 6e 64 20 60 | e.`it',.`it-index',.`acc',.and.` |
| 1fee0 | 6f 74 68 65 72 27 2e 20 20 49 6e 20 6f 6c 64 65 72 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 | other'...In.older.Emacs.versions |
| 1ff00 | 0a 77 68 69 63 68 20 64 6f 20 6e 6f 74 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 64 65 74 65 63 74 | .which.do.not.dynamically.detect |
| 1ff20 | 20 6d 61 63 72 6f 73 2c 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 0a 61 64 64 69 74 | .macros,.Dash-Fontify.mode.addit |
| 1ff40 | 69 6f 6e 61 6c 6c 79 20 66 6f 6e 74 69 66 69 65 73 20 44 61 73 68 20 6d 61 63 72 6f 20 63 61 6c | ionally.fontifies.Dash.macro.cal |
| 1ff60 | 6c 73 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 | ls...See.also.`dash-fontify-mode |
| 1ff80 | 2d 6c 69 67 68 74 65 72 27 20 61 6e 64 0a 60 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 | -lighter'.and.`global-dash-fonti |
| 1ffa0 | 66 79 2d 6d 6f 64 65 27 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 29 1f 0a 28 | fy-mode'...(fn.&optional.ARG)..( |
| 1ffc0 | 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 23 5b 32 35 | defalias.'dash-fontify-mode.#[25 |
| 1ffe0 | 36 20 22 5c 33 30 33 20 01 5c 33 30 34 3d 5c 32 30 33 0d 00 08 3f 5c 32 30 32 12 00 5c 33 30 35 | 6."\303..\304=\203...?\202..\305 |
| 20000 | 02 21 5c 33 30 36 56 5c 32 31 31 10 5c 32 30 33 20 00 5c 33 30 37 5c 33 31 30 09 5c 33 31 31 23 | .!\306V\211.\203..\307\310.\311# |
| 20020 | 5c 32 31 30 5c 32 30 32 25 00 5c 33 31 32 5c 33 31 30 09 5c 22 5c 32 31 30 5c 33 31 33 5c 33 31 | \210\202%.\312\310.\"\210\313\31 |
| 20040 | 34 21 5c 32 30 33 31 00 5c 33 31 34 20 5c 32 31 30 5c 32 30 32 38 00 5c 6e 5c 32 30 33 38 00 5c | 4!\2031.\314.\210\2028.\n\2038.\ |
| 20060 | 33 31 35 20 5c 32 31 30 5c 33 31 36 5c 33 31 37 08 5c 32 30 33 42 00 5c 33 32 30 5c 32 30 32 43 | 315.\210\316\317.\203B.\320\202C |
| 20080 | 00 5c 33 32 31 5c 22 5c 32 31 30 5c 33 32 32 5c 33 32 33 21 5c 32 30 33 67 00 5c 33 30 33 20 5c | .\321\"\210\322\323!\203g.\303.\ |
| 200a0 | 32 30 33 57 00 5c 32 31 31 5c 33 30 33 20 5c 32 33 32 5c 32 30 33 67 00 5c 33 32 34 5c 33 32 35 | 203W.\211\303.\232\203g.\324\325 |
| 200c0 | 5c 33 32 36 08 5c 32 30 33 62 00 5c 33 32 37 5c 32 30 32 63 00 5c 33 33 30 03 23 5c 32 36 36 02 | \326.\203b.\327\202c.\330.#\266. |
| 200e0 | 5c 32 31 30 5c 33 33 31 20 5c 32 31 30 08 5c 32 30 37 22 20 5b 64 61 73 68 2d 66 6f 6e 74 69 66 | \210\331.\210.\207".[dash-fontif |
| 20100 | 79 2d 6d 6f 64 65 20 64 61 73 68 2d 2d 6b 65 79 77 6f 72 64 73 20 66 6f 6e 74 2d 6c 6f 63 6b 2d | y-mode.dash--keywords.font-lock- |
| 20120 | 6d 6f 64 65 20 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 74 6f 67 67 6c 65 20 70 72 65 66 | mode.current-message.toggle.pref |
| 20140 | 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 30 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 | ix-numeric-value.0.font-lock-add |
| 20160 | 2d 6b 65 79 77 6f 72 64 73 20 6e 69 6c 20 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 72 65 6d 6f 76 65 | -keywords.nil.t.font-lock-remove |
| 20180 | 2d 6b 65 79 77 6f 72 64 73 20 66 62 6f 75 6e 64 70 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6c 75 73 | -keywords.fboundp.font-lock-flus |
| 201a0 | 68 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6f 6e 74 69 66 79 2d 62 75 66 66 65 72 20 72 75 6e 2d 68 | h.font-lock-fontify-buffer.run-h |
| 201c0 | 6f 6f 6b 73 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 64 61 73 68 | ooks.dash-fontify-mode-hook.dash |
| 201e0 | 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 64 61 73 68 2d 66 6f 6e 74 69 | -fontify-mode-on-hook.dash-fonti |
| 20200 | 66 79 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 63 61 6c 6c 65 64 2d 69 6e 74 65 72 61 63 74 | fy-mode-off-hook.called-interact |
| 20220 | 69 76 65 6c 79 2d 70 20 61 6e 79 20 22 20 69 6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 22 | ively-p.any.".in.current.buffer" |
| 20240 | 20 6d 65 73 73 61 67 65 20 22 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 20 25 73 61 62 | .message."Dash-Fontify.mode.%sab |
| 20260 | 6c 65 64 25 73 22 20 22 65 6e 22 20 22 64 69 73 22 20 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e | led%s"."en"."dis".force-mode-lin |
| 20280 | 65 2d 75 70 64 61 74 65 5d 20 38 20 28 23 24 20 2e 20 31 33 30 32 36 35 29 20 28 62 79 74 65 2d | e-update].8.(#$...130265).(byte- |
| 202a0 | 63 6f 64 65 20 22 08 5c 32 30 36 05 00 5c 33 30 31 43 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 | code.".\206..\301C\207".[current |
| 202c0 | 2d 70 72 65 66 69 78 2d 61 72 67 20 74 6f 67 67 6c 65 5d 20 31 29 5d 29 0a 28 64 65 66 76 61 72 | -prefix-arg.toggle].1)]).(defvar |
| 202e0 | 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 29 0a 28 62 79 | .dash-fontify-mode-hook.nil).(by |
| 20300 | 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 4e 5c 32 30 34 5c 66 00 5c 33 30 33 5c 33 30 | te-code."\301\302N\204\f.\303\30 |
| 20320 | 31 5c 33 30 32 5c 33 30 34 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 | 1\302\304#\210\305\306\307\310\3 |
| 20340 | 30 30 21 5c 32 30 35 16 00 08 5c 33 31 31 5c 32 31 31 25 5c 32 30 37 22 20 5b 64 61 73 68 2d 66 | 00!\205...\311\211%\207".[dash-f |
| 20360 | 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6d 61 70 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 | ontify-mode-map.dash-fontify-mod |
| 20380 | 65 2d 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 75 | e-hook.variable-documentation.pu |
| 203a0 | 74 20 22 48 6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 6f 72 20 6c 65 | t."Hook.run.after.entering.or.le |
| 203c0 | 61 76 69 6e 67 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 2e 5c 6e 4e 6f 20 70 | aving.`dash-fontify-mode'.\nNo.p |
| 203e0 | 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 | roblems.result.if.this.variable. |
| 20400 | 69 73 20 6e 6f 74 20 62 6f 75 6e 64 2e 5c 6e 60 61 64 64 2d 68 6f 6f 6b 27 20 61 75 74 6f 6d 61 | is.not.bound.\n`add-hook'.automa |
| 20420 | 74 69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69 74 2e 20 20 28 54 68 69 73 20 69 73 20 74 72 75 65 | tically.binds.it...(This.is.true |
| 20440 | 20 66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 73 2e 29 22 20 61 64 64 2d 6d | .for.all.hook.variables.)".add-m |
| 20460 | 69 6e 6f 72 2d 6d 6f 64 65 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 64 61 73 68 | inor-mode.dash-fontify-mode.dash |
| 20480 | 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6c 69 67 68 74 65 72 20 62 6f 75 6e 64 70 20 6e 69 6c | -fontify-mode-lighter.boundp.nil |
| 204a0 | 5d 20 36 29 0a 23 40 35 36 20 45 6e 61 62 6c 65 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d | ].6).#@56.Enable.`dash-fontify-m |
| 204c0 | 6f 64 65 27 20 69 66 20 69 6e 20 61 6e 20 45 6d 61 63 73 20 4c 69 73 70 20 62 75 66 66 65 72 2e | ode'.if.in.an.Emacs.Lisp.buffer. |
| 204e0 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e 2d 66 6f 6e 74 69 | ..(defalias.'dash--turn-on-fonti |
| 20500 | 66 79 2d 6d 6f 64 65 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 35 08 00 5c 33 30 32 | fy-mode.#[0."\300\301!\205..\302 |
| 20520 | 20 5c 32 30 37 22 20 5b 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 65 6d 61 63 73 2d 6c 69 73 | .\207".[derived-mode-p.emacs-lis |
| 20540 | 70 2d 6d 6f 64 65 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 5d 20 32 20 28 23 24 20 | p-mode.dash-fontify-mode].2.(#$. |
| 20560 | 2e 20 31 33 32 32 36 36 29 5d 29 0a 28 70 75 74 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f | ..132266)]).(put.'global-dash-fo |
| 20580 | 6e 74 69 66 79 2d 6d 6f 64 65 20 27 67 6c 6f 62 61 6c 69 7a 65 64 2d 6d 69 6e 6f 72 2d 6d 6f 64 | ntify-mode.'globalized-minor-mod |
| 205a0 | 65 20 74 29 0a 28 64 65 66 76 61 72 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6d | e.t).(defvar.dash-fontify-mode-m |
| 205c0 | 61 6a 6f 72 2d 6d 6f 64 65 20 6e 69 6c 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | ajor-mode.nil).(byte-code."\300\ |
| 205e0 | 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 44 44 5c 33 | 301!\210\302\303\304\305\306DD\3 |
| 20600 | 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 | 07\310\311\312\313\314\315\316\3 |
| 20620 | 31 37 26 0b 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d | 17&.\207".[make-variable-buffer- |
| 20640 | 6c 6f 63 61 6c 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 6d 61 6a 6f 72 2d 6d 6f | local.dash-fontify-mode-major-mo |
| 20660 | 64 65 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 67 6c 6f 62 61 | de.custom-declare-variable.globa |
| 20680 | 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 | l-dash-fontify-mode.funcall.func |
| 206a0 | 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 5d 20 22 4e 6f | tion.#[0."\300\207".[nil].1]."No |
| 206c0 | 6e 2d 6e 69 6c 20 69 66 20 47 6c 6f 62 61 6c 20 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 | n-nil.if.Global.Dash-Fontify.mod |
| 206e0 | 65 20 69 73 20 65 6e 61 62 6c 65 64 2e 5c 6e 53 65 65 20 74 68 65 20 60 67 6c 6f 62 61 6c 2d 64 | e.is.enabled.\nSee.the.`global-d |
| 20700 | 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 27 20 63 6f 6d 6d 61 6e 64 5c 6e 66 6f 72 20 61 | ash-fontify-mode'.command\nfor.a |
| 20720 | 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 6d 69 6e 6f 72 20 6d 6f 64 65 2e | .description.of.this.minor.mode. |
| 20740 | 5c 6e 53 65 74 74 69 6e 67 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 64 69 72 65 63 74 6c 79 | \nSetting.this.variable.directly |
| 20760 | 20 64 6f 65 73 20 6e 6f 74 20 74 61 6b 65 20 65 66 66 65 63 74 3b 5c 6e 65 69 74 68 65 72 20 63 | .does.not.take.effect;\neither.c |
| 20780 | 75 73 74 6f 6d 69 7a 65 20 69 74 20 28 73 65 65 20 74 68 65 20 69 6e 66 6f 20 6e 6f 64 65 20 60 | ustomize.it.(see.the.info.node.` |
| 207a0 | 45 61 73 79 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 27 29 5c 6e 6f 72 20 63 61 6c 6c 20 74 68 | Easy.Customization')\nor.call.th |
| 207c0 | 65 20 66 75 6e 63 74 69 6f 6e 20 60 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d | e.function.`global-dash-fontify- |
| 207e0 | 6d 6f 64 65 27 2e 22 20 3a 73 65 74 20 63 75 73 74 6f 6d 2d 73 65 74 2d 6d 69 6e 6f 72 2d 6d 6f | mode'.".:set.custom-set-minor-mo |
| 20800 | 64 65 20 3a 69 6e 69 74 69 61 6c 69 7a 65 20 63 75 73 74 6f 6d 2d 69 6e 69 74 69 61 6c 69 7a 65 | de.:initialize.custom-initialize |
| 20820 | 2d 64 65 66 61 75 6c 74 20 3a 67 72 6f 75 70 20 64 61 73 68 20 3a 74 79 70 65 20 62 6f 6f 6c 65 | -default.:group.dash.:type.boole |
| 20840 | 61 6e 5d 20 31 32 29 0a 23 40 33 37 38 20 54 6f 67 67 6c 65 20 44 61 73 68 2d 46 6f 6e 74 69 66 | an].12).#@378.Toggle.Dash-Fontif |
| 20860 | 79 20 6d 6f 64 65 20 69 6e 20 61 6c 6c 20 62 75 66 66 65 72 73 2e 0a 57 69 74 68 20 70 72 65 66 | y.mode.in.all.buffers..With.pref |
| 20880 | 69 78 20 41 52 47 2c 20 65 6e 61 62 6c 65 20 47 6c 6f 62 61 6c 20 44 61 73 68 2d 46 6f 6e 74 69 | ix.ARG,.enable.Global.Dash-Fonti |
| 208a0 | 66 79 20 6d 6f 64 65 20 69 66 20 41 52 47 20 69 73 20 70 6f 73 69 74 69 76 65 3b 0a 6f 74 68 65 | fy.mode.if.ARG.is.positive;.othe |
| 208c0 | 72 77 69 73 65 2c 20 64 69 73 61 62 6c 65 20 69 74 2e 20 20 49 66 20 63 61 6c 6c 65 64 20 66 72 | rwise,.disable.it...If.called.fr |
| 208e0 | 6f 6d 20 4c 69 73 70 2c 20 65 6e 61 62 6c 65 20 74 68 65 20 6d 6f 64 65 20 69 66 0a 41 52 47 20 | om.Lisp,.enable.the.mode.if.ARG. |
| 20900 | 69 73 20 6f 6d 69 74 74 65 64 20 6f 72 20 6e 69 6c 2e 0a 0a 44 61 73 68 2d 46 6f 6e 74 69 66 79 | is.omitted.or.nil...Dash-Fontify |
| 20920 | 20 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 20 69 6e 20 61 6c 6c 20 62 75 66 66 65 72 73 20 | .mode.is.enabled.in.all.buffers. |
| 20940 | 77 68 65 72 65 0a 60 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 | where.`dash--turn-on-fontify-mod |
| 20960 | 65 27 20 77 6f 75 6c 64 20 64 6f 20 69 74 2e 0a 53 65 65 20 60 64 61 73 68 2d 66 6f 6e 74 69 66 | e'.would.do.it..See.`dash-fontif |
| 20980 | 79 2d 6d 6f 64 65 27 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 | y-mode'.for.more.information.on. |
| 209a0 | 44 61 73 68 2d 46 6f 6e 74 69 66 79 20 6d 6f 64 65 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 | Dash-Fontify.mode...(fn.&optiona |
| 209c0 | 6c 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 | l.ARG)..(defalias.'global-dash-f |
| 209e0 | 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 23 5b 32 35 36 20 22 5c 33 30 32 20 5c 33 30 33 5c 33 30 30 | ontify-mode.#[256."\302.\303\300 |
| 20a00 | 03 5c 33 30 34 3d 5c 32 30 33 11 00 5c 33 30 35 5c 33 30 30 21 3f 5c 32 30 32 16 00 5c 33 30 36 | .\304=\203..\305\300!?\202..\306 |
| 20a20 | 04 21 5c 33 30 37 56 5c 22 5c 32 31 30 08 5c 32 30 33 2e 00 5c 33 31 30 5c 33 31 31 5c 33 31 32 | .!\307V\"\210.\203..\310\311\312 |
| 20a40 | 5c 22 5c 32 31 30 5c 33 31 30 5c 33 31 33 5c 33 31 34 5c 22 5c 32 31 30 5c 33 31 30 5c 33 31 35 | \"\210\310\313\314\"\210\310\315 |
| 20a60 | 5c 33 31 36 5c 22 5c 32 31 30 5c 32 30 32 3d 00 5c 33 31 37 5c 33 31 31 5c 33 31 32 5c 22 5c 32 | \316\"\210\202=.\317\311\312\"\2 |
| 20a80 | 31 30 5c 33 31 37 5c 33 31 33 5c 33 31 34 5c 22 5c 32 31 30 5c 33 31 37 5c 33 31 35 5c 33 31 36 | 10\317\313\314\"\210\317\315\316 |
| 20aa0 | 5c 22 5c 32 31 30 5c 33 32 30 20 5c 32 31 31 5c 32 30 33 63 00 5c 32 31 31 40 72 5c 32 31 31 71 | \"\210\320.\211\203c.\211@r\211q |
| 20ac0 | 5c 32 31 30 08 5c 32 30 33 53 00 5c 33 32 31 20 5c 32 31 30 5c 32 30 32 5b 00 09 5c 32 30 33 5b | \210.\203S.\321.\210\202[..\203[ |
| 20ae0 | 00 5c 33 30 31 5c 33 32 32 21 5c 32 31 30 29 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 3f 00 5c | .\301\322!\210).A\266\202\202?.\ |
| 20b00 | 32 31 30 5c 33 32 33 5c 33 32 34 5c 33 30 35 5c 33 30 30 21 5c 32 30 33 70 00 5c 33 32 35 5c 32 | 210\323\324\305\300!\203p.\325\2 |
| 20b20 | 30 32 71 00 5c 33 32 36 5c 22 5c 32 31 30 5c 33 32 37 5c 33 33 30 21 5c 32 30 33 5c 32 33 33 00 | 02q.\326\"\210\327\330!\203\233. |
| 20b40 | 5c 33 33 31 5c 33 30 30 21 5c 32 31 30 5c 33 30 32 20 5c 32 30 33 5c 32 31 31 00 5c 32 31 31 5c | \331\300!\210\302.\203\211.\211\ |
| 20b60 | 33 30 32 20 5c 32 33 32 5c 32 30 33 5c 32 33 33 00 5c 33 33 32 5c 33 33 33 5c 33 33 34 5c 33 30 | 302.\232\203\233.\332\333\334\30 |
| 20b80 | 35 5c 33 30 30 21 5c 32 30 33 5c 32 32 36 00 5c 33 33 35 5c 32 30 32 5c 32 32 37 00 5c 33 33 36 | 5\300!\203\226.\335\202\227.\336 |
| 20ba0 | 03 23 5c 32 36 36 02 5c 32 31 30 5c 33 33 37 20 5c 32 31 30 5c 33 30 35 5c 33 30 30 21 5c 32 30 | .#\266.\210\337.\210\305\300!\20 |
| 20bc0 | 37 22 20 5b 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 64 61 73 | 7".[global-dash-fontify-mode.das |
| 20be0 | 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 73 | h-fontify-mode.current-message.s |
| 20c00 | 65 74 2d 64 65 66 61 75 6c 74 20 74 6f 67 67 6c 65 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 | et-default.toggle.default-value. |
| 20c20 | 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 30 20 61 64 64 2d 68 6f 6f 6b 20 | prefix-numeric-value.0.add-hook. |
| 20c40 | 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 67 6c 6f | after-change-major-mode-hook.glo |
| 20c60 | 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 65 6e 61 62 6c 65 2d 69 6e 2d | bal-dash-fontify-mode-enable-in- |
| 20c80 | 62 75 66 66 65 72 73 20 66 69 6e 64 2d 66 69 6c 65 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d 64 61 | buffers.find-file-hook.global-da |
| 20ca0 | 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 73 20 63 68 | sh-fontify-mode-check-buffers.ch |
| 20cc0 | 61 6e 67 65 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d 64 61 73 68 | ange-major-mode-hook.global-dash |
| 20ce0 | 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 6d 68 68 20 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 62 | -fontify-mode-cmhh.remove-hook.b |
| 20d00 | 75 66 66 65 72 2d 6c 69 73 74 20 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e 2d 66 6f 6e 74 69 66 79 | uffer-list.dash--turn-on-fontify |
| 20d20 | 2d 6d 6f 64 65 20 2d 31 20 72 75 6e 2d 68 6f 6f 6b 73 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 | -mode.-1.run-hooks.global-dash-f |
| 20d40 | 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e | ontify-mode-hook.global-dash-fon |
| 20d60 | 74 69 66 79 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f | tify-mode-on-hook.global-dash-fo |
| 20d80 | 6e 74 69 66 79 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 63 61 6c 6c 65 64 2d 69 6e 74 65 72 | ntify-mode-off-hook.called-inter |
| 20da0 | 61 63 74 69 76 65 6c 79 2d 70 20 61 6e 79 20 63 75 73 74 6f 6d 69 7a 65 2d 6d 61 72 6b 2d 61 73 | actively-p.any.customize-mark-as |
| 20dc0 | 2d 73 65 74 20 22 22 20 6d 65 73 73 61 67 65 20 22 47 6c 6f 62 61 6c 20 44 61 73 68 2d 46 6f 6e | -set."".message."Global.Dash-Fon |
| 20de0 | 74 69 66 79 20 6d 6f 64 65 20 25 73 61 62 6c 65 64 25 73 22 20 22 65 6e 22 20 22 64 69 73 22 20 | tify.mode.%sabled%s"."en"."dis". |
| 20e00 | 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 37 20 28 23 24 20 2e 20 | force-mode-line-update].7.(#$... |
| 20e20 | 31 33 33 31 39 38 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 5c 32 30 36 05 00 5c 33 30 31 43 | 133198).(byte-code.".\206..\301C |
| 20e40 | 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 6f 67 67 6c 65 | \207".[current-prefix-arg.toggle |
| 20e60 | 5d 20 31 29 5d 29 0a 28 64 65 66 76 61 72 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 | ].1)]).(defvar.global-dash-fonti |
| 20e80 | 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | fy-mode-hook.nil).(byte-code."\3 |
| 20ea0 | 30 31 5c 33 30 32 4e 5c 32 30 34 5c 66 00 5c 33 30 33 5c 33 30 31 5c 33 30 32 5c 33 30 34 23 5c | 01\302N\204\f.\303\301\302\304#\ |
| 20ec0 | 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 30 30 21 5c 32 30 35 16 00 08 5c | 210\305\306\307\310\300!\205...\ |
| 20ee0 | 33 30 37 5c 32 31 31 25 5c 32 30 37 22 20 5b 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 | 307\211%\207".[global-dash-fonti |
| 20f00 | 66 79 2d 6d 6f 64 65 2d 6d 61 70 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d | fy-mode-map.global-dash-fontify- |
| 20f20 | 6d 6f 64 65 2d 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e | mode-hook.variable-documentation |
| 20f40 | 20 70 75 74 20 22 48 6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 6f 72 | .put."Hook.run.after.entering.or |
| 20f60 | 20 6c 65 61 76 69 6e 67 20 60 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f | .leaving.`global-dash-fontify-mo |
| 20f80 | 64 65 27 2e 5c 6e 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74 68 69 73 | de'.\nNo.problems.result.if.this |
| 20fa0 | 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 62 6f 75 6e 64 2e 5c 6e 60 61 64 64 2d 68 6f | .variable.is.not.bound.\n`add-ho |
| 20fc0 | 6f 6b 27 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69 74 2e 20 20 28 54 68 | ok'.automatically.binds.it...(Th |
| 20fe0 | 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 | is.is.true.for.all.hook.variable |
| 21000 | 73 2e 29 22 20 61 64 64 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d | s.)".add-minor-mode.global-dash- |
| 21020 | 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 6e 69 6c 20 62 6f 75 6e 64 70 5d 20 36 29 0a 28 64 65 66 | fontify-mode.nil.boundp].6).(def |
| 21040 | 76 61 72 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 73 65 74 2d 65 78 70 6c 69 63 | var.dash-fontify-mode-set-explic |
| 21060 | 69 74 6c 79 20 6e 69 6c 20 6e 69 6c 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 | itly.nil.nil).(make-variable-buf |
| 21080 | 66 65 72 2d 6c 6f 63 61 6c 20 27 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 73 65 74 | fer-local.'dash-fontify-mode-set |
| 210a0 | 2d 65 78 70 6c 69 63 69 74 6c 79 29 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 66 6f 6e | -explicitly).(defalias.'dash-fon |
| 210c0 | 74 69 66 79 2d 6d 6f 64 65 2d 73 65 74 2d 65 78 70 6c 69 63 69 74 6c 79 20 23 5b 30 20 22 5c 33 | tify-mode-set-explicitly.#[0."\3 |
| 210e0 | 30 31 5c 32 31 31 10 5c 32 30 37 22 20 5b 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d | 01\211.\207".[dash-fontify-mode- |
| 21100 | 73 65 74 2d 65 78 70 6c 69 63 69 74 6c 79 20 74 5d 20 32 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | set-explicitly.t].2]).(byte-code |
| 21120 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c | ."\300\301\302\303#\210\304\305\ |
| 21140 | 33 30 31 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 | 301\"\207".[put.dash-fontify-mod |
| 21160 | 65 2d 73 65 74 2d 65 78 70 6c 69 63 69 74 6c 79 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 | e-set-explicitly.definition-name |
| 21180 | 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 61 64 64 2d 68 6f | .global-dash-fontify-mode.add-ho |
| 211a0 | 6f 6b 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 34 29 0a 28 64 | ok.dash-fontify-mode-hook].4).(d |
| 211c0 | 65 66 76 61 72 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 62 | efvar.global-dash-fontify-mode-b |
| 211e0 | 75 66 66 65 72 73 20 6e 69 6c 29 0a 28 64 65 66 61 6c 69 61 73 20 27 67 6c 6f 62 61 6c 2d 64 61 | uffers.nil).(defalias.'global-da |
| 21200 | 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 65 6e 61 62 6c 65 2d 69 6e 2d 62 75 66 66 65 72 | sh-fontify-mode-enable-in-buffer |
| 21220 | 73 20 23 5b 30 20 22 08 5c 33 30 35 10 5c 32 31 31 5c 32 31 31 5c 32 30 35 39 00 5c 32 31 31 40 | s.#[0.".\305.\211\211\2059.\211@ |
| 21240 | 5c 33 30 36 01 21 5c 32 30 33 32 00 72 5c 32 31 31 71 5c 32 31 30 09 5c 32 30 34 2f 00 5c 6e 0b | \306.!\2032.r\211q\210.\204/.\n. |
| 21260 | 3d 5c 32 30 34 2f 00 5c 66 5c 32 30 33 2c 00 5c 33 30 34 5c 33 30 37 21 5c 32 31 30 5c 33 31 30 | =\204/.\f\203,.\304\307!\210\310 |
| 21280 | 20 5c 32 31 30 5c 32 30 32 2f 00 5c 33 31 30 20 5c 32 31 30 0b 12 29 01 41 5c 32 36 36 5c 32 30 | .\210\202/.\310.\210..).A\266\20 |
| 212a0 | 32 5c 32 30 32 04 00 5c 32 36 32 01 5c 32 30 37 22 20 5b 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 | 2\202..\262.\207".[global-dash-f |
| 212c0 | 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 62 75 66 66 65 72 73 20 64 61 73 68 2d 66 6f 6e 74 69 66 79 | ontify-mode-buffers.dash-fontify |
| 212e0 | 2d 6d 6f 64 65 2d 73 65 74 2d 65 78 70 6c 69 63 69 74 6c 79 20 64 61 73 68 2d 66 6f 6e 74 69 66 | -mode-set-explicitly.dash-fontif |
| 21300 | 79 2d 6d 6f 64 65 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 64 61 73 | y-mode-major-mode.major-mode.das |
| 21320 | 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 6e 69 6c 20 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 | h-fontify-mode.nil.buffer-live-p |
| 21340 | 20 2d 31 20 64 61 73 68 2d 2d 74 75 72 6e 2d 6f 6e 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 5d 20 | .-1.dash--turn-on-fontify-mode]. |
| 21360 | 35 5d 29 0a 28 70 75 74 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f | 5]).(put.'global-dash-fontify-mo |
| 21380 | 64 65 2d 65 6e 61 62 6c 65 2d 69 6e 2d 62 75 66 66 65 72 73 20 27 64 65 66 69 6e 69 74 69 6f 6e | de-enable-in-buffers.'definition |
| 213a0 | 2d 6e 61 6d 65 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 29 | -name.'global-dash-fontify-mode) |
| 213c0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d | .(defalias.'global-dash-fontify- |
| 213e0 | 6d 6f 64 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 73 20 23 5b 30 20 22 5c 33 30 30 20 5c 32 31 | mode-check-buffers.#[0."\300.\21 |
| 21400 | 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 22 5c 32 30 37 22 20 5b 67 6c 6f 62 61 6c 2d 64 61 73 | 0\301\302\303\"\207".[global-das |
| 21420 | 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 65 6e 61 62 6c 65 2d 69 6e 2d 62 75 66 66 65 72 73 | h-fontify-mode-enable-in-buffers |
| 21440 | 20 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 67 | .remove-hook.post-command-hook.g |
| 21460 | 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 68 65 63 6b 2d 62 75 | lobal-dash-fontify-mode-check-bu |
| 21480 | 66 66 65 72 73 5d 20 33 5d 29 0a 28 70 75 74 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e | ffers].3]).(put.'global-dash-fon |
| 214a0 | 74 69 66 79 2d 6d 6f 64 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 73 20 27 64 65 66 69 6e 69 74 | tify-mode-check-buffers.'definit |
| 214c0 | 69 6f 6e 2d 6e 61 6d 65 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f | ion-name.'global-dash-fontify-mo |
| 214e0 | 64 65 29 0a 28 64 65 66 61 6c 69 61 73 20 27 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 | de).(defalias.'global-dash-fonti |
| 21500 | 66 79 2d 6d 6f 64 65 2d 63 6d 68 68 20 23 5b 30 20 22 70 5c 32 31 31 08 5c 32 33 35 5c 32 30 33 | fy-mode-cmhh.#[0."p\211.\235\203 |
| 21520 | 5c 66 00 08 5c 32 31 30 5c 32 30 32 10 00 5c 32 31 31 08 42 10 5c 32 31 30 5c 33 30 31 5c 33 30 | \f..\210\202..\211.B.\210\301\30 |
| 21540 | 32 5c 33 30 33 5c 22 5c 32 30 37 22 20 5b 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 | 2\303\"\207".[global-dash-fontif |
| 21560 | 79 2d 6d 6f 64 65 2d 62 75 66 66 65 72 73 20 61 64 64 2d 68 6f 6f 6b 20 70 6f 73 74 2d 63 6f 6d | y-mode-buffers.add-hook.post-com |
| 21580 | 6d 61 6e 64 2d 68 6f 6f 6b 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f | mand-hook.global-dash-fontify-mo |
| 215a0 | 64 65 2d 63 68 65 63 6b 2d 62 75 66 66 65 72 73 5d 20 33 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | de-check-buffers].3]).(byte-code |
| 215c0 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c | ."\300\301\302\303#\210\304\305\ |
| 215e0 | 33 30 36 5c 33 30 37 5c 33 31 30 44 44 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 | 306\307\310DD\311\312\313\314\31 |
| 21600 | 35 5c 33 31 36 5c 33 31 37 26 09 5c 32 31 30 5c 33 32 30 5c 33 30 35 5c 33 30 33 5c 33 32 31 23 | 5\316\317&.\210\320\305\303\321# |
| 21620 | 5c 32 31 30 5c 33 32 32 5c 33 32 33 5c 33 30 33 5c 33 32 34 23 5c 32 31 30 5c 33 32 35 5c 33 32 | \210\322\323\303\324#\210\325\32 |
| 21640 | 33 5c 33 30 33 5c 33 32 31 23 5c 32 30 37 22 20 5b 70 75 74 20 67 6c 6f 62 61 6c 2d 64 61 73 68 | 3\303\321#\207".[put.global-dash |
| 21660 | 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 2d 63 6d 68 68 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 | -fontify-mode-cmhh.definition-na |
| 21680 | 6d 65 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 63 75 73 74 | me.global-dash-fontify-mode.cust |
| 216a0 | 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 64 61 73 68 2d 65 6e 61 62 6c 65 2d | om-declare-variable.dash-enable- |
| 216c0 | 66 6f 6e 74 6c 6f 63 6b 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c | fontlock.funcall.function.#[0."\ |
| 216e0 | 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 5d 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 66 | 300\207".[nil].1]."If.non-nil,.f |
| 21700 | 6f 6e 74 69 66 79 20 44 61 73 68 20 6d 61 63 72 6f 20 63 61 6c 6c 73 20 61 6e 64 20 73 70 65 63 | ontify.Dash.macro.calls.and.spec |
| 21720 | 69 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 22 20 3a 67 72 6f 75 70 20 64 61 73 68 20 3a 73 65 74 | ial.variables.".:group.dash.:set |
| 21740 | 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 31 30 5c 33 30 31 01 5c 32 30 33 0e 00 5c | .#[514."\300..\"\210\301.\203..\ |
| 21760 | 33 30 32 5c 32 30 32 0f 00 5c 33 30 33 21 5c 32 30 37 22 20 5b 73 65 74 2d 64 65 66 61 75 6c 74 | 302\202..\303!\207".[set-default |
| 21780 | 20 67 6c 6f 62 61 6c 2d 64 61 73 68 2d 66 6f 6e 74 69 66 79 2d 6d 6f 64 65 20 31 20 30 5d 20 35 | .global-dash-fontify-mode.1.0].5 |
| 217a0 | 20 22 5c 6e 5c 6e 28 66 6e 20 53 59 4d 20 56 41 4c 29 22 5d 20 3a 74 79 70 65 20 62 6f 6f 6c 65 | ."\n\n(fn.SYM.VAL)"].:type.boole |
| 217c0 | 61 6e 20 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 20 22 32 2e 31 38 2e | an.make-obsolete-variable."2.18. |
| 217e0 | 30 22 20 64 65 66 61 6c 69 61 73 20 64 61 73 68 2d 65 6e 61 62 6c 65 2d 66 6f 6e 74 2d 6c 6f 63 | 0".defalias.dash-enable-font-loc |
| 21800 | 6b 20 6e 69 6c 20 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 5d 20 31 30 29 0a 23 40 39 34 20 54 68 | k.nil.make-obsolete].10).#@94.Th |
| 21820 | 65 20 44 61 73 68 20 3a 64 6f 63 2d 73 70 65 63 20 65 6e 74 72 79 20 66 6f 72 20 60 69 6e 66 6f | e.Dash.:doc-spec.entry.for.`info |
| 21840 | 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 27 2e 0a 49 74 20 69 73 20 62 61 73 65 64 20 6f 6e 20 74 | -lookup-alist'..It.is.based.on.t |
| 21860 | 68 61 74 20 66 6f 72 20 60 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 27 2e 1f 0a 28 64 65 66 | hat.for.`emacs-lisp-mode'...(def |
| 21880 | 76 61 72 20 64 61 73 68 2d 2d 69 6e 66 6f 2d 64 6f 63 2d 73 70 65 63 20 27 28 22 28 64 61 73 68 | var.dash--info-doc-spec.'("(dash |
| 218a0 | 29 20 49 6e 64 65 78 22 20 6e 69 6c 20 22 5e 20 2d 2b 20 2e 2a 3a 20 22 20 22 5c 5c 28 20 5c 5c | ).Index".nil."^.-+..*:."."\\(.\\ |
| 218c0 | 7c 24 5c 5c 29 22 29 20 28 23 24 20 2e 20 31 33 37 32 34 36 29 29 0a 23 40 31 36 35 20 52 65 74 | |$\\)").(#$...137246)).#@165.Ret |
| 218e0 | 75 72 6e 20 74 68 65 20 60 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 27 20 73 79 6d 62 6f 6c | urn.the.`emacs-lisp-mode'.symbol |
| 21900 | 20 64 6f 63 73 20 66 72 6f 6d 20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 27 2e 0a | .docs.from.`info-lookup-alist'.. |
| 21920 | 53 70 65 63 69 66 69 63 61 6c 6c 79 2c 20 72 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 73 20 63 6f | Specifically,.return.the.cons.co |
| 21940 | 6e 74 61 69 6e 69 6e 67 20 74 68 65 69 72 0a 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 3e 64 6f 63 | ntaining.their.`info-lookup->doc |
| 21960 | 2d 73 70 65 63 27 20 73 6f 20 74 68 61 74 20 77 65 20 63 61 6e 20 6d 6f 64 69 66 79 20 69 74 2e | -spec'.so.that.we.can.modify.it. |
| 21980 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 2d 69 6e 66 6f 2d 65 6c 69 73 70 2d 64 6f | ..(defalias.'dash--info-elisp-do |
| 219a0 | 63 73 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 08 5c 32 33 36 41 5c 32 33 36 5c 32 | cs.#[0."\301\302\303.\236A\236\2 |
| 219c0 | 33 33 5c 32 30 37 22 20 5b 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 20 33 20 65 6d 61 | 33\207".[info-lookup-alist.3.ema |
| 219e0 | 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 73 79 6d 62 6f 6c 5d 20 34 20 28 23 24 20 2e 20 31 33 37 | cs-lisp-mode.symbol].4.(#$...137 |
| 21a00 | 34 33 37 29 5d 29 0a 23 40 31 32 37 20 52 65 67 69 73 74 65 72 20 74 68 65 20 44 61 73 68 20 49 | 437)]).#@127.Register.the.Dash.I |
| 21a20 | 6e 66 6f 20 6d 61 6e 75 61 6c 20 77 69 74 68 20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d | nfo.manual.with.`info-lookup-sym |
| 21a40 | 62 6f 6c 27 2e 0a 54 68 69 73 20 61 6c 6c 6f 77 73 20 44 61 73 68 20 73 79 6d 62 6f 6c 73 20 74 | bol'..This.allows.Dash.symbols.t |
| 21a60 | 6f 20 62 65 20 6c 6f 6f 6b 65 64 20 75 70 20 77 69 74 68 20 5c 5b 69 6e 66 6f 2d 6c 6f 6f 6b 75 | o.be.looked.up.with.\[info-looku |
| 21a80 | 70 2d 73 79 6d 62 6f 6c 5d 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 72 65 67 69 | p-symbol]...(defalias.'dash-regi |
| 21aa0 | 73 74 65 72 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 21 5c | ster-info-lookup.#[0."\301\302!\ |
| 21ac0 | 32 31 30 5c 33 30 33 20 5c 32 31 31 5c 33 30 34 02 40 08 43 5c 22 5c 32 34 30 5c 32 31 30 5c 33 | 210\303.\211\304.@.C\"\240\210\3 |
| 21ae0 | 30 35 20 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d 69 6e 66 6f 2d 64 6f 63 2d 73 70 65 63 20 72 65 | 05.\207".[dash--info-doc-spec.re |
| 21b00 | 71 75 69 72 65 20 69 6e 66 6f 2d 6c 6f 6f 6b 20 64 61 73 68 2d 2d 69 6e 66 6f 2d 65 6c 69 73 70 | quire.info-look.dash--info-elisp |
| 21b20 | 2d 64 6f 63 73 20 61 70 70 65 6e 64 20 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 72 65 73 65 74 5d 20 | -docs.append.info-lookup-reset]. |
| 21b40 | 35 20 28 23 24 20 2e 20 31 33 37 37 34 31 29 20 6e 69 6c 5d 29 0a 23 40 37 36 20 52 65 6d 6f 76 | 5.(#$...137741).nil]).#@76.Remov |
| 21b60 | 65 20 44 61 73 68 20 66 72 6f 6d 20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 27 2e | e.Dash.from.`info-lookup-alist'. |
| 21b80 | 0a 55 73 65 64 20 62 79 20 60 75 6e 6c 6f 61 64 2d 66 65 61 74 75 72 65 27 2c 20 77 68 69 63 68 | .Used.by.`unload-feature',.which |
| 21ba0 | 20 73 65 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 61 73 68 2d 75 6e 6c 6f 61 64 2d 66 75 | .see...(defalias.'dash-unload-fu |
| 21bc0 | 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 21 5c 32 30 35 08 00 5c 33 30 33 20 | nction.#[0."\301\302!\205..\303. |
| 21be0 | 08 01 40 5c 32 33 35 5c 32 30 33 1a 00 5c 32 31 31 5c 33 30 34 08 03 40 5c 22 5c 32 34 30 5c 32 | ..@\235\203..\211\304..@\"\240\2 |
| 21c00 | 31 30 5c 33 30 35 20 5c 32 31 30 5c 32 31 30 5c 33 30 36 5c 32 30 37 22 20 5b 64 61 73 68 2d 2d | 10\305.\210\210\306\207".[dash-- |
| 21c20 | 69 6e 66 6f 2d 64 6f 63 2d 73 70 65 63 20 66 65 61 74 75 72 65 70 20 69 6e 66 6f 2d 6c 6f 6f 6b | info-doc-spec.featurep.info-look |
| 21c40 | 20 64 61 73 68 2d 2d 69 6e 66 6f 2d 65 6c 69 73 70 2d 64 6f 63 73 20 72 65 6d 6f 76 65 20 69 6e | .dash--info-elisp-docs.remove.in |
| 21c60 | 66 6f 2d 6c 6f 6f 6b 75 70 2d 72 65 73 65 74 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 31 33 38 | fo-lookup-reset.nil].5.(#$...138 |
| 21c80 | 30 37 35 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 64 61 73 68 29 0a | 075)]).(provide.'dash). |
 |
index : emacs_config | |
| My emacs configuration file. Contains support for C++, TypeScript/JavaScript, org-mode, etc. I use this everywhere. |
| summaryrefslogtreecommitdiff |
blob: c37e49e8e3a078b9ffea4bf7f18dc0f202fac958 (plain)