blob: d83791e5ba7b5e30fba89eae337f9cfb6f4641cb (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 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29	imizations.....(require.'cl-lib)
0060	0a 23 40 37 30 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	.#@70.compiler-macro.for.inlinin
0080	67 20 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 70 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45	g.`cache-table-p'...(fn.CL-WHOLE
00a0	2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62	-ARG.CL-X)..(defalias.'cache-tab
00c0	6c 65 2d 70 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	le-p--cmacro.#[514."\300\301\302
00e0	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 73 75	\303\211\211..&.\207".[cl--defsu
0100	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 63 61 63 68	bst-expand.(cl-x).(cl-block.cach
0120	65 2d 74 61 62 6c 65 2d 70 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 74 79 70 65 2d 6f 66 20 63 6c	e-table-p.(and.(memq.(type-of.cl
0140	2d 78 29 20 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 29 20	-x).cl-struct-cache-table-tags).
0160	74 29 29 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 31 30 32 29 5d 29 0a 28 70 75 74 20 27 63 61	t)).nil].9.(#$...102)]).(put.'ca
0180	63 68 65 2d 74 61 62 6c 65 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 63 61 63	che-table-p.'compiler-macro.'cac
01a0	68 65 2d 74 61 62 6c 65 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 31 33 20 0a 0a 28 66 6e 20 43	he-table-p--cmacro).#@13...(fn.C
01c0	4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 70 20 23	L-X)..(defalias.'cache-table-p.#
01e0	5b 32 35 37 20 22 5c 33 30 31 01 21 08 3e 5c 32 30 35 09 00 5c 33 30 32 5c 32 30 37 22 20 5b 63	[257."\301.!.>\205..\302\207".[c
0200	6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 74 79 70 65 2d 6f	l-struct-cache-table-tags.type-o
0220	66 20 74 5d 20 33 20 28 23 24 20 2e 20 34 34 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	f.t].3.(#$...441)]).(byte-code."
0240	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30	\300\301\302\303#\304\305\306\30
0260	31 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c	1#\207".[function-put.cache-tabl
0280	65 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20	e-p.side-effect-free.error-free.
02a0	70 75 74 20 63 61 63 68 65 2d 74 61 62 6c 65 20 63 6c 2d 64 65 66 74 79 70 65 2d 73 61 74 69 73	put.cache-table.cl-deftype-satis
02c0	66 69 65 73 5d 20 35 29 0a 23 40 38 30 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72	fies].5).#@80.compiler-macro.for
02e0	20 69 6e 6c 69 6e 69 6e 67 20 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 78 70 69 72 65 2d 74 69	.inlining.`cache-table-expire-ti
0300	6d 65 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 29 1f 0a 28 64	me'...(fn.CL-WHOLE-ARG.CL-X)..(d
0320	65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 78 70 69 72 65 2d 74 69 6d 65	efalias.'cache-table-expire-time
0340	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 30 33	--cmacro.#[514."\300\301\302\303
0360	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 74 2d	\211\211..&.\207".[cl--defsubst-
0380	65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 63 61 63 68 65 2d 74 61	expand.(cl-x).(cl-block.cache-ta
03a0	62 6c 65 2d 65 78 70 69 72 65 2d 74 69 6d 65 20 28 70 72 6f 67 6e 20 28 6f 72 20 28 63 61 63 68	ble-expire-time.(progn.(or.(cach
03c0	65 2d 74 61 62 6c 65 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	e-table-p.cl-x).(signal.'wrong-t
03e0	79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 63 61 63 68 65 2d 74 61 62 6c 65 20	ype-argument.(list.'cache-table.
0400	63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 29 29 29 20 6e 69 6c 5d 20 39 20 28	cl-x))).(aref.cl-x.1))).nil].9.(
0420	23 24 20 2e 20 37 31 38 29 5d 29 0a 28 70 75 74 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 78	#$...718)]).(put.'cache-table-ex
0440	70 69 72 65 2d 74 69 6d 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 63 61 63 68 65	pire-time.'compiler-macro.'cache
0460	2d 74 61 62 6c 65 2d 65 78 70 69 72 65 2d 74 69 6d 65 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 36 38	-table-expire-time--cmacro).#@68
0480	20 41 63 63 65 73 73 20 73 6c 6f 74 20 22 65 78 70 69 72 65 2d 74 69 6d 65 22 20 6f 66 20 60 63	.Access.slot."expire-time".of.`c
04a0	61 63 68 65 2d 74 61 62 6c 65 27 20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c	ache-table'.struct.CL-X...(fn.CL
04c0	2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 78 70 69	-X)..(defalias.'cache-table-expi
04e0	72 65 2d 74 69 6d 65 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	re-time.#[257."\301.!.>\204..\30
0500	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 48 5c 32 30 37 22 20	2\303\304.D\"\210\211\305H\207".
0520	5b 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 74 79 70 65	[cl-struct-cache-table-tags.type
0540	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 20 63	-of.signal.wrong-type-argument.c
0560	61 63 68 65 2d 74 61 62 6c 65 20 31 5d 20 35 20 28 23 24 20 2e 20 31 31 35 33 29 5d 29 0a 28 62	ache-table.1].5.(#$...1153)]).(b
0580	79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c	yte-code."\300\301\302\303#\300\
05a0	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 65	207".[function-put.cache-table-e
05c0	78 70 69 72 65 2d 74 69 6d 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34	xpire-time.side-effect-free.t].4
05e0	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
0600	6e 67 20 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 27 2e 0a 0a 28 66 6e 20 43 4c 2d	ng.`cache-table-table'...(fn.CL-
0620	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 63 61 63 68	WHOLE-ARG.CL-X)..(defalias.'cach
0640	65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30	e-table-table--cmacro.#[514."\30
0660	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".[
0680	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
06a0	6c 6f 63 6b 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 20 28 70 72 6f 67 6e 20 28 6f	lock.cache-table-table.(progn.(o
06c0	72 20 28 63 61 63 68 65 2d 74 61 62 6c 65 2d 70 20 63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27	r.(cache-table-p.cl-x).(signal.'
06e0	77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 63 61 63 68 65	wrong-type-argument.(list.'cache
0700	2d 74 61 62 6c 65 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 32 29 29 29 20 6e	-table.cl-x))).(aref.cl-x.2))).n
0720	69 6c 5d 20 39 20 28 23 24 20 2e 20 31 35 31 31 29 5d 29 0a 28 70 75 74 20 27 63 61 63 68 65 2d	il].9.(#$...1511)]).(put.'cache-
0740	74 61 62 6c 65 2d 74 61 62 6c 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 63 61 63	table-table.'compiler-macro.'cac
0760	68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 36 32 20 41 63 63	he-table-table--cmacro).#@62.Acc
0780	65 73 73 20 73 6c 6f 74 20 22 74 61 62 6c 65 22 20 6f 66 20 60 63 61 63 68 65 2d 74 61 62 6c 65	ess.slot."table".of.`cache-table
07a0	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 64 65 66 61	'.struct.CL-X...(fn.CL-X)..(defa
07c0	6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 20 23 5b 32 35 37 20 22 5c	lias.'cache-table-table.#[257."\
07e0	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 31	301.!.>\204..\302\303\304.D\"\21
0800	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 63 61 63 68 65	0\211\305H\207".[cl-struct-cache
0820	2d 74 61 62 6c 65 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	-table-tags.type-of.signal.wrong
0840	2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 61 63 68 65 2d 74 61 62 6c 65 20 32 5d 20 35 20	-type-argument.cache-table.2].5.
0860	28 23 24 20 2e 20 31 39 31 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	(#$...1917)]).(byte-code."\300\3
0880	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b	01\302\303#\304\305\306\"\207".[
08a0	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 20 73	function-put.cache-table-table.s
08c0	69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 64 65 66 61 6c 69 61 73 20 63 6f 70 79 2d	ide-effect-free.t.defalias.copy-
08e0	63 61 63 68 65 2d 74 61 62 6c 65 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 34 29 0a 23 40	cache-table.copy-sequence].4).#@
0900	31 30 30 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	100.compiler-macro.for.inlining.
0920	60 63 61 63 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57	`cache-table--create'...(fn.CL-W
0940	48 4f 4c 45 20 26 63 6c 2d 71 75 6f 74 65 20 26 6b 65 79 20 45 58 50 49 52 45 2d 54 49 4d 45 20	HOLE.&cl-quote.&key.EXPIRE-TIME.
0960	54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 2d	TABLE)..(defalias.'cache-table--
0980	63 72 65 61 74 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 33 38 35 20 22 5c 33 30 30 01 5c 33 30 31 5c	create--cmacro.#[385."\300.\301\
09a0	22 41 40 5c 33 30 30 02 5c 33 30 32 5c 22 41 40 02 5c 32 31 31 5c 32 30 33 37 00 5c 32 31 31 40	"A@\300.\302\"A@.\211\2037.\211@
09c0	5c 33 30 33 3e 5c 32 30 33 20 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 0d 00 5c 33 30 34	\303>\203..\211AA\262.\202..\304
09e0	04 3e 41 40 5c 32 30 33 2e 00 5c 33 30 35 5c 32 36 32 01 5c 32 30 32 0d 00 5c 33 30 36 5c 33 30	.>A@\203..\305\262.\202..\306\30
0a00	37 02 40 5c 22 5c 32 31 30 5c 32 30 32 0d 00 5c 32 31 30 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c	7.@\"\210\202..\210\310\311\312\
0a20	33 30 35 06 07 5c 33 30 35 06 07 06 07 26 07 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62	305..\305....&.\207".[plist-memb
0a40	65 72 20 3a 65 78 70 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 20 28 3a 65 78 70 69 72 65 2d	er.:expire-time.:table.(:expire-
0a60	74 69 6d 65 20 3a 74 61 62 6c 65 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 20 3a	time.:table.:allow-other-keys).:
0a80	61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c 20 65 72 72 6f 72 20 22 4b 65 79 77	allow-other-keys.nil.error."Keyw
0aa0	6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20 6f 6e 65 20 6f 66 20 28 3a 65 78 70	ord.argument.%s.not.one.of.(:exp
0ac0	69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 29 22 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65	ire-time.:table)".cl--defsubst-e
0ae0	78 70 61 6e 64 20 28 65 78 70 69 72 65 2d 74 69 6d 65 20 74 61 62 6c 65 29 20 28 63 6c 2d 62 6c	xpand.(expire-time.table).(cl-bl
0b00	6f 63 6b 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 20 28 72 65 63 6f 72 64 20	ock.cache-table--create.(record.
0b20	27 63 61 63 68 65 2d 74 61 62 6c 65 20 65 78 70 69 72 65 2d 74 69 6d 65 20 74 61 62 6c 65 29 29	'cache-table.expire-time.table))
0b40	5d 20 31 32 20 28 23 24 20 2e 20 32 33 30 38 29 5d 29 0a 28 70 75 74 20 27 63 61 63 68 65 2d 74	].12.(#$...2308)]).(put.'cache-t
0b60	61 62 6c 65 2d 2d 63 72 65 61 74 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 63 61	able--create.'compiler-macro.'ca
0b80	63 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 37 37 20	che-table--create--cmacro).#@77.
0ba0	43 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20	Constructor.for.objects.of.type.
0bc0	60 63 61 63 68 65 2d 74 61 62 6c 65 27 2e 0a 0a 28 66 6e 20 26 6b 65 79 20 45 58 50 49 52 45 2d	`cache-table'...(fn.&key.EXPIRE-
0be0	54 49 4d 45 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61	TIME.TABLE)..(defalias.'cache-ta
0c00	62 6c 65 2d 2d 63 72 65 61 74 65 20 23 5b 31 32 38 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 41 40	ble--create.#[128."\300.\301\"A@
0c20	5c 33 30 30 02 5c 33 30 32 5c 22 41 40 02 5c 32 31 31 5c 32 30 33 37 00 5c 32 31 31 40 5c 33 30	\300.\302\"A@.\211\2037.\211@\30
0c40	33 3e 5c 32 30 33 20 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 0d 00 5c 33 30 34 04 3e 41	3>\203..\211AA\262.\202..\304.>A
0c60	40 5c 32 30 33 2e 00 5c 33 30 35 5c 32 36 32 01 5c 32 30 32 0d 00 5c 33 30 36 5c 33 30 37 02 40	@\203..\305\262.\202..\306\307.@
0c80	5c 22 5c 32 31 30 5c 32 30 32 0d 00 5c 32 31 30 5c 33 31 30 5c 33 31 31 03 03 23 5c 32 30 37 22	\"\210\202..\210\310\311..#\207"
0ca0	20 5b 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 65 78 70 69 72 65 2d 74 69 6d 65 20 3a 74 61 62	.[plist-member.:expire-time.:tab
0cc0	6c 65 20 28 3a 65 78 70 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 20 3a 61 6c 6c 6f 77 2d 6f	le.(:expire-time.:table.:allow-o
0ce0	74 68 65 72 2d 6b 65 79 73 29 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c	ther-keys).:allow-other-keys.nil
0d00	20 65 72 72 6f 72 20 22 4b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20	.error."Keyword.argument.%s.not.
0d20	6f 6e 65 20 6f 66 20 28 3a 65 78 70 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 29 22 20 72 65	one.of.(:expire-time.:table)".re
0d40	63 6f 72 64 20 63 61 63 68 65 2d 74 61 62 6c 65 5d 20 37 20 28 23 24 20 2e 20 32 39 37 36 29 5d	cord.cache-table].7.(#$...2976)]
0d60	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
0d80	33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c	304\305\306\307\310\311\312\313\
0da0	33 30 35 5c 33 30 33 26 09 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63	305\303&.\207".[function-put.cac
0dc0	68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	he-table--create.side-effect-fre
0de0	65 20 74 20 63 6c 2d 73 74 72 75 63 74 2d 64 65 66 69 6e 65 20 63 61 63 68 65 2d 74 61 62 6c 65	e.t.cl-struct-define.cache-table
0e00	20 22 41 20 63 61 63 68 65 20 74 61 62 6c 65 20 77 69 74 68 20 65 78 70 69 72 69 6e 67 20 65 6e	."A.cache.table.with.expiring.en
0e20	74 72 69 65 73 2e 22 20 63 6c 2d 73 74 72 75 63 74 75 72 65 2d 6f 62 6a 65 63 74 20 72 65 63 6f	tries.".cl-structure-object.reco
0e40	72 64 20 6e 69 6c 20 28 28 63 6c 2d 74 61 67 2d 73 6c 6f 74 29 20 28 65 78 70 69 72 65 2d 74 69	rd.nil.((cl-tag-slot).(expire-ti
0e60	6d 65 29 20 28 74 61 62 6c 65 29 29 20 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62	me).(table)).cl-struct-cache-tab
0e80	6c 65 2d 74 61 67 73 5d 20 31 31 29 0a 23 40 33 36 37 20 43 72 65 61 74 65 20 61 20 6e 65 77 20	le-tags].11).#@367.Create.a.new.
0ea0	63 61 63 68 65 2d 74 61 62 6c 65 20 77 69 74 68 20 65 6e 74 72 69 65 73 20 61 75 74 6f 6d 61 74	cache-table.with.entries.automat
0ec0	69 63 61 6c 6c 79 20 72 65 6d 6f 76 65 64 0a 66 72 6f 6d 20 74 68 65 20 74 61 62 6c 65 20 61 66	ically.removed.from.the.table.af
0ee0	74 65 72 20 45 58 50 49 52 45 2d 54 49 4d 45 20 73 65 63 6f 6e 64 73 2e 20 54 68 69 73 20 66 75	ter.EXPIRE-TIME.seconds..This.fu
0f00	6e 63 74 69 6f 6e 20 61 63 63 65 70 74 73 0a 74 68 65 20 73 61 6d 65 20 6b 65 79 77 6f 72 64 20	nction.accepts.the.same.keyword.
0f20	61 72 67 75 6d 65 6e 74 73 20 61 73 20 60 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 27 2e 20	arguments.as.`make-hash-table'..
0f40	45 6e 74 72 69 65 73 20 61 72 65 20 6e 6f 74 0a 61 63 74 75 61 6c 6c 79 20 72 65 6d 6f 76 65 64	Entries.are.not.actually.removed
0f60	20 66 72 6f 6d 20 74 68 65 20 63 61 63 68 65 2d 74 61 62 6c 65 20 75 6e 74 69 6c 20 61 6e 20 61	.from.the.cache-table.until.an.a
0f80	63 63 65 73 73 20 69 73 20 6d 61 64 65 20 74 6f 0a 74 68 65 20 63 61 63 68 65 2d 74 61 62 6c 65	ccess.is.made.to.the.cache-table
0fa0	2e 0a 0a 55 73 65 20 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 67 65 74 27 20 74 6f 20 67 65 74 20	...Use.`cache-table-get'.to.get.
0fc0	61 6e 64 20 70 75 74 20 28 76 69 61 20 73 65 74 66 29 20 65 6e 74 72 69 65 73 2e 0a 0a 28 66 6e	and.put.(via.setf).entries...(fn
0fe0	20 45 58 50 49 52 45 2d 54 49 4d 45 20 26 72 65 73 74 20 4b 45 59 57 4f 52 44 2d 41 52 47 53 29	.EXPIRE-TIME.&rest.KEYWORD-ARGS)
1000	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 63 72 65 61 74 65 20	..(defalias.'cache-table-create.
1020	23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 03 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 5c 22	#[385."\300\301.\302\303\304..\"
1040	24 5c 32 30 37 22 20 5b 63 61 63 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 20 3a 65 78 70	$\207".[cache-table--create.:exp
1060	69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 20 61 70 70 6c 79 20 6d 61 6b 65 2d 68 61 73 68 2d	ire-time.:table.apply.make-hash-
1080	74 61 62 6c 65 5d 20 39 20 28 23 24 20 2e 20 33 37 33 31 29 5d 29 0a 23 40 36 34 20 52 65 6d 6f	table].9.(#$...3731)]).#@64.Remo
10a0	76 65 20 61 6c 6c 20 65 78 70 69 72 65 64 20 65 6e 74 72 69 65 73 20 66 72 6f 6d 20 43 41 43 48	ve.all.expired.entries.from.CACH
10c0	45 2d 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 43 41 43 48 45 2d 54 41 42 4c 45 29 1f 0a 28 64 65 66	E-TABLE...(fn.CACHE-TABLE)..(def
10e0	61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 63 6c 65 61 72 2d 65 78 70 69 72 65 64	alias.'cache-table-clear-expired
1100	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 33	.#[257."\301.!.>\204..\302\303\3
1120	30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 33 30 31 02 21 08 3e 5c 32 30 34 21	04.D\"\210\211\305H\301.!.>\204!
1140	00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 30 36 48 5c 33 30 37 20	.\302\303\304.D\"\210.\306H\307.
1160	02 5a 5c 33 31 30 43 5c 33 31 30 43 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 06 07 06 07	.Z\310C\310C\310\311\312\313....
1180	06 07 06 07 06 07 26 06 06 06 5c 22 5c 32 31 30 5c 33 31 30 5c 32 30 37 22 20 5b 63 6c 2d 73 74	......&...\"\210\310\207".[cl-st
11a0	72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69	ruct-cache-table-tags.type-of.si
11c0	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 63 61 63 68 65 2d 74	gnal.wrong-type-argument.cache-t
11e0	61 62 6c 65 20 31 20 32 20 66 6c 6f 61 74 2d 74 69 6d 65 20 6e 69 6c 20 6d 61 70 68 61 73 68 20	able.1.2.float-time.nil.maphash.
1200	6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 35 31 34 20 22 5c 33 30 32 01 5c 32 34 30 5c 32 31	make-closure.#[514."\302.\240\21
1220	30 5c 33 30 33 5c 33 30 32 5c 32 34 32 5c 33 30 32 5c 32 31 31 5c 32 34 32 41 5c 32 34 30 5c 32	0\303\302\242\302\211\242A\240\2
1240	31 30 5c 32 34 32 5c 32 34 30 5c 32 31 30 5c 33 30 33 5c 32 34 32 5c 33 30 31 57 5c 32 30 33 1c	10\242\240\210\303\242\301W\203.
1260	00 5c 33 30 35 02 5c 33 30 30 5c 22 5c 32 31 30 5c 33 30 36 5c 32 30 37 22 20 5b 56 30 20 56 31	.\305.\300\"\210\306\207".[V0.V1
1280	20 56 32 20 56 33 20 56 34 20 72 65 6d 68 61 73 68 20 6e 69 6c 5d 20 36 20 22 5c 6e 5c 6e 28 66	.V2.V3.V4.remhash.nil].6."\n\n(f
12a0	6e 20 4b 45 59 20 45 4e 54 52 59 29 22 5d 5d 20 31 35 20 28 23 24 20 2e 20 34 32 35 32 29 5d 29	n.KEY.ENTRY)"]].15.(#$...4252)])
12c0	0a 23 40 31 33 37 20 41 63 63 65 73 73 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 20 4b 45 59 20	.#@137.Access.the.value.for.KEY.
12e0	69 6e 20 43 41 43 48 45 2d 54 41 42 4c 45 20 69 66 20 69 74 20 68 61 73 20 6e 6f 74 20 79 65 74	in.CACHE-TABLE.if.it.has.not.yet
1300	0a 65 78 70 69 72 65 64 2e 20 42 65 68 61 76 65 73 20 6a 75 73 74 20 6c 69 6b 65 20 60 67 65 74	.expired..Behaves.just.like.`get
1320	68 61 73 68 27 2e 0a 0a 28 66 6e 20 4b 45 59 20 43 41 43 48 45 2d 54 41 42 4c 45 20 26 6f 70 74	hash'...(fn.KEY.CACHE-TABLE.&opt
1340	69 6f 6e 61 6c 20 44 45 46 41 55 4c 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65	ional.DEFAULT)..(defalias.'cache
1360	2d 74 61 62 6c 65 2d 67 65 74 20 23 5b 37 37 30 20 22 5c 33 30 31 02 21 5c 32 31 30 5c 33 30 32	-table-get.#[770."\301.!\210\302
1380	03 5c 33 30 33 04 21 08 3e 5c 32 30 34 16 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 44 5c 22	.\303.!.>\204..\304\305\306..D\"
13a0	5c 32 31 30 03 5c 33 30 37 48 5c 33 31 30 04 42 23 41 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75	\210.\307H\310.B#A\207".[cl-stru
13c0	63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 63 61 63 68 65 2d 74 61 62 6c 65 2d	ct-cache-table-tags.cache-table-
13e0	63 6c 65 61 72 2d 65 78 70 69 72 65 64 20 67 65 74 68 61 73 68 20 74 79 70 65 2d 6f 66 20 73 69	clear-expired.gethash.type-of.si
1400	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 63 61 63 68 65 2d 74	gnal.wrong-type-argument.cache-t
1420	61 62 6c 65 20 32 20 30 5d 20 39 20 28 23 24 20 2e 20 34 38 30 37 29 5d 29 0a 28 62 79 74 65 2d	able.2.0].9.(#$...4807)]).(byte-
1440	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22	code."\300\301\302\303#\300\207"
1460	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 67 65 74 20 67	.[function-put.cache-table-get.g
1480	76 2d 65 78 70 61 6e 64 65 72 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04	v-expander.#[385."\300\301\302..
14a0	24 5c 32 30 37 22 20 5b 67 76 2d 2d 64 65 66 73 65 74 74 65 72 20 63 61 63 68 65 2d 74 61 62 6c	$\207".[gv--defsetter.cache-tabl
14c0	65 2d 67 65 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 02 44 5c 33 30 32 04 5c 33 30 33	e-get.#[771."\300\301.D\302.\303
14e0	5c 33 30 34 06 08 45 5c 33 30 35 06 06 44 46 45 5c 32 30 37 22 20 5b 70 72 6f 67 6e 20 63 61 63	\304..E\305..DFE\207".[progn.cac
1500	68 65 2d 74 61 62 6c 65 2d 63 6c 65 61 72 2d 65 78 70 69 72 65 64 20 70 75 74 68 61 73 68 20 63	he-table-clear-expired.puthash.c
1520	6f 6e 73 20 28 66 6c 6f 61 74 2d 74 69 6d 65 29 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62	ons.(float-time).cache-table-tab
1540	6c 65 5d 20 31 30 20 22 50 75 74 20 61 6e 20 65 6e 74 72 79 20 69 6e 20 74 68 65 20 68 61 73 68	le].10."Put.an.entry.in.the.hash
1560	20 74 61 62 6c 65 2c 20 6c 69 6b 65 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 6b 65 79 20	.table,.like.(setf.(gethash.key.
1580	74 61 62 6c 65 29 20 76 61 6c 75 65 29 2e 5c 6e 5c 6e 28 66 6e 20 56 41 4c 55 45 20 4b 45 59 20	table).value).\n\n(fn.VALUE.KEY.
15a0	43 41 43 48 45 2d 54 41 42 4c 45 29 22 5d 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 44 4f 20 26 72	CACHE-TABLE)"]].7."\n\n(fn.DO.&r
15c0	65 73 74 20 41 52 47 53 29 22 5d 5d 20 34 29 0a 23 40 38 38 20 4c 69 6b 65 20 60 6d 61 70 68 61	est.ARGS)"]].4).#@88.Like.`mapha
15e0	73 68 27 2c 20 63 61 6c 6c 20 46 20 66 6f 72 20 61 6c 6c 20 6e 6f 6e 2d 65 78 70 69 72 65 64 20	sh',.call.F.for.all.non-expired.
1600	65 6e 74 72 69 65 73 20 69 6e 20 43 41 43 48 45 2d 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 46 20 43	entries.in.CACHE-TABLE...(fn.F.C
1620	41 43 48 45 2d 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61	ACHE-TABLE)..(defalias.'cache-ta
1640	62 6c 65 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 33 30 31 01 21 5c 32 31 30 5c 33 30 32 5c 33 30	ble-map.#[514."\301.!\210\302\30
1660	33 5c 33 30 34 04 5c 22 5c 33 30 35 03 21 08 3e 5c 32 30 34 18 00 5c 33 30 36 5c 33 30 37 5c 33	3\304.\"\305.!.>\204..\306\307\3
1680	31 30 05 44 5c 22 5c 32 31 30 02 5c 33 31 31 48 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75	10.D\"\210.\311H\"\207".[cl-stru
16a0	63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 63 61 63 68 65 2d 74 61 62 6c 65 2d	ct-cache-table-tags.cache-table-
16c0	63 6c 65 61 72 2d 65 78 70 69 72 65 64 20 6d 61 70 68 61 73 68 20 6d 61 6b 65 2d 63 6c 6f 73 75	clear-expired.maphash.make-closu
16e0	72 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 41 5c 22 5c 32 30 37 22 20 5b 56 30 5d 20 35 20	re.#[514."\300..A\"\207".[V0].5.
1700	22 5c 6e 5c 6e 28 66 6e 20 4b 20 56 29 22 5d 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77	"\n\n(fn.K.V)"].type-of.signal.w
1720	72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 61 63 68 65 2d 74 61 62 6c 65 20 32	rong-type-argument.cache-table.2
1740	5d 20 38 20 28 23 24 20 2e 20 35 35 38 39 29 5d 29 0a 23 40 38 35 20 4c 69 6b 65 20 60 68 61 73	].8.(#$...5589)]).#@85.Like.`has
1760	68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 27 2c 20 63 6f 75 6e 74 20 74 68 65 20 6e 75 6d 62 65 72	h-table-count',.count.the.number
1780	20 6f 66 20 6e 6f 6e 2d 65 78 70 69 72 65 64 20 65 6e 74 72 69 65 73 2e 0a 0a 28 66 6e 20 43 41	.of.non-expired.entries...(fn.CA
17a0	43 48 45 2d 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62	CHE-TABLE)..(defalias.'cache-tab
17c0	6c 65 2d 63 6f 75 6e 74 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 02 21 08 3e 5c 32 30 34	le-count.#[257."\301\302.!.>\204
17e0	10 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 04 44 5c 22 5c 32 31 30 01 5c 33 30 36 48 21 5c 32 30	..\303\304\305.D\"\210.\306H!\20
1800	37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 68	7".[cl-struct-cache-table-tags.h
1820	61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77	ash-table-count.type-of.signal.w
1840	72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 61 63 68 65 2d 74 61 62 6c 65 20 32	rong-type-argument.cache-table.2
1860	5d 20 36 20 28 23 24 20 2e 20 35 39 37 35 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 63 61 63 68	].6.(#$...5975)]).(provide.'cach
1880	65 2d 74 61 62 6c 65 29 0a	e-table).