blob: d324196e78f40d869a28849fa36a4b8cae18ddae (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1c 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 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.28.1.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 23 40 31 32 33 20 50 72 65 64 65 66 69 6e 65 64 20	imizations.....#@123.Predefined.
0060	61 6c 69 73 74 20 6f 66 20 73 70 69 6e 6e 65 72 73 2e 0a 45 61 63 68 20 63 61 72 20 69 73 20 61	alist.of.spinners..Each.car.is.a
0080	20 73 79 6d 62 6f 6c 20 69 64 65 6e 74 69 66 79 69 6e 67 20 74 68 65 20 73 70 69 6e 6e 65 72 2c	.symbol.identifying.the.spinner,
00a0	20 61 6e 64 20 65 61 63 68 20 63 64 72 20 69 73 20 61 0a 76 65 63 74 6f 72 2c 20 74 68 65 20 73	.and.each.cdr.is.a.vector,.the.s
00c0	70 69 6e 6e 65 72 20 69 74 73 65 6c 66 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 73 70 69 6e 6e 65	pinner.itself...(defconst.spinne
00e0	72 2d 74 79 70 65 73 20 27 28 28 33 2d 6c 69 6e 65 2d 63 6c 6f 63 6b 20 2e 20 5b 22 e2 94 a4 22	r-types.'((3-line-clock...["..."
0100	20 22 e2 94 98 22 20 22 e2 94 b4 22 20 22 e2 94 94 22 20 22 e2 94 9c 22 20 22 e2 94 8c 22 20 22	."..."."..."."..."."..."."..."."
0120	e2 94 ac 22 20 22 e2 94 90 22 5d 29 20 28 32 2d 6c 69 6e 65 2d 63 6c 6f 63 6b 20 2e 20 5b 22 e2	..."."..."]).(2-line-clock...[".
0140	94 98 22 20 22 e2 94 94 22 20 22 e2 94 8c 22 20 22 e2 94 90 22 5d 29 20 28 66 6c 69 70 70 69 6e	.."."..."."..."."..."]).(flippin
0160	67 2d 6c 69 6e 65 20 2e 20 5b 22 5f 22 20 22 5c 5c 22 20 22 7c 22 20 22 2f 22 5d 29 20 28 72 6f	g-line...["_"."\\"."|"."/"]).(ro
0180	74 61 74 69 6e 67 2d 6c 69 6e 65 20 2e 20 5b 22 2d 22 20 22 5c 5c 22 20 22 7c 22 20 22 2f 22 5d	tating-line...["-"."\\"."|"."/"]
01a0	29 20 28 70 72 6f 67 72 65 73 73 2d 62 61 72 20 2e 20 5b 22 5b 20 20 20 20 5d 22 20 22 5b 3d 20	).(progress-bar...["[....]"."[=.
01c0	20 20 5d 22 20 22 5b 3d 3d 20 20 5d 22 20 22 5b 3d 3d 3d 20 5d 22 20 22 5b 3d 3d 3d 3d 5d 22 20	..]"."[==..]"."[===.]"."[====]".
01e0	22 5b 20 3d 3d 3d 5d 22 20 22 5b 20 20 3d 3d 5d 22 20 22 5b 20 20 20 3d 5d 22 5d 29 20 28 70 72	"[.===]"."[..==]"."[...=]"]).(pr
0200	6f 67 72 65 73 73 2d 62 61 72 2d 66 69 6c 6c 65 64 20 2e 20 5b 22 7c 20 20 20 20 7c 22 20 22 7c	ogress-bar-filled...["|....|"."|
0220	e2 96 88 20 20 20 7c 22 20 22 7c e2 96 88 e2 96 88 20 20 7c 22 20 22 7c e2 96 88 e2 96 88 e2 96	......|"."|........|"."|........
0240	88 20 7c 22 20 22 7c e2 96 88 e2 96 88 e2 96 88 e2 96 88 7c 22 20 22 7c 20 e2 96 88 e2 96 88 e2	..|"."|............|"."|........
0260	96 88 7c 22 20 22 7c 20 20 e2 96 88 e2 96 88 7c 22 20 22 7c 20 20 20 e2 96 88 7c 22 5d 29 20 28	..|"."|........|"."|......|"]).(
0280	76 65 72 74 69 63 61 6c 2d 62 72 65 61 74 68 69 6e 67 20 2e 20 5b 22 e2 96 81 22 20 22 e2 96 82	vertical-breathing...["..."."...
02a0	22 20 22 e2 96 83 22 20 22 e2 96 84 22 20 22 e2 96 85 22 20 22 e2 96 86 22 20 22 e2 96 87 22 20	"."..."."..."."..."."..."."...".
02c0	22 e2 96 88 22 20 22 e2 96 87 22 20 22 e2 96 86 22 20 22 e2 96 85 22 20 22 e2 96 84 22 20 22 e2	"..."."..."."..."."..."."...".".
02e0	96 83 22 20 22 e2 96 82 22 20 22 e2 96 81 22 20 22 20 22 5d 29 20 28 76 65 72 74 69 63 61 6c 2d	.."."..."."..."."."]).(vertical-
0300	72 69 73 69 6e 67 20 2e 20 5b 22 e2 96 81 22 20 22 e2 96 84 22 20 22 e2 96 88 22 20 22 e2 96 80	rising...["..."."..."."..."."...
0320	22 20 22 e2 96 94 22 5d 29 20 28 68 6f 72 69 7a 6f 6e 74 61 6c 2d 62 72 65 61 74 68 69 6e 67 20	"."..."]).(horizontal-breathing.
0340	2e 20 5b 22 20 22 20 22 e2 96 8f 22 20 22 e2 96 8e 22 20 22 e2 96 8d 22 20 22 e2 96 8c 22 20 22	..["."."..."."..."."..."."..."."
0360	e2 96 8b 22 20 22 e2 96 8a 22 20 22 e2 96 89 22 20 22 e2 96 89 22 20 22 e2 96 8a 22 20 22 e2 96	..."."..."."..."."..."."..."."..
0380	8b 22 20 22 e2 96 8c 22 20 22 e2 96 8d 22 20 22 e2 96 8e 22 20 22 e2 96 8f 22 5d 29 20 28 68 6f	."."..."."..."."..."."..."]).(ho
03a0	72 69 7a 6f 6e 74 61 6c 2d 62 72 65 61 74 68 69 6e 67 2d 6c 6f 6e 67 20 2e 20 5b 22 20 20 22 20	rizontal-breathing-long...["..".
03c0	22 e2 96 8e 20 22 20 22 e2 96 8c 20 22 20 22 e2 96 8a 20 22 20 22 e2 96 88 20 22 20 22 e2 96 88	"...."."...."."...."."...."."...
03e0	e2 96 8e 22 20 22 e2 96 88 e2 96 8c 22 20 22 e2 96 88 e2 96 8a 22 20 22 e2 96 88 e2 96 88 22 20	..."."......"."......"."......".
0400	22 e2 96 88 e2 96 8a 22 20 22 e2 96 88 e2 96 8c 22 20 22 e2 96 88 e2 96 8e 22 20 22 e2 96 88 20	"......"."......"."......"."....
0420	22 20 22 e2 96 8a 20 22 20 22 e2 96 8b 20 22 20 22 e2 96 8c 20 22 20 22 e2 96 8d 20 22 20 22 e2	"."...."."...."."...."."....".".
0440	96 8e 20 22 20 22 e2 96 8f 20 22 5d 29 20 28 68 6f 72 69 7a 6f 6e 74 61 6c 2d 6d 6f 76 69 6e 67	..."."...."]).(horizontal-moving
0460	20 2e 20 5b 22 20 20 22 20 22 e2 96 8c 20 22 20 22 e2 96 88 20 22 20 22 e2 96 90 e2 96 8c 22 20	...[".."."...."."...."."......".
0480	22 20 e2 96 88 22 20 22 20 e2 96 90 22 5d 29 20 28 6d 69 6e 69 62 6f 78 20 2e 20 5b 22 e2 96 96	"...."."...."]).(minibox...["...
04a0	22 20 22 e2 96 98 22 20 22 e2 96 9d 22 20 22 e2 96 97 22 5d 29 20 28 74 72 69 61 6e 67 6c 65 20	"."..."."..."."..."]).(triangle.
04c0	2e 20 5b 22 e2 97 a2 22 20 22 e2 97 a3 22 20 22 e2 97 a4 22 20 22 e2 97 a5 22 5d 29 20 28 62 6f	..["..."."..."."..."."..."]).(bo
04e0	78 2d 69 6e 2d 62 6f 78 20 2e 20 5b 22 e2 97 b0 22 20 22 e2 97 b3 22 20 22 e2 97 b2 22 20 22 e2	x-in-box...["..."."..."."...".".
0500	97 b1 22 5d 29 20 28 62 6f 78 2d 69 6e 2d 63 69 72 63 6c 65 20 2e 20 5b 22 e2 97 b4 22 20 22 e2	.."]).(box-in-circle...["...".".
0520	97 b7 22 20 22 e2 97 b6 22 20 22 e2 97 b5 22 5d 29 20 28 68 61 6c 66 2d 63 69 72 63 6c 65 20 2e	.."."..."."..."]).(half-circle..
0540	20 5b 22 e2 97 90 22 20 22 e2 97 93 22 20 22 e2 97 91 22 20 22 e2 97 92 22 5d 29 20 28 6d 6f 6f	.["..."."..."."..."."..."]).(moo
0560	6e 20 2e 20 5b 22 f0 9f 8c 91 22 20 22 f0 9f 8c 98 22 20 22 f0 9f 8c 97 22 20 22 f0 9f 8c 96 22	n...["...."."...."."...."."...."
0580	20 22 f0 9f 8c 95 22 20 22 f0 9f 8c 94 22 20 22 f0 9f 8c 93 22 20 22 f0 9f 8c 92 22 5d 29 29 20	."...."."...."."...."."...."])).
05a0	28 23 24 20 2e 20 38 35 29 29 0a 23 40 32 36 32 20 52 65 74 75 72 6e 20 61 20 76 65 63 74 6f 72	(#$...85)).#@262.Return.a.vector
05c0	20 6f 66 20 73 74 72 69 6e 67 73 20 6f 66 20 74 68 65 20 67 69 76 65 6e 20 57 49 44 54 48 2e 0a	.of.strings.of.the.given.WIDTH..
05e0	54 68 65 20 76 65 63 74 6f 72 20 69 73 20 61 20 76 61 6c 69 64 20 73 70 69 6e 6e 65 72 20 74 79	The.vector.is.a.valid.spinner.ty
0600	70 65 20 61 6e 64 20 69 73 20 73 69 6d 69 6c 61 72 20 74 6f 20 74 68 65 0a 60 70 72 6f 67 72 65	pe.and.is.similar.to.the.`progre
0620	73 73 2d 62 61 72 27 20 73 70 69 6e 6e 65 72 2c 20 65 78 63 65 70 74 20 77 69 74 68 6f 75 74 20	ss-bar'.spinner,.except.without.
0640	74 68 65 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 62 72 61 63 6b 65 74 73 2e 0a 43 48 41 52 20 69	the.surrounding.brackets..CHAR.i
0660	73 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 75 73 65 20 66 6f 72 20 74 68 65 20 6d	s.the.character.to.use.for.the.m
0680	6f 76 69 6e 67 20 62 61 72 20 28 64 65 66 61 75 6c 74 73 20 74 6f 20 3d 29 2e 0a 0a 28 66 6e 20	oving.bar.(defaults.to.=)...(fn.
06a0	57 49 44 54 48 20 26 6f 70 74 69 6f 6e 61 6c 20 43 48 41 52 29 1f 0a 28 64 65 66 61 6c 69 61 73	WIDTH.&optional.CHAR)..(defalias
06c0	20 27 73 70 69 6e 6e 65 72 2d 6d 61 6b 65 2d 70 72 6f 67 72 65 73 73 2d 62 61 72 20 23 5b 35 31	.'spinner-make-progress-bar.#[51
06e0	33 20 22 5c 33 30 30 02 53 5c 33 30 31 5c 22 5c 33 30 30 5c 33 30 32 03 5c 32 30 36 5c 66 00 5c	3."\300.S\301\"\300\302.\206\f.\
0700	33 30 33 5c 22 5c 33 30 30 04 5c 33 30 31 5c 22 51 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30	303\"\300.\301\"Q\304\305\306\30
0720	37 5c 33 31 30 06 07 06 06 23 5c 33 31 31 06 07 5c 33 31 32 5c 5c 5c 33 31 33 5c 33 31 34 23 5c	7\310....#\311..\312\\\313\314#\
0740	22 5c 22 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 74 72 69 6e 67 20 33 32 20 34 20 36 31 20 61 70	"\"\207".[make-string.32.4.61.ap
0760	70 6c 79 20 76 65 63 74 6f 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23	ply.vector.mapcar.make-closure.#
0780	5b 32 35 37 20 22 5c 33 30 31 01 5c 32 31 31 5c 33 30 30 5c 5c 4f 5c 32 30 37 22 20 5b 56 30 20	[257."\301.\211\300\\O\207".[V0.
07a0	56 31 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 4e 29 22 5d 20 6e 75 6d 62 65 72 2d 73 65 71 75 65	V1].5."\n\n(fn.N)"].number-seque
07c0	6e 63 65 20 33 20 30 20 2d 31 5d 20 31 31 20 28 23 24 20 2e 20 31 34 35 37 29 5d 29 0a 23 40 36	nce.3.0.-1].11.(#$...1457)]).#@6
07e0	33 20 53 70 69 6e 6e 65 72 20 63 75 72 72 65 6e 74 6c 79 20 62 65 69 6e 67 20 64 69 73 70 6c 61	3.Spinner.currently.being.displa
0800	79 65 64 20 6f 6e 20 74 68 65 20 60 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 27 2e 1f	yed.on.the.`mode-line-process'..
0820	0a 28 64 65 66 76 61 72 20 73 70 69 6e 6e 65 72 2d 63 75 72 72 65 6e 74 20 6e 69 6c 20 28 23 24	.(defvar.spinner-current.nil.(#$
0840	20 2e 20 32 30 31 38 29 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d	...2018)).(make-variable-buffer-
0860	6c 6f 63 61 6c 20 27 73 70 69 6e 6e 65 72 2d 63 75 72 72 65 6e 74 29 0a 23 40 36 31 20 43 6f 6e	local.'spinner-current).#@61.Con
0880	73 74 72 75 63 74 20 75 73 65 64 20 74 6f 20 64 69 73 70 6c 61 79 20 61 20 73 70 69 6e 6e 65 72	struct.used.to.display.a.spinner
08a0	20 69 6e 20 60 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 27 2e 1f 0a 28 64 65 66 63 6f	.in.`mode-line-process'...(defco
08c0	6e 73 74 20 73 70 69 6e 6e 65 72 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 63 6f 6e 73 74 72 75 63 74	nst.spinner--mode-line-construct
08e0	20 27 28 3a 65 76 61 6c 20 28 73 70 69 6e 6e 65 72 2d 70 72 69 6e 74 20 73 70 69 6e 6e 65 72 2d	.'(:eval.(spinner-print.spinner-
0900	63 75 72 72 65 6e 74 29 29 20 28 23 24 20 2e 20 32 31 37 33 29 29 0a 28 70 75 74 20 27 73 70 69	current)).(#$...2173)).(put.'spi
0920	6e 6e 65 72 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 63 6f 6e 73 74 72 75 63 74 20 27 72 69 73 6b 79	nner--mode-line-construct.'risky
0940	2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 74 29 0a 23 40 39 39 20 44 65 66 61 75 6c 74 20	-local-variable.t).#@99.Default.
0960	73 70 65 65 64 20 61 74 20 77 68 69 63 68 20 73 70 69 6e 6e 65 72 73 20 73 70 69 6e 2c 20 69 6e	speed.at.which.spinners.spin,.in
0980	20 66 72 61 6d 65 73 20 70 65 72 20 73 65 63 6f 6e 64 2e 0a 45 61 63 68 20 73 70 69 6e 6e 65 72	.frames.per.second..Each.spinner
09a0	20 63 61 6e 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20 76 61 6c 75 65 2e 1f 0a 28 64 65 66 76	.can.override.this.value...(defv
09c0	61 72 20 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 31 30 20	ar.spinner-frames-per-second.10.
09e0	28 23 24 20 2e 20 32 33 39 32 29 29 0a 23 40 36 36 32 20 52 65 74 75 72 6e 20 61 20 76 65 63 74	(#$...2392)).#@662.Return.a.vect
0a00	6f 72 20 6f 66 20 66 72 61 6d 65 73 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 54 59	or.of.frames.corresponding.to.TY
0a20	50 45 2e 0a 54 68 65 20 6c 69 73 74 20 6f 66 20 70 6f 73 73 69 62 6c 65 20 62 75 69 6c 74 2d 69	PE..The.list.of.possible.built-i
0a40	6e 20 73 70 69 6e 6e 65 72 20 74 79 70 65 73 20 69 73 20 67 69 76 65 6e 20 62 79 20 74 68 65 0a	n.spinner.types.is.given.by.the.
0a60	60 73 70 69 6e 6e 65 72 2d 74 79 70 65 73 27 20 76 61 72 69 61 62 6c 65 2c 20 62 75 74 20 79 6f	`spinner-types'.variable,.but.yo
0a80	75 20 63 61 6e 20 61 6c 73 6f 20 75 73 65 20 79 6f 75 72 20 6f 77 6e 20 28 73 65 65 0a 62 65 6c	u.can.also.use.your.own.(see.bel
0aa0	6f 77 29 2e 0a 0a 49 66 20 54 59 50 45 20 69 73 20 6e 69 6c 2c 20 74 68 65 20 66 72 61 6d 65 73	ow)...If.TYPE.is.nil,.the.frames
0ac0	20 6f 66 20 74 68 69 73 20 73 70 69 6e 6e 65 72 20 61 72 65 20 67 69 76 65 6e 20 62 79 20 74 68	.of.this.spinner.are.given.by.th
0ae0	65 20 66 69 72 73 74 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 60 73 70 69 6e 6e 65 72 2d 74 79 70 65	e.first.element.of.`spinner-type
0b00	73 27 2e 0a 49 66 20 54 59 50 45 20 69 73 20 61 20 73 79 6d 62 6f 6c 2c 20 69 74 20 73 70 65 63	s'..If.TYPE.is.a.symbol,.it.spec
0b20	69 66 69 65 73 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 60 73 70 69 6e 6e 65 72 2d 74 79 70	ifies.an.element.of.`spinner-typ
0b40	65 73 27 2e 0a 49 66 20 54 59 50 45 20 69 73 20 27 72 61 6e 64 6f 6d 2c 20 75 73 65 20 61 20 72	es'..If.TYPE.is.'random,.use.a.r
0b60	61 6e 64 6f 6d 20 65 6c 65 6d 65 6e 74 20 6f 66 20 60 73 70 69 6e 6e 65 72 2d 74 79 70 65 73 27	andom.element.of.`spinner-types'
0b80	2e 0a 49 66 20 54 59 50 45 20 69 73 20 61 20 6c 69 73 74 2c 20 69 74 20 73 68 6f 75 6c 64 20 62	..If.TYPE.is.a.list,.it.should.b
0ba0	65 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 2c 20 61 6e 64 20 61 20 72 61 6e 64 6f	e.a.list.of.symbols,.and.a.rando
0bc0	6d 0a 6f 6e 65 20 69 73 20 63 68 6f 73 65 6e 20 61 73 20 74 68 65 20 73 70 69 6e 6e 65 72 20 74	m.one.is.chosen.as.the.spinner.t
0be0	79 70 65 2e 0a 49 66 20 54 59 50 45 20 69 73 20 61 20 76 65 63 74 6f 72 2c 20 69 74 20 73 68 6f	ype..If.TYPE.is.a.vector,.it.sho
0c00	75 6c 64 20 62 65 20 61 20 76 65 63 74 6f 72 20 6f 66 20 73 74 72 69 6e 67 73 20 61 6e 64 20 74	uld.be.a.vector.of.strings.and.t
0c20	68 65 73 65 0a 61 72 65 20 75 73 65 64 20 61 73 20 74 68 65 20 73 70 69 6e 6e 65 72 27 73 20 66	hese.are.used.as.the.spinner's.f
0c40	72 61 6d 65 73 2e 20 20 54 68 69 73 20 61 6c 6c 6f 77 73 20 79 6f 75 20 74 6f 20 6d 61 6b 65 20	rames...This.allows.you.to.make.
0c60	79 6f 75 72 0a 6f 77 6e 20 73 70 69 6e 6e 65 72 20 61 6e 69 6d 61 74 69 6f 6e 73 2e 0a 0a 28 66	your.own.spinner.animations...(f
0c80	6e 20 54 59 50 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 74 79 70	n.TYPE)..(defalias.'spinner--typ
0ca0	65 2d 74 6f 2d 66 72 61 6d 65 73 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 5c 32 30 33 07 00 5c	e-to-frames.#[257."\301.!\203..\
0cc0	32 30 37 5c 32 31 31 5c 33 30 32 5c 32 36 37 5c 32 30 32 19 00 08 40 41 5c 32 30 37 08 5c 33 30	207\211\302\267\202...@A\207.\30
0ce0	33 08 47 21 5c 32 33 34 41 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 28 00 5c 32 31 31 5c 33 30 33	3.G!\234A\207\211<\203(.\211\303
0d00	02 47 21 5c 32 33 34 08 5c 32 33 36 41 5c 32 30 37 5c 32 31 31 39 5c 32 30 33 32 00 5c 32 31 31	.G!\234.\236A\207\2119\2032.\211
0d20	08 5c 32 33 36 41 5c 32 30 37 5c 33 30 34 5c 33 30 35 02 5c 22 5c 32 30 37 22 20 5b 73 70 69 6e	.\236A\207\304\305.\"\207".[spin
0d40	6e 65 72 2d 74 79 70 65 73 20 76 65 63 74 6f 72 70 20 23 73 28 68 61 73 68 2d 74 61 62 6c 65 20	ner-types.vectorp.#s(hash-table.
0d60	73 69 7a 65 20 32 20 74 65 73 74 20 65 71 20 72 65 68 61 73 68 2d 73 69 7a 65 20 31 2e 35 20 72	size.2.test.eq.rehash-size.1.5.r
0d80	65 68 61 73 68 2d 74 68 72 65 73 68 6f 6c 64 20 30 2e 38 31 32 35 20 70 75 72 65 63 6f 70 79 20	ehash-threshold.0.8125.purecopy.
0da0	74 20 64 61 74 61 20 28 6e 69 6c 20 31 33 20 72 61 6e 64 6f 6d 20 31 37 29 29 20 72 61 6e 64 6f	t.data.(nil.13.random.17)).rando
0dc0	6d 20 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 73 70 69 6e 6e 65 72 20 74 79 70 65 3a 20 25	m.error."Unknown.spinner.type:.%
0de0	73 22 5d 20 34 20 28 23 24 20 2e 20 32 35 34 37 29 5d 29 0a 23 40 36 36 20 63 6f 6d 70 69 6c 65	s"].4.(#$...2547)]).#@66.compile
0e00	72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 6e 67 20 60 73 70 69 6e 6e 65 72 2d 70 27	r-macro.for.inlining.`spinner-p'
0e20	2e 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61	...(fn.CL-WHOLE-ARG.CL-X)..(defa
0e40	6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 70 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c	lias.'spinner-p--cmacro.#[514."\
0e60	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22	300\301\302\303\211\211..&.\207"
0e80	20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c	.[cl--defsubst-expand.(cl-x).(cl
0ea0	2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 70 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 74 79 70	-block.spinner-p.(and.(memq.(typ
0ec0	65 2d 6f 66 20 63 6c 2d 78 29 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67	e-of.cl-x).cl-struct-spinner-tag
0ee0	73 29 20 74 29 29 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 33 35 37 37 29 5d 29 0a 28 70 75 74	s).t)).nil].9.(#$...3577)]).(put
0f00	20 27 73 70 69 6e 6e 65 72 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69	.'spinner-p.'compiler-macro.'spi
0f20	6e 6e 65 72 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 31 33 20 0a 0a 28 66 6e 20 43 4c 2d 58 29	nner-p--cmacro).#@13...(fn.CL-X)
0f40	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 70 20 23 5b 32 35 37 20 22 5c 33	..(defalias.'spinner-p.#[257."\3
0f60	30 31 01 21 08 3e 5c 32 30 35 09 00 5c 33 30 32 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74	01.!.>\205..\302\207".[cl-struct
0f80	2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 74 5d 20 33 20 28 23 24 20 2e	-spinner-tags.type-of.t].3.(#$..
0fa0	20 33 38 39 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	.3893)]).(byte-code."\300\301\30
0fc0	32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 31 23 5c 32 30 37 22 20 5b 66 75	2\303#\304\305\306\301#\207".[fu
0fe0	6e 63 74 69 6f 6e 2d 70 75 74 20 73 70 69 6e 6e 65 72 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74	nction-put.spinner-p.side-effect
1000	2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 70 75 74 20 73 70 69 6e 6e 65 72 20 63 6c 2d	-free.error-free.put.spinner.cl-
1020	64 65 66 74 79 70 65 2d 73 61 74 69 73 66 69 65 73 5d 20 35 29 0a 23 40 37 32 20 63 6f 6d 70 69	deftype-satisfies].5).#@72.compi
1040	6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 6e 67 20 60 73 70 69 6e 6e 65 72 2d	ler-macro.for.inlining.`spinner-
1060	2d 66 72 61 6d 65 73 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58	-frames'...(fn.CL-WHOLE-ARG.CL-X
1080	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 2d 2d 63	)..(defalias.'spinner--frames--c
10a0	6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31	macro.#[514."\300\301\302\303\21
10c0	31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70	1\211..&.\207".[cl--defsubst-exp
10e0	61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 2d 66 72	and.(cl-x).(cl-block.spinner--fr
1100	61 6d 65 73 20 28 70 72 6f 67 6e 20 28 6f 72 20 28 73 70 69 6e 6e 65 72 2d 70 20 63 6c 2d 78 29	ames.(progn.(or.(spinner-p.cl-x)
1120	20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c	.(signal.'wrong-type-argument.(l
1140	69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20	ist.'spinner.cl-x))).(aref.cl-x.
1160	31 29 29 29 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 34 31 35 35 29 5d 29 0a 28 70 75 74 20 27	1))).nil].9.(#$...4155)]).(put.'
1180	73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20	spinner--frames.'compiler-macro.
11a0	27 73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 35 39 20 41	'spinner--frames--cmacro).#@59.A
11c0	63 63 65 73 73 20 73 6c 6f 74 20 22 66 72 61 6d 65 73 22 20 6f 66 20 60 73 70 69 6e 6e 65 72 27	ccess.slot."frames".of.`spinner'
11e0	20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c	.struct.CL-X...(fn.CL-X)..(defal
1200	69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 20 23 5b 32 35 37 20 22 5c 33 30 31	ias.'spinner--frames.#[257."\301
1220	01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32	.!.>\204..\302\303\304.D\"\210\2
1240	31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d	11\305H\207".[cl-struct-spinner-
1260	74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61	tags.type-of.signal.wrong-type-a
1280	72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 31 5d 20 35 20 28 23 24 20 2e 20 34 35 34 33 29	rgument.spinner.1].5.(#$...4543)
12a0	5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	]).(byte-code."\300\301\302\303#
12c0	5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 70 69 6e 6e 65 72 2d	\300\207".[function-put.spinner-
12e0	2d 66 72 61 6d 65 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23	-frames.side-effect-free.t].4).#
1300	40 37 33 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 6e 67 20	@73.compiler-macro.for.inlining.
1320	60 73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c	`spinner--counter'...(fn.CL-WHOL
1340	45 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d	E-ARG.CL-X)..(defalias.'spinner-
1360	2d 63 6f 75 6e 74 65 72 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31	-counter--cmacro.#[514."\300\301
1380	5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64	\302\303\211\211..&.\207".[cl--d
13a0	65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20	efsubst-expand.(cl-x).(cl-block.
13c0	73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 20 28 70 72 6f 67 6e 20 28 6f 72 20 28 73 70 69	spinner--counter.(progn.(or.(spi
13e0	6e 6e 65 72 2d 70 20 63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65	nner-p.cl-x).(signal.'wrong-type
1400	2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29	-argument.(list.'spinner.cl-x)))
1420	20 28 61 72 65 66 20 63 6c 2d 78 20 32 29 29 29 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 34 38	.(aref.cl-x.2))).nil].9.(#$...48
1440	36 38 29 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 20 27 63 6f	68)]).(put.'spinner--counter.'co
1460	6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 2d 2d	mpiler-macro.'spinner--counter--
1480	63 6d 61 63 72 6f 29 0a 23 40 36 30 20 41 63 63 65 73 73 20 73 6c 6f 74 20 22 63 6f 75 6e 74 65	cmacro).#@60.Access.slot."counte
14a0	72 22 20 6f 66 20 60 73 70 69 6e 6e 65 72 27 20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66	r".of.`spinner'.struct.CL-X...(f
14c0	6e 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 63 6f 75	n.CL-X)..(defalias.'spinner--cou
14e0	6e 74 65 72 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33	nter.#[257."\301.!.>\204..\302\3
1500	30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c	03\304.D\"\210\211\305H\207".[cl
1520	2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69 67	-struct-spinner-tags.type-of.sig
1540	6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20	nal.wrong-type-argument.spinner.
1560	32 5d 20 35 20 28 23 24 20 2e 20 35 32 36 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	2].5.(#$...5261)]).(byte-code."\
1580	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74	300\301\302\303#\300\207".[funct
15a0	69 6f 6e 2d 70 75 74 20 73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 20 73 69 64 65 2d 65 66	ion-put.spinner--counter.side-ef
15c0	66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 36 39 20 63 6f 6d 70 69 6c 65 72 2d 6d 61	fect-free.t].4).#@69.compiler-ma
15e0	63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 6e 67 20 60 73 70 69 6e 6e 65 72 2d 2d 66 70 73 27 2e	cro.for.inlining.`spinner--fps'.
1600	0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c	..(fn.CL-WHOLE-ARG.CL-X)..(defal
1620	69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 66 70 73 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20	ias.'spinner--fps--cmacro.#[514.
1640	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30	"\300\301\302\303\211\211..&.\20
1660	37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28	7".[cl--defsubst-expand.(cl-x).(
1680	63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 2d 66 70 73 20 28 70 72 6f 67 6e 20 28 6f 72	cl-block.spinner--fps.(progn.(or
16a0	20 28 73 70 69 6e 6e 65 72 2d 70 20 63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67	.(spinner-p.cl-x).(signal.'wrong
16c0	2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c	-type-argument.(list.'spinner.cl
16e0	2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 33 29 29 29 20 6e 69 6c 5d 20 39 20 28 23 24	-x))).(aref.cl-x.3))).nil].9.(#$
1700	20 2e 20 35 35 38 39 29 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 66 70 73 20 27 63	...5589)]).(put.'spinner--fps.'c
1720	6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 66 70 73 2d 2d 63 6d 61	ompiler-macro.'spinner--fps--cma
1740	63 72 6f 29 0a 23 40 35 36 20 41 63 63 65 73 73 20 73 6c 6f 74 20 22 66 70 73 22 20 6f 66 20 60	cro).#@56.Access.slot."fps".of.`
1760	73 70 69 6e 6e 65 72 27 20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c 2d 58 29	spinner'.struct.CL-X...(fn.CL-X)
1780	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 66 70 73 20 23 5b 32 35 37 20	..(defalias.'spinner--fps.#[257.
17a0	22 5c 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c	"\301.!.>\204..\302\303\304.D\"\
17c0	32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69	210\211\305H\207".[cl-struct-spi
17e0	6e 6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74	nner-tags.type-of.signal.wrong-t
1800	79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 33 5d 20 35 20 28 23 24 20 2e 20	ype-argument.spinner.3].5.(#$...
1820	35 39 36 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	5962)]).(byte-code."\300\301\302
1840	5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 70 69	\303#\300\207".[function-put.spi
1860	6e 6e 65 72 2d 2d 66 70 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29	nner--fps.side-effect-free.t].4)
1880	0a 23 40 37 31 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 6e	.#@71.compiler-macro.for.inlinin
18a0	67 20 60 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c	g.`spinner--timer'...(fn.CL-WHOL
18c0	45 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d	E-ARG.CL-X)..(defalias.'spinner-
18e0	2d 74 69 6d 65 72 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33	-timer--cmacro.#[514."\300\301\3
1900	30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66	02\303\211\211..&.\207".[cl--def
1920	73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70	subst-expand.(cl-x).(cl-block.sp
1940	69 6e 6e 65 72 2d 2d 74 69 6d 65 72 20 28 70 72 6f 67 6e 20 28 6f 72 20 28 73 70 69 6e 6e 65 72	inner--timer.(progn.(or.(spinner
1960	2d 70 20 63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67	-p.cl-x).(signal.'wrong-type-arg
1980	75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72	ument.(list.'spinner.cl-x))).(ar
19a0	65 66 20 63 6c 2d 78 20 34 29 29 29 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 36 32 37 38 29 5d	ef.cl-x.4))).nil].9.(#$...6278)]
19c0	29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 20 27 63 6f 6d 70 69 6c 65 72	).(put.'spinner--timer.'compiler
19e0	2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 2d 2d 63 6d 61 63 72 6f 29 0a	-macro.'spinner--timer--cmacro).
1a00	23 40 35 38 20 41 63 63 65 73 73 20 73 6c 6f 74 20 22 74 69 6d 65 72 22 20 6f 66 20 60 73 70 69	#@58.Access.slot."timer".of.`spi
1a20	6e 6e 65 72 27 20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c 2d 58 29 1f 0a 28	nner'.struct.CL-X...(fn.CL-X)..(
1a40	64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 20 23 5b 32 35 37 20 22	defalias.'spinner--timer.#[257."
1a60	5c 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32	\301.!.>\204..\302\303\304.D\"\2
1a80	31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e	10\211\305H\207".[cl-struct-spin
1aa0	6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79	ner-tags.type-of.signal.wrong-ty
1ac0	70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 34 5d 20 35 20 28 23 24 20 2e 20 36	pe-argument.spinner.4].5.(#$...6
1ae0	36 36 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c	661)]).(byte-code."\300\301\302\
1b00	33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 70 69 6e	303#\300\207".[function-put.spin
1b20	6e 65 72 2d 2d 74 69 6d 65 72 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34	ner--timer.side-effect-free.t].4
1b40	29 0a 23 40 37 34 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69	).#@74.compiler-macro.for.inlini
1b60	6e 67 20 60 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69 76 65 2d 70 27 2e 0a 0a 28 66 6e 20 43 4c 2d	ng.`spinner--active-p'...(fn.CL-
1b80	57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e	WHOLE-ARG.CL-X)..(defalias.'spin
1ba0	6e 65 72 2d 2d 61 63 74 69 76 65 2d 70 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30	ner--active-p--cmacro.#[514."\30
1bc0	30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b	0\301\302\303\211\211..&.\207".[
1be0	63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62	cl--defsubst-expand.(cl-x).(cl-b
1c00	6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69 76 65 2d 70 20 28 70 72 6f 67 6e 20 28 6f	lock.spinner--active-p.(progn.(o
1c20	72 20 28 73 70 69 6e 6e 65 72 2d 70 20 63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e	r.(spinner-p.cl-x).(signal.'wron
1c40	67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63	g-type-argument.(list.'spinner.c
1c60	6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 35 29 29 29 20 6e 69 6c 5d 20 39 20 28 23	l-x))).(aref.cl-x.5))).nil].9.(#
1c80	24 20 2e 20 36 39 38 33 29 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69 76	$...6983)]).(put.'spinner--activ
1ca0	65 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 61 63	e-p.'compiler-macro.'spinner--ac
1cc0	74 69 76 65 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 36 31 20 41 63 63 65 73 73 20 73 6c 6f 74	tive-p--cmacro).#@61.Access.slot
1ce0	20 22 61 63 74 69 76 65 2d 70 22 20 6f 66 20 60 73 70 69 6e 6e 65 72 27 20 73 74 72 75 63 74 20	."active-p".of.`spinner'.struct.
1d00	43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69	CL-X...(fn.CL-X)..(defalias.'spi
1d20	6e 6e 65 72 2d 2d 61 63 74 69 76 65 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 08 3e 5c 32	nner--active-p.#[257."\301.!.>\2
1d40	30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35	04..\302\303\304.D\"\210\211\305
1d60	48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 74	H\207".[cl-struct-spinner-tags.t
1d80	79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e	ype-of.signal.wrong-type-argumen
1da0	74 20 73 70 69 6e 6e 65 72 20 35 5d 20 35 20 28 23 24 20 2e 20 37 33 38 31 29 5d 29 0a 28 62 79	t.spinner.5].5.(#$...7381)]).(by
1dc0	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32	te-code."\300\301\302\303#\300\2
1de0	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69 76	07".[function-put.spinner--activ
1e00	65 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 37 32 20	e-p.side-effect-free.t].4).#@72.
1e20	63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 6e 67 20 60 73 70 69	compiler-macro.for.inlining.`spi
1e40	6e 6e 65 72 2d 2d 62 75 66 66 65 72 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47	nner--buffer'...(fn.CL-WHOLE-ARG
1e60	20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75 66 66	.CL-X)..(defalias.'spinner--buff
1e80	65 72 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	er--cmacro.#[514."\300\301\302\3
1ea0	30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73	03\211\211..&.\207".[cl--defsubs
1ec0	74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65	t-expand.(cl-x).(cl-block.spinne
1ee0	72 2d 2d 62 75 66 66 65 72 20 28 70 72 6f 67 6e 20 28 6f 72 20 28 73 70 69 6e 6e 65 72 2d 70 20	r--buffer.(progn.(or.(spinner-p.
1f00	63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65	cl-x).(signal.'wrong-type-argume
1f20	6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20	nt.(list.'spinner.cl-x))).(aref.
1f40	63 6c 2d 78 20 36 29 29 29 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 37 37 31 32 29 5d 29 0a 28	cl-x.6))).nil].9.(#$...7712)]).(
1f60	70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75 66 66 65 72 20 27 63 6f 6d 70 69 6c 65 72 2d 6d	put.'spinner--buffer.'compiler-m
1f80	61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75 66 66 65 72 2d 2d 63 6d 61 63 72 6f 29 0a 23	acro.'spinner--buffer--cmacro).#
1fa0	40 35 39 20 41 63 63 65 73 73 20 73 6c 6f 74 20 22 62 75 66 66 65 72 22 20 6f 66 20 60 73 70 69	@59.Access.slot."buffer".of.`spi
1fc0	6e 6e 65 72 27 20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c 2d 58 29 1f 0a 28	nner'.struct.CL-X...(fn.CL-X)..(
1fe0	64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75 66 66 65 72 20 23 5b 32 35 37 20	defalias.'spinner--buffer.#[257.
2000	22 5c 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c	"\301.!.>\204..\302\303\304.D\"\
2020	32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69	210\211\305H\207".[cl-struct-spi
2040	6e 6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74	nner-tags.type-of.signal.wrong-t
2060	79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 36 5d 20 35 20 28 23 24 20 2e 20	ype-argument.spinner.6].5.(#$...
2080	38 31 30 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	8100)]).(byte-code."\300\301\302
20a0	5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 70 69	\303#\300\207".[function-put.spi
20c0	6e 6e 65 72 2d 2d 62 75 66 66 65 72 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d	nner--buffer.side-effect-free.t]
20e0	20 34 29 0a 23 40 37 31 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69	.4).#@71.compiler-macro.for.inli
2100	6e 69 6e 67 20 60 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57	ning.`spinner--delay'...(fn.CL-W
2120	48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e	HOLE-ARG.CL-X)..(defalias.'spinn
2140	65 72 2d 2d 64 65 6c 61 79 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30	er--delay--cmacro.#[514."\300\30
2160	31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d	1\302\303\211\211..&.\207".[cl--
2180	64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b	defsubst-expand.(cl-x).(cl-block
21a0	20 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 20 28 70 72 6f 67 6e 20 28 6f 72 20 28 73 70 69 6e	.spinner--delay.(progn.(or.(spin
21c0	6e 65 72 2d 70 20 63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d	ner-p.cl-x).(signal.'wrong-type-
21e0	61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29 20	argument.(list.'spinner.cl-x))).
2200	28 61 72 65 66 20 63 6c 2d 78 20 37 29 29 29 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 38 34 32	(aref.cl-x.7))).nil].9.(#$...842
2220	35 29 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 20 27 63 6f 6d 70 69	5)]).(put.'spinner--delay.'compi
2240	6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 2d 2d 63 6d 61 63 72	ler-macro.'spinner--delay--cmacr
2260	6f 29 0a 23 40 35 38 20 41 63 63 65 73 73 20 73 6c 6f 74 20 22 64 65 6c 61 79 22 20 6f 66 20 60	o).#@58.Access.slot."delay".of.`
2280	73 70 69 6e 6e 65 72 27 20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c 2d 58 29	spinner'.struct.CL-X...(fn.CL-X)
22a0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 20 23 5b 32 35	..(defalias.'spinner--delay.#[25
22c0	37 20 22 5c 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c	7."\301.!.>\204..\302\303\304.D\
22e0	22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73	"\210\211\305H\207".[cl-struct-s
2300	70 69 6e 6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67	pinner-tags.type-of.signal.wrong
2320	2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 37 5d 20 35 20 28 23 24 20	-type-argument.spinner.7].5.(#$.
2340	2e 20 38 38 30 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	..8808)]).(byte-code."\300\301\3
2360	30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73	02\303#\300\207".[function-put.s
2380	70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74	pinner--delay.side-effect-free.t
23a0	5d 20 34 29 0a 23 40 31 32 39 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e	].4).#@129.compiler-macro.for.in
23c0	6c 69 6e 69 6e 67 20 60 6d 61 6b 65 2d 73 70 69 6e 6e 65 72 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57	lining.`make-spinner'...(fn.CL-W
23e0	48 4f 4c 45 2d 41 52 47 20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 20 42 55 46 46 45 52 2d 4c	HOLE-ARG.&optional.TYPE.BUFFER-L
2400	4f 43 41 4c 20 46 52 41 4d 45 53 2d 50 45 52 2d 53 45 43 4f 4e 44 20 44 45 4c 41 59 2d 42 45 46	OCAL.FRAMES-PER-SECOND.DELAY-BEF
2420	4f 52 45 2d 53 54 41 52 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 73 70 69 6e	ORE-START)..(defalias.'make-spin
2440	6e 65 72 2d 2d 63 6d 61 63 72 6f 20 23 5b 31 32 38 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	ner--cmacro.#[1281."\300\301\302
2460	5c 33 30 33 5c 32 31 31 5c 32 31 31 06 09 06 09 06 09 06 09 26 09 5c 32 30 37 22 20 5b 63 6c 2d	\303\211\211........&.\207".[cl-
2480	2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 74 79 70 65 20 62 75 66 66 65 72 2d 6c 6f	-defsubst-expand.(type.buffer-lo
24a0	63 61 6c 20 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 64 65 6c 61 79 2d 62 65 66 6f	cal.frames-per-second.delay-befo
24c0	72 65 2d 73 74 61 72 74 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6d 61 6b 65 2d 73 70 69 6e 6e 65 72	re-start).(cl-block.make-spinner
24e0	20 28 72 65 63 6f 72 64 20 27 73 70 69 6e 6e 65 72 20 28 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65	.(record.'spinner.(spinner--type
2500	2d 74 6f 2d 66 72 61 6d 65 73 20 74 79 70 65 29 20 30 20 28 6f 72 20 66 72 61 6d 65 73 2d 70 65	-to-frames.type).0.(or.frames-pe
2520	72 2d 73 65 63 6f 6e 64 20 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f	r-second.spinner-frames-per-seco
2540	6e 64 29 20 28 74 69 6d 65 72 2d 63 72 65 61 74 65 29 20 6e 69 6c 20 28 77 68 65 6e 20 62 75 66	nd).(timer-create).nil.(when.buf
2560	66 65 72 2d 6c 6f 63 61 6c 20 28 69 66 20 28 62 75 66 66 65 72 70 20 62 75 66 66 65 72 2d 6c 6f	fer-local.(if.(bufferp.buffer-lo
2580	63 61 6c 29 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65	cal).buffer-local.(current-buffe
25a0	72 29 29 29 20 28 6f 72 20 64 65 6c 61 79 2d 62 65 66 6f 72 65 2d 73 74 61 72 74 20 30 29 29 29	r))).(or.delay-before-start.0)))
25c0	20 6e 69 6c 5d 20 31 35 20 28 23 24 20 2e 20 39 31 33 31 29 5d 29 0a 28 70 75 74 20 27 6d 61 6b	.nil].15.(#$...9131)]).(put.'mak
25e0	65 2d 73 70 69 6e 6e 65 72 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6d 61 6b 65 2d	e-spinner.'compiler-macro.'make-
2600	73 70 69 6e 6e 65 72 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 31 31 35 20 43 6f 6e 73 74 72 75 63 74	spinner--cmacro).#@115.Construct
2620	6f 72 20 66 6f 72 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 60 73 70 69 6e 6e 65 72 27	or.for.objects.of.type.`spinner'
2640	2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 20 42 55 46 46 45 52 2d 4c 4f 43	...(fn.&optional.TYPE.BUFFER-LOC
2660	41 4c 20 46 52 41 4d 45 53 2d 50 45 52 2d 53 45 43 4f 4e 44 20 44 45 4c 41 59 2d 42 45 46 4f 52	AL.FRAMES-PER-SECOND.DELAY-BEFOR
2680	45 2d 53 54 41 52 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 73 70 69 6e 6e 65	E-START)..(defalias.'make-spinne
26a0	72 20 23 5b 31 30 32 34 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 21 5c 33 30 34 05 5c 32	r.#[1024."\301\302\303..!\304.\2
26c0	30 36 5c 66 00 08 5c 33 30 35 20 5c 33 30 36 06 09 5c 32 30 35 21 00 5c 33 30 37 06 5c 6e 21 5c	06\f..\305.\306..\205!.\307.\n!\
26e0	32 30 33 20 00 06 09 5c 32 30 32 21 00 70 06 08 5c 32 30 36 27 00 5c 33 30 34 26 08 5c 32 30 37	203....\202!.p..\206'.\304&.\207
2700	22 20 5b 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 72 65 63	".[spinner-frames-per-second.rec
2720	6f 72 64 20 73 70 69 6e 6e 65 72 20 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65 2d 74 6f 2d 66 72 61	ord.spinner.spinner--type-to-fra
2740	6d 65 73 20 30 20 74 69 6d 65 72 2d 63 72 65 61 74 65 20 6e 69 6c 20 62 75 66 66 65 72 70 5d 20	mes.0.timer-create.nil.bufferp].
2760	31 33 20 28 23 24 20 2e 20 39 37 35 31 29 5d 29 0a 28 63 6c 2d 73 74 72 75 63 74 2d 64 65 66 69	13.(#$...9751)]).(cl-struct-defi
2780	6e 65 20 27 73 70 69 6e 6e 65 72 20 6e 69 6c 20 27 63 6c 2d 73 74 72 75 63 74 75 72 65 2d 6f 62	ne.'spinner.nil.'cl-structure-ob
27a0	6a 65 63 74 20 27 72 65 63 6f 72 64 20 6e 69 6c 20 27 28 28 63 6c 2d 74 61 67 2d 73 6c 6f 74 29	ject.'record.nil.'((cl-tag-slot)
27c0	20 28 66 72 61 6d 65 73 20 28 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65 2d 74 6f 2d 66 72 61 6d 65	.(frames.(spinner--type-to-frame
27e0	73 20 74 79 70 65 29 29 20 28 63 6f 75 6e 74 65 72 20 30 29 20 28 66 70 73 20 28 6f 72 20 66 72	s.type)).(counter.0).(fps.(or.fr
2800	61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70	ames-per-second.spinner-frames-p
2820	65 72 2d 73 65 63 6f 6e 64 29 29 20 28 74 69 6d 65 72 20 28 74 69 6d 65 72 2d 63 72 65 61 74 65	er-second)).(timer.(timer-create
2840	29 29 20 28 61 63 74 69 76 65 2d 70 20 6e 69 6c 29 20 28 62 75 66 66 65 72 20 28 77 68 65 6e 20	)).(active-p.nil).(buffer.(when.
2860	62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 69 66 20 28 62 75 66 66 65 72 70 20 62 75 66 66 65 72	buffer-local.(if.(bufferp.buffer
2880	2d 6c 6f 63 61 6c 29 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 63 75 72 72 65 6e 74 2d 62 75	-local).buffer-local.(current-bu
28a0	66 66 65 72 29 29 29 29 20 28 64 65 6c 61 79 20 28 6f 72 20 64 65 6c 61 79 2d 62 65 66 6f 72 65	ffer)))).(delay.(or.delay-before
28c0	2d 73 74 61 72 74 20 30 29 29 29 20 27 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74	-start.0))).'cl-struct-spinner-t
28e0	61 67 73 20 27 73 70 69 6e 6e 65 72 20 74 29 0a 23 40 39 31 36 20 43 72 65 61 74 65 20 61 20 73	ags.'spinner.t).#@916.Create.a.s
2900	70 69 6e 6e 65 72 20 6f 66 20 74 68 65 20 67 69 76 65 6e 20 54 59 50 45 2e 0a 54 68 65 20 70 6f	pinner.of.the.given.TYPE..The.po
2920	73 73 69 62 6c 65 20 54 59 50 45 73 20 61 72 65 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 60 73	ssible.TYPEs.are.described.in.`s
2940	70 69 6e 6e 65 72 2d 2d 74 79 70 65 2d 74 6f 2d 66 72 61 6d 65 73 27 2e 0a 0a 46 50 53 2c 20 69	pinner--type-to-frames'...FPS,.i
2960	66 20 67 69 76 65 6e 2c 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 64 65 73 69 72 65	f.given,.is.the.number.of.desire
2980	64 20 66 72 61 6d 65 73 20 70 65 72 20 73 65 63 6f 6e 64 2e 0a 44 65 66 61 75 6c 74 20 69 73 20	d.frames.per.second..Default.is.
29a0	60 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 27 2e 0a 0a 49 66	`spinner-frames-per-second'...If
29c0	20 42 55 46 46 45 52 2d 4c 4f 43 41 4c 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 73 70	.BUFFER-LOCAL.is.non-nil,.the.sp
29e0	69 6e 6e 65 72 20 77 69 6c 6c 20 62 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 64 65 61 63	inner.will.be.automatically.deac
2a00	74 69 76 61 74 65 64 20 69 66 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 6b 69 6c 6c 65 64 2e	tivated.if.the.buffer.is.killed.
2a20	20 20 49 66 20 42 55 46 46 45 52 2d 4c 4f 43 41 4c 20 69 73 20 61 0a 62 75 66 66 65 72 2c 20 75	..If.BUFFER-LOCAL.is.a.buffer,.u
2a40	73 65 20 74 68 61 74 20 69 6e 73 74 65 61 64 20 6f 66 20 63 75 72 72 65 6e 74 20 62 75 66 66 65	se.that.instead.of.current.buffe
2a60	72 2e 0a 0a 57 68 65 6e 20 73 74 61 72 74 65 64 2c 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 66 75	r...When.started,.in.order.to.fu
2a80	6e 63 74 69 6f 6e 20 70 72 6f 70 65 72 6c 79 2c 20 74 68 65 20 73 70 69 6e 6e 65 72 20 72 75 6e	nction.properly,.the.spinner.run
2aa0	73 20 61 0a 74 69 6d 65 72 20 77 68 69 63 68 20 70 65 72 69 6f 64 69 63 61 6c 6c 79 20 63 61 6c	s.a.timer.which.periodically.cal
2ac0	6c 73 20 60 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 27 20 69 6e 20 74	ls.`force-mode-line-update'.in.t
2ae0	68 65 0a 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 20 20 49 66 20 42 55 46 46 45 52 2d 4c 4f	he.current.buffer...If.BUFFER-LO
2b00	43 41 4c 20 77 61 73 20 73 65 74 20 61 74 20 63 72 65 61 74 69 6f 6e 20 74 69 6d 65 2c 20 74 68	CAL.was.set.at.creation.time,.th
2b20	65 6e 0a 60 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 27 20 69 73 20 63	en.`force-mode-line-update'.is.c
2b40	61 6c 6c 65 64 20 69 6e 20 74 68 61 74 20 62 75 66 66 65 72 20 69 6e 73 74 65 61 64 2e 20 20 57	alled.in.that.buffer.instead...W
2b60	68 65 6e 0a 74 68 65 20 73 70 69 6e 6e 65 72 20 69 73 20 73 74 6f 70 70 65 64 2c 20 74 68 65 20	hen.the.spinner.is.stopped,.the.
2b80	74 69 6d 65 72 20 69 73 20 64 65 61 63 74 69 76 61 74 65 64 2e 0a 0a 44 45 4c 41 59 2c 20 69 66	timer.is.deactivated...DELAY,.if
2ba0	20 67 69 76 65 6e 2c 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 63 6f 6e 64 73	.given,.is.the.number.of.seconds
2bc0	20 74 6f 20 77 61 69 74 20 61 66 74 65 72 20 73 74 61 72 74 69 6e 67 0a 74 68 65 20 73 70 69 6e	.to.wait.after.starting.the.spin
2be0	6e 65 72 20 62 65 66 6f 72 65 20 61 63 74 75 61 6c 6c 79 20 64 69 73 70 6c 61 79 69 6e 67 20 69	ner.before.actually.displaying.i
2c00	74 2e 20 49 74 20 69 73 20 73 61 66 65 20 74 6f 20 63 61 6e 63 65 6c 0a 74 68 65 20 73 70 69 6e	t..It.is.safe.to.cancel.the.spin
2c20	6e 65 72 20 62 65 66 6f 72 65 20 74 68 69 73 20 74 69 6d 65 2c 20 69 6e 20 77 68 69 63 68 20 63	ner.before.this.time,.in.which.c
2c40	61 73 65 20 69 74 20 77 6f 6e 27 74 20 64 69 73 70 6c 61 79 20 61 74 0a 61 6c 6c 2e 0a 0a 28 66	ase.it.won't.display.at.all...(f
2c60	6e 20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 20 42 55 46 46 45 52 2d 4c 4f 43 41 4c 20 46 50	n.&optional.TYPE.BUFFER-LOCAL.FP
2c80	53 20 44 45 4c 41 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 63 72 65	S.DELAY)..(defalias.'spinner-cre
2ca0	61 74 65 20 23 5b 31 30 32 34 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 21 5c 33 30 34 05	ate.#[1024."\301\302\303..!\304.
2cc0	5c 32 30 36 5c 66 00 08 5c 33 30 35 20 5c 33 30 36 06 09 5c 32 30 35 21 00 5c 33 30 37 06 5c 6e	\206\f..\305.\306..\205!.\307.\n
2ce0	21 5c 32 30 33 20 00 06 09 5c 32 30 32 21 00 70 06 08 5c 32 30 36 27 00 5c 33 30 34 26 08 5c 32	!\203....\202!.p..\206'.\304&.\2
2d00	30 37 22 20 5b 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 72	07".[spinner-frames-per-second.r
2d20	65 63 6f 72 64 20 73 70 69 6e 6e 65 72 20 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65 2d 74 6f 2d 66	ecord.spinner.spinner--type-to-f
2d40	72 61 6d 65 73 20 30 20 74 69 6d 65 72 2d 63 72 65 61 74 65 20 6e 69 6c 20 62 75 66 66 65 72 70	rames.0.timer-create.nil.bufferp
2d60	5d 20 31 33 20 28 23 24 20 2e 20 31 30 34 38 36 29 5d 29 0a 23 40 31 38 34 20 52 65 74 75 72 6e	].13.(#$...10486)]).#@184.Return
2d80	20 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 72 61 6d 65 20 6f	.a.string.of.the.current.frame.o
2da0	66 20 53 50 49 4e 4e 45 52 2e 0a 49 66 20 53 50 49 4e 4e 45 52 20 69 73 20 6e 69 6c 2c 20 6a 75	f.SPINNER..If.SPINNER.is.nil,.ju
2dc0	73 74 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 44 65 73 69 67 6e 65 64 20 74 6f 20 62 65 20 75 73	st.return.nil..Designed.to.be.us
2de0	65 64 20 69 6e 20 74 68 65 20 6d 6f 64 65 2d 6c 69 6e 65 20 77 69 74 68 3a 0a 20 20 20 20 28 3a	ed.in.the.mode-line.with:.....(:
2e00	65 76 61 6c 20 28 73 70 69 6e 6e 65 72 2d 70 72 69 6e 74 20 73 6f 6d 65 2d 73 70 69 6e 6e 65 72	eval.(spinner-print.some-spinner
2e20	29 29 0a 0a 28 66 6e 20 53 50 49 4e 4e 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69	))..(fn.SPINNER)..(defalias.'spi
2e40	6e 6e 65 72 2d 70 72 69 6e 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 35 47 00 5c 33 30 31	nner-print.#[257."\211\205G.\301
2e60	01 21 08 3e 5c 32 30 34 13 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32	.!.>\204..\302\303\304.D\"\210\2
2e80	31 31 5c 33 30 35 48 5c 32 30 35 47 00 5c 33 30 31 01 21 08 3e 5c 32 30 34 28 00 5c 33 30 32 5c	11\305H\205G.\301.!.>\204(.\302\
2ea0	33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 36 48 5c 32 31 31 5c 33 30 37	303\304.D\"\210\211\306H\211\307
2ec0	59 5c 32 30 35 45 00 5c 33 30 31 02 21 08 3e 5c 32 30 34 40 00 5c 33 30 32 5c 33 30 33 5c 33 30	Y\205E.\301.!.>\204@.\302\303\30
2ee0	34 04 44 5c 22 5c 32 31 30 01 5c 33 31 30 48 01 5c 32 33 34 5c 32 36 32 01 5c 32 30 37 22 20 5b	4.D\"\210.\310H.\234\262.\207".[
2f00	63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73	cl-struct-spinner-tags.type-of.s
2f20	69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65	ignal.wrong-type-argument.spinne
2f40	72 20 35 20 32 20 30 20 31 5d 20 36 20 28 23 24 20 2e 20 31 31 36 34 32 29 5d 29 0a 23 40 31 34	r.5.2.0.1].6.(#$...11642)]).#@14
2f60	32 20 46 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 64 20 74 6f 20 75 70 64 61 74 65 20 53 50 49 4e	2.Function.called.to.update.SPIN
2f80	4e 45 52 2e 0a 49 66 20 53 50 49 4e 4e 45 52 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 61 63 74	NER..If.SPINNER.is.no.longer.act
2fa0	69 76 65 2c 20 6f 72 20 69 66 20 69 74 73 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 6b	ive,.or.if.its.buffer.has.been.k
2fc0	69 6c 6c 65 64 2c 0a 73 74 6f 70 20 74 68 65 20 53 50 49 4e 4e 45 52 27 73 20 74 69 6d 65 72 2e	illed,.stop.the.SPINNER's.timer.
2fe0	0a 0a 28 66 6e 20 53 50 49 4e 4e 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e	..(fn.SPINNER)..(defalias.'spinn
3000	65 72 2d 2d 74 69 6d 65 72 2d 66 75 6e 63 74 69 6f 6e 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21	er--timer-function.#[257."\301.!
3020	08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31	.>\204..\302\303\304.D\"\210\211
3040	5c 33 30 35 48 5c 33 30 31 02 21 08 3e 5c 32 30 34 21 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04	\305H\301.!.>\204!.\302\303\304.
3060	44 5c 22 5c 32 31 30 01 5c 33 30 36 48 5c 32 30 33 31 00 5c 32 31 31 5c 32 30 33 35 00 5c 33 30	D\"\210.\306H\2031.\211\2035.\30
3080	37 01 21 5c 32 30 34 35 00 5c 33 31 30 02 21 5c 32 30 37 5c 33 30 31 02 21 08 3e 5c 32 30 34 44	7.!\2045.\310.!\207\301.!.>\204D
30a0	00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 31 31 03 5c 33 31 31 48	.\302\303\304.D\"\210.\311.\311H
30c0	5c 32 31 31 5c 33 31 32 57 5c 32 30 33 54 00 5c 32 31 31 54 5c 32 30 32 6c 00 5c 32 31 31 54 5c	\211\312W\203T.\211T\202l.\211T\
30e0	33 30 31 06 06 21 08 3e 5c 32 30 34 67 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 08 44 5c 22 5c	301..!.>\204g.\302\303\304..D\"\
3100	32 31 30 05 5c 33 31 33 48 47 5c 32 34 36 5c 32 36 32 01 49 5c 32 31 30 5c 33 30 37 01 21 5c 32	210.\313HG\246\262.I\210\307.!\2
3120	30 33 7e 00 72 5c 32 31 31 71 5c 32 31 30 5c 33 31 34 20 29 5c 32 30 37 5c 33 31 34 20 5c 32 30	03~.r\211q\210\314.)\207\314.\20
3140	37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d	7".[cl-struct-spinner-tags.type-
3160	6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70	of.signal.wrong-type-argument.sp
3180	69 6e 6e 65 72 20 36 20 35 20 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 73 70 69 6e 6e 65 72 2d	inner.6.5.buffer-live-p.spinner-
31a0	73 74 6f 70 20 32 20 30 20 31 20 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74	stop.2.0.1.force-mode-line-updat
31c0	65 5d 20 31 30 20 28 23 24 20 2e 20 31 32 31 33 30 29 5d 29 0a 23 40 34 30 20 53 74 61 72 74 20	e].10.(#$...12130)]).#@40.Start.
31e0	61 20 53 50 49 4e 4e 45 52 27 73 20 74 69 6d 65 72 2e 0a 0a 28 66 6e 20 53 50 49 4e 4e 45 52 29	a.SPINNER's.timer...(fn.SPINNER)
3200	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 73 74 61 72 74 2d 74 69 6d 65	..(defalias.'spinner--start-time
3220	72 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c	r.#[257."\301.!.>\204..\302\303\
3240	33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 33 30 36 01 21 5c 32 30 33 1c 00	304.D\"\210\211\305H\306.!\203..
3260	5c 33 30 37 01 21 5c 32 31 30 5c 33 30 31 02 21 08 3e 5c 32 30 34 2b 00 5c 33 30 32 5c 33 30 33	\307.!\210\301.!.>\204+.\302\303
3280	5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 31 30 5c 33 31 31 49 5c 32 31 30 5c 33 31 32 31 4c	\304.D\"\210.\310\311I\210\3121L
32a0	00 5c 33 30 31 02 21 08 3e 5c 32 30 34 43 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c	.\301.!.>\204C.\302\303\304.D\"\
32c0	32 31 30 01 5c 33 31 33 48 5c 33 31 34 56 30 5c 32 30 32 4e 00 5c 32 31 30 5c 33 31 35 5c 32 30	210.\313H\314V0\202N.\210\315\20
32e0	34 55 00 5c 33 31 36 5c 33 31 37 21 5c 32 31 30 5c 33 30 31 02 21 08 3e 5c 32 30 34 64 00 5c 33	4U.\316\317!\210\301.!.>\204d.\3
3300	30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 32 30 5c 33 32 31 5c 33 30 31 05	02\303\304.D\"\210.\320\321\301.
3320	21 08 3e 5c 32 30 34 77 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 07 44 5c 22 5c 32 31 30 04 5c	!.>\204w.\302\303\304..D\"\210.\
3340	33 32 32 48 5c 32 30 36 7e 00 5c 33 31 34 5c 33 30 31 06 06 21 08 3e 5c 32 30 34 5c 32 31 37 00	322H\206~.\314\301..!.>\204\217.
3360	5c 33 30 32 5c 33 30 33 5c 33 30 34 06 08 44 5c 22 5c 32 31 30 05 5c 33 31 33 48 5f 5b 21 49 5c	\302\303\304..D\"\210.\313H_[!I\
3380	32 31 30 5c 33 32 33 5c 33 30 31 03 21 08 3e 5c 32 30 34 5c 32 34 37 00 5c 33 30 32 5c 33 30 33	210\323\301.!.>\204\247.\302\303
33a0	5c 33 30 34 05 44 5c 22 5c 32 31 30 02 5c 33 31 33 48 5c 32 34 35 5c 33 32 34 5c 33 32 35 20 02	\304.D\"\210.\313H\245\324\325..
33c0	5c 22 5c 33 30 31 04 21 08 3e 5c 32 30 34 5c 33 30 30 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06	\"\301.!.>\204\300.\302\303\304.
33e0	06 44 5c 22 5c 32 31 30 03 5c 33 30 35 48 5c 33 32 36 01 03 05 23 5c 32 31 30 5c 33 32 37 01 5c	.D\"\210.\305H\326...#\210\327.\
3400	33 33 30 06 07 43 23 5c 32 31 30 5c 33 33 31 01 21 5c 32 31 30 5c 33 33 32 5c 33 33 33 06 06 5c	330..C#\210\331.!\210\332\333..\
3420	22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 74	"\207".[cl-struct-spinner-tags.t
3440	79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e	ype-of.signal.wrong-type-argumen
3460	74 20 73 70 69 6e 6e 65 72 20 34 20 74 69 6d 65 72 70 20 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20	t.spinner.4.timerp.cancel-timer.
3480	35 20 74 20 28 65 72 72 6f 72 29 20 33 20 30 20 6e 69 6c 20 65 72 72 6f 72 20 22 41 20 73 70 69	5.t.(error).3.0.nil.error."A.spi
34a0	6e 6e 65 72 27 73 20 46 50 53 20 6d 75 73 74 20 62 65 20 61 20 70 6f 73 69 74 69 76 65 20 6e 75	nner's.FPS.must.be.a.positive.nu
34c0	6d 62 65 72 22 20 32 20 72 6f 75 6e 64 20 37 20 31 2e 30 20 74 69 6d 65 72 2d 6e 65 78 74 2d 69	mber".2.round.7.1.0.timer-next-i
34e0	6e 74 65 67 72 61 6c 2d 6d 75 6c 74 69 70 6c 65 2d 6f 66 2d 74 69 6d 65 20 63 75 72 72 65 6e 74	ntegral-multiple-of-time.current
3500	2d 74 69 6d 65 20 74 69 6d 65 72 2d 73 65 74 2d 74 69 6d 65 20 74 69 6d 65 72 2d 73 65 74 2d 66	-time.timer-set-time.timer-set-f
3520	75 6e 63 74 69 6f 6e 20 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 2d 66 75 6e 63 74 69 6f 6e 20	unction.spinner--timer-function.
3540	74 69 6d 65 72 2d 61 63 74 69 76 61 74 65 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20	timer-activate.make-closure.#[0.
3560	22 5c 33 30 31 5c 33 30 30 21 5c 32 30 37 22 20 5b 56 30 20 73 70 69 6e 6e 65 72 2d 73 74 6f 70	"\301\300!\207".[V0.spinner-stop
3580	5d 20 32 5d 5d 20 31 30 20 28 23 24 20 2e 20 31 32 37 36 32 29 5d 29 0a 23 40 31 31 32 37 20 53	].2]].10.(#$...12762)]).#@1127.S
35a0	74 61 72 74 20 61 20 6d 6f 64 65 2d 6c 69 6e 65 20 73 70 69 6e 6e 65 72 20 6f 66 20 67 69 76 65	tart.a.mode-line.spinner.of.give
35c0	6e 20 54 59 50 45 2d 4f 52 2d 4f 42 4a 45 43 54 2e 0a 49 66 20 54 59 50 45 2d 4f 52 2d 4f 42 4a	n.TYPE-OR-OBJECT..If.TYPE-OR-OBJ
35e0	45 43 54 20 69 73 20 61 6e 20 6f 62 6a 65 63 74 20 63 72 65 61 74 65 64 20 77 69 74 68 20 60 6d	ECT.is.an.object.created.with.`m
3600	61 6b 65 2d 73 70 69 6e 6e 65 72 27 2c 0a 73 69 6d 70 6c 79 20 61 63 74 69 76 61 74 65 20 69 74	ake-spinner',.simply.activate.it
3620	2e 20 20 54 68 69 73 20 6d 65 74 68 6f 64 20 69 73 20 64 65 73 69 67 6e 65 64 20 66 6f 72 20 6d	...This.method.is.designed.for.m
3640	69 6e 6f 72 20 6d 6f 64 65 73 2c 20 73 6f 0a 74 68 65 79 20 63 61 6e 20 75 73 65 20 74 68 65 20	inor.modes,.so.they.can.use.the.
3660	73 70 69 6e 6e 65 72 20 61 73 20 70 61 72 74 20 6f 66 20 74 68 65 69 72 20 6c 69 67 68 74 65 72	spinner.as.part.of.their.lighter
3680	20 62 79 20 64 6f 69 6e 67 3a 0a 20 20 20 20 27 28 3a 65 76 61 6c 20 28 73 70 69 6e 6e 65 72 2d	.by.doing:.....'(:eval.(spinner-
36a0	70 72 69 6e 74 20 54 48 45 2d 53 50 49 4e 4e 45 52 29 29 0a 54 6f 20 73 74 6f 70 20 74 68 69 73	print.THE-SPINNER)).To.stop.this
36c0	20 73 70 69 6e 6e 65 72 2c 20 63 61 6c 6c 20 60 73 70 69 6e 6e 65 72 2d 73 74 6f 70 27 20 6f 6e	.spinner,.call.`spinner-stop'.on
36e0	20 69 74 2e 0a 0a 49 66 20 54 59 50 45 2d 4f 52 2d 4f 42 4a 45 43 54 20 69 73 20 61 6e 79 74 68	.it...If.TYPE-OR-OBJECT.is.anyth
3700	69 6e 67 20 65 6c 73 65 2c 20 61 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 73 70 69 6e 6e 65 72	ing.else,.a.buffer-local.spinner
3720	20 69 73 0a 63 72 65 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 74 79 70 65 2c 20 61 6e 64 20	.is.created.with.this.type,.and.
3740	69 74 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 74 68 65 0a 60 6d 6f 64 65 2d 6c 69 6e	it.is.displayed.in.the.`mode-lin
3760	65 2d 70 72 6f 63 65 73 73 27 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 69 74 20 77 61 73 20	e-process'.of.the.buffer.it.was.
3780	63 72 65 61 74 65 64 20 69 74 2e 20 20 42 6f 74 68 0a 54 59 50 45 2d 4f 52 2d 4f 42 4a 45 43 54	created.it...Both.TYPE-OR-OBJECT
37a0	20 61 6e 64 20 46 50 53 20 61 72 65 20 70 61 73 73 65 64 20 74 6f 20 60 6d 61 6b 65 2d 73 70 69	.and.FPS.are.passed.to.`make-spi
37c0	6e 6e 65 72 27 20 28 77 68 69 63 68 20 73 65 65 29 2e 0a 54 6f 20 73 74 6f 70 20 74 68 69 73 20	nner'.(which.see)..To.stop.this.
37e0	73 70 69 6e 6e 65 72 2c 20 63 61 6c 6c 20 60 73 70 69 6e 6e 65 72 2d 73 74 6f 70 27 20 69 6e 20	spinner,.call.`spinner-stop'.in.
3800	74 68 65 20 73 61 6d 65 20 62 75 66 66 65 72 2e 0a 0a 45 69 74 68 65 72 20 77 61 79 2c 20 74 68	the.same.buffer...Either.way,.th
3820	65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 77 68 69	e.return.value.is.a.function.whi
3840	63 68 20 63 61 6e 20 62 65 20 63 61 6c 6c 65 64 0a 61 6e 79 77 68 65 72 65 20 74 6f 20 73 74 6f	ch.can.be.called.anywhere.to.sto
3860	70 20 74 68 69 73 20 73 70 69 6e 6e 65 72 2e 20 20 59 6f 75 20 63 61 6e 20 61 6c 73 6f 20 63 61	p.this.spinner...You.can.also.ca
3880	6c 6c 20 60 73 70 69 6e 6e 65 72 2d 73 74 6f 70 27 0a 69 6e 20 74 68 65 20 73 61 6d 65 20 62 75	ll.`spinner-stop'.in.the.same.bu
38a0	66 66 65 72 20 77 68 65 72 65 20 74 68 65 20 73 70 69 6e 6e 65 72 20 77 61 73 20 63 72 65 61 74	ffer.where.the.spinner.was.creat
38c0	65 64 2e 0a 0a 46 50 53 2c 20 69 66 20 67 69 76 65 6e 2c 20 69 73 20 74 68 65 20 6e 75 6d 62 65	ed...FPS,.if.given,.is.the.numbe
38e0	72 20 6f 66 20 64 65 73 69 72 65 64 20 66 72 61 6d 65 73 20 70 65 72 20 73 65 63 6f 6e 64 2e 0a	r.of.desired.frames.per.second..
3900	44 65 66 61 75 6c 74 20 69 73 20 60 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73	Default.is.`spinner-frames-per-s
3920	65 63 6f 6e 64 27 2e 0a 0a 44 45 4c 41 59 2c 20 69 66 20 67 69 76 65 6e 2c 20 69 73 20 74 68 65	econd'...DELAY,.if.given,.is.the
3940	20 6e 75 6d 62 65 72 20 6f 66 20 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 75 6e 74 69 6c	.number.of.seconds.to.wait.until
3960	20 61 63 74 75 61 6c 6c 79 0a 64 69 73 70 6c 61 79 69 6e 67 20 74 68 65 20 73 70 69 6e 6e 65 72	.actually.displaying.the.spinner
3980	2e 20 49 74 20 69 73 20 73 61 66 65 20 74 6f 20 63 61 6e 63 65 6c 20 74 68 65 20 73 70 69 6e 6e	..It.is.safe.to.cancel.the.spinn
39a0	65 72 20 62 65 66 6f 72 65 0a 74 68 69 73 20 74 69 6d 65 2c 20 69 6e 20 77 68 69 63 68 20 63 61	er.before.this.time,.in.which.ca
39c0	73 65 20 69 74 20 77 6f 6e 27 74 20 64 69 73 70 6c 61 79 20 61 74 20 61 6c 6c 2e 0a 0a 28 66 6e	se.it.won't.display.at.all...(fn
39e0	20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 2d 4f 52 2d 4f 42 4a 45 43 54 20 46 50 53 20 44 45	.&optional.TYPE-OR-OBJECT.FPS.DE
3a00	4c 41 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 73 74 61 72 74 20 23	LAY)..(defalias.'spinner-start.#
3a20	5b 37 36 38 20 22 5c 33 30 34 03 21 08 3e 5c 32 30 34 68 00 5c 33 30 34 09 21 08 3e 5c 32 30 33	[768."\304.!.>\204h.\304.!.>\203
3a40	2c 00 5c 33 30 34 09 21 08 3e 5c 32 30 34 1f 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 09 44 5c 22	,.\304.!.>\204..\305\306\307.D\"
3a60	5c 32 31 30 09 5c 32 31 31 5c 33 31 30 5c 33 31 31 06 06 21 49 5c 32 36 36 02 5c 32 30 32 52 00	\210.\211\310\311..!I\266.\202R.
3a80	5c 33 31 32 5c 33 30 37 5c 33 31 31 05 21 5c 33 31 33 05 5c 32 30 36 37 00 5c 6e 5c 33 31 34 20	\312\307\311.!\313.\2067.\n\314.
3aa0	5c 33 31 35 70 5c 32 30 35 49 00 5c 33 31 36 70 21 5c 32 30 33 48 00 70 5c 32 30 32 49 00 70 06	\315p\205I.\316p!\203H.p\202I.p.
3ac0	08 5c 32 30 36 4f 00 5c 33 31 33 26 08 11 09 5c 32 36 32 03 0b 3c 5c 32 30 33 60 00 5c 33 31 37	.\206O.\313&...\262..<\203`.\317
3ae0	0b 3e 5c 32 30 34 68 00 0b 5c 32 30 36 65 00 5c 33 32 30 5c 33 31 37 44 13 01 5c 32 30 33 5c 32	.>\204h..\206e.\320\317D..\203\2
3b00	30 30 00 5c 33 30 34 03 21 08 3e 5c 32 30 34 7b 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 05 44 5c	00.\304.!.>\204{.\305\306\307.D\
3b20	22 5c 32 31 30 02 5c 33 32 31 03 49 5c 32 31 30 5c 32 31 31 5c 32 30 33 5c 32 33 30 00 5c 33 30	"\210.\321.I\210\211\203\230.\30
3b40	34 03 21 08 3e 5c 32 30 34 5c 32 32 33 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 05 44 5c 22 5c 32	4.!.>\204\223.\305\306\307.D\"\2
3b60	31 30 02 5c 33 32 32 02 49 5c 32 31 30 5c 33 32 33 03 21 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72	10.\322.I\210\323.!\207".[cl-str
3b80	75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 73 70 69 6e 6e 65 72 2d 63 75 72 72 65 6e 74	uct-spinner-tags.spinner-current
3ba0	20 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 6d 6f 64 65 2d	.spinner-frames-per-second.mode-
3bc0	6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e	line-process.type-of.signal.wron
3be0	67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 31 20 73 70 69 6e 6e 65	g-type-argument.spinner.1.spinne
3c00	72 2d 2d 74 79 70 65 2d 74 6f 2d 66 72 61 6d 65 73 20 72 65 63 6f 72 64 20 30 20 74 69 6d 65 72	r--type-to-frames.record.0.timer
3c20	2d 63 72 65 61 74 65 20 6e 69 6c 20 62 75 66 66 65 72 70 20 73 70 69 6e 6e 65 72 2d 2d 6d 6f 64	-create.nil.bufferp.spinner--mod
3c40	65 2d 6c 69 6e 65 2d 63 6f 6e 73 74 72 75 63 74 20 22 22 20 33 20 37 20 73 70 69 6e 6e 65 72 2d	e-line-construct."".3.7.spinner-
3c60	2d 73 74 61 72 74 2d 74 69 6d 65 72 5d 20 31 32 20 28 23 24 20 2e 20 31 33 37 32 37 29 5d 29 0a	-start-timer].12.(#$...13727)]).
3c80	23 40 38 30 20 4c 69 6b 65 20 60 73 70 69 6e 6e 65 72 2d 70 72 69 6e 74 27 2c 20 62 75 74 20 61	#@80.Like.`spinner-print',.but.a
3ca0	6c 73 6f 20 73 74 61 72 74 20 53 50 49 4e 4e 45 52 20 69 66 20 69 74 27 73 20 6e 6f 74 20 61 63	lso.start.SPINNER.if.it's.not.ac
3cc0	74 69 76 65 2e 0a 0a 28 66 6e 20 53 50 49 4e 4e 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	tive...(fn.SPINNER)..(defalias.'
3ce0	73 70 69 6e 6e 65 72 2d 73 74 61 72 74 2d 70 72 69 6e 74 20 23 5b 32 35 37 20 22 5c 33 30 31 01	spinner-start-print.#[257."\301.
3d00	21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31	!.>\204..\302\303\304.D\"\210\21
3d20	31 5c 33 30 35 48 5c 32 30 34 19 00 5c 33 30 36 01 21 5c 32 31 30 5c 33 30 37 01 21 5c 32 30 37	1\305H\204..\306.!\210\307.!\207
3d40	22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 74 79 70 65 2d 6f	".[cl-struct-spinner-tags.type-o
3d60	66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69	f.signal.wrong-type-argument.spi
3d80	6e 6e 65 72 20 35 20 73 70 69 6e 6e 65 72 2d 73 74 61 72 74 20 73 70 69 6e 6e 65 72 2d 70 72 69	nner.5.spinner-start.spinner-pri
3da0	6e 74 5d 20 35 20 28 23 24 20 2e 20 31 35 34 39 33 29 5d 29 0a 23 40 31 36 30 20 53 74 6f 70 20	nt].5.(#$...15493)]).#@160.Stop.
3dc0	53 50 49 4e 4e 45 52 2c 20 64 65 66 61 75 6c 74 69 6e 67 20 74 6f 20 74 68 65 20 63 75 72 72 65	SPINNER,.defaulting.to.the.curre
3de0	6e 74 20 62 75 66 66 65 72 27 73 20 73 70 69 6e 6e 65 72 2e 0a 49 74 20 69 73 20 61 6c 77 61 79	nt.buffer's.spinner..It.is.alway
3e00	73 20 73 61 66 65 20 74 6f 20 63 61 6c 6c 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2c 20 65 76	s.safe.to.call.this.function,.ev
3e20	65 6e 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 0a 61 63 74 69 76 65 20 73 70 69 6e 6e 65 72	en.if.there.is.no.active.spinner
3e40	2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 53 50 49 4e 4e 45 52 29 1f 0a 28 64 65 66 61	...(fn.&optional.SPINNER)..(defa
3e60	6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 73 74 6f 70 20 23 5b 32 35 36 20 22 5c 32 31 31 5c 32	lias.'spinner-stop.#[256."\211\2
3e80	30 36 05 00 08 5c 33 30 32 01 21 09 3e 5c 32 30 35 40 00 5c 33 30 32 01 21 09 3e 5c 32 30 34 1c	06...\302.!.>\205@.\302.!.>\204.
3ea0	00 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 36 48 5c 33	.\303\304\305.D\"\210\211\306H\3
3ec0	30 37 01 21 5c 32 30 33 29 00 5c 33 31 30 01 21 5c 32 31 30 5c 32 31 30 5c 33 30 32 01 21 09 3e	07.!\203).\310.!\210\210\302.!.>
3ee0	5c 32 30 34 39 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33	\2049.\303\304\305.D\"\210\211\3
3f00	31 31 5c 33 31 32 49 5c 32 31 30 5c 33 31 33 20 5c 32 30 37 22 20 5b 73 70 69 6e 6e 65 72 2d 63	11\312I\210\313.\207".[spinner-c
3f20	75 72 72 65 6e 74 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 74 79	urrent.cl-struct-spinner-tags.ty
3f40	70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74	pe-of.signal.wrong-type-argument
3f60	20 73 70 69 6e 6e 65 72 20 34 20 74 69 6d 65 72 70 20 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 35	.spinner.4.timerp.cancel-timer.5
3f80	20 6e 69 6c 20 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 36 20 28	.nil.force-mode-line-update].6.(
3fa0	23 24 20 2e 20 31 35 38 30 33 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 73 70 69 6e 6e 65 72 29	#$...15803)]).(provide.'spinner)
3fc0	0a	.