ofs | hex dump | ascii |
---|
0000 | 3b 45 4c 43 1c 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61 | ;ELC.....;;;.Compiled.;;;.in.Ema |
0020 | 63 73 20 76 65 72 73 69 6f 6e 20 32 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 | cs.version.28.1.;;;.with.all.opt |
0040 | 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 | imizations.....(require.'cl-lib) |
0060 | 0a 23 40 37 30 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 6e | .#@70.compiler-macro.for.inlinin |
0080 | 67 20 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 70 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 | g.`cache-table-p'...(fn.CL-WHOLE |
00a0 | 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 | -ARG.CL-X)..(defalias.'cache-tab |
00c0 | 6c 65 2d 70 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | le-p--cmacro.#[514."\300\301\302 |
00e0 | 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 | \303\211\211..&.\207".[cl--defsu |
0100 | 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 63 61 63 68 | bst-expand.(cl-x).(cl-block.cach |
0120 | 65 2d 74 61 62 6c 65 2d 70 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 74 79 70 65 2d 6f 66 20 63 6c | e-table-p.(and.(memq.(type-of.cl |
0140 | 2d 78 29 20 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 29 20 | -x).cl-struct-cache-table-tags). |
0160 | 74 29 29 20 6e 69 6c 5d 20 39 20 28 23 24 20 2e 20 31 30 32 29 5d 29 0a 28 70 75 74 20 27 63 61 | t)).nil].9.(#$...102)]).(put.'ca |
0180 | 63 68 65 2d 74 61 62 6c 65 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 63 61 63 | che-table-p.'compiler-macro.'cac |
01a0 | 68 65 2d 74 61 62 6c 65 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 31 33 20 0a 0a 28 66 6e 20 43 | he-table-p--cmacro).#@13...(fn.C |
01c0 | 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 70 20 23 | L-X)..(defalias.'cache-table-p.# |
01e0 | 5b 32 35 37 20 22 5c 33 30 31 01 21 08 3e 5c 32 30 35 09 00 5c 33 30 32 5c 32 30 37 22 20 5b 63 | [257."\301.!.>\205..\302\207".[c |
0200 | 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 74 79 70 65 2d 6f | l-struct-cache-table-tags.type-o |
0220 | 66 20 74 5d 20 33 20 28 23 24 20 2e 20 34 34 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | f.t].3.(#$...441)]).(byte-code." |
0240 | 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 36 5c 33 30 | \300\301\302\303#\304\305\306\30 |
0260 | 31 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c | 1#\207".[function-put.cache-tabl |
0280 | 65 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 | e-p.side-effect-free.error-free. |
02a0 | 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c 65 20 63 6c 2d 64 65 66 74 79 70 65 2d 73 61 74 69 73 | put.cache-table.cl-deftype-satis |
02c0 | 66 69 65 73 5d 20 35 29 0a 23 40 38 30 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 | fies].5).#@80.compiler-macro.for |
02e0 | 20 69 6e 6c 69 6e 69 6e 67 20 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 78 70 69 72 65 2d 74 69 | .inlining.`cache-table-expire-ti |
0300 | 6d 65 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 | me'...(fn.CL-WHOLE-ARG.CL-X)..(d |
0320 | 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 78 70 69 72 65 2d 74 69 6d 65 | efalias.'cache-table-expire-time |
0340 | 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 | --cmacro.#[514."\300\301\302\303 |
0360 | 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d | \211\211..&.\207".[cl--defsubst- |
0380 | 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 63 61 63 68 65 2d 74 61 | expand.(cl-x).(cl-block.cache-ta |
03a0 | 62 6c 65 2d 65 78 70 69 72 65 2d 74 69 6d 65 20 28 70 72 6f 67 6e 20 28 6f 72 20 28 63 61 63 68 | ble-expire-time.(progn.(or.(cach |
03c0 | 65 2d 74 61 62 6c 65 2d 70 20 63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 | e-table-p.cl-x).(signal.'wrong-t |
03e0 | 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 63 61 63 68 65 2d 74 61 62 6c 65 20 | ype-argument.(list.'cache-table. |
0400 | 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 29 29 29 20 6e 69 6c 5d 20 39 20 28 | cl-x))).(aref.cl-x.1))).nil].9.( |
0420 | 23 24 20 2e 20 37 31 38 29 5d 29 0a 28 70 75 74 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 78 | #$...718)]).(put.'cache-table-ex |
0440 | 70 69 72 65 2d 74 69 6d 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 63 61 63 68 65 | pire-time.'compiler-macro.'cache |
0460 | 2d 74 61 62 6c 65 2d 65 78 70 69 72 65 2d 74 69 6d 65 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 36 38 | -table-expire-time--cmacro).#@68 |
0480 | 20 41 63 63 65 73 73 20 73 6c 6f 74 20 22 65 78 70 69 72 65 2d 74 69 6d 65 22 20 6f 66 20 60 63 | .Access.slot."expire-time".of.`c |
04a0 | 61 63 68 65 2d 74 61 62 6c 65 27 20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c | ache-table'.struct.CL-X...(fn.CL |
04c0 | 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 78 70 69 | -X)..(defalias.'cache-table-expi |
04e0 | 72 65 2d 74 69 6d 65 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 | re-time.#[257."\301.!.>\204..\30 |
0500 | 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 | 2\303\304.D\"\210\211\305H\207". |
0520 | 5b 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 74 79 70 65 | [cl-struct-cache-table-tags.type |
0540 | 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 | -of.signal.wrong-type-argument.c |
0560 | 61 63 68 65 2d 74 61 62 6c 65 20 31 5d 20 35 20 28 23 24 20 2e 20 31 31 35 33 29 5d 29 0a 28 62 | ache-table.1].5.(#$...1153)]).(b |
0580 | 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c | yte-code."\300\301\302\303#\300\ |
05a0 | 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 65 | 207".[function-put.cache-table-e |
05c0 | 78 70 69 72 65 2d 74 69 6d 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 | xpire-time.side-effect-free.t].4 |
05e0 | 29 0a 23 40 37 34 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 | ).#@74.compiler-macro.for.inlini |
0600 | 6e 67 20 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 27 2e 0a 0a 28 66 6e 20 43 4c 2d | ng.`cache-table-table'...(fn.CL- |
0620 | 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 | WHOLE-ARG.CL-X)..(defalias.'cach |
0640 | 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 | e-table-table--cmacro.#[514."\30 |
0660 | 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b | 0\301\302\303\211\211..&.\207".[ |
0680 | 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 | cl--defsubst-expand.(cl-x).(cl-b |
06a0 | 6c 6f 63 6b 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 20 28 70 72 6f 67 6e 20 28 6f | lock.cache-table-table.(progn.(o |
06c0 | 72 20 28 63 61 63 68 65 2d 74 61 62 6c 65 2d 70 20 63 6c 2d 78 29 20 28 73 69 67 6e 61 6c 20 27 | r.(cache-table-p.cl-x).(signal.' |
06e0 | 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 63 61 63 68 65 | wrong-type-argument.(list.'cache |
0700 | 2d 74 61 62 6c 65 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 32 29 29 29 20 6e | -table.cl-x))).(aref.cl-x.2))).n |
0720 | 69 6c 5d 20 39 20 28 23 24 20 2e 20 31 35 31 31 29 5d 29 0a 28 70 75 74 20 27 63 61 63 68 65 2d | il].9.(#$...1511)]).(put.'cache- |
0740 | 74 61 62 6c 65 2d 74 61 62 6c 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 63 61 63 | table-table.'compiler-macro.'cac |
0760 | 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 36 32 20 41 63 63 | he-table-table--cmacro).#@62.Acc |
0780 | 65 73 73 20 73 6c 6f 74 20 22 74 61 62 6c 65 22 20 6f 66 20 60 63 61 63 68 65 2d 74 61 62 6c 65 | ess.slot."table".of.`cache-table |
07a0 | 27 20 73 74 72 75 63 74 20 43 4c 2d 58 2e 0a 0a 28 66 6e 20 43 4c 2d 58 29 1f 0a 28 64 65 66 61 | '.struct.CL-X...(fn.CL-X)..(defa |
07c0 | 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 20 23 5b 32 35 37 20 22 5c | lias.'cache-table-table.#[257."\ |
07e0 | 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 | 301.!.>\204..\302\303\304.D\"\21 |
0800 | 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 | 0\211\305H\207".[cl-struct-cache |
0820 | 2d 74 61 62 6c 65 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 | -table-tags.type-of.signal.wrong |
0840 | 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 61 63 68 65 2d 74 61 62 6c 65 20 32 5d 20 35 20 | -type-argument.cache-table.2].5. |
0860 | 28 23 24 20 2e 20 31 39 31 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | (#$...1917)]).(byte-code."\300\3 |
0880 | 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b | 01\302\303#\304\305\306\"\207".[ |
08a0 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 6c 65 20 73 | function-put.cache-table-table.s |
08c0 | 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 63 6f 70 79 2d | ide-effect-free.t.defalias.copy- |
08e0 | 63 61 63 68 65 2d 74 61 62 6c 65 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 5d 20 34 29 0a 23 40 | cache-table.copy-sequence].4).#@ |
0900 | 31 30 30 20 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 66 6f 72 20 69 6e 6c 69 6e 69 6e 67 20 | 100.compiler-macro.for.inlining. |
0920 | 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 27 2e 0a 0a 28 66 6e 20 43 4c 2d 57 | `cache-table--create'...(fn.CL-W |
0940 | 48 4f 4c 45 20 26 63 6c 2d 71 75 6f 74 65 20 26 6b 65 79 20 45 58 50 49 52 45 2d 54 49 4d 45 20 | HOLE.&cl-quote.&key.EXPIRE-TIME. |
0960 | 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 2d | TABLE)..(defalias.'cache-table-- |
0980 | 63 72 65 61 74 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 33 38 35 20 22 5c 33 30 30 01 5c 33 30 31 5c | create--cmacro.#[385."\300.\301\ |
09a0 | 22 41 40 5c 33 30 30 02 5c 33 30 32 5c 22 41 40 02 5c 32 31 31 5c 32 30 33 37 00 5c 32 31 31 40 | "A@\300.\302\"A@.\211\2037.\211@ |
09c0 | 5c 33 30 33 3e 5c 32 30 33 20 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 0d 00 5c 33 30 34 | \303>\203..\211AA\262.\202..\304 |
09e0 | 04 3e 41 40 5c 32 30 33 2e 00 5c 33 30 35 5c 32 36 32 01 5c 32 30 32 0d 00 5c 33 30 36 5c 33 30 | .>A@\203..\305\262.\202..\306\30 |
0a00 | 37 02 40 5c 22 5c 32 31 30 5c 32 30 32 0d 00 5c 32 31 30 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c | 7.@\"\210\202..\210\310\311\312\ |
0a20 | 33 30 35 06 07 5c 33 30 35 06 07 06 07 26 07 5c 32 30 37 22 20 5b 70 6c 69 73 74 2d 6d 65 6d 62 | 305..\305....&.\207".[plist-memb |
0a40 | 65 72 20 3a 65 78 70 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 20 28 3a 65 78 70 69 72 65 2d | er.:expire-time.:table.(:expire- |
0a60 | 74 69 6d 65 20 3a 74 61 62 6c 65 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 29 20 3a | time.:table.:allow-other-keys).: |
0a80 | 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c 20 65 72 72 6f 72 20 22 4b 65 79 77 | allow-other-keys.nil.error."Keyw |
0aa0 | 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20 6f 6e 65 20 6f 66 20 28 3a 65 78 70 | ord.argument.%s.not.one.of.(:exp |
0ac0 | 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 29 22 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 | ire-time.:table)".cl--defsubst-e |
0ae0 | 78 70 61 6e 64 20 28 65 78 70 69 72 65 2d 74 69 6d 65 20 74 61 62 6c 65 29 20 28 63 6c 2d 62 6c | xpand.(expire-time.table).(cl-bl |
0b00 | 6f 63 6b 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 20 28 72 65 63 6f 72 64 20 | ock.cache-table--create.(record. |
0b20 | 27 63 61 63 68 65 2d 74 61 62 6c 65 20 65 78 70 69 72 65 2d 74 69 6d 65 20 74 61 62 6c 65 29 29 | 'cache-table.expire-time.table)) |
0b40 | 5d 20 31 32 20 28 23 24 20 2e 20 32 33 30 38 29 5d 29 0a 28 70 75 74 20 27 63 61 63 68 65 2d 74 | ].12.(#$...2308)]).(put.'cache-t |
0b60 | 61 62 6c 65 2d 2d 63 72 65 61 74 65 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 63 61 | able--create.'compiler-macro.'ca |
0b80 | 63 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 2d 2d 63 6d 61 63 72 6f 29 0a 23 40 37 37 20 | che-table--create--cmacro).#@77. |
0ba0 | 43 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 | Constructor.for.objects.of.type. |
0bc0 | 60 63 61 63 68 65 2d 74 61 62 6c 65 27 2e 0a 0a 28 66 6e 20 26 6b 65 79 20 45 58 50 49 52 45 2d | `cache-table'...(fn.&key.EXPIRE- |
0be0 | 54 49 4d 45 20 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 | TIME.TABLE)..(defalias.'cache-ta |
0c00 | 62 6c 65 2d 2d 63 72 65 61 74 65 20 23 5b 31 32 38 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 41 40 | ble--create.#[128."\300.\301\"A@ |
0c20 | 5c 33 30 30 02 5c 33 30 32 5c 22 41 40 02 5c 32 31 31 5c 32 30 33 37 00 5c 32 31 31 40 5c 33 30 | \300.\302\"A@.\211\2037.\211@\30 |
0c40 | 33 3e 5c 32 30 33 20 00 5c 32 31 31 41 41 5c 32 36 32 01 5c 32 30 32 0d 00 5c 33 30 34 04 3e 41 | 3>\203..\211AA\262.\202..\304.>A |
0c60 | 40 5c 32 30 33 2e 00 5c 33 30 35 5c 32 36 32 01 5c 32 30 32 0d 00 5c 33 30 36 5c 33 30 37 02 40 | @\203..\305\262.\202..\306\307.@ |
0c80 | 5c 22 5c 32 31 30 5c 32 30 32 0d 00 5c 32 31 30 5c 33 31 30 5c 33 31 31 03 03 23 5c 32 30 37 22 | \"\210\202..\210\310\311..#\207" |
0ca0 | 20 5b 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 65 78 70 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 | .[plist-member.:expire-time.:tab |
0cc0 | 6c 65 20 28 3a 65 78 70 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 20 3a 61 6c 6c 6f 77 2d 6f | le.(:expire-time.:table.:allow-o |
0ce0 | 74 68 65 72 2d 6b 65 79 73 29 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c | ther-keys).:allow-other-keys.nil |
0d00 | 20 65 72 72 6f 72 20 22 4b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20 | .error."Keyword.argument.%s.not. |
0d20 | 6f 6e 65 20 6f 66 20 28 3a 65 78 70 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 29 22 20 72 65 | one.of.(:expire-time.:table)".re |
0d40 | 63 6f 72 64 20 63 61 63 68 65 2d 74 61 62 6c 65 5d 20 37 20 28 23 24 20 2e 20 32 39 37 36 29 5d | cord.cache-table].7.(#$...2976)] |
0d60 | 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#\ |
0d80 | 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c | 304\305\306\307\310\311\312\313\ |
0da0 | 33 30 35 5c 33 30 33 26 09 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 | 305\303&.\207".[function-put.cac |
0dc0 | 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 | he-table--create.side-effect-fre |
0de0 | 65 20 74 20 63 6c 2d 73 74 72 75 63 74 2d 64 65 66 69 6e 65 20 63 61 63 68 65 2d 74 61 62 6c 65 | e.t.cl-struct-define.cache-table |
0e00 | 20 22 41 20 63 61 63 68 65 20 74 61 62 6c 65 20 77 69 74 68 20 65 78 70 69 72 69 6e 67 20 65 6e | ."A.cache.table.with.expiring.en |
0e20 | 74 72 69 65 73 2e 22 20 63 6c 2d 73 74 72 75 63 74 75 72 65 2d 6f 62 6a 65 63 74 20 72 65 63 6f | tries.".cl-structure-object.reco |
0e40 | 72 64 20 6e 69 6c 20 28 28 63 6c 2d 74 61 67 2d 73 6c 6f 74 29 20 28 65 78 70 69 72 65 2d 74 69 | rd.nil.((cl-tag-slot).(expire-ti |
0e60 | 6d 65 29 20 28 74 61 62 6c 65 29 29 20 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 | me).(table)).cl-struct-cache-tab |
0e80 | 6c 65 2d 74 61 67 73 5d 20 31 31 29 0a 23 40 33 36 37 20 43 72 65 61 74 65 20 61 20 6e 65 77 20 | le-tags].11).#@367.Create.a.new. |
0ea0 | 63 61 63 68 65 2d 74 61 62 6c 65 20 77 69 74 68 20 65 6e 74 72 69 65 73 20 61 75 74 6f 6d 61 74 | cache-table.with.entries.automat |
0ec0 | 69 63 61 6c 6c 79 20 72 65 6d 6f 76 65 64 0a 66 72 6f 6d 20 74 68 65 20 74 61 62 6c 65 20 61 66 | ically.removed.from.the.table.af |
0ee0 | 74 65 72 20 45 58 50 49 52 45 2d 54 49 4d 45 20 73 65 63 6f 6e 64 73 2e 20 54 68 69 73 20 66 75 | ter.EXPIRE-TIME.seconds..This.fu |
0f00 | 6e 63 74 69 6f 6e 20 61 63 63 65 70 74 73 0a 74 68 65 20 73 61 6d 65 20 6b 65 79 77 6f 72 64 20 | nction.accepts.the.same.keyword. |
0f20 | 61 72 67 75 6d 65 6e 74 73 20 61 73 20 60 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 27 2e 20 | arguments.as.`make-hash-table'.. |
0f40 | 45 6e 74 72 69 65 73 20 61 72 65 20 6e 6f 74 0a 61 63 74 75 61 6c 6c 79 20 72 65 6d 6f 76 65 64 | Entries.are.not.actually.removed |
0f60 | 20 66 72 6f 6d 20 74 68 65 20 63 61 63 68 65 2d 74 61 62 6c 65 20 75 6e 74 69 6c 20 61 6e 20 61 | .from.the.cache-table.until.an.a |
0f80 | 63 63 65 73 73 20 69 73 20 6d 61 64 65 20 74 6f 0a 74 68 65 20 63 61 63 68 65 2d 74 61 62 6c 65 | ccess.is.made.to.the.cache-table |
0fa0 | 2e 0a 0a 55 73 65 20 60 63 61 63 68 65 2d 74 61 62 6c 65 2d 67 65 74 27 20 74 6f 20 67 65 74 20 | ...Use.`cache-table-get'.to.get. |
0fc0 | 61 6e 64 20 70 75 74 20 28 76 69 61 20 73 65 74 66 29 20 65 6e 74 72 69 65 73 2e 0a 0a 28 66 6e | and.put.(via.setf).entries...(fn |
0fe0 | 20 45 58 50 49 52 45 2d 54 49 4d 45 20 26 72 65 73 74 20 4b 45 59 57 4f 52 44 2d 41 52 47 53 29 | .EXPIRE-TIME.&rest.KEYWORD-ARGS) |
1000 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 63 72 65 61 74 65 20 | ..(defalias.'cache-table-create. |
1020 | 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 03 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 06 5c 22 | #[385."\300\301.\302\303\304..\" |
1040 | 24 5c 32 30 37 22 20 5b 63 61 63 68 65 2d 74 61 62 6c 65 2d 2d 63 72 65 61 74 65 20 3a 65 78 70 | $\207".[cache-table--create.:exp |
1060 | 69 72 65 2d 74 69 6d 65 20 3a 74 61 62 6c 65 20 61 70 70 6c 79 20 6d 61 6b 65 2d 68 61 73 68 2d | ire-time.:table.apply.make-hash- |
1080 | 74 61 62 6c 65 5d 20 39 20 28 23 24 20 2e 20 33 37 33 31 29 5d 29 0a 23 40 36 34 20 52 65 6d 6f | table].9.(#$...3731)]).#@64.Remo |
10a0 | 76 65 20 61 6c 6c 20 65 78 70 69 72 65 64 20 65 6e 74 72 69 65 73 20 66 72 6f 6d 20 43 41 43 48 | ve.all.expired.entries.from.CACH |
10c0 | 45 2d 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 43 41 43 48 45 2d 54 41 42 4c 45 29 1f 0a 28 64 65 66 | E-TABLE...(fn.CACHE-TABLE)..(def |
10e0 | 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 6c 65 2d 63 6c 65 61 72 2d 65 78 70 69 72 65 64 | alias.'cache-table-clear-expired |
1100 | 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 | .#[257."\301.!.>\204..\302\303\3 |
1120 | 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 33 30 31 02 21 08 3e 5c 32 30 34 21 | 04.D\"\210\211\305H\301.!.>\204! |
1140 | 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 33 30 36 48 5c 33 30 37 20 | .\302\303\304.D\"\210.\306H\307. |
1160 | 02 5a 5c 33 31 30 43 5c 33 31 30 43 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 06 07 06 07 | .Z\310C\310C\310\311\312\313.... |
1180 | 06 07 06 07 06 07 26 06 06 06 5c 22 5c 32 31 30 5c 33 31 30 5c 32 30 37 22 20 5b 63 6c 2d 73 74 | ......&...\"\210\310\207".[cl-st |
11a0 | 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 74 79 70 65 2d 6f 66 20 73 69 | ruct-cache-table-tags.type-of.si |
11c0 | 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 61 63 68 65 2d 74 | gnal.wrong-type-argument.cache-t |
11e0 | 61 62 6c 65 20 31 20 32 20 66 6c 6f 61 74 2d 74 69 6d 65 20 6e 69 6c 20 6d 61 70 68 61 73 68 20 | able.1.2.float-time.nil.maphash. |
1200 | 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 35 31 34 20 22 5c 33 30 32 01 5c 32 34 30 5c 32 31 | make-closure.#[514."\302.\240\21 |
1220 | 30 5c 33 30 33 5c 33 30 32 5c 32 34 32 5c 33 30 32 5c 32 31 31 5c 32 34 32 41 5c 32 34 30 5c 32 | 0\303\302\242\302\211\242A\240\2 |
1240 | 31 30 5c 32 34 32 5c 32 34 30 5c 32 31 30 5c 33 30 33 5c 32 34 32 5c 33 30 31 57 5c 32 30 33 1c | 10\242\240\210\303\242\301W\203. |
1260 | 00 5c 33 30 35 02 5c 33 30 30 5c 22 5c 32 31 30 5c 33 30 36 5c 32 30 37 22 20 5b 56 30 20 56 31 | .\305.\300\"\210\306\207".[V0.V1 |
1280 | 20 56 32 20 56 33 20 56 34 20 72 65 6d 68 61 73 68 20 6e 69 6c 5d 20 36 20 22 5c 6e 5c 6e 28 66 | .V2.V3.V4.remhash.nil].6."\n\n(f |
12a0 | 6e 20 4b 45 59 20 45 4e 54 52 59 29 22 5d 5d 20 31 35 20 28 23 24 20 2e 20 34 32 35 32 29 5d 29 | n.KEY.ENTRY)"]].15.(#$...4252)]) |
12c0 | 0a 23 40 31 33 37 20 41 63 63 65 73 73 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 20 4b 45 59 20 | .#@137.Access.the.value.for.KEY. |
12e0 | 69 6e 20 43 41 43 48 45 2d 54 41 42 4c 45 20 69 66 20 69 74 20 68 61 73 20 6e 6f 74 20 79 65 74 | in.CACHE-TABLE.if.it.has.not.yet |
1300 | 0a 65 78 70 69 72 65 64 2e 20 42 65 68 61 76 65 73 20 6a 75 73 74 20 6c 69 6b 65 20 60 67 65 74 | .expired..Behaves.just.like.`get |
1320 | 68 61 73 68 27 2e 0a 0a 28 66 6e 20 4b 45 59 20 43 41 43 48 45 2d 54 41 42 4c 45 20 26 6f 70 74 | hash'...(fn.KEY.CACHE-TABLE.&opt |
1340 | 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 63 61 63 68 65 | ional.DEFAULT)..(defalias.'cache |
1360 | 2d 74 61 62 6c 65 2d 67 65 74 20 23 5b 37 37 30 20 22 5c 33 30 31 02 21 5c 32 31 30 5c 33 30 32 | -table-get.#[770."\301.!\210\302 |
1380 | 03 5c 33 30 33 04 21 08 3e 5c 32 30 34 16 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 44 5c 22 | .\303.!.>\204..\304\305\306..D\" |
13a0 | 5c 32 31 30 03 5c 33 30 37 48 5c 33 31 30 04 42 23 41 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 | \210.\307H\310.B#A\207".[cl-stru |
13c0 | 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 63 61 63 68 65 2d 74 61 62 6c 65 2d | ct-cache-table-tags.cache-table- |
13e0 | 63 6c 65 61 72 2d 65 78 70 69 72 65 64 20 67 65 74 68 61 73 68 20 74 79 70 65 2d 6f 66 20 73 69 | clear-expired.gethash.type-of.si |
1400 | 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 61 63 68 65 2d 74 | gnal.wrong-type-argument.cache-t |
1420 | 61 62 6c 65 20 32 20 30 5d 20 39 20 28 23 24 20 2e 20 34 38 30 37 29 5d 29 0a 28 62 79 74 65 2d | able.2.0].9.(#$...4807)]).(byte- |
1440 | 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" |
1460 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 67 65 74 20 67 | .[function-put.cache-table-get.g |
1480 | 76 2d 65 78 70 61 6e 64 65 72 20 23 5b 33 38 35 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 04 04 | v-expander.#[385."\300\301\302.. |
14a0 | 24 5c 32 30 37 22 20 5b 67 76 2d 2d 64 65 66 73 65 74 74 65 72 20 63 61 63 68 65 2d 74 61 62 6c | $\207".[gv--defsetter.cache-tabl |
14c0 | 65 2d 67 65 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 02 44 5c 33 30 32 04 5c 33 30 33 | e-get.#[771."\300\301.D\302.\303 |
14e0 | 5c 33 30 34 06 08 45 5c 33 30 35 06 06 44 46 45 5c 32 30 37 22 20 5b 70 72 6f 67 6e 20 63 61 63 | \304..E\305..DFE\207".[progn.cac |
1500 | 68 65 2d 74 61 62 6c 65 2d 63 6c 65 61 72 2d 65 78 70 69 72 65 64 20 70 75 74 68 61 73 68 20 63 | he-table-clear-expired.puthash.c |
1520 | 6f 6e 73 20 28 66 6c 6f 61 74 2d 74 69 6d 65 29 20 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 62 | ons.(float-time).cache-table-tab |
1540 | 6c 65 5d 20 31 30 20 22 50 75 74 20 61 6e 20 65 6e 74 72 79 20 69 6e 20 74 68 65 20 68 61 73 68 | le].10."Put.an.entry.in.the.hash |
1560 | 20 74 61 62 6c 65 2c 20 6c 69 6b 65 20 28 73 65 74 66 20 28 67 65 74 68 61 73 68 20 6b 65 79 20 | .table,.like.(setf.(gethash.key. |
1580 | 74 61 62 6c 65 29 20 76 61 6c 75 65 29 2e 5c 6e 5c 6e 28 66 6e 20 56 41 4c 55 45 20 4b 45 59 20 | table).value).\n\n(fn.VALUE.KEY. |
15a0 | 43 41 43 48 45 2d 54 41 42 4c 45 29 22 5d 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 44 4f 20 26 72 | CACHE-TABLE)"]].7."\n\n(fn.DO.&r |
15c0 | 65 73 74 20 41 52 47 53 29 22 5d 5d 20 34 29 0a 23 40 38 38 20 4c 69 6b 65 20 60 6d 61 70 68 61 | est.ARGS)"]].4).#@88.Like.`mapha |
15e0 | 73 68 27 2c 20 63 61 6c 6c 20 46 20 66 6f 72 20 61 6c 6c 20 6e 6f 6e 2d 65 78 70 69 72 65 64 20 | sh',.call.F.for.all.non-expired. |
1600 | 65 6e 74 72 69 65 73 20 69 6e 20 43 41 43 48 45 2d 54 41 42 4c 45 2e 0a 0a 28 66 6e 20 46 20 43 | entries.in.CACHE-TABLE...(fn.F.C |
1620 | 41 43 48 45 2d 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 | ACHE-TABLE)..(defalias.'cache-ta |
1640 | 62 6c 65 2d 6d 61 70 20 23 5b 35 31 34 20 22 5c 33 30 31 01 21 5c 32 31 30 5c 33 30 32 5c 33 30 | ble-map.#[514."\301.!\210\302\30 |
1660 | 33 5c 33 30 34 04 5c 22 5c 33 30 35 03 21 08 3e 5c 32 30 34 18 00 5c 33 30 36 5c 33 30 37 5c 33 | 3\304.\"\305.!.>\204..\306\307\3 |
1680 | 31 30 05 44 5c 22 5c 32 31 30 02 5c 33 31 31 48 5c 22 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 | 10.D\"\210.\311H\"\207".[cl-stru |
16a0 | 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 63 61 63 68 65 2d 74 61 62 6c 65 2d | ct-cache-table-tags.cache-table- |
16c0 | 63 6c 65 61 72 2d 65 78 70 69 72 65 64 20 6d 61 70 68 61 73 68 20 6d 61 6b 65 2d 63 6c 6f 73 75 | clear-expired.maphash.make-closu |
16e0 | 72 65 20 23 5b 35 31 34 20 22 5c 33 30 30 02 02 41 5c 22 5c 32 30 37 22 20 5b 56 30 5d 20 35 20 | re.#[514."\300..A\"\207".[V0].5. |
1700 | 22 5c 6e 5c 6e 28 66 6e 20 4b 20 56 29 22 5d 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 | "\n\n(fn.K.V)"].type-of.signal.w |
1720 | 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 61 63 68 65 2d 74 61 62 6c 65 20 32 | rong-type-argument.cache-table.2 |
1740 | 5d 20 38 20 28 23 24 20 2e 20 35 35 38 39 29 5d 29 0a 23 40 38 35 20 4c 69 6b 65 20 60 68 61 73 | ].8.(#$...5589)]).#@85.Like.`has |
1760 | 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 27 2c 20 63 6f 75 6e 74 20 74 68 65 20 6e 75 6d 62 65 72 | h-table-count',.count.the.number |
1780 | 20 6f 66 20 6e 6f 6e 2d 65 78 70 69 72 65 64 20 65 6e 74 72 69 65 73 2e 0a 0a 28 66 6e 20 43 41 | .of.non-expired.entries...(fn.CA |
17a0 | 43 48 45 2d 54 41 42 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 61 63 68 65 2d 74 61 62 | CHE-TABLE)..(defalias.'cache-tab |
17c0 | 6c 65 2d 63 6f 75 6e 74 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 02 21 08 3e 5c 32 30 34 | le-count.#[257."\301\302.!.>\204 |
17e0 | 10 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 04 44 5c 22 5c 32 31 30 01 5c 33 30 36 48 21 5c 32 30 | ..\303\304\305.D\"\210.\306H!\20 |
1800 | 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 63 61 63 68 65 2d 74 61 62 6c 65 2d 74 61 67 73 20 68 | 7".[cl-struct-cache-table-tags.h |
1820 | 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 74 79 70 65 2d 6f 66 20 73 69 67 6e 61 6c 20 77 | ash-table-count.type-of.signal.w |
1840 | 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 63 61 63 68 65 2d 74 61 62 6c 65 20 32 | rong-type-argument.cache-table.2 |
1860 | 5d 20 36 20 28 23 24 20 2e 20 35 39 37 35 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 63 61 63 68 | ].6.(#$...5975)]).(provide.'cach |
1880 | 65 2d 74 61 62 6c 65 29 0a | e-table). |