blob: 74a6a6192b99904b262c606c7816f02d0df35eec (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1e 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 33 30 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.30.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 23 40 31 32 37 20 43 72 65 61 74 65 20 61 20 68 61 73	imizations....#@127.Create.a.has
0060	68 20 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	h.table.with.the.key-value.pairs
0080	20 67 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	.given..Keys.are.compared.with.`
00a0	65 71 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	equal'...(fn.(KEY-1.VALUE-1).(KE
00c0	59 2d 32 20 56 41 4c 55 45 2d 32 29 20 2e 2e 2e 29 1f 23 40 31 33 20 0a 0a 28 66 6e 20 50 41 49	Y-2.VALUE-2)....).#@13...(fn.PAI
00e0	52 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30	R)..(byte-code."\300\301!\210\30
0100	30 5c 33 30 32 21 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 64 61 73 68 20 67 76 5d 20 32 29	0\302!\207".[require.dash.gv].2)
0120	0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 31 32 38 20 22	.(defalias.'ht.'(macro...#[128."
0140	5c 33 30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 5c 22 03 5c 22 5c 33 30 35 02	\300\301!\302\303\304.\".\"\305.
0160	5c 33 30 36 42 43 5c 33 30 37 03 05 43 5c 22 42 42 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d	\306BC\307..C\"BB\207".[make-sym
0180	62 6f 6c 20 22 68 74 2d 74 65 6d 70 22 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 63 6c 6f 73 75 72	bol."ht-temp".mapcar.make-closur
01a0	65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 42 42 5c 32 30 37 22 20 5b 56 30 20 68 74	e.#[257."\301\300.BB\207".[V0.ht
01c0	2d 73 65 74 21 5d 20 34 20 28 23 24 20 2e 20 32 31 35 29 5d 20 6c 65 74 20 28 28 68 74 2d 63 72	-set!].4.(#$...215)].let.((ht-cr
01e0	65 61 74 65 29 29 20 61 70 70 65 6e 64 5d 20 38 20 28 23 24 20 2e 20 38 34 29 5d 29 29 23 40 35	eate)).append].8.(#$...84)]))#@5
0200	38 20 41 73 73 6f 63 69 61 74 65 20 4b 45 59 20 69 6e 20 54 41 42 4c 45 20 77 69 74 68 20 56 41	8.Associate.KEY.in.TABLE.with.VA
0220	4c 55 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 4b 45 59 20 56 41 4c 55 45 29 1f 0a 28 64 65 66	LUE...(fn.TABLE.KEY.VALUE)..(def
0240	61 6c 69 61 73 20 27 68 74 2d 73 65 74 21 20 23 5b 37 37 31 20 22 5c 33 30 30 02 02 05 23 5c 33	alias.'ht-set!.#[771."\300...#\3
0260	30 31 5c 32 30 37 22 20 5b 70 75 74 68 61 73 68 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 35 31	01\207".[puthash.nil].8.(#$...51
0280	34 29 5d 29 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	4)])#@37...(fn.INLINE--FORM.TABL
02a0	45 20 4b 45 59 20 56 41 4c 55 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33	E.KEY.VALUE)..(byte-code."\300\3
02c0	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 2d 70	01\302\303#\300\207".[function-p
02e0	75 74 20 68 74 2d 73 65 74 21 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 73 65 74	ut.ht-set!.compiler-macro.ht-set
0300	21 2d 2d 69 6e 6c 69 6e 65 72 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 65 74	!--inliner].4).(defalias.'ht-set
0320	21 2d 2d 69 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	!--inliner.#[1028."\3002..\301\3
0340	30 32 5c 33 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	02\303....FE0\207".[inline--just
0360	2d 75 73 65 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	-use.prog1.nil.puthash].10.(#$..
0380	20 36 34 39 29 5d 29 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	.649)])#@225.Create.an.empty.has
03a0	68 20 74 61 62 6c 65 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	h.table...TEST.indicates.the.fun
03c0	63 74 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	ction.used.to.compare.the.hash.k
03e0	65 79 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	eys...Default.is.`equal'...It.ca
0400	6e 20 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	n.be.`eq',.`eql',.`equal'.or.a.u
0420	73 65 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	ser-supplied.test.created.via.`d
0440	65 66 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 26 6f 70	efine-hash-table-test'...(fn.&op
0460	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 2d 73 65 74 20	tional.TEST)..(defalias.'ht-set.
0480	27 68 74 2d 73 65 74 21 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 72 65 61 74 65 20 23	'ht-set!).(defalias.'ht-create.#
04a0	5b 32 35 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	[256."\300\301.\206..\302\"\207"
04c0	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 5d 20 34	.[make-hash-table.:test.equal].4
04e0	20 28 23 24 20 2e 20 39 30 39 29 5d 29 23 40 33 36 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d	.(#$...909)])#@36...(fn.INLINE--
0500	46 4f 52 4d 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65	FORM.&optional.TEST)..(byte-code
0520	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\
0540	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 63	305#\300\207".[function-put.ht-c
0560	72 65 61 74 65 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 63 72 65 61 74 65 2d 2d	reate.compiler-macro.ht-create--
0580	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 0a 28	inliner.side-effect-free.t].5).(
05a0	64 65 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	defalias.'ht-create--inliner.#[5
05c0	31 33 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	13."\3002..\301\302\303.\304\305
05e0	44 45 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	DEE0\207".[inline--just-use.make
0600	2d 68 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	-hash-table.:test.or.quote.equal
0620	5d 20 38 20 28 23 24 20 2e 20 31 32 36 36 29 5d 29 23 40 32 36 33 20 43 72 65 61 74 65 20 61 20	].8.(#$...1266)])#@263.Create.a.
0640	68 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	hash.table.with.initial.values.a
0660	63 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	ccording.to.ALIST...TEST.indicat
0680	65 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	es.the.function.used.to.compare.
06a0	74 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	the.hash.keys...Default.is.`equa
06c0	6c 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	l'...It.can.be.`eq',.`eql',.`equ
06e0	61 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	al'.or.a.user-supplied.test.crea
0700	74 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	ted.via.`define-hash-table-test'
0720	2e 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	...(fn.ALIST.&optional.TEST)..(d
0740	65 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	efalias.'ht<-alist.#[513."\300\3
0760	30 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 21 00 5c	01.\206..\302\"\303.!\211\203!.\
0780	32 31 31 40 5c 32 31 31 40 01 41 5c 33 30 34 02 02 06 07 23 5c 32 36 36 04 41 5c 32 30 32 0b 00	211@\211@.A\304....#\266.A\202..
07a0	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 74 65 73 74	\210\207".[make-hash-table.:test
07c0	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 28 23 24 20 2e	.equal.reverse.puthash].11.(#$..
07e0	20 31 35 39 31 29 5d 29 23 40 32 36 33 20 43 72 65 61 74 65 20 61 20 68 61 73 68 20 74 61 62 6c	.1591)])#@263.Create.a.hash.tabl
0800	65 20 77 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	e.with.initial.values.according.
0820	74 6f 20 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	to.PLIST...TEST.indicates.the.fu
0840	6e 63 74 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	nction.used.to.compare.the.hash.
0860	6b 65 79 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	keys...Default.is.`equal'...It.c
0880	61 6e 20 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	an.be.`eq',.`eql',.`equal'.or.a.
08a0	75 73 65 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	user-supplied.test.created.via.`
08c0	64 65 66 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	define-hash-table-test'...(fn.PL
08e0	49 53 54 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20	IST.&optional.TEST)..(byte-code.
0900	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 30 31 5c 22	"\300\301\302\303#\304\305\301\"
0920	5c 32 30 37 22 20 5b 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	\207".[function-put.ht<-alist.si
0940	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 68 74 2d 66 72 6f	de-effect-free.t.defalias.ht-fro
0960	6d 2d 61 6c 69 73 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 3c 2d 70 6c 69 73 74	m-alist].4).(defalias.'ht<-plist
0980	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 32 5c 22 5c 33 30	.#[513."\300\301.\206..\302\"\30
09a0	33 5c 33 30 34 04 5c 22 5c 32 33 37 5c 32 31 31 5c 32 30 33 24 00 5c 32 31 31 40 5c 32 31 31 40	3\304.\"\237\211\203$.\211@\211@
09c0	01 41 40 5c 33 30 35 02 02 06 07 23 5c 32 36 36 04 41 5c 32 30 32 0d 00 5c 32 31 30 5c 32 30 37	.A@\305....#\266.A\202..\210\207
09e0	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 2d	".[make-hash-table.:test.equal.-
0a00	70 61 72 74 69 74 69 6f 6e 20 32 20 70 75 74 68 61 73 68 5d 20 31 31 20 28 23 24 20 2e 20 32 30	partition.2.puthash].11.(#$...20
0a20	33 30 29 5d 29 23 40 31 34 39 20 4c 6f 6f 6b 20 75 70 20 4b 45 59 20 69 6e 20 54 41 42 4c 45 2c	30)])#@149.Look.up.KEY.in.TABLE,
0a40	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 75 65 2e 0a	.and.return.the.matching.value..
0a60	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 20 44 45 46	If.KEY.isn't.present,.return.DEF
0a80	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 0a 0a 28 66	AULT.(nil.if.not.specified)...(f
0aa0	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 54 29 1f 0a	n.TABLE.KEY.&optional.DEFAULT)..
0ac0	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
0ae0	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 6e 2d 70 75 74 20 68	4\305\301\"\207".[function-put.h
0b00	74 3c 2d 70 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	t<-plist.side-effect-free.t.defa
0b20	6c 69 61 73 20 68 74 2d 66 72 6f 6d 2d 70 6c 69 73 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73	lias.ht-from-plist].4).(defalias
0b40	20 27 68 74 2d 67 65 74 20 23 5b 37 37 30 20 22 5c 33 30 30 02 04 03 23 5c 32 30 37 22 20 5b 67	.'ht-get.#[770."\300...#\207".[g
0b60	65 74 68 61 73 68 5d 20 37 20 28 23 24 20 2e 20 32 36 30 33 29 5d 29 23 40 34 39 20 0a 0a 28 66	ethash].7.(#$...2603)])#@49...(f
0b80	6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 54 41 42 4c 45 20 4b 45 59 20 26 6f 70 74 69 6f 6e	n.INLINE--FORM.TABLE.KEY.&option
0ba0	61 6c 20 44 45 46 41 55 4c 54 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	al.DEFAULT)..(byte-code."\300\30
0bc0	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 30 5c	1\302\303#\300\301\304\305#\300\
0be0	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 63 6f 6d 70 69 6c	207".[function-put.ht-get.compil
0c00	65 72 2d 6d 61 63 72 6f 20 68 74 2d 67 65 74 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64 65 2d 65 66	er-macro.ht-get--inliner.side-ef
0c20	66 65 63 74 2d 66 72 65 65 20 74 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 67 65	fect-free.t].5).(defalias.'ht-ge
0c40	74 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 31 30 32 37 20 22 5c 33 30 30 32 5c 6e 00 5c 33 30 31 02	t--inliner.#[1027."\3002\n.\301.
0c60	04 03 46 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 67 65 74 68	..F0\207".[inline--just-use.geth
0c80	61 73 68 5d 20 38 20 28 23 24 20 2e 20 32 39 34 30 29 5d 29 23 40 32 32 20 0a 0a 28 66 6e 20 44	ash].8.(#$...2940)])#@22...(fn.D
0ca0	4f 20 26 72 65 73 74 20 41 52 47 53 29 1f 23 40 32 34 20 0a 0a 28 66 6e 20 56 41 4c 55 45 20 54	O.&rest.ARGS).#@24...(fn.VALUE.T
0cc0	41 42 4c 45 20 4b 45 59 29 1f 23 40 31 39 33 20 4c 6f 6f 6b 20 75 70 20 4b 45 59 53 20 69 6e 20	ABLE.KEY).#@193.Look.up.KEYS.in.
0ce0	6e 65 73 74 65 64 20 68 61 73 68 20 74 61 62 6c 65 73 2c 20 73 74 61 72 74 69 6e 67 20 77 69 74	nested.hash.tables,.starting.wit
0d00	68 20 54 41 42 4c 45 2e 0a 54 68 65 20 6c 6f 6f 6b 75 70 20 66 6f 72 20 65 61 63 68 20 6b 65 79	h.TABLE..The.lookup.for.each.key
0d20	20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 6e 6f 74 68 65 72 20 68 61 73 68 20 74 61 62 6c	.should.return.another.hash.tabl
0d40	65 2c 20 65 78 63 65 70 74 0a 66 6f 72 20 74 68 65 20 66 69 6e 61 6c 20 6b 65 79 2c 20 77 68 69	e,.except.for.the.final.key,.whi
0d60	63 68 20 6d 61 79 20 72 65 74 75 72 6e 20 61 6e 79 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 54 41	ch.may.return.any.value...(fn.TA
0d80	42 4c 45 20 26 72 65 73 74 20 4b 45 59 53 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	BLE.&rest.KEYS)..(byte-code."\30
0da0	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 69 6f	0\301\302\303#\300\207".[functio
0dc0	6e 2d 70 75 74 20 68 74 2d 67 65 74 20 67 76 2d 65 78 70 61 6e 64 65 72 20 23 5b 33 38 35 20 22	n-put.ht-get.gv-expander.#[385."
0de0	5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 24 5c 32 30 37 22 20 5b 67 76 2d 2d 64 65 66 73 65 74	\300\301\302..$\207".[gv--defset
0e00	74 65 72 20 68 74 2d 67 65 74 20 23 5b 37 37 31 20 22 5c 33 30 30 01 04 04 46 5c 32 30 37 22 20	ter.ht-get.#[771."\300...F\207".
0e20	5b 70 75 74 68 61 73 68 5d 20 37 20 28 23 24 20 2e 20 33 32 35 31 29 5d 5d 20 37 20 28 23 24 20	[puthash].7.(#$...3251)]].7.(#$.
0e40	2e 20 33 32 32 35 29 5d 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 67 65 74 2a 20	..3225)]].4).(defalias.'ht-get*.
0e60	23 5b 33 38 35 20 22 5c 32 31 31 5c 32 30 33 13 00 5c 33 30 30 01 5c 32 31 31 41 5c 32 36 32 03	#[385."\211\203..\300.\211A\262.
0e80	5c 32 34 32 03 5c 33 30 31 23 5c 32 36 32 02 5c 32 30 32 00 00 01 5c 32 30 37 22 20 5b 67 65 74	\242.\301#\262.\202...\207".[get
0ea0	68 61 73 68 20 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 33 32 38 30 29 5d 29 23 40 33 38 20 0a 0a	hash.nil].6.(#$...3280)])#@38...
0ec0	28 66 6e 20 49 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	(fn.INLINE--FORM.TABLE.&rest.KEY
0ee0	53 29 1f 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	S)..(byte-code."\300\301\302\303
0f00	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 6e	#\300\301\304\305#\300\207".[fun
0f20	63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 67 65 74 2a 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f	ction-put.ht-get*.compiler-macro
0f40	20 68 74 2d 67 65 74 2a 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	.ht-get*--inliner.side-effect-fr
0f60	65 65 20 74 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 67 65 74 2a 2d 2d 69 6e 6c	ee.t].5).(defalias.'ht-get*--inl
0f80	69 6e 65 72 20 23 5b 36 34 32 20 22 5c 33 30 30 32 58 00 5c 33 30 31 02 21 5c 32 30 33 0e 00 01	iner.#[642."\3002X.\301.!\203...
0fa0	5c 32 30 32 11 00 5c 33 30 32 5c 33 30 33 21 5c 33 30 31 02 21 5c 32 30 33 1b 00 01 5c 32 30 32	\202..\302\303!\301.!\203...\202
0fc0	1e 00 5c 33 30 32 5c 33 30 34 21 5c 33 30 35 5c 33 30 36 02 5c 33 30 37 05 5c 33 31 30 06 07 5c	..\302\304!\305\306.\307.\310..\
0fe0	33 31 31 06 08 44 45 45 45 03 45 01 04 3d 5c 32 30 33 3a 00 5c 32 36 36 5c 32 30 31 5c 32 30 32	311..DEEE.E..=\203:.\266\201\202
1000	43 00 5c 33 31 32 02 05 44 43 02 5c 22 5c 32 36 36 5c 32 30 32 01 04 3d 5c 32 30 33 4e 00 5c 32	C.\312..DC.\"\266\202..=\203N.\2
1020	36 36 5c 32 30 31 5c 32 30 32 57 00 5c 33 31 32 02 05 44 43 02 5c 22 5c 32 36 36 5c 32 30 32 30	66\201\202W.\312..DC.\"\266\2020
1040	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 63 72 6f 65 78 70	\207".[inline--just-use.macroexp
1060	2d 63 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	-copyable-p.make-symbol."table".
1080	22 6b 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	"keys".progn.while.setf.ht-get.p
10a0	6f 70 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 37 37 34 29	op.macroexp-let*].14.(#$...3774)
10c0	5d 29 23 40 32 37 20 0a 0a 28 66 6e 20 5f 20 54 41 42 4c 45 20 26 72 65 73 74 20 4b 45 59 53 29	])#@27...(fn._.TABLE.&rest.KEYS)
10e0	1f 23 40 38 36 20 55 70 64 61 74 65 20 54 41 42 4c 45 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20	.#@86.Update.TABLE.according.to.
1100	65 76 65 72 79 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 69 6e 20 46 52 4f 4d 2d 54 41 42	every.key-value.pair.in.FROM-TAB
1120	4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 46 52 4f 4d 2d 54 41 42 4c 45 29 1f 23 40 31 38 20	LE...(fn.TABLE.FROM-TABLE).#@18.
1140	0a 0a 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 1f 0a 28 70 75 74 20 27 68 74 2d 67 65 74 2a 20	..(fn.KEY.VALUE)..(put.'ht-get*.
1160	27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 23 5b 36 34 32 20 22 01 01 5c 33 30 30 01 5c 32	'compiler-macro.#[642."..\300.\2
1180	30 33 18 00 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 5c 33 30 31 04 02 45 5c 32 36 32 04 5c	03...\211A\262.\242\301..E\262.\
11a0	32 31 30 54 5c 32 30 32 03 00 5c 32 36 36 02 5c 32 30 37 22 20 5b 30 20 68 74 2d 67 65 74 5d 20	210T\202..\266.\207".[0.ht-get].
11c0	31 30 20 28 23 24 20 2e 20 34 32 39 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 75	10.(#$...4295)]).(defalias.'ht-u
11e0	70 64 61 74 65 21 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 5c 22 02 5c 22	pdate!.#[514."\300\301\302.\".\"
1200	5c 33 30 33 5c 32 30 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	\303\207".[maphash.make-closure.
1220	23 5b 35 31 34 20 22 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	#[514."\301..\300#\207".[V0.puth
1240	61 73 68 5d 20 36 20 28 23 24 20 2e 20 34 34 31 36 29 5d 20 6e 69 6c 5d 20 37 20 28 23 24 20 2e	ash].6.(#$...4416)].nil].7.(#$..
1260	20 34 33 32 36 29 5d 29 23 40 32 39 38 20 55 70 64 61 74 65 20 74 68 65 20 76 61 6c 75 65 20 6f	.4326)])#@298.Update.the.value.o
1280	66 20 4b 45 59 20 69 6e 20 54 41 42 4c 45 20 77 69 74 68 20 55 50 44 41 54 45 52 2e 0a 49 66 20	f.KEY.in.TABLE.with.UPDATER..If.
12a0	74 68 65 20 76 61 6c 75 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 64 6f 20 6e 6f 74	the.value.does.not.exist,.do.not
12c0	68 69 6e 67 2c 20 75 6e 6c 65 73 73 20 44 45 46 41 55 4c 54 20 69 73 0a 6e 6f 6e 2d 6e 69 6c 2c	hing,.unless.DEFAULT.is.non-nil,
12e0	20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 61 63 74 20 61 73 20 69 66 20 74 68 65 20 76 61 6c	.in.which.case.act.as.if.the.val
1300	75 65 20 69 73 20 44 45 46 41 55 4c 54 2e 0a 0a 55 50 44 41 54 45 52 20 72 65 63 65 69 76 65 73	ue.is.DEFAULT...UPDATER.receives
1320	20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 76 61 6c 75 65 2c 20 61 6e 64 20 69 74	.one.argument,.the.value,.and.it
1340	73 20 72 65 74 75 72 6e 20 76 61 6c 75 65 0a 62 65 63 6f 6d 65 73 20 74 68 65 20 6e 65 77 20 76	s.return.value.becomes.the.new.v
1360	61 6c 75 65 20 6f 66 20 4b 45 59 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 4b 45 59 20 55 50 44 41	alue.of.KEY...(fn.TABLE.KEY.UPDA
1380	54 45 52 20 26 6f 70 74 69 6f 6e 61 6c 20 44 45 46 41 55 4c 54 29 1f 0a 28 64 65 66 61 6c 69 61	TER.&optional.DEFAULT)..(defalia
13a0	73 20 27 68 74 2d 75 70 64 61 74 65 20 27 68 74 2d 75 70 64 61 74 65 21 29 0a 28 64 65 66 61 6c	s.'ht-update.'ht-update!).(defal
13c0	69 61 73 20 27 68 74 2d 75 70 64 61 74 65 2d 77 69 74 68 21 20 23 5b 31 30 32 37 20 22 5c 33 30	ias.'ht-update-with!.#[1027."\30
13e0	30 5c 33 30 31 21 5c 33 30 32 04 06 06 04 5c 32 30 36 5c 66 00 03 23 5c 32 31 31 02 3d 3f 5c 32	0\301!\302....\206\f..#\211.=?\2
1400	30 35 1e 00 5c 33 30 33 05 05 03 21 06 08 23 5c 32 31 30 5c 33 30 34 5c 32 30 37 22 20 5b 6d 61	05..\303...!..#\210\304\207".[ma
1420	6b 65 2d 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	ke-symbol."ht--not-found".gethas
1440	68 20 70 75 74 68 61 73 68 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 34 37 31 38 29 5d 29 23	h.puthash.nil].10.(#$...4718)])#
1460	40 35 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 45 59	@57...(fn.INLINE--FORM.TABLE.KEY
1480	20 55 50 44 41 54 45 52 20 26 6f 70 74 69 6f 6e 61 6c 20 44 45 46 41 55 4c 54 29 1f 0a 28 62 79	.UPDATER.&optional.DEFAULT)..(by
14a0	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
14c0	30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 75 70 64 61 74 65 2d 77 69 74 68	07".[function-put.ht-update-with
14e0	21 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 75 70 64 61 74 65 2d 77 69 74 68 21	!.compiler-macro.ht-update-with!
1500	2d 2d 69 6e 6c 69 6e 65 72 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 75 70 64 61	--inliner].4).(defalias.'ht-upda
1520	74 65 2d 77 69 74 68 21 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 31 32 38 34 20 22 5c 33 30 30 32 2e	te-with!--inliner.#[1284."\3002.
1540	00 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 44 44 5c 33 30 35 5c 33 30 36 06 06 06 08 5c	.\301\302\303\304DD\305\306....\
1560	33 30 37 06 07 5c 33 30 32 45 46 44 44 5c 33 31 30 5c 33 31 31 5c 33 30 35 5c 33 30 32 45 5c 33	307..\302EFDD\310\311\305\302E\3
1580	31 32 5c 33 31 33 5c 33 31 34 06 09 5c 33 31 35 06 5c 6e 5c 33 30 35 45 06 5c 66 46 45 45 45 30	12\313\314..\315.\n\305E.\fFEEE0
15a0	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 2a 20 6e 6f 74	\207".[inline--just-use.let*.not
15c0	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 74 2d 2d 6e	-found-symbol.make-symbol."ht--n
15e0	6f 74 2d 66 6f 75 6e 64 22 20 76 20 67 65 74 68 61 73 68 20 6f 72 20 75 6e 6c 65 73 73 20 65 71	ot-found".v.gethash.or.unless.eq
1600	20 70 72 6f 67 31 20 6e 69 6c 20 70 75 74 68 61 73 68 20 66 75 6e 63 61 6c 6c 5d 20 31 36 20 28	.prog1.nil.puthash.funcall].16.(
1620	23 24 20 2e 20 35 32 32 30 29 5d 29 23 40 31 36 34 20 43 72 65 74 65 20 61 20 6e 65 77 20 74 61	#$...5220)])#@164.Crete.a.new.ta
1640	62 6c 65 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 76 61	ble.that.includes.all.the.key-va
1660	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 69 70	lue.pairs.from.TABLES..If.multip
1680	6c 65 20 74 61 62 6c 65 73 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6b 65 79 2c 20 74 68 65	le.tables.have.the.same.key,.the
16a0	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 69 73 20 75 73 65 64	.value.in.the.last.table.is.used
16c0	2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 54 41 42 4c 45 53 29 1f 23 40 31 34 20 0a 0a 28 66 6e 20	...(fn.&rest.TABLES).#@14...(fn.
16e0	54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 6d 65 72 67 65 20 23 5b 31 32	TABLE)..(defalias.'ht-merge.#[12
1700	38 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 03 5c 22	8."\300\301\302\"\303\304\305.\"
1720	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 74	.\"\210\207".[make-hash-table.:t
1740	65 73 74 20 65 71 75 61 6c 20 6d 61 70 63 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 32 35	est.equal.mapc.make-closure.#[25
1760	37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37 22 20 5b 56 30 20 68 74 2d 75 70 64 61 74	7."\301\300.\"\207".[V0.ht-updat
1780	65 21 5d 20 34 20 28 23 24 20 2e 20 35 38 35 30 29 5d 5d 20 36 20 28 23 24 20 2e 20 35 36 38 32	e!].4.(#$...5850)]].6.(#$...5682
17a0	29 5d 29 23 40 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	)])#@40.Remove.KEY.from.TABLE...
17c0	28 66 6e 20 54 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	(fn.TABLE.KEY)..(defalias.'ht-re
17e0	6d 6f 76 65 21 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	move!.#[514."\300..\"\207".[remh
1800	61 73 68 5d 20 35 20 28 23 24 20 2e 20 36 30 35 36 29 5d 29 23 40 33 31 20 0a 0a 28 66 6e 20 49	ash].5.(#$...6056)])#@31...(fn.I
1820	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 62 79 74 65 2d 63 6f	NLINE--FORM.TABLE.KEY)..(byte-co
1840	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 20 5b	de."\300\301\302\303#\300\207".[
1860	66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 72 65 6d 6f 76 65 21 20 63 6f 6d 70 69 6c 65 72	function-put.ht-remove!.compiler
1880	2d 6d 61 63 72 6f 20 68 74 2d 72 65 6d 6f 76 65 21 2d 2d 69 6e 6c 69 6e 65 72 5d 20 34 29 0a 28	-macro.ht-remove!--inliner].4).(
18a0	64 65 66 61 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	defalias.'ht-remove!--inliner.#[
18c0	37 37 31 20 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	771."\3002..\301..E0\207".[inlin
18e0	65 2d 2d 6a 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 36 31 36	e--just-use.remhash].6.(#$...616
1900	39 29 5d 29 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	9)])#@41.Remove.all.keys.from.TA
1920	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 20 27 68 74 2d	BLE...(fn.TABLE)..(defalias.'ht-
1940	72 65 6d 6f 76 65 20 27 68 74 2d 72 65 6d 6f 76 65 21 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68	remove.'ht-remove!).(defalias.'h
1960	74 2d 63 6c 65 61 72 21 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 5c 32 30 37 22 20	t-clear!.#[257."\300.!\301\207".
1980	5b 63 6c 72 68 61 73 68 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 36 34 30 39 29 5d 29 23 40 32	[clrhash.nil].4.(#$...6409)])#@2
19a0	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 0a 28 62 79	7...(fn.INLINE--FORM.TABLE)..(by
19c0	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
19e0	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 6d 70	07".[function-put.ht-clear!.comp
1a00	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 20 34	iler-macro.ht-clear!--inliner].4
1a20	29 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 72 20	).(defalias.'ht-clear!--inliner.
1a40	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 5c 32	#[514."\3002..\301\302\303.DE0\2
1a60	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 6c 20	07".[inline--just-use.prog1.nil.
1a80	63 6c 72 68 61 73 68 5d 20 36 20 28 23 24 20 2e 20 36 35 36 32 29 5d 29 23 40 31 35 36 20 41 70	clrhash].6.(#$...6562)])#@156.Ap
1aa0	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 65 20 70	ply.FUNCTION.to.each.key-value.p
1ac0	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 20 6f 66	air.of.TABLE,.and.make.a.list.of
1ae0	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 6c 65 64	.the.results..FUNCTION.is.called
1b00	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 56 41 4c	.with.two.arguments,.KEY.and.VAL
1b20	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 66 61 6c	UE...(fn.FUNCTION.TABLE)..(defal
1b40	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 28 64 65 66 61 6c	ias.'ht-clear.'ht-clear!).(defal
1b60	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 33 30 32	ias.'ht-map.#[514."\300C\301\302
1b80	5c 33 30 33 03 06 06 23 03 5c 22 5c 32 31 30 5c 32 34 32 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61	\303...#.\"\210\242\207".[nil.ma
1ba0	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 5c 33 30 30 5c 33	phash.make-closure.#[514."\300\3
1bc0	30 31 03 03 5c 22 5c 33 30 30 5c 32 34 32 42 5c 32 34 30 5c 32 30 37 22 20 5b 56 30 20 56 31 5d	01..\"\300\242B\240\207".[V0.V1]
1be0	20 36 20 28 23 24 20 2e 20 34 34 31 36 29 5d 5d 20 38 20 28 23 24 20 2e 20 36 38 31 34 29 5d 29	.6.(#$...4416)]].8.(#$...6814)])
1c00	23 40 32 31 38 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 68 74 2d 6d	#@218.Anaphoric.version.of.`ht-m
1c20	61 70 27 2e 0a 46 6f 72 20 65 76 65 72 79 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 69 6e	ap'..For.every.key-value.pair.in
1c40	20 54 41 42 4c 45 2c 20 65 76 61 6c 75 61 74 65 20 46 4f 52 4d 20 77 69 74 68 20 74 68 65 0a 76	.TABLE,.evaluate.FORM.with.the.v
1c60	61 72 69 61 62 6c 65 73 20 4b 45 59 20 61 6e 64 20 56 41 4c 55 45 20 62 6f 75 6e 64 2e 20 20 49	ariables.KEY.and.VALUE.bound...I
1c80	66 20 79 6f 75 20 64 6f 6e 27 74 20 75 73 65 20 62 6f 74 68 20 6f 66 0a 74 68 65 73 65 20 76 61	f.you.don't.use.both.of.these.va
1ca0	72 69 61 62 6c 65 73 2c 20 74 68 65 6e 20 75 73 65 20 60 68 74 2d 6d 61 70 27 20 74 6f 20 61 76	riables,.then.use.`ht-map'.to.av
1cc0	6f 69 64 20 77 61 72 6e 69 6e 67 73 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 54 41 42 4c 45 29 1f 0a	oid.warnings...(fn.FORM.TABLE)..
1ce0	28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 61 6d 61 70 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 35	(defalias.'ht-amap.'(macro...#[5
1d00	31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 45 02 45 5c 32 30 37 22 20 5b 68 74 2d 6d 61	14."\300\301\302.E.E\207".[ht-ma
1d20	70 20 6c 61 6d 62 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 31	p.lambda.(key.value)].6.(#$...71
1d40	37 34 29 5d 29 29 23 40 35 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20	74)]))#@53.Return.a.list.of.all.
1d60	74 68 65 20 6b 65 79 73 20 69 6e 20 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a	the.keys.in.TABLE...(fn.TABLE)..
1d80	28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 6b 65 79 73 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33	(defalias.'ht-keys.#[257."\300\3
1da0	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 5c 32 30 37 22	01.\"\207".[ht-map.#[514.".\207"
1dc0	20 5b 5d 20 33 20 28 23 24 20 2e 20 34 34 31 36 29 5d 5d 20 34 20 28 23 24 20 2e 20 37 34 39 39	.[].3.(#$...4416)]].4.(#$...7499
1de0	29 5d 29 23 40 35 35 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65	)])#@55.Return.a.list.of.all.the
1e00	20 76 61 6c 75 65 73 20 69 6e 20 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28	.values.in.TABLE...(fn.TABLE)..(
1e20	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
1e40	5c 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	\207".[function-put.ht-keys.side
1e60	2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74	-effect-free.t].4).(defalias.'ht
1e80	2d 76 61 6c 75 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	-values.#[257."\300\301.\"\207".
1ea0	5b 68 74 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20	[ht-map.#[514."\207".[].3.(#$...
1ec0	34 34 31 36 29 5d 5d 20 34 20 28 23 24 20 2e 20 37 36 35 36 29 5d 29 23 40 37 35 20 52 65 74 75	4416)]].4.(#$...7656)])#@75.Retu
1ee0	72 6e 20 61 20 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 5c	rn.a.list.of.two-element.lists.\
1f00	3d 27 28 6b 65 79 20 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	='(key.value).from.TABLE...(fn.T
1f20	41 42 4c 45 29 1f 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	ABLE)..(byte-code."\300\301\302\
1f40	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 68 74 2d 76	303#\300\207".[function-put.ht-v
1f60	61 6c 75 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 28 64 65	alues.side-effect-free.t].4).(de
1f80	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 33 30 31	falias.'ht-items.#[257."\300\301
1fa0	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 30 37 22	.\"\207".[ht-map.#[514."..D\207"
1fc0	20 5b 5d 20 34 20 28 23 24 20 2e 20 34 34 31 36 29 5d 5d 20 34 20 28 23 24 20 2e 20 37 39 30 30	.[].4.(#$...4416)]].4.(#$...7900
1fe0	29 5d 29 23 40 39 30 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	)])#@90.Apply.FUNCTION.to.each.k
2000	65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 6f 66 20 54 41 42 4c 45 2e 0a 52 65 74 75 72 6e 73 20	ey-value.pair.of.TABLE..Returns.
2020	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 2e	nil,.used.for.side-effects.only.
2040	1f 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 66 20 60 68 74 2d	.#@139.Anaphoric.version.of.`ht-
2060	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 20 70 61 69 72 20	each'..For.every.key-value.pair.
2080	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 74 68 20 74 68 65	in.TABLE,.evaluate.FORM.with.the
20a0	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 6f 75 6e 64 2e 0a	.variables.key.and.value.bound..
20c0	0a 28 66 6e 20 46 4f 52 4d 20 54 41 42 4c 45 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	.(fn.FORM.TABLE)..(byte-code."\3
20e0	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 37 23	00\301\302\303#\304\305\306\307#
2100	5c 32 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	\207".[function-put.ht-items.sid
2120	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 68 74 2d 65 61 63 68	e-effect-free.t.defalias.ht-each
2140	20 6d 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	.maphash."Apply.FUNCTION.to.each
2160	20 6b 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	.key-value.pair.of.TABLE.\nRetur
2180	6e 73 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	ns.nil,.used.for.side-effects.on
21a0	6c 79 2e 22 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 61 65 61 63 68 20 27 28 6d	ly."].5).(defalias.'ht-aeach.'(m
21c0	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 04 45 02 45 5c 32	acro...#[514."\300\301\302.E.E\2
21e0	30 37 22 20 5b 68 74 2d 65 61 63 68 20 6c 61 6d 62 64 61 20 28 6b 65 79 20 76 61 6c 75 65 29 5d	07".[ht-each.lambda.(key.value)]
2200	20 36 20 28 23 24 20 2e 20 38 32 36 33 29 5d 29 29 23 40 37 31 20 52 65 74 75 72 6e 20 61 20 63	.6.(#$...8263)]))#@71.Return.a.c
2220	6f 70 79 20 6f 66 20 54 41 42 4c 45 20 77 69 74 68 20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63 69	opy.of.TABLE.with.only.the.speci
2240	66 69 65 64 20 4b 45 59 53 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 20 4b 45 59 53 29 1f 0a 28 64 65	fied.KEYS...(fn.TABLE.KEYS)..(de
2260	66 61 6c 69 61 73 20 27 68 74 2d 73 65 6c 65 63 74 2d 6b 65 79 73 20 23 5b 35 31 34 20 22 5c 33	falias.'ht-select-keys.#[514."\3
2280	30 30 5c 33 30 31 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 06 21 5c 22 5c 32 36 32	00\301!\302\303\304\305..!\"\262
22a0	01 02 5c 32 31 31 5c 32 30 33 2f 00 5c 32 31 31 40 5c 33 30 36 01 06 07 06 06 23 04 5c 32 33 32	..\211\203/.\211@\306.....#.\232
22c0	5c 32 30 34 2a 00 5c 33 30 37 01 5c 33 30 36 03 06 09 5c 22 05 23 5c 32 31 30 5c 32 31 30 41 5c	\204*.\307.\306...\".#\210\210A\
22e0	32 30 32 0e 00 5c 32 31 30 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 68 74 2d	202..\210\207".[make-symbol."ht-
2300	2d 6e 6f 74 2d 66 6f 75 6e 64 22 20 6e 69 6c 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20	-not-found".nil.make-hash-table.
2320	3a 74 65 73 74 20 68 61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 20 67 65 74 68 61 73 68 20 70 75	:test.hash-table-test.gethash.pu
2340	74 68 61 73 68 5d 20 31 31 20 28 23 24 20 2e 20 38 37 32 36 29 5d 29 23 40 32 38 33 20 52 65 74	thash].11.(#$...8726)])#@283.Ret
2360	75 72 6e 20 61 20 66 6c 61 74 20 6c 69 73 74 20 5c 3d 27 28 6b 65 79 31 20 76 61 6c 75 65 31 20	urn.a.flat.list.\='(key1.value1.
2380	6b 65 79 32 20 76 61 6c 75 65 32 2e 2e 2e 29 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 4e 6f 74	key2.value2...).from.TABLE...Not
23a0	65 20 74 68 61 74 20 68 61 73 68 20 74 61 62 6c 65 73 20 61 72 65 20 75 6e 6f 72 64 65 72 65 64	e.that.hash.tables.are.unordered
23c0	2c 20 73 6f 20 74 68 69 73 20 63 61 6e 6e 6f 74 20 62 65 20 61 6e 20 65 78 61 63 74 0a 69 6e 76	,.so.this.cannot.be.an.exact.inv
23e0	65 72 73 65 20 6f 66 20 60 68 74 3c 2d 70 6c 69 73 74 27 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77	erse.of.`ht<-plist'...The.follow
2400	69 6e 67 20 69 73 20 6e 6f 74 20 67 75 61 72 61 6e 74 65 65 64 3a 0a 0a 28 6c 65 74 20 28 28 64	ing.is.not.guaranteed:..(let.((d
2420	61 74 61 20 5c 3d 27 28 61 20 62 20 63 20 64 29 29 29 0a 20 20 28 65 71 75 61 6c 70 20 64 61 74	ata.\='(a.b.c.d)))...(equalp.dat
2440	61 0a 20 20 20 20 20 20 20 20 20 20 28 68 74 2d 3e 70 6c 69 73 74 20 28 68 74 3c 2d 70 6c 69 73	a...........(ht->plist.(ht<-plis
2460	74 20 64 61 74 61 29 29 29 29 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 62 79 74 65 2d 63 6f	t.data))))..(fn.TABLE)..(byte-co
2480	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 20 5b	de."\300\301\302\303#\300\207".[
24a0	66 75 6e 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	function-put.ht-select-keys.side
24c0	2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74	-effect-free.t].4).(defalias.'ht
24e0	2d 3e 70 6c 69 73 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	->plist.#[257."\300\301\302.!\"\
2500	32 30 37 22 20 5b 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	207".[apply.append.ht-items].5.(
2520	23 24 20 2e 20 39 30 35 33 29 5d 29 23 40 37 34 20 52 65 74 75 72 6e 20 61 20 73 68 61 6c 6c 6f	#$...9053)])#@74.Return.a.shallo
2540	77 20 63 6f 70 79 20 6f 66 20 54 41 42 4c 45 20 28 6b 65 79 73 20 61 6e 64 20 76 61 6c 75 65 73	w.copy.of.TABLE.(keys.and.values
2560	20 61 72 65 20 73 68 61 72 65 64 29 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 62 79 74 65	.are.shared)...(fn.TABLE)..(byte
2580	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 34 5c 33 30 35	-code."\300\301\302\303#\304\305
25a0	5c 33 30 31 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 70 6c	\301\"\207".[function-put.ht->pl
25c0	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 73 20	ist.side-effect-free.t.defalias.
25e0	68 74 2d 74 6f 2d 70 6c 69 73 74 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6f	ht-to-plist].4).(defalias.'ht-co
2600	70 79 20 23 5b 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	py.#[257."\300.!\207".[copy-hash
2620	2d 74 61 62 6c 65 5d 20 33 20 28 23 24 20 2e 20 39 35 32 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f	-table].3.(#$...9521)]).(byte-co
2640	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 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
2660	34 5c 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	4\305#\300\207".[function-put.ht
2680	2d 63 6f 70 79 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	-copy.compiler-macro.ht-copy--in
26a0	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 0a 28 64 65	liner.side-effect-free.t].5).(de
26c0	66 61 6c 69 61 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	falias.'ht-copy--inliner.#[514."
26e0	5c 33 30 30 32 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	\3002..\301.D0\207".[inline--jus
2700	74 2d 75 73 65 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 36	t-use.copy-hash-table].4.(#$...6
2720	35 36 32 29 5d 29 23 40 32 39 32 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f	562)])#@292.Return.a.list.of.two
2740	2d 65 6c 65 6d 65 6e 74 20 6c 69 73 74 73 20 5c 3d 27 28 6b 65 79 20 2e 20 76 61 6c 75 65 29 20	-element.lists.\='(key...value).
2760	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 73 68 20 74 61 62 6c	from.TABLE...Note.that.hash.tabl
2780	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 20 63 61 6e 6e 6f 74	es.are.unordered,.so.this.cannot
27a0	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 68 74 3c 2d 61 6c 69	.be.an.exact.inverse.of.`ht<-ali
27c0	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 74 20 67 75 61 72 61	st'...The.following.is.not.guara
27e0	6e 74 65 65 64 3a 0a 0a 28 6c 65 74 20 28 28 64 61 74 61 20 5c 3d 27 28 28 61 20 2e 20 62 29 20	nteed:..(let.((data.\='((a...b).
2800	28 63 20 2e 20 64 29 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	(c...d))))...(equalp.data.......
2820	20 20 20 20 28 68 74 2d 3e 61 6c 69 73 74 20 28 68 74 3c 2d 61 6c 69 73 74 20 64 61 74 61 29 29	....(ht->alist.(ht<-alist.data))
2840	29 29 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 3e 61	))..(fn.TABLE)..(defalias.'ht->a
2860	6c 69 73 74 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	list.#[257."\300\301.\"\207".[ht
2880	2d 6d 61 70 20 23 5b 35 31 34 20 22 01 01 42 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20	-map.#[514."..B\207".[].4.(#$...
28a0	34 34 31 36 29 5d 5d 20 34 20 28 23 24 20 2e 20 31 30 30 32 38 29 5d 29 23 40 35 32 20 52 65 74	4416)]].4.(#$...10028)])#@52.Ret
28c0	75 72 6e 20 5c 3d 27 74 20 69 66 20 54 41 42 4c 45 20 63 6f 6e 74 61 69 6e 73 20 4b 45 59 2e 0a	urn.\='t.if.TABLE.contains.KEY..
28e0	0a 28 66 6e 20 54 41 42 4c 45 20 4b 45 59 29 1f 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	.(fn.TABLE.KEY)..(byte-code."\30
2900	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 31 30	0\301\302\303#\304\305\301\"\210
2920	5c 33 30 34 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 34 5c 33 31 30 5c 33 30 37 5c 22	\304\306\307\"\210\304\310\307\"
2940	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 3e 61 6c 69 73 74 20 73 69	\207".[function-put.ht->alist.si
2960	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 68 74 2d 74 6f 2d	de-effect-free.t.defalias.ht-to-
2980	61 6c 69 73 74 20 68 74 3f 20 68 61 73 68 2d 74 61 62 6c 65 2d 70 20 68 74 2d 70 5d 20 34 29 0a	alist.ht?.hash-table-p.ht-p].4).
29a0	28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 3f 20 23 5b 35 31 34 20 22 5c	(defalias.'ht-contains?.#[514."\
29c0	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 73	300\301!\302...#.=?\207".[make-s
29e0	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 37	ymbol."ht--not-found".gethash].7
2a00	20 28 23 24 20 2e 20 31 30 34 32 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	.(#$...10429)]).(byte-code."\300
2a20	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
2a40	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
2a60	73 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 3f 2d 2d	s?.compiler-macro.ht-contains?--
2a80	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 0a 28	inliner.side-effect-free.t].5).(
2aa0	64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 3f 2d 2d 69 6e 6c 69 6e 65 72 20	defalias.'ht-contains?--inliner.
2ac0	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 33 5c 33 30 34 44 44	#[771."\3002..\301\302\303\304DD
2ae0	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 32 45 44 45 30 5c 32	C\305\306\307....\302F\302EDE0\2
2b00	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 20 6e 6f 74 2d 66 6f	07".[inline--just-use.let.not-fo
2b20	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 74 2d 2d 6e 6f 74 2d	und-symbol.make-symbol."ht--not-
2b40	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 28 23 24 20 2e 20 36	found".not.eq.ht-get].11.(#$...6
2b60	31 36 39 29 5d 29 23 40 35 39 20 52 65 74 75 72 6e 20 74 68 65 20 61 63 74 75 61 6c 20 6e 75 6d	169)])#@59.Return.the.actual.num
2b80	62 65 72 20 6f 66 20 65 6e 74 72 69 65 73 20 69 6e 20 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 54 41	ber.of.entries.in.TABLE...(fn.TA
2ba0	42 4c 45 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 2d 70 20 27	BLE)..(defalias.'ht-contains-p.'
2bc0	68 74 2d 63 6f 6e 74 61 69 6e 73 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 69 7a 65	ht-contains?).(defalias.'ht-size
2be0	20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37 22 20 5b 68 61 73 68 2d 74 61 62 6c 65 2d	.#[257."\300.!\207".[hash-table-
2c00	63 6f 75 6e 74 5d 20 33 20 28 23 24 20 2e 20 31 31 31 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f	count].3.(#$...11115)]).(byte-co
2c20	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 33 30 31 5c 33 30	de."\300\301\302\303#\300\301\30
2c40	34 5c 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	4\305#\300\207".[function-put.ht
2c60	2d 73 69 7a 65 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 73 69 7a 65 2d 2d 69 6e	-size.compiler-macro.ht-size--in
2c80	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 0a 28 64 65	liner.side-effect-free.t].5).(de
2ca0	66 61 6c 69 61 73 20 27 68 74 2d 73 69 7a 65 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 35 31 34 20 22	falias.'ht-size--inliner.#[514."
2cc0	5c 33 30 30 32 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	\3002..\301.D0\207".[inline--jus
2ce0	74 2d 75 73 65 20 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 5d 20 34 20 28 23 24 20 2e 20	t-use.hash-table-count].4.(#$...
2d00	36 35 36 32 29 5d 29 23 40 37 35 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 61	6562)])#@75.Return.true.if.the.a
2d20	63 74 75 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 65 6e 74 72 69 65 73 20 69 6e 20 54 41 42 4c 45	ctual.number.of.entries.in.TABLE
2d40	20 69 73 20 7a 65 72 6f 2e 0a 0a 28 66 6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73	.is.zero...(fn.TABLE)..(defalias
2d60	20 27 68 74 2d 65 6d 70 74 79 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 55 5c 32	.'ht-empty?.#[257."\300.!\301U\2
2d80	30 37 22 20 5b 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 30 5d 20 33 20 28 23 24 20 2e	07".[hash-table-count.0].3.(#$..
2da0	20 31 31 35 33 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	.11532)]).(byte-code."\300\301\3
2dc0	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 37	02\303#\300\301\304\305#\300\207
2de0	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 65 6d 70 74 79 3f 20 63 6f 6d 70 69 6c	".[function-put.ht-empty?.compil
2e00	65 72 2d 6d 61 63 72 6f 20 68 74 2d 65 6d 70 74 79 3f 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64 65	er-macro.ht-empty?--inliner.side
2e20	2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74	-effect-free.t].5).(defalias.'ht
2e40	2d 65 6d 70 74 79 3f 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 32 5c 6e 00	-empty?--inliner.#[514."\3002\n.
2e60	5c 33 30 31 5c 33 30 32 02 44 44 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d	\301\302.DD0\207".[inline--just-
2e80	75 73 65 20 7a 65 72 6f 70 20 68 74 2d 73 69 7a 65 5d 20 35 20 28 23 24 20 2e 20 36 35 36 32 29	use.zerop.ht-size].5.(#$...6562)
2ea0	5d 29 23 40 31 37 32 20 52 65 74 75 72 6e 20 61 20 68 61 73 68 20 74 61 62 6c 65 20 63 6f 6e 74	])#@172.Return.a.hash.table.cont
2ec0	61 69 6e 69 6e 67 20 61 6c 6c 20 65 6e 74 72 69 65 73 20 69 6e 20 54 41 42 4c 45 20 66 6f 72 20	aining.all.entries.in.TABLE.for.
2ee0	77 68 69 63 68 0a 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	which.FUNCTION.returns.a.truthy.
2f00	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 77 69 74 68 20	value...FUNCTION.is.called.with.
2f20	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 45 2e 0a 0a 28	two.arguments,.KEY.and.VALUE...(
2f40	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 61 73 20 27 68	fn.FUNCTION.TABLE)..(defalias.'h
2f60	74 2d 65 6d 70 74 79 2d 70 20 27 68 74 2d 65 6d 70 74 79 3f 29 0a 28 64 65 66 61 6c 69 61 73 20	t-empty-p.'ht-empty?).(defalias.
2f80	27 68 74 2d 73 65 6c 65 63 74 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22	'ht-select.#[514."\300\301\302\"
2fa0	5c 33 30 33 5c 33 30 34 5c 33 30 35 03 06 06 23 03 5c 22 5c 32 31 30 5c 32 30 37 22 20 5b 6d 61	\303\304\305...#.\"\210\207".[ma
2fc0	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 68 74 2d 65 61 63	ke-hash-table.:test.equal.ht-eac
2fe0	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 31 02 02 5c 22 5c 32	h.make-closure.#[514."\301..\"\2
3000	30 35 0e 00 5c 33 30 32 02 02 5c 33 30 30 23 5c 32 31 30 5c 33 30 33 5c 32 30 37 22 20 5b 56 30	05..\302..\300#\210\303\207".[V0
3020	20 56 31 20 70 75 74 68 61 73 68 20 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 34 34 31 36 29 5d 5d	.V1.puthash.nil].6.(#$...4416)]]
3040	20 38 20 28 23 24 20 2e 20 31 31 39 34 34 29 5d 29 23 40 31 37 31 20 52 65 74 75 72 6e 20 61 20	.8.(#$...11944)])#@171.Return.a.
3060	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 6e 74 72 69 65	hash.table.containing.all.entrie
3080	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 4f 4e 20 72 65	s.in.TABLE.for.which.FUNCTION.re
30a0	74 75 72 6e 73 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	turns.a.falsy.value...FUNCTION.i
30c0	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 73 2c 20 4b 45 59	s.called.with.two.arguments,.KEY
30e0	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 54 41 42 4c 45 29	.and.VALUE...(fn.FUNCTION.TABLE)
3100	1f 0a 28 64 65 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	..(defalias.'ht-reject.#[514."\3
3120	30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 03 06 06 23 03 5c 22 5c	00\301\302\"\303\304\305...#.\"\
3140	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 74 65 73 74 20	210\207".[make-hash-table.:test.
3160	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 23 5b 35 31 34	equal.ht-each.make-closure.#[514
3180	20 22 5c 33 30 31 02 02 5c 22 3f 5c 32 30 35 0f 00 5c 33 30 32 02 02 5c 33 30 30 23 5c 32 31 30	."\301..\"?\205..\302..\300#\210
31a0	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 5d 20 36 20	\303\207".[V0.V1.puthash.nil].6.
31c0	28 23 24 20 2e 20 34 34 31 36 29 5d 5d 20 38 20 28 23 24 20 2e 20 31 32 33 37 35 29 5d 29 23 40	(#$...4416)]].8.(#$...12375)])#@
31e0	31 33 39 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 45 20 66 6f	139.Delete.entries.from.TABLE.fo
3200	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 6e 6f 6e 2d 6e 69 6c	r.which.FUNCTION.returns.non-nil
3220	2e 0a 0a 46 55 4e 43 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	...FUNCTION.is.called.with.two.a
3240	72 67 75 6d 65 6e 74 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	rguments,.KEY.and.VALUE...(fn.FU
3260	4e 43 54 49 4f 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 72 65 6a	NCTION.TABLE)..(defalias.'ht-rej
3280	65 63 74 21 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 05 23 02 5c 22 5c 33	ect!.#[514."\300\301\302..#.\"\3
32a0	30 33 5c 32 30 37 22 20 5b 68 74 2d 65 61 63 68 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b	03\207".[ht-each.make-closure.#[
32c0	35 31 34 20 22 5c 33 30 31 02 02 5c 22 5c 32 30 35 0b 00 5c 33 30 32 02 5c 33 30 30 5c 22 5c 32	514."\301..\"\205..\302.\300\"\2
32e0	30 37 22 20 5b 56 30 20 56 31 20 72 65 6d 68 61 73 68 5d 20 35 20 28 23 24 20 2e 20 34 34 31 36	07".[V0.V1.remhash].5.(#$...4416
3300	29 5d 20 6e 69 6c 5d 20 38 20 28 23 24 20 2e 20 31 32 37 37 32 29 5d 29 23 40 31 37 33 20 52 65	)].nil].8.(#$...12772)])#@173.Re
3320	74 75 72 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	turn.(key,.value).from.TABLE.for
3340	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 74 72 75 74 68 79	.which.FUNCTION.returns.a.truthy
3360	20 76 61 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	.value..Return.nil.otherwise...F
3380	55 4e 43 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	UNCTION.is.called.with.two.argum
33a0	65 6e 74 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	ents,.KEY.and.VALUE...(fn.FUNCTI
33c0	4f 4e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 64 65 6c 65 74 65 2d	ON.TABLE)..(defalias.'ht-delete-
33e0	69 66 20 27 68 74 2d 72 65 6a 65 63 74 21 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 66 69	if.'ht-reject!).(defalias.'ht-fi
3400	6e 64 20 23 5b 35 31 34 20 22 5c 33 30 30 32 5c 66 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 04 5c	nd.#[514."\3002\f.\301\302\303.\
3420	22 02 5c 22 30 5c 32 30 37 22 20 5b 62 72 65 61 6b 20 68 74 2d 65 61 63 68 20 6d 61 6b 65 2d 63	".\"0\207".[break.ht-each.make-c
3440	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 0d 00 5c 33 30 31	losure.#[514."\300..\"\205..\301
3460	5c 33 30 32 03 03 44 5c 22 5c 32 30 37 22 20 5b 56 30 20 74 68 72 6f 77 20 62 72 65 61 6b 5d 20	\302..D\"\207".[V0.throw.break].
3480	36 20 28 23 24 20 2e 20 34 34 31 36 29 5d 5d 20 36 20 28 23 24 20 2e 20 31 33 30 38 36 29 5d 29	6.(#$...4416)]].6.(#$...13086)])
34a0	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 41 42	#@120.Return.t.if.TABLE1.and.TAB
34c0	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 75 65	LE2.have.the.same.keys.and.value
34e0	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 72 65	s..Does.not.compare.equality.pre
3500	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 28 64	dicates...(fn.TABLE1.TABLE2)..(d
3520	65 66 61 6c 69 61 73 20 27 68 74 2d 65 71 75 61 6c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21	efalias.'ht-equal?.#[514."\300.!
3540	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 5d 00 5c 33 30	\300.!\301\302!.G.G\232\205].\30
3560	33 03 5c 33 30 34 5c 33 30 35 02 5c 32 30 33 57 00 5c 32 31 30 01 5c 32 34 32 5c 33 30 36 5c 33	3.\304\305.\203W.\210.\242\306\3
3580	30 37 02 06 0b 5c 33 30 35 23 21 5c 32 30 33 38 00 5c 33 31 30 5c 33 30 37 02 06 0b 5c 33 30 35	07...\305#!\2038.\310\307...\305
35a0	23 5c 33 30 37 03 06 0b 5c 33 30 35 23 5c 22 5c 32 30 32 46 00 5c 33 30 37 01 06 5c 6e 5c 33 30	#\307...\305#\"\202F.\307..\n\30
35c0	35 23 5c 33 30 37 02 06 5c 6e 06 08 23 5c 32 33 32 5c 32 31 31 5c 32 36 32 05 5c 32 30 33 57 00	5#\307..\n..#\232\211\262.\203W.
35e0	01 54 5c 32 36 32 02 02 41 5c 32 36 32 03 5c 32 30 32 15 00 5c 32 36 36 03 5c 32 30 35 5d 00 5c	.T\262..A\262.\202..\266.\205].\
3600	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
3620	74 2d 73 65 6e 74 69 6e 65 6c 22 20 74 20 30 20 6e 69 6c 20 68 74 2d 70 20 67 65 74 68 61 73 68	t-sentinel".t.0.nil.ht-p.gethash
3640	20 68 74 2d 65 71 75 61 6c 2d 70 5d 20 31 35 20 28 23 24 20 2e 20 31 33 34 37 38 29 5d 29 0a 28	.ht-equal-p].15.(#$...13478)]).(
3660	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 34	byte-code."\300\301\302\303#\304
3680	5c 33 30 35 5c 33 30 31 5c 22 5c 32 31 30 5c 33 30 36 5c 33 30 37 21 5c 32 30 37 22 20 5b 66 75	\305\301\"\210\306\307!\207".[fu
36a0	6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 65 71 75 61 6c 3f 20 73 69 64 65 2d 65 66 66 65 63 74	nction-put.ht-equal?.side-effect
36c0	2d 66 72 65 65 20 74 20 64 65 66 61 6c 69 61 73 20 68 74 2d 65 71 75 61 6c 2d 70 20 70 72 6f 76	-free.t.defalias.ht-equal-p.prov
36e0	69 64 65 20 68 74 5d 20 34 29 0a	ide.ht].4).