blob: d40adfd8090eb910c7aa4917ba7e428f42416214 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 37 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.27.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20	imizations...;;;.This.file.uses.
0060	64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20	dynamic.docstrings,.first.added.
0080	69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 64	in.Emacs.19.29...;;;.This.file.d
00a0	6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20	oes.not.contain.utf-8.non-ASCII.
00c0	63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20 6c 6f	characters,.;;;.and.so.can.be.lo
00e0	61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72 20 74	aded.in.Emacs.versions.earlier.t
0100	68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	han.23...;;;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	;;;;;;;;;;;;;;;;...(byte-code."\
01a0	33 30 30 5c 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	300\301!\210\300\302!\207".[requ
01c0	69 72 65 20 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	ire.dash.gv].2).#@127.Create.a.h
01e0	61 73 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	ash.table.with.the.key-value.pai
0200	72 73 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	rs.given..Keys.are.compared.with
0220	20 60 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	.`equal'...(fn.(KEY-1.VALUE-1).(
0240	4b 45 59 2d 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	KEY-2.VALUE-2)....)..(defalias.'
0260	68 74 20 27 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	ht.'(macro...#[128."\300\301!\30
0280	32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 06 21 5c 33 31 30 5c 22 5c 33	2\303\304\305\306\307..!\310\"\3
02a0	31 31 5c 33 31 32 25 03 5c 22 5c 33 31 33 02 5c 33 31 34 42 43 5c 33 31 35 03 05 43 5c 22 42 42	11\312%.\"\313.\314BC\315..C\"BB
02c0	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 70	\207".[make-symbol."ht-temp".map
02e0	63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30	car.make-byte-code.257."\301\300
0300	02 42 42 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 68 74 2d 73 65 74 21	.BB\207".vconcat.vector.[ht-set!
0320	5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 50 41 49 52 29 22 20 6c 65 74 20 28 28 68 74 2d 63 72 65	].4."\n\n(fn.PAIR)".let.((ht-cre
0340	61 74 65 29 29 20 61 70 70 65 6e 64 5d 20 39 20 28 23 24 20 2e 20 34 37 30 29 5d 29 29 0a 23 40	ate)).append].9.(#$...470)])).#@
0360	35 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	58.Associate.KEY.in.TABLE.with.V
0380	41 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	ALUE...(fn.TABLE.KEY.VALUE)..(de
03a0	66 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 5c 33 30 31 03	falias.'ht-set!.#[771."\300\301.
03c0	03 06 06 23 5c 32 31 30 5c 32 30 37 22 20 5b 6e 69 6c 20 70 75 74 68 61 73 68 5d 20 38 20 28 23	...#\210\207".[nil.puthash].8.(#
03e0	24 20 2e 20 38 36 37 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	$...867)]).(byte-code."\300\301\
0400	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 75 74 20	302\303#\300\207".[function-put.
0420	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 21 2d 2d	ht-set!.compiler-macro.ht-set!--
0440	69 6e 6c 69 6e 65 72 5d 20 34 29 0a 23 40 33 37 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46	inliner].4).#@37...(fn.INLINE--F
0460	4f 52 4d 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	ORM.TABLE.KEY.VALUE)..(defalias.
0480	27 68 74 2d 73 65 74 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	'ht-set!--inliner.#[1028."\3002.
04a0	00 5c 33 30 31 5c 33 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	.\301\302\303....FE0\207".[inlin
04c0	65 2d 2d 6a 75 73 74 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	e--just-use.prog1.nil.puthash].1
04e0	30 20 28 23 24 20 2e 20 31 31 30 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 65	0.(#$...1105)]).(defalias.'ht-se
0500	74 20 27 68 74 2d 73 65 74 21 29 0a 23 40 32 32 35 20 43 72 65 61 74 65 20 61 6e 20 65 6d 70 74	t.'ht-set!).#@225.Create.an.empt
0520	79 20 68 61 73 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	y.hash.table...TEST.indicates.th
0540	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 68 65 20 68	e.function.used.to.compare.the.h
0560	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 27 2e 20 20	ash.keys...Default.is.`equal'...
0580	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 6c 27 20 6f	It.can.be.`eq',.`eql',.`equal'.o
05a0	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 65 64 20 76	r.a.user-supplied.test.created.v
05c0	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 0a 0a 28 66	ia.`define-hash-table-test'...(f
05e0	6e 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	n.&optional.TEST)..(defalias.'ht
0600	2d 63 72 65 61 74 65 20 23 5b 32 35 36 20 22 5c 33 30 30 5c 33 30 31 02 5c 32 30 36 07 00 5c 33	-create.#[256."\300\301.\206..\3
0620	30 32 5c 22 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	02\"\207".[make-hash-table.:test
0640	20 65 71 75 61 6c 5d 20 34 20 28 23 24 20 2e 20 31 32 39 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f	.equal].4.(#$...1298)]).(byte-co
0660	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
0680	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
06a0	2d 63 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	-create.compiler-macro.ht-create
06c0	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)
06e0	0a 23 40 33 36 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f 52 4d 20 26 6f 70 74 69 6f 6e	.#@36...(fn.INLINE--FORM.&option
0700	61 6c 20 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 2d 2d	al.TEST)..(defalias.'ht-create--
0720	69 6e 6c 69 6e 65 72 20 23 5b 35 31 33 20 22 5c 33 30 30 32 0e 00 5c 33 30 31 5c 33 30 32 5c 33	inliner.#[513."\3002..\301\302\3
0740	30 33 03 5c 33 30 34 5c 33 30 35 44 45 45 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75	03.\304\305DEE0\207".[inline--ju
0760	73 74 2d 75 73 65 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 6f 72 20	st-use.make-hash-table.:test.or.
0780	71 75 6f 74 65 20 65 71 75 61 6c 5d 20 38 20 28 23 24 20 2e 20 31 37 36 36 29 5d 29 0a 23 40 32	quote.equal].8.(#$...1766)]).#@2
07a0	36 33 20 43 72 65 61 74 65 20 61 20 68 61 73 68 20 74 61 62 6c 65 20 77 69 74 68 20 69 6e 69 74	63.Create.a.hash.table.with.init
07c0	69 61 6c 20 76 61 6c 75 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 41 4c 49 53 54 2e 0a 0a	ial.values.according.to.ALIST...
07e0	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 73 65 64	TEST.indicates.the.function.used
0800	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 65 66 61	.to.compare.the.hash.keys...Defa
0820	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 71 27 2c	ult.is.`equal'...It.can.be.`eq',
0840	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 70 6c 69	.`eql',.`equal'.or.a.user-suppli
0860	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 61 73 68	ed.test.created.via.`define-hash
0880	2d 74 61 62 6c 65 2d 74 65 73 74 27 2e 0a 0a 28 66 6e 20 41 4c 49 53 54 20 26 6f 70 74 69 6f 6e	-table-test'...(fn.ALIST.&option
08a0	61 6c 20 54 45 53 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 3c 2d 61 6c 69 73 74 20 23	al.TEST)..(defalias.'ht<-alist.#
08c0	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 33 03	[513."\300\301.\206..\302\"\303.
08e0	21 5c 32 31 31 5c 32 30 33 24 00 5c 32 31 31 40 5c 32 31 31 40 01 41 5c 33 30 34 02 02 06 07 23	!\211\203$.\211@\211@.A\304....#
0900	5c 32 36 36 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 0b 00 01 5c 32 36 32 01 5c 32 30 37 22	\266..A\266\202\202...\262.\207"
0920	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 72 65	.[make-hash-table.:test.equal.re
0940	76 65 72 73 65 20 70 75 74 68 61 73 68 5d 20 31 31 20 28 23 24 20 2e 20 31 39 35 35 29 5d 29 0a	verse.puthash].11.(#$...1955)]).
0960	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
0980	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
09a0	74 3c 2d 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	t<-alist.side-effect-free.t.defa
09c0	6c 69 61 73 20 68 74 2d 66 72 6f 6d 2d 61 6c 69 73 74 5d 20 34 29 0a 23 40 32 36 33 20 43 72 65	lias.ht-from-alist].4).#@263.Cre
09e0	61 74 65 20 61 20 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	ate.a.hash.table.with.initial.va
0a00	6c 75 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 50 4c 49 53 54 2e 0a 0a 54 45 53 54 20 69	lues.according.to.PLIST...TEST.i
0a20	6e 64 69 63 61 74 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	ndicates.the.function.used.to.co
0a40	6d 70 61 72 65 20 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	mpare.the.hash.keys...Default.is
0a60	20 60 65 71 75 61 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	.`equal'...It.can.be.`eq',.`eql'
0a80	2c 20 60 65 71 75 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	,.`equal'.or.a.user-supplied.tes
0aa0	74 20 63 72 65 61 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	t.created.via.`define-hash-table
0ac0	2d 74 65 73 74 27 2e 0a 0a 28 66 6e 20 50 4c 49 53 54 20 26 6f 70 74 69 6f 6e 61 6c 20 54 45 53	-test'...(fn.PLIST.&optional.TES
0ae0	54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 3c 2d 70 6c 69 73 74 20 23 5b 35 31 33 20 22	T)..(defalias.'ht<-plist.#[513."
0b00	5c 33 30 30 5c 33 30 31 02 5c 32 30 36 07 00 5c 33 30 32 5c 22 5c 33 30 33 5c 33 30 34 04 5c 22	\300\301.\206..\302\"\303\304.\"
0b20	5c 32 33 37 5c 32 31 31 5c 32 30 33 27 00 5c 32 31 31 40 5c 32 31 31 40 01 41 40 5c 33 30 35 02	\237\211\203'.\211@\211@.A@\305.
0b40	02 06 07 23 5c 32 36 36 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 0d 00 01 5c 32 36 32 01 5c	...#\266..A\266\202\202...\262.\
0b60	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 65 71 75 61	207".[make-hash-table.:test.equa
0b80	6c 20 2d 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	l.-partition.2.puthash].11.(#$..
0ba0	20 32 35 32 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	.2525)]).(byte-code."\300\301\30
0bc0	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 66 75 6e 63 74	2\303#\304\305\301\"\207".[funct
0be0	69 6f 6e 2d 70 75 74 20 68 74 3c 2d 70 6c 69 73 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	ion-put.ht<-plist.side-effect-fr
0c00	65 65 20 74 20 64 65 66 61 6c 69 61 73 20 68 74 2d 66 72 6f 6d 2d 70 6c 69 73 74 5d 20 34 29 0a	ee.t.defalias.ht-from-plist].4).
0c20	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 20 61 6e 64 20	#@149.Look.up.KEY.in.TABLE,.and.
0c40	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 49 66 20 4b 45	return.the.matching.value..If.KE
0c60	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 41 55 4c 54 20	Y.isn't.present,.return.DEFAULT.
0c80	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 6e 20 54 41 42	(nil.if.not.specified)...(fn.TAB
0ca0	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 65 66 61	LE.KEY.&optional.DEFAULT)..(defa
0cc0	6c 69 61 73 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	lias.'ht-get.#[770."\300...#\207
0ce0	22 20 5b 67 65 74 68 61 73 68 5d 20 37 20 28 23 24 20 2e 20 33 31 31 30 29 5d 29 0a 28 62 79 74	".[gethash].7.(#$...3110)]).(byt
0d00	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 33 30	e-code."\300\301\302\303#\300\30
0d20	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 6f 6e 2d 70 75	1\304\305#\300\207".[function-pu
0d40	74 20 68 74 2d 67 65 74 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 68 74 2d 67 65 74 2d 2d	t.ht-get.compiler-macro.ht-get--
0d60	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 23	inliner.side-effect-free.t].5).#
0d80	40 34 39 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	@49...(fn.INLINE--FORM.TABLE.KEY
0da0	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 73 20 27	.&optional.DEFAULT)..(defalias.'
0dc0	68 74 2d 67 65 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	ht-get--inliner.#[1027."\3002\n.
0de0	5c 33 30 31 02 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	\301...F0\207".[inline--just-use
0e00	20 67 65 74 68 61 73 68 5d 20 38 20 28 23 24 20 2e 20 33 34 36 30 29 5d 29 0a 28 62 79 74 65 2d	.gethash].8.(#$...3460)]).(byte-
0e20	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22	code."\300\301\302\303#\300\207"
0e40	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 67 65 74 20 67 76 2d 65 78 70 61 6e 64 65	.[function-put.ht-get.gv-expande
0e60	72 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 24 5c 32 30 37 22 20 5b 67	r.#[385."\300\301\302..$\207".[g
0e80	76 2d 2d 64 65 66 73 65 74 74 65 72 20 68 74 2d 67 65 74 20 23 5b 37 37 31 20 22 5c 33 30 30 01	v--defsetter.ht-get.#[771."\300.
0ea0	04 04 46 5c 32 30 37 22 20 5b 70 75 74 68 61 73 68 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 56 41	..F\207".[puthash].7."\n\n(fn.VA
0ec0	4c 55 45 20 54 41 42 4c 45 20 4b 45 59 29 22 5d 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 44 4f 20	LUE.TABLE.KEY)"]].7."\n\n(fn.DO.
0ee0	26 72 65 73 74 20 41 52 47 53 29 22 5d 5d 20 34 29 0a 23 40 31 39 33 20 4c 6f 6f 6b 20 75 70 20	&rest.ARGS)"]].4).#@193.Look.up.
0f00	4b 45 59 53 20 69 6e 20 6e 65 73 74 65 64 20 68 61 73 68 20 74 61 62 6c 65 73 2c 20 73 74 61 72	KEYS.in.nested.hash.tables,.star
0f20	74 69 6e 67 20 77 69 74 68 20 54 41 42 4c 45 2e 0a 54 68 65 20 6c 6f 6f 6b 75 70 20 66 6f 72 20	ting.with.TABLE..The.lookup.for.
0f40	65 61 63 68 20 6b 65 79 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 6e 6f 74 68 65 72 20 68	each.key.should.return.another.h
0f60	61 73 68 20 74 61 62 6c 65 2c 20 65 78 63 65 70 74 0a 66 6f 72 20 74 68 65 20 66 69 6e 61 6c 20	ash.table,.except.for.the.final.
0f80	6b 65 79 2c 20 77 68 69 63 68 20 6d 61 79 20 72 65 74 75 72 6e 20 61 6e 79 20 76 61 6c 75 65 2e	key,.which.may.return.any.value.
0fa0	0a 0a 28 66 6e 20 54 41 42 4c 45 20 26 72 65 73 74 20 4b 45 59 53 29 1f 0a 28 64 65 66 61 6c 69	..(fn.TABLE.&rest.KEYS)..(defali
0fc0	61 73 20 27 68 74 2d 67 65 74 2a 20 23 5b 33 38 35 20 22 5c 32 31 31 5c 32 30 33 13 00 5c 33 30	as.'ht-get*.#[385."\211\203..\30
0fe0	30 01 5c 32 31 31 41 5c 32 36 32 03 5c 32 34 32 03 5c 33 30 31 23 5c 32 36 32 02 5c 32 30 32 00	0.\211A\262.\242.\301#\262.\202.
1000	00 01 5c 32 30 37 22 20 5b 67 65 74 68 61 73 68 20 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 33 38	..\207".[gethash.nil].6.(#$...38
1020	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 30 32 5c 33	32)]).(byte-code."\300\301\302\3
1040	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 22 20 5b 66	03#\300\301\304\305#\300\207".[f
1060	75 6e 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	unction-put.ht-get*.compiler-mac
1080	72 6f 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	ro.ht-get*--inliner.side-effect-
10a0	66 72 65 65 20 74 5d 20 35 29 0a 23 40 33 38 20 0a 0a 28 66 6e 20 49 4e 4c 49 4e 45 2d 2d 46 4f	free.t].5).#@38...(fn.INLINE--FO
10c0	52 4d 20 54 41 42 4c 45 20 26 72 65 73 74 20 4b 45 59 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	RM.TABLE.&rest.KEYS)..(defalias.
10e0	27 68 74 2d 67 65 74 2a 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 36 34 32 20 22 5c 33 30 30 32 59 00	'ht-get*--inliner.#[642."\3002Y.
1100	01 5c 33 30 31 01 21 5c 32 30 33 0f 00 5c 32 31 31 5c 32 30 32 12 00 5c 33 30 32 5c 33 30 33 21	.\301.!\203..\211\202..\302\303!
1120	02 5c 33 30 31 01 21 5c 32 30 33 1d 00 5c 32 31 31 5c 32 30 32 20 00 5c 33 30 32 5c 33 30 34 21	.\301.!\203..\211\202..\302\304!
1140	5c 33 30 35 5c 33 30 36 02 5c 33 30 37 06 06 5c 33 31 30 06 08 5c 33 31 31 06 08 44 45 45 45 04	\305\306.\307..\310..\311..DEEE.
1160	45 01 03 3d 5c 32 30 33 3c 00 5c 32 31 31 5c 32 30 32 43 00 5c 33 31 32 02 04 44 43 02 5c 22 5c	E..=\203<.\211\202C.\312..DC.\"\
1180	32 36 36 5c 32 30 33 01 03 3d 5c 32 30 33 4f 00 5c 32 31 31 5c 32 30 32 56 00 5c 33 31 32 02 04	266\203..=\203O.\211\202V.\312..
11a0	44 43 02 5c 22 5c 32 36 36 5c 32 30 33 30 5c 32 30 37 22 20 5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73	DC.\"\266\2030\207".[inline--jus
11c0	74 2d 75 73 65 20 6d 61 63 72 6f 65 78 70 2d 63 6f 70 79 61 62 6c 65 2d 70 20 6d 61 6b 65 2d 73	t-use.macroexp-copyable-p.make-s
11e0	79 6d 62 6f 6c 20 22 74 61 62 6c 65 22 20 22 6b 65 79 73 22 20 70 72 6f 67 6e 20 77 68 69 6c 65	ymbol."table"."keys".progn.while
1200	20 73 65 74 66 20 68 74 2d 67 65 74 20 70 6f 70 20 6d 61 63 72 6f 65 78 70 2d 6c 65 74 2a 5d 20	.setf.ht-get.pop.macroexp-let*].
1220	31 36 20 28 23 24 20 2e 20 34 32 37 32 29 5d 29 0a 28 70 75 74 20 27 68 74 2d 67 65 74 2a 20 27	16.(#$...4272)]).(put.'ht-get*.'
1240	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 5c 33 30 31	compiler-macro.#[642."..\300\301
1260	5c 32 31 31 03 5c 32 30 33 21 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 02 02	\211.\203!..\211A\262.\242\262..
1280	5c 32 36 32 01 02 54 5c 32 36 32 03 5c 33 30 32 05 03 45 5c 32 36 32 05 5c 32 30 32 05 00 5c 32	\262..T\262.\302..E\262.\202..\2
12a0	36 36 04 5c 32 31 31 5c 32 30 37 22 20 5b 30 20 6e 69 6c 20 68 74 2d 67 65 74 5d 20 31 31 20 22	66.\211\207".[0.nil.ht-get].11."
12c0	5c 6e 5c 6e 28 66 6e 20 5f 20 54 41 42 4c 45 20 26 72 65 73 74 20 4b 45 59 53 29 22 5d 29 0a 23	\n\n(fn._.TABLE.&rest.KEYS)"]).#
12e0	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 65 76	@86.Update.TABLE.according.to.ev
1300	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 4c 45	ery.key-value.pair.in.FROM-TABLE
1320	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 0a 28 64 65 66 61 6c	...(fn.TABLE.FROM-TABLE)..(defal
1340	69 61 73 20 27 68 74 2d 75 70 64 61 74 65 21 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c	ias.'ht-update!.#[514."\300\301\
1360	33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30	302\303\304\305..!\306\"\307\310
1380	25 02 5c 22 5c 32 31 30 5c 33 31 31 5c 32 30 37 22 20 5b 6d 61 70 68 61 73 68 20 6d 61 6b 65 2d	%.\"\210\311\207".[maphash.make-
13a0	62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 31 02 02 5c 33 30 30 23 5c 32 30 37 22 20	byte-code.514."\301..\300#\207".
13c0	76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 70 75 74 68 61 73 68 5d 20 36 20 22 5c 6e 5c 6e	vconcat.vector.[puthash].6."\n\n
13e0	28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 34 38 33	(fn.KEY.VALUE)".nil].9.(#$...483
1400	36 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 27 68 74 2d 75 70	6)]).(defalias.'ht-update.'ht-up
1420	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 61 62 6c 65 73 20	date!).#@170.Crete.a.new.tables.
1440	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 6c 75 65 20	that.includes.all.the.key-value.
1460	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 6c 65 20 68	pairs.from.TABLES..If.multiple.h
1480	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 65 79 2c 20 74 68	ave.tables.have.the.same.key,.th
14a0	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 69 73 20 75 73 65	e.value.in.the.last.table.is.use
14c0	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 66 61 6c 69 61 73	d...(fn.&rest.TABLES)..(defalias
14e0	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 5c 33 30 32 5c 22	.'ht-merge.#[128."\300\301\302\"
1500	5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 06 21 5c 33 31 31 5c	\303\304\305\306\307\310..!\311\
1520	22 5c 33 31 32 5c 33 31 33 25 03 5c 22 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20 5b 6d 61 6b 65	"\312\313%.\"\210\211\207".[make
1540	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 61 70 63 20 6d 61 6b	-hash-table.:test.equal.mapc.mak
1560	65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c 33 30 30 02 5c 22 5c 32 30 37	e-byte-code.257."\301\300.\"\207
1580	22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 68 74 2d 75 70 64 61 74 65 21 5d 20 34 20	".vconcat.vector.[ht-update!].4.
15a0	22 5c 6e 5c 6e 28 66 6e 20 54 41 42 4c 45 29 22 5d 20 39 20 28 23 24 20 2e 20 35 31 36 35 29 5d	"\n\n(fn.TABLE)"].9.(#$...5165)]
15c0	29 0a 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 28	).#@40.Remove.KEY.from.TABLE...(
15e0	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 6d	fn.TABLE.KEY)..(defalias.'ht-rem
1600	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 61	ove!.#[514."\300..\"\207".[remha
1620	73 68 5d 20 35 20 28 23 24 20 2e 20 35 35 37 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	sh].5.(#$...5575)]).(byte-code."
1640	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 63	\300\301\302\303#\300\207".[func
1660	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 2d 6d 61 63	tion-put.ht-remove!.compiler-mac
1680	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 23 40 33 31 20	ro.ht-remove!--inliner].4).#@31.
16a0	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 29 1f 0a 28	..(fn.INLINE--FORM.TABLE.KEY)..(
16c0	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.#[
16e0	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
1700	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 35 37 39	e--just-use.remhash].6.(#$...579
1720	32 29 5d 29 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	2)]).(defalias.'ht-remove.'ht-re
1740	6d 6f 76 65 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	move!).#@41.Remove.all.keys.from
1760	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 20 27	.TABLE...(fn.TABLE)..(defalias.'
1780	68 74 2d 63 6c 65 61 72 21 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 21 5c 32 31 30 5c	ht-clear!.#[257."\300\301.!\210\
17a0	32 30 37 22 20 5b 6e 69 6c 20 63 6c 72 68 61 73 68 5d 20 34 20 28 23 24 20 2e 20 35 39 36 34 29	207".[nil.clrhash].4.(#$...5964)
17c0	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#
17e0	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 6c 65 61 72	\300\207".[function-put.ht-clear
1800	21 20 63 6f 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	!.compiler-macro.ht-clear!--inli
1820	6e 65 72 5d 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	ner].4).#@27...(fn.INLINE--FORM.
1840	54 41 42 4c 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	TABLE)..(defalias.'ht-clear!--in
1860	6c 69 6e 65 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	liner.#[514."\3002..\301\302\303
1880	03 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 70 72 6f 67	.DE0\207".[inline--just-use.prog
18a0	31 20 6e 69 6c 20 63 6c 72 68 61 73 68 5d 20 36 20 28 23 24 20 2e 20 36 31 38 39 29 5d 29 0a 28	1.nil.clrhash].6.(#$...6189)]).(
18c0	64 65 66 61 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	defalias.'ht-clear.'ht-clear!).#
18e0	40 31 35 36 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	@156.Apply.FUNCTION.to.each.key-
1900	76 61 6c 75 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	value.pair.of.TABLE,.and.make.a.
1920	6c 69 73 74 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	list.of.the.results..FUNCTION.is
1940	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 20	.called.with.two.arguments,.KEY.
1960	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 1f	and.VALUE...(fn.FUNCTION.TABLE).
1980	0a 28 64 65 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	.(defalias.'ht-map.#[514."\300C\
19a0	33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 08 06 07 5c 22 5c 33 30	301\302\303\304\305\306....\"\30
19c0	37 5c 22 5c 33 31 30 5c 33 31 31 25 03 5c 22 5c 32 31 30 5c 32 31 31 5c 32 34 32 5c 32 30 37 22	7\"\310\311%.\"\210\211\242\207"
19e0	20 5b 6e 69 6c 20 6d 61 70 68 61 73 68 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34	.[nil.maphash.make-byte-code.514
1a00	20 22 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	."\301\300..\"\301\242B\240\207"
1a20	20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45	.vconcat.vector.[].6."\n\n(fn.KE
1a40	59 20 56 41 4c 55 45 29 22 5d 20 31 31 20 28 23 24 20 2e 20 36 33 37 33 29 5d 29 0a 23 40 32 31	Y.VALUE)"].11.(#$...6373)]).#@21
1a60	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 61 70 27 2e	8.Anaphoric.version.of.`ht-map'.
1a80	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 20 54 41 42	.For.every.key-value.pair.in.TAB
1aa0	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 61 72 69 61	LE,.evaluate.FORM.with.the.varia
1ac0	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 66 20 79 6f	bles.KEY.and.VALUE.bound...If.yo
1ae0	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 72 69 61 62	u.don't.use.both.of.these.variab
1b00	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 6f 69 64 20	les,.then.use.`ht-map'.to.avoid.
1b20	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 28 64 65 66	warnings...(fn.FORM.TABLE)..(def
1b40	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 31 34 20 22	alias.'ht-amap.'(macro...#[514."
1b60	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 70 20 6c 61	\300\301\302.E.E\207".[ht-map.la
1b80	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 36 37 35 34 29 5d	mbda.(key.value)].6.(#$...6754)]
1ba0	29 29 0a 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 68 65	)).#@53.Return.a.list.of.all.the
1bc0	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 28 64 65	.keys.in.TABLE...(fn.TABLE)..(de
1be0	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 30 31 02	falias.'ht-keys.#[257."\300\301.
1c00	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 20 5b 5d	\"\207".[ht-map.#[514.".\207".[]
1c20	20 33 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 5d 20 34 20 28 23 24 20	.3."\n\n(fn.KEY.VALUE)"]].4.(#$.
1c40	2e 20 37 30 38 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	..7080)]).(byte-code."\300\301\3
1c60	30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68	02\303#\300\207".[function-put.h
1c80	74 2d 6b 65 79 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40	t-keys.side-effect-free.t].4).#@
1ca0	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 20 76 61 6c 75	55.Return.a.list.of.all.the.valu
1cc0	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 64 65 66 61 6c	es.in.TABLE...(fn.TABLE)..(defal
1ce0	69 61 73 20 27 68 74 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	ias.'ht-values.#[257."\300\301.\
1d00	22 5c 32 30 37 22 20 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	"\207".[ht-map.#[514."\207".[].3
1d20	20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 5d 20 34 20 28 23 24 20 2e 20	."\n\n(fn.KEY.VALUE)"]].4.(#$...
1d40	37 33 33 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	7331)]).(byte-code."\300\301\302
1d60	5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d	\303#\300\207".[function-put.ht-
1d80	76 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 23 40	values.side-effect-free.t].4).#@
1da0	37 33 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 6d 65 6e 74 20	73.Return.a.list.of.two-element.
1dc0	6c 69 73 74 73 20 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	lists.'(key.value).from.TABLE...
1de0	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 69 74 65 6d 73 20	(fn.TABLE)..(defalias.'ht-items.
1e00	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 61 70 20	#[257."\300\301.\"\207".[ht-map.
1e20	23 5b 35 31 34 20 22 01 01 44 5c 32 30 37 22 20 5b 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45	#[514."..D\207".[].4."\n\n(fn.KE
1e40	59 20 56 41 4c 55 45 29 22 5d 5d 20 34 20 28 23 24 20 2e 20 37 35 38 37 29 5d 29 0a 28 62 79 74	Y.VALUE)"]].4.(#$...7587)]).(byt
1e60	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 5c 33 30	e-code."\300\301\302\303#\304\30
1e80	35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74	5\306\307#\207".[function-put.ht
1ea0	2d 69 74 65 6d 73 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	-items.side-effect-free.t.defali
1ec0	61 73 20 68 74 2d 65 61 63 68 20 6d 61 70 68 61 73 68 20 22 41 70 70 6c 79 20 46 55 4e 43 54 49	as.ht-each.maphash."Apply.FUNCTI
1ee0	4f 4e 20 74 6f 20 65 61 63 68 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 6f 66 20 54 41 42	ON.to.each.key-value.pair.of.TAB
1f00	4c 45 2e 5c 6e 52 65 74 75 72 6e 73 20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d	LE.\nReturns.nil,.used.for.side-
1f20	65 66 66 65 63 74 73 20 6f 6e 6c 79 2e 22 5d 20 35 29 0a 23 40 31 33 39 20 41 6e 61 70 68 6f 72	effects.only."].5).#@139.Anaphor
1f40	69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 68 74 2d 65 61 63 68 27 2e 0a 46 6f 72 20 65 76 65	ic.version.of.`ht-each'..For.eve
1f60	72 79 20 6b 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	ry.key-value.pair.in.TABLE,.eval
1f80	75 61 74 65 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 6b 65 79	uate.FORM.with.the.variables.key
1fa0	20 61 6e 64 20 76 61 6c 75 65 20 62 6f 75 6e 64 2e 0a 0a 28 66 6e 20 46 4f 52 4d 20 54 41 42 4c	.and.value.bound...(fn.FORM.TABL
1fc0	45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 61 65 61 63 68 20 27 28 6d 61 63 72 6f 20	E)..(defalias.'ht-aeach.'(macro.
1fe0	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 30 37 22 20 5b	..#[514."\300\301\302.E.E\207".[
2000	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 20 36 20 28 23	ht-each.lambda.(key.value)].6.(#
2020	24 20 2e 20 37 39 39 33 29 5d 29 29 0a 23 40 37 31 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20	$...7993)])).#@71.Return.a.copy.
2040	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 66 69 65 64	of.TABLE.with.only.the.specified
2060	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 66 61 6c 69	.KEYS...(fn.TABLE.KEYS)..(defali
2080	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 30 30 5c 33	as.'ht-select-keys.#[514."\300\3
20a0	30 31 5c 33 30 32 5c 33 30 33 05 21 5c 22 5c 32 36 32 01 01 5c 32 31 31 5c 32 30 33 2c 00 5c 32	01\302\303.!\"\262..\211\203,.\2
20c0	31 31 40 5c 33 30 34 01 06 06 5c 33 30 35 23 5c 33 30 35 3d 5c 32 30 34 25 00 5c 33 30 36 01 5c	11@\304...\305#\305=\204%.\306.\
20e0	33 30 34 03 06 08 5c 22 05 23 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 5c 6e 00 01	304...\".#\210.A\266\202\202\n..
2100	5c 32 36 32 01 5c 32 30 37 22 20 5b 6e 69 6c 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20	\262.\207".[nil.make-hash-table.
2120	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 6b 65	:test.hash-table-test.gethash.ke
2140	79 2d 6e 6f 74 2d 66 6f 75 6e 64 20 70 75 74 68 61 73 68 5d 20 31 30 20 28 23 24 20 2e 20 38 32	y-not-found.puthash].10.(#$...82
2160	34 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33	42)]).(byte-code."\300\301\302\3
2180	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 73 65	03#\300\207".[function-put.ht-se
21a0	6c 65 63 74 2d 6b 65 79 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29	lect-keys.side-effect-free.t].4)
21c0	0a 23 40 32 37 39 20 52 65 74 75 72 6e 20 61 20 66 6c 61 74 20 6c 69 73 74 20 27 28 6b 65 79 31	.#@279.Return.a.flat.list.'(key1
21e0	20 76 61 6c 75 65 31 20 6b 65 79 32 20 76 61 6c 75 65 32 2e 2e 2e 29 20 66 72 6f 6d 20 54 41 42	.value1.key2.value2...).from.TAB
2200	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 20 75	LE...Note.that.hash.tables.are.u
2220	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 20 65	nordered,.so.this.cannot.be.an.e
2240	78 61 63 74 0a 69 6e 76 65 72 73 65 20 6f 66 20 60 68 74 3c 2d 70 6c 69 73 74 27 2e 20 20 54 68	xact.inverse.of.`ht<-plist'...Th
2260	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 0a 0a	e.following.is.not.guaranteed:..
2280	28 6c 65 74 20 28 28 64 61 74 61 20 27 28 61 20 62 20 63 20 64 29 29 29 0a 20 20 28 65 71 75 61	(let.((data.'(a.b.c.d)))...(equa
22a0	6c 70 20 64 61 74 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	lp.data...........(ht->plist.(ht
22c0	3c 2d 70 6c 69 73 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 64	<-plist.data))))..(fn.TABLE)..(d
22e0	65 66 61 6c 69 61 73 20 27 68 74 2d 3e 70 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33	efalias.'ht->plist.#[257."\300\3
2300	30 31 5c 33 30 32 03 21 5c 22 5c 32 30 37 22 20 5b 61 70 70 6c 79 20 61 70 70 65 6e 64 20 68 74	01\302.!\"\207".[apply.append.ht
2320	2d 69 74 65 6d 73 5d 20 35 20 28 23 24 20 2e 20 38 36 34 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f	-items].5.(#$...8647)]).(byte-co
2340	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 30	de."\300\301\302\303#\304\305\30
2360	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 69 73 74	1\"\207".[function-put.ht->plist
2380	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 68 74 2d	.side-effect-free.t.defalias.ht-
23a0	74 6f 2d 70 6c 69 73 74 5d 20 34 29 0a 23 40 37 34 20 52 65 74 75 72 6e 20 61 20 73 68 61 6c 6c	to-plist].4).#@74.Return.a.shall
23c0	6f 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	ow.copy.of.TABLE.(keys.and.value
23e0	73 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 64 65 66	s.are.shared)...(fn.TABLE)..(def
2400	61 6c 69 61 73 20 27 68 74 2d 63 6f 70 79 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 37	alias.'ht-copy.#[257."\300.!\207
2420	22 20 5b 63 6f 70 79 2d 68 61 73 68 2d 74 61 62 6c 65 5d 20 33 20 28 23 24 20 2e 20 39 31 33 38	".[copy-hash-table].3.(#$...9138
2440	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 33	)]).(byte-code."\300\301\302\303
2460	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
2480	63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 63 6f 70 79 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f	ction-put.ht-copy.compiler-macro
24a0	20 68 74 2d 63 6f 70 79 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-copy--inliner.side-effect-fr
24c0	65 65 20 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	ee.t].5).#@27...(fn.INLINE--FORM
24e0	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 2d 2d 69 6e 6c	.TABLE)..(defalias.'ht-copy--inl
2500	69 6e 65 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	iner.#[514."\3002..\301.D0\207".
2520	5b 69 6e 6c 69 6e 65 2d 2d 6a 75 73 74 2d 75 73 65 20 63 6f 70 79 2d 68 61 73 68 2d 74 61 62 6c	[inline--just-use.copy-hash-tabl
2540	65 5d 20 34 20 28 23 24 20 2e 20 39 34 32 32 29 5d 29 0a 23 40 32 38 38 20 52 65 74 75 72 6e 20	e].4.(#$...9422)]).#@288.Return.
2560	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 27 28 6b 65	a.list.of.two-element.lists.'(ke
2580	79 20 2e 20 76 61 6c 75 65 29 20 66 72 6f 6d 20 54 41 42 4c 45 2e 0a 0a 4e 6f 74 65 20 74 68 61	y...value).from.TABLE...Note.tha
25a0	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 2c 20 73 6f 20	t.hash.tables.are.unordered,.so.
25c0	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 65 72 73 65 20	this.cannot.be.an.exact.inverse.
25e0	6f 66 20 60 68 74 3c 2d 61 6c 69 73 74 27 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69	of.`ht<-alist'...The.following.i
2600	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 61 74 61 20 27	s.not.guaranteed:..(let.((data.'
2620	28 28 61 20 2e 20 62 29 20 28 63 20 2e 20 64 29 29 29 29 0a 20 20 28 65 71 75 61 6c 70 20 64 61	((a...b).(c...d))))...(equalp.da
2640	74 61 0a 20 20 20 20 20 20 20 20 20 20 28 68 74 2d 3e 61 6c 69 73 74 20 28 68 74 3c 2d 61 6c 69	ta...........(ht->alist.(ht<-ali
2660	73 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 64 65 66 61 6c 69	st.data))))..(fn.TABLE)..(defali
2680	61 73 20 27 68 74 2d 3e 61 6c 69 73 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22	as.'ht->alist.#[257."\300\301.\"
26a0	5c 32 30 37 22 20 5b 68 74 2d 6d 61 70 20 23 5b 35 31 34 20 22 01 01 42 5c 32 30 37 22 20 5b 5d	\207".[ht-map.#[514."..B\207".[]
26c0	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 34 20 28 23 24 20	.4."\n\n(fn.KEY.VALUE)"]].4.(#$.
26e0	2e 20 39 35 36 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33	..9561)]).(byte-code."\300\301\3
2700	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 30 34 5c 33 30	02\303#\304\305\301\"\210\304\30
2720	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 5c 32 30 37 22 20 5b	6\307\"\210\304\310\307\"\207".[
2740	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 64 65 2d 65 66 66 65	function-put.ht->alist.side-effe
2760	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 61 6c 69 73 74 20 68	ct-free.t.defalias.ht-to-alist.h
2780	74 5c 3f 20 68 61 73 68 2d 74 61 62 6c 65 2d 70 20 68 74 2d 70 5d 20 34 29 0a 23 40 35 30 20 52	t\?.hash-table-p.ht-p].4).#@50.R
27a0	65 74 75 72 6e 20 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	eturn.'t.if.TABLE.contains.KEY..
27c0	0a 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 63	.(fn.TABLE.KEY)..(defalias.'ht-c
27e0	6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 33 30 32 02 04	ontains\?.#[514."\300\301!\302..
2800	03 23 01 3d 3f 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 68 74 2d 2d 6e 6f 74	.#.=?\207".[make-symbol."ht--not
2820	2d 66 6f 75 6e 64 22 20 67 65 74 68 61 73 68 5d 20 37 20 28 23 24 20 2e 20 31 30 31 34 33 29 5d	-found".gethash].7.(#$...10143)]
2840	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c	).(byte-code."\300\301\302\303#\
2860	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 63 74	300\301\304\305#\300\207".[funct
2880	69 6f 6e 2d 70 75 74 20 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 63 6f 6d 70 69 6c 65 72 2d 6d	ion-put.ht-contains\?.compiler-m
28a0	61 63 72 6f 20 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64 65	acro.ht-contains\?--inliner.side
28c0	2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 35 29 0a 23 40 33 31 20 0a 0a 28 66 6e 20 49 4e	-effect-free.t].5).#@31...(fn.IN
28e0	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 6c 69 61 73	LINE--FORM.TABLE.KEY)..(defalias
2900	20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 37 37 31 20 22	.'ht-contains\?--inliner.#[771."
2920	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 43 5c 33 30 35 5c 33	\3002..\301\302\303\304DDC\305\3
2940	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 30 37 22 20 5b 69 6e	06\307....\302F\302EDE0\207".[in
2960	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 75 6e 64 2d 73 79 6d	line--just-use.let.not-found-sym
2980	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 66 6f 75 6e 64 22 20	bol.make-symbol."ht--not-found".
29a0	6e 6f 74 20 65 71 20 68 74 2d 67 65 74 5d 20 31 31 20 28 23 24 20 2e 20 31 30 34 35 36 29 5d 29	not.eq.ht-get].11.(#$...10456)])
29c0	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 68 74 2d 63 6f	.(defalias.'ht-contains-p.'ht-co
29e0	6e 74 61 69 6e 73 5c 3f 29 0a 23 40 35 39 20 52 65 74 75 72 6e 20 74 68 65 20 61 63 74 75 61 6c	ntains\?).#@59.Return.the.actual
2a00	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 2e 0a 0a 28 66	.number.of.entries.in.TABLE...(f
2a20	6e 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 69 7a 65 20 23 5b 32	n.TABLE)..(defalias.'ht-size.#[2
2a40	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 63 6f 75 6e	57."\300.!\207".[hash-table-coun
2a60	74 5d 20 33 20 28 23 24 20 2e 20 31 30 37 33 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22	t].3.(#$...10735)]).(byte-code."
2a80	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 33 30	\300\301\302\303#\300\301\304\30
2aa0	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 73 69 7a	5#\300\207".[function-put.ht-siz
2ac0	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 6c 69 6e 65	e.compiler-macro.ht-size--inline
2ae0	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 23 40 32 37 20 0a 0a	r.side-effect-free.t].5).#@27...
2b00	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 64 65 66 61 6c 69	(fn.INLINE--FORM.TABLE)..(defali
2b20	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 5c 33 30 30	as.'ht-size--inliner.#[514."\300
2b40	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 74 2d 75 73	2..\301.D0\207".[inline--just-us
2b60	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 31 31 30 30	e.hash-table-count].4.(#$...1100
2b80	36 29 5d 29 0a 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 63 74	6)]).#@75.Return.true.if.the.act
2ba0	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 20 69	ual.number.of.entries.in.TABLE.i
2bc0	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 20 27	s.zero...(fn.TABLE)..(defalias.'
2be0	68 74 2d 65 6d 70 74 79 5c 3f 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 55 5c 32 30	ht-empty\?.#[257."\300.!\301U\20
2c00	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 20	7".[hash-table-count.0].3.(#$...
2c20	31 31 31 34 36 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	11146)]).(byte-code."\300\301\30
2c40	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 22	2\303#\300\301\304\305#\300\207"
2c60	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 65 6d 70 74 79 5c 3f 20 63 6f 6d 70 69 6c	.[function-put.ht-empty\?.compil
2c80	65 72 2d 6d 61 63 72 6f 20 68 74 2d 65 6d 70 74 79 5c 3f 2d 2d 69 6e 6c 69 6e 65 72 20 73 69 64	er-macro.ht-empty\?--inliner.sid
2ca0	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 66 6e 20 49	e-effect-free.t].5).#@27...(fn.I
2cc0	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 73 20 27 68	NLINE--FORM.TABLE)..(defalias.'h
2ce0	74 2d 65 6d 70 74 79 5c 3f 2d 2d 69 6e 6c 69 6e 65 72 20 23 5b 35 31 34 20 22 5c 33 30 30 32 5c	t-empty\?--inliner.#[514."\3002\
2d00	6e 00 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	n.\301\302.DD0\207".[inline--jus
2d20	74 2d 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 31 31 34	t-use.zerop.ht-size].5.(#$...114
2d40	34 39 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 65 6d 70 74 79 2d 70 20 27 68 74 2d	49)]).(defalias.'ht-empty-p.'ht-
2d60	65 6d 70 74 79 5c 3f 29 0a 23 40 31 37 32 20 52 65 74 75 72 6e 20 61 20 68 61 73 68 20 74 61 62	empty\?).#@172.Return.a.hash.tab
2d80	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 54 41 42	le.containing.all.entries.in.TAB
2da0	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 20 61 20	LE.for.which.FUNCTION.returns.a.
2dc0	74 72 75 74 68 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	truthy.value...FUNCTION.is.calle
2de0	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 56 41	d.with.two.arguments,.KEY.and.VA
2e00	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 66 61	LUE...(fn.FUNCTION.TABLE)..(defa
2e20	6c 69 61 73 20 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	lias.'ht-select.#[514."\300\301\
2e40	33 30 32 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 08 06	302\"\303\304\305\306\307\310...
2e60	07 5c 22 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 03 5c 22 5c 32 31 30 5c 32 31 31 5c 32 30	.\"\311\"\312\313%.\"\210\211\20
2e80	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.
2ea0	68 74 2d 65 61 63 68 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 30	ht-each.make-byte-code.514."\300
2ec0	02 02 5c 22 5c 32 30 35 0e 00 5c 33 30 32 5c 33 30 33 03 03 5c 33 30 31 23 5c 32 31 30 5c 32 30	..\"\205..\302\303..\301#\210\20
2ee0	37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6e 69 6c 20 70 75 74 68 61 73 68 5d 20	7".vconcat.vector.[nil.puthash].
2f00	37 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 20 31 31 20 28 23 24 20 2e	7."\n\n(fn.KEY.VALUE)"].11.(#$..
2f20	20 31 31 36 33 31 29 5d 29 0a 23 40 31 37 31 20 52 65 74 75 72 6e 20 61 20 68 61 73 68 20 74 61	.11631)]).#@171.Return.a.hash.ta
2f40	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 54 41	ble.containing.all.entries.in.TA
2f60	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 20 61	BLE.for.which.FUNCTION.returns.a
2f80	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 6c 65	.falsy.value...FUNCTION.is.calle
2fa0	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 56 41	d.with.two.arguments,.KEY.and.VA
2fc0	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 66 61	LUE...(fn.FUNCTION.TABLE)..(defa
2fe0	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 31 5c	lias.'ht-reject.#[514."\300\301\
3000	33 30 32 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 08 06	302\"\303\304\305\306\307\310...
3020	07 5c 22 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 03 5c 22 5c 32 31 30 5c 32 31 31 5c 32 30	.\"\311\"\312\313%.\"\210\211\20
3040	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.
3060	68 74 2d 65 61 63 68 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 30	ht-each.make-byte-code.514."\300
3080	02 02 5c 22 3f 5c 32 30 35 0f 00 5c 33 30 32 5c 33 30 33 03 03 5c 33 30 31 23 5c 32 31 30 5c 32	..\"?\205..\302\303..\301#\210\2
30a0	30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6e 69 6c 20 70 75 74 68 61 73 68 5d	07".vconcat.vector.[nil.puthash]
30c0	20 37 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c 55 45 29 22 5d 20 31 31 20 28 23 24 20	.7."\n\n(fn.KEY.VALUE)"].11.(#$.
30e0	2e 20 31 32 30 38 30 29 5d 29 0a 23 40 31 34 35 20 44 65 6c 65 74 65 20 65 6e 74 72 69 65 73 20	..12080)]).#@145.Delete.entries.
3100	66 72 6f 6d 20 54 41 42 4c 45 20 66 6f 72 20 77 68 69 63 68 20 46 55 4e 43 54 49 4f 4e 20 72 65	from.TABLE.for.which.FUNCTION.re
3120	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
3140	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
3160	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)
3180	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 72 65 6a 65 63 74 21 20 23 5b 35 31 34 20 22 5c	..(defalias.'ht-reject!.#[514."\
31a0	33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 06 07 5c 22 5c 33 30	300\301\302\303\304\305....\"\30
31c0	36 5c 22 5c 33 30 37 5c 33 31 30 25 02 5c 22 5c 32 31 30 5c 33 31 31 5c 32 30 37 22 20 5b 68 74	6\"\307\310%.\"\210\311\207".[ht
31e0	2d 65 61 63 68 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 30 02 02	-each.make-byte-code.514."\300..
3200	5c 22 5c 32 30 35 0b 00 5c 33 30 32 02 5c 33 30 31 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74	\"\205..\302.\301\"\207".vconcat
3220	20 76 65 63 74 6f 72 20 5b 72 65 6d 68 61 73 68 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59	.vector.[remhash].5."\n\n(fn.KEY
3240	20 56 41 4c 55 45 29 22 20 6e 69 6c 5d 20 31 30 20 28 23 24 20 2e 20 31 32 35 32 39 29 5d 29 0a	.VALUE)".nil].10.(#$...12529)]).
3260	28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 64 65 6c 65 74 65 2d 69 66 20 27 68 74 2d 72 65 6a 65	(defalias.'ht-delete-if.'ht-reje
3280	63 74 21 29 0a 23 40 31 37 33 20 52 65 74 75 72 6e 20 28 6b 65 79 2c 20 76 61 6c 75 65 29 20 66	ct!).#@173.Return.(key,.value).f
32a0	72 6f 6d 20 54 41 42 4c 45 20 66 6f 72 20 77 68 69 63 68 20 46 55 4e 43 54 49 4f 4e 20 72 65 74	rom.TABLE.for.which.FUNCTION.ret
32c0	75 72 6e 73 20 61 20 74 72 75 74 68 79 20 76 61 6c 75 65 2e 0a 52 65 74 75 72 6e 20 6e 69 6c 20	urns.a.truthy.value..Return.nil.
32e0	6f 74 68 65 72 77 69 73 65 2e 0a 0a 46 55 4e 43 54 49 4f 4e 20 69 73 20 63 61 6c 6c 65 64 20 77	otherwise...FUNCTION.is.called.w
3300	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 45	ith.two.arguments,.KEY.and.VALUE
3320	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 61	...(fn.FUNCTION.TABLE)..(defalia
3340	73 20 27 68 74 2d 66 69 6e 64 20 23 5b 35 31 34 20 22 5c 33 30 30 32 15 00 5c 33 30 31 5c 33 30	s.'ht-find.#[514."\3002..\301\30
3360	32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 07 21 5c 33 30 37 5c 22 5c 33 31 30 5c 33	2\303\304\305\306..!\307\"\310\3
3380	31 31 25 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	11%.\"0\207".[break.ht-each.make
33a0	2d 62 79 74 65 2d 63 6f 64 65 20 35 31 34 20 22 5c 33 30 30 02 02 5c 22 5c 32 30 35 0d 00 5c 33	-byte-code.514."\300..\"\205..\3
33c0	30 31 5c 33 30 32 03 03 44 5c 22 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20	01\302..D\"\207".vconcat.vector.
33e0	5b 74 68 72 6f 77 20 62 72 65 61 6b 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 56 41 4c	[throw.break].6."\n\n(fn.KEY.VAL
3400	55 45 29 22 5d 20 39 20 28 23 24 20 2e 20 31 32 39 33 39 29 5d 29 0a 23 40 31 32 30 20 52 65 74	UE)"].9.(#$...12939)]).#@120.Ret
3420	75 72 6e 20 74 20 69 66 20 54 41 42 4c 45 31 20 61 6e 64 20 54 41 42 4c 45 32 20 68 61 76 65 20	urn.t.if.TABLE1.and.TABLE2.have.
3440	74 68 65 20 73 61 6d 65 20 6b 65 79 73 20 61 6e 64 20 76 61 6c 75 65 73 2e 0a 44 6f 65 73 20 6e	the.same.keys.and.values..Does.n
3460	6f 74 20 63 6f 6d 70 61 72 65 20 65 71 75 61 6c 69 74 79 20 70 72 65 64 69 63 61 74 65 73 2e 0a	ot.compare.equality.predicates..
3480	0a 28 66 6e 20 54 41 42 4c 45 31 20 54 41 42 4c 45 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	.(fn.TABLE1.TABLE2)..(defalias.'
34a0	68 74 2d 65 71 75 61 6c 5c 3f 20 23 5b 35 31 34 20 22 5c 33 30 30 02 21 5c 33 30 30 02 21 5c 33	ht-equal\?.#[514."\300.!\300.!\3
34c0	30 31 5c 33 30 32 21 02 47 02 47 5c 32 33 32 5c 32 30 35 57 00 5c 33 30 33 03 5c 33 30 34 5c 33	01\302!.G.G\232\205W.\303.\304\3
34e0	30 35 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 4e 00 04 5c 32 31 31 41 5c 32 36 32 06 5c 32 34 32	05\211\211.\203N..\211A\262.\242
3500	5c 32 36 32 03 02 5c 32 36 32 02 03 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 4e 00 5c 33 30 36 02	\262..\262..\211\262.\203N.\306.
3520	06 5c 66 5c 33 30 35 23 5c 33 30 36 03 06 5c 66 06 5c 6e 23 5c 32 33 32 5c 32 31 31 5c 32 36 32	.\f\305#\306..\f.\n#\232\211\262
3540	07 5c 32 30 33 4e 00 02 5c 32 36 32 02 03 5c 32 36 32 01 03 54 5c 32 36 32 04 5c 32 30 32 17 00	.\203N..\262..\262..T\262.\202..
3560	5c 32 36 36 05 5c 32 31 31 5c 32 36 32 01 5c 32 30 35 57 00 5c 33 30 33 5c 32 30 37 22 20 5b 68	\266.\211\262.\205W.\303\207".[h
3580	74 2d 6b 65 79 73 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 68 74 2d 73 65 6e 74 69 6e 65 6c 22	t-keys.make-symbol."ht-sentinel"
35a0	20 74 20 30 20 6e 69 6c 20 67 65 74 68 61 73 68 5d 20 31 36 20 28 23 24 20 2e 20 31 33 33 34 31	.t.0.nil.gethash].16.(#$...13341
35c0	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 33	)]).(byte-code."\300\301\302\303
35e0	23 5c 33 30 34 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	#\304\305\301\"\210\306\307!\207
3600	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 68 74 2d 65 71 75 61 6c 5c 3f 20 73 69 64 65 2d	".[function-put.ht-equal\?.side-
3620	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 71 75 61 6c 2d	effect-free.t.defalias.ht-equal-
3640	70 20 70 72 6f 76 69 64 65 20 68 74 5d 20 34 29 0a	p.provide.ht].4).