| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61 | ;ELC.....;;;.Compiled.;;;.in.Ema |
| 0020 | 63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f | cs.version.25.3.1.;;;.with.all.o |
| 0040 | 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 | ptimizations...;;;.This.file.use |
| 0060 | 73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 | s.dynamic.docstrings,.first.adde |
| 0080 | 64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 | d.in.Emacs.19.29...;;;.This.file |
| 00a0 | 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 | .does.not.contain.utf-8.non-ASCI |
| 00c0 | 49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20 | I.characters,.;;;.and.so.can.be. |
| 00e0 | 6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72 | loaded.in.Emacs.versions.earlier |
| 0100 | 20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | .than.23...;;;;;;;;;;;;;;;;;;;;; |
| 0120 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 0140 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;; |
| 0160 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 0180 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 23 40 31 38 31 20 4c 6f 6f 70 20 | ;;;;;;;;;;;;;;;;;;...#@181.Loop. |
| 01a0 | 6f 76 65 72 20 61 20 73 65 71 75 65 6e 63 65 2e 0a 53 69 6d 69 6c 61 72 20 74 6f 20 60 64 6f 6c | over.a.sequence..Similar.to.`dol |
| 01c0 | 69 73 74 27 20 62 75 74 20 63 61 6e 20 62 65 20 61 70 70 6c 69 65 64 20 74 6f 20 6c 69 73 74 73 | ist'.but.can.be.applied.to.lists |
| 01e0 | 2c 20 73 74 72 69 6e 67 73 2c 20 61 6e 64 20 76 65 63 74 6f 72 73 2e 0a 0a 45 76 61 6c 75 61 74 | ,.strings,.and.vectors...Evaluat |
| 0200 | 65 20 42 4f 44 59 20 77 69 74 68 20 56 41 52 20 62 6f 75 6e 64 20 74 6f 20 65 61 63 68 20 65 6c | e.BODY.with.VAR.bound.to.each.el |
| 0220 | 65 6d 65 6e 74 20 6f 66 20 53 45 51 2c 20 69 6e 20 74 75 72 6e 2e 0a 0a 28 66 6e 20 28 56 41 52 | ement.of.SEQ,.in.turn...(fn.(VAR |
| 0240 | 20 53 45 51 29 20 42 4f 44 59 2e 2e 2e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 64 | .SEQ).BODY...)..(defalias.'seq-d |
| 0260 | 6f 73 65 71 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 | oseq.'(macro...#[385."\300\301!\ |
| 0280 | 33 30 30 5c 33 30 32 21 5c 33 30 30 5c 33 30 33 21 5c 33 30 34 02 06 06 41 40 44 04 5c 33 30 35 | 300\302!\300\303!\304...A@D.\305 |
| 02a0 | 5c 33 30 36 06 06 44 5c 33 30 37 5c 33 31 30 06 08 44 46 44 03 5c 33 30 35 06 07 5c 33 31 31 06 | \306..D\307\310..DFD.\305..\311. |
| 02c0 | 08 46 44 45 5c 33 31 32 5c 33 30 35 06 06 5c 33 31 33 06 06 06 09 45 5c 33 31 34 06 07 44 46 5c | .FDE\312\305..\313....E\314..DF\ |
| 02e0 | 33 31 35 06 09 40 5c 33 30 35 06 09 5c 33 31 36 5c 33 31 37 06 0b 06 0b 45 5c 33 32 30 06 0b 5c | 315..@\305..\316\317....E\320..\ |
| 0300 | 33 32 31 06 0d 5c 33 32 32 42 42 45 45 5c 33 32 33 06 5c 6e 44 46 44 43 06 09 42 42 45 45 5c 32 | 321..\322BBEE\323.\nDFDC..BBEE\2 |
| 0320 | 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6c 65 6e 67 74 68 22 20 22 73 65 71 22 20 | 07".[make-symbol."length"."seq". |
| 0340 | 22 69 6e 64 65 78 22 20 6c 65 74 2a 20 69 66 20 6c 69 73 74 70 20 6e 69 6c 20 73 65 71 2d 6c 65 | "index".let*.if.listp.nil.seq-le |
| 0360 | 6e 67 74 68 20 30 20 77 68 69 6c 65 20 3c 20 63 6f 6e 73 70 20 6c 65 74 20 70 72 6f 67 31 20 73 | ngth.0.while.<.consp.let.prog1.s |
| 0380 | 65 71 2d 65 6c 74 20 73 65 74 71 20 2b 20 28 31 29 20 70 6f 70 5d 20 32 30 20 28 23 24 20 2e 20 | eq-elt.setq.+.(1).pop].20.(#$... |
| 03a0 | 34 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 30 32 | 411)])).(byte-code."\300\301\302 |
| 03c0 | 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 | \303#\210\304\301\305\306#\207". |
| 03e0 | 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 65 71 2d 64 6f 73 65 71 20 6c 69 73 70 2d 69 6e 64 | [function-put.seq-doseq.lisp-ind |
| 0400 | 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 | ent-function.1.put.edebug-form-s |
| 0420 | 70 65 63 20 28 28 73 79 6d 62 6f 6c 70 20 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 66 6f 72 | pec.((symbolp.form.&optional.for |
| 0440 | 6d 29 20 62 6f 64 79 29 5d 20 34 29 0a 23 40 32 31 34 20 42 69 6e 64 20 74 68 65 20 76 61 72 69 | m).body)].4).#@214.Bind.the.vari |
| 0460 | 61 62 6c 65 73 20 69 6e 20 41 52 47 53 20 74 6f 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 | ables.in.ARGS.to.the.elements.of |
| 0480 | 20 53 45 51 55 45 4e 43 45 20 74 68 65 6e 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 2e 0a 0a 41 | .SEQUENCE.then.evaluate.BODY...A |
| 04a0 | 52 47 53 20 63 61 6e 20 61 6c 73 6f 20 69 6e 63 6c 75 64 65 20 74 68 65 20 60 26 72 65 73 74 27 | RGS.can.also.include.the.`&rest' |
| 04c0 | 20 6d 61 72 6b 65 72 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 76 61 72 69 61 62 6c 65 0a 6e | .marker.followed.by.a.variable.n |
| 04e0 | 61 6d 65 20 74 6f 20 62 65 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 72 65 73 74 20 6f 66 20 53 | ame.to.be.bound.to.the.rest.of.S |
| 0500 | 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 41 52 47 53 20 53 45 51 55 45 4e 43 45 20 26 72 65 73 | EQUENCE...(fn.ARGS.SEQUENCE.&res |
| 0520 | 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 6c 65 74 20 27 28 6d 61 | t.BODY)..(defalias.'seq-let.'(ma |
| 0540 | 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 01 04 44 5c 33 30 | cro...#[642."\300\301!\302..D\30 |
| 0560 | 33 06 06 04 5c 22 42 03 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 73 65 | 3...\"B.BB\207".[make-symbol."se |
| 0580 | 71 22 20 6c 65 74 2a 20 73 65 71 2d 2d 6d 61 6b 65 2d 62 69 6e 64 69 6e 67 73 5d 20 39 20 28 23 | q".let*.seq--make-bindings].9.(# |
| 05a0 | 24 20 2e 20 31 31 30 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 | $...1107)])).(byte-code."\300\30 |
| 05c0 | 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#\ |
| 05e0 | 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 65 71 2d 6c 65 74 20 6c 69 73 70 2d | 207".[function-put.seq-let.lisp- |
| 0600 | 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 | indent-function.2.put.edebug-for |
| 0620 | 6d 2d 73 70 65 63 20 74 5d 20 34 29 0a 23 40 31 39 35 20 52 65 74 75 72 6e 20 61 20 73 75 62 73 | m-spec.t].4).#@195.Return.a.subs |
| 0640 | 65 71 75 65 6e 63 65 20 6f 66 20 53 45 51 55 45 4e 43 45 20 77 69 74 68 6f 75 74 20 69 74 73 20 | equence.of.SEQUENCE.without.its. |
| 0660 | 66 69 72 73 74 20 4e 20 65 6c 65 6d 65 6e 74 73 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 | first.N.elements..The.result.is. |
| 0680 | 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 68 65 20 73 61 6d 65 20 74 79 70 65 20 61 73 20 53 | a.sequence.of.the.same.type.as.S |
| 06a0 | 45 51 55 45 4e 43 45 2e 0a 0a 49 66 20 4e 20 69 73 20 61 20 6e 65 67 61 74 69 76 65 20 69 6e 74 | EQUENCE...If.N.is.a.negative.int |
| 06c0 | 65 67 65 72 20 6f 72 20 7a 65 72 6f 2c 20 53 45 51 55 45 4e 43 45 20 69 73 20 72 65 74 75 72 6e | eger.or.zero,.SEQUENCE.is.return |
| 06e0 | 65 64 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | ed...(fn.SEQUENCE.N)..(defalias. |
| 0700 | 27 73 65 71 2d 64 72 6f 70 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 58 5c 32 30 33 08 00 | 'seq-drop.#[514."\211\300X\203.. |
| 0720 | 01 5c 32 30 37 01 3c 5c 32 30 33 12 00 5c 33 30 31 02 02 5c 22 5c 32 30 37 5c 33 30 32 02 21 5c | .\207.<\203..\301..\"\207\302.!\ |
| 0740 | 33 30 33 03 03 03 5e 03 23 5c 32 30 37 22 20 5b 30 20 73 65 71 2d 2d 64 72 6f 70 2d 6c 69 73 74 | 303...^.#\207".[0.seq--drop-list |
| 0760 | 20 73 65 71 2d 6c 65 6e 67 74 68 20 73 65 71 2d 73 75 62 73 65 71 5d 20 37 20 28 23 24 20 2e 20 | .seq-length.seq-subseq].7.(#$... |
| 0780 | 31 35 38 37 29 5d 29 0a 23 40 32 30 31 20 52 65 74 75 72 6e 20 61 20 73 75 62 73 65 71 75 65 6e | 1587)]).#@201.Return.a.subsequen |
| 07a0 | 63 65 20 6f 66 20 53 45 51 55 45 4e 43 45 20 77 69 74 68 20 69 74 73 20 66 69 72 73 74 20 4e 20 | ce.of.SEQUENCE.with.its.first.N. |
| 07c0 | 65 6c 65 6d 65 6e 74 73 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 73 65 71 75 65 6e | elements..The.result.is.a.sequen |
| 07e0 | 63 65 20 6f 66 20 74 68 65 20 73 61 6d 65 20 74 79 70 65 20 61 73 20 53 45 51 55 45 4e 43 45 2e | ce.of.the.same.type.as.SEQUENCE. |
| 0800 | 0a 0a 49 66 20 4e 20 69 73 20 61 20 6e 65 67 61 74 69 76 65 20 69 6e 74 65 67 65 72 20 6f 72 20 | ..If.N.is.a.negative.integer.or. |
| 0820 | 7a 65 72 6f 2c 20 61 6e 20 65 6d 70 74 79 20 73 65 71 75 65 6e 63 65 20 69 73 0a 72 65 74 75 72 | zero,.an.empty.sequence.is.retur |
| 0840 | 6e 65 64 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 | ned...(fn.SEQUENCE.N)..(defalias |
| 0860 | 20 27 73 65 71 2d 74 61 6b 65 20 23 5b 35 31 34 20 22 01 3c 5c 32 30 33 5c 6e 00 5c 33 30 30 02 | .'seq-take.#[514.".<\203\n.\300. |
| 0880 | 02 5c 22 5c 32 30 37 5c 33 30 31 02 5c 33 30 32 03 5c 33 30 32 5d 5c 33 30 33 06 06 21 5e 23 5c | .\"\207\301.\302.\302]\303..!^#\ |
| 08a0 | 32 30 37 22 20 5b 73 65 71 2d 2d 74 61 6b 65 2d 6c 69 73 74 20 73 65 71 2d 73 75 62 73 65 71 20 | 207".[seq--take-list.seq-subseq. |
| 08c0 | 30 20 73 65 71 2d 6c 65 6e 67 74 68 5d 20 38 20 28 23 24 20 2e 20 31 39 33 34 29 5d 29 0a 23 40 | 0.seq-length].8.(#$...1934)]).#@ |
| 08e0 | 31 37 32 20 52 65 74 75 72 6e 20 61 20 73 65 71 75 65 6e 63 65 20 66 72 6f 6d 20 74 68 65 20 66 | 172.Return.a.sequence.from.the.f |
| 0900 | 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 49 43 41 54 | irst.element.for.which.(PREDICAT |
| 0920 | 45 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 69 6c 20 69 6e 20 53 45 51 55 45 4e 43 45 2e 0a 54 | E.element).is.nil.in.SEQUENCE..T |
| 0940 | 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 68 65 20 73 | he.result.is.a.sequence.of.the.s |
| 0960 | 61 6d 65 20 74 79 70 65 20 61 73 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 49 | ame.type.as.SEQUENCE...(fn.PREDI |
| 0980 | 43 41 54 45 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 64 | CATE.SEQUENCE)..(defalias.'seq-d |
| 09a0 | 72 6f 70 2d 77 68 69 6c 65 20 23 5b 35 31 34 20 22 5c 32 31 31 3c 5c 32 30 33 5c 6e 00 5c 33 30 | rop-while.#[514."\211<\203\n.\30 |
| 09c0 | 30 02 02 5c 22 5c 32 30 37 5c 33 30 31 01 5c 33 30 32 04 04 5c 22 5c 22 5c 32 30 37 22 20 5b 73 | 0..\"\207\301.\302..\"\"\207".[s |
| 09e0 | 65 71 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 2d 6c 69 73 74 20 73 65 71 2d 64 72 6f 70 20 73 65 71 | eq--drop-while-list.seq-drop.seq |
| 0a00 | 2d 2d 63 6f 75 6e 74 2d 73 75 63 63 65 73 73 69 76 65 5d 20 37 20 28 23 24 20 2e 20 32 32 37 36 | --count-successive].7.(#$...2276 |
| 0a20 | 29 5d 29 0a 23 40 31 36 36 20 52 65 74 75 72 6e 20 74 68 65 20 73 75 63 63 65 73 73 69 76 65 20 | )]).#@166.Return.the.successive. |
| 0a40 | 65 6c 65 6d 65 6e 74 73 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 49 43 41 54 45 20 65 6c | elements.for.which.(PREDICATE.el |
| 0a60 | 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 6e 20 53 45 51 55 45 4e 43 45 2e 0a 54 | ement).is.non-nil.in.SEQUENCE..T |
| 0a80 | 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 68 65 20 73 | he.result.is.a.sequence.of.the.s |
| 0aa0 | 61 6d 65 20 74 79 70 65 20 61 73 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 49 | ame.type.as.SEQUENCE...(fn.PREDI |
| 0ac0 | 43 41 54 45 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 74 | CATE.SEQUENCE)..(defalias.'seq-t |
| 0ae0 | 61 6b 65 2d 77 68 69 6c 65 20 23 5b 35 31 34 20 22 5c 32 31 31 3c 5c 32 30 33 5c 6e 00 5c 33 30 | ake-while.#[514."\211<\203\n.\30 |
| 0b00 | 30 02 02 5c 22 5c 32 30 37 5c 33 30 31 01 5c 33 30 32 04 04 5c 22 5c 22 5c 32 30 37 22 20 5b 73 | 0..\"\207\301.\302..\"\"\207".[s |
| 0b20 | 65 71 2d 2d 74 61 6b 65 2d 77 68 69 6c 65 2d 6c 69 73 74 20 73 65 71 2d 74 61 6b 65 20 73 65 71 | eq--take-while-list.seq-take.seq |
| 0b40 | 2d 2d 63 6f 75 6e 74 2d 73 75 63 63 65 73 73 69 76 65 5d 20 37 20 28 23 24 20 2e 20 32 36 30 32 | --count-successive].7.(#$...2602 |
| 0b60 | 29 5d 29 0a 23 40 31 31 34 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 | )]).#@114.Return.a.list.of.all.t |
| 0b80 | 68 65 20 65 6c 65 6d 65 6e 74 73 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 49 43 41 54 45 | he.elements.for.which.(PREDICATE |
| 0ba0 | 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 6e 20 53 45 51 55 45 4e 43 45 | .element).is.non-nil.in.SEQUENCE |
| 0bc0 | 2e 0a 0a 28 66 6e 20 50 52 45 44 49 43 41 54 45 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 | ...(fn.PREDICATE.SEQUENCE)..(def |
| 0be0 | 61 6c 69 61 73 20 27 73 65 71 2d 66 69 6c 74 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 | alias.'seq-filter.#[514."\300\30 |
| 0c00 | 31 21 5c 33 30 32 01 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 | 1!\302.\303\304\305\306\307\310. |
| 0c20 | 5c 6e 06 09 5c 22 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 05 5c 22 5c 22 5c 32 30 37 22 20 | \n..\"\311\"\312\313%.\"\"\207". |
| 0c40 | 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 65 78 63 6c 75 64 65 22 20 64 65 6c 71 20 73 65 71 2d | [make-symbol."exclude".delq.seq- |
| 0c60 | 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 33 30 30 01 21 5c 32 | map.make-byte-code.257."\300.!\2 |
| 0c80 | 30 33 07 00 5c 32 30 37 5c 33 30 31 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 | 03..\207\301\207".vconcat.vector |
| 0ca0 | 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29 22 5d 20 31 33 20 28 23 24 20 2e 20 32 | .[].3."\n\n(fn.ELT)"].13.(#$...2 |
| 0cc0 | 39 32 32 29 5d 29 0a 23 40 32 30 35 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f | 922)]).#@205.Return.the.result.o |
| 0ce0 | 66 20 61 70 70 6c 79 69 6e 67 20 46 55 4e 43 54 49 4f 4e 20 74 6f 20 65 61 63 68 20 65 6c 65 6d | f.applying.FUNCTION.to.each.elem |
| 0d00 | 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 55 6e 6c 69 6b 65 20 60 73 65 71 2d 6d 61 70 | ent.of.SEQUENCE..Unlike.`seq-map |
| 0d20 | 27 2c 20 46 55 4e 43 54 49 4f 4e 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 3a | ',.FUNCTION.takes.two.arguments: |
| 0d40 | 20 74 68 65 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 74 68 65 20 73 65 71 75 65 6e 63 65 2c 20 61 6e | .the.element.of.the.sequence,.an |
| 0d60 | 64 20 69 74 73 20 69 6e 64 65 78 20 77 69 74 68 69 6e 20 74 68 65 20 73 65 71 75 65 6e 63 65 2e | d.its.index.within.the.sequence. |
| 0d80 | 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c | ..(fn.FUNCTION.SEQUENCE)..(defal |
| 0da0 | 69 61 73 20 27 73 65 71 2d 6d 61 70 2d 69 6e 64 65 78 65 64 20 23 5b 35 31 34 20 22 5c 33 30 30 | ias.'seq-map-indexed.#[514."\300 |
| 0dc0 | 43 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 08 06 07 5c 22 5c | C\301\302\303\304\305\306....\"\ |
| 0de0 | 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 30 37 22 20 5b 30 20 73 65 71 2d 6d 61 | 307\"\310\311%.\"\207".[0.seq-ma |
| 0e00 | 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c | p.make-byte-code.257."\300.\301\ |
| 0e20 | 32 34 32 5c 22 5c 33 30 31 5c 32 31 31 5c 32 34 32 54 5c 32 34 30 5c 32 31 30 5c 32 30 37 22 20 | 242\"\301\211\242T\240\210\207". |
| 0e40 | 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 | vconcat.vector.[].4."\n\n(fn.ELT |
| 0e60 | 29 22 5d 20 31 31 20 28 23 24 20 2e 20 33 32 37 37 29 5d 29 0a 23 40 31 31 30 20 52 65 74 75 72 | )"].11.(#$...3277)]).#@110.Retur |
| 0e80 | 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 66 6f 72 | n.a.list.of.all.the.elements.for |
| 0ea0 | 20 77 68 69 63 68 20 28 50 52 45 44 49 43 41 54 45 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 69 | .which.(PREDICATE.element).is.ni |
| 0ec0 | 6c 20 69 6e 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 49 43 41 54 45 20 53 45 | l.in.SEQUENCE...(fn.PREDICATE.SE |
| 0ee0 | 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 72 65 6d 6f 76 65 20 23 | QUENCE)..(defalias.'seq-remove.# |
| 0f00 | 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 | [514."\300\301\302\303\304\305.. |
| 0f20 | 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 73 65 71 2d 66 69 | !\306\"\307\310%.\"\207".[seq-fi |
| 0f40 | 6c 74 65 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 21 3f | lter.make-byte-code.257."\300.!? |
| 0f60 | 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 | \207".vconcat.vector.[].3."\n\n( |
| 0f80 | 66 6e 20 45 4c 54 29 22 5d 20 39 20 28 23 24 20 2e 20 33 37 30 37 29 5d 29 0a 23 40 34 31 36 20 | fn.ELT)"].9.(#$...3707)]).#@416. |
| 0fa0 | 52 65 64 75 63 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 46 55 4e 43 54 49 4f 4e 20 61 63 72 | Reduce.the.function.FUNCTION.acr |
| 0fc0 | 6f 73 73 20 53 45 51 55 45 4e 43 45 2c 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 49 4e 49 54 | oss.SEQUENCE,.starting.with.INIT |
| 0fe0 | 49 41 4c 2d 56 41 4c 55 45 2e 0a 0a 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 | IAL-VALUE...Return.the.result.of |
| 1000 | 20 63 61 6c 6c 69 6e 67 20 46 55 4e 43 54 49 4f 4e 20 77 69 74 68 20 49 4e 49 54 49 41 4c 2d 56 | .calling.FUNCTION.with.INITIAL-V |
| 1020 | 41 4c 55 45 20 61 6e 64 20 74 68 65 0a 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 | ALUE.and.the.first.element.of.SE |
| 1040 | 51 55 45 4e 43 45 2c 20 74 68 65 6e 20 63 61 6c 6c 69 6e 67 20 46 55 4e 43 54 49 4f 4e 20 77 69 | QUENCE,.then.calling.FUNCTION.wi |
| 1060 | 74 68 20 74 68 61 74 20 72 65 73 75 6c 74 20 61 6e 64 0a 74 68 65 20 73 65 63 6f 6e 64 20 65 6c | th.that.result.and.the.second.el |
| 1080 | 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2c 20 74 68 65 6e 20 77 69 74 68 20 74 68 61 | ement.of.SEQUENCE,.then.with.tha |
| 10a0 | 74 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 74 68 69 72 64 0a 65 6c 65 6d 65 6e 74 20 6f | t.result.and.the.third.element.o |
| 10c0 | 66 20 53 45 51 55 45 4e 43 45 2c 20 65 74 63 2e 0a 0a 49 66 20 53 45 51 55 45 4e 43 45 20 69 73 | f.SEQUENCE,.etc...If.SEQUENCE.is |
| 10e0 | 20 65 6d 70 74 79 2c 20 72 65 74 75 72 6e 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 61 6e 64 | .empty,.return.INITIAL-VALUE.and |
| 1100 | 20 46 55 4e 43 54 49 4f 4e 20 69 73 20 6e 6f 74 20 63 61 6c 6c 65 64 2e 0a 0a 28 66 6e 20 46 55 | .FUNCTION.is.not.called...(fn.FU |
| 1120 | 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 29 1f 0a | NCTION.SEQUENCE.INITIAL-VALUE).. |
| 1140 | 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 72 65 64 75 63 65 20 23 5b 37 37 31 20 22 5c 33 30 | (defalias.'seq-reduce.#[771."\30 |
| 1160 | 30 02 21 5c 32 30 33 07 00 5c 32 30 37 5c 32 31 31 02 5c 32 31 31 3c 3f 5c 32 30 35 12 00 5c 33 | 0.!\203..\207\211.\211<?\205..\3 |
| 1180 | 30 31 01 21 5c 32 31 31 5c 32 30 33 1a 00 5c 33 30 32 5c 32 30 32 1b 00 01 01 5c 32 30 33 25 00 | 01.!\211\203..\302\202....\203%. |
| 11a0 | 5c 32 31 31 02 57 5c 32 30 32 27 00 5c 32 31 31 3a 5c 32 30 33 4a 00 01 5c 32 30 33 39 00 5c 33 | \211.W\202'.\211:\203J..\2039.\3 |
| 11c0 | 30 33 03 02 5c 22 01 54 5c 32 36 32 02 5c 32 30 32 3f 00 5c 32 31 31 01 41 5c 32 36 32 02 5c 32 | 03..\".T\262.\202?.\211.A\262.\2 |
| 11e0 | 34 32 06 07 05 02 5c 22 5c 32 36 32 05 5c 32 31 30 5c 32 30 32 1b 00 5c 32 36 36 03 5c 32 31 31 | 42....\"\262.\210\202..\266.\211 |
| 1200 | 5c 32 30 37 22 20 5b 73 65 71 2d 65 6d 70 74 79 2d 70 20 73 65 71 2d 6c 65 6e 67 74 68 20 30 20 | \207".[seq-empty-p.seq-length.0. |
| 1220 | 73 65 71 2d 65 6c 74 5d 20 31 31 20 28 23 24 20 2e 20 34 30 30 30 29 5d 29 0a 23 40 31 31 30 20 | seq-elt].11.(#$...4000)]).#@110. |
| 1240 | 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 76 61 6c 75 65 20 66 6f 72 20 77 68 69 63 68 | Return.the.first.value.for.which |
| 1260 | 20 69 66 20 28 50 52 45 44 49 43 41 54 45 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e | .if.(PREDICATE.element).is.non-n |
| 1280 | 69 6c 20 66 6f 72 20 69 6e 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 49 43 41 | il.for.in.SEQUENCE...(fn.PREDICA |
| 12a0 | 54 45 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 73 6f 6d | TE.SEQUENCE)..(defalias.'seq-som |
| 12c0 | 65 20 23 5b 35 31 34 20 22 5c 33 30 30 32 50 00 5c 32 31 31 5c 32 31 31 3c 3f 5c 32 30 35 0e 00 | e.#[514."\3002P.\211\211<?\205.. |
| 12e0 | 5c 33 30 31 01 21 5c 32 31 31 5c 32 30 33 16 00 5c 33 30 32 5c 32 30 32 17 00 01 01 5c 32 30 33 | \301.!\211\203..\302\202....\203 |
| 1300 | 21 00 5c 32 31 31 02 57 5c 32 30 32 23 00 5c 32 31 31 3a 5c 32 30 33 4c 00 01 5c 32 30 33 35 00 | !.\211.W\202#.\211:\203L..\2035. |
| 1320 | 5c 33 30 33 03 02 5c 22 01 54 5c 32 36 32 02 5c 32 30 32 3b 00 5c 32 31 31 01 41 5c 32 36 32 02 | \303..\".T\262.\202;.\211.A\262. |
| 1340 | 5c 32 34 32 05 01 21 5c 32 31 31 5c 32 30 33 47 00 5c 33 30 34 5c 33 30 30 02 5c 22 5c 32 31 30 | \242..!\211\203G.\304\300.\"\210 |
| 1360 | 5c 32 36 36 02 5c 32 30 32 17 00 5c 32 36 36 03 5c 33 30 35 30 5c 32 30 37 22 20 5b 73 65 71 2d | \266.\202..\266.\3050\207".[seq- |
| 1380 | 2d 62 72 65 61 6b 20 73 65 71 2d 6c 65 6e 67 74 68 20 30 20 73 65 71 2d 65 6c 74 20 74 68 72 6f | -break.seq-length.0.seq-elt.thro |
| 13a0 | 77 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 34 36 37 32 29 5d 29 0a 23 40 33 30 32 20 52 65 | w.nil].10.(#$...4672)]).#@302.Re |
| 13c0 | 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 66 6f 72 20 77 68 69 63 68 | turn.the.first.element.for.which |
| 13e0 | 20 28 50 52 45 44 49 43 41 54 45 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 | .(PREDICATE.element).is.non-nil. |
| 1400 | 69 6e 20 53 45 51 55 45 4e 43 45 2e 0a 49 66 20 6e 6f 20 65 6c 65 6d 65 6e 74 20 69 73 20 66 6f | in.SEQUENCE..If.no.element.is.fo |
| 1420 | 75 6e 64 2c 20 72 65 74 75 72 6e 20 44 45 46 41 55 4c 54 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 | und,.return.DEFAULT...Note.that. |
| 1440 | 60 73 65 71 2d 66 69 6e 64 27 20 68 61 73 20 61 6e 20 61 6d 62 69 67 75 69 74 79 20 69 66 20 74 | `seq-find'.has.an.ambiguity.if.t |
| 1460 | 68 65 20 66 6f 75 6e 64 20 65 6c 65 6d 65 6e 74 20 69 73 0a 69 64 65 6e 74 69 63 61 6c 20 74 6f | he.found.element.is.identical.to |
| 1480 | 20 44 45 46 41 55 4c 54 2c 20 61 73 20 69 74 20 63 61 6e 6e 6f 74 20 62 65 20 6b 6e 6f 77 6e 20 | .DEFAULT,.as.it.cannot.be.known. |
| 14a0 | 69 66 20 61 6e 20 65 6c 65 6d 65 6e 74 20 77 61 73 0a 66 6f 75 6e 64 20 6f 72 20 6e 6f 74 2e 0a | if.an.element.was.found.or.not.. |
| 14c0 | 0a 28 66 6e 20 50 52 45 44 49 43 41 54 45 20 53 45 51 55 45 4e 43 45 20 26 6f 70 74 69 6f 6e 61 | .(fn.PREDICATE.SEQUENCE.&optiona |
| 14e0 | 6c 20 44 45 46 41 55 4c 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 66 69 6e 64 20 | l.DEFAULT)..(defalias.'seq-find. |
| 1500 | 23 5b 37 37 30 20 22 5c 33 30 30 32 4f 00 01 5c 32 31 31 3c 3f 5c 32 30 35 0e 00 5c 33 30 31 01 | #[770."\3002O..\211<?\205..\301. |
| 1520 | 21 5c 32 31 31 5c 32 30 33 16 00 5c 33 30 32 5c 32 30 32 17 00 01 01 5c 32 30 33 21 00 5c 32 31 | !\211\203..\302\202....\203!.\21 |
| 1540 | 31 02 57 5c 32 30 32 23 00 5c 32 31 31 3a 5c 32 30 33 4b 00 01 5c 32 30 33 35 00 5c 33 30 33 03 | 1.W\202#.\211:\203K..\2035.\303. |
| 1560 | 02 5c 22 01 54 5c 32 36 32 02 5c 32 30 32 3b 00 5c 32 31 31 01 41 5c 32 36 32 02 5c 32 34 32 06 | .\".T\262.\202;.\211.A\262.\242. |
| 1580 | 06 01 21 5c 32 30 33 47 00 5c 33 30 34 5c 33 30 30 02 5c 22 5c 32 31 30 5c 32 31 30 5c 32 30 32 | ..!\203G.\304\300.\"\210\210\202 |
| 15a0 | 17 00 5c 32 36 36 03 5c 32 31 31 30 5c 32 30 37 22 20 5b 73 65 71 2d 2d 62 72 65 61 6b 20 73 65 | ..\266.\2110\207".[seq--break.se |
| 15c0 | 71 2d 6c 65 6e 67 74 68 20 30 20 73 65 71 2d 65 6c 74 20 74 68 72 6f 77 5d 20 31 30 20 28 23 24 | q-length.0.seq-elt.throw].10.(#$ |
| 15e0 | 20 2e 20 35 30 35 34 29 5d 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 | ...5054)]).#@118.Return.non-nil. |
| 1600 | 69 66 20 28 50 52 45 44 49 43 41 54 45 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 | if.(PREDICATE.element).is.non-ni |
| 1620 | 6c 20 66 6f 72 20 61 6c 6c 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 73 65 71 75 65 6e | l.for.all.elements.of.the.sequen |
| 1640 | 63 65 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 49 43 41 54 45 20 53 45 51 55 | ce.SEQUENCE...(fn.PREDICATE.SEQU |
| 1660 | 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 65 76 65 72 79 2d 70 20 23 5b | ENCE)..(defalias.'seq-every-p.#[ |
| 1680 | 35 31 34 20 22 5c 33 30 30 32 4e 00 5c 32 31 31 5c 32 31 31 3c 3f 5c 32 30 35 0e 00 5c 33 30 31 | 514."\3002N.\211\211<?\205..\301 |
| 16a0 | 01 21 5c 32 31 31 5c 32 30 33 16 00 5c 33 30 32 5c 32 30 32 17 00 01 01 5c 32 30 33 21 00 5c 32 | .!\211\203..\302\202....\203!.\2 |
| 16c0 | 31 31 02 57 5c 32 30 32 23 00 5c 32 31 31 3a 5c 32 30 33 4a 00 01 5c 32 30 33 35 00 5c 33 30 33 | 11.W\202#.\211:\203J..\2035.\303 |
| 16e0 | 03 02 5c 22 01 54 5c 32 36 32 02 5c 32 30 32 3b 00 5c 32 31 31 01 41 5c 32 36 32 02 5c 32 34 32 | ..\".T\262.\202;.\211.A\262.\242 |
| 1700 | 05 01 21 5c 32 30 34 46 00 5c 33 30 34 5c 33 30 30 5c 33 30 35 5c 22 5c 32 31 30 5c 32 31 30 5c | ..!\204F.\304\300\305\"\210\210\ |
| 1720 | 32 30 32 17 00 5c 32 36 36 03 5c 33 30 36 30 5c 32 30 37 22 20 5b 73 65 71 2d 2d 62 72 65 61 6b | 202..\266.\3060\207".[seq--break |
| 1740 | 20 73 65 71 2d 6c 65 6e 67 74 68 20 30 20 73 65 71 2d 65 6c 74 20 74 68 72 6f 77 20 6e 69 6c 20 | .seq-length.0.seq-elt.throw.nil. |
| 1760 | 74 5d 20 39 20 28 23 24 20 2e 20 35 36 31 37 29 5d 29 0a 23 40 31 31 30 20 52 65 74 75 72 6e 20 | t].9.(#$...5617)]).#@110.Return. |
| 1780 | 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 66 6f 72 20 77 68 69 63 68 | the.number.of.elements.for.which |
| 17a0 | 20 28 50 52 45 44 49 43 41 54 45 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 | .(PREDICATE.element).is.non-nil. |
| 17c0 | 69 6e 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 49 43 41 54 45 20 53 45 51 55 | in.SEQUENCE...(fn.PREDICATE.SEQU |
| 17e0 | 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 63 6f 75 6e 74 20 23 5b 35 31 | ENCE)..(defalias.'seq-count.#[51 |
| 1800 | 34 20 22 5c 33 30 30 01 5c 32 31 31 3c 3f 5c 32 30 35 0b 00 5c 33 30 31 01 21 5c 32 31 31 5c 32 | 4."\300.\211<?\205..\301.!\211\2 |
| 1820 | 30 33 13 00 5c 33 30 30 5c 32 30 32 14 00 01 01 5c 32 30 33 1e 00 5c 32 31 31 02 57 5c 32 30 32 | 03..\300\202....\203..\211.W\202 |
| 1840 | 20 00 5c 32 31 31 3a 5c 32 30 33 47 00 01 5c 32 30 33 32 00 5c 33 30 32 03 02 5c 22 01 54 5c 32 | ..\211:\203G..\2032.\302..\".T\2 |
| 1860 | 36 32 02 5c 32 30 32 38 00 5c 32 31 31 01 41 5c 32 36 32 02 5c 32 34 32 06 06 01 21 5c 32 30 33 | 62.\2028.\211.A\262.\242...!\203 |
| 1880 | 43 00 04 54 5c 32 36 32 05 5c 32 31 30 5c 32 30 32 14 00 5c 32 36 36 03 5c 32 31 31 5c 32 30 37 | C..T\262.\210\202..\266.\211\207 |
| 18a0 | 22 20 5b 30 20 73 65 71 2d 6c 65 6e 67 74 68 20 73 65 71 2d 65 6c 74 5d 20 39 20 28 23 24 20 2e | ".[0.seq-length.seq-elt].9.(#$.. |
| 18c0 | 20 36 30 30 39 29 5d 29 0a 23 40 38 31 20 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 | .6009)]).#@81.Return.non-nil.if. |
| 18e0 | 74 68 65 20 73 65 71 75 65 6e 63 65 20 53 45 51 55 45 4e 43 45 20 69 73 20 65 6d 70 74 79 2c 20 | the.sequence.SEQUENCE.is.empty,. |
| 1900 | 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 | nil.otherwise...(fn.SEQUENCE)..( |
| 1920 | 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 65 6d 70 74 79 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 | defalias.'seq-empty-p.#[257."\21 |
| 1940 | 31 3c 5c 32 30 33 08 00 5c 32 31 31 3f 5c 32 30 37 5c 33 30 30 01 21 5c 33 30 31 55 5c 32 30 37 | 1<\203..\211?\207\300.!\301U\207 |
| 1960 | 22 20 5b 73 65 71 2d 6c 65 6e 67 74 68 20 30 5d 20 33 20 28 23 24 20 2e 20 36 33 35 30 29 5d 29 | ".[seq-length.0].3.(#$...6350)]) |
| 1980 | 0a 23 40 31 35 38 20 52 65 74 75 72 6e 20 61 20 73 6f 72 74 65 64 20 73 65 71 75 65 6e 63 65 20 | .#@158.Return.a.sorted.sequence. |
| 19a0 | 63 6f 6d 70 61 72 69 6e 67 20 75 73 69 6e 67 20 50 52 45 44 49 43 41 54 45 20 74 68 65 20 65 6c | comparing.using.PREDICATE.the.el |
| 19c0 | 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 | ements.of.SEQUENCE..The.result.i |
| 19e0 | 73 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 68 65 20 73 61 6d 65 20 74 79 70 65 20 61 73 | s.a.sequence.of.the.same.type.as |
| 1a00 | 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 49 43 41 54 45 20 53 45 51 55 45 4e | .SEQUENCE...(fn.PREDICATE.SEQUEN |
| 1a20 | 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 73 6f 72 74 20 23 5b 35 31 34 20 22 | CE)..(defalias.'seq-sort.#[514." |
| 1a40 | 5c 32 31 31 3c 5c 32 30 33 5c 66 00 5c 33 30 30 5c 33 30 31 02 21 03 5c 22 5c 32 30 37 5c 33 30 | \211<\203\f.\300\301.!.\"\207\30 |
| 1a60 | 32 02 5c 33 30 33 03 5c 33 30 34 5c 22 5c 22 5c 33 30 35 01 5c 33 30 36 04 21 5c 22 5c 32 30 37 | 2.\303.\304\"\"\305.\306.!\"\207 |
| 1a80 | 22 20 5b 73 6f 72 74 20 73 65 71 2d 63 6f 70 79 20 73 65 71 2d 73 6f 72 74 20 61 70 70 65 6e 64 | ".[sort.seq-copy.seq-sort.append |
| 1aa0 | 20 6e 69 6c 20 73 65 71 2d 69 6e 74 6f 20 74 79 70 65 2d 6f 66 5d 20 37 20 28 23 24 20 2e 20 36 | .nil.seq-into.type-of].7.(#$...6 |
| 1ac0 | 35 33 35 29 5d 29 0a 23 40 31 39 37 20 53 6f 72 74 20 53 45 51 55 45 4e 43 45 20 75 73 69 6e 67 | 535)]).#@197.Sort.SEQUENCE.using |
| 1ae0 | 20 50 52 45 44 20 61 73 20 61 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 2e 0a | .PRED.as.a.comparison.function.. |
| 1b00 | 45 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 61 72 65 20 74 72 61 6e 73 66 6f | Elements.of.SEQUENCE.are.transfo |
| 1b20 | 72 6d 65 64 20 62 79 20 46 55 4e 43 54 49 4f 4e 20 62 65 66 6f 72 65 20 62 65 69 6e 67 0a 73 6f | rmed.by.FUNCTION.before.being.so |
| 1b40 | 72 74 65 64 2e 20 20 46 55 4e 43 54 49 4f 4e 20 6d 75 73 74 20 62 65 20 61 20 66 75 6e 63 74 69 | rted...FUNCTION.must.be.a.functi |
| 1b60 | 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f | on.of.one.argument...(fn.FUNCTIO |
| 1b80 | 4e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 | N.PRED.SEQUENCE)..(defalias.'seq |
| 1ba0 | 2d 73 6f 72 74 2d 62 79 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 | -sort-by.#[771."\300\301\302\303 |
| 1bc0 | 5c 33 30 34 5c 33 30 35 06 08 06 08 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 | \304\305....\"\306\"\307\310%.\" |
| 1be0 | 5c 32 30 37 22 20 5b 73 65 71 2d 73 6f 72 74 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 | \207".[seq-sort.make-byte-code.5 |
| 1c00 | 31 34 20 22 5c 33 30 31 5c 33 30 30 03 21 5c 33 30 30 03 21 5c 22 5c 32 30 37 22 20 76 63 6f 6e | 14."\301\300.!\300.!\"\207".vcon |
| 1c20 | 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 41 20 42 29 22 5d 20 | cat.vector.[].6."\n\n(fn.A.B)"]. |
| 1c40 | 31 31 20 28 23 24 20 2e 20 36 38 36 31 29 5d 29 0a 23 40 31 35 37 20 52 65 74 75 72 6e 20 74 68 | 11.(#$...6861)]).#@157.Return.th |
| 1c60 | 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 53 45 51 55 45 4e 43 45 20 74 68 61 74 | e.first.element.in.SEQUENCE.that |
| 1c80 | 20 65 71 75 61 6c 73 20 74 6f 20 45 4c 54 2e 0a 45 71 75 61 6c 69 74 79 20 69 73 20 64 65 66 69 | .equals.to.ELT..Equality.is.defi |
| 1ca0 | 6e 65 64 20 62 79 20 54 45 53 54 46 4e 20 69 66 20 6e 6f 6e 2d 6e 69 6c 20 6f 72 20 62 79 20 60 | ned.by.TESTFN.if.non-nil.or.by.` |
| 1cc0 | 65 71 75 61 6c 27 20 69 66 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 20 45 4c 54 | equal'.if.nil...(fn.SEQUENCE.ELT |
| 1ce0 | 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 | .&optional.TESTFN)..(defalias.'s |
| 1d00 | 65 71 2d 63 6f 6e 74 61 69 6e 73 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | eq-contains.#[770."\300\301\302\ |
| 1d20 | 33 30 33 5c 33 30 34 5c 33 30 35 06 07 06 07 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 | 303\304\305....\"\306\"\307\310% |
| 1d40 | 04 5c 22 5c 32 30 37 22 20 5b 73 65 71 2d 73 6f 6d 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 | .\"\207".[seq-some.make-byte-cod |
| 1d60 | 65 20 32 35 37 20 22 5c 33 30 31 5c 32 30 36 05 00 5c 33 30 32 5c 33 30 30 02 5c 22 5c 32 30 37 | e.257."\301\206..\302\300.\"\207 |
| 1d80 | 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 65 71 75 61 6c 5d 20 34 20 22 5c 6e 5c 6e | ".vconcat.vector.[equal].4."\n\n |
| 1da0 | 28 66 6e 20 45 29 22 5d 20 31 31 20 28 23 24 20 2e 20 37 32 35 35 29 5d 29 0a 23 40 31 39 37 20 | (fn.E)"].11.(#$...7255)]).#@197. |
| 1dc0 | 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 45 51 55 45 4e 43 45 31 20 61 6e 64 20 | Return.non-nil.if.SEQUENCE1.and. |
| 1de0 | 53 45 51 55 45 4e 43 45 32 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 73 61 6d 65 20 65 6c 65 6d 65 | SEQUENCE2.contain.the.same.eleme |
| 1e00 | 6e 74 73 2c 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 6f 72 64 65 72 2e 0a 45 71 75 61 6c 69 | nts,.regardless.of.order..Equali |
| 1e20 | 74 79 20 69 73 20 64 65 66 69 6e 65 64 20 62 79 20 54 45 53 54 46 4e 20 69 66 20 6e 6f 6e 2d 6e | ty.is.defined.by.TESTFN.if.non-n |
| 1e40 | 69 6c 20 6f 72 20 62 79 20 60 65 71 75 61 6c 27 20 69 66 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 45 | il.or.by.`equal'.if.nil...(fn.SE |
| 1e60 | 51 55 45 4e 43 45 31 20 53 45 51 55 45 4e 43 45 32 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 | QUENCE1.SEQUENCE2.&optional.TEST |
| 1e80 | 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 73 65 74 2d 65 71 75 61 6c 2d 70 20 | FN)..(defalias.'seq-set-equal-p. |
| 1ea0 | 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 | #[770."\300\301\302\303\304\305. |
| 1ec0 | 07 06 07 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 04 5c 22 5c 32 30 35 27 00 5c 33 30 | ...\"\306\"\307\310%.\"\205'.\30 |
| 1ee0 | 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 06 07 5c 22 5c 33 31 31 5c | 0\301\302\303\304\305....\"\311\ |
| 1f00 | 22 5c 33 30 37 5c 33 31 32 25 03 5c 22 5c 32 30 37 22 20 5b 73 65 71 2d 65 76 65 72 79 2d 70 20 | "\307\312%.\"\207".[seq-every-p. |
| 1f20 | 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 02 5c 33 30 | make-byte-code.257."\302\300.\30 |
| 1f40 | 31 23 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 71 2d 63 6f 6e 74 | 1#\207".vconcat.vector.[seq-cont |
| 1f60 | 61 69 6e 73 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 45 4d 31 29 22 20 5b 73 65 71 2d 63 6f | ains].5."\n\n(fn.ITEM1)".[seq-co |
| 1f80 | 6e 74 61 69 6e 73 5d 20 22 5c 6e 5c 6e 28 66 6e 20 49 54 45 4d 32 29 22 5d 20 31 31 20 28 23 24 | ntains]."\n\n(fn.ITEM2)"].11.(#$ |
| 1fa0 | 20 2e 20 37 36 31 36 29 5d 29 0a 23 40 31 37 32 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 | ...7616)]).#@172.Return.the.inde |
| 1fc0 | 78 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 53 45 51 55 45 4e | x.of.the.first.element.in.SEQUEN |
| 1fe0 | 43 45 20 74 68 61 74 20 69 73 20 65 71 75 61 6c 20 74 6f 20 45 4c 54 2e 0a 45 71 75 61 6c 69 74 | CE.that.is.equal.to.ELT..Equalit |
| 2000 | 79 20 69 73 20 64 65 66 69 6e 65 64 20 62 79 20 54 45 53 54 46 4e 20 69 66 20 6e 6f 6e 2d 6e 69 | y.is.defined.by.TESTFN.if.non-ni |
| 2020 | 6c 20 6f 72 20 62 79 20 60 65 71 75 61 6c 27 20 69 66 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 45 51 | l.or.by.`equal'.if.nil...(fn.SEQ |
| 2040 | 55 45 4e 43 45 20 45 4c 54 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 1f 0a 28 64 65 | UENCE.ELT.&optional.TESTFN)..(de |
| 2060 | 66 61 6c 69 61 73 20 27 73 65 71 2d 70 6f 73 69 74 69 6f 6e 20 23 5b 37 37 30 20 22 5c 33 30 30 | falias.'seq-position.#[770."\300 |
| 2080 | 5c 33 30 31 32 5a 00 03 5c 32 31 31 3c 3f 5c 32 30 35 0f 00 5c 33 30 32 01 21 5c 32 31 31 5c 32 | \3012Z..\211<?\205..\302.!\211\2 |
| 20a0 | 30 33 17 00 5c 33 30 30 5c 32 30 32 18 00 01 01 5c 32 30 33 5c 22 00 5c 32 31 31 02 57 5c 32 30 | 03..\300\202....\203\".\211.W\20 |
| 20c0 | 32 24 00 5c 32 31 31 3a 5c 32 30 33 56 00 01 5c 32 30 33 36 00 5c 33 30 33 03 02 5c 22 01 54 5c | 2$.\211:\203V..\2036.\303..\".T\ |
| 20e0 | 32 36 32 02 5c 32 30 32 3c 00 5c 32 31 31 01 41 5c 32 36 32 02 5c 32 34 32 05 5c 32 30 36 41 00 | 262.\202<.\211.A\262.\242.\206A. |
| 2100 | 5c 33 30 34 01 06 08 5c 22 5c 32 30 33 4e 00 5c 33 30 35 5c 33 30 31 06 06 5c 22 5c 32 31 30 04 | \304...\"\203N.\305\301..\"\210. |
| 2120 | 54 5c 32 36 32 05 5c 32 31 30 5c 32 30 32 18 00 5c 32 36 36 03 5c 33 30 36 30 5c 32 30 37 22 20 | T\262.\210\202..\266.\3060\207". |
| 2140 | 5b 30 20 73 65 71 2d 2d 62 72 65 61 6b 20 73 65 71 2d 6c 65 6e 67 74 68 20 73 65 71 2d 65 6c 74 | [0.seq--break.seq-length.seq-elt |
| 2160 | 20 65 71 75 61 6c 20 74 68 72 6f 77 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 38 31 31 33 29 | .equal.throw.nil].11.(#$...8113) |
| 2180 | 5d 29 0a 23 40 31 36 35 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 65 6c | ]).#@165.Return.a.list.of.the.el |
| 21a0 | 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 77 69 74 68 20 64 75 70 6c 69 63 61 74 | ements.of.SEQUENCE.with.duplicat |
| 21c0 | 65 73 20 72 65 6d 6f 76 65 64 2e 0a 54 45 53 54 46 4e 20 69 73 20 75 73 65 64 20 74 6f 20 63 6f | es.removed..TESTFN.is.used.to.co |
| 21e0 | 6d 70 61 72 65 20 65 6c 65 6d 65 6e 74 73 2c 20 6f 72 20 60 65 71 75 61 6c 27 20 69 66 20 54 45 | mpare.elements,.or.`equal'.if.TE |
| 2200 | 53 54 46 4e 20 69 73 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 20 26 6f 70 74 69 | STFN.is.nil...(fn.SEQUENCE.&opti |
| 2220 | 6f 6e 61 6c 20 54 45 53 54 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 75 6e 69 | onal.TESTFN)..(defalias.'seq-uni |
| 2240 | 71 20 23 5b 35 31 33 20 22 5c 33 30 30 02 5c 32 31 31 3c 3f 5c 32 30 35 0b 00 5c 33 30 31 01 21 | q.#[513."\300.\211<?\205..\301.! |
| 2260 | 5c 32 31 31 5c 32 30 33 13 00 5c 33 30 32 5c 32 30 32 14 00 01 01 5c 32 30 33 1e 00 5c 32 31 31 | \211\203..\302\202....\203..\211 |
| 2280 | 02 57 5c 32 30 32 20 00 5c 32 31 31 3a 5c 32 30 33 4a 00 01 5c 32 30 33 32 00 5c 33 30 33 03 02 | .W\202..\211:\203J..\2032.\303.. |
| 22a0 | 5c 22 01 54 5c 32 36 32 02 5c 32 30 32 38 00 5c 32 31 31 01 41 5c 32 36 32 02 5c 32 34 32 5c 33 | \".T\262.\2028.\211.A\262.\242\3 |
| 22c0 | 30 34 05 02 06 08 23 5c 32 30 34 46 00 5c 32 31 31 05 42 5c 32 36 32 05 5c 32 31 30 5c 32 30 32 | 04....#\204F.\211.B\262.\210\202 |
| 22e0 | 14 00 5c 32 36 36 03 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 73 65 71 2d 6c 65 | ..\266.\211\237\207".[nil.seq-le |
| 2300 | 6e 67 74 68 20 30 20 73 65 71 2d 65 6c 74 20 73 65 71 2d 63 6f 6e 74 61 69 6e 73 5d 20 31 31 20 | ngth.0.seq-elt.seq-contains].11. |
| 2320 | 28 23 24 20 2e 20 38 35 38 35 29 5d 29 0a 23 40 32 30 35 20 52 65 74 75 72 6e 20 74 68 65 20 73 | (#$...8585)]).#@205.Return.the.s |
| 2340 | 75 62 73 65 71 75 65 6e 63 65 20 6f 66 20 53 45 51 55 45 4e 43 45 20 66 72 6f 6d 20 53 54 41 52 | ubsequence.of.SEQUENCE.from.STAR |
| 2360 | 54 20 74 6f 20 45 4e 44 2e 0a 49 66 20 45 4e 44 20 69 73 20 6f 6d 69 74 74 65 64 2c 20 69 74 20 | T.to.END..If.END.is.omitted,.it. |
| 2380 | 64 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 73 65 | defaults.to.the.length.of.the.se |
| 23a0 | 71 75 65 6e 63 65 2e 0a 49 66 20 53 54 41 52 54 20 6f 72 20 45 4e 44 20 69 73 20 6e 65 67 61 74 | quence..If.START.or.END.is.negat |
| 23c0 | 69 76 65 2c 20 69 74 20 63 6f 75 6e 74 73 20 66 72 6f 6d 20 74 68 65 20 65 6e 64 2e 0a 0a 28 66 | ive,.it.counts.from.the.end...(f |
| 23e0 | 6e 20 53 45 51 55 45 4e 43 45 20 53 54 41 52 54 20 26 6f 70 74 69 6f 6e 61 6c 20 45 4e 44 29 1f | n.SEQUENCE.START.&optional.END). |
| 2400 | 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 73 75 62 73 65 71 20 23 5b 37 37 30 20 22 02 3b | .(defalias.'seq-subseq.#[770.".; |
| 2420 | 5c 32 30 34 0b 00 5c 33 30 30 03 21 5c 32 30 33 10 00 02 02 02 4f 5c 32 30 37 02 3c 5c 32 30 33 | \204..\300.!\203.....O\207.<\203 |
| 2440 | 5c 32 32 35 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 04 23 02 5c 32 30 33 30 00 02 5c 33 30 34 | \225.\301\302\303..#.\2030..\304 |
| 2460 | 57 5c 32 30 33 30 00 02 5c 33 30 35 06 06 21 5c 32 31 31 5c 32 36 32 04 5c 5c 5c 32 36 32 03 03 | W\2030..\305..!\211\262.\\\262.. |
| 2480 | 5c 33 30 34 57 5c 32 30 33 45 00 03 02 5c 32 30 36 42 00 5c 33 30 35 06 06 21 5c 32 31 31 5c 32 | \304W\203E...\206B.\305..!\211\2 |
| 24a0 | 36 32 04 5c 5c 5c 32 36 32 04 03 5c 33 30 34 56 5c 32 30 33 5e 00 03 53 05 5c 32 33 33 5c 32 36 | 62.\\\262..\304V\203^..S.\233\26 |
| 24c0 | 32 05 04 5c 32 30 34 5a 00 5c 33 30 36 5c 33 30 37 02 5c 22 5c 32 31 30 04 41 5c 32 36 32 05 02 | 2..\204Z.\306\307.\"\210.A\262.. |
| 24e0 | 5c 32 30 33 5c 32 32 31 00 5c 33 30 31 03 53 5c 32 31 31 5c 32 36 32 05 05 59 5c 32 30 33 7e 00 | \203\221.\301.S\211\262..Y\203~. |
| 2500 | 05 5c 32 30 33 7e 00 05 5c 32 31 31 41 5c 32 36 32 07 5c 32 34 32 01 42 5c 32 36 32 01 5c 32 30 | .\203~..\211A\262.\242.B\262.\20 |
| 2520 | 32 63 00 03 54 05 55 5c 32 30 34 5c 32 31 32 00 5c 33 30 36 5c 33 30 37 03 5c 22 5c 32 31 30 5c | 2c..T.U\204\212.\306\307.\"\210\ |
| 2540 | 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 32 5c 32 32 34 00 5c 33 31 30 05 21 5c 32 30 37 5c | 211\237\262.\202\224.\310.!\207\ |
| 2560 | 33 30 36 5c 33 31 31 04 5c 22 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 70 20 6e 69 6c 20 66 6f 72 | 306\311.\"\207".[vectorp.nil.for |
| 2580 | 6d 61 74 20 22 42 61 64 20 62 6f 75 6e 64 69 6e 67 20 69 6e 64 69 63 65 73 3a 20 25 73 2c 20 25 | mat."Bad.bounding.indices:.%s,.% |
| 25a0 | 73 22 20 30 20 73 65 71 2d 6c 65 6e 67 74 68 20 65 72 72 6f 72 20 22 25 73 22 20 73 65 71 2d 63 | s".0.seq-length.error."%s".seq-c |
| 25c0 | 6f 70 79 20 22 55 6e 73 75 70 70 6f 72 74 65 64 20 73 65 71 75 65 6e 63 65 3a 20 25 73 22 5d 20 | opy."Unsupported.sequence:.%s"]. |
| 25e0 | 39 20 28 23 24 20 2e 20 39 30 31 32 29 5d 29 0a 23 40 31 35 31 20 43 6f 6e 63 61 74 65 6e 61 74 | 9.(#$...9012)]).#@151.Concatenat |
| 2600 | 65 2c 20 69 6e 74 6f 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2c | e,.into.a.sequence.of.type.TYPE, |
| 2620 | 20 74 68 65 20 73 65 71 75 65 6e 63 65 73 20 53 45 51 53 2e 0a 54 59 50 45 20 6d 75 73 74 20 62 | .the.sequences.SEQS..TYPE.must.b |
| 2640 | 65 20 6f 6e 65 20 6f 66 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 79 6d 62 6f 6c 73 3a 20 76 65 63 74 | e.one.of.following.symbols:.vect |
| 2660 | 6f 72 2c 20 73 74 72 69 6e 67 20 6f 72 20 6c 69 73 74 2e 0a 0a 0a 28 66 6e 20 54 59 50 45 20 53 | or,.string.or.list....(fn.TYPE.S |
| 2680 | 45 51 55 45 4e 43 45 2e 2e 2e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 63 6f 6e 63 | EQUENCE...)..(defalias.'seq-conc |
| 26a0 | 61 74 65 6e 61 74 65 20 23 5b 33 38 35 20 22 01 5c 33 30 30 3d 5c 32 30 33 0b 00 5c 33 30 31 5c | atenate.#[385.".\300=\203..\301\ |
| 26c0 | 33 30 32 02 5c 22 5c 32 30 37 01 5c 33 30 33 3d 5c 32 30 33 16 00 5c 33 30 31 5c 33 30 34 02 5c | 302.\"\207.\303=\203..\301\304.\ |
| 26e0 | 22 5c 32 30 37 01 5c 33 30 35 3d 5c 32 30 33 24 00 5c 33 30 31 5c 33 30 36 5c 32 31 31 03 5c 33 | "\207.\305=\203$.\301\306\211.\3 |
| 2700 | 30 37 5c 22 5c 22 5c 32 30 37 5c 33 31 30 5c 33 31 31 03 5c 22 5c 32 30 37 22 20 5b 76 65 63 74 | 07\"\"\207\310\311.\"\207".[vect |
| 2720 | 6f 72 20 61 70 70 6c 79 20 76 63 6f 6e 63 61 74 20 73 74 72 69 6e 67 20 63 6f 6e 63 61 74 20 6c | or.apply.vconcat.string.concat.l |
| 2740 | 69 73 74 20 61 70 70 65 6e 64 20 28 6e 69 6c 29 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 20 73 65 | ist.append.(nil).error."Not.a.se |
| 2760 | 71 75 65 6e 63 65 20 74 79 70 65 20 6e 61 6d 65 3a 20 25 53 22 5d 20 37 20 28 23 24 20 2e 20 39 | quence.type.name:.%S"].7.(#$...9 |
| 2780 | 37 31 38 29 5d 29 0a 23 40 31 37 38 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 74 68 65 20 72 65 73 | 718)]).#@178.Concatenate.the.res |
| 27a0 | 75 6c 74 20 6f 66 20 61 70 70 6c 79 69 6e 67 20 46 55 4e 43 54 49 4f 4e 20 74 6f 20 65 61 63 68 | ult.of.applying.FUNCTION.to.each |
| 27c0 | 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 54 68 65 20 72 65 73 75 6c 74 | .element.of.SEQUENCE..The.result |
| 27e0 | 20 69 73 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2c 20 6f 72 20 | .is.a.sequence.of.type.TYPE,.or. |
| 2800 | 61 20 6c 69 73 74 20 69 66 20 54 59 50 45 20 69 73 20 6e 69 6c 2e 0a 0a 28 66 6e 20 46 55 4e 43 | a.list.if.TYPE.is.nil...(fn.FUNC |
| 2820 | 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 29 1f 0a 28 | TION.SEQUENCE.&optional.TYPE)..( |
| 2840 | 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 6d 61 70 63 61 74 20 23 5b 37 37 30 20 22 5c 33 30 30 | defalias.'seq-mapcat.#[770."\300 |
| 2860 | 5c 33 30 31 02 5c 32 30 36 07 00 5c 33 30 32 5c 33 30 33 06 06 06 06 5c 22 23 5c 32 30 37 22 20 | \301.\206..\302\303....\"#\207". |
| 2880 | 5b 61 70 70 6c 79 20 73 65 71 2d 63 6f 6e 63 61 74 65 6e 61 74 65 20 6c 69 73 74 20 73 65 71 2d | [apply.seq-concatenate.list.seq- |
| 28a0 | 6d 61 70 5d 20 39 20 28 23 24 20 2e 20 31 30 31 32 35 29 5d 29 0a 23 40 32 30 38 20 4c 69 6b 65 | map].9.(#$...10125)]).#@208.Like |
| 28c0 | 20 60 73 65 71 2d 6d 61 70 27 20 62 75 74 20 46 55 4e 43 54 49 4f 4e 20 69 73 20 6d 61 70 70 65 | .`seq-map'.but.FUNCTION.is.mappe |
| 28e0 | 64 20 6f 76 65 72 20 61 6c 6c 20 53 45 51 53 2e 0a 54 68 65 20 61 72 69 74 79 20 6f 66 20 46 55 | d.over.all.SEQS..The.arity.of.FU |
| 2900 | 4e 43 54 49 4f 4e 20 6d 75 73 74 20 6d 61 74 63 68 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 | NCTION.must.match.the.number.of. |
| 2920 | 53 45 51 53 2c 20 61 6e 64 20 74 68 65 0a 6d 61 70 70 69 6e 67 20 73 74 6f 70 73 20 6f 6e 20 74 | SEQS,.and.the.mapping.stops.on.t |
| 2940 | 68 65 20 73 68 6f 72 74 65 73 74 20 73 65 71 75 65 6e 63 65 2e 0a 52 65 74 75 72 6e 20 61 20 6c | he.shortest.sequence..Return.a.l |
| 2960 | 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f | ist.of.the.results...(fn.FUNCTIO |
| 2980 | 4e 20 53 45 51 53 2e 2e 2e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 6d 61 70 6e 20 | N.SEQS...)..(defalias.'seq-mapn. |
| 29a0 | 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 42 5c 22 5c 33 30 30 01 3e 5c 32 | #[642."\300\301\302..B\"\300.>\2 |
| 29c0 | 30 34 21 00 5c 33 30 33 05 5c 33 30 31 5c 33 30 34 04 5c 22 5c 22 02 42 5c 32 36 32 02 5c 33 30 | 04!.\303.\301\304.\"\".B\262.\30 |
| 29e0 | 31 5c 33 30 35 02 5c 22 5c 32 36 32 01 5c 32 30 32 07 00 01 5c 32 33 37 5c 32 30 37 22 20 5b 6e | 1\305.\"\262.\202...\237\207".[n |
| 2a00 | 69 6c 20 73 65 71 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 | il.seq-map.#[257."\300.\301\"\20 |
| 2a20 | 37 22 20 5b 73 65 71 2d 69 6e 74 6f 20 6c 69 73 74 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 29 | 7".[seq-into.list].4."\n\n(fn.S) |
| 2a40 | 22 5d 20 61 70 70 6c 79 20 63 61 72 20 63 64 72 5d 20 31 30 20 28 23 24 20 2e 20 31 30 34 32 38 | "].apply.car.cdr].10.(#$...10428 |
| 2a60 | 29 5d 29 0a 23 40 32 30 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 65 | )]).#@203.Return.a.list.of.the.e |
| 2a80 | 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 67 72 6f 75 70 65 64 20 69 6e 74 6f | lements.of.SEQUENCE.grouped.into |
| 2aa0 | 20 73 75 62 2d 73 65 71 75 65 6e 63 65 73 20 6f 66 20 6c 65 6e 67 74 68 20 4e 2e 0a 54 68 65 20 | .sub-sequences.of.length.N..The. |
| 2ac0 | 6c 61 73 74 20 73 65 71 75 65 6e 63 65 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 6c 65 73 73 20 74 | last.sequence.may.contain.less.t |
| 2ae0 | 68 61 6e 20 4e 20 65 6c 65 6d 65 6e 74 73 2e 20 20 49 66 20 4e 20 69 73 20 61 0a 6e 65 67 61 74 | han.N.elements...If.N.is.a.negat |
| 2b00 | 69 76 65 20 69 6e 74 65 67 65 72 20 6f 72 20 30 2c 20 6e 69 6c 20 69 73 20 72 65 74 75 72 6e 65 | ive.integer.or.0,.nil.is.returne |
| 2b20 | 64 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | d...(fn.SEQUENCE.N)..(defalias.' |
| 2b40 | 73 65 71 2d 70 61 72 74 69 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 57 3f 5c | seq-partition.#[514."\211\300W?\ |
| 2b60 | 32 30 35 23 00 5c 33 30 31 5c 33 30 32 03 21 5c 32 30 34 1f 00 5c 33 30 33 03 03 5c 22 01 42 5c | 205#.\301\302.!\204..\303..\".B\ |
| 2b80 | 32 36 32 01 5c 33 30 34 03 03 5c 22 5c 32 36 32 03 5c 32 30 32 08 00 5c 32 31 31 5c 32 33 37 5c | 262.\304..\"\262.\202..\211\237\ |
| 2ba0 | 32 36 32 01 5c 32 30 37 22 20 5b 31 20 6e 69 6c 20 73 65 71 2d 65 6d 70 74 79 2d 70 20 73 65 71 | 262.\207".[1.nil.seq-empty-p.seq |
| 2bc0 | 2d 74 61 6b 65 20 73 65 71 2d 64 72 6f 70 5d 20 36 20 28 23 24 20 2e 20 31 30 38 35 38 29 5d 29 | -take.seq-drop].6.(#$...10858)]) |
| 2be0 | 0a 23 40 31 36 32 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 65 6c 65 6d | .#@162.Return.a.list.of.the.elem |
| 2c00 | 65 6e 74 73 20 74 68 61 74 20 61 70 70 65 61 72 20 69 6e 20 62 6f 74 68 20 53 45 51 31 20 61 6e | ents.that.appear.in.both.SEQ1.an |
| 2c20 | 64 20 53 45 51 32 2e 0a 45 71 75 61 6c 69 74 79 20 69 73 20 64 65 66 69 6e 65 64 20 62 79 20 54 | d.SEQ2..Equality.is.defined.by.T |
| 2c40 | 45 53 54 46 4e 20 69 66 20 6e 6f 6e 2d 6e 69 6c 20 6f 72 20 62 79 20 60 65 71 75 61 6c 27 20 69 | ESTFN.if.non-nil.or.by.`equal'.i |
| 2c60 | 66 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 45 51 31 20 53 45 51 32 20 26 6f 70 74 69 6f 6e 61 6c 20 | f.nil...(fn.SEQ1.SEQ2.&optional. |
| 2c80 | 54 45 53 54 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 69 6e 74 65 72 73 65 63 | TESTFN)..(defalias.'seq-intersec |
| 2ca0 | 74 69 6f 6e 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 | tion.#[770."\300\301\302\303\304 |
| 2cc0 | 5c 33 30 35 06 07 06 07 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 31 31 05 21 5c | \305....\"\306\"\307\310%\311.!\ |
| 2ce0 | 33 31 32 23 5c 32 30 37 22 20 5b 73 65 71 2d 72 65 64 75 63 65 20 6d 61 6b 65 2d 62 79 74 65 2d | 312#\207".[seq-reduce.make-byte- |
| 2d00 | 63 6f 64 65 20 35 31 34 20 22 5c 33 30 32 5c 33 30 30 02 5c 33 30 31 23 5c 32 30 33 5c 66 00 5c | code.514."\302\300.\301#\203\f.\ |
| 2d20 | 32 31 31 02 42 5c 32 30 37 01 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b | 211.B\207.\207".vconcat.vector.[ |
| 2d40 | 73 65 71 2d 63 6f 6e 74 61 69 6e 73 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 41 43 43 20 45 4c 54 | seq-contains].6."\n\n(fn.ACC.ELT |
| 2d60 | 29 22 20 73 65 71 2d 72 65 76 65 72 73 65 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 2e 20 31 31 32 | )".seq-reverse.nil].11.(#$...112 |
| 2d80 | 33 39 29 5d 29 0a 23 40 31 36 34 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 | 39)]).#@164.Return.a.list.of.the |
| 2da0 | 20 65 6c 65 6d 65 6e 74 73 20 74 68 61 74 20 61 70 70 65 61 72 20 69 6e 20 53 45 51 31 20 62 75 | .elements.that.appear.in.SEQ1.bu |
| 2dc0 | 74 20 6e 6f 74 20 69 6e 20 53 45 51 32 2e 0a 45 71 75 61 6c 69 74 79 20 69 73 20 64 65 66 69 6e | t.not.in.SEQ2..Equality.is.defin |
| 2de0 | 65 64 20 62 79 20 54 45 53 54 46 4e 20 69 66 20 6e 6f 6e 2d 6e 69 6c 20 6f 72 20 62 79 20 60 65 | ed.by.TESTFN.if.non-nil.or.by.`e |
| 2e00 | 71 75 61 6c 27 20 69 66 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 45 51 31 20 53 45 51 32 20 26 6f 70 | qual'.if.nil...(fn.SEQ1.SEQ2.&op |
| 2e20 | 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 64 | tional.TESTFN)..(defalias.'seq-d |
| 2e40 | 69 66 66 65 72 65 6e 63 65 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 | ifference.#[770."\300\301\302\30 |
| 2e60 | 33 5c 33 30 34 5c 33 30 35 06 07 06 07 5c 22 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 | 3\304\305....\"\306\"\307\310%\3 |
| 2e80 | 31 31 05 21 5c 33 31 32 23 5c 32 30 37 22 20 5b 73 65 71 2d 72 65 64 75 63 65 20 6d 61 6b 65 2d | 11.!\312#\207".[seq-reduce.make- |
| 2ea0 | 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 32 5c 33 30 30 02 5c 33 30 31 23 5c 32 30 | byte-code.514."\302\300.\301#\20 |
| 2ec0 | 34 5c 66 00 5c 32 31 31 02 42 5c 32 30 37 01 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 | 4\f.\211.B\207.\207".vconcat.vec |
| 2ee0 | 74 6f 72 20 5b 73 65 71 2d 63 6f 6e 74 61 69 6e 73 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 41 43 | tor.[seq-contains].6."\n\n(fn.AC |
| 2f00 | 43 20 45 4c 54 29 22 20 73 65 71 2d 72 65 76 65 72 73 65 20 6e 69 6c 5d 20 31 31 20 28 23 24 20 | C.ELT)".seq-reverse.nil].11.(#$. |
| 2f20 | 2e 20 31 31 36 36 30 29 5d 29 0a 23 40 31 37 38 20 41 70 70 6c 79 20 46 55 4e 43 54 49 4f 4e 20 | ..11660)]).#@178.Apply.FUNCTION. |
| 2f40 | 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 53 65 70 | to.each.element.of.SEQUENCE..Sep |
| 2f60 | 61 72 61 74 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 69 | arate.the.elements.of.SEQUENCE.i |
| 2f80 | 6e 74 6f 20 61 6e 20 61 6c 69 73 74 20 75 73 69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 73 20 61 | nto.an.alist.using.the.results.a |
| 2fa0 | 73 0a 6b 65 79 73 2e 20 20 4b 65 79 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 | s.keys...Keys.are.compared.using |
| 2fc0 | 20 60 65 71 75 61 6c 27 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 | .`equal'...(fn.FUNCTION.SEQUENCE |
| 2fe0 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 67 72 6f 75 70 2d 62 79 20 23 5b 35 31 34 | )..(defalias.'seq-group-by.#[514 |
| 3000 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 | ."\300\301\302\303\304\305..!\30 |
| 3020 | 36 5c 22 5c 33 30 37 5c 33 31 30 25 5c 33 31 31 03 21 5c 33 31 32 23 5c 32 30 37 22 20 5b 73 65 | 6\"\307\310%\311.!\312#\207".[se |
| 3040 | 71 2d 72 65 64 75 63 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 | q-reduce.make-byte-code.514."\30 |
| 3060 | 30 01 21 5c 33 30 31 01 04 5c 22 5c 32 31 31 5c 32 30 33 1a 00 5c 32 31 31 01 5c 32 31 31 05 02 | 0.!\301..\"\211\203..\211.\211.. |
| 3080 | 41 42 5c 32 34 31 5c 32 36 32 01 5c 32 34 31 5c 32 31 30 5c 32 30 32 21 00 01 03 44 04 42 5c 32 | AB\241\262.\241\210\202!...D.B\2 |
| 30a0 | 36 32 04 03 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 61 73 73 6f 63 5d | 62..\207".vconcat.vector.[assoc] |
| 30c0 | 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 41 43 43 20 45 4c 54 29 22 20 73 65 71 2d 72 65 76 65 72 73 | .9."\n\n(fn.ACC.ELT)".seq-revers |
| 30e0 | 65 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 31 32 30 38 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f | e.nil].9.(#$...12081)]).(byte-co |
| 3100 | 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 31 0d 00 5c 33 30 33 5c 33 30 34 21 30 5c 32 30 | de."\300\301\3021..\303\304!0\20 |
| 3120 | 32 11 00 5c 32 31 30 5c 32 30 32 18 00 5c 32 30 33 18 00 5c 33 30 33 5c 32 30 32 19 00 5c 33 30 | 2..\210\202..\203..\303\202..\30 |
| 3140 | 35 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 73 65 71 2d 72 65 76 65 72 73 65 20 28 | 5\"\207".[defalias.seq-reverse.( |
| 3160 | 65 72 72 6f 72 29 20 72 65 76 65 72 73 65 20 5b 31 20 32 5d 20 23 5b 32 35 37 20 22 5c 33 30 30 | error).reverse.[1.2].#[257."\300 |
| 3180 | 43 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 33 30 37 | C\301\302\303\304\305\306..!\307 |
| 31a0 | 5c 22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 31 30 01 3c 5c 32 30 33 1d 00 5c 32 31 31 5c 32 | \"\310\311%.\"\210.<\203..\211\2 |
| 31c0 | 34 32 5c 32 30 32 24 00 5c 33 31 32 01 5c 32 34 32 5c 33 31 33 04 21 5c 22 5c 32 30 37 22 20 5b | 42\202$.\312.\242\313.!\"\207".[ |
| 31e0 | 6e 69 6c 20 73 65 71 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 | nil.seq-map.make-byte-code.257." |
| 3200 | 5c 33 30 30 01 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 | \300.\300\242B\240\207".vconcat. |
| 3220 | 76 65 63 74 6f 72 20 5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29 22 20 73 65 71 2d 69 | vector.[].4."\n\n(fn.ELT)".seq-i |
| 3240 | 6e 74 6f 20 74 79 70 65 2d 6f 66 5d 20 39 20 22 52 65 74 75 72 6e 20 74 68 65 20 72 65 76 65 72 | nto.type-of].9."Return.the.rever |
| 3260 | 73 65 64 20 63 6f 70 79 20 6f 66 20 6c 69 73 74 2c 20 76 65 63 74 6f 72 2c 20 6f 72 20 73 74 72 | sed.copy.of.list,.vector,.or.str |
| 3280 | 69 6e 67 20 53 45 51 55 45 4e 43 45 2e 5c 6e 53 65 65 20 61 6c 73 6f 20 74 68 65 20 66 75 6e 63 | ing.SEQUENCE.\nSee.also.the.func |
| 32a0 | 74 69 6f 6e 20 60 6e 72 65 76 65 72 73 65 27 2c 20 77 68 69 63 68 20 69 73 20 75 73 65 64 20 6d | tion.`nreverse',.which.is.used.m |
| 32c0 | 6f 72 65 20 6f 66 74 65 6e 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 5d 20 34 | ore.often.\n\n(fn.SEQUENCE)"]].4 |
| 32e0 | 29 0a 23 40 31 34 37 20 43 6f 6e 76 65 72 74 20 74 68 65 20 73 65 71 75 65 6e 63 65 20 53 45 51 | ).#@147.Convert.the.sequence.SEQ |
| 3300 | 55 45 4e 43 45 20 69 6e 74 6f 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 79 70 65 20 54 59 | UENCE.into.a.sequence.of.type.TY |
| 3320 | 50 45 2e 0a 54 59 50 45 20 63 61 6e 20 62 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f | PE..TYPE.can.be.one.of.the.follo |
| 3340 | 77 69 6e 67 20 73 79 6d 62 6f 6c 73 3a 20 76 65 63 74 6f 72 2c 20 73 74 72 69 6e 67 20 6f 72 20 | wing.symbols:.vector,.string.or. |
| 3360 | 6c 69 73 74 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 20 54 59 50 45 29 1f 0a 28 64 65 66 61 | list...(fn.SEQUENCE.TYPE)..(defa |
| 3380 | 6c 69 61 73 20 27 73 65 71 2d 69 6e 74 6f 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 3d 5c | lias.'seq-into.#[514."\211\300=\ |
| 33a0 | 32 30 33 5c 6e 00 5c 33 30 31 02 21 5c 32 30 37 5c 32 31 31 5c 33 30 32 3d 5c 32 30 33 14 00 5c | 203\n.\301.!\207\211\302=\203..\ |
| 33c0 | 33 30 33 02 21 5c 32 30 37 5c 32 31 31 5c 33 30 34 3d 5c 32 30 33 1e 00 5c 33 30 35 02 21 5c 32 | 303.!\207\211\304=\203..\305.!\2 |
| 33e0 | 30 37 5c 33 30 36 5c 33 30 37 02 5c 22 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 20 73 65 71 2d 2d | 07\306\307.\"\207".[vector.seq-- |
| 3400 | 69 6e 74 6f 2d 76 65 63 74 6f 72 20 73 74 72 69 6e 67 20 73 65 71 2d 2d 69 6e 74 6f 2d 73 74 72 | into-vector.string.seq--into-str |
| 3420 | 69 6e 67 20 6c 69 73 74 20 73 65 71 2d 2d 69 6e 74 6f 2d 6c 69 73 74 20 65 72 72 6f 72 20 22 4e | ing.list.seq--into-list.error."N |
| 3440 | 6f 74 20 61 20 73 65 71 75 65 6e 63 65 20 74 79 70 65 20 6e 61 6d 65 3a 20 25 53 22 5d 20 35 20 | ot.a.sequence.type.name:.%S"].5. |
| 3460 | 28 23 24 20 2e 20 31 33 30 33 32 29 5d 29 0a 23 40 31 30 38 20 52 65 74 75 72 6e 20 74 68 65 20 | (#$...13032)]).#@108.Return.the. |
| 3480 | 73 6d 61 6c 6c 65 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 53 45 | smallest.element.of.SEQUENCE..SE |
| 34a0 | 51 55 45 4e 43 45 20 6d 75 73 74 20 62 65 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 6e 75 6d | QUENCE.must.be.a.sequence.of.num |
| 34c0 | 62 65 72 73 20 6f 72 20 6d 61 72 6b 65 72 73 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 29 1f | bers.or.markers...(fn.SEQUENCE). |
| 34e0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 6d 69 6e 20 23 5b 32 35 37 20 22 5c 33 30 30 5c | .(defalias.'seq-min.#[257."\300\ |
| 3500 | 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 22 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 69 6e | 301\302.\303\"\"\207".[apply.min |
| 3520 | 20 73 65 71 2d 69 6e 74 6f 20 6c 69 73 74 5d 20 36 20 28 23 24 20 2e 20 31 33 34 32 39 29 5d 29 | .seq-into.list].6.(#$...13429)]) |
| 3540 | 0a 23 40 31 30 37 20 52 65 74 75 72 6e 20 74 68 65 20 6c 61 72 67 65 73 74 20 65 6c 65 6d 65 6e | .#@107.Return.the.largest.elemen |
| 3560 | 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 53 45 51 55 45 4e 43 45 20 6d 75 73 74 20 62 65 20 | t.of.SEQUENCE..SEQUENCE.must.be. |
| 3580 | 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 6e 75 6d 62 65 72 73 20 6f 72 20 6d 61 72 6b 65 72 73 | a.sequence.of.numbers.or.markers |
| 35a0 | 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 | ...(fn.SEQUENCE)..(defalias.'seq |
| 35c0 | 2d 6d 61 78 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 22 5c | -max.#[257."\300\301\302.\303\"\ |
| 35e0 | 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 61 78 20 73 65 71 2d 69 6e 74 6f 20 6c 69 73 74 5d | "\207".[apply.max.seq-into.list] |
| 3600 | 20 36 20 28 23 24 20 2e 20 31 33 36 33 39 29 5d 29 0a 23 40 39 33 20 52 65 74 75 72 6e 20 61 20 | .6.(#$...13639)]).#@93.Return.a. |
| 3620 | 72 61 6e 64 6f 6d 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 53 45 51 55 45 4e 43 45 2e 0a 53 69 | random.element.from.SEQUENCE..Si |
| 3640 | 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 20 69 66 20 53 45 51 55 45 4e 43 45 20 69 73 20 65 6d 70 | gnal.an.error.if.SEQUENCE.is.emp |
| 3660 | 74 79 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 | ty...(fn.SEQUENCE)..(defalias.'s |
| 3680 | 65 71 2d 72 61 6e 64 6f 6d 2d 65 6c 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 5c | eq-random-elt.#[257."\300.!\203\ |
| 36a0 | 6e 00 5c 33 30 31 5c 33 30 32 21 5c 32 30 37 5c 33 30 33 01 5c 33 30 34 5c 33 30 35 04 21 21 5c | n.\301\302!\207\303.\304\305.!!\ |
| 36c0 | 22 5c 32 30 37 22 20 5b 73 65 71 2d 65 6d 70 74 79 2d 70 20 65 72 72 6f 72 20 22 53 65 71 75 65 | "\207".[seq-empty-p.error."Seque |
| 36e0 | 6e 63 65 20 63 61 6e 6e 6f 74 20 62 65 20 65 6d 70 74 79 22 20 73 65 71 2d 65 6c 74 20 72 61 6e | nce.cannot.be.empty".seq-elt.ran |
| 3700 | 64 6f 6d 20 73 65 71 2d 6c 65 6e 67 74 68 5d 20 36 20 28 23 24 20 2e 20 31 33 38 34 37 29 5d 29 | dom.seq-length].6.(#$...13847)]) |
| 3720 | 0a 23 40 31 31 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 66 72 6f 6d 20 4c 49 53 54 20 77 | .#@117.Return.a.list.from.LIST.w |
| 3740 | 69 74 68 6f 75 74 20 69 74 73 20 66 69 72 73 74 20 4e 20 65 6c 65 6d 65 6e 74 73 2e 0a 54 68 69 | ithout.its.first.N.elements..Thi |
| 3760 | 73 20 69 73 20 61 6e 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 66 6f 72 20 6c 69 73 74 73 20 69 | s.is.an.optimization.for.lists.i |
| 3780 | 6e 20 60 73 65 71 2d 64 72 6f 70 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 4e 29 1f 0a 28 64 65 66 | n.`seq-drop'...(fn.LIST.N)..(def |
| 37a0 | 61 6c 69 61 73 20 27 73 65 71 2d 2d 64 72 6f 70 2d 6c 69 73 74 20 23 5b 35 31 34 20 22 5c 32 31 | alias.'seq--drop-list.#[514."\21 |
| 37c0 | 31 02 5c 32 33 33 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 31 34 31 31 39 29 5d 29 0a | 1.\233\207".[].4.(#$...14119)]). |
| 37e0 | 23 40 31 31 37 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 66 72 6f 6d 20 4c 49 53 54 20 6d 61 | #@117.Return.a.list.from.LIST.ma |
| 3800 | 64 65 20 6f 66 20 69 74 73 20 66 69 72 73 74 20 4e 20 65 6c 65 6d 65 6e 74 73 2e 0a 54 68 69 73 | de.of.its.first.N.elements..This |
| 3820 | 20 69 73 20 61 6e 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 66 6f 72 20 6c 69 73 74 73 20 69 6e | .is.an.optimization.for.lists.in |
| 3840 | 20 60 73 65 71 2d 74 61 6b 65 27 2e 0a 0a 28 66 6e 20 4c 49 53 54 20 4e 29 1f 0a 28 64 65 66 61 | .`seq-take'...(fn.LIST.N)..(defa |
| 3860 | 6c 69 61 73 20 27 73 65 71 2d 2d 74 61 6b 65 2d 6c 69 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 | lias.'seq--take-list.#[514."\300 |
| 3880 | 02 5c 32 30 33 1c 00 01 5c 33 30 31 56 5c 32 30 33 1c 00 01 53 5c 32 36 32 02 02 5c 32 31 31 41 | .\203...\301V\203...S\262..\211A |
| 38a0 | 5c 32 36 32 04 5c 32 34 32 01 42 5c 32 36 32 01 5c 32 30 32 01 00 5c 32 31 31 5c 32 33 37 5c 32 | \262.\242.B\262.\202..\211\237\2 |
| 38c0 | 30 37 22 20 5b 6e 69 6c 20 30 5d 20 35 20 28 23 24 20 2e 20 31 34 33 31 30 29 5d 29 0a 23 40 31 | 07".[nil.0].5.(#$...14310)]).#@1 |
| 38e0 | 36 30 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 20 | 60.Return.a.list.from.the.first. |
| 3900 | 65 6c 65 6d 65 6e 74 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 49 43 41 54 45 20 65 6c 65 | element.for.which.(PREDICATE.ele |
| 3920 | 6d 65 6e 74 29 20 69 73 20 6e 69 6c 20 69 6e 20 4c 49 53 54 2e 0a 54 68 69 73 20 69 73 20 61 6e | ment).is.nil.in.LIST..This.is.an |
| 3940 | 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 66 6f 72 20 6c 69 73 74 73 20 69 6e 20 60 73 65 71 2d | .optimization.for.lists.in.`seq- |
| 3960 | 64 72 6f 70 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 49 43 41 54 45 20 4c 49 53 54 | drop-while'...(fn.PREDICATE.LIST |
| 3980 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 2d 64 72 6f 70 2d 77 68 69 6c 65 2d 6c 69 | )..(defalias.'seq--drop-while-li |
| 39a0 | 73 74 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 32 30 33 12 00 01 01 40 21 5c 32 30 33 12 00 5c 32 | st.#[514."\211\203....@!\203..\2 |
| 39c0 | 31 31 41 5c 32 36 32 01 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 31 | 11A\262.\202..\207".[].4.(#$...1 |
| 39e0 | 34 35 36 33 29 5d 29 0a 23 40 31 35 38 20 52 65 74 75 72 6e 20 74 68 65 20 73 75 63 63 65 73 73 | 4563)]).#@158.Return.the.success |
| 3a00 | 69 76 65 20 65 6c 65 6d 65 6e 74 73 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 49 43 41 54 | ive.elements.for.which.(PREDICAT |
| 3a20 | 45 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 6e 20 4c 49 53 54 2e 0a 54 | E.element).is.non-nil.in.LIST..T |
| 3a40 | 68 69 73 20 69 73 20 61 6e 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 66 6f 72 20 6c 69 73 74 73 | his.is.an.optimization.for.lists |
| 3a60 | 20 69 6e 20 60 73 65 71 2d 74 61 6b 65 2d 77 68 69 6c 65 27 2e 0a 0a 28 66 6e 20 50 52 45 44 49 | .in.`seq-take-while'...(fn.PREDI |
| 3a80 | 43 41 54 45 20 4c 49 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 2d 74 61 6b 65 | CATE.LIST)..(defalias.'seq--take |
| 3aa0 | 2d 77 68 69 6c 65 2d 6c 69 73 74 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 32 30 33 19 00 02 02 | -while-list.#[514."\300.\203.... |
| 3ac0 | 40 21 5c 32 30 33 19 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 01 42 5c 32 36 32 01 5c 32 | @!\203...\211A\262.\242.B\262.\2 |
| 3ae0 | 30 32 01 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 | 02..\211\237\207".[nil].5.(#$... |
| 3b00 | 31 34 38 33 30 29 5d 29 0a 23 40 31 32 31 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 | 14830)]).#@121.Return.the.number |
| 3b20 | 20 6f 66 20 73 75 63 63 65 73 73 69 76 65 20 65 6c 65 6d 65 6e 74 73 20 66 6f 72 20 77 68 69 63 | .of.successive.elements.for.whic |
| 3b40 | 68 20 28 50 52 45 44 49 43 41 54 45 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c | h.(PREDICATE.element).is.non-nil |
| 3b60 | 20 69 6e 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 49 43 41 54 45 20 53 45 51 | .in.SEQUENCE...(fn.PREDICATE.SEQ |
| 3b80 | 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 2d 63 6f 75 6e 74 2d 73 75 | UENCE)..(defalias.'seq--count-su |
| 3ba0 | 63 63 65 73 73 69 76 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 21 01 01 57 5c 32 30 | ccessive.#[514."\300\301.!..W\20 |
| 3bc0 | 33 1a 00 03 5c 33 30 32 04 04 5c 22 21 5c 32 30 33 1a 00 01 54 5c 32 36 32 02 5c 32 30 32 04 00 | 3...\302..\"!\203...T\262.\202.. |
| 3be0 | 01 5c 32 30 37 22 20 5b 30 20 73 65 71 2d 6c 65 6e 67 74 68 20 73 65 71 2d 65 6c 74 5d 20 38 20 | .\207".[0.seq-length.seq-elt].8. |
| 3c00 | 28 23 24 20 2e 20 31 35 31 31 39 29 5d 29 0a 23 40 31 39 34 20 52 65 74 75 72 6e 20 61 20 6c 69 | (#$...15119)]).#@194.Return.a.li |
| 3c20 | 73 74 20 6f 66 20 62 69 6e 64 69 6e 67 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 | st.of.bindings.of.the.variables. |
| 3c40 | 69 6e 20 41 52 47 53 20 74 6f 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 61 20 73 65 71 | in.ARGS.to.the.elements.of.a.seq |
| 3c60 | 75 65 6e 63 65 2e 0a 69 66 20 42 49 4e 44 49 4e 47 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 | uence..if.BINDINGS.is.non-nil,.a |
| 3c80 | 70 70 65 6e 64 20 6e 65 77 20 62 69 6e 64 69 6e 67 73 20 74 6f 20 69 74 2c 20 61 6e 64 20 72 65 | ppend.new.bindings.to.it,.and.re |
| 3ca0 | 74 75 72 6e 0a 42 49 4e 44 49 4e 47 53 2e 0a 0a 28 66 6e 20 41 52 47 53 20 53 45 51 55 45 4e 43 | turn.BINDINGS...(fn.ARGS.SEQUENC |
| 3cc0 | 45 20 26 6f 70 74 69 6f 6e 61 6c 20 42 49 4e 44 49 4e 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 | E.&optional.BINDINGS)..(defalias |
| 3ce0 | 20 27 73 65 71 2d 2d 6d 61 6b 65 2d 62 69 6e 64 69 6e 67 73 20 23 5b 37 37 30 20 22 5c 33 30 30 | .'seq--make-bindings.#[770."\300 |
| 3d00 | 5c 33 30 31 04 5c 32 31 31 3c 3f 5c 32 30 35 5c 66 00 5c 33 30 32 01 21 5c 32 31 31 5c 32 30 33 | \301.\211<?\205\f.\302.!\211\203 |
| 3d20 | 14 00 5c 33 30 30 5c 32 30 32 15 00 01 01 5c 32 30 33 1f 00 5c 32 31 31 02 57 5c 32 30 32 21 00 | ..\300\202....\203..\211.W\202!. |
| 3d40 | 5c 32 31 31 3a 5c 32 30 33 5c 32 31 34 00 01 5c 32 30 33 33 00 5c 33 30 33 03 02 5c 22 01 54 5c | \211:\203\214..\2033.\303..\".T\ |
| 3d60 | 32 36 32 02 5c 32 30 32 39 00 5c 32 31 31 01 41 5c 32 36 32 02 5c 32 34 32 04 5c 32 30 34 5c 32 | 262.\2029.\211.A\262.\242.\204\2 |
| 3d80 | 30 34 00 5c 33 30 34 01 21 5c 32 30 33 58 00 5c 33 30 35 5c 33 30 36 06 5c 6e 06 08 5c 22 5c 33 | 04.\304.!\203X.\305\306.\n..\"\3 |
| 3da0 | 30 36 06 5c 6e 06 09 45 06 09 23 5c 32 36 32 07 5c 32 30 32 5c 32 30 34 00 5c 32 31 31 5c 33 30 | 06.\n..E..#\262.\202\204.\211\30 |
| 3dc0 | 37 3d 5c 32 30 33 77 00 5c 33 30 36 06 09 06 07 54 5c 22 5c 33 31 30 06 09 06 08 45 44 06 07 42 | 7=\203w.\306....T\"\310....ED..B |
| 3de0 | 5c 32 36 32 07 5c 33 31 31 5c 32 36 32 05 5c 32 30 32 5c 32 30 34 00 5c 32 31 31 5c 33 30 36 06 | \262.\311\262.\202\204.\211\306. |
| 3e00 | 09 06 08 45 44 06 07 42 5c 32 36 32 07 05 54 5c 32 36 32 06 5c 32 31 30 5c 32 30 32 15 00 5c 32 | ...ED..B\262..T\262.\210\202..\2 |
| 3e20 | 36 36 03 02 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 73 65 71 2d 6c 65 6e 67 74 68 20 73 65 71 2d | 66..\207".[0.nil.seq-length.seq- |
| 3e40 | 65 6c 74 20 73 65 71 70 20 73 65 71 2d 2d 6d 61 6b 65 2d 62 69 6e 64 69 6e 67 73 20 73 65 71 2d | elt.seqp.seq--make-bindings.seq- |
| 3e60 | 2d 65 6c 74 2d 73 61 66 65 20 26 72 65 73 74 20 73 65 71 2d 64 72 6f 70 20 74 5d 20 31 34 20 28 | -elt-safe.&rest.seq-drop.t].14.( |
| 3e80 | 23 24 20 2e 20 31 35 33 38 31 29 5d 29 0a 23 40 39 37 20 52 65 74 75 72 6e 20 65 6c 65 6d 65 6e | #$...15381)]).#@97.Return.elemen |
| 3ea0 | 74 20 6f 66 20 53 45 51 55 45 4e 43 45 20 61 74 20 74 68 65 20 69 6e 64 65 78 20 4e 2e 0a 49 66 | t.of.SEQUENCE.at.the.index.N..If |
| 3ec0 | 20 6e 6f 20 65 6c 65 6d 65 6e 74 20 69 73 20 66 6f 75 6e 64 2c 20 72 65 74 75 72 6e 20 6e 69 6c | .no.element.is.found,.return.nil |
| 3ee0 | 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 | ...(fn.SEQUENCE.N)..(defalias.'s |
| 3f00 | 65 71 2d 2d 65 6c 74 2d 73 61 66 65 20 23 5b 35 31 34 20 22 01 3c 5c 32 30 34 13 00 5c 33 30 30 | eq--elt-safe.#[514.".<\204..\300 |
| 3f20 | 02 21 5c 32 30 35 17 00 5c 33 30 31 02 21 01 56 5c 32 30 35 17 00 5c 33 30 32 02 02 5c 22 5c 32 | .!\205..\301.!.V\205..\302..\"\2 |
| 3f40 | 30 37 22 20 5b 73 65 71 75 65 6e 63 65 70 20 73 65 71 2d 6c 65 6e 67 74 68 20 73 65 71 2d 65 6c | 07".[sequencep.seq-length.seq-el |
| 3f60 | 74 5d 20 35 20 28 23 24 20 2e 20 31 36 30 31 39 29 5d 29 0a 23 40 36 32 20 41 63 74 69 76 61 74 | t].5.(#$...16019)]).#@62.Activat |
| 3f80 | 65 20 66 6f 6e 74 2d 6c 6f 63 6b 20 6b 65 79 77 6f 72 64 73 20 66 6f 72 20 73 6f 6d 65 20 73 79 | e.font-lock.keywords.for.some.sy |
| 3fa0 | 6d 62 6f 6c 73 20 64 65 66 69 6e 65 64 20 69 6e 20 73 65 71 2e 1f 0a 28 64 65 66 61 6c 69 61 73 | mbols.defined.in.seq...(defalias |
| 3fc0 | 20 27 73 65 71 2d 2d 61 63 74 69 76 61 74 65 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 | .'seq--activate-font-lock-keywor |
| 3fe0 | 64 73 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 66 6f 6e | ds.#[0."\300\301\302\"\207".[fon |
| 4000 | 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d | t-lock-add-keywords.emacs-lisp-m |
| 4020 | 6f 64 65 20 28 22 5c 5c 3c 73 65 71 2d 64 6f 73 65 71 5c 5c 3e 22 20 22 5c 5c 3c 73 65 71 2d 6c | ode.("\\<seq-doseq\\>"."\\<seq-l |
| 4040 | 65 74 5c 5c 3e 22 29 5d 20 33 20 28 23 24 20 2e 20 31 36 32 34 39 29 5d 29 0a 28 62 79 74 65 2d | et\\>")].3.(#$...16249)]).(byte- |
| 4060 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 | code."\300\301\302\"\210\300\303 |
| 4080 | 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 30 | \304\"\210\300\305\306\"\210\300 |
| 40a0 | 5c 33 30 37 5c 33 31 30 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 31 5c 33 30 37 5c 22 5c 32 31 30 | \307\310\"\210\300\311\307\"\210 |
| 40c0 | 5c 33 30 30 5c 33 31 32 5c 33 31 33 5c 22 5c 32 31 30 5c 33 30 30 5c 33 31 34 5c 33 31 35 5c 22 | \300\312\313\"\210\300\314\315\" |
| 40e0 | 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 73 65 71 2d 63 6f 70 79 20 63 6f 70 79 2d 73 65 | \207".[defalias.seq-copy.copy-se |
| 4100 | 71 75 65 6e 63 65 20 73 65 71 2d 65 6c 74 20 65 6c 74 20 73 65 71 2d 6c 65 6e 67 74 68 20 6c 65 | quence.seq-elt.elt.seq-length.le |
| 4120 | 6e 67 74 68 20 73 65 71 2d 64 6f 20 6d 61 70 63 20 73 65 71 2d 65 61 63 68 20 73 65 71 2d 6d 61 | ngth.seq-do.mapc.seq-each.seq-ma |
| 4140 | 70 20 6d 61 70 63 61 72 20 73 65 71 70 20 73 65 71 75 65 6e 63 65 70 5d 20 33 29 0a 23 40 36 36 | p.mapcar.seqp.sequencep].3).#@66 |
| 4160 | 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 | .Concatenate.the.elements.of.SEQ |
| 4180 | 55 45 4e 43 45 20 69 6e 74 6f 20 61 20 6c 69 73 74 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 | UENCE.into.a.list...(fn.SEQUENCE |
| 41a0 | 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 2d 69 6e 74 6f 2d 6c 69 73 74 20 23 5b 32 | )..(defalias.'seq--into-list.#[2 |
| 41c0 | 35 37 20 22 5c 32 31 31 3c 5c 32 30 33 06 00 5c 32 30 37 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 | 57."\211<\203..\207\300.\301\"\2 |
| 41e0 | 30 37 22 20 5b 61 70 70 65 6e 64 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 31 36 37 33 37 29 5d | 07".[append.nil].4.(#$...16737)] |
| 4200 | 29 0a 23 40 36 38 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 | ).#@68.Concatenate.the.elements. |
| 4220 | 6f 66 20 53 45 51 55 45 4e 43 45 20 69 6e 74 6f 20 61 20 76 65 63 74 6f 72 2e 0a 0a 28 66 6e 20 | of.SEQUENCE.into.a.vector...(fn. |
| 4240 | 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 2d 69 6e 74 6f 2d | SEQUENCE)..(defalias.'seq--into- |
| 4260 | 76 65 63 74 6f 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 07 00 5c 32 30 37 5c 33 | vector.#[257."\300.!\203..\207\3 |
| 4280 | 30 31 01 21 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 70 20 76 63 6f 6e 63 61 74 5d 20 33 20 28 23 | 01.!\207".[vectorp.vconcat].3.(# |
| 42a0 | 24 20 2e 20 31 36 39 30 33 29 5d 29 0a 23 40 36 38 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 74 68 | $...16903)]).#@68.Concatenate.th |
| 42c0 | 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 69 6e 74 6f 20 61 20 73 74 | e.elements.of.SEQUENCE.into.a.st |
| 42e0 | 72 69 6e 67 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | ring...(fn.SEQUENCE)..(defalias. |
| 4300 | 27 73 65 71 2d 2d 69 6e 74 6f 2d 73 74 72 69 6e 67 20 23 5b 32 35 37 20 22 5c 32 31 31 3b 5c 32 | 'seq--into-string.#[257."\211;\2 |
| 4320 | 30 33 06 00 5c 32 30 37 5c 32 31 31 5c 32 36 30 01 5c 32 30 37 22 20 5b 5d 20 32 20 28 23 24 20 | 03..\207\211\260.\207".[].2.(#$. |
| 4340 | 2e 20 31 37 30 37 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 | ..17074)]).(byte-code."\300\301! |
| 4360 | 5c 32 30 34 0b 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 35 5c 33 30 36 | \204..\302\303\304\"\210\305\306 |
| 4380 | 21 5c 32 30 37 22 20 5b 66 62 6f 75 6e 64 70 20 65 6c 69 73 70 2d 2d 66 6f 6e 74 2d 6c 6f 63 6b | !\207".[fboundp.elisp--font-lock |
| 43a0 | 2d 66 6c 75 73 68 2d 65 6c 69 73 70 2d 62 75 66 66 65 72 73 20 61 64 64 2d 68 6f 6f 6b 20 65 6d | -flush-elisp-buffers.add-hook.em |
| 43c0 | 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 73 65 71 2d 2d 61 63 74 69 76 61 74 65 | acs-lisp-mode-hook.seq--activate |
| 43e0 | 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 20 70 72 6f 76 69 64 65 20 73 65 71 2d | -font-lock-keywords.provide.seq- |
| 4400 | 32 34 5d 20 33 29 0a | 24].3). |
 |
depot | |
| monorepo for the virus lounge | The Virus Lounge |
| about summary refs log tree commit diff |
blob: e81a167aa8cf2934d0b7da91f02315f97142e40d (plain)