blob: e81a167aa8cf2934d0b7da91f02315f97142e40d (plain)

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).