blob: 2f0a5d7cd5257214e549e5f27c42122d40bf92f4 (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 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	imizations.....(byte-code."\300\
0060	33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20	301!\210\300\302!\207".[require.
0080	64 61 73 68 20 67 76 5d 20 32 29 0a 23 40 31 32 37 20 43 72 65 61 74 65 20 61 20 68 61 73 68 20	dash.gv].2).#@127.Create.a.hash.
00a0	74 61 62 6c 65 20 77 69 74 68 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 73 20 67	table.with.the.key-value.pairs.g
00c0	69 76 65 6e 2e 0a 4b 65 79 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 77 69 74 68 20 60 65 71	iven..Keys.are.compared.with.`eq
00e0	75 61 6c 27 2e 0a 0a 28 66 6e 20 28 4b 45 59 2d 31 20 56 41 4c 55 45 2d 31 29 20 28 4b 45 59 2d	ual'...(fn.(KEY-1.VALUE-1).(KEY-
0100	32 20 56 41 4c 55 45 2d 32 29 20 2e 2e 2e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 20 27	2.VALUE-2)....)..(defalias.'ht.'
0120	28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30	(macro...#[128."\300\301!\302\30
0140	33 5c 33 30 34 03 5c 22 03 5c 22 5c 33 30 35 02 5c 33 30 36 42 43 5c 33 30 37 03 05 43 5c 22 42	3\304.\".\"\305.\306BC\307..C\"B
0160	42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 68 74 2d 74 65 6d 70 22 20 6d 61	B\207".[make-symbol."ht-temp".ma
0180	70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30	pcar.make-closure.#[257."\301\30
01a0	30 02 42 42 5c 32 30 37 22 20 5b 56 30 20 68 74 2d 73 65 74 21 5d 20 34 20 22 5c 6e 5c 6e 28 66	0.BB\207".[V0.ht-set!].4."\n\n(f
01c0	6e 20 50 41 49 52 29 22 5d 20 6c 65 74 20 28 28 68 74 2d 63 72 65 61 74 65 29 29 20 61 70 70 65	n.PAIR)"].let.((ht-create)).appe
01e0	6e 64 5d 20 38 20 28 23 24 20 2e 20 31 34 36 29 5d 29 29 0a 23 40 35 38 20 41 73 73 6f 63 69 61	nd].8.(#$...146)])).#@58.Associa
0200	74 65 20 4b 45 59 20 69 6e 20 54 41 42 4c 45 20 77 69 74 68 20 56 41 4c 55 45 2e 0a 0a 28 66 6e	te.KEY.in.TABLE.with.VALUE...(fn
0220	20 54 41 42 4c 45 20 4b 45 59 20 56 41 4c 55 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74	.TABLE.KEY.VALUE)..(defalias.'ht
0240	2d 73 65 74 21 20 23 5b 37 37 31 20 22 5c 33 30 30 02 02 05 23 5c 32 31 30 5c 33 30 31 5c 32 30	-set!.#[771."\300...#\210\301\20
0260	37 22 20 5b 70 75 74 68 61 73 68 20 6e 69 6c 5d 20 37 20 28 23 24 20 2e 20 35 30 35 29 5d 29 0a	7".[puthash.nil].7.(#$...505)]).
0280	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 33 30	(byte-code."\300\301\302\303#\30
02a0	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 73 65 74 21 20 63 6f 6d	0\207".[function-put.ht-set!.com
02c0	70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 73 65 74 21 2d 2d 69 6e 6c 69 6e 65 72 5d 20 34 29	piler-macro.ht-set!--inliner].4)
02e0	0a 23 40 33 37 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41 42 4c 45 20 4b	.#@37...(fn.INLINE--FORM.TABLE.K
0300	45 59 20 56 41 4c 55 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 65 74 21 2d 2d 69	EY.VALUE)..(defalias.'ht-set!--i
0320	6e 6c 69 6e 65 72 20 23 5b 31 30 32 38 20 22 5c 33 30 30 32 0e 00 5c 33 30 31 5c 33 30 32 5c 33	nliner.#[1028."\3002..\301\302\3
0340	30 33 04 04 06 07 46 45 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65	03....FE0\207".[inline--just-use
0360	20 70 72 6f 67 31 20 6e 69 6c 20 70 75 74 68 61 73 68 5d 20 31 30 20 28 23 24 20 2e 20 37 34 32	.prog1.nil.puthash].10.(#$...742
0380	29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 65 74 20 27 68 74 2d 73 65 74 21 29 0a	)]).(defalias.'ht-set.'ht-set!).
03a0	23 40 32 32 35 20 43 72 65 61 74 65 20 61 6e 20 65 6d 70 74 79 20 68 61 73 68 20 74 61 62 6c 65	#@225.Create.an.empty.hash.table
03c0	2e 0a 0a 54 45 53 54 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 75	...TEST.indicates.the.function.u
03e0	73 65 64 20 74 6f 20 63 6f 6d 70 61 72 65 20 74 68 65 20 68 61 73 68 0a 6b 65 79 73 2e 20 20 44	sed.to.compare.the.hash.keys...D
0400	65 66 61 75 6c 74 20 69 73 20 60 65 71 75 61 6c 27 2e 20 20 49 74 20 63 61 6e 20 62 65 20 60 65	efault.is.`equal'...It.can.be.`e
0420	71 27 2c 20 60 65 71 6c 27 2c 20 60 65 71 75 61 6c 27 20 6f 72 20 61 0a 75 73 65 72 2d 73 75 70	q',.`eql',.`equal'.or.a.user-sup
0440	70 6c 69 65 64 20 74 65 73 74 20 63 72 65 61 74 65 64 20 76 69 61 20 60 64 65 66 69 6e 65 2d 68	plied.test.created.via.`define-h
0460	61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 27 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20	ash-table-test'...(fn.&optional.
0480	54 45 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 72 65 61 74 65 20 23 5b 32 35	TEST)..(defalias.'ht-create.#[25
04a0	36 20 22 5c 33 30 30 5c 33 30 31 02 5c 32 30 36 07 00 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 6d	6."\300\301.\206..\302\"\207".[m
04c0	61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c 5d 20 34 20 28 23	ake-hash-table.:test.equal].4.(#
04e0	24 20 2e 20 39 33 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c	$...934)]).(byte-code."\300\301\
0500	33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 32 30	302\303#\300\301\304\305#\300\20
0520	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 63 72 65 61 74 65 20 63 6f 6d 70 69	7".[function-put.ht-create.compi
0540	6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 63 72 65 61 74 65 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64	ler-macro.ht-create--inliner.sid
0560	65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 35 29 0a 23 40 33 36 20 0a 0a 28 66 6e 20 49	e-effect-free.t].5).#@36...(fn.I
0580	4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 29 1f 0a 28 64 65	NLINE--FORM.&optional.TEST)..(de
05a0	66 61 6c 69 61 73 20 27 68 74 2d 63 72 65 61 74 65 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 35 31 33	falias.'ht-create--inliner.#[513
05c0	20 22 5c 33 30 30 32 0e 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 03 5c 33 30 34 5c 33 30 35 44 45	."\3002..\301\302\303.\304\305DE
05e0	45 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65 20 6d 61 6b 65 2d 68	E0\207".[inline--just-use.make-h
0600	61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 6f 72 20 71 75 6f 74 65 20 65 71 75 61 6c 5d 20	ash-table.:test.or.quote.equal].
0620	38 20 28 23 24 20 2e 20 31 34 30 31 29 5d 29 0a 23 40 32 36 33 20 43 72 65 61 74 65 20 61 20 68	8.(#$...1401)]).#@263.Create.a.h
0640	61 73 68 20 74 61 62 6c 65 20 77 69 74 68 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 73 20 61 63	ash.table.with.initial.values.ac
0660	63 6f 72 64 69 6e 67 20 74 6f 20 41 4c 49 53 54 2e 0a 0a 54 45 53 54 20 69 6e 64 69 63 61 74 65	cording.to.ALIST...TEST.indicate
0680	73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 61 72 65 20 74	s.the.function.used.to.compare.t
06a0	68 65 20 68 61 73 68 0a 6b 65 79 73 2e 20 20 44 65 66 61 75 6c 74 20 69 73 20 60 65 71 75 61 6c	he.hash.keys...Default.is.`equal
06c0	27 2e 20 20 49 74 20 63 61 6e 20 62 65 20 60 65 71 27 2c 20 60 65 71 6c 27 2c 20 60 65 71 75 61	'...It.can.be.`eq',.`eql',.`equa
06e0	6c 27 20 6f 72 20 61 0a 75 73 65 72 2d 73 75 70 70 6c 69 65 64 20 74 65 73 74 20 63 72 65 61 74	l'.or.a.user-supplied.test.creat
0700	65 64 20 76 69 61 20 60 64 65 66 69 6e 65 2d 68 61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 27 2e	ed.via.`define-hash-table-test'.
0720	0a 0a 28 66 6e 20 41 4c 49 53 54 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 29 1f 0a 28 64 65	..(fn.ALIST.&optional.TEST)..(de
0740	66 61 6c 69 61 73 20 27 68 74 3c 2d 61 6c 69 73 74 20 23 5b 35 31 33 20 22 5c 33 30 30 5c 33 30	falias.'ht<-alist.#[513."\300\30
0760	31 02 5c 32 30 36 07 00 5c 33 30 32 5c 22 5c 33 30 33 03 21 5c 32 31 31 5c 32 30 33 24 00 5c 32	1.\206..\302\"\303.!\211\203$.\2
0780	31 31 40 5c 32 31 31 40 01 41 5c 33 30 34 02 02 06 07 23 5c 32 36 36 03 01 41 5c 32 36 36 5c 32	11@\211@.A\304....#\266..A\266\2
07a0	30 32 5c 32 30 32 0b 00 01 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20	02\202...\207".[make-hash-table.
07c0	3a 74 65 73 74 20 65 71 75 61 6c 20 72 65 76 65 72 73 65 20 70 75 74 68 61 73 68 5d 20 31 31 20	:test.equal.reverse.puthash].11.
07e0	28 23 24 20 2e 20 31 35 39 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	(#$...1590)]).(byte-code."\300\3
0800	30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b	01\302\303#\304\305\301\"\207".[
0820	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 3c 2d 61 6c 69 73 74 20 73 69 64 65 2d 65 66 66 65	function-put.ht<-alist.side-effe
0840	63 74 2d 66 72 65 65 20 74 20 64 65 66 61 6c 69 61 73 20 68 74 2d 66 72 6f 6d 2d 61 6c 69 73 74	ct-free.t.defalias.ht-from-alist
0860	5d 20 34 29 0a 23 40 32 36 33 20 43 72 65 61 74 65 20 61 20 68 61 73 68 20 74 61 62 6c 65 20 77	].4).#@263.Create.a.hash.table.w
0880	69 74 68 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20	ith.initial.values.according.to.
08a0	50 4c 49 53 54 2e 0a 0a 54 45 53 54 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 66 75 6e 63 74	PLIST...TEST.indicates.the.funct
08c0	69 6f 6e 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 61 72 65 20 74 68 65 20 68 61 73 68 0a 6b 65 79	ion.used.to.compare.the.hash.key
08e0	73 2e 20 20 44 65 66 61 75 6c 74 20 69 73 20 60 65 71 75 61 6c 27 2e 20 20 49 74 20 63 61 6e 20	s...Default.is.`equal'...It.can.
0900	62 65 20 60 65 71 27 2c 20 60 65 71 6c 27 2c 20 60 65 71 75 61 6c 27 20 6f 72 20 61 0a 75 73 65	be.`eq',.`eql',.`equal'.or.a.use
0920	72 2d 73 75 70 70 6c 69 65 64 20 74 65 73 74 20 63 72 65 61 74 65 64 20 76 69 61 20 60 64 65 66	r-supplied.test.created.via.`def
0940	69 6e 65 2d 68 61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 27 2e 0a 0a 28 66 6e 20 50 4c 49 53 54	ine-hash-table-test'...(fn.PLIST
0960	20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 3c	.&optional.TEST)..(defalias.'ht<
0980	2d 70 6c 69 73 74 20 23 5b 35 31 33 20 22 5c 33 30 30 5c 33 30 31 02 5c 32 30 36 07 00 5c 33 30	-plist.#[513."\300\301.\206..\30
09a0	32 5c 22 5c 33 30 33 5c 33 30 34 04 5c 22 5c 32 33 37 5c 32 31 31 5c 32 30 33 27 00 5c 32 31 31	2\"\303\304.\"\237\211\203'.\211
09c0	40 5c 32 31 31 40 01 41 40 5c 33 30 35 02 02 06 07 23 5c 32 36 36 03 01 41 5c 32 36 36 5c 32 30	@\211@.A@\305....#\266..A\266\20
09e0	32 5c 32 30 32 0d 00 01 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a	2\202...\207".[make-hash-table.:
0a00	74 65 73 74 20 65 71 75 61 6c 20 2d 70 61 72 74 69 74 69 6f 6e 20 32 20 70 75 74 68 61 73 68 5d	test.equal.-partition.2.puthash]
0a20	20 31 31 20 28 23 24 20 2e 20 32 31 35 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	.11.(#$...2155)]).(byte-code."\3
0a40	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 31 5c 22 5c 32 30	00\301\302\303#\304\305\301\"\20
0a60	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 3c 2d 70 6c 69 73 74 20 73 69 64 65 2d	7".[function-put.ht<-plist.side-
0a80	65 66 66 65 63 74 2d 66 72 65 65 20 74 20 64 65 66 61 6c 69 61 73 20 68 74 2d 66 72 6f 6d 2d 70	effect-free.t.defalias.ht-from-p
0aa0	6c 69 73 74 5d 20 34 29 0a 23 40 31 34 39 20 4c 6f 6f 6b 20 75 70 20 4b 45 59 20 69 6e 20 54 41	list].4).#@149.Look.up.KEY.in.TA
0ac0	42 4c 45 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6d 61 74 63 68 69 6e 67 20 76 61 6c	BLE,.and.return.the.matching.val
0ae0	75 65 2e 0a 49 66 20 4b 45 59 20 69 73 6e 27 74 20 70 72 65 73 65 6e 74 2c 20 72 65 74 75 72 6e	ue..If.KEY.isn't.present,.return
0b00	20 44 45 46 41 55 4c 54 20 28 6e 69 6c 20 69 66 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 29 2e	.DEFAULT.(nil.if.not.specified).
0b20	0a 0a 28 66 6e 20 54 41 42 4c 45 20 4b 45 59 20 26 6f 70 74 69 6f 6e 61 6c 20 44 45 46 41 55 4c	..(fn.TABLE.KEY.&optional.DEFAUL
0b40	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 67 65 74 20 23 5b 37 37 30 20 22 5c 33 30	T)..(defalias.'ht-get.#[770."\30
0b60	30 02 04 03 23 5c 32 30 37 22 20 5b 67 65 74 68 61 73 68 5d 20 37 20 28 23 24 20 2e 20 32 37 33	0...#\207".[gethash].7.(#$...273
0b80	35 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 33 30	5)]).(byte-code."\300\301\302\30
0ba0	33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75	3#\300\301\304\305#\300\207".[fu
0bc0	6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 67 65 74 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f	nction-put.ht-get.compiler-macro
0be0	20 68 74 2d 67 65 74 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65	.ht-get--inliner.side-effect-fre
0c00	65 20 74 5d 20 35 29 0a 23 40 34 39 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20	e.t].5).#@49...(fn.INLINE--FORM.
0c20	54 41 42 4c 45 20 4b 45 59 20 26 6f 70 74 69 6f 6e 61 6c 20 44 45 46 41 55 4c 54 29 1f 0a 28 64	TABLE.KEY.&optional.DEFAULT)..(d
0c40	65 66 61 6c 69 61 73 20 27 68 74 2d 67 65 74 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 31 30 32 37 20	efalias.'ht-get--inliner.#[1027.
0c60	22 5c 33 30 30 32 5c 6e 00 5c 33 30 31 02 04 03 46 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d	"\3002\n.\301...F0\207".[inline-
0c80	2d 6a 75 73 74 2d 75 73 65 20 67 65 74 68 61 73 68 5d 20 38 20 28 23 24 20 2e 20 33 30 38 35 29	-just-use.gethash].8.(#$...3085)
0ca0	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#
0cc0	5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 67 65 74 20 67	\300\207".[function-put.ht-get.g
0ce0	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..
0d00	24 5c 32 30 37 22 20 5b 67 76 2d 2d 64 65 66 73 65 74 74 65 72 20 68 74 2d 67 65 74 20 23 5b 37	$\207".[gv--defsetter.ht-get.#[7
0d20	37 31 20 22 5c 33 30 30 01 04 04 46 5c 32 30 37 22 20 5b 70 75 74 68 61 73 68 5d 20 37 20 22 5c	71."\300...F\207".[puthash].7."\
0d40	6e 5c 6e 28 66 6e 20 56 41 4c 55 45 20 54 41 42 4c 45 20 4b 45 59 29 22 5d 5d 20 37 20 22 5c 6e	n\n(fn.VALUE.TABLE.KEY)"]].7."\n
0d60	5c 6e 28 66 6e 20 44 4f 20 26 72 65 73 74 20 41 52 47 53 29 22 5d 5d 20 34 29 0a 23 40 31 39 33	\n(fn.DO.&rest.ARGS)"]].4).#@193
0d80	20 4c 6f 6f 6b 20 75 70 20 4b 45 59 53 20 69 6e 20 6e 65 73 74 65 64 20 68 61 73 68 20 74 61 62	.Look.up.KEYS.in.nested.hash.tab
0da0	6c 65 73 2c 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 54 41 42 4c 45 2e 0a 54 68 65 20 6c 6f	les,.starting.with.TABLE..The.lo
0dc0	6f 6b 75 70 20 66 6f 72 20 65 61 63 68 20 6b 65 79 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20	okup.for.each.key.should.return.
0de0	61 6e 6f 74 68 65 72 20 68 61 73 68 20 74 61 62 6c 65 2c 20 65 78 63 65 70 74 0a 66 6f 72 20 74	another.hash.table,.except.for.t
0e00	68 65 20 66 69 6e 61 6c 20 6b 65 79 2c 20 77 68 69 63 68 20 6d 61 79 20 72 65 74 75 72 6e 20 61	he.final.key,.which.may.return.a
0e20	6e 79 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 26 72 65 73 74 20 4b 45 59 53 29	ny.value...(fn.TABLE.&rest.KEYS)
0e40	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 67 65 74 2a 20 23 5b 33 38 35 20 22 5c 32 31 31	..(defalias.'ht-get*.#[385."\211
0e60	5c 32 30 33 13 00 5c 33 30 30 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 03 5c 33 30 31 23 5c	\203..\300.\211A\262.\242.\301#\
0e80	32 36 32 02 5c 32 30 32 00 00 01 5c 32 30 37 22 20 5b 67 65 74 68 61 73 68 20 6e 69 6c 5d 20 36	262.\202...\207".[gethash.nil].6
0ea0	20 28 23 24 20 2e 20 33 34 35 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	.(#$...3457)]).(byte-code."\300\
0ec0	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30	301\302\303#\300\301\304\305#\30
0ee0	30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 67 65 74 2a 20 63 6f 6d	0\207".[function-put.ht-get*.com
0f00	70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 67 65 74 2a 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64	piler-macro.ht-get*--inliner.sid
0f20	65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 35 29 0a 23 40 33 38 20 0a 0a 28 66 6e 20 49	e-effect-free.t].5).#@38...(fn.I
0f40	4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41 42 4c 45 20 26 72 65 73 74 20 4b 45 59 53 29 1f 0a 28	NLINE--FORM.TABLE.&rest.KEYS)..(
0f60	64 65 66 61 6c 69 61 73 20 27 68 74 2d 67 65 74 2a 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 36 34 32	defalias.'ht-get*--inliner.#[642
0f80	20 22 5c 33 30 30 32 5a 00 5c 33 30 31 02 21 5c 32 30 33 0e 00 01 5c 32 30 32 11 00 5c 33 30 32	."\3002Z.\301.!\203...\202..\302
0fa0	5c 33 30 33 21 5c 33 30 31 02 21 5c 32 30 33 1b 00 01 5c 32 30 32 1e 00 5c 33 30 32 5c 33 30 34	\303!\301.!\203...\202..\302\304
0fc0	21 5c 33 30 35 5c 33 30 36 02 5c 33 30 37 05 5c 33 31 30 06 07 5c 33 31 31 06 08 44 45 45 45 03	!\305\306.\307.\310..\311..DEEE.
0fe0	45 01 04 3d 5c 32 30 33 3b 00 5c 32 31 31 5c 32 36 36 5c 32 30 32 5c 32 30 32 44 00 5c 33 31 32	E..=\203;.\211\266\202\202D.\312
1000	02 05 44 43 02 5c 22 5c 32 36 36 5c 32 30 32 01 04 3d 5c 32 30 33 50 00 5c 32 31 31 5c 32 36 36	..DC.\"\266\202..=\203P.\211\266
1020	5c 32 30 32 5c 32 30 32 59 00 5c 33 31 32 02 05 44 43 02 5c 22 5c 32 36 36 5c 32 30 32 30 5c 32	\202\202Y.\312..DC.\"\266\2020\2
1040	30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65 20 6d 61 63 72 6f 65 78 70 2d 63	07".[inline--just-use.macroexp-c
1060	6f 70 79 61 62 6c 65 2d 70 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 74 61 62 6c 65 22 20 22 6b	opyable-p.make-symbol."table"."k
1080	65 79 73 22 20 70 72 6f 67 6e 20 77 68 69 6c 65 20 73 65 74 66 20 68 74 2d 67 65 74 20 70 6f 70	eys".progn.while.setf.ht-get.pop
10a0	20 6d 61 63 72 6f 65 78 70 2d 6c 65 74 2a 5d 20 31 34 20 28 23 24 20 2e 20 33 38 39 37 29 5d 29	.macroexp-let*].14.(#$...3897)])
10c0	0a 28 70 75 74 20 27 68 74 2d 67 65 74 2a 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 23	.(put.'ht-get*.'compiler-macro.#
10e0	5b 36 34 32 20 22 01 01 5c 33 30 30 5c 33 30 31 5c 32 31 31 03 5c 32 30 33 21 00 03 5c 32 31 31	[642."..\300\301\211.\203!..\211
1100	41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02 5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 30 32	A\262.\242\262..\262..T\262.\302
1120	05 03 45 5c 32 36 32 05 5c 32 30 32 05 00 5c 32 36 36 04 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20	..E\262.\202..\266.\207".[0.nil.
1140	68 74 2d 67 65 74 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 5f 20 54 41 42 4c 45 20 26 72 65 73	ht-get].11."\n\n(fn._.TABLE.&res
1160	74 20 4b 45 59 53 29 22 5d 29 0a 23 40 38 36 20 55 70 64 61 74 65 20 54 41 42 4c 45 20 61 63 63	t.KEYS)"]).#@86.Update.TABLE.acc
1180	6f 72 64 69 6e 67 20 74 6f 20 65 76 65 72 79 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 69	ording.to.every.key-value.pair.i
11a0	6e 20 46 52 4f 4d 2d 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 46 52 4f 4d 2d 54 41	n.FROM-TABLE...(fn.TABLE.FROM-TA
11c0	42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 75 70 64 61 74 65 21 20 23 5b 35 31	BLE)..(defalias.'ht-update!.#[51
11e0	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 22 02 5c 22 5c 32 31 30 5c 33 30 33 5c 32 30	4."\300\301\302.\".\"\210\303\20
1200	37 22 20 5b 6d 61 70 68 61 73 68 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 35 31 34 20 22	7".[maphash.make-closure.#[514."
1220	5c 33 30 31 02 02 5c 33 30 30 23 5c 32 30 37 22 20 5b 56 30 20 70 75 74 68 61 73 68 5d 20 36 20	\301..\300#\207".[V0.puthash].6.
1240	22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 20 6e 69 6c 5d 20 36 20 28 23 24	"\n\n(fn.KEY.VALUE)"].nil].6.(#$
1260	20 2e 20 34 34 36 34 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 75 70 64 61 74 65 20	...4464)]).(defalias.'ht-update.
1280	27 68 74 2d 75 70 64 61 74 65 21 29 0a 23 40 31 37 30 20 43 72 65 74 65 20 61 20 6e 65 77 20 74	'ht-update!).#@170.Crete.a.new.t
12a0	61 62 6c 65 73 20 74 68 61 74 20 69 6e 63 6c 75 64 65 73 20 61 6c 6c 20 74 68 65 20 6b 65 79 2d	ables.that.includes.all.the.key-
12c0	76 61 6c 75 65 20 70 61 69 72 73 20 66 72 6f 6d 20 54 41 42 4c 45 53 2e 0a 49 66 20 6d 75 6c 74	value.pairs.from.TABLES..If.mult
12e0	69 70 6c 65 20 68 61 76 65 20 74 61 62 6c 65 73 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6b	iple.have.tables.have.the.same.k
1300	65 79 2c 20 74 68 65 20 76 61 6c 75 65 20 69 6e 20 74 68 65 20 6c 61 73 74 0a 74 61 62 6c 65 20	ey,.the.value.in.the.last.table.
1320	69 73 20 75 73 65 64 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 54 41 42 4c 45 53 29 1f 0a 28 64 65	is.used...(fn.&rest.TABLES)..(de
1340	66 61 6c 69 61 73 20 27 68 74 2d 6d 65 72 67 65 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31	falias.'ht-merge.#[128."\300\301
1360	5c 33 30 32 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 5c 22 03 5c 22 5c 32 31 30 5c 32 30 37	\302\"\303\304\305.\".\"\210\207
1380	22 20 5b 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c 20 6d	".[make-hash-table.:test.equal.m
13a0	61 70 63 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30	apc.make-closure.#[257."\301\300
13c0	02 5c 22 5c 32 30 37 22 20 5b 56 30 20 68 74 2d 75 70 64 61 74 65 21 5d 20 34 20 22 5c 6e 5c 6e	.\"\207".[V0.ht-update!].4."\n\n
13e0	28 66 6e 20 54 41 42 4c 45 29 22 5d 5d 20 36 20 28 23 24 20 2e 20 34 37 35 35 29 5d 29 0a 23 40	(fn.TABLE)"]].6.(#$...4755)]).#@
1400	34 30 20 52 65 6d 6f 76 65 20 4b 45 59 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54	40.Remove.KEY.from.TABLE...(fn.T
1420	41 42 4c 45 20 4b 45 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 72 65 6d 6f 76 65 21	ABLE.KEY)..(defalias.'ht-remove!
1440	20 23 5b 35 31 34 20 22 5c 33 30 30 01 03 5c 22 5c 32 30 37 22 20 5b 72 65 6d 68 61 73 68 5d 20	.#[514."\300..\"\207".[remhash].
1460	35 20 28 23 24 20 2e 20 35 31 32 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	5.(#$...5123)]).(byte-code."\300
1480	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 69 6f 6e	\301\302\303#\300\207".[function
14a0	2d 70 75 74 20 68 74 2d 72 65 6d 6f 76 65 21 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68	-put.ht-remove!.compiler-macro.h
14c0	74 2d 72 65 6d 6f 76 65 21 2d 2d 69 6e 6c 69 6e 65 72 5d 20 34 29 0a 23 40 33 31 20 0a 0a 28 66	t-remove!--inliner].4).#@31...(f
14e0	6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41 42 4c 45 20 4b 45 59 29 1f 0a 28 64 65 66 61	n.INLINE--FORM.TABLE.KEY)..(defa
1500	6c 69 61 73 20 27 68 74 2d 72 65 6d 6f 76 65 21 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 37 37 31 20	lias.'ht-remove!--inliner.#[771.
1520	22 5c 33 30 30 32 09 00 5c 33 30 31 01 03 45 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a	"\3002..\301..E0\207".[inline--j
1540	75 73 74 2d 75 73 65 20 72 65 6d 68 61 73 68 5d 20 36 20 28 23 24 20 2e 20 35 33 34 30 29 5d 29	ust-use.remhash].6.(#$...5340)])
1560	0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 72 65 6d 6f 76 65 20 27 68 74 2d 72 65 6d 6f 76 65	.(defalias.'ht-remove.'ht-remove
1580	21 29 0a 23 40 34 31 20 52 65 6d 6f 76 65 20 61 6c 6c 20 6b 65 79 73 20 66 72 6f 6d 20 54 41 42	!).#@41.Remove.all.keys.from.TAB
15a0	4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63	LE...(fn.TABLE)..(defalias.'ht-c
15c0	6c 65 61 72 21 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 30 5c 33 30 31 5c 32 30 37 22	lear!.#[257."\300.!\210\301\207"
15e0	20 5b 63 6c 72 68 61 73 68 20 6e 69 6c 5d 20 33 20 28 23 24 20 2e 20 35 35 31 32 29 5d 29 0a 28	.[clrhash.nil].3.(#$...5512)]).(
1600	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 33 30 30	byte-code."\300\301\302\303#\300
1620	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 63 6c 65 61 72 21 20 63 6f	\207".[function-put.ht-clear!.co
1640	6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 63 6c 65 61 72 21 2d 2d 69 6e 6c 69 6e 65 72 5d	mpiler-macro.ht-clear!--inliner]
1660	20 34 29 0a 23 40 32 37 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41 42 4c	.4).#@27...(fn.INLINE--FORM.TABL
1680	45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6c 65 61 72 21 2d 2d 69 6e 6c 69 6e 65	E)..(defalias.'ht-clear!--inline
16a0	72 20 23 5b 35 31 34 20 22 5c 33 30 30 32 0b 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 03 44 45 30	r.#[514."\3002..\301\302\303.DE0
16c0	5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65 20 70 72 6f 67 31 20 6e 69	\207".[inline--just-use.prog1.ni
16e0	6c 20 63 6c 72 68 61 73 68 5d 20 36 20 28 23 24 20 2e 20 35 37 33 37 29 5d 29 0a 28 64 65 66 61	l.clrhash].6.(#$...5737)]).(defa
1700	6c 69 61 73 20 27 68 74 2d 63 6c 65 61 72 20 27 68 74 2d 63 6c 65 61 72 21 29 0a 23 40 31 35 36	lias.'ht-clear.'ht-clear!).#@156
1720	20 41 70 70 6c 79 20 46 55 4e 43 54 49 4f 4e 20 74 6f 20 65 61 63 68 20 6b 65 79 2d 76 61 6c 75	.Apply.FUNCTION.to.each.key-valu
1740	65 20 70 61 69 72 20 6f 66 20 54 41 42 4c 45 2c 20 61 6e 64 20 6d 61 6b 65 20 61 20 6c 69 73 74	e.pair.of.TABLE,.and.make.a.list
1760	20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 46 55 4e 43 54 49 4f 4e 20 69 73 20 63 61 6c	.of.the.results..FUNCTION.is.cal
1780	6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 4b 45 59 20 61 6e 64 20	led.with.two.arguments,.KEY.and.
17a0	56 41 4c 55 45 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65	VALUE...(fn.FUNCTION.TABLE)..(de
17c0	66 61 6c 69 61 73 20 27 68 74 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 33 30 30 43 5c 33 30 31 5c	falias.'ht-map.#[514."\300C\301\
17e0	33 30 32 5c 33 30 33 05 04 23 03 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 30 37 22 20 5b	302\303..#.\"\210\211\242\207".[
1800	6e 69 6c 20 6d 61 70 68 61 73 68 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 35 31 34 20 22	nil.maphash.make-closure.#[514."
1820	5c 33 30 31 5c 33 30 30 03 03 5c 22 5c 33 30 31 5c 32 34 32 42 5c 32 34 30 5c 32 30 37 22 20 5b	\301\300..\"\301\242B\240\207".[
1840	56 30 20 56 31 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 5d 20	V0.V1].6."\n\n(fn.KEY.VALUE)"]].
1860	38 20 28 23 24 20 2e 20 35 39 32 31 29 5d 29 0a 23 40 32 31 38 20 41 6e 61 70 68 6f 72 69 63 20	8.(#$...5921)]).#@218.Anaphoric.
1880	76 65 72 73 69 6f 6e 20 6f 66 20 60 68 74 2d 6d 61 70 27 2e 0a 46 6f 72 20 65 76 65 72 79 20 6b	version.of.`ht-map'..For.every.k
18a0	65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 69 6e 20 54 41 42 4c 45 2c 20 65 76 61 6c 75 61 74 65	ey-value.pair.in.TABLE,.evaluate
18c0	20 46 4f 52 4d 20 77 69 74 68 20 74 68 65 0a 76 61 72 69 61 62 6c 65 73 20 4b 45 59 20 61 6e 64	.FORM.with.the.variables.KEY.and
18e0	20 56 41 4c 55 45 20 62 6f 75 6e 64 2e 20 20 49 66 20 79 6f 75 20 64 6f 6e 27 74 20 75 73 65 20	.VALUE.bound...If.you.don't.use.
1900	62 6f 74 68 20 6f 66 0a 74 68 65 73 65 20 76 61 72 69 61 62 6c 65 73 2c 20 74 68 65 6e 20 75 73	both.of.these.variables,.then.us
1920	65 20 60 68 74 2d 6d 61 70 27 20 74 6f 20 61 76 6f 69 64 20 77 61 72 6e 69 6e 67 73 2e 0a 0a 28	e.`ht-map'.to.avoid.warnings...(
1940	66 6e 20 46 4f 52 4d 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 61 6d	fn.FORM.TABLE)..(defalias.'ht-am
1960	61 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	ap.'(macro...#[514."\300\301\302
1980	04 45 02 45 5c 32 30 37 22 20 5b 68 74 2d 6d 61 70 20 6c 61 6d 62 64 61 20 28 6b 65 79 20 76 61	.E.E\207".[ht-map.lambda.(key.va
19a0	6c 75 65 29 5d 20 36 20 28 23 24 20 2e 20 36 32 36 32 29 5d 29 29 0a 23 40 35 33 20 52 65 74 75	lue)].6.(#$...6262)])).#@53.Retu
19c0	72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 6b 65 79 73 20 69 6e 20 54 41 42	rn.a.list.of.all.the.keys.in.TAB
19e0	4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 6b	LE...(fn.TABLE)..(defalias.'ht-k
1a00	65 79 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 68 74 2d	eys.#[257."\300\301.\"\207".[ht-
1a20	6d 61 70 20 23 5b 35 31 34 20 22 01 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20	map.#[514.".\207".[].3."\n\n(fn.
1a40	4b 45 59 20 56 41 4c 55 45 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 36 35 38 38 29 5d 29 0a 28 62	KEY.VALUE)"]].4.(#$...6588)]).(b
1a60	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\
1a80	32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 6b 65 79 73 20 73 69 64 65 2d	207".[function-put.ht-keys.side-
1aa0	65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 35 35 20 52 65 74 75 72 6e 20 61 20	effect-free.t].4).#@55.Return.a.
1ac0	6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 76 61 6c 75 65 73 20 69 6e 20 54 41 42 4c 45 2e	list.of.all.the.values.in.TABLE.
1ae0	0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 76 61 6c 75	..(fn.TABLE)..(defalias.'ht-valu
1b00	65 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 68 74 2d 6d	es.#[257."\300\301.\"\207".[ht-m
1b20	61 70 20 23 5b 35 31 34 20 22 5c 32 30 37 22 20 5b 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45	ap.#[514."\207".[].3."\n\n(fn.KE
1b40	59 20 56 41 4c 55 45 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 36 38 33 39 29 5d 29 0a 28 62 79 74	Y.VALUE)"]].4.(#$...6839)]).(byt
1b60	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 30	e-code."\300\301\302\303#\300\20
1b80	37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 76 61 6c 75 65 73 20 73 69 64 65 2d	7".[function-put.ht-values.side-
1ba0	65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 37 33 20 52 65 74 75 72 6e 20 61 20	effect-free.t].4).#@73.Return.a.
1bc0	6c 69 73 74 20 6f 66 20 74 77 6f 2d 65 6c 65 6d 65 6e 74 20 6c 69 73 74 73 20 27 28 6b 65 79 20	list.of.two-element.lists.'(key.
1be0	76 61 6c 75 65 29 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a	value).from.TABLE...(fn.TABLE)..
1c00	28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 69 74 65 6d 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c	(defalias.'ht-items.#[257."\300\
1c20	33 30 31 02 5c 22 5c 32 30 37 22 20 5b 68 74 2d 6d 61 70 20 23 5b 35 31 34 20 22 01 01 44 5c 32	301.\"\207".[ht-map.#[514."..D\2
1c40	30 37 22 20 5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 5d 20	07".[].4."\n\n(fn.KEY.VALUE)"]].
1c60	34 20 28 23 24 20 2e 20 37 30 39 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	4.(#$...7095)]).(byte-code."\300
1c80	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 37 23 5c 32	\301\302\303#\304\305\306\307#\2
1ca0	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 69 74 65 6d 73 20 73 69 64 65 2d	07".[function-put.ht-items.side-
1cc0	65 66 66 65 63 74 2d 66 72 65 65 20 74 20 64 65 66 61 6c 69 61 73 20 68 74 2d 65 61 63 68 20 6d	effect-free.t.defalias.ht-each.m
1ce0	61 70 68 61 73 68 20 22 41 70 70 6c 79 20 46 55 4e 43 54 49 4f 4e 20 74 6f 20 65 61 63 68 20 6b	aphash."Apply.FUNCTION.to.each.k
1d00	65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 6f 66 20 54 41 42 4c 45 2e 5c 6e 52 65 74 75 72 6e 73	ey-value.pair.of.TABLE.\nReturns
1d20	20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 20 6f 6e 6c 79	.nil,.used.for.side-effects.only
1d40	2e 22 5d 20 35 29 0a 23 40 31 33 39 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f	."].5).#@139.Anaphoric.version.o
1d60	66 20 60 68 74 2d 65 61 63 68 27 2e 0a 46 6f 72 20 65 76 65 72 79 20 6b 65 79 2d 76 61 6c 75 65	f.`ht-each'..For.every.key-value
1d80	20 70 61 69 72 20 69 6e 20 54 41 42 4c 45 2c 20 65 76 61 6c 75 61 74 65 20 46 4f 52 4d 20 77 69	.pair.in.TABLE,.evaluate.FORM.wi
1da0	74 68 20 74 68 65 0a 76 61 72 69 61 62 6c 65 73 20 6b 65 79 20 61 6e 64 20 76 61 6c 75 65 20 62	th.the.variables.key.and.value.b
1dc0	6f 75 6e 64 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61	ound...(fn.FORM.TABLE)..(defalia
1de0	73 20 27 68 74 2d 61 65 61 63 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35 31 34 20 22 5c 33 30	s.'ht-aeach.'(macro...#[514."\30
1e00	30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 68 74 2d 65 61 63 68 20 6c 61 6d 62	0\301\302.E.E\207".[ht-each.lamb
1e20	64 61 20 28 6b 65 79 20 76 61 6c 75 65 29 5d 20 36 20 28 23 24 20 2e 20 37 35 30 31 29 5d 29 29	da.(key.value)].6.(#$...7501)]))
1e40	0a 23 40 37 31 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 54 41 42 4c 45 20 77 69 74	.#@71.Return.a.copy.of.TABLE.wit
1e60	68 20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 4b 45 59 53 2e 0a 0a 28 66 6e 20	h.only.the.specified.KEYS...(fn.
1e80	54 41 42 4c 45 20 4b 45 59 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 65 6c 65 63	TABLE.KEYS)..(defalias.'ht-selec
1ea0	74 2d 6b 65 79 73 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 05 21	t-keys.#[514."\300\301\302\303.!
1ec0	5c 22 5c 32 36 32 01 01 5c 32 31 31 5c 32 30 33 2c 00 5c 32 31 31 40 5c 33 30 34 01 06 06 5c 33	\"\262..\211\203,.\211@\304...\3
1ee0	30 35 23 5c 33 30 35 3d 5c 32 30 34 25 00 5c 33 30 36 01 5c 33 30 34 03 06 08 5c 22 05 23 5c 32	05#\305=\204%.\306.\304...\".#\2
1f00	31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 5c 6e 00 01 5c 32 30 37 22 20 5b 6e 69 6c 20 6d	10.A\266\202\202\n..\207".[nil.m
1f20	61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 68 61 73 68 2d 74 61 62 6c 65 2d	ake-hash-table.:test.hash-table-
1f40	74 65 73 74 20 67 65 74 68 61 73 68 20 6b 65 79 2d 6e 6f 74 2d 66 6f 75 6e 64 20 70 75 74 68 61	test.gethash.key-not-found.putha
1f60	73 68 5d 20 31 30 20 28 23 24 20 2e 20 37 37 35 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20	sh].10.(#$...7750)]).(byte-code.
1f80	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 20 5b 66 75 6e	"\300\301\302\303#\300\207".[fun
1fa0	63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 73 65 6c 65 63 74 2d 6b 65 79 73 20 73 69 64 65 2d 65 66	ction-put.ht-select-keys.side-ef
1fc0	66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 32 37 39 20 52 65 74 75 72 6e 20 61 20 66	fect-free.t].4).#@279.Return.a.f
1fe0	6c 61 74 20 6c 69 73 74 20 27 28 6b 65 79 31 20 76 61 6c 75 65 31 20 6b 65 79 32 20 76 61 6c 75	lat.list.'(key1.value1.key2.valu
2000	65 32 2e 2e 2e 29 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 68 61	e2...).from.TABLE...Note.that.ha
2020	73 68 20 74 61 62 6c 65 73 20 61 72 65 20 75 6e 6f 72 64 65 72 65 64 2c 20 73 6f 20 74 68 69 73	sh.tables.are.unordered,.so.this
2040	20 63 61 6e 6e 6f 74 20 62 65 20 61 6e 20 65 78 61 63 74 0a 69 6e 76 65 72 73 65 20 6f 66 20 60	.cannot.be.an.exact.inverse.of.`
2060	68 74 3c 2d 70 6c 69 73 74 27 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 73 20 6e 6f	ht<-plist'...The.following.is.no
2080	74 20 67 75 61 72 61 6e 74 65 65 64 3a 0a 0a 28 6c 65 74 20 28 28 64 61 74 61 20 27 28 61 20 62	t.guaranteed:..(let.((data.'(a.b
20a0	20 63 20 64 29 29 29 0a 20 20 28 65 71 75 61 6c 70 20 64 61 74 61 0a 20 20 20 20 20 20 20 20 20	.c.d)))...(equalp.data..........
20c0	20 28 68 74 2d 3e 70 6c 69 73 74 20 28 68 74 3c 2d 70 6c 69 73 74 20 64 61 74 61 29 29 29 29 0a	.(ht->plist.(ht<-plist.data)))).
20e0	0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 3e 70 6c 69 73	.(fn.TABLE)..(defalias.'ht->plis
2100	74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 21 5c 22 5c 32 30 37 22 20 5b	t.#[257."\300\301\302.!\"\207".[
2120	61 70 70 6c 79 20 61 70 70 65 6e 64 20 68 74 2d 69 74 65 6d 73 5d 20 35 20 28 23 24 20 2e 20 38	apply.append.ht-items].5.(#$...8
2140	31 35 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 5c	150)]).(byte-code."\300\301\302\
2160	33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f	303#\304\305\301\"\207".[functio
2180	6e 2d 70 75 74 20 68 74 2d 3e 70 6c 69 73 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65	n-put.ht->plist.side-effect-free
21a0	20 74 20 64 65 66 61 6c 69 61 73 20 68 74 2d 74 6f 2d 70 6c 69 73 74 5d 20 34 29 0a 23 40 37 34	.t.defalias.ht-to-plist].4).#@74
21c0	20 52 65 74 75 72 6e 20 61 20 73 68 61 6c 6c 6f 77 20 63 6f 70 79 20 6f 66 20 54 41 42 4c 45 20	.Return.a.shallow.copy.of.TABLE.
21e0	28 6b 65 79 73 20 61 6e 64 20 76 61 6c 75 65 73 20 61 72 65 20 73 68 61 72 65 64 29 2e 0a 0a 28	(keys.and.values.are.shared)...(
2200	66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6f 70 79 20 23 5b	fn.TABLE)..(defalias.'ht-copy.#[
2220	32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 63 6f 70 79 2d 68 61 73 68 2d 74 61 62 6c	257."\300.!\207".[copy-hash-tabl
2240	65 5d 20 33 20 28 23 24 20 2e 20 38 36 34 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	e].3.(#$...8641)]).(byte-code."\
2260	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35	300\301\302\303#\300\301\304\305
2280	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 68 74 2d 63 6f 70 79	#\300\207".[function-put.ht-copy
22a0	20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 63 6f 70 79 2d 2d 69 6e 6c 69 6e 65 72	.compiler-macro.ht-copy--inliner
22c0	20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 35 29 0a 23 40 32 37 20 0a 0a 28	.side-effect-free.t].5).#@27...(
22e0	66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61	fn.INLINE--FORM.TABLE)..(defalia
2300	73 20 27 68 74 2d 63 6f 70 79 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 32	s.'ht-copy--inliner.#[514."\3002
2320	08 00 5c 33 30 31 01 44 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65	..\301.D0\207".[inline--just-use
2340	20 63 6f 70 79 2d 68 61 73 68 2d 74 61 62 6c 65 5d 20 34 20 28 23 24 20 2e 20 38 39 32 35 29 5d	.copy-hash-table].4.(#$...8925)]
2360	29 0a 23 40 32 38 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 2d 65 6c 65	).#@288.Return.a.list.of.two-ele
2380	6d 65 6e 74 20 6c 69 73 74 73 20 27 28 6b 65 79 20 2e 20 76 61 6c 75 65 29 20 66 72 6f 6d 20 54	ment.lists.'(key...value).from.T
23a0	41 42 4c 45 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 68 61 73 68 20 74 61 62 6c 65 73 20 61 72 65	ABLE...Note.that.hash.tables.are
23c0	20 75 6e 6f 72 64 65 72 65 64 2c 20 73 6f 20 74 68 69 73 20 63 61 6e 6e 6f 74 20 62 65 20 61 6e	.unordered,.so.this.cannot.be.an
23e0	20 65 78 61 63 74 0a 69 6e 76 65 72 73 65 20 6f 66 20 60 68 74 3c 2d 61 6c 69 73 74 27 2e 20 20	.exact.inverse.of.`ht<-alist'...
2400	54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 73 20 6e 6f 74 20 67 75 61 72 61 6e 74 65 65 64 3a	The.following.is.not.guaranteed:
2420	0a 0a 28 6c 65 74 20 28 28 64 61 74 61 20 27 28 28 61 20 2e 20 62 29 20 28 63 20 2e 20 64 29 29	..(let.((data.'((a...b).(c...d))
2440	29 29 0a 20 20 28 65 71 75 61 6c 70 20 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 28 68 74 2d	))...(equalp.data...........(ht-
2460	3e 61 6c 69 73 74 20 28 68 74 3c 2d 61 6c 69 73 74 20 64 61 74 61 29 29 29 29 0a 0a 28 66 6e 20	>alist.(ht<-alist.data))))..(fn.
2480	54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 3e 61 6c 69 73 74 20 23 5b 32	TABLE)..(defalias.'ht->alist.#[2
24a0	35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 68 74 2d 6d 61 70 20 23 5b 35	57."\300\301.\"\207".[ht-map.#[5
24c0	31 34 20 22 01 01 42 5c 32 30 37 22 20 5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56	14."..B\207".[].4."\n\n(fn.KEY.V
24e0	41 4c 55 45 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 39 30 36 34 29 5d 29 0a 28 62 79 74 65 2d 63	ALUE)"]].4.(#$...9064)]).(byte-c
2500	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 34 5c 33 30 35 5c 33	ode."\300\301\302\303#\304\305\3
2520	30 31 5c 22 5c 32 31 30 5c 33 30 34 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 34 5c 33	01\"\210\304\306\307\"\210\304\3
2540	31 30 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 3e	10\307\"\207".[function-put.ht->
2560	61 6c 69 73 74 20 73 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	alist.side-effect-free.t.defalia
2580	73 20 68 74 2d 74 6f 2d 61 6c 69 73 74 20 68 74 5c 3f 20 68 61 73 68 2d 74 61 62 6c 65 2d 70 20	s.ht-to-alist.ht\?.hash-table-p.
25a0	68 74 2d 70 5d 20 34 29 0a 23 40 35 30 20 52 65 74 75 72 6e 20 27 74 20 69 66 20 54 41 42 4c 45	ht-p].4).#@50.Return.'t.if.TABLE
25c0	20 63 6f 6e 74 61 69 6e 73 20 4b 45 59 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 4b 45 59 29 1f 0a	.contains.KEY...(fn.TABLE.KEY)..
25e0	28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 35 31 34 20 22	(defalias.'ht-contains\?.#[514."
2600	5c 33 30 30 5c 33 30 31 21 5c 33 30 32 02 04 03 23 01 3d 3f 5c 32 30 37 22 20 5b 6d 61 6b 65 2d	\300\301!\302...#.=?\207".[make-
2620	73 79 6d 62 6f 6c 20 22 68 74 2d 2d 6e 6f 74 2d 66 6f 75 6e 64 22 20 67 65 74 68 61 73 68 5d 20	symbol."ht--not-found".gethash].
2640	37 20 28 23 24 20 2e 20 39 36 34 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	7.(#$...9646)]).(byte-code."\300
2660	5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33	\301\302\303#\300\301\304\305#\3
2680	30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 63 6f 6e 74 61 69 6e	00\207".[function-put.ht-contain
26a0	73 5c 3f 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f	s\?.compiler-macro.ht-contains\?
26c0	2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 35 29	--inliner.side-effect-free.t].5)
26e0	0a 23 40 33 31 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41 42 4c 45 20 4b	.#@31...(fn.INLINE--FORM.TABLE.K
2700	45 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f 2d 2d 69	EY)..(defalias.'ht-contains\?--i
2720	6e 6c 69 6e 65 72 20 23 5b 37 37 31 20 22 5c 33 30 30 32 19 00 5c 33 30 31 5c 33 30 32 5c 33 30	nliner.#[771."\3002..\301\302\30
2740	33 5c 33 30 34 44 44 43 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 06 06 06 5c 33 30 32 46 5c 33 30	3\304DDC\305\306\307....\302F\30
2760	32 45 44 45 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65 20 6c 65 74	2EDE0\207".[inline--just-use.let
2780	20 6e 6f 74 2d 66 6f 75 6e 64 2d 73 79 6d 62 6f 6c 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 68	.not-found-symbol.make-symbol."h
27a0	74 2d 2d 6e 6f 74 2d 66 6f 75 6e 64 22 20 6e 6f 74 20 65 71 20 68 74 2d 67 65 74 5d 20 31 31 20	t--not-found".not.eq.ht-get].11.
27c0	28 23 24 20 2e 20 39 39 35 38 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6f 6e 74	(#$...9958)]).(defalias.'ht-cont
27e0	61 69 6e 73 2d 70 20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f 29 0a 23 40 35 39 20 52 65 74 75	ains-p.'ht-contains\?).#@59.Retu
2800	72 6e 20 74 68 65 20 61 63 74 75 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 65 6e 74 72 69 65 73 20	rn.the.actual.number.of.entries.
2820	69 6e 20 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73	in.TABLE...(fn.TABLE)..(defalias
2840	20 27 68 74 2d 73 69 7a 65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 68 61	.'ht-size.#[257."\300.!\207".[ha
2860	73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 5d 20 33 20 28 23 24 20 2e 20 31 30 32 33 36 29 5d 29	sh-table-count].3.(#$...10236)])
2880	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 33	.(byte-code."\300\301\302\303#\3
28a0	30 30 5c 33 30 31 5c 33 30 34 5c 33 30 35 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	00\301\304\305#\300\207".[functi
28c0	6f 6e 2d 70 75 74 20 68 74 2d 73 69 7a 65 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74	on-put.ht-size.compiler-macro.ht
28e0	2d 73 69 7a 65 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20	-size--inliner.side-effect-free.
2900	74 5d 20 35 29 0a 23 40 32 37 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41	t].5).#@27...(fn.INLINE--FORM.TA
2920	42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 69 7a 65 2d 2d 69 6e 6c 69 6e 65	BLE)..(defalias.'ht-size--inline
2940	72 20 23 5b 35 31 34 20 22 5c 33 30 30 32 08 00 5c 33 30 31 01 44 30 5c 32 30 37 22 20 5b 69 6e	r.#[514."\3002..\301.D0\207".[in
2960	6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65 20 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 5d	line--just-use.hash-table-count]
2980	20 34 20 28 23 24 20 2e 20 31 30 35 30 37 29 5d 29 0a 23 40 37 35 20 52 65 74 75 72 6e 20 74 72	.4.(#$...10507)]).#@75.Return.tr
29a0	75 65 20 69 66 20 74 68 65 20 61 63 74 75 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 65 6e 74 72 69	ue.if.the.actual.number.of.entri
29c0	65 73 20 69 6e 20 54 41 42 4c 45 20 69 73 20 7a 65 72 6f 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29	es.in.TABLE.is.zero...(fn.TABLE)
29e0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 65 6d 70 74 79 5c 3f 20 23 5b 32 35 37 20 22 5c	..(defalias.'ht-empty\?.#[257."\
2a00	33 30 30 01 21 5c 33 30 31 55 5c 32 30 37 22 20 5b 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e	300.!\301U\207".[hash-table-coun
2a20	74 20 30 5d 20 33 20 28 23 24 20 2e 20 31 30 36 34 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65	t.0].3.(#$...10647)]).(byte-code
2a40	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c	."\300\301\302\303#\300\301\304\
2a60	33 30 35 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 68 74 2d 65	305#\300\207".[function-put.ht-e
2a80	6d 70 74 79 5c 3f 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 65 6d 70 74 79 5c 3f	mpty\?.compiler-macro.ht-empty\?
2aa0	2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 35 29	--inliner.side-effect-free.t].5)
2ac0	0a 23 40 32 37 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41 42 4c 45 29 1f	.#@27...(fn.INLINE--FORM.TABLE).
2ae0	0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 65 6d 70 74 79 5c 3f 2d 2d 69 6e 6c 69 6e 65 72 20	.(defalias.'ht-empty\?--inliner.
2b00	23 5b 35 31 34 20 22 5c 33 30 30 32 5c 6e 00 5c 33 30 31 5c 33 30 32 02 44 44 30 5c 32 30 37 22	#[514."\3002\n.\301\302.DD0\207"
2b20	20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65 20 7a 65 72 6f 70 20 68 74 2d 73 69 7a 65	.[inline--just-use.zerop.ht-size
2b40	5d 20 35 20 28 23 24 20 2e 20 31 30 39 35 30 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74	].5.(#$...10950)]).(defalias.'ht
2b60	2d 65 6d 70 74 79 2d 70 20 27 68 74 2d 65 6d 70 74 79 5c 3f 29 0a 23 40 31 37 32 20 52 65 74 75	-empty-p.'ht-empty\?).#@172.Retu
2b80	72 6e 20 61 20 68 61 73 68 20 74 61 62 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 6c 6c 20 65	rn.a.hash.table.containing.all.e
2ba0	6e 74 72 69 65 73 20 69 6e 20 54 41 42 4c 45 20 66 6f 72 20 77 68 69 63 68 0a 46 55 4e 43 54 49	ntries.in.TABLE.for.which.FUNCTI
2bc0	4f 4e 20 72 65 74 75 72 6e 73 20 61 20 74 72 75 74 68 79 20 76 61 6c 75 65 2e 0a 0a 46 55 4e 43	ON.returns.a.truthy.value...FUNC
2be0	54 49 4f 4e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74	TION.is.called.with.two.argument
2c00	73 2c 20 4b 45 59 20 61 6e 64 20 56 41 4c 55 45 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20	s,.KEY.and.VALUE...(fn.FUNCTION.
2c20	54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 65 6c 65 63 74 20 23 5b 35	TABLE)..(defalias.'ht-select.#[5
2c40	31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 04	14."\300\301\302\"\303\304\305..
2c60	23 03 5c 22 5c 32 31 30 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a	#.\"\210\207".[make-hash-table.:
2c80	74 65 73 74 20 65 71 75 61 6c 20 68 74 2d 65 61 63 68 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20	test.equal.ht-each.make-closure.
2ca0	23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 35 0e 00 5c 33 30 32 02 02 5c 33 30 31 23	#[514."\300..\"\205..\302..\301#
2cc0	5c 32 31 30 5c 33 30 33 5c 32 30 37 22 20 5b 56 30 20 56 31 20 70 75 74 68 61 73 68 20 6e 69 6c	\210\303\207".[V0.V1.puthash.nil
2ce0	5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 5d 20 38 20 28 23 24	].6."\n\n(fn.KEY.VALUE)"]].8.(#$
2d00	20 2e 20 31 31 31 33 32 29 5d 29 0a 23 40 31 37 31 20 52 65 74 75 72 6e 20 61 20 68 61 73 68 20	...11132)]).#@171.Return.a.hash.
2d20	74 61 62 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 6c 6c 20 65 6e 74 72 69 65 73 20 69 6e 20	table.containing.all.entries.in.
2d40	54 41 42 4c 45 20 66 6f 72 20 77 68 69 63 68 0a 46 55 4e 43 54 49 4f 4e 20 72 65 74 75 72 6e 73	TABLE.for.which.FUNCTION.returns
2d60	20 61 20 66 61 6c 73 79 20 76 61 6c 75 65 2e 0a 0a 46 55 4e 43 54 49 4f 4e 20 69 73 20 63 61 6c	.a.falsy.value...FUNCTION.is.cal
2d80	6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 4b 45 59 20 61 6e 64 20	led.with.two.arguments,.KEY.and.
2da0	56 41 4c 55 45 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65	VALUE...(fn.FUNCTION.TABLE)..(de
2dc0	66 61 6c 69 61 73 20 27 68 74 2d 72 65 6a 65 63 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30	falias.'ht-reject.#[514."\300\30
2de0	31 5c 33 30 32 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 04 23 03 5c 22 5c 32 31 30 5c 32 30	1\302\"\303\304\305..#.\"\210\20
2e00	37 22 20 5b 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c 20	7".[make-hash-table.:test.equal.
2e20	68 74 2d 65 61 63 68 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 35 31 34 20 22 5c 33 30 30	ht-each.make-closure.#[514."\300
2e40	02 02 5c 22 3f 5c 32 30 35 0f 00 5c 33 30 32 02 02 5c 33 30 31 23 5c 32 31 30 5c 33 30 33 5c 32	..\"?\205..\302..\301#\210\303\2
2e60	30 37 22 20 5b 56 30 20 56 31 20 70 75 74 68 61 73 68 20 6e 69 6c 5d 20 36 20 22 5c 6e 5c 6e 28	07".[V0.V1.puthash.nil].6."\n\n(
2e80	66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 5d 20 38 20 28 23 24 20 2e 20 31 31 35 33 38 29 5d	fn.KEY.VALUE)"]].8.(#$...11538)]
2ea0	29 0a 23 40 31 34 35 20 44 65 6c 65 74 65 20 65 6e 74 72 69 65 73 20 66 72 6f 6d 20 54 41 42 4c	).#@145.Delete.entries.from.TABL
2ec0	45 20 66 6f 72 20 77 68 69 63 68 20 46 55 4e 43 54 49 4f 4e 20 72 65 74 75 72 6e 73 20 61 20 66	E.for.which.FUNCTION.returns.a.f
2ee0	61 6c 73 79 20 76 61 6c 75 65 2e 0a 0a 46 55 4e 43 54 49 4f 4e 20 69 73 20 63 61 6c 6c 65 64 20	alsy.value...FUNCTION.is.called.
2f00	77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 4b 45 59 20 61 6e 64 20 56 41 4c 55	with.two.arguments,.KEY.and.VALU
2f20	45 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69	E...(fn.FUNCTION.TABLE)..(defali
2f40	61 73 20 27 68 74 2d 72 65 6a 65 63 74 21 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33	as.'ht-reject!.#[514."\300\301\3
2f60	30 32 04 04 23 02 5c 22 5c 32 31 30 5c 33 30 33 5c 32 30 37 22 20 5b 68 74 2d 65 61 63 68 20 6d	02..#.\"\210\303\207".[ht-each.m
2f80	61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 35 0b	ake-closure.#[514."\300..\"\205.
2fa0	00 5c 33 30 32 02 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 56 30 20 56 31 20 72 65 6d 68 61 73 68	.\302.\301\"\207".[V0.V1.remhash
2fc0	5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 20 6e 69 6c 5d 20 37	].5."\n\n(fn.KEY.VALUE)"].nil].7
2fe0	20 28 23 24 20 2e 20 31 31 39 34 34 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 64 65	.(#$...11944)]).(defalias.'ht-de
3000	6c 65 74 65 2d 69 66 20 27 68 74 2d 72 65 6a 65 63 74 21 29 0a 23 40 31 37 33 20 52 65 74 75 72	lete-if.'ht-reject!).#@173.Retur
3020	6e 20 28 6b 65 79 2c 20 76 61 6c 75 65 29 20 66 72 6f 6d 20 54 41 42 4c 45 20 66 6f 72 20 77 68	n.(key,.value).from.TABLE.for.wh
3040	69 63 68 20 46 55 4e 43 54 49 4f 4e 20 72 65 74 75 72 6e 73 20 61 20 74 72 75 74 68 79 20 76 61	ich.FUNCTION.returns.a.truthy.va
3060	6c 75 65 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 46 55 4e 43	lue..Return.nil.otherwise...FUNC
3080	54 49 4f 4e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74	TION.is.called.with.two.argument
30a0	73 2c 20 4b 45 59 20 61 6e 64 20 56 41 4c 55 45 2e 0a 0a 28 66 6e 20 46 55 4e 43 54 49 4f 4e 20	s,.KEY.and.VALUE...(fn.FUNCTION.
30c0	54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 66 69 6e 64 20 23 5b 35 31 34	TABLE)..(defalias.'ht-find.#[514
30e0	20 22 5c 33 30 30 32 5c 66 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 5c 22 02 5c 22 30 5c 32 30	."\3002\f.\301\302\303.\".\"0\20
3100	37 22 20 5b 62 72 65 61 6b 20 68 74 2d 65 61 63 68 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23	7".[break.ht-each.make-closure.#
3120	5b 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 35 0d 00 5c 33 30 31 5c 33 30 32 03 03 44 5c	[514."\300..\"\205..\301\302..D\
3140	22 5c 32 30 37 22 20 5b 56 30 20 74 68 72 6f 77 20 62 72 65 61 6b 5d 20 36 20 22 5c 6e 5c 6e 28	"\207".[V0.throw.break].6."\n\n(
3160	66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 5d 20 36 20 28 23 24 20 2e 20 31 32 33 31 35 29 5d	fn.KEY.VALUE)"]].6.(#$...12315)]
3180	29 0a 23 40 31 32 30 20 52 65 74 75 72 6e 20 74 20 69 66 20 54 41 42 4c 45 31 20 61 6e 64 20 54	).#@120.Return.t.if.TABLE1.and.T
31a0	41 42 4c 45 32 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6b 65 79 73 20 61 6e 64 20 76 61 6c	ABLE2.have.the.same.keys.and.val
31c0	75 65 73 2e 0a 44 6f 65 73 20 6e 6f 74 20 63 6f 6d 70 61 72 65 20 65 71 75 61 6c 69 74 79 20 70	ues..Does.not.compare.equality.p
31e0	72 65 64 69 63 61 74 65 73 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 31 20 54 41 42 4c 45 32 29 1f 0a	redicates...(fn.TABLE1.TABLE2)..
3200	28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 65 71 75 61 6c 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30	(defalias.'ht-equal\?.#[514."\30
3220	30 02 21 5c 33 30 30 02 21 5c 33 30 31 5c 33 30 32 21 02 47 02 47 5c 32 33 32 5c 32 30 35 57 00	0.!\300.!\301\302!.G.G\232\205W.
3240	5c 33 30 33 03 5c 33 30 34 5c 33 30 35 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 4e 00 04 5c 32 31	\303.\304\305\211\211.\203N..\21
3260	31 41 5c 32 36 32 06 5c 32 34 32 5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02	1A\262.\242\262..\262..\211\262.
3280	5c 32 30 33 4e 00 5c 33 30 36 02 06 5c 66 5c 33 30 35 23 5c 33 30 36 03 06 5c 66 06 5c 6e 23 5c	\203N.\306..\f\305#\306..\f.\n#\
32a0	32 33 32 5c 32 31 31 5c 32 36 32 07 5c 32 30 33 4e 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54	232\211\262.\203N..\262..\262..T
32c0	5c 32 36 32 04 5c 32 30 32 17 00 5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 35 57 00 5c	\262.\202..\266.\211\262.\205W.\
32e0	33 30 33 5c 32 30 37 22 20 5b 68 74 2d 6b 65 79 73 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 68	303\207".[ht-keys.make-symbol."h
3300	74 2d 73 65 6e 74 69 6e 65 6c 22 20 74 20 30 20 6e 69 6c 20 67 65 74 68 61 73 68 5d 20 31 36 20	t-sentinel".t.0.nil.gethash].16.
3320	28 23 24 20 2e 20 31 32 36 38 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	(#$...12680)]).(byte-code."\300\
3340	33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33	301\302\303#\304\305\301\"\210\3
3360	30 36 5c 33 30 37 21 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 65 71	06\307!\207".[function-put.ht-eq
3380	75 61 6c 5c 3f 20 73 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	ual\?.side-effect-free.t.defalia
33a0	73 20 68 74 2d 65 71 75 61 6c 2d 70 20 70 72 6f 76 69 64 65 20 68 74 5d 20 34 29 0a	s.ht-equal-p.provide.ht].4).