blob: 40011165cfa290a60dca7496dba727d98c00661a (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 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 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	ptimizations...;;;.This.file.use
0060	73 20 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	s.dynamic.docstrings,.first.adde
0080	64 20 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	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 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	.does.not.contain.utf-8.non-ASCI
00c0	49 20 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	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 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	loaded.in.Emacs.versions.earlier
0100	20 74 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	.than.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 3b 3b 0a 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 3b 3b 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 64	;;;;;;;;;;;;;;;;;;...(require.'d
01a0	61 73 68 29 0a 23 40 31 32 37 20 43 72 65 61 74 65 20 61 20 68 61 73 68 20 74 61 62 6c 65 20 77	ash).#@127.Create.a.hash.table.w
01c0	69 74 68 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 73 20 67 69 76 65 6e 2e 0a 4b	ith.the.key-value.pairs.given..K
01e0	65 79 73 20 61 72 65 20 63 6f 6d 70 61 72 65 64 20 77 69 74 68 20 60 65 71 75 61 6c 27 2e 0a 0a	eys.are.compared.with.`equal'...
0200	28 66 6e 20 28 4b 45 59 2d 31 20 56 41 4c 55 45 2d 31 29 20 28 4b 45 59 2d 32 20 56 41 4c 55 45	(fn.(KEY-1.VALUE-1).(KEY-2.VALUE
0220	2d 32 29 20 2e 2e 2e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 20 27 28 6d 61 63 72 6f 20	-2)....)..(defalias.'ht.'(macro.
0240	2e 20 23 5b 28 26 72 65 73 74 20 70 61 69 72 73 29 20 22 5c 33 30 33 5c 33 30 34 21 18 5c 33 30	..#[(&rest.pairs)."\303\304!.\30
0260	35 5c 33 30 36 09 5c 22 1a 5c 33 30 37 08 5c 33 31 30 42 43 5c 33 31 31 5c 6e 08 43 5c 22 2a 42	5\306.\".\307.\310BC\311\n.C\"*B
0280	42 5c 32 30 37 22 20 5b 74 61 62 6c 65 2d 73 79 6d 62 6f 6c 20 70 61 69 72 73 20 61 73 73 69 67	B\207".[table-symbol.pairs.assig
02a0	6e 6d 65 6e 74 73 20 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	nments.make-symbol."ht-temp".map
02c0	63 61 72 20 23 5b 28 70 61 69 72 29 20 22 5c 33 30 32 08 09 42 42 5c 32 30 37 22 20 5b 74 61 62	car.#[(pair)."\302..BB\207".[tab
02e0	6c 65 2d 73 79 6d 62 6f 6c 20 70 61 69 72 20 68 74 2d 73 65 74 21 5d 20 33 5d 20 6c 65 74 20 28	le-symbol.pair.ht-set!].3].let.(
0300	28 68 74 2d 63 72 65 61 74 65 29 29 20 61 70 70 65 6e 64 5d 20 35 20 28 23 24 20 2e 20 34 32 37	(ht-create)).append].5.(#$...427
0320	29 5d 29 29 0a 23 40 33 36 20 41 73 73 6f 63 69 61 74 65 20 4b 45 59 20 69 6e 20 54 41 42 4c 45	)])).#@36.Associate.KEY.in.TABLE
0340	20 77 69 74 68 20 56 41 4c 55 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 65 74 21	.with.VALUE...(defalias.'ht-set!
0360	20 23 5b 28 74 61 62 6c 65 20 6b 65 79 20 76 61 6c 75 65 29 20 22 5c 33 30 33 08 09 5c 6e 23 5c	.#[(table.key.value)."\303..\n#\
0380	32 31 30 5c 33 30 34 5c 32 30 37 22 20 5b 6b 65 79 20 76 61 6c 75 65 20 74 61 62 6c 65 20 70 75	210\304\207".[key.value.table.pu
03a0	74 68 61 73 68 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 38 31 30 29 5d 29 0a 28 62 79 74 65 2d	thash.nil].4.(#$...810)]).(byte-
03c0	63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c	code."\300\301\302\303#\210\304\
03e0	33 30 35 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 68 74 2d 73 65 74 21 20 62 79 74 65	305\301\"\207".[put.ht-set!.byte
0400	2d 6f 70 74 69 6d 69 7a 65 72 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65	-optimizer.byte-compile-inline-e
0420	78 70 61 6e 64 20 64 65 66 61 6c 69 61 73 20 68 74 2d 73 65 74 5d 20 34 29 0a 23 40 32 30 34 20	xpand.defalias.ht-set].4).#@204.
0440	43 72 65 61 74 65 20 61 6e 20 65 6d 70 74 79 20 68 61 73 68 20 74 61 62 6c 65 2e 0a 0a 54 45 53	Create.an.empty.hash.table...TES
0460	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 20 74 6f	T.indicates.the.function.used.to
0480	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 75 6c 74	.compare.the.hash.keys...Default
04a0	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 20 60 65	.is.`equal'...It.can.be.`eq',.`e
04c0	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 65 64 20	ql',.`equal'.or.a.user-supplied.
04e0	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 2d 74 61	test.created.via.`define-hash-ta
0500	62 6c 65 2d 74 65 73 74 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 72 65 61 74 65	ble-test'...(defalias.'ht-create
0520	20 23 5b 28 26 6f 70 74 69 6f 6e 61 6c 20 74 65 73 74 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 32	.#[(&optional.test)."\301\302.\2
0540	30 36 07 00 5c 33 30 33 5c 22 5c 32 30 37 22 20 5b 74 65 73 74 20 6d 61 6b 65 2d 68 61 73 68 2d	06..\303\"\207".[test.make-hash-
0560	74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c 5d 20 33 20 28 23 24 20 2e 20 31 30 38 38 29	table.:test.equal].3.(#$...1088)
0580	5d 29 0a 28 70 75 74 20 27 68 74 2d 63 72 65 61 74 65 20 27 62 79 74 65 2d 6f 70 74 69 6d 69 7a	]).(put.'ht-create.'byte-optimiz
05a0	65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29 0a	er.'byte-compile-inline-expand).
05c0	23 40 32 33 36 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	#@236.Create.a.hash.table.with.i
05e0	6e 69 74 69 61 6c 20 76 61 6c 75 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 41 4c 49 53 54	nitial.values.according.to.ALIST
0600	2e 0a 0a 54 45 53 54 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 75	...TEST.indicates.the.function.u
0620	73 65 64 20 74 6f 20 63 6f 6d 70 61 72 65 20 74 68 65 20 68 61 73 68 0a 6b 65 79 73 2e 20 20 44	sed.to.compare.the.hash.keys...D
0640	65 66 61 75 6c 74 20 69 73 20 60 65 71 75 61 6c 27 2e 20 20 49 74 20 63 61 6e 20 62 65 20 60 65	efault.is.`equal'...It.can.be.`e
0660	71 27 2c 20 60 65 71 6c 27 2c 20 60 65 71 75 61 6c 27 20 6f 72 20 61 0a 75 73 65 72 2d 73 75 70	q',.`eql',.`equal'.or.a.user-sup
0680	70 6c 69 65 64 20 74 65 73 74 20 63 72 65 61 74 65 64 20 76 69 61 20 60 64 65 66 69 6e 65 2d 68	plied.test.created.via.`define-h
06a0	61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 3c	ash-table-test'...(defalias.'ht<
06c0	2d 61 6c 69 73 74 20 23 5b 28 61 6c 69 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 74 65 73 74 29 20	-alist.#[(alist.&optional.test).
06e0	22 08 18 5c 33 30 36 5c 33 30 37 08 5c 32 30 36 09 00 5c 33 31 30 5c 22 29 19 5c 33 31 31 5c 6e	"..\306\307.\206..\310\").\311\n
0700	21 5c 33 31 32 1b 5c 32 31 31 1c 5c 32 30 33 39 00 5c 66 40 5c 32 31 31 13 40 0b 41 1d 1e 5c 66	!\312.\211.\2039.\f@\211.@.A..\f
0720	09 0e 5c 66 0d 1d 1e 5c 66 1e 0d 5c 33 31 33 0e 5c 66 0d 0e 0d 23 5c 32 31 30 2d 5c 66 41 5c 32	..\f...\f..\313.\f...#\210-\fA\2
0740	31 31 14 5c 32 30 34 16 00 5c 33 31 32 13 09 2b 5c 32 30 37 22 20 5b 74 65 73 74 20 68 20 61 6c	11.\204..\312..+\207".[test.h.al
0760	69 73 74 20 70 61 69 72 20 2d 2d 64 6f 6c 69 73 74 2d 74 61 69 6c 2d 2d 20 76 61 6c 75 65 20 6d	ist.pair.--dolist-tail--.value.m
0780	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 76 65 72	ake-hash-table.:test.equal.rever
07a0	73 65 20 6e 69 6c 20 70 75 74 68 61 73 68 20 6b 65 79 20 74 61 62 6c 65 5d 20 35 20 28 23 24 20	se.nil.puthash.key.table].5.(#$.
07c0	2e 20 31 34 37 38 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 66 72 6f 6d 2d 61 6c 69	..1478)]).(defalias.'ht-from-ali
07e0	73 74 20 27 68 74 3c 2d 61 6c 69 73 74 29 0a 23 40 32 33 36 20 43 72 65 61 74 65 20 61 20 68 61	st.'ht<-alist).#@236.Create.a.ha
0800	73 68 20 74 61 62 6c 65 20 77 69 74 68 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 73 20 61 63 63	sh.table.with.initial.values.acc
0820	6f 72 64 69 6e 67 20 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	ording.to.PLIST...TEST.indicates
0840	20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 61 72 65 20 74 68	.the.function.used.to.compare.th
0860	65 20 68 61 73 68 0a 6b 65 79 73 2e 20 20 44 65 66 61 75 6c 74 20 69 73 20 60 65 71 75 61 6c 27	e.hash.keys...Default.is.`equal'
0880	2e 20 20 49 74 20 63 61 6e 20 62 65 20 60 65 71 27 2c 20 60 65 71 6c 27 2c 20 60 65 71 75 61 6c	...It.can.be.`eq',.`eql',.`equal
08a0	27 20 6f 72 20 61 0a 75 73 65 72 2d 73 75 70 70 6c 69 65 64 20 74 65 73 74 20 63 72 65 61 74 65	'.or.a.user-supplied.test.create
08c0	64 20 76 69 61 20 60 64 65 66 69 6e 65 2d 68 61 73 68 2d 74 61 62 6c 65 2d 74 65 73 74 27 2e 1f	d.via.`define-hash-table-test'..
08e0	0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 3c 2d 70 6c 69 73 74 20 23 5b 28 70 6c 69 73 74 20 26	.(defalias.'ht<-plist.#[(plist.&
0900	6f 70 74 69 6f 6e 61 6c 20 74 65 73 74 29 20 22 08 18 5c 33 30 36 5c 33 30 37 08 5c 32 30 36 09	optional.test)."..\306\307.\206.
0920	00 5c 33 31 30 5c 22 29 19 5c 33 31 31 5c 33 31 32 5c 6e 5c 22 5c 32 33 37 5c 33 31 33 1b 5c 32	.\310\").\311\312\n\"\237\313.\2
0940	31 31 1c 5c 32 30 33 3c 00 5c 66 40 5c 32 31 31 13 40 0b 41 40 1d 1e 0d 09 0e 0d 0d 1d 1e 0d 1e	11.\203<.\f@\211.@.A@...........
0960	0e 5c 33 31 34 0e 0d 0d 0e 0e 23 5c 32 31 30 2d 5c 66 41 5c 32 31 31 14 5c 32 30 34 18 00 5c 33	.\314.....#\210-\fA\211.\204..\3
0980	31 33 13 09 2b 5c 32 30 37 22 20 5b 74 65 73 74 20 68 20 70 6c 69 73 74 20 70 61 69 72 20 2d 2d	13..+\207".[test.h.plist.pair.--
09a0	64 6f 6c 69 73 74 2d 74 61 69 6c 2d 2d 20 76 61 6c 75 65 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61	dolist-tail--.value.make-hash-ta
09c0	62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c 20 2d 70 61 72 74 69 74 69 6f 6e 20 32 20 6e 69 6c	ble.:test.equal.-partition.2.nil
09e0	20 70 75 74 68 61 73 68 20 6b 65 79 20 74 61 62 6c 65 5d 20 35 20 28 23 24 20 2e 20 32 30 33 37	.puthash.key.table].5.(#$...2037
0a00	29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 66 72 6f 6d 2d 70 6c 69 73 74 20 27 68 74	)]).(defalias.'ht-from-plist.'ht
0a20	3c 2d 70 6c 69 73 74 29 0a 23 40 31 31 35 20 4c 6f 6f 6b 20 75 70 20 4b 45 59 20 69 6e 20 54 41	<-plist).#@115.Look.up.KEY.in.TA
0a40	42 4c 45 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 6d 61 74 63 68 69 6e 67 20 76 61 6c	BLE,.and.return.the.matching.val
0a60	75 65 2e 0a 49 66 20 4b 45 59 20 69 73 6e 27 74 20 70 72 65 73 65 6e 74 2c 20 72 65 74 75 72 6e	ue..If.KEY.isn't.present,.return
0a80	20 44 45 46 41 55 4c 54 20 28 6e 69 6c 20 69 66 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 29 2e	.DEFAULT.(nil.if.not.specified).
0aa0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 67 65 74 20 23 5b 28 74 61 62 6c 65 20 6b 65 79	..(defalias.'ht-get.#[(table.key
0ac0	20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 66 61 75 6c 74 29 20 22 5c 33 30 33 08 09 5c 6e 23 5c 32	.&optional.default)."\303..\n#\2
0ae0	30 37 22 20 5b 6b 65 79 20 74 61 62 6c 65 20 64 65 66 61 75 6c 74 20 67 65 74 68 61 73 68 5d 20	07".[key.table.default.gethash].
0b00	34 20 28 23 24 20 2e 20 32 36 30 37 29 5d 29 0a 28 70 75 74 20 27 68 74 2d 67 65 74 20 27 62 79	4.(#$...2607)]).(put.'ht-get.'by
0b20	74 65 2d 6f 70 74 69 6d 69 7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e	te-optimizer.'byte-compile-inlin
0b40	65 2d 65 78 70 61 6e 64 29 0a 23 40 31 37 30 20 4c 6f 6f 6b 20 75 70 20 4b 45 59 53 20 69 6e 20	e-expand).#@170.Look.up.KEYS.in.
0b60	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
0b80	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
0ba0	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
0bc0	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
0be0	63 68 20 6d 61 79 20 72 65 74 75 72 6e 20 61 6e 79 20 76 61 6c 75 65 2e 1f 0a 28 64 65 66 61 6c	ch.may.return.any.value...(defal
0c00	69 61 73 20 27 68 74 2d 67 65 74 2a 20 23 5b 28 74 61 62 6c 65 20 26 72 65 73 74 20 6b 65 79 73	ias.'ht-get*.#[(table.&rest.keys
0c20	29 20 22 08 41 5c 32 30 33 18 00 5c 33 30 34 5c 33 30 35 09 08 40 5c 33 30 36 1a 1b 19 5c 33 30	).".A\203..\304\305..@\306...\30
0c40	37 0b 09 5c 6e 23 2b 08 41 23 5c 32 30 37 09 08 40 5c 33 30 36 1a 1b 19 5c 33 30 37 0b 09 5c 6e	7..\n#+.A#\207..@\306...\307..\n
0c60	23 2b 5c 32 30 37 22 20 5b 6b 65 79 73 20 74 61 62 6c 65 20 64 65 66 61 75 6c 74 20 6b 65 79 20	#+\207".[keys.table.default.key.
0c80	61 70 70 6c 79 20 68 74 2d 67 65 74 2a 20 6e 69 6c 20 67 65 74 68 61 73 68 5d 20 36 20 28 23 24	apply.ht-get*.nil.gethash].6.(#$
0ca0	20 2e 20 32 38 39 36 29 5d 29 0a 23 40 36 33 20 55 70 64 61 74 65 20 54 41 42 4c 45 20 61 63 63	...2896)]).#@63.Update.TABLE.acc
0cc0	6f 72 64 69 6e 67 20 74 6f 20 65 76 65 72 79 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 69	ording.to.every.key-value.pair.i
0ce0	6e 20 46 52 4f 4d 2d 54 41 42 4c 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 75 70 64	n.FROM-TABLE...(defalias.'ht-upd
0d00	61 74 65 21 20 23 5b 28 74 61 62 6c 65 20 66 72 6f 6d 2d 74 61 62 6c 65 29 20 22 5c 33 30 31 5c	ate!.#[(table.from-table)."\301\
0d20	33 30 32 08 5c 22 5c 32 31 30 5c 33 30 33 5c 32 30 37 22 20 5b 66 72 6f 6d 2d 74 61 62 6c 65 20	302.\"\210\303\207".[from-table.
0d40	6d 61 70 68 61 73 68 20 23 5b 28 6b 65 79 20 76 61 6c 75 65 29 20 22 5c 33 30 33 08 09 5c 6e 23	maphash.#[(key.value)."\303..\n#
0d60	5c 32 30 37 22 20 5b 6b 65 79 20 76 61 6c 75 65 20 74 61 62 6c 65 20 70 75 74 68 61 73 68 5d 20	\207".[key.value.table.puthash].
0d80	34 5d 20 6e 69 6c 5d 20 33 20 28 23 24 20 2e 20 33 32 34 38 29 5d 29 0a 28 64 65 66 61 6c 69 61	4].nil].3.(#$...3248)]).(defalia
0da0	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 23 40 31 35 31 20	s.'ht-update.'ht-update!).#@151.
0dc0	43 72 65 74 65 20 61 20 6e 65 77 20 74 61 62 6c 65 73 20 74 68 61 74 20 69 6e 63 6c 75 64 65 73	Crete.a.new.tables.that.includes
0de0	20 61 6c 6c 20 74 68 65 20 6b 65 79 2d 76 61 6c 75 65 20 70 61 69 72 73 20 66 72 6f 6d 20 54 41	.all.the.key-value.pairs.from.TA
0e00	42 4c 45 53 2e 0a 49 66 20 6d 75 6c 74 69 70 6c 65 20 68 61 76 65 20 74 61 62 6c 65 73 20 68 61	BLES..If.multiple.have.tables.ha
0e20	76 65 20 74 68 65 20 73 61 6d 65 20 6b 65 79 2c 20 74 68 65 20 76 61 6c 75 65 20 69 6e 20 74 68	ve.the.same.key,.the.value.in.th
0e40	65 20 6c 61 73 74 0a 74 61 62 6c 65 20 69 73 20 75 73 65 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73	e.last.table.is.used...(defalias
0e60	20 27 68 74 2d 6d 65 72 67 65 20 23 5b 28 26 72 65 73 74 20 74 61 62 6c 65 73 29 20 22 5c 33 30	.'ht-merge.#[(&rest.tables)."\30
0e80	33 18 5c 33 30 34 5c 33 30 35 08 5c 32 30 36 09 00 5c 33 30 36 5c 22 29 19 5c 33 30 37 5c 33 31	3.\304\305.\206..\306\").\307\31
0ea0	30 5c 6e 5c 22 5c 32 31 30 09 29 5c 32 30 37 22 20 5b 74 65 73 74 20 6d 65 72 67 65 64 20 74 61	0\n\"\210.)\207".[test.merged.ta
0ec0	62 6c 65 73 20 6e 69 6c 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65	bles.nil.make-hash-table.:test.e
0ee0	71 75 61 6c 20 6d 61 70 63 20 23 5b 28 74 61 62 6c 65 29 20 22 5c 33 30 32 08 09 5c 22 5c 32 30	qual.mapc.#[(table)."\302..\"\20
0f00	37 22 20 5b 6d 65 72 67 65 64 20 74 61 62 6c 65 20 68 74 2d 75 70 64 61 74 65 21 5d 20 33 5d 5d	7".[merged.table.ht-update!].3]]
0f20	20 33 20 28 23 24 20 2e 20 33 35 32 30 29 5d 29 0a 23 40 32 34 20 52 65 6d 6f 76 65 20 4b 45 59	.3.(#$...3520)]).#@24.Remove.KEY
0f40	20 66 72 6f 6d 20 54 41 42 4c 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 72 65 6d 6f	.from.TABLE...(defalias.'ht-remo
0f60	76 65 21 20 23 5b 28 74 61 62 6c 65 20 6b 65 79 29 20 22 5c 33 30 32 08 09 5c 22 5c 32 30 37 22	ve!.#[(table.key)."\302..\"\207"
0f80	20 5b 6b 65 79 20 74 61 62 6c 65 20 72 65 6d 68 61 73 68 5d 20 33 20 28 23 24 20 2e 20 33 38 39	.[key.table.remhash].3.(#$...389
0fa0	34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	4)]).(byte-code."\300\301\302\30
0fc0	33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 68	3#\210\304\305\301\"\207".[put.h
0fe0	74 2d 72 65 6d 6f 76 65 21 20 62 79 74 65 2d 6f 70 74 69 6d 69 7a 65 72 20 62 79 74 65 2d 63 6f	t-remove!.byte-optimizer.byte-co
1000	6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 20 64 65 66 61 6c 69 61 73 20 68 74 2d	mpile-inline-expand.defalias.ht-
1020	72 65 6d 6f 76 65 5d 20 34 29 0a 23 40 32 39 20 52 65 6d 6f 76 65 20 61 6c 6c 20 6b 65 79 73 20	remove].4).#@29.Remove.all.keys.
1040	66 72 6f 6d 20 54 41 42 4c 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 63 6c 65 61 72	from.TABLE...(defalias.'ht-clear
1060	21 20 23 5b 28 74 61 62 6c 65 29 20 22 5c 33 30 31 08 21 5c 32 31 30 5c 33 30 32 5c 32 30 37 22	!.#[(table)."\301.!\210\302\207"
1080	20 5b 74 61 62 6c 65 20 63 6c 72 68 61 73 68 20 6e 69 6c 5d 20 32 20 28 23 24 20 2e 20 34 31 34	.[table.clrhash.nil].2.(#$...414
10a0	34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	4)]).(byte-code."\300\301\302\30
10c0	33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 70 75 74 20 68	3#\210\304\305\301\"\207".[put.h
10e0	74 2d 63 6c 65 61 72 21 20 62 79 74 65 2d 6f 70 74 69 6d 69 7a 65 72 20 62 79 74 65 2d 63 6f 6d	t-clear!.byte-optimizer.byte-com
1100	70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 20 64 65 66 61 6c 69 61 73 20 68 74 2d 63	pile-inline-expand.defalias.ht-c
1120	6c 65 61 72 5d 20 34 29 0a 23 40 31 33 35 20 41 70 70 6c 79 20 46 55 4e 43 54 49 4f 4e 20 74 6f	lear].4).#@135.Apply.FUNCTION.to
1140	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 4c 45 2c 20 61	.each.key-value.pair.of.TABLE,.a
1160	6e 64 20 6d 61 6b 65 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 73 2e 0a 46	nd.make.a.list.of.the.results..F
1180	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
11a0	65 6e 74 73 2c 20 4b 45 59 20 61 6e 64 20 56 41 4c 55 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	ents,.KEY.and.VALUE...(defalias.
11c0	27 68 74 2d 6d 61 70 20 23 5b 23 27 74 61 62 6c 65 20 22 5c 33 30 32 18 5c 33 30 33 5c 33 30 34	'ht-map.#[#'table."\302.\303\304
11e0	09 5c 22 5c 32 31 30 08 29 5c 32 30 37 22 20 5b 72 65 73 75 6c 74 73 20 74 61 62 6c 65 20 6e 69	.\"\210.)\207".[results.table.ni
1200	6c 20 6d 61 70 68 61 73 68 20 23 5b 28 6b 65 79 20 76 61 6c 75 65 29 20 22 08 09 5c 6e 5c 22 0b	l.maphash.#[(key.value)."..\n\".
1220	42 5c 32 31 31 13 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 20 6b 65 79 20 76 61 6c 75 65 20	B\211.\207".[function.key.value.
1240	72 65 73 75 6c 74 73 5d 20 33 5d 5d 20 33 20 28 23 24 20 2e 20 34 33 39 39 29 5d 29 0a 23 40 31	results].3]].3.(#$...4399)]).#@1
1260	32 31 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	21.Anaphoric.version.of.`ht-map'
1280	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 20 54 41	..For.every.key-value.pair.in.TA
12a0	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 61 72 69	BLE,.evaluate.FORM.with.the.vari
12c0	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 1f 0a 28 64 65 66	ables.KEY.and.VALUE.bound...(def
12e0	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 28 66 6f 72 6d	alias.'ht-amap.'(macro...#[(form
1300	20 74 61 62 6c 65 29 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 08 45 09 45 5c 32 30 37 22 20 5b	.table)."\302\303\304.E.E\207".[
1320	66 6f 72 6d 20 74 61 62 6c 65 20 68 74 2d 6d 61 70 20 6c 61 6d 62 64 61 20 28 6b 65 79 20 76 61	form.table.ht-map.lambda.(key.va
1340	6c 75 65 29 5d 20 34 20 28 23 24 20 2e 20 34 37 30 37 29 5d 29 29 0a 23 40 34 31 20 52 65 74 75	lue)].4.(#$...4707)])).#@41.Retu
1360	72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 6b 65 79 73 20 69 6e 20 54 41 42	rn.a.list.of.all.the.keys.in.TAB
1380	4c 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 6b 65 79 73 20 23 5b 28 74 61 62 6c 65	LE...(defalias.'ht-keys.#[(table
13a0	29 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c 32 30 37 22 20 5b 74 61 62 6c 65 20 68 74 2d 6d 61	)."\301\302.\"\207".[table.ht-ma
13c0	70 20 23 5b 28 6b 65 79 20 76 61 6c 75 65 29 20 22 08 5c 32 30 37 22 20 5b 6b 65 79 5d 20 31 5d	p.#[(key.value).".\207".[key].1]
13e0	5d 20 33 20 28 23 24 20 2e 20 34 39 35 36 29 5d 29 0a 23 40 34 33 20 52 65 74 75 72 6e 20 61 20	].3.(#$...4956)]).#@43.Return.a.
1400	6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 76 61 6c 75 65 73 20 69 6e 20 54 41 42 4c 45 2e	list.of.all.the.values.in.TABLE.
1420	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 76 61 6c 75 65 73 20 23 5b 28 74 61 62 6c 65 29	..(defalias.'ht-values.#[(table)
1440	20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c 32 30 37 22 20 5b 74 61 62 6c 65 20 68 74 2d 6d 61 70	."\301\302.\"\207".[table.ht-map
1460	20 23 5b 28 6b 65 79 20 76 61 6c 75 65 29 20 22 08 5c 32 30 37 22 20 5b 76 61 6c 75 65 5d 20 31	.#[(key.value).".\207".[value].1
1480	5d 5d 20 33 20 28 23 24 20 2e 20 35 31 31 31 29 5d 29 0a 23 40 36 31 20 52 65 74 75 72 6e 20 61	]].3.(#$...5111)]).#@61.Return.a
14a0	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 79	.list.of.two-element.lists.'(key
14c0	20 76 61 6c 75 65 29 20 66 72 6f 6d 20 54 41 42 4c 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	.value).from.TABLE...(defalias.'
14e0	68 74 2d 69 74 65 6d 73 20 23 5b 28 74 61 62 6c 65 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c	ht-items.#[(table)."\301\302.\"\
1500	32 30 37 22 20 5b 74 61 62 6c 65 20 68 74 2d 6d 61 70 20 23 5b 28 6b 65 79 20 76 61 6c 75 65 29	207".[table.ht-map.#[(key.value)
1520	20 22 08 09 44 5c 32 30 37 22 20 5b 6b 65 79 20 76 61 6c 75 65 5d 20 32 5d 5d 20 33 20 28 23 24	."..D\207".[key.value].2]].3.(#$
1540	20 2e 20 35 32 37 32 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 65 61 63 68 20 27 6d	...5272)]).(defalias.'ht-each.'m
1560	61 70 68 61 73 68 20 22 41 70 70 6c 79 20 46 55 4e 43 54 49 4f 4e 20 74 6f 20 65 61 63 68 20 6b	aphash."Apply.FUNCTION.to.each.k
1580	65 79 2d 76 61 6c 75 65 20 70 61 69 72 20 6f 66 20 54 41 42 4c 45 2e 5c 6e 52 65 74 75 72 6e 73	ey-value.pair.of.TABLE.\nReturns
15a0	20 6e 69 6c 2c 20 75 73 65 64 20 66 6f 72 20 73 69 64 65 2d 65 66 66 65 63 74 73 20 6f 6e 6c 79	.nil,.used.for.side-effects.only
15c0	2e 22 29 0a 23 40 31 32 32 20 41 6e 61 70 68 6f 72 69 63 20 76 65 72 73 69 6f 6e 20 6f 66 20 60	.").#@122.Anaphoric.version.of.`
15e0	68 74 2d 65 61 63 68 27 2e 0a 46 6f 72 20 65 76 65 72 79 20 6b 65 79 2d 76 61 6c 75 65 20 70 61	ht-each'..For.every.key-value.pa
1600	69 72 20 69 6e 20 54 41 42 4c 45 2c 20 65 76 61 6c 75 61 74 65 20 46 4f 52 4d 20 77 69 74 68 20	ir.in.TABLE,.evaluate.FORM.with.
1620	74 68 65 0a 76 61 72 69 61 62 6c 65 73 20 6b 65 79 20 61 6e 64 20 76 61 6c 75 65 20 62 6f 75 6e	the.variables.key.and.value.boun
1640	64 2e 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	d...(defalias.'ht-aeach.'(macro.
1660	2e 20 23 5b 28 66 6f 72 6d 20 74 61 62 6c 65 29 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 08 45	..#[(form.table)."\302\303\304.E
1680	09 45 5c 32 30 37 22 20 5b 66 6f 72 6d 20 74 61 62 6c 65 20 68 74 2d 65 61 63 68 20 6c 61 6d 62	.E\207".[form.table.ht-each.lamb
16a0	64 61 20 28 6b 65 79 20 76 61 6c 75 65 29 5d 20 34 20 28 23 24 20 2e 20 35 35 37 38 29 5d 29 29	da.(key.value)].4.(#$...5578)]))
16c0	0a 23 40 35 34 20 52 65 74 75 72 6e 20 61 20 63 6f 70 79 20 6f 66 20 54 41 42 4c 45 20 77 69 74	.#@54.Return.a.copy.of.TABLE.wit
16e0	68 20 6f 6e 6c 79 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 4b 45 59 53 2e 1f 0a 28 64 65 66	h.only.the.specified.KEYS...(def
1700	61 6c 69 61 73 20 27 68 74 2d 73 65 6c 65 63 74 2d 6b 65 79 73 20 23 5b 28 74 61 62 6c 65 20 6b	alias.'ht-select-keys.#[(table.k
1720	65 79 73 29 20 22 5c 33 30 35 18 5c 33 30 36 5c 33 30 37 5c 33 31 30 09 21 5c 22 10 5c 6e 5c 33	eys)."\305.\306\307\310.!\".\n\3
1740	30 35 1b 5c 32 31 31 1c 5c 32 30 33 2e 00 5c 66 40 13 5c 33 31 31 0b 09 5c 33 31 32 23 5c 33 31	05.\211.\203..\f@.\311..\312#\31
1760	32 5c 32 33 32 5c 32 30 34 27 00 5c 33 31 33 0b 5c 33 31 31 0b 09 5c 22 08 23 5c 32 31 30 5c 66	2\232\204'.\313.\311..\".#\210\f
1780	41 5c 32 31 31 14 5c 32 30 34 11 00 5c 33 30 35 13 08 2b 5c 32 30 37 22 20 5b 72 65 73 75 6c 74	A\211.\204..\305..+\207".[result
17a0	20 74 61 62 6c 65 20 6b 65 79 73 20 6b 65 79 20 2d 2d 64 6f 6c 69 73 74 2d 74 61 69 6c 2d 2d 20	.table.keys.key.--dolist-tail--.
17c0	6e 69 6c 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 68 61 73 68 2d 74	nil.make-hash-table.:test.hash-t
17e0	61 62 6c 65 2d 74 65 73 74 20 67 65 74 68 61 73 68 20 6b 65 79 2d 6e 6f 74 2d 66 6f 75 6e 64 20	able-test.gethash.key-not-found.
1800	70 75 74 68 61 73 68 5d 20 36 20 28 23 24 20 2e 20 35 38 33 30 29 5d 29 0a 23 40 32 36 37 20 52	puthash].6.(#$...5830)]).#@267.R
1820	65 74 75 72 6e 20 61 20 66 6c 61 74 20 6c 69 73 74 20 27 28 6b 65 79 31 20 76 61 6c 75 65 31 20	eturn.a.flat.list.'(key1.value1.
1840	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
1860	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
1880	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
18a0	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
18c0	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
18e0	61 74 61 20 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 61 0a	ata.'(a.b.c.d)))...(equalp.data.
1900	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 74 20	..........(ht->plist.(ht<-plist.
1920	64 61 74 61 29 29 29 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 3e 70 6c 69 73 74 20 23	data))))..(defalias.'ht->plist.#
1940	5b 28 74 61 62 6c 65 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 08 21 5c 22 5c 32 30 37 22 20	[(table)."\301\302\303.!\"\207".
1960	5b 74 61 62 6c 65 20 61 70 70 6c 79 20 61 70 70 65 6e 64 20 68 74 2d 69 74 65 6d 73 5d 20 34 20	[table.apply.append.ht-items].4.
1980	28 23 24 20 2e 20 36 31 37 35 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 74 6f 2d 70	(#$...6175)]).(defalias.'ht-to-p
19a0	6c 69 73 74 20 27 68 74 2d 3e 70 6c 69 73 74 29 0a 23 40 36 32 20 52 65 74 75 72 6e 20 61 20 73	list.'ht->plist).#@62.Return.a.s
19c0	68 61 6c 6c 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	hallow.copy.of.TABLE.(keys.and.v
19e0	61 6c 75 65 73 20 61 72 65 20 73 68 61 72 65 64 29 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68	alues.are.shared)...(defalias.'h
1a00	74 2d 63 6f 70 79 20 23 5b 28 74 61 62 6c 65 29 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 74	t-copy.#[(table)."\301.!\207".[t
1a20	61 62 6c 65 20 63 6f 70 79 2d 68 61 73 68 2d 74 61 62 6c 65 5d 20 32 20 28 23 24 20 2e 20 36 35	able.copy-hash-table].2.(#$...65
1a40	38 32 29 5d 29 0a 28 70 75 74 20 27 68 74 2d 63 6f 70 79 20 27 62 79 74 65 2d 6f 70 74 69 6d 69	82)]).(put.'ht-copy.'byte-optimi
1a60	7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29	zer.'byte-compile-inline-expand)
1a80	0a 23 40 32 37 36 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	.#@276.Return.a.list.of.two-elem
1aa0	65 6e 74 20 6c 69 73 74 73 20 27 28 6b 65 79 20 2e 20 76 61 6c 75 65 29 20 66 72 6f 6d 20 54 41	ent.lists.'(key...value).from.TA
1ac0	42 4c 45 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 68 61 73 68 20 74 61 62 6c 65 73 20 61 72 65 20	BLE...Note.that.hash.tables.are.
1ae0	75 6e 6f 72 64 65 72 65 64 2c 20 73 6f 20 74 68 69 73 20 63 61 6e 6e 6f 74 20 62 65 20 61 6e 20	unordered,.so.this.cannot.be.an.
1b00	65 78 61 63 74 0a 69 6e 76 65 72 73 65 20 6f 66 20 60 68 74 3c 2d 61 6c 69 73 74 27 2e 20 20 54	exact.inverse.of.`ht<-alist'...T
1b20	68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 73 20 6e 6f 74 20 67 75 61 72 61 6e 74 65 65 64 3a 0a	he.following.is.not.guaranteed:.
1b40	0a 28 6c 65 74 20 28 28 64 61 74 61 20 27 28 28 61 20 2e 20 62 29 20 28 63 20 2e 20 64 29 29 29	.(let.((data.'((a...b).(c...d)))
1b60	29 0a 20 20 28 65 71 75 61 6c 70 20 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 28 68 74 2d 3e	)...(equalp.data...........(ht->
1b80	61 6c 69 73 74 20 28 68 74 3c 2d 61 6c 69 73 74 20 64 61 74 61 29 29 29 29 1f 0a 28 64 65 66 61	alist.(ht<-alist.data))))..(defa
1ba0	6c 69 61 73 20 27 68 74 2d 3e 61 6c 69 73 74 20 23 5b 28 74 61 62 6c 65 29 20 22 5c 33 30 31 5c	lias.'ht->alist.#[(table)."\301\
1bc0	33 30 32 08 5c 22 5c 32 30 37 22 20 5b 74 61 62 6c 65 20 68 74 2d 6d 61 70 20 23 5b 28 6b 65 79	302.\"\207".[table.ht-map.#[(key
1be0	20 76 61 6c 75 65 29 20 22 08 09 42 5c 32 30 37 22 20 5b 6b 65 79 20 76 61 6c 75 65 5d 20 32 5d	.value)."..B\207".[key.value].2]
1c00	5d 20 33 20 28 23 24 20 2e 20 36 37 39 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33	].3.(#$...6791)]).(byte-code."\3
1c20	30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 33 5c 33 30 34 5c 22 5c 32	00\301\302\"\210\300\303\304\"\2
1c40	31 30 5c 33 30 30 5c 33 30 35 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20	10\300\305\304\"\207".[defalias.
1c60	68 74 2d 74 6f 2d 61 6c 69 73 74 20 68 74 2d 3e 61 6c 69 73 74 20 68 74 5c 3f 20 68 61 73 68 2d	ht-to-alist.ht->alist.ht\?.hash-
1c80	74 61 62 6c 65 2d 70 20 68 74 2d 70 5d 20 33 29 0a 23 40 33 34 20 52 65 74 75 72 6e 20 27 74 20	table-p.ht-p].3).#@34.Return.'t.
1ca0	69 66 20 54 41 42 4c 45 20 63 6f 6e 74 61 69 6e 73 20 4b 45 59 2e 1f 0a 28 64 65 66 61 6c 69 61	if.TABLE.contains.KEY...(defalia
1cc0	73 20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 28 74 61 62 6c 65 20 6b 65 79 29 20 22	s.'ht-contains\?.#[(table.key)."
1ce0	08 09 5c 33 30 33 1a 19 18 5c 33 30 34 09 08 5c 6e 23 2b 5c 33 30 33 3d 3f 5c 32 30 37 22 20 5b	..\303...\304..\n#+\303=?\207".[
1d00	74 61 62 6c 65 20 6b 65 79 20 64 65 66 61 75 6c 74 20 68 74 2d 2d 6e 6f 74 2d 66 6f 75 6e 64 20	table.key.default.ht--not-found.
1d20	67 65 74 68 61 73 68 5d 20 34 20 28 23 24 20 2e 20 37 33 31 38 29 5d 29 0a 28 64 65 66 61 6c 69	gethash].4.(#$...7318)]).(defali
1d40	61 73 20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 27 68 74 2d 63 6f 6e 74 61 69 6e 73 5c 3f	as.'ht-contains-p.'ht-contains\?
1d60	29 0a 23 40 34 37 20 52 65 74 75 72 6e 20 74 68 65 20 61 63 74 75 61 6c 20 6e 75 6d 62 65 72 20	).#@47.Return.the.actual.number.
1d80	6f 66 20 65 6e 74 72 69 65 73 20 69 6e 20 54 41 42 4c 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	of.entries.in.TABLE...(defalias.
1da0	27 68 74 2d 73 69 7a 65 20 23 5b 28 74 61 62 6c 65 29 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20	'ht-size.#[(table)."\301.!\207".
1dc0	5b 74 61 62 6c 65 20 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 5d 20 32 20 28 23 24 20 2e	[table.hash-table-count].2.(#$..
1de0	20 37 35 32 37 29 5d 29 0a 28 70 75 74 20 27 68 74 2d 73 69 7a 65 20 27 62 79 74 65 2d 6f 70 74	.7527)]).(put.'ht-size.'byte-opt
1e00	69 6d 69 7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61	imizer.'byte-compile-inline-expa
1e20	6e 64 29 0a 23 40 36 33 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 61 63 74 75	nd).#@63.Return.true.if.the.actu
1e40	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 73	al.number.of.entries.in.TABLE.is
1e60	20 7a 65 72 6f 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 65 6d 70 74 79 5c 3f 20 23 5b	.zero...(defalias.'ht-empty\?.#[
1e80	28 74 61 62 6c 65 29 20 22 08 18 5c 33 30 31 08 21 29 5c 33 30 32 55 5c 32 30 37 22 20 5b 74 61	(table)."..\301.!)\302U\207".[ta
1ea0	62 6c 65 20 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 30 5d 20 32 20 28 23 24 20 2e 20	ble.hash-table-count.0].2.(#$...
1ec0	37 37 32 31 29 5d 29 0a 28 70 75 74 20 27 68 74 2d 65 6d 70 74 79 5c 3f 20 27 62 79 74 65 2d 6f	7721)]).(put.'ht-empty\?.'byte-o
1ee0	70 74 69 6d 69 7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78	ptimizer.'byte-compile-inline-ex
1f00	70 61 6e 64 29 0a 23 40 31 35 31 20 52 65 74 75 72 6e 20 61 20 68 61 73 68 20 74 61 62 6c 65 20	pand).#@151.Return.a.hash.table.
1f20	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 4c 45 20	containing.all.entries.in.TABLE.
1f40	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 74 72 75	for.which.FUNCTION.returns.a.tru
1f60	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 64 20 77	thy.value...FUNCTION.is.called.w
1f80	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
1fa0	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 73 65 6c 65 63 74 20 23 5b 23 27 74 61 62 6c	...(defalias.'ht-select.#[#'tabl
1fc0	65 20 22 5c 33 30 33 18 5c 33 30 34 5c 33 30 35 08 5c 32 30 36 09 00 5c 33 30 36 5c 22 29 19 5c	e."\303.\304\305.\206..\306\").\
1fe0	33 30 37 5c 33 31 30 5c 6e 5c 22 5c 32 31 30 09 29 5c 32 30 37 22 20 5b 74 65 73 74 20 72 65 73	307\310\n\"\210.)\207".[test.res
2000	75 6c 74 73 20 74 61 62 6c 65 20 6e 69 6c 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a	ults.table.nil.make-hash-table.:
2020	74 65 73 74 20 65 71 75 61 6c 20 68 74 2d 65 61 63 68 20 23 5b 28 6b 65 79 20 76 61 6c 75 65 29	test.equal.ht-each.#[(key.value)
2040	20 22 08 09 5c 6e 5c 22 5c 32 30 35 15 00 0b 09 5c 6e 1a 19 1c 5c 33 30 35 09 5c 6e 5c 66 23 5c	."..\n\"\205....\n...\305.\n\f#\
2060	32 31 30 2b 5c 33 30 36 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 20 6b 65 79 20 76 61 6c 75	210+\306\207".[function.key.valu
2080	65 20 72 65 73 75 6c 74 73 20 74 61 62 6c 65 20 70 75 74 68 61 73 68 20 6e 69 6c 5d 20 34 5d 5d	e.results.table.puthash.nil].4]]
20a0	20 33 20 28 23 24 20 2e 20 37 39 34 38 29 5d 29 0a 23 40 31 35 30 20 52 65 74 75 72 6e 20 61 20	.3.(#$...7948)]).#@150.Return.a.
20c0	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
20e0	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
2100	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
2120	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
2140	20 61 6e 64 20 56 41 4c 55 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 72 65 6a 65 63	.and.VALUE...(defalias.'ht-rejec
2160	74 20 23 5b 23 27 74 61 62 6c 65 20 22 5c 33 30 33 18 5c 33 30 34 5c 33 30 35 08 5c 32 30 36 09	t.#[#'table."\303.\304\305.\206.
2180	00 5c 33 30 36 5c 22 29 19 5c 33 30 37 5c 33 31 30 5c 6e 5c 22 5c 32 31 30 09 29 5c 32 30 37 22	.\306\").\307\310\n\"\210.)\207"
21a0	20 5b 74 65 73 74 20 72 65 73 75 6c 74 73 20 74 61 62 6c 65 20 6e 69 6c 20 6d 61 6b 65 2d 68 61	.[test.results.table.nil.make-ha
21c0	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 68 20 23 5b 28	sh-table.:test.equal.ht-each.#[(
21e0	6b 65 79 20 76 61 6c 75 65 29 20 22 08 09 5c 6e 5c 22 3f 5c 32 30 35 16 00 0b 09 5c 6e 1a 19 1c	key.value)."..\n\"?\205....\n...
2200	5c 33 30 35 09 5c 6e 5c 66 23 5c 32 31 30 2b 5c 33 30 36 5c 32 30 37 22 20 5b 66 75 6e 63 74 69	\305.\n\f#\210+\306\207".[functi
2220	6f 6e 20 6b 65 79 20 76 61 6c 75 65 20 72 65 73 75 6c 74 73 20 74 61 62 6c 65 20 70 75 74 68 61	on.key.value.results.table.putha
2240	73 68 20 6e 69 6c 5d 20 34 5d 5d 20 33 20 28 23 24 20 2e 20 38 33 37 35 29 5d 29 0a 23 40 31 32	sh.nil].4]].3.(#$...8375)]).#@12
2260	34 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 72 20	4.Delete.entries.from.TABLE.for.
2280	77 68 69 63 68 20 46 55 4e 43 54 49 4f 4e 20 72 65 74 75 72 6e 73 20 61 20 66 61 6c 73 79 20 76	which.FUNCTION.returns.a.falsy.v
22a0	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 74	alue...FUNCTION.is.called.with.t
22c0	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 1f 0a 28 64	wo.arguments,.KEY.and.VALUE...(d
22e0	65 66 61 6c 69 61 73 20 27 68 74 2d 72 65 6a 65 63 74 21 20 23 5b 23 27 74 61 62 6c 65 20 22 5c	efalias.'ht-reject!.#[#'table."\
2300	33 30 31 5c 33 30 32 08 5c 22 5c 32 31 30 5c 33 30 33 5c 32 30 37 22 20 5b 74 61 62 6c 65 20 68	301\302.\"\210\303\207".[table.h
2320	74 2d 65 61 63 68 20 23 5b 28 6b 65 79 20 76 61 6c 75 65 29 20 22 08 09 5c 6e 5c 22 5c 32 30 35	t-each.#[(key.value)."..\n\"\205
2340	0b 00 5c 33 30 34 09 0b 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 20 6b 65 79 20 76 61	..\304..\"\207".[function.key.va
2360	6c 75 65 20 74 61 62 6c 65 20 72 65 6d 68 61 73 68 5d 20 33 5d 20 6e 69 6c 5d 20 33 20 28 23 24	lue.table.remhash].3].nil].3.(#$
2380	20 2e 20 38 38 30 32 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 64 65 6c 65 74 65 2d	...8802)]).(defalias.'ht-delete-
23a0	69 66 20 27 68 74 2d 72 65 6a 65 63 74 21 29 0a 23 40 31 35 32 20 52 65 74 75 72 6e 20 28 6b 65	if.'ht-reject!).#@152.Return.(ke
23c0	79 2c 20 76 61 6c 75 65 29 20 66 72 6f 6d 20 54 41 42 4c 45 20 66 6f 72 20 77 68 69 63 68 20 46	y,.value).from.TABLE.for.which.F
23e0	55 4e 43 54 49 4f 4e 20 72 65 74 75 72 6e 73 20 61 20 74 72 75 74 68 79 20 76 61 6c 75 65 2e 0a	UNCTION.returns.a.truthy.value..
2400	52 65 74 75 72 6e 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a 46 55 4e 43 54 49 4f 4e 20	Return.nil.otherwise...FUNCTION.
2420	69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 4b 45	is.called.with.two.arguments,.KE
2440	59 20 61 6e 64 20 56 41 4c 55 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 66 69 6e 64	Y.and.VALUE...(defalias.'ht-find
2460	20 23 5b 23 27 74 61 62 6c 65 20 22 5c 33 30 31 32 09 00 5c 33 30 32 5c 33 30 33 08 5c 22 30 5c	.#[#'table."\3012..\302\303.\"0\
2480	32 30 37 22 20 5b 74 61 62 6c 65 20 62 72 65 61 6b 20 68 74 2d 65 61 63 68 20 23 5b 28 6b 65 79	207".[table.break.ht-each.#[(key
24a0	20 76 61 6c 75 65 29 20 22 08 09 5c 6e 5c 22 5c 32 30 35 0d 00 5c 33 30 33 5c 33 30 34 09 5c 6e	.value)."..\n\"\205..\303\304.\n
24c0	44 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 20 6b 65 79 20 76 61 6c 75 65 20 74 68 72	D\"\207".[function.key.value.thr
24e0	6f 77 20 62 72 65 61 6b 5d 20 34 5d 5d 20 33 20 28 23 24 20 2e 20 39 31 34 32 29 5d 29 0a 23 40	ow.break].4]].3.(#$...9142)]).#@
2500	31 30 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 4c 45	100.Return.t.if.TABLE1.and.TABLE
2520	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 73 2e	2.have.the.same.keys.and.values.
2540	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 64 69	.Does.not.compare.equality.predi
2560	63 61 74 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 2d 65 71 75 61 6c 5c 3f 20 23 5b	cates...(defalias.'ht-equal\?.#[
2580	28 74 61 62 6c 65 31 20 74 61 62 6c 65 32 29 20 22 5c 33 30 36 08 21 5c 33 30 36 09 21 5c 33 30	(table1.table2)."\306.!\306.!\30
25a0	37 5c 33 31 30 21 1a 1b 5c 32 31 31 1c 47 0b 47 5c 32 33 32 5c 32 30 35 73 00 5c 33 31 31 1d 5c	7\310!..\211.G.G\232\205s.\311.\
25c0	66 5c 33 31 31 5c 33 31 32 1e 0e 1e 0f 5c 32 31 31 1e 10 5c 32 30 33 6e 00 0e 0f 5c 32 30 33 6e	f\311\312....\211..\203n...\203n
25e0	00 0e 10 40 1e 11 0d 5c 32 30 34 37 00 5c 33 31 33 16 0f 5c 32 30 32 5f 00 08 0e 11 5c 33 31 33	...@...\2047.\313..\202_....\313
2600	1e 12 1e 13 1e 14 5c 33 31 34 0e 13 0e 14 0e 12 23 2b 09 0e 11 5c 6e 1e 12 1e 13 1e 14 5c 33 31	......\314......#+...\n......\31
2620	34 0e 13 0e 14 0e 12 23 2b 5c 32 33 32 15 29 0e 0e 54 16 0e 0e 10 41 5c 32 31 31 16 10 5c 32 30	4......#+\232.)..T....A\211..\20
2640	34 23 00 2b 5c 33 31 35 0d 21 29 2b 5c 32 30 37 22 20 5b 74 61 62 6c 65 31 20 74 61 62 6c 65 32	4#.+\315.!)+\207".[table1.table2
2660	20 73 65 6e 74 69 6e 65 6c 20 6b 65 79 73 32 20 6b 65 79 73 31 20 23 31 3d 23 3a 61 6c 6c 20 68	.sentinel.keys2.keys1.#1=#:all.h
2680	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"
26a0	20 74 20 30 20 6e 69 6c 20 67 65 74 68 61 73 68 20 2d 2d 2d 74 72 75 74 68 79 5c 3f 20 69 74 2d	.t.0.nil.gethash.---truthy\?.it-
26c0	69 6e 64 65 78 20 23 32 3d 23 3a 63 6f 6e 74 69 6e 75 65 20 23 33 3d 23 3a 6c 69 73 74 20 69 74	index.#2=#:continue.#3=#:list.it
26e0	20 64 65 66 61 75 6c 74 20 6b 65 79 20 74 61 62 6c 65 5d 20 36 20 28 23 24 20 2e 20 39 34 37 36	.default.key.table].6.(#$...9476
2700	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 22 5c 32	)]).(byte-code."\300\301\302\"\2
2720	31 30 5c 33 30 33 5c 33 30 34 21 5c 32 30 37 22 20 5b 64 65 66 61 6c 69 61 73 20 68 74 2d 65 71	10\303\304!\207".[defalias.ht-eq
2740	75 61 6c 2d 70 20 68 74 2d 65 71 75 61 6c 5c 3f 20 70 72 6f 76 69 64 65 20 68 74 5d 20 33 29 0a	ual-p.ht-equal\?.provide.ht].3).