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). |