blob: 375e7f95f3f4a99c2ea2068f17e91f546dd2ec1a (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 35 30 20 45 78 65 63 75 74	;;;;;;;;;;;;;;;;;;...#@50.Execut
01a0	65 20 42 4f 44 59 20 69 66 20 69 6e 20 45 6d 61 63 73 3e 3d 32 35 2e 78 2e 0a 0a 28 66 6e 20 26	e.BODY.if.in.Emacs>=25.x...(fn.&
01c0	72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 2d 77 68 65 6e	rest.BODY)..(defalias.'seq--when
01e0	2d 65 6d 61 63 73 2d 32 35 2d 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30	-emacs-25-p.'(macro...#[128."\30
0200	31 5c 33 30 32 08 5c 22 5c 32 30 35 5c 6e 00 5c 33 30 33 01 42 5c 32 30 37 22 20 5b 65 6d 61 63	1\302.\"\205\n.\303.B\207".[emac
0220	73 2d 76 65 72 73 69 6f 6e 20 76 65 72 73 69 6f 6e 3c 3d 20 22 32 35 22 20 70 72 6f 67 6e 5d 20	s-version.version<=."25".progn].
0240	34 20 28 23 24 20 2e 20 34 31 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	4.(#$...410)])).(byte-code."\300
0260	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30	\301\302\303#\210\304\301\305\30
0280	36 23 5c 32 31 30 5c 33 30 37 5c 33 31 30 21 5c 32 31 30 5c 33 30 37 5c 33 31 31 21 5c 32 30 37	6#\210\307\310!\210\307\311!\207
02a0	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 65 71 2d 2d 77 68 65 6e 2d 65 6d 61 63 73 2d	".[function-put.seq--when-emacs-
02c0	32 35 2d 70 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 28 6c 61 6d 62 64	25-p.lisp-indent-function.(lambd
02e0	61 20 28 26 72 65 73 74 20 78 29 20 30 29 20 70 75 74 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73	a.(&rest.x).0).put.edebug-form-s
0300	70 65 63 20 74 20 72 65 71 75 69 72 65 20 63 6c 2d 67 65 6e 65 72 69 63 20 63 6c 2d 6c 69 62 5d	pec.t.require.cl-generic.cl-lib]
0320	20 34 29 0a 23 40 31 39 31 20 4c 6f 6f 70 20 6f 76 65 72 20 61 20 73 65 71 75 65 6e 63 65 2e 0a	.4).#@191.Loop.over.a.sequence..
0340	45 76 61 6c 75 61 74 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	Evaluate.BODY.with.VAR.bound.to.
0360	65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2c 20 69 6e 20 74 75 72	each.element.of.SEQUENCE,.in.tur
0380	6e 2e 0a 0a 53 69 6d 69 6c 61 72 20 74 6f 20 60 64 6f 6c 69 73 74 27 20 62 75 74 20 63 61 6e 20	n...Similar.to.`dolist'.but.can.
03a0	62 65 20 61 70 70 6c 69 65 64 20 74 6f 20 6c 69 73 74 73 2c 20 73 74 72 69 6e 67 73 2c 20 61 6e	be.applied.to.lists,.strings,.an
03c0	64 20 76 65 63 74 6f 72 73 2e 0a 0a 28 66 6e 20 28 56 41 52 20 53 45 51 55 45 4e 43 45 29 20 42	d.vectors...(fn.(VAR.SEQUENCE).B
03e0	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 6f 73 65 71 20 27 28	ODY...)..(defalias.'seq-doseq.'(
0400	6d 61 63 72 6f 20 2e 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 03 40 43 03 42 42 03 41 40	macro...#[385."\300\301.@C.BB.A@
0420	45 5c 32 30 37 22 20 5b 73 65 71 2d 64 6f 20 6c 61 6d 62 64 61 5d 20 36 20 28 23 24 20 2e 20 38	E\207".[seq-do.lambda].6.(#$...8
0440	31 30 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	10)])).(byte-code."\300\301\302\
0460	33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b	303#\210\304\301\305\306#\207".[
0480	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 65	function-put.seq-doseq.lisp-inde
04a0	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 70	nt-function.1.put.edebug-form-sp
04c0	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 6d	ec.((symbolp.form.&optional.form
04e0	29 20 62 6f 64 79 29 5d 20 34 29 0a 23 40 32 38 37 20 42 75 69 6c 64 20 61 20 60 70 63 61 73 65	).body)].4).#@287.Build.a.`pcase
0500	27 20 70 61 74 74 65 72 6e 20 74 68 61 74 20 6d 61 74 63 68 65 73 20 65 6c 65 6d 65 6e 74 73 20	'.pattern.that.matches.elements.
0520	6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 0a 54 68 65 20 60 70 63 61 73 65 27 20 70 61 74 74 65 72	of.SEQUENCE...The.`pcase'.patter
0540	6e 20 77 69 6c 6c 20 6d 61 74 63 68 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 50 41 54	n.will.match.each.element.of.PAT
0560	54 45 52 4e 53 20 61 67 61 69 6e 73 74 20 74 68 65 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20	TERNS.against.the.corresponding.
0580	65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 0a 45 78 74 72 61 20 65 6c 65 6d	element.of.SEQUENCE...Extra.elem
05a0	65 6e 74 73 20 6f 66 20 74 68 65 20 73 65 71 75 65 6e 63 65 20 61 72 65 20 69 67 6e 6f 72 65 64	ents.of.the.sequence.are.ignored
05c0	20 69 66 20 66 65 77 65 72 20 50 41 54 54 45 52 4e 53 20 61 72 65 0a 67 69 76 65 6e 2c 20 61 6e	.if.fewer.PATTERNS.are.given,.an
05e0	64 20 74 68 65 20 6d 61 74 63 68 20 64 6f 65 73 20 6e 6f 74 20 66 61 69 6c 2e 0a 0a 28 66 6e 20	d.the.match.does.not.fail...(fn.
0600	26 72 65 73 74 20 50 41 54 54 45 52 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d	&rest.PATTERNS)..(defalias.'seq-
0620	2d 70 63 61 73 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 65 72 20 23 5b 31 32 38 20 22 5c 33 30 30	-pcase-macroexpander.#[128."\300
0640	5c 33 30 31 5c 33 30 32 03 21 42 42 5c 32 30 37 22 20 5b 61 6e 64 20 28 70 72 65 64 20 73 65 71	\301\302.!BB\207".[and.(pred.seq
0660	70 29 20 73 65 71 2d 2d 6d 61 6b 65 2d 70 63 61 73 65 2d 62 69 6e 64 69 6e 67 73 5d 20 35 20 28	p).seq--make-pcase-bindings].5.(
0680	23 24 20 2e 20 31 32 36 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	#$...1266)]).(byte-code."\300\30
06a0	31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 34 5c 33 30 35 5c 33 30 31 23 5c	1\302\303#\210\300\304\305\301#\
06c0	32 30 37 22 20 5b 70 75 74 20 73 65 71 2d 2d 70 63 61 73 65 2d 6d 61 63 72 6f 65 78 70 61 6e 64	207".[put.seq--pcase-macroexpand
06e0	65 72 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 6e 69 6c 20 73 65 71 20 70 63 61 73	er.edebug-form-spec.nil.seq.pcas
0700	65 2d 6d 61 63 72 6f 65 78 70 61 6e 64 65 72 5d 20 34 29 0a 23 40 32 31 35 20 42 69 6e 64 20 74	e-macroexpander].4).#@215.Bind.t
0720	68 65 20 76 61 72 69 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	he.variables.in.ARGS.to.the.elem
0740	65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 2c 20 74 68 65 6e 20 65 76 61 6c 75 61 74 65 20	ents.of.SEQUENCE,.then.evaluate.
0760	42 4f 44 59 2e 0a 0a 41 52 47 53 20 63 61 6e 20 61 6c 73 6f 20 69 6e 63 6c 75 64 65 20 74 68 65	BODY...ARGS.can.also.include.the
0780	20 60 26 72 65 73 74 27 20 6d 61 72 6b 65 72 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 76 61	.`&rest'.marker.followed.by.a.va
07a0	72 69 61 62 6c 65 0a 6e 61 6d 65 20 74 6f 20 62 65 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 72	riable.name.to.be.bound.to.the.r
07c0	65 73 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 41 52 47 53 20 53 45 51 55 45	est.of.SEQUENCE...(fn.ARGS.SEQUE
07e0	4e 43 45 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d	NCE.&rest.BODY)..(defalias.'seq-
0800	6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 36 34 32 20 22 5c 33 30 30 5c 33 30 31 04 21 03	let.'(macro...#[642."\300\301.!.
0820	44 43 02 42 42 5c 32 30 37 22 20 5b 70 63 61 73 65 2d 6c 65 74 20 73 65 71 2d 2d 6d 61 6b 65 2d	DC.BB\207".[pcase-let.seq--make-
0840	70 63 61 73 65 2d 70 61 74 74 65 72 6e 73 5d 20 36 20 28 23 24 20 2e 20 31 38 31 38 29 5d 29 29	pcase-patterns].6.(#$...1818)]))
0860	0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32	.(byte-code."\300\301\302\303#\2
0880	31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 37 5c 33 31 30 5c	10\304\301\305\306#\210\307\310\
08a0	33 31 31 5c 33 31 30 5c 33 31 32 5c 33 31 33 23 5c 33 31 34 23 5c 32 31 30 5c 33 31 35 5c 33 31	311\310\312\313#\314#\210\315\31
08c0	30 5c 33 31 33 5c 33 31 32 5c 33 31 33 5c 33 31 36 25 5c 32 31 30 5c 33 31 35 5c 33 31 37 5c 33	0\313\312\313\316%\210\315\317\3
08e0	31 33 5c 33 32 30 5c 33 31 33 5c 33 32 31 25 5c 32 31 30 5c 33 31 35 5c 33 31 37 5c 33 31 33 5c	13\320\313\321%\210\315\317\313\
0900	33 32 32 5c 33 31 33 5c 33 32 33 25 5c 32 31 30 5c 33 30 37 5c 33 32 34 5c 33 31 31 5c 33 32 34	322\313\323%\210\307\324\311\324
0920	5c 33 32 35 5c 33 31 33 23 5c 33 32 36 23 5c 32 31 30 5c 33 31 35 5c 33 32 34 5c 33 31 33 5c 33	\325\313#\326#\210\315\324\313\3
0940	32 35 5c 33 31 33 5c 33 32 37 25 5c 32 31 30 5c 33 30 37 5c 33 33 30 5c 33 31 31 5c 33 33 30 5c	25\313\327%\210\307\330\311\330\
0960	33 33 31 5c 33 31 33 23 5c 33 33 32 23 5c 32 31 30 5c 33 31 35 5c 33 33 30 5c 33 31 33 5c 33 33	331\313#\332#\210\315\330\313\33
0980	31 5c 33 31 33 5c 33 33 33 25 5c 32 31 30 5c 33 30 37 5c 33 33 34 5c 33 33 30 5c 22 5c 32 31 30	1\313\333%\210\307\334\330\"\210
09a0	5c 33 30 37 5c 33 33 35 5c 33 31 31 5c 33 33 35 5c 33 33 36 5c 33 31 33 23 5c 33 33 37 23 5c 32	\307\335\311\335\336\313#\337#\2
09c0	31 30 5c 33 31 35 5c 33 33 35 5c 33 31 33 5c 33 33 36 5c 33 31 33 5c 33 34 30 25 5c 32 31 30 5c	10\315\335\313\336\313\340%\210\
09e0	33 30 37 5c 33 34 31 5c 33 31 31 5c 33 34 31 5c 33 34 32 5c 33 31 33 23 5c 33 34 33 23 5c 32 31	307\341\311\341\342\313#\343#\21
0a00	30 5c 33 31 35 5c 33 34 31 5c 33 31 33 5c 33 34 32 5c 33 31 33 5c 33 34 34 25 5c 32 31 30 5c 33	0\315\341\313\342\313\344%\210\3
0a20	30 37 5c 33 34 35 5c 33 31 31 5c 33 34 35 5c 33 34 36 5c 33 31 33 23 5c 33 34 37 23 5c 32 31 30	07\345\311\345\346\313#\347#\210
0a40	5c 33 31 35 5c 33 34 35 5c 33 31 33 5c 33 34 36 5c 33 31 33 5c 33 35 30 25 5c 32 31 30 5c 33 30	\315\345\313\346\313\350%\210\30
0a60	37 5c 33 35 31 5c 33 31 31 5c 33 35 31 5c 33 35 32 5c 33 31 33 23 5c 33 35 33 23 5c 32 31 30 5c	7\351\311\351\352\313#\353#\210\
0a80	33 31 35 5c 33 35 31 5c 33 31 33 5c 33 35 32 5c 33 31 33 5c 33 35 34 25 5c 32 30 37 22 20 5b 66	315\351\313\352\313\354%\207".[f
0aa0	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 69 6e 64 65 6e 74 2d	unction-put.seq-let.lisp-indent-
0ac0	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 6d 2d 73 70 65 63 20	function.2.put.edebug-form-spec.
0ae0	28 73 65 78 70 20 66 6f 72 6d 20 62 6f 64 79 29 20 64 65 66 61 6c 69 61 73 20 73 65 71 2d 65 6c	(sexp.form.body).defalias.seq-el
0b00	74 20 63 6c 2d 67 65 6e 65 72 69 63 2d 64 65 66 69 6e 65 20 28 73 65 71 75 65 6e 63 65 20 6e 29	t.cl-generic-define.(sequence.n)
0b20	20 6e 69 6c 20 22 52 65 74 75 72 6e 20 4e 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55	.nil."Return.Nth.element.of.SEQU
0b40	45 4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e 29 22 20 63 6c 2d 67 65 6e	ENCE.\n\n(fn.SEQUENCE.N)".cl-gen
0b60	65 72 69 63 2d 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 20 23 5b 35 31 34 20 22 01 01 5c 32 33 34	eric-define-method.#[514."..\234
0b80	5c 32 30 37 22 20 23 31 3d 5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20	\207".#1=[].4."\n\n(fn.SEQUENCE.
0ba0	4e 29 22 5d 20 5c 28 73 65 74 66 5c 20 73 65 71 2d 65 6c 74 5c 29 20 28 73 74 6f 72 65 20 28 73	N)"].\(setf\.seq-elt\).(store.(s
0bc0	65 71 75 65 6e 63 65 20 61 72 72 61 79 29 20 6e 29 20 23 5b 37 37 31 20 22 01 01 04 49 5c 32 30	equence.array).n).#[771."...I\20
0be0	37 22 20 23 31 23 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 53 54 4f 52 45 20 53 45 51 55 45 4e 43 45	7".#1#.6."\n\n(fn.STORE.SEQUENCE
0c00	20 4e 29 22 5d 20 28 73 74 6f 72 65 20 28 73 65 71 75 65 6e 63 65 20 63 6f 6e 73 29 20 6e 29 20	.N)"].(store.(sequence.cons).n).
0c20	23 5b 37 37 31 20 22 5c 32 31 31 02 5c 32 33 33 03 5c 32 34 30 5c 32 30 37 22 20 23 31 23 20 35	#[771."\211.\233.\240\207".#1#.5
0c40	20 22 5c 6e 5c 6e 28 66 6e 20 53 54 4f 52 45 20 53 45 51 55 45 4e 43 45 20 4e 29 22 5d 20 73 65	."\n\n(fn.STORE.SEQUENCE.N)"].se
0c60	71 2d 6c 65 6e 67 74 68 20 28 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 74 68 65 20	q-length.(sequence)."Return.the.
0c80	6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 5c	number.of.elements.of.SEQUENCE.\
0ca0	6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 32 35 37 20 22 5c 32 31 31 47 5c 32	n\n(fn.SEQUENCE)".#[257."\211G\2
0cc0	30 37 22 20 23 31 23 20 32 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73	07".#1#.2."\n\n(fn.SEQUENCE)"].s
0ce0	65 71 2d 64 6f 20 23 27 73 65 71 75 65 6e 63 65 20 22 41 70 70 6c 79 20 46 55 4e 43 54 49 4f 4e	eq-do.#'sequence."Apply.FUNCTION
0d00	20 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 2c 20 70 72	.to.each.element.of.SEQUENCE,.pr
0d20	65 73 75 6d 61 62 6c 79 20 66 6f 72 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 5c 6e 52 65 74 75	esumably.for.side.effects.\nRetu
0d40	72 6e 20 53 45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51	rn.SEQUENCE.\n\n(fn.FUNCTION.SEQ
0d60	55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 37 22 20 5b 6d 61	UENCE)".#[514."\300..\"\207".[ma
0d80	70 63 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45	pc].5."\n\n(fn.FUNCTION.SEQUENCE
0da0	29 22 5d 20 73 65 71 2d 65 61 63 68 20 73 65 71 70 20 28 73 65 71 75 65 6e 63 65 29 20 22 52 65	)"].seq-each.seqp.(sequence)."Re
0dc0	74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 45 51 55 45 4e 43 45 20 69 73 20 61 20 73 65	turn.non-nil.if.SEQUENCE.is.a.se
0de0	71 75 65 6e 63 65 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 5c 6e 5c 6e 28 66 6e 20 53 45	quence,.nil.otherwise.\n\n(fn.SE
0e00	51 55 45 4e 43 45 29 22 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 73 65 71	QUENCE)".#[257."\300.!\207".[seq
0e20	75 65 6e 63 65 70 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73	uencep].3."\n\n(fn.SEQUENCE)"].s
0e40	65 71 2d 63 6f 70 79 20 28 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 61 20 73 68 61	eq-copy.(sequence)."Return.a.sha
0e60	6c 6c 6f 77 20 63 6f 70 79 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20 53 45	llow.copy.of.SEQUENCE.\n\n(fn.SE
0e80	51 55 45 4e 43 45 29 22 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 63 6f 70	QUENCE)".#[257."\300.!\207".[cop
0ea0	79 2d 73 65 71 75 65 6e 63 65 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29	y-sequence].3."\n\n(fn.SEQUENCE)
0ec0	22 5d 20 73 65 71 2d 73 75 62 73 65 71 20 28 73 65 71 75 65 6e 63 65 20 73 74 61 72 74 20 26 6f	"].seq-subseq.(sequence.start.&o
0ee0	70 74 69 6f 6e 61 6c 20 65 6e 64 29 20 22 52 65 74 75 72 6e 20 74 68 65 20 73 65 71 75 65 6e 63	ptional.end)."Return.the.sequenc
0f00	65 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 66 72 6f 6d 20 53	e.of.elements.of.SEQUENCE.from.S
0f20	54 41 52 54 20 74 6f 20 45 4e 44 2e 5c 6e 45 4e 44 20 69 73 20 65 78 63 6c 75 73 69 76 65 2e 5c	TART.to.END.\nEND.is.exclusive.\
0f40	6e 5c 6e 49 66 20 45 4e 44 20 69 73 20 6f 6d 69 74 74 65 64 2c 20 69 74 20 64 65 66 61 75 6c 74	n\nIf.END.is.omitted,.it.default
0f60	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 71 75 65 6e 63 65 2e	s.to.the.length.of.the.sequence.
0f80	20 20 49 66 5c 6e 53 54 41 52 54 20 6f 72 20 45 4e 44 20 69 73 20 6e 65 67 61 74 69 76 65 2c 20	..If\nSTART.or.END.is.negative,.
0fa0	69 74 20 63 6f 75 6e 74 73 20 66 72 6f 6d 20 74 68 65 20 65 6e 64 2e 20 20 53 69 67 6e 61 6c 20	it.counts.from.the.end...Signal.
0fc0	61 6e 5c 6e 65 72 72 6f 72 20 69 66 20 53 54 41 52 54 20 6f 72 20 45 4e 44 20 61 72 65 20 6f 75	an\nerror.if.START.or.END.are.ou
0fe0	74 73 69 64 65 20 6f 66 20 74 68 65 20 73 65 71 75 65 6e 63 65 20 28 69 2e 65 20 74 6f 6f 20 6c	tside.of.the.sequence.(i.e.too.l
1000	61 72 67 65 5c 6e 69 66 20 70 6f 73 69 74 69 76 65 20 6f 72 20 74 6f 6f 20 73 6d 61 6c 6c 20 69	arge\nif.positive.or.too.small.i
1020	66 20 6e 65 67 61 74 69 76 65 29 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20 53 54 41	f.negative).\n\n(fn.SEQUENCE.STA
1040	52 54 20 26 6f 70 74 69 6f 6e 61 6c 20 45 4e 44 29 22 20 23 5b 37 37 30 20 22 5c 33 30 30 03 03	RT.&optional.END)".#[770."\300..
1060	03 23 5c 32 30 37 22 20 5b 63 6c 2d 73 75 62 73 65 71 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 53	.#\207".[cl-subseq].7."\n\n(fn.S
1080	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 22 5d 20 73	EQUENCE.START.&optional.END)"].s
10a0	65 71 2d 6d 61 70 20 23 27 73 65 71 75 65 6e 63 65 20 22 52 65 74 75 72 6e 20 74 68 65 20 72 65	eq-map.#'sequence."Return.the.re
10c0	73 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	sult.of.applying.FUNCTION.to.eac
10e0	68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20 46 55	h.element.of.SEQUENCE.\n\n(fn.FU
1100	4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c 33 30 30 43 5c 33	NCTION.SEQUENCE)".#[514."\300C\3
1120	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 33 30 37	01\302\303\304\305\306....\"\307
1140	5c 22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 33 37 5c 32	\"\310\311%.\"\210\211\242\237\2
1160	30 37 22 20 5b 6e 69 6c 20 73 65 71 2d 64 6f 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32	07".[nil.seq-do.make-byte-code.2
1180	35 37 20 22 5c 33 30 31 5c 33 30 30 02 21 5c 33 30 31 5c 32 34 32 42 5c 32 34 30 5c 32 30 37 22	57."\301\300.!\301\242B\240\207"
11a0	20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 23 31 23 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 45	.vconcat.vector.#1#.4."\n\n(fn.E
11c0	4c 54 29 22 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45	LT)"].11."\n\n(fn.FUNCTION.SEQUE
11e0	4e 43 45 29 22 5d 5d 20 36 29 0a 23 40 32 30 35 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75	NCE)"]].6).#@205.Return.the.resu
1200	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 20	lt.of.applying.FUNCTION.to.each.
1220	65 6c 65 6d 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	element.of.SEQUENCE..Unlike.`seq
1240	2d 6d 61 70 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	-map',.FUNCTION.takes.two.argume
1260	6e 74 73 3a 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	nts:.the.element.of.the.sequence
1280	2c 20 61 6e 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	,.and.its.index.within.the.seque
12a0	6e 63 65 2e 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	nce...(fn.FUNCTION.SEQUENCE)..(d
12c0	65 66 61 6c 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	efalias.'seq-map-indexed.#[514."
12e0	5c 33 30 30 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	\300C\301\302\303\304\305\306...
1300	07 5c 22 5c 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	.\"\307\"\310\311%.\"\207".[0.se
1320	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 5c 33 30 30 01 5c	q-map.make-byte-code.257."\300.\
1340	33 30 31 5c 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	301\242\"\301\211\242T\240\210\2
1360	30 37 22 20 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	07".vconcat.vector.[].4."\n\n(fn
1380	20 45 4c 54 29 22 5d 20 31 31 20 28 23 24 20 2e 20 34 35 39 33 29 5d 29 0a 28 62 79 74 65 2d 63	.ELT)"].11.(#$...4593)]).(byte-c
13a0	6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 32 5c 33 30 34 25 5c 32	ode."\300\301\302\303\302\304%\2
13c0	31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 30 36 5c 33 31 30 5c 33 30 32 23 5c 33 31 31 23	10\305\306\307\306\310\302#\311#
13e0	5c 32 31 30 5c 33 30 30 5c 33 30 36 5c 33 30 32 5c 33 31 30 5c 33 30 32 5c 33 31 32 25 5c 32 31	\210\300\306\302\310\302\312%\21
1400	30 5c 33 30 35 5c 33 31 33 5c 33 30 37 5c 33 31 33 5c 33 31 34 5c 33 30 32 23 5c 33 31 35 23 5c	0\305\313\307\313\314\302#\315#\
1420	32 31 30 5c 33 30 30 5c 33 31 33 5c 33 30 32 5c 33 31 34 5c 33 30 32 5c 33 31 36 25 5c 32 31 30	210\300\313\302\314\302\316%\210
1440	5c 33 30 35 5c 33 31 37 5c 33 30 37 5c 33 31 37 5c 33 32 30 5c 33 30 32 23 5c 33 32 31 23 5c 32	\305\317\307\317\320\302#\321#\2
1460	31 30 5c 33 30 30 5c 33 31 37 5c 33 30 32 5c 33 32 30 5c 33 30 32 5c 33 32 32 25 5c 32 31 30 5c	10\300\317\302\320\302\322%\210\
1480	33 30 35 5c 33 32 33 5c 33 30 37 5c 33 32 33 5c 33 32 34 5c 33 30 32 23 5c 33 32 35 23 5c 32 31	305\323\307\323\324\302#\325#\21
14a0	30 5c 33 30 30 5c 33 32 33 5c 33 30 32 5c 33 32 34 5c 33 30 32 5c 33 32 36 25 5c 32 31 30 5c 33	0\300\323\302\324\302\326%\210\3
14c0	30 35 5c 33 32 37 5c 33 30 37 5c 33 32 37 5c 33 33 30 5c 33 30 32 23 5c 33 33 31 23 5c 32 31 30	05\327\307\327\330\302#\331#\210
14e0	5c 33 30 30 5c 33 32 37 5c 33 30 32 5c 33 33 30 5c 33 30 32 5c 33 33 32 25 5c 32 31 30 5c 33 30	\300\327\302\330\302\332%\210\30
1500	35 5c 33 33 33 5c 33 30 37 5c 33 33 33 5c 33 33 34 5c 33 30 32 23 5c 33 33 35 23 5c 32 31 30 5c	5\333\307\333\334\302#\335#\210\
1520	33 30 30 5c 33 33 33 5c 33 30 32 5c 33 33 34 5c 33 30 32 5c 33 33 36 25 5c 32 31 30 5c 33 30 35	300\333\302\334\302\336%\210\305
1540	5c 33 33 37 5c 33 30 37 5c 33 33 37 5c 33 34 30 5c 33 30 32 23 5c 33 34 31 23 5c 32 31 30 5c 33	\337\307\337\340\302#\341#\210\3
1560	30 30 5c 33 33 37 5c 33 30 32 5c 33 34 30 5c 33 30 32 5c 33 34 32 25 5c 32 30 37 22 20 5b 63 6c	00\337\302\340\302\342%\207".[cl
1580	2d 67 65 6e 65 72 69 63 2d 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 20 73 65 71 2d 6d 61 70 20 6e	-generic-define-method.seq-map.n
15a0	69 6c 20 23 27 28 73 65 71 75 65 6e 63 65 20 73 65 71 75 65 6e 63 65 29 20 23 5b 35 31 34 20 22	il.#'(sequence.sequence).#[514."
15c0	5c 33 30 30 02 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 5d 20 35 20 22 5c 6e 5c 6e 28 66	\300..\"\207".[mapcar].5."\n\n(f
15e0	6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 64 65 66 61 6c 69 61 73 20	n.FUNCTION.SEQUENCE)"].defalias.
1600	73 65 71 2d 6d 61 70 6e 20 63 6c 2d 67 65 6e 65 72 69 63 2d 64 65 66 69 6e 65 20 28 66 75 6e 63	seq-mapn.cl-generic-define.(func
1620	74 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 26 72 65 73 74 20 73 65 71 75 65 6e 63 65 73 29 20 22	tion.sequence.&rest.sequences)."
1640	4c 69 6b 65 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	Like.`seq-map'.but.FUNCTION.is.m
1660	61 70 70 65 64 20 6f 76 65 72 20 61 6c 6c 20 53 45 51 55 45 4e 43 45 53 2e 5c 6e 54 68 65 20 61	apped.over.all.SEQUENCES.\nThe.a
1680	72 69 74 79 20 6f 66 20 46 55 4e 43 54 49 4f 4e 20 6d 75 73 74 20 6d 61 74 63 68 20 74 68 65 20	rity.of.FUNCTION.must.match.the.
16a0	6e 75 6d 62 65 72 20 6f 66 20 53 45 51 55 45 4e 43 45 53 2c 20 61 6e 64 20 74 68 65 5c 6e 6d 61	number.of.SEQUENCES,.and.the\nma
16c0	70 70 69 6e 67 20 73 74 6f 70 73 20 6f 6e 20 74 68 65 20 73 68 6f 72 74 65 73 74 20 73 65 71 75	pping.stops.on.the.shortest.sequ
16e0	65 6e 63 65 2e 5c 6e 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75	ence.\nReturn.a.list.of.the.resu
1700	6c 74 73 2e 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 53 2e 2e	lts.\n\n(fn.FUNCTION.SEQUENCES..
1720	2e 29 22 20 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	.)".#[642."\300\301\302..B\"\300
1740	01 3e 5c 32 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	.>\204!.\303.\301\304.\"\".B\262
1760	02 5c 33 30 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	.\301\305.\"\262.\202...\237\207
1780	22 20 5b 6e 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	".[nil.seq-map.#[257."\300.\301\
17a0	22 5c 32 30 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	"\207".[seq-into.list].4."\n\n(f
17c0	6e 20 53 29 22 5d 20 61 70 70 6c 79 20 63 61 72 20 63 64 72 5d 20 31 30 20 22 5c 6e 5c 6e 28 66	n.S)"].apply.car.cdr].10."\n\n(f
17e0	6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 20 26 72 65 73 74 20 53 45 51 55 45 4e	n.FUNCTION.SEQUENCE.&rest.SEQUEN
1800	43 45 53 29 22 5d 20 73 65 71 2d 64 72 6f 70 20 28 73 65 71 75 65 6e 63 65 20 6e 29 20 22 52 65	CES)"].seq-drop.(sequence.n)."Re
1820	6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 4e 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51	move.the.first.N.elements.of.SEQ
1840	55 45 4e 43 45 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 2e 5c 6e 54 68	UENCE.and.return.the.result.\nTh
1860	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 61	e.result.is.a.sequence.of.the.sa
1880	6d 65 20 74 79 70 65 20 61 73 20 53 45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 49 66 20 4e 20 69 73 20	me.type.as.SEQUENCE.\n\nIf.N.is.
18a0	61 20 6e 65 67 61 74 69 76 65 20 69 6e 74 65 67 65 72 20 6f 72 20 7a 65 72 6f 2c 20 53 45 51 55	a.negative.integer.or.zero,.SEQU
18c0	45 4e 43 45 20 69 73 20 72 65 74 75 72 6e 65 64 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43	ENCE.is.returned.\n\n(fn.SEQUENC
18e0	45 20 4e 29 22 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 58 5c 32 30 33 08 00 01 5c 32 30	E.N)".#[514."\211\300X\203...\20
1900	37 5c 33 30 31 02 21 5c 33 30 32 03 03 03 5e 03 23 5c 32 30 37 22 20 5b 30 20 73 65 71 2d 6c 65	7\301.!\302...^.#\207".[0.seq-le
1920	6e 67 74 68 20 73 65 71 2d 73 75 62 73 65 71 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55	ngth.seq-subseq].7."\n\n(fn.SEQU
1940	45 4e 43 45 20 4e 29 22 5d 20 73 65 71 2d 74 61 6b 65 20 28 73 65 71 75 65 6e 63 65 20 6e 29 20	ENCE.N)"].seq-take.(sequence.n).
1960	22 54 61 6b 65 20 74 68 65 20 66 69 72 73 74 20 4e 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45	"Take.the.first.N.elements.of.SE
1980	51 55 45 4e 43 45 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 2e 5c 6e 54	QUENCE.and.return.the.result.\nT
19a0	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
19c0	61 6d 65 20 74 79 70 65 20 61 73 20 53 45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 49 66 20 4e 20 69 73	ame.type.as.SEQUENCE.\n\nIf.N.is
19e0	20 61 20 6e 65 67 61 74 69 76 65 20 69 6e 74 65 67 65 72 20 6f 72 20 7a 65 72 6f 2c 20 61 6e 20	.a.negative.integer.or.zero,.an.
1a00	65 6d 70 74 79 20 73 65 71 75 65 6e 63 65 20 69 73 5c 6e 72 65 74 75 72 6e 65 64 2e 5c 6e 5c 6e	empty.sequence.is\nreturned.\n\n
1a20	28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e 29 22 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30	(fn.SEQUENCE.N)".#[514."\300.\30
1a40	31 03 5c 33 30 31 5d 5c 33 30 32 06 06 21 5e 23 5c 32 30 37 22 20 5b 73 65 71 2d 73 75 62 73 65	1.\301]\302..!^#\207".[seq-subse
1a60	71 20 30 20 73 65 71 2d 6c 65 6e 67 74 68 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45	q.0.seq-length].8."\n\n(fn.SEQUE
1a80	4e 43 45 20 4e 29 22 5d 20 73 65 71 2d 64 72 6f 70 2d 77 68 69 6c 65 20 28 70 72 65 64 20 73 65	NCE.N)"].seq-drop-while.(pred.se
1aa0	71 75 65 6e 63 65 29 20 22 52 65 6d 6f 76 65 20 74 68 65 20 73 75 63 63 65 73 73 69 76 65 20 65	quence)."Remove.the.successive.e
1ac0	6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 66 6f 72 20 77 68 69 63 68 20 50 52	lements.of.SEQUENCE.for.which.PR
1ae0	45 44 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2e 5c 6e 50 52 45 44 20 69 73 20 61 20 66	ED.returns.non-nil.\nPRED.is.a.f
1b00	75 6e 63 74 69 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 65 20 72 65	unction.of.one.argument...The.re
1b20	73 75 6c 74 20 69 73 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 5c 6e 74 68 65 20 73 61 6d 65 20	sult.is.a.sequence.of\nthe.same.
1b40	74 79 70 65 20 61 73 20 53 45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45	type.as.SEQUENCE.\n\n(fn.PRED.SE
1b60	51 55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 04 04 5c 22 5c 22 5c	QUENCE)".#[514."\300.\301..\"\"\
1b80	32 30 37 22 20 5b 73 65 71 2d 64 72 6f 70 20 73 65 71 2d 2d 63 6f 75 6e 74 2d 73 75 63 63 65 73	207".[seq-drop.seq--count-succes
1ba0	73 69 76 65 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22	sive].7."\n\n(fn.PRED.SEQUENCE)"
1bc0	5d 20 73 65 71 2d 74 61 6b 65 2d 77 68 69 6c 65 20 28 70 72 65 64 20 73 65 71 75 65 6e 63 65 29	].seq-take-while.(pred.sequence)
1be0	20 22 54 61 6b 65 20 74 68 65 20 73 75 63 63 65 73 73 69 76 65 20 65 6c 65 6d 65 6e 74 73 20 6f	."Take.the.successive.elements.o
1c00	66 20 53 45 51 55 45 4e 43 45 20 66 6f 72 20 77 68 69 63 68 20 50 52 45 44 20 72 65 74 75 72 6e	f.SEQUENCE.for.which.PRED.return
1c20	73 20 6e 6f 6e 2d 6e 69 6c 2e 5c 6e 50 52 45 44 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f	s.non-nil.\nPRED.is.a.function.o
1c40	66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61	f.one.argument...The.result.is.a
1c60	20 73 65 71 75 65 6e 63 65 20 6f 66 5c 6e 74 68 65 20 73 61 6d 65 20 74 79 70 65 20 61 73 20 53	.sequence.of\nthe.same.type.as.S
1c80	45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 20	EQUENCE.\n\n(fn.PRED.SEQUENCE)".
1ca0	23 5b 35 31 34 20 22 5c 33 30 30 01 5c 33 30 31 04 04 5c 22 5c 22 5c 32 30 37 22 20 5b 73 65 71	#[514."\300.\301..\"\"\207".[seq
1cc0	2d 74 61 6b 65 20 73 65 71 2d 2d 63 6f 75 6e 74 2d 73 75 63 63 65 73 73 69 76 65 5d 20 37 20 22	-take.seq--count-successive].7."
1ce0	5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65 71 2d 65 6d 70	\n\n(fn.PRED.SEQUENCE)"].seq-emp
1d00	74 79 2d 70 20 28 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20	ty-p.(sequence)."Return.non-nil.
1d20	69 66 20 74 68 65 20 53 45 51 55 45 4e 43 45 20 69 73 20 65 6d 70 74 79 2c 20 6e 69 6c 20 6f 74	if.the.SEQUENCE.is.empty,.nil.ot
1d40	68 65 72 77 69 73 65 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 32 35 37	herwise.\n\n(fn.SEQUENCE)".#[257
1d60	20 22 5c 33 30 30 01 21 5c 33 30 31 55 5c 32 30 37 22 20 5b 73 65 71 2d 6c 65 6e 67 74 68 20 30	."\300.!\301U\207".[seq-length.0
1d80	5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65 71 2d 73 6f 72	].3."\n\n(fn.SEQUENCE)"].seq-sor
1da0	74 20 28 70 72 65 64 20 73 65 71 75 65 6e 63 65 29 20 22 53 6f 72 74 20 53 45 51 55 45 4e 43 45	t.(pred.sequence)."Sort.SEQUENCE
1dc0	20 75 73 69 6e 67 20 50 52 45 44 20 61 73 20 63 6f 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69	.using.PRED.as.comparison.functi
1de0	6f 6e 2e 5c 6e 54 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	on.\nThe.result.is.a.sequence.of
1e00	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 5c 6e 5c 6e 28	.the.same.type.as.SEQUENCE.\n\n(
1e20	66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c	fn.PRED.SEQUENCE)".#[514."\300.\
1e40	33 30 31 03 5c 33 30 32 5c 22 5c 22 5c 33 30 33 01 5c 33 30 34 04 21 5c 22 5c 32 30 37 22 20 5b	301.\302\"\"\303.\304.!\"\207".[
1e60	73 65 71 2d 73 6f 72 74 20 61 70 70 65 6e 64 20 6e 69 6c 20 73 65 71 2d 69 6e 74 6f 20 74 79 70	seq-sort.append.nil.seq-into.typ
1e80	65 2d 6f 66 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22	e-of].7."\n\n(fn.PRED.SEQUENCE)"
1ea0	5d 5d 20 36 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 20	]].6).#@197.Sort.SEQUENCE.using.
1ec0	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 45	PRED.as.a.comparison.function..E
1ee0	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 72	lements.of.SEQUENCE.are.transfor
1f00	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 72	med.by.FUNCTION.before.being.sor
1f20	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 6f	ted...FUNCTION.must.be.a.functio
1f40	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 4e	n.of.one.argument...(fn.FUNCTION
1f60	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 2d	.PRED.SEQUENCE)..(defalias.'seq-
1f80	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 5c	sort-by.#[771."\300\301\302\303\
1fa0	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 5c	304\305....\"\306\"\307\310%.\"\
1fc0	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 31	207".[seq-sort.make-byte-code.51
1fe0	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 63	4."\301\300.!\300.!\"\207".vconc
2000	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 31	at.vector.[].6."\n\n(fn.A.B)"].1
2020	31 20 28 23 24 20 2e 20 37 38 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	1.(#$...7852)]).(byte-code."\300
2040	5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 32 5c 33 30 34 25 5c 32 31 30 5c 33 30 35 5c 33 30	\301\302\303\302\304%\210\305\30
2060	36 5c 33 30 37 5c 33 30 36 5c 33 31 30 5c 33 30 32 23 5c 33 31 31 23 5c 32 31 30 5c 33 30 30 5c	6\307\306\310\302#\311#\210\300\
2080	33 30 36 5c 33 30 32 5c 33 31 30 5c 33 30 32 5c 33 31 32 25 5c 32 31 30 5c 33 30 30 5c 33 30 36	306\302\310\302\312%\210\300\306
20a0	5c 33 30 32 5c 33 31 33 5c 33 30 32 5c 33 31 34 25 5c 32 31 30 5c 33 30 35 5c 33 31 35 5c 33 30	\302\313\302\314%\210\305\315\30
20c0	37 5c 33 31 35 5c 33 31 36 5c 33 30 32 23 5c 33 31 37 23 5c 32 31 30 5c 33 30 30 5c 33 31 35 5c	7\315\316\302#\317#\210\300\315\
20e0	33 30 32 5c 33 31 36 5c 33 30 32 5c 33 32 30 25 5c 32 31 30 5c 33 30 35 5c 33 32 31 5c 33 30 37	302\316\302\320%\210\305\321\307
2100	5c 33 32 31 5c 33 32 32 5c 33 30 32 23 5c 33 32 33 23 5c 32 31 30 5c 33 30 30 5c 33 32 31 5c 33	\321\322\302#\323#\210\300\321\3
2120	30 32 5c 33 32 32 5c 33 30 32 5c 33 32 34 25 5c 32 31 30 5c 33 30 35 5c 33 32 35 5c 33 30 37 5c	02\322\302\324%\210\305\325\307\
2140	33 32 35 5c 33 32 36 5c 33 30 32 23 5c 33 32 37 23 5c 32 31 30 5c 33 30 30 5c 33 32 35 5c 33 30	325\326\302#\327#\210\300\325\30
2160	32 5c 33 32 36 5c 33 30 32 5c 33 33 30 25 5c 32 31 30 5c 33 30 35 5c 33 33 31 5c 33 30 37 5c 33	2\326\302\330%\210\305\331\307\3
2180	33 31 5c 33 33 32 5c 33 30 32 23 5c 33 33 33 23 5c 32 31 30 5c 33 30 30 5c 33 33 31 5c 33 30 32	31\332\302#\333#\210\300\331\302
21a0	5c 33 33 32 5c 33 30 32 5c 33 33 34 25 5c 32 31 30 5c 33 30 35 5c 33 33 35 5c 33 30 37 5c 33 33	\332\302\334%\210\305\335\307\33
21c0	35 5c 33 33 36 5c 33 30 32 23 5c 33 33 37 23 5c 32 31 30 5c 33 30 30 5c 33 33 35 5c 33 30 32 5c	5\336\302#\337#\210\300\335\302\
21e0	33 33 36 5c 33 30 32 5c 33 34 30 25 5c 32 31 30 5c 33 30 35 5c 33 34 31 5c 33 30 37 5c 33 34 31	336\302\340%\210\305\341\307\341
2200	5c 33 34 32 5c 33 30 32 23 5c 33 34 33 23 5c 32 31 30 5c 33 30 30 5c 33 34 31 5c 33 30 32 5c 33	\342\302#\343#\210\300\341\302\3
2220	34 32 5c 33 30 32 5c 33 34 34 25 5c 32 31 30 5c 33 30 35 5c 33 34 35 5c 33 30 37 5c 33 34 35 5c	42\302\344%\210\305\345\307\345\
2240	33 34 36 5c 33 30 32 23 5c 33 34 37 23 5c 32 31 30 5c 33 30 30 5c 33 34 35 5c 33 30 32 5c 33 34	346\302#\347#\210\300\345\302\34
2260	36 5c 33 30 32 5c 33 35 30 25 5c 32 31 30 5c 33 30 35 5c 33 35 31 5c 33 30 37 5c 33 35 31 5c 33	6\302\350%\210\305\351\307\351\3
2280	35 32 5c 33 30 32 23 5c 33 35 33 23 5c 32 31 30 5c 33 30 30 5c 33 35 31 5c 33 30 32 5c 33 35 32	52\302#\353#\210\300\351\302\352
22a0	5c 33 30 32 5c 33 35 34 25 5c 32 31 30 5c 33 30 35 5c 33 35 35 5c 33 30 37 5c 33 35 35 5c 33 35	\302\354%\210\305\355\307\355\35
22c0	36 5c 33 30 32 23 5c 33 35 37 23 5c 32 31 30 5c 33 30 30 5c 33 35 35 5c 33 30 32 5c 33 35 36 5c	6\302#\357#\210\300\355\302\356\
22e0	33 30 32 5c 33 36 30 25 5c 32 31 30 5c 33 30 35 5c 33 36 31 5c 33 30 37 5c 33 36 31 5c 33 36 32	302\360%\210\305\361\307\361\362
2300	5c 33 30 32 23 5c 33 36 33 23 5c 32 31 30 5c 33 30 30 5c 33 36 31 5c 33 30 32 5c 33 36 32 5c 33	\302#\363#\210\300\361\302\362\3
2320	30 32 5c 33 36 34 25 5c 32 31 30 5c 33 30 35 5c 33 36 35 5c 33 30 37 5c 33 36 35 5c 33 36 36 5c	02\364%\210\305\365\307\365\366\
2340	33 30 32 23 5c 33 36 37 23 5c 32 31 30 5c 33 30 30 5c 33 36 35 5c 33 30 32 5c 33 36 36 5c 33 30	302#\367#\210\300\365\302\366\30
2360	32 5c 33 37 30 25 5c 32 31 30 5c 33 30 35 5c 33 37 31 5c 33 30 37 5c 33 37 31 5c 33 37 32 5c 33	2\370%\210\305\371\307\371\372\3
2380	30 32 23 5c 33 37 33 23 5c 32 31 30 5c 33 30 30 5c 33 37 31 5c 33 30 32 5c 33 37 32 5c 33 30 32	02#\373#\210\300\371\302\372\302
23a0	5c 33 37 34 25 5c 32 31 30 5c 33 30 35 5c 33 37 35 5c 33 30 37 5c 33 37 35 5c 33 37 36 5c 33 30	\374%\210\305\375\307\375\376\30
23c0	32 23 5c 33 37 37 23 5c 32 31 30 5c 33 30 30 5c 33 37 35 5c 33 30 32 5c 33 37 36 5c 33 30 32 5c	2#\377#\210\300\375\302\376\302\
23e0	32 30 31 40 00 25 5c 32 31 30 5c 33 30 35 5c 32 30 31 41 00 5c 33 30 37 5c 32 30 31 41 00 5c 32	201@.%\210\305\201A.\307\201A.\2
2400	30 31 42 00 5c 33 30 32 23 5c 32 30 31 43 00 23 5c 32 31 30 5c 33 30 30 5c 32 30 31 41 00 5c 33	01B.\302#\201C.#\210\300\201A.\3
2420	30 32 5c 32 30 31 42 00 5c 33 30 32 5c 32 30 31 44 00 25 5c 32 31 30 5c 33 30 35 5c 32 30 31 45	02\201B.\302\201D.%\210\305\201E
2440	00 5c 33 30 37 5c 32 30 31 45 00 5c 32 30 31 46 00 5c 33 30 32 23 5c 32 30 31 47 00 23 5c 32 31	.\307\201E.\201F.\302#\201G.#\21
2460	30 5c 33 30 30 5c 32 30 31 45 00 5c 33 30 32 5c 32 30 31 46 00 5c 33 30 32 5c 32 30 31 48 00 25	0\300\201E.\302\201F.\302\201H.%
2480	5c 32 31 30 5c 33 30 35 5c 32 30 31 49 00 5c 33 30 37 5c 32 30 31 49 00 5c 32 30 31 4a 00 5c 33	\210\305\201I.\307\201I.\201J.\3
24a0	30 32 23 5c 32 30 31 4b 00 23 5c 32 31 30 5c 33 30 30 5c 32 30 31 49 00 5c 33 30 32 5c 32 30 31	02#\201K.#\210\300\201I.\302\201
24c0	4a 00 5c 33 30 32 5c 32 30 31 4c 00 25 5c 32 31 30 5c 33 30 35 5c 32 30 31 4d 00 5c 33 30 37 5c	J.\302\201L.%\210\305\201M.\307\
24e0	32 30 31 4d 00 5c 32 30 31 4e 00 5c 33 30 32 23 5c 32 30 31 4f 00 23 5c 32 31 30 5c 33 30 30 5c	201M.\201N.\302#\201O.#\210\300\
2500	32 30 31 4d 00 5c 33 30 32 5c 32 30 31 4e 00 5c 33 30 32 5c 32 30 31 50 00 25 5c 32 31 30 5c 33	201M.\302\201N.\302\201P.%\210\3
2520	30 35 5c 32 30 31 51 00 5c 33 30 37 5c 32 30 31 51 00 5c 32 30 31 52 00 5c 33 30 32 23 5c 32 30	05\201Q.\307\201Q.\201R.\302#\20
2540	31 53 00 23 5c 32 31 30 5c 33 30 30 5c 32 30 31 51 00 5c 33 30 32 5c 32 30 31 52 00 5c 33 30 32	1S.#\210\300\201Q.\302\201R.\302
2560	5c 32 30 31 54 00 25 5c 32 31 30 5c 33 30 35 5c 32 30 31 55 00 5c 33 30 37 5c 32 30 31 55 00 5c	\201T.%\210\305\201U.\307\201U.\
2580	32 30 31 56 00 5c 33 30 32 23 5c 32 30 31 57 00 23 5c 32 31 30 5c 33 30 30 5c 32 30 31 55 00 5c	201V.\302#\201W.#\210\300\201U.\
25a0	33 30 32 5c 32 30 31 56 00 5c 33 30 32 5c 32 30 31 58 00 25 5c 32 31 30 5c 33 30 35 5c 32 30 31	302\201V.\302\201X.%\210\305\201
25c0	59 00 5c 33 30 37 5c 32 30 31 59 00 5c 32 30 31 5a 00 5c 33 30 32 23 5c 32 30 31 5b 00 23 5c 32	Y.\307\201Y.\201Z.\302#\201[.#\2
25e0	31 30 5c 33 30 30 5c 32 30 31 59 00 5c 33 30 32 5c 32 30 31 5a 00 5c 33 30 32 5c 32 30 31 5c 5c	10\300\201Y.\302\201Z.\302\201\\
2600	00 25 5c 32 31 30 5c 33 30 35 5c 32 30 31 5d 00 5c 33 30 37 5c 32 30 31 5d 00 5c 32 30 31 5e 00	.%\210\305\201].\307\201].\201^.
2620	5c 33 30 32 23 5c 32 30 31 5f 00 23 5c 32 31 30 5c 33 30 30 5c 32 30 31 5d 00 5c 33 30 32 5c 32	\302#\201_.#\210\300\201].\302\2
2640	30 31 5e 00 5c 33 30 32 5c 32 30 31 60 00 25 5c 32 30 37 22 20 5b 63 6c 2d 67 65 6e 65 72 69 63	01^.\302\201`.%\207".[cl-generic
2660	2d 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 20 73 65 71 2d 73 6f 72 74 20 6e 69 6c 20 28 70 72 65	-define-method.seq-sort.nil.(pre
2680	64 20 28 6c 69 73 74 20 6c 69 73 74 29 29 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 02 21	d.(list.list)).#[514."\300\301.!
26a0	03 5c 22 5c 32 30 37 22 20 5b 73 6f 72 74 20 73 65 71 2d 63 6f 70 79 5d 20 35 20 22 5c 6e 5c 6e	.\"\207".[sort.seq-copy].5."\n\n
26c0	28 66 6e 20 50 52 45 44 20 4c 49 53 54 29 22 5d 20 64 65 66 61 6c 69 61 73 20 73 65 71 2d 72 65	(fn.PRED.LIST)"].defalias.seq-re
26e0	76 65 72 73 65 20 63 6c 2d 67 65 6e 65 72 69 63 2d 64 65 66 69 6e 65 20 28 73 65 71 75 65 6e 63	verse.cl-generic-define.(sequenc
2700	65 29 20 22 52 65 74 75 72 6e 20 61 20 73 65 71 75 65 6e 63 65 20 77 69 74 68 20 65 6c 65 6d 65	e)."Return.a.sequence.with.eleme
2720	6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 69 6e 20 72 65 76 65 72 73 65 20 6f 72 64 65 72	nts.of.SEQUENCE.in.reverse.order
2740	2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 32 35 37 20 22 5c 33 30 30 43	.\n\n(fn.SEQUENCE)".#[257."\300C
2760	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 5c	\301\302\303\304\305\306..!\307\
2780	22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 31 30 5c 33 31 32 01 5c 32 34 32 5c 33 31 33 04 21	"\310\311%.\"\210\312.\242\313.!
27a0	5c 22 5c 32 30 37 22 20 5b 6e 69 6c 20 73 65 71 2d 6d 61 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63	\"\207".[nil.seq-map.make-byte-c
27c0	6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 30 37 22	ode.257."\300.\300\242B\240\207"
27e0	20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 23 31 3d 5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e	.vconcat.vector.#1=[].4."\n\n(fn
2800	20 45 4c 54 29 22 20 73 65 71 2d 69 6e 74 6f 20 74 79 70 65 2d 6f 66 5d 20 39 20 22 5c 6e 5c 6e	.ELT)".seq-into.type-of].9."\n\n
2820	28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 28 28 73 65 71 75 65 6e 63 65 20 73 65 71 75 65	(fn.SEQUENCE)"].((sequence.seque
2840	6e 63 65 29 29 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 72 65 76 65 72 73	nce)).#[257."\300.!\207".[revers
2860	65 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65 71 2d 63 6f	e].3."\n\n(fn.SEQUENCE)"].seq-co
2880	6e 63 61 74 65 6e 61 74 65 20 28 74 79 70 65 20 26 72 65 73 74 20 73 65 71 75 65 6e 63 65 73 29	ncatenate.(type.&rest.sequences)
28a0	20 22 43 6f 6e 63 61 74 65 6e 61 74 65 20 53 45 51 55 45 4e 43 45 53 20 69 6e 74 6f 20 61 20 73	."Concatenate.SEQUENCES.into.a.s
28c0	69 6e 67 6c 65 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2e 5c 6e 54 59	ingle.sequence.of.type.TYPE.\nTY
28e0	50 45 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 66 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 79 6d 62	PE.must.be.one.of.following.symb
2900	6f 6c 73 3a 20 76 65 63 74 6f 72 2c 20 73 74 72 69 6e 67 20 6f 72 20 6c 69 73 74 2e 5c 6e 5c 6e	ols:.vector,.string.or.list.\n\n
2920	5c 6e 28 66 6e 20 54 59 50 45 20 53 45 51 55 45 4e 43 45 2e 2e 2e 29 22 20 23 5b 33 38 35 20 22	\n(fn.TYPE.SEQUENCE...)".#[385."
2940	5c 33 30 30 5c 33 30 31 03 5c 33 30 32 5c 33 30 33 05 5c 22 23 5c 32 30 37 22 20 5b 61 70 70 6c	\300\301.\302\303.\"#\207".[appl
2960	79 20 63 6c 2d 63 6f 6e 63 61 74 65 6e 61 74 65 20 73 65 71 2d 6d 61 70 20 73 65 71 2d 69 6e 74	y.cl-concatenate.seq-map.seq-int
2980	6f 2d 73 65 71 75 65 6e 63 65 5d 20 38 20 22 5c 6e 5c 6e 28 66 6e 20 54 59 50 45 20 26 72 65 73	o-sequence].8."\n\n(fn.TYPE.&res
29a0	74 20 53 45 51 55 45 4e 43 45 53 29 22 5d 20 73 65 71 2d 69 6e 74 6f 2d 73 65 71 75 65 6e 63 65	t.SEQUENCES)"].seq-into-sequence
29c0	20 28 73 65 71 75 65 6e 63 65 29 20 22 43 6f 6e 76 65 72 74 20 53 45 51 55 45 4e 43 45 20 69 6e	.(sequence)."Convert.SEQUENCE.in
29e0	74 6f 20 61 20 73 65 71 75 65 6e 63 65 2e 5c 6e 5c 6e 54 68 65 20 64 65 66 61 75 6c 74 20 69 6d	to.a.sequence.\n\nThe.default.im
2a00	70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 73 20 74 6f 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 72	plementation.is.to.signal.an.err
2a20	6f 72 20 69 66 20 53 45 51 55 45 4e 43 45 20 69 73 20 6e 6f 74 20 61 5c 6e 73 65 71 75 65 6e 63	or.if.SEQUENCE.is.not.a\nsequenc
2a40	65 2c 20 73 70 65 63 69 66 69 63 20 66 75 6e 63 74 69 6f 6e 73 20 73 68 6f 75 6c 64 20 62 65 20	e,.specific.functions.should.be.
2a60	69 6d 70 6c 65 6d 65 6e 74 65 64 20 66 6f 72 20 6e 65 77 20 74 79 70 65 73 5c 6e 6f 66 20 73 65	implemented.for.new.types\nof.se
2a80	71 75 65 6e 63 65 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 32 35 37 20	quence.\n\n(fn.SEQUENCE)".#[257.
2aa0	22 5c 33 30 30 01 21 5c 32 30 34 0b 00 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 31 30 5c 32 30 37	"\300.!\204..\301\302.\"\210\207
2ac0	22 20 5b 73 65 71 75 65 6e 63 65 70 20 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 63 6f 6e 76 65	".[sequencep.error."Cannot.conve
2ae0	72 74 20 25 53 20 69 6e 74 6f 20 61 20 73 65 71 75 65 6e 63 65 22 5d 20 34 20 22 5c 6e 5c 6e 28	rt.%S.into.a.sequence"].4."\n\n(
2b00	66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65 71 2d 69 6e 74 6f 20 28 73 65 71 75 65 6e 63	fn.SEQUENCE)"].seq-into.(sequenc
2b20	65 20 74 79 70 65 29 20 22 43 6f 6e 63 61 74 65 6e 61 74 65 20 74 68 65 20 65 6c 65 6d 65 6e 74	e.type)."Concatenate.the.element
2b40	73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 69 6e 74 6f 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66	s.of.SEQUENCE.into.a.sequence.of
2b60	20 74 79 70 65 20 54 59 50 45 2e 5c 6e 54 59 50 45 20 63 61 6e 20 62 65 20 6f 6e 65 20 6f 66 20	.type.TYPE.\nTYPE.can.be.one.of.
2b80	74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 79 6d 62 6f 6c 73 3a 20 76 65 63 74 6f 72 2c 20 73	the.following.symbols:.vector,.s
2ba0	74 72 69 6e 67 20 6f 72 5c 6e 6c 69 73 74 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20	tring.or\nlist.\n\n(fn.SEQUENCE.
2bc0	54 59 50 45 29 22 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 3d 5c 32 30 33 5c 6e 00 5c 33	TYPE)".#[514."\211\300=\203\n.\3
2be0	30 31 02 21 5c 32 30 37 5c 32 31 31 5c 33 30 32 3d 5c 32 30 33 14 00 5c 33 30 33 02 21 5c 32 30	01.!\207\211\302=\203..\303.!\20
2c00	37 5c 32 31 31 5c 33 30 34 3d 5c 32 30 33 1e 00 5c 33 30 35 02 21 5c 32 30 37 5c 33 30 36 5c 33	7\211\304=\203..\305.!\207\306\3
2c20	30 37 02 5c 22 5c 32 30 37 22 20 5b 76 65 63 74 6f 72 20 73 65 71 2d 2d 69 6e 74 6f 2d 76 65 63	07.\"\207".[vector.seq--into-vec
2c40	74 6f 72 20 73 74 72 69 6e 67 20 73 65 71 2d 2d 69 6e 74 6f 2d 73 74 72 69 6e 67 20 6c 69 73 74	tor.string.seq--into-string.list
2c60	20 73 65 71 2d 2d 69 6e 74 6f 2d 6c 69 73 74 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 20 73 65 71	.seq--into-list.error."Not.a.seq
2c80	75 65 6e 63 65 20 74 79 70 65 20 6e 61 6d 65 3a 20 25 53 22 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e	uence.type.name:.%S"].5."\n\n(fn
2ca0	20 53 45 51 55 45 4e 43 45 20 54 59 50 45 29 22 5d 20 73 65 71 2d 66 69 6c 74 65 72 20 28 70 72	.SEQUENCE.TYPE)"].seq-filter.(pr
2cc0	65 64 20 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61	ed.sequence)."Return.a.list.of.a
2ce0	6c 6c 20 74 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 20	ll.the.elements.for.which.(PRED.
2d00	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 2e	element).is.non-nil.in.SEQUENCE.
2d20	5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c	\n\n(fn.PRED.SEQUENCE)".#[514."\
2d40	33 30 30 5c 33 30 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	300\301!\302.\303\304\305\306\30
2d60	37 5c 33 31 30 06 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	7\310.\n..\"\311\"\312\313%.\"\"
2d80	5c 32 30 37 22 20 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	\207".[make-symbol."exclude".del
2da0	71 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 5c 33	q.seq-map.make-byte-code.257."\3
2dc0	30 30 01 21 5c 32 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	00.!\203..\207\301\207".vconcat.
2de0	76 65 63 74 6f 72 20 23 31 23 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29 22 5d 20 31 33 20	vector.#1#.3."\n\n(fn.ELT)"].13.
2e00	22 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65 71 2d 72 65	"\n\n(fn.PRED.SEQUENCE)"].seq-re
2e20	6d 6f 76 65 20 28 70 72 65 64 20 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 61 20 6c	move.(pred.sequence)."Return.a.l
2e40	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 20 77 68 69 63	ist.of.all.the.elements.for.whic
2e60	68 20 28 50 52 45 44 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	h.(PRED.element).is.nil.in.SEQUE
2e80	4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 35 31	NCE.\n\n(fn.PRED.SEQUENCE)".#[51
2ea0	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33	4."\300\301\302\303\304\305..!\3
2ec0	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 6c 74 65	06\"\307\310%.\"\207".[seq-filte
2ee0	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 5c 32 30	r.make-byte-code.257."\300.!?\20
2f00	37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 23 31 23 20 33 20 22 5c 6e 5c 6e 28 66 6e	7".vconcat.vector.#1#.3."\n\n(fn
2f20	20 45 4c 54 29 22 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45	.ELT)"].9."\n\n(fn.PRED.SEQUENCE
2f40	29 22 5d 20 73 65 71 2d 72 65 64 75 63 65 20 28 66 75 6e 63 74 69 6f 6e 20 73 65 71 75 65 6e 63	)"].seq-reduce.(function.sequenc
2f60	65 20 69 6e 69 74 69 61 6c 2d 76 61 6c 75 65 29 20 22 52 65 64 75 63 65 20 74 68 65 20 66 75 6e	e.initial-value)."Reduce.the.fun
2f80	63 74 69 6f 6e 20 46 55 4e 43 54 49 4f 4e 20 61 63 72 6f 73 73 20 53 45 51 55 45 4e 43 45 2c 20	ction.FUNCTION.across.SEQUENCE,.
2fa0	73 74 61 72 74 69 6e 67 20 77 69 74 68 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 2e 5c 6e 5c 6e	starting.with.INITIAL-VALUE.\n\n
2fc0	52 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 63 61 6c 6c 69 6e 67 20 46 55 4e	Return.the.result.of.calling.FUN
2fe0	43 54 49 4f 4e 20 77 69 74 68 20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 20 61 6e 64 20 74 68 65	CTION.with.INITIAL-VALUE.and.the
3000	5c 6e 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2c 20 74 68 65	\nfirst.element.of.SEQUENCE,.the
3020	6e 20 63 61 6c 6c 69 6e 67 20 46 55 4e 43 54 49 4f 4e 20 77 69 74 68 20 74 68 61 74 20 72 65 73	n.calling.FUNCTION.with.that.res
3040	75 6c 74 20 61 6e 64 5c 6e 74 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53	ult.and\nthe.second.element.of.S
3060	45 51 55 45 4e 43 45 2c 20 74 68 65 6e 20 77 69 74 68 20 74 68 61 74 20 72 65 73 75 6c 74 20 61	EQUENCE,.then.with.that.result.a
3080	6e 64 20 74 68 65 20 74 68 69 72 64 5c 6e 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43	nd.the.third\nelement.of.SEQUENC
30a0	45 2c 20 65 74 63 2e 5c 6e 5c 6e 49 66 20 53 45 51 55 45 4e 43 45 20 69 73 20 65 6d 70 74 79 2c	E,.etc.\n\nIf.SEQUENCE.is.empty,
30c0	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 20 46 55 4e 43 54 49	.return.INITIAL-VALUE.and.FUNCTI
30e0	4f 4e 20 69 73 20 6e 6f 74 20 63 61 6c 6c 65 64 2e 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f	ON.is.not.called.\n\n(fn.FUNCTIO
3100	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 22 20 23 5b 37 37 31	N.SEQUENCE.INITIAL-VALUE)".#[771
3120	20 22 5c 33 30 30 02 21 5c 32 30 33 07 00 5c 32 30 37 5c 32 31 31 43 5c 33 30 31 5c 33 30 32 5c	."\300.!\203..\207\211C\301\302\
3140	33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 09 06 07 5c 22 5c 33 30 37 5c 22 5c 33 31 30 5c	303\304\305\306....\"\307\"\310\
3160	33 31 31 25 04 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 30 37 22 20 5b 73 65 71 2d 65 6d	311%.\"\210\211\242\207".[seq-em
3180	70 74 79 2d 70 20 73 65 71 2d 64 6f 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20	pty-p.seq-do.make-byte-code.257.
31a0	22 5c 33 30 31 5c 33 30 30 5c 33 30 31 5c 32 34 32 03 5c 22 5c 32 34 30 5c 32 30 37 22 20 76 63	"\301\300\301\242.\"\240\207".vc
31c0	6f 6e 63 61 74 20 76 65 63 74 6f 72 20 23 31 23 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29	oncat.vector.#1#.5."\n\n(fn.ELT)
31e0	22 5d 20 31 32 20 22 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45	"].12."\n\n(fn.FUNCTION.SEQUENCE
3200	20 49 4e 49 54 49 41 4c 2d 56 41 4c 55 45 29 22 5d 20 73 65 71 2d 65 76 65 72 79 2d 70 20 28 70	.INITIAL-VALUE)"].seq-every-p.(p
3220	72 65 64 20 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66	red.sequence)."Return.non-nil.if
3240	20 28 50 52 45 44 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 61	.(PRED.element).is.non-nil.for.a
3260	6c 6c 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20	ll.elements.of.SEQUENCE.\n\n(fn.
3280	50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c 33 30 30 32 17 00 5c 33	PRED.SEQUENCE)".#[514."\3002..\3
32a0	30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 07 21 5c 33 30 37 5c 22 5c	01\302\303\304\305\306..!\307\"\
32c0	33 31 30 5c 33 31 31 25 02 5c 22 5c 32 31 30 5c 33 31 32 30 5c 32 30 37 22 20 5b 73 65 71 2d 2d	310\311%.\"\210\3120\207".[seq--
32e0	62 72 65 61 6b 20 73 65 71 2d 64 6f 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20	break.seq-do.make-byte-code.257.
3300	22 5c 33 30 30 01 21 5c 32 30 36 5c 6e 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 22 5c 32 30 37	"\300.!\206\n.\301\302\303\"\207
3320	22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 74 68 72 6f 77 20 73 65 71 2d 2d 62 72 65	".vconcat.vector.[throw.seq--bre
3340	61 6b 20 6e 69 6c 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29 22 20 74 5d 20 39 20 22 5c	ak.nil].4."\n\n(fn.ELT)".t].9."\
3360	6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65 71 2d 73 6f 6d 65	n\n(fn.PRED.SEQUENCE)"].seq-some
3380	20 28 70 72 65 64 20 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 72	.(pred.sequence)."Return.the.fir
33a0	73 74 20 76 61 6c 75 65 20 66 6f 72 20 77 68 69 63 68 20 69 66 20 28 50 52 45 44 20 65 6c 65 6d	st.value.for.which.if.(PRED.elem
33c0	65 6e 74 29 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 69 6e 20 53 45 51 55 45 4e 43 45 2e	ent).is.non-nil.for.in.SEQUENCE.
33e0	5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c	\n\n(fn.PRED.SEQUENCE)".#[514."\
3400	33 30 30 32 17 00 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 07	3002..\301\302\303\304\305\306..
3420	21 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 02 5c 22 5c 32 31 30 5c 33 31 32 30 5c 32 30 37	!\307\"\310\311%.\"\210\3120\207
3440	22 20 5b 73 65 71 2d 2d 62 72 65 61 6b 20 73 65 71 2d 64 6f 20 6d 61 6b 65 2d 62 79 74 65 2d 63	".[seq--break.seq-do.make-byte-c
3460	6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 5c 32 30 35 0b 00 5c 33 30 31 5c 33 30	ode.257."\300.!\211\205..\301\30
3480	32 02 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 74 68 72 6f 77 20	2.\"\207".vconcat.vector.[throw.
34a0	73 65 71 2d 2d 62 72 65 61 6b 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29 22 20 6e 69 6c	seq--break].5."\n\n(fn.ELT)".nil
34c0	5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65	].9."\n\n(fn.PRED.SEQUENCE)"].se
34e0	71 2d 66 69 6e 64 20 28 70 72 65 64 20 73 65 71 75 65 6e 63 65 20 26 6f 70 74 69 6f 6e 61 6c 20	q-find.(pred.sequence.&optional.
3500	64 65 66 61 75 6c 74 29 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65	default)."Return.the.first.eleme
3520	6e 74 20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e	nt.for.which.(PRED.element).is.n
3540	6f 6e 2d 6e 69 6c 20 69 6e 20 53 45 51 55 45 4e 43 45 2e 5c 6e 49 66 20 6e 6f 20 65 6c 65 6d 65	on-nil.in.SEQUENCE.\nIf.no.eleme
3560	6e 74 20 69 73 20 66 6f 75 6e 64 2c 20 72 65 74 75 72 6e 20 44 45 46 41 55 4c 54 2e 5c 6e 5c 6e	nt.is.found,.return.DEFAULT.\n\n
3580	4e 6f 74 65 20 74 68 61 74 20 60 73 65 71 2d 66 69 6e 64 27 20 68 61 73 20 61 6e 20 61 6d 62 69	Note.that.`seq-find'.has.an.ambi
35a0	67 75 69 74 79 20 69 66 20 74 68 65 20 66 6f 75 6e 64 20 65 6c 65 6d 65 6e 74 20 69 73 5c 6e 69	guity.if.the.found.element.is\ni
35c0	64 65 6e 74 69 63 61 6c 20 74 6f 20 44 45 46 41 55 4c 54 2c 20 61 73 20 69 74 20 63 61 6e 6e 6f	dentical.to.DEFAULT,.as.it.canno
35e0	74 20 62 65 20 6b 6e 6f 77 6e 20 69 66 20 61 6e 20 65 6c 65 6d 65 6e 74 20 77 61 73 5c 6e 66 6f	t.be.known.if.an.element.was\nfo
3600	75 6e 64 20 6f 72 20 6e 6f 74 2e 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45	und.or.not.\n\n(fn.PRED.SEQUENCE
3620	20 26 6f 70 74 69 6f 6e 61 6c 20 44 45 46 41 55 4c 54 29 22 20 23 5b 37 37 30 20 22 5c 33 30 30	.&optional.DEFAULT)".#[770."\300
3640	32 17 00 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 21 5c 33	2..\301\302\303\304\305\306..!\3
3660	30 37 5c 22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 31 30 5c 32 31 31 30 5c 32 30 37 22 20 5b	07\"\310\311%.\"\210\2110\207".[
3680	73 65 71 2d 2d 62 72 65 61 6b 20 73 65 71 2d 64 6f 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65	seq--break.seq-do.make-byte-code
36a0	20 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 35 5c 6e 00 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32	.257."\300.!\205\n.\301\302.\"\2
36c0	30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 74 68 72 6f 77 20 73 65 71 2d 2d 62	07".vconcat.vector.[throw.seq--b
36e0	72 65 61 6b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29 22 5d 20 31 30 20 22 5c 6e 5c 6e	reak].4."\n\n(fn.ELT)"].10."\n\n
3700	28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 20 26 6f 70 74 69 6f 6e 61 6c 20 44 45 46 41	(fn.PRED.SEQUENCE.&optional.DEFA
3720	55 4c 54 29 22 5d 20 73 65 71 2d 63 6f 75 6e 74 20 28 70 72 65 64 20 73 65 71 75 65 6e 63 65 29	ULT)"].seq-count.(pred.sequence)
3740	20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20	."Return.the.number.of.elements.
3760	66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e 2d	for.which.(PRED.element).is.non-
3780	6e 69 6c 20 69 6e 20 53 45 51 55 45 4e 43 45 2e 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51	nil.in.SEQUENCE.\n\n(fn.PRED.SEQ
37a0	55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c 33 30 30 43 5c 33 30 31 5c 33 30 32 5c 33 30 33	UENCE)".#[514."\300C\301\302\303
37c0	5c 33 30 34 5c 33 30 35 5c 33 30 36 06 08 06 07 5c 22 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31	\304\305\306....\"\307\"\310\311
37e0	25 03 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 30 37 22 20 5b 30 20 73 65 71 2d 64 6f 20	%.\"\210\211\242\207".[0.seq-do.
3800	6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 35 0b 00	make-byte-code.257."\300.!\205..
3820	5c 33 30 31 5c 32 31 31 5c 32 34 32 54 5c 32 34 30 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76	\301\211\242T\240\207".vconcat.v
3840	65 63 74 6f 72 20 23 31 23 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 54 29 22 5d 20 31 31 20 22	ector.#1#.3."\n\n(fn.ELT)"].11."
3860	5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65 71 2d 63 6f 6e	\n\n(fn.PRED.SEQUENCE)"].seq-con
3880	74 61 69 6e 73 20 28 73 65 71 75 65 6e 63 65 20 65 6c 74 20 26 6f 70 74 69 6f 6e 61 6c 20 74 65	tains.(sequence.elt.&optional.te
38a0	73 74 66 6e 29 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20	stfn)."Return.the.first.element.
38c0	69 6e 20 53 45 51 55 45 4e 43 45 20 74 68 61 74 20 69 73 20 65 71 75 61 6c 20 74 6f 20 45 4c 54	in.SEQUENCE.that.is.equal.to.ELT
38e0	2e 5c 6e 45 71 75 61 6c 69 74 79 20 69 73 20 64 65 66 69 6e 65 64 20 62 79 20 54 45 53 54 46 4e	.\nEquality.is.defined.by.TESTFN
3900	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 66 20 6e 69 6c	.if.non-nil.or.by.`equal'.if.nil
3920	2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20 45 4c 54 20 26 6f 70 74 69 6f 6e 61 6c 20	.\n\n(fn.SEQUENCE.ELT.&optional.
3940	54 45 53 54 46 4e 29 22 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	TESTFN)".#[770."\300\301\302\303
3960	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 04 5c 22	\304\305....\"\306\"\307\310%.\"
3980	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 65 20 32	\207".[seq-some.make-byte-code.2
39a0	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 22 20 76	57."\301\206..\302\300.\"\207".v
39c0	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 28 66 6e	concat.vector.[equal].4."\n\n(fn
39e0	20 45 29 22 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20 45 4c 54 20 26	.E)"].11."\n\n(fn.SEQUENCE.ELT.&
3a00	6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 22 5d 20 73 65 71 2d 73 65 74 2d 65 71 75 61 6c	optional.TESTFN)"].seq-set-equal
3a20	2d 70 20 28 73 65 71 75 65 6e 63 65 31 20 73 65 71 75 65 6e 63 65 32 20 26 6f 70 74 69 6f 6e 61	-p.(sequence1.sequence2.&optiona
3a40	6c 20 74 65 73 74 66 6e 29 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 53 45 51	l.testfn)."Return.non-nil.if.SEQ
3a60	55 45 4e 43 45 31 20 61 6e 64 20 53 45 51 55 45 4e 43 45 32 20 63 6f 6e 74 61 69 6e 20 74 68 65	UENCE1.and.SEQUENCE2.contain.the
3a80	20 73 61 6d 65 20 65 6c 65 6d 65 6e 74 73 2c 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 6f 72	.same.elements,.regardless.of.or
3aa0	64 65 72 2e 5c 6e 45 71 75 61 6c 69 74 79 20 69 73 20 64 65 66 69 6e 65 64 20 62 79 20 54 45 53	der.\nEquality.is.defined.by.TES
3ac0	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 66 20	TFN.if.non-nil.or.by.`equal'.if.
3ae0	6e 69 6c 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 31 20 53 45 51 55 45 4e 43 45 32 20	nil.\n\n(fn.SEQUENCE1.SEQUENCE2.
3b00	26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 22 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33	&optional.TESTFN)".#[770."\300\3
3b20	30 31 5c 33 30 32 5c 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	01\302\303\304\305....\"\306\"\3
3b40	30 37 5c 33 31 30 25 04 5c 22 5c 32 30 35 27 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33	07\310%.\"\205'.\300\301\302\303
3b60	5c 33 30 34 5c 33 30 35 06 08 06 07 5c 22 5c 33 31 31 5c 22 5c 33 30 37 5c 33 31 32 25 03 5c 22	\304\305....\"\311\"\307\312%.\"
3b80	5c 32 30 37 22 20 5b 73 65 71 2d 65 76 65 72 79 2d 70 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64	\207".[seq-every-p.make-byte-cod
3ba0	65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 02 5c 33 30 31 23 5c 32 30 37 22 20 76 63 6f 6e 63	e.257."\302\300.\301#\207".vconc
3bc0	61 74 20 76 65 63 74 6f 72 20 5b 73 65 71 2d 63 6f 6e 74 61 69 6e 73 5d 20 35 20 22 5c 6e 5c 6e	at.vector.[seq-contains].5."\n\n
3be0	28 66 6e 20 49 54 45 4d 31 29 22 20 5b 73 65 71 2d 63 6f 6e 74 61 69 6e 73 5d 20 22 5c 6e 5c 6e	(fn.ITEM1)".[seq-contains]."\n\n
3c00	28 66 6e 20 49 54 45 4d 32 29 22 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43	(fn.ITEM2)"].11."\n\n(fn.SEQUENC
3c20	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 46 4e 29 22 5d	E1.SEQUENCE2.&optional.TESTFN)"]
3c40	20 73 65 71 2d 70 6f 73 69 74 69 6f 6e 20 28 73 65 71 75 65 6e 63 65 20 65 6c 74 20 26 6f 70 74	.seq-position.(sequence.elt.&opt
3c60	69 6f 6e 61 6c 20 74 65 73 74 66 6e 29 20 22 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 65 78 20	ional.testfn)."Return.the.index.
3c80	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 43 45	of.the.first.element.in.SEQUENCE
3ca0	20 74 68 61 74 20 69 73 20 65 71 75 61 6c 20 74 6f 20 45 4c 54 2e 5c 6e 45 71 75 61 6c 69 74 79	.that.is.equal.to.ELT.\nEquality
3cc0	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 6c	.is.defined.by.TESTFN.if.non-nil
3ce0	20 6f 72 20 62 79 20 60 65 71 75 61 6c 27 20 69 66 20 6e 69 6c 2e 5c 6e 5c 6e 28 66 6e 20 53 45	.or.by.`equal'.if.nil.\n\n(fn.SE
3d00	51 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 22 20 23 5b	QUENCE.ELT.&optional.TESTFN)".#[
3d20	37 37 30 20 22 5c 33 30 30 43 5c 33 30 31 32 1d 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30	770."\300C\3012..\302\303\304\30
3d40	35 5c 33 30 36 5c 33 30 37 06 08 06 08 06 08 23 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 05	5\306\307......#\310\"\311\312%.
3d60	5c 22 5c 32 31 30 5c 33 31 33 30 5c 32 30 37 22 20 5b 30 20 73 65 71 2d 2d 62 72 65 61 6b 20 73	\"\210\3130\207".[0.seq--break.s
3d80	65 71 2d 64 6f 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 32	eq-do.make-byte-code.257."\301\2
3da0	30 36 05 00 5c 33 30 33 01 5c 33 30 30 5c 22 5c 32 30 33 11 00 5c 33 30 34 5c 33 30 35 5c 33 30	06..\303.\300\"\203..\304\305\30
3dc0	32 5c 32 34 32 5c 22 5c 32 31 30 5c 33 30 32 5c 32 31 31 5c 32 34 32 54 5c 32 34 30 5c 32 30 37	2\242\"\210\302\211\242T\240\207
3de0	22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 65 71 75 61 6c 20 74 68 72 6f 77 20 73 65	".vconcat.vector.[equal.throw.se
3e00	71 2d 2d 62 72 65 61 6b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 45 29 22 20 6e 69 6c 5d 20 31 33	q--break].4."\n\n(fn.E)".nil].13
3e20	20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20 45 4c 54 20 26 6f 70 74 69 6f 6e 61 6c	."\n\n(fn.SEQUENCE.ELT.&optional
3e40	20 54 45 53 54 46 4e 29 22 5d 20 73 65 71 2d 75 6e 69 71 20 28 73 65 71 75 65 6e 63 65 20 26 6f	.TESTFN)"].seq-uniq.(sequence.&o
3e60	70 74 69 6f 6e 61 6c 20 74 65 73 74 66 6e 29 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f	ptional.testfn)."Return.a.list.o
3e80	66 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 77 69 74 68 20	f.the.elements.of.SEQUENCE.with.
3ea0	64 75 70 6c 69 63 61 74 65 73 20 72 65 6d 6f 76 65 64 2e 5c 6e 54 45 53 54 46 4e 20 69 73 20 75	duplicates.removed.\nTESTFN.is.u
3ec0	73 65 64 20 74 6f 20 63 6f 6d 70 61 72 65 20 65 6c 65 6d 65 6e 74 73 2c 20 6f 72 20 60 65 71 75	sed.to.compare.elements,.or.`equ
3ee0	61 6c 27 20 69 66 20 54 45 53 54 46 4e 20 69 73 20 6e 69 6c 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51	al'.if.TESTFN.is.nil.\n\n(fn.SEQ
3f00	55 45 4e 43 45 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 22 20 23 5b 35 31 33 20 22	UENCE.&optional.TESTFN)".#[513."
3f20	5c 33 30 30 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 07 06	\300C\301\302\303\304\305\306...
3f40	07 5c 22 5c 33 30 37 5c 22 5c 33 31 30 5c 33 31 31 25 04 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34	.\"\307\"\310\311%.\"\210\211\24
3f60	32 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 73 65 71 2d 64 6f 20 6d 61 6b 65 2d 62 79 74 65	2\237\207".[nil.seq-do.make-byte
3f80	2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 31 5c 32 34 32 02 5c 33 30 30 23 3f 5c 32	-code.257."\302\301\242.\300#?\2
3fa0	30 35 10 00 5c 33 30 31 01 5c 33 30 31 5c 32 34 32 42 5c 32 34 30 5c 32 30 37 22 20 76 63 6f 6e	05..\301.\301\242B\240\207".vcon
3fc0	63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 71 2d 63 6f 6e 74 61 69 6e 73 5d 20 35 20 22 5c 6e 5c	cat.vector.[seq-contains].5."\n\
3fe0	6e 28 66 6e 20 45 4c 54 29 22 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45	n(fn.ELT)"].11."\n\n(fn.SEQUENCE
4000	20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 22 5d 20 73 65 71 2d 6d 61 70 63 61 74 20	.&optional.TESTFN)"].seq-mapcat.
4020	28 66 75 6e 63 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 26 6f 70 74 69 6f 6e 61 6c 20 74 79 70	(function.sequence.&optional.typ
4040	65 29 20 22 43 6f 6e 63 61 74 65 6e 61 74 65 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 70	e)."Concatenate.the.result.of.ap
4060	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 65 6e 74 20	plying.FUNCTION.to.each.element.
4080	6f 66 20 53 45 51 55 45 4e 43 45 2e 5c 6e 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 20 73 65	of.SEQUENCE.\nThe.result.is.a.se
40a0	71 75 65 6e 63 65 20 6f 66 20 74 79 70 65 20 54 59 50 45 2c 20 6f 72 20 61 20 6c 69 73 74 20 69	quence.of.type.TYPE,.or.a.list.i
40c0	66 20 54 59 50 45 20 69 73 20 6e 69 6c 2e 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53	f.TYPE.is.nil.\n\n(fn.FUNCTION.S
40e0	45 51 55 45 4e 43 45 20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 29 22 20 23 5b 37 37 30 20 22	EQUENCE.&optional.TYPE)".#[770."
4100	5c 33 30 30 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	\300\301.\206..\302\303....\"#\2
4120	30 37 22 20 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	07".[apply.seq-concatenate.list.
4140	73 65 71 2d 6d 61 70 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51	seq-map].9."\n\n(fn.FUNCTION.SEQ
4160	55 45 4e 43 45 20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 29 22 5d 20 73 65 71 2d 70 61 72 74	UENCE.&optional.TYPE)"].seq-part
4180	69 74 69 6f 6e 20 28 73 65 71 75 65 6e 63 65 20 6e 29 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73	ition.(sequence.n)."Return.a.lis
41a0	74 20 6f 66 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 67 72	t.of.the.elements.of.SEQUENCE.gr
41c0	6f 75 70 65 64 20 69 6e 74 6f 20 73 75 62 2d 73 65 71 75 65 6e 63 65 73 20 6f 66 20 6c 65 6e 67	ouped.into.sub-sequences.of.leng
41e0	74 68 20 4e 2e 5c 6e 54 68 65 20 6c 61 73 74 20 73 65 71 75 65 6e 63 65 20 6d 61 79 20 63 6f 6e	th.N.\nThe.last.sequence.may.con
4200	74 61 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 4e 20 65 6c 65 6d 65 6e 74 73 2e 20 20 49 66 20 4e	tain.less.than.N.elements...If.N
4220	20 69 73 20 61 5c 6e 6e 65 67 61 74 69 76 65 20 69 6e 74 65 67 65 72 20 6f 72 20 30 2c 20 6e 69	.is.a\nnegative.integer.or.0,.ni
4240	6c 20 69 73 20 72 65 74 75 72 6e 65 64 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e	l.is.returned.\n\n(fn.SEQUENCE.N
4260	29 22 20 23 5b 35 31 34 20 22 5c 32 31 31 5c 33 30 30 57 3f 5c 32 30 35 23 00 5c 33 30 31 5c 33	)".#[514."\211\300W?\205#.\301\3
4280	30 32 03 21 5c 32 30 34 1f 00 5c 33 30 33 03 03 5c 22 01 42 5c 32 36 32 01 5c 33 30 34 03 03 5c	02.!\204..\303..\".B\262.\304..\
42a0	22 5c 32 36 32 03 5c 32 30 32 08 00 5c 32 31 31 5c 32 33 37 5c 32 36 32 01 5c 32 30 37 22 20 5b	"\262.\202..\211\237\262.\207".[
42c0	31 20 6e 69 6c 20 73 65 71 2d 65 6d 70 74 79 2d 70 20 73 65 71 2d 74 61 6b 65 20 73 65 71 2d 64	1.nil.seq-empty-p.seq-take.seq-d
42e0	72 6f 70 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e 29 22 5d 20 73 65	rop].6."\n\n(fn.SEQUENCE.N)"].se
4300	71 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 28 73 65 71 75 65 6e 63 65 31 20 73 65 71 75 65 6e	q-intersection.(sequence1.sequen
4320	63 65 32 20 26 6f 70 74 69 6f 6e 61 6c 20 74 65 73 74 66 6e 29 20 22 52 65 74 75 72 6e 20 61 20	ce2.&optional.testfn)."Return.a.
4340	6c 69 73 74 20 6f 66 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 74 68 61 74 20 61 70 70 65 61 72	list.of.the.elements.that.appear
4360	20 69 6e 20 62 6f 74 68 20 53 45 51 55 45 4e 43 45 31 20 61 6e 64 20 53 45 51 55 45 4e 43 45 32	.in.both.SEQUENCE1.and.SEQUENCE2
4380	2e 5c 6e 45 71 75 61 6c 69 74 79 20 69 73 20 64 65 66 69 6e 65 64 20 62 79 20 54 45 53 54 46 4e	.\nEquality.is.defined.by.TESTFN
43a0	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 66 20 6e 69 6c	.if.non-nil.or.by.`equal'.if.nil
43c0	2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 31 20 53 45 51 55 45 4e 43 45 32 20 26 6f 70	.\n\n(fn.SEQUENCE1.SEQUENCE2.&op
43e0	74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 22 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 33 30 31 5c	tional.TESTFN)".#[770."\300\301\
4400	33 30 32 5c 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	302\303\304\305....\"\306\"\307\
4420	33 31 30 25 5c 33 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	310%\311.!\312#\207".[seq-reduce
4440	20 6d 61 6b 65 2d 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	.make-byte-code.514."\302\300.\3
4460	30 31 23 5c 32 30 33 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	01#\203\f.\211.B\207.\207".vconc
4480	61 74 20 76 65 63 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	at.vector.[seq-contains].6."\n\n
44a0	28 66 6e 20 41 43 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	(fn.ACC.ELT)".seq-reverse.nil].1
44c0	31 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 31 20 53 45 51 55 45 4e 43 45 32 20 26	1."\n\n(fn.SEQUENCE1.SEQUENCE2.&
44e0	6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 46 4e 29 22 5d 20 73 65 71 2d 64 69 66 66 65 72 65 6e 63	optional.TESTFN)"].seq-differenc
4500	65 20 28 73 65 71 75 65 6e 63 65 31 20 73 65 71 75 65 6e 63 65 32 20 26 6f 70 74 69 6f 6e 61 6c	e.(sequence1.sequence2.&optional
4520	20 74 65 73 74 66 6e 29 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 65	.testfn)."Return.a.list.of.the.e
4540	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 55 45 4e 43 45 31	lements.that.appear.in.SEQUENCE1
4560	20 62 75 74 20 6e 6f 74 20 69 6e 20 53 45 51 55 45 4e 43 45 32 2e 5c 6e 45 71 75 61 6c 69 74 79	.but.not.in.SEQUENCE2.\nEquality
4580	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 6c	.is.defined.by.TESTFN.if.non-nil
45a0	20 6f 72 20 62 79 20 60 65 71 75 61 6c 27 20 69 66 20 6e 69 6c 2e 5c 6e 5c 6e 28 66 6e 20 53 45	.or.by.`equal'.if.nil.\n\n(fn.SE
45c0	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
45e0	46 4e 29 22 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	FN)".#[770."\300\301\302\303\304
4600	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.!\
4620	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-
4640	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 34 5c 66 00 5c	code.514."\302\300.\301#\204\f.\
4660	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.[
4680	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
46a0	29 22 20 73 65 71 2d 72 65 76 65 72 73 65 20 6e 69 6c 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20	)".seq-reverse.nil].11."\n\n(fn.
46c0	53 45 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	SEQUENCE1.SEQUENCE2.&optional.TE
46e0	53 54 46 4e 29 22 5d 20 73 65 71 2d 67 72 6f 75 70 2d 62 79 20 23 27 73 65 71 75 65 6e 63 65 20	STFN)"].seq-group-by.#'sequence.
4700	22 41 70 70 6c 79 20 46 55 4e 43 54 49 4f 4e 20 74 6f 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20	"Apply.FUNCTION.to.each.element.
4720	6f 66 20 53 45 51 55 45 4e 43 45 2e 5c 6e 53 65 70 61 72 61 74 65 20 74 68 65 20 65 6c 65 6d 65	of.SEQUENCE.\nSeparate.the.eleme
4740	6e 74 73 20 6f 66 20 53 45 51 55 45 4e 43 45 20 69 6e 74 6f 20 61 6e 20 61 6c 69 73 74 20 75 73	nts.of.SEQUENCE.into.an.alist.us
4760	69 6e 67 20 74 68 65 20 72 65 73 75 6c 74 73 20 61 73 5c 6e 6b 65 79 73 2e 20 20 4b 65 79 73 20	ing.the.results.as\nkeys...Keys.
4780	61 72 65 20 63 6f 6d 70 61 72 65 64 20 75 73 69 6e 67 20 60 65 71 75 61 6c 27 2e 5c 6e 5c 6e 28	are.compared.using.`equal'.\n\n(
47a0	66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 35 31 34 20 22 5c 33	fn.FUNCTION.SEQUENCE)".#[514."\3
47c0	30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c	00\301\302\303\304\305..!\306\"\
47e0	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 71 2d 72 65	307\310%\311.!\312#\207".[seq-re
4800	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 30 01 21 5c	duce.make-byte-code.514."\300.!\
4820	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 41 42 5c 32	301..\"\211\203..\211.\211..AB\2
4840	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 36 32 04 03	41\262.\241\210\202!...D.B\262..
4860	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 20 39 20 22	\207".vconcat.vector.[assoc].9."
4880	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 65 20 6e 69	\n\n(fn.ACC.ELT)".seq-reverse.ni
48a0	6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 29	l].9."\n\n(fn.FUNCTION.SEQUENCE)
48c0	22 5d 20 73 65 71 2d 6d 69 6e 20 28 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 74 68	"].seq-min.(sequence)."Return.th
48e0	65 20 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 5c	e.smallest.element.of.SEQUENCE.\
4900	6e 53 45 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	nSEQUENCE.must.be.a.sequence.of.
4920	6e 75 6d 62 65 72 73 20 6f 72 20 6d 61 72 6b 65 72 73 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45	numbers.or.markers.\n\n(fn.SEQUE
4940	4e 43 45 29 22 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	NCE)".#[257."\300\301\302.\303\"
4960	5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 6d 69 6e 20 73 65 71 2d 69 6e 74 6f 20 6c 69 73 74	\"\207".[apply.min.seq-into.list
4980	5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 73 65 71 2d 6d 61 78	].6."\n\n(fn.SEQUENCE)"].seq-max
49a0	20 28 73 65 71 75 65 6e 63 65 29 20 22 52 65 74 75 72 6e 20 74 68 65 20 6c 61 72 67 65 73 74 20	.(sequence)."Return.the.largest.
49c0	65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 2e 5c 6e 53 45 51 55 45 4e 43 45 20 6d	element.of.SEQUENCE.\nSEQUENCE.m
49e0	75 73 74 20 62 65 20 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	ust.be.a.sequence.of.numbers.or.
4a00	6d 61 72 6b 65 72 73 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 20 23 5b 32 35 37	markers.\n\n(fn.SEQUENCE)".#[257
4a20	20 22 5c 33 30 30 5c 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	."\300\301\302.\303\"\"\207".[ap
4a40	70 6c 79 20 6d 61 78 20 73 65 71 2d 69 6e 74 6f 20 6c 69 73 74 5d 20 36 20 22 5c 6e 5c 6e 28 66	ply.max.seq-into.list].6."\n\n(f
4a60	6e 20 53 45 51 55 45 4e 43 45 29 22 5d 5d 20 36 29 0a 23 40 31 31 31 20 52 65 74 75 72 6e 20 74	n.SEQUENCE)"]].6).#@111.Return.t
4a80	68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 75 63 63 65 73 73 69 76 65 20 65 6c 65 6d 65 6e 74 73	he.number.of.successive.elements
4aa0	20 66 6f 72 20 77 68 69 63 68 20 28 50 52 45 44 20 65 6c 65 6d 65 6e 74 29 20 69 73 20 6e 6f 6e	.for.which.(PRED.element).is.non
4ac0	2d 6e 69 6c 20 69 6e 20 53 45 51 55 45 4e 43 45 2e 0a 0a 28 66 6e 20 50 52 45 44 20 53 45 51 55	-nil.in.SEQUENCE...(fn.PRED.SEQU
4ae0	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 63	ENCE)..(defalias.'seq--count-suc
4b00	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 33	cessive.#[514."\300\301.!..W\203
4b20	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 01	...\302..\"!\203...T\262.\202...
4b40	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 28	\207".[0.seq-length.seq-elt].8.(
4b60	23 24 20 2e 20 31 39 30 36 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	#$...19064)]).(byte-code."\300\3
4b80	30 31 5c 33 30 32 5c 33 30 33 5c 33 30 32 5c 33 30 34 25 5c 32 31 30 5c 33 30 30 5c 33 30 35 5c	01\302\303\302\304%\210\300\305\
4ba0	33 30 32 5c 33 30 36 5c 33 30 32 5c 33 30 37 25 5c 32 31 30 5c 33 30 30 5c 33 31 30 5c 33 30 32	302\306\302\307%\210\300\310\302
4bc0	5c 33 31 31 5c 33 30 32 5c 33 31 32 25 5c 32 31 30 5c 33 30 30 5c 33 31 33 5c 33 30 32 5c 33 31	\311\302\312%\210\300\313\302\31
4be0	34 5c 33 30 32 5c 33 31 35 25 5c 32 30 37 22 20 5b 63 6c 2d 67 65 6e 65 72 69 63 2d 64 65 66 69	4\302\315%\207".[cl-generic-defi
4c00	6e 65 2d 6d 65 74 68 6f 64 20 73 65 71 2d 64 72 6f 70 20 6e 69 6c 20 28 28 6c 69 73 74 20 6c 69	ne-method.seq-drop.nil.((list.li
4c20	73 74 29 20 6e 29 20 23 5b 35 31 34 20 22 5c 32 31 31 02 5c 32 33 33 5c 32 30 37 22 20 23 31 3d	st).n).#[514."\211.\233\207".#1=
4c40	5b 5d 20 34 20 22 4f 70 74 69 6d 69 7a 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f	[].4."Optimized.implementation.o
4c60	66 20 60 73 65 71 2d 64 72 6f 70 27 20 66 6f 72 20 6c 69 73 74 73 2e 5c 6e 5c 6e 28 66 6e 20 4c	f.`seq-drop'.for.lists.\n\n(fn.L
4c80	49 53 54 20 4e 29 22 5d 20 73 65 71 2d 74 61 6b 65 20 28 28 6c 69 73 74 20 6c 69 73 74 29 20 6e	IST.N)"].seq-take.((list.list).n
4ca0	29 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 32 30 33 1c 00 01 5c 33 30 31 56 5c 32 30 33 1c 00	).#[514."\300.\203...\301V\203..
4cc0	01 53 5c 32 36 32 02 02 5c 32 31 31 41 5c 32 36 32 04 5c 32 34 32 01 42 5c 32 36 32 01 5c 32 30	.S\262..\211A\262.\242.B\262.\20
4ce0	32 01 00 5c 32 31 31 5c 32 33 37 5c 32 30 37 22 20 5b 6e 69 6c 20 30 5d 20 35 20 22 4f 70 74 69	2..\211\237\207".[nil.0].5."Opti
4d00	6d 69 7a 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 60 73 65 71 2d 74 61 6b	mized.implementation.of.`seq-tak
4d20	65 27 20 66 6f 72 20 6c 69 73 74 73 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 20 4e 29 22 5d 20 73	e'.for.lists.\n\n(fn.LIST.N)"].s
4d40	65 71 2d 64 72 6f 70 2d 77 68 69 6c 65 20 28 70 72 65 64 20 28 6c 69 73 74 20 6c 69 73 74 29 29	eq-drop-while.(pred.(list.list))
4d60	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 31 31	.#[514."\211\203....@!\203..\211
4d80	41 5c 32 36 32 01 5c 32 30 32 00 00 5c 32 30 37 22 20 23 31 23 20 34 20 22 4f 70 74 69 6d 69 7a	A\262.\202..\207".#1#.4."Optimiz
4da0	65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 60 73 65 71 2d 64 72 6f 70 2d 77	ed.implementation.of.`seq-drop-w
4dc0	68 69 6c 65 27 20 66 6f 72 20 6c 69 73 74 73 2e 5c 6e 5c 6e 28 66 6e 20 50 52 45 44 20 4c 49 53	hile'.for.lists.\n\n(fn.PRED.LIS
4de0	54 29 22 5d 20 73 65 71 2d 65 6d 70 74 79 2d 70 20 28 28 6c 69 73 74 20 6c 69 73 74 29 29 20 23	T)"].seq-empty-p.((list.list)).#
4e00	5b 32 35 37 20 22 5c 32 31 31 3f 5c 32 30 37 22 20 23 31 23 20 32 20 22 4f 70 74 69 6d 69 7a 65	[257."\211?\207".#1#.2."Optimize
4e20	64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 60 73 65 71 2d 65 6d 70 74 79 2d 70	d.implementation.of.`seq-empty-p
4e40	27 20 66 6f 72 20 6c 69 73 74 73 2e 5c 6e 5c 6e 28 66 6e 20 4c 49 53 54 29 22 5d 5d 20 36 29 0a	'.for.lists.\n\n(fn.LIST)"]].6).
4e60	23 40 36 36 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	#@66.Concatenate.the.elements.of
4e80	20 53 45 51 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	.SEQUENCE.into.a.list...(fn.SEQU
4ea0	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 6c 69 73 74	ENCE)..(defalias.'seq--into-list
4ec0	20 23 5b 32 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	.#[257."\211<\203..\207\300.\301
4ee0	5c 22 5c 32 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 32 30 30	\"\207".[append.nil].4.(#$...200
4f00	36 39 29 5d 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	69)]).#@68.Concatenate.the.eleme
4f20	6e 74 73 20 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	nts.of.SEQUENCE.into.a.vector...
4f40	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 2d 2d 69	(fn.SEQUENCE)..(defalias.'seq--i
4f60	6e 74 6f 2d 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	nto-vector.#[257."\300.!\203..\2
4f80	30 37 5c 33 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	07\301.!\207".[vectorp.vconcat].
4fa0	33 20 28 23 24 20 2e 20 32 30 32 33 35 29 5d 29 0a 23 40 36 38 20 43 6f 6e 63 61 74 65 6e 61 74	3.(#$...20235)]).#@68.Concatenat
4fc0	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 6e 74 6f 20	e.the.elements.of.SEQUENCE.into.
4fe0	61 20 73 74 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	a.string...(fn.SEQUENCE)..(defal
5000	69 61 73 20 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	ias.'seq--into-string.#[257."\21
5020	31 3b 5c 32 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	1;\203..\207\211\260.\207".[].2.
5040	28 23 24 20 2e 20 32 30 34 30 36 29 5d 29 0a 23 40 39 34 20 52 65 74 75 72 6e 20 61 20 6c 69 73	(#$...20406)]).#@94.Return.a.lis
5060	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 69	t.of.bindings.of.the.variables.i
5080	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 75	n.ARGS.to.the.elements.of.a.sequ
50a0	65 6e 63 65 2e 0a 0a 28 66 6e 20 41 52 47 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71	ence...(fn.ARGS)..(defalias.'seq
50c0	2d 2d 6d 61 6b 65 2d 70 63 61 73 65 2d 62 69 6e 64 69 6e 67 73 20 23 5b 32 35 37 20 22 5c 33 30	--make-pcase-bindings.#[257."\30
50e0	30 43 5c 33 30 31 43 5c 33 30 30 43 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36	0C\301C\300C\302\303\304\305\306
5100	5c 33 30 37 06 09 06 09 06 09 06 09 24 5c 33 31 30 5c 22 5c 33 31 31 5c 33 31 32 25 05 5c 22 5c	\307........$\310\"\311\312%.\"\
5120	32 31 30 02 5c 32 34 32 5c 32 30 37 22 20 5b 6e 69 6c 20 30 20 73 65 71 2d 64 6f 20 6d 61 6b 65	210.\242\207".[nil.0.seq-do.make
5140	2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 33 5c 32 34 32 5c 32 30 34 33 00 5c 32	-byte-code.257."\303\242\2043.\2
5160	31 31 5c 33 30 34 3d 5c 32 30 33 25 00 5c 33 30 31 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 30	11\304=\203%.\301\305\306\307\30
5180	32 5c 32 34 32 45 5c 33 31 30 5c 33 30 30 5c 33 30 32 5c 32 34 32 54 5c 22 45 5c 33 30 31 5c 32	2\242E\310\300\302\242T\"E\301\2
51a0	34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 33 5c 33 31 31 5c 32 34 30 5c 32 31 30 5c 32 30 32 33	42B\240\210\303\311\240\210\2023
51c0	00 5c 33 30 31 5c 33 30 35 5c 33 30 36 5c 33 31 30 5c 33 30 32 5c 32 34 32 45 03 45 5c 33 30 31	.\301\305\306\310\302\242E.E\301
51e0	5c 32 34 32 42 5c 32 34 30 5c 32 31 30 5c 33 30 32 5c 32 31 31 5c 32 34 32 54 5c 32 34 30 5c 32	\242B\240\210\302\211\242T\240\2
5200	30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 26 72 65 73 74 20 61 70 70 20 70 63	07".vconcat.vector.[&rest.app.pc
5220	61 73 65 2d 2d 66 6c 69 70 20 73 65 71 2d 64 72 6f 70 20 73 65 71 2d 2d 65 6c 74 2d 73 61 66 65	ase--flip.seq-drop.seq--elt-safe
5240	20 74 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 4e 41 4d 45 29 22 5d 20 31 34 20 28 23 24 20 2e 20	.t].7."\n\n(fn.NAME)"].14.(#$...
5260	32 30 35 36 34 29 5d 29 0a 23 40 38 35 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 60	20564)]).#@85.Return.a.list.of.`
5280	28 73 65 71 20 2e 2e 2e 29 27 20 70 63 61 73 65 20 70 61 74 74 65 72 6e 73 20 66 72 6f 6d 20 74	(seq....)'.pcase.patterns.from.t
52a0	68 65 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 41 52 47 53 2e 0a 0a 28 66 6e 20 41 52 47 53	he.argument.list.ARGS...(fn.ARGS
52c0	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 2d 6d 61 6b 65 2d 70 63 61 73 65 2d 70 61	)..(defalias.'seq--make-pcase-pa
52e0	74 74 65 72 6e 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 22 42 5c 32	tterns.#[257."\300\301\302.\"B\2
5300	30 37 22 20 5b 73 65 71 20 73 65 71 2d 6d 61 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32	07".[seq.seq-map.#[257."\300.!\2
5320	30 33 5c 6e 00 5c 33 30 31 01 21 5c 32 30 37 5c 32 30 37 22 20 5b 73 65 71 70 20 73 65 71 2d 2d	03\n.\301.!\207\207".[seqp.seq--
5340	6d 61 6b 65 2d 70 63 61 73 65 2d 70 61 74 74 65 72 6e 73 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20	make-pcase-patterns].3."\n\n(fn.
5360	45 4c 54 29 22 5d 5d 20 35 20 28 23 24 20 2e 20 32 31 31 30 32 29 5d 29 0a 23 40 39 37 20 52 65	ELT)"]].5.(#$...21102)]).#@97.Re
5380	74 75 72 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 20 61 74 20 74 68 65 20	turn.element.of.SEQUENCE.at.the.
53a0	69 6e 64 65 78 20 4e 2e 0a 49 66 20 6e 6f 20 65 6c 65 6d 65 6e 74 20 69 73 20 66 6f 75 6e 64 2c	index.N..If.no.element.is.found,
53c0	20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 0a 28 66 6e 20 53 45 51 55 45 4e 43 45 20 4e 29 1f 0a 28	.return.nil...(fn.SEQUENCE.N)..(
53e0	64 65 66 61 6c 69 61 73 20 27 73 65 71 2d 2d 65 6c 74 2d 73 61 66 65 20 23 5b 35 31 34 20 22 5c	defalias.'seq--elt-safe.#[514."\
5400	33 30 30 31 5c 6e 00 5c 33 30 31 02 02 5c 22 30 5c 32 30 37 5c 32 31 30 5c 33 30 32 5c 32 30 37	3001\n.\301..\"0\207\210\302\207
5420	22 20 5b 28 65 72 72 6f 72 29 20 73 65 71 2d 65 6c 74 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20	".[(error).seq-elt.nil].5.(#$...
5440	32 31 33 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 5c 33 30	21374)]).(byte-code."\300\301\30
5460	32 5c 33 30 31 5c 33 30 33 5c 33 30 34 23 5c 33 30 35 23 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c	2\301\303\304#\305#\210\306\301\
5480	33 30 34 5c 33 30 33 5c 33 30 34 5c 33 30 37 25 5c 32 31 30 5c 33 31 30 5c 33 31 31 21 5c 32 30	304\303\304\307%\210\310\311!\20
54a0	37 22 20 5b 64 65 66 61 6c 69 61 73 20 73 65 71 2d 72 61 6e 64 6f 6d 2d 65 6c 74 20 63 6c 2d 67	7".[defalias.seq-random-elt.cl-g
54c0	65 6e 65 72 69 63 2d 64 65 66 69 6e 65 20 28 73 65 71 75 65 6e 63 65 29 20 6e 69 6c 20 22 52 65	eneric-define.(sequence).nil."Re
54e0	74 75 72 6e 20 61 20 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	turn.a.random.element.from.SEQUE
5500	4e 43 45 2e 5c 6e 53 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 20 69 66 20 53 45 51 55 45 4e 43	NCE.\nSignal.an.error.if.SEQUENC
5520	45 20 69 73 20 65 6d 70 74 79 2e 5c 6e 5c 6e 28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 20 63 6c	E.is.empty.\n\n(fn.SEQUENCE)".cl
5540	2d 67 65 6e 65 72 69 63 2d 64 65 66 69 6e 65 2d 6d 65 74 68 6f 64 20 23 5b 32 35 37 20 22 5c 33	-generic-define-method.#[257."\3
5560	30 30 01 21 5c 32 30 33 5c 6e 00 5c 33 30 31 5c 33 30 32 21 5c 32 30 37 5c 33 30 33 01 5c 33 30	00.!\203\n.\301\302!\207\303.\30
5580	34 5c 33 30 35 04 21 21 5c 22 5c 32 30 37 22 20 5b 73 65 71 2d 65 6d 70 74 79 2d 70 20 65 72 72	4\305.!!\"\207".[seq-empty-p.err
55a0	6f 72 20 22 53 65 71 75 65 6e 63 65 20 63 61 6e 6e 6f 74 20 62 65 20 65 6d 70 74 79 22 20 73 65	or."Sequence.cannot.be.empty".se
55c0	71 2d 65 6c 74 20 72 61 6e 64 6f 6d 20 73 65 71 2d 6c 65 6e 67 74 68 5d 20 36 20 22 5c 6e 5c 6e	q-elt.random.seq-length].6."\n\n
55e0	28 66 6e 20 53 45 51 55 45 4e 43 45 29 22 5d 20 70 72 6f 76 69 64 65 20 73 65 71 2d 32 35 5d 20	(fn.SEQUENCE)"].provide.seq-25].
5600	36 29 0a	6).