master: build-all-cores
snuglas via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via d1d85bbaa19784f431fa1e53e48578e087e83432 (commit)
from cc40e148a2b19e4fa19c8a2672ea7e37b11d497e (commit)
- Log -----------------------------------------------------------------
commit d1d85bbaa19784f431fa1e53e48578e087e83432
Author: Douglas Katzman <[email protected]>
Date: Wed Aug 12 22:45:49 2026 -0400
build-all-cores
---
xperfecthash30.lisp-expr | 62 ++++++++++------
xperfecthash61.lisp-expr | 60 +++++++++------
xperfecthash63.lisp-expr | 186 +++++++++++++----------------------------------
3 files changed, 124 insertions(+), 184 deletions(-)
diff --git a/xperfecthash30.lisp-expr b/xperfecthash30.lisp-expr
index 1b7227c78..eefe5e798 100644
--- a/xperfecthash30.lisp-expr
+++ b/xperfecthash30.lisp-expr
@@ -29,6 +29,12 @@
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
+(#(0 4 14 34 3C)
+ "(5 15 1 13 0)"
+ "((let ((tab #a((4) (unsigned-byte 8) 2 0 0 7)))
+ (let ((b (& (>> val 2) #x3)))
+ (let ((a (>> (<< val 26) 30)))
+ (^ a (aref tab b))))))")
(#(0 8 10 18 30 38)
"(14 12 4 2 6 0)"
"((& (^ (>> val 3) (>> val 4)) 7))")
@@ -157,12 +163,12 @@
(#(7FD94 2D83FFB BF09BC1 12E2CBDA 19750D5C 1F84C345)
"(:ALLOW-OTHER-KEYS :Y-TYPE :X-TYPE :SAME-LEAF-NOT-COMPLEX :INTEGER :COMPLEX-P)"
"((& (- (>> val 4) (>> val 12)) 7))")
-(#(DFCD7 7E1321 13913B1 1BF9BA5 24D3B50 2D83FFB 2E64121 57CFC3F 6050970 6568C99 65871AE 6B647A0 7EE2BA1 805A8CE 870F40D 9C05C00
- B32A898 B465CCD CC89B6A D4575D9 D64C851 EDCFD06 F463A15 1087745E 1088DA49 111EF72D 1256F00B 15306542 1566B287 164A65E2
- 171AFB68 172C8C38 17C2457C 1A355FA0 1A4BD0D1 1B50A359 1B5C8A6A 1BD8B4B6 1CFE2013 1D753C32 1DF478CA 1E88666C 1E89C88A
- 1EDCE097 1F1704E1)
- "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 0 0 51 0 0 34 0 0 0 0 0 10 2 0 36 0 34 12 60 15 0 36 51 10 18 9 0 37 61 0 19 44)))
+(#(DFCD7 7E1321 13913B1 1BF9BA5 24D3B50 2D83FFB 2E64121 57CFC3F 59DB420 6050970 6568C99 65871AE 6B647A0 7EE2BA1 805A8CE 870F40D
+ 9C05C00 B32A898 B465CCD CC89B6A D4575D9 D64C851 EDCFD06 F463A15 1087745E 1088DA49 111EF72D 1256F00B 15306542 1566B287
+ 1603EBBE 164A65E2 171AFB68 172C8C38 17C2457C 18AA3557 1A355FA0 1A4BD0D1 1B50A359 1B5C8A6A 1BD8B4B6 1D35266E 1D753C32
+ 1DF478CA 1E88666C 1E89C88A 1EDCE097 1F1704E1)
+ "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
+ "((let ((tab #a((32) (unsigned-byte 8) 0 0 51 0 0 34 10 22 7 50 0 61 51 0 16 0 34 20 51 0 0 36 51 10 4 26 0 46 61 0 49 44)))
(let ((b (& val #x1f)))
(let ((a (>> (<< val 3) 27)))
(^ a (aref tab b))))))")
@@ -199,10 +205,10 @@
(#(447873 2D83FFB 4F39EEA 6FD322D 12F895BA 152C3319 1BAA5C56 1E5A73AF)
"(:ALLOW-OTHER-KEYS :INVALID :BITMAP :INFO :INHERITS :FLAGS :LENGTH :DEPTHOID)"
"((& (^ (>> val 4) (>> val 25)) 7))")
-(#(4A41A7 6EE9F6 91FC29 12352A9 146FDEA 2D83FFB B32A898 F5809D0 104F55EE 11D63D7A 13B7ED4C 1894EF0F 1B3D98A2 1B5666D7 1BB3277A
- 1EF9A0A6 1FAC65A0)
- "(:ALLOW-OTHER-KEYS :STRING-TO-OCTETS-FUN :OCTETS-TO-STRING-FUN :WRITE-C-STRING-FUN :READ-C-STRING-FUN :BYTES-FOR-CHAR-FUN :RESYNC-FUN :WRITE-CHAR-FULL-BUFFERED-FUN :WRITE-CHAR-LINE-BUFFERED-FUN :WRITE-CHAR-NONE-BUFFERED-FUN :WRITE-N-BYTES-FUN :READ-CHAR-FUN :READ-N-CHARS-FUN :REPLACEMENT :DEFAULT-REPLACEMENT-CHARACTER :NEWLINE-VARIANT :NAMES)"
- "((let ((tab #a((16) (unsigned-byte 8) 13 0 1 0 0 0 1 1 12 0 0 7 1 0 13 20)))
+(#(4A41A7 6EE9F6 91FC29 12352A9 146FDEA 2D83FFB B32A898 F5809D0 104F55EE 11D63D7A 13B7ED4C 17CBDD5F 1894EF0F 1B3D98A2 1B5666D7
+ 1BB3277A 1EF9A0A6 1FAC65A0)
+ "(:ALLOW-OTHER-KEYS :COUNT-CHARS :STRING-TO-OCTETS-FUN :OCTETS-TO-STRING-FUN :WRITE-C-STRING-FUN :READ-C-STRING-FUN :BYTES-FOR-CHAR-FUN :RESYNC-FUN :WRITE-CHAR-FULL-BUFFERED-FUN :WRITE-CHAR-LINE-BUFFERED-FUN :WRITE-CHAR-NONE-BUFFERED-FUN :WRITE-N-BYTES-FUN :READ-CHAR-FUN :READ-N-CHARS-FUN :REPLACEMENT :DEFAULT-REPLACEMENT-CHARACTER :NEWLINE-VARIANT :NAMES)"
+ "((let ((tab #a((16) (unsigned-byte 8) 13 0 1 0 0 0 1 1 24 0 0 7 1 0 18 1)))
(let ((b (& val #xf)))
(let ((a (>> (<< val 7) 28)))
(^ a (aref tab b))))))")
@@ -284,11 +290,12 @@
(let ((b (& (>> val 12) #x7)))
(let ((a (>> (<< val 31) 29)))
(^ a (aref tab b))))))")
-(#(7E1321 1BF9BA5 24D3B50 2D83FFB 2E64121 6050970 6568C99 65871AE 6B647A0 7EE2BA1 805A8CE 870F40D 9C05C00 B32A898 B465CCD
- CC89B6A D4575D9 D64C851 EDCFD06 F463A15 1087745E 1088DA49 111EF72D 1256F00B 15306542 164A65E2 172C8C38 17C2457C 1A355FA0
- 1A4BD0D1 1B50A359 1B5C8A6A 1BD8B4B6 1CFE2013 1D753C32 1DF478CA 1E88666C 1E89C88A 1EDCE097 1F1704E1)
- "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 0 0 0 0 0 9 46 0 0 51 0 10 10 27 11 0 7 20 12 0 0 46 61 60 0 9 0 38 50 0 55 0)))
+(#(7E1321 1BF9BA5 24D3B50 2D83FFB 2E64121 59DB420 6050970 6568C99 65871AE 6B647A0 7EE2BA1 805A8CE 870F40D 9C05C00 B32A898
+ B465CCD CC89B6A D4575D9 D64C851 EDCFD06 F463A15 1087745E 1088DA49 111EF72D 1256F00B 15306542 1603EBBE 164A65E2 172C8C38
+ 17C2457C 18AA3557 1A355FA0 1A4BD0D1 1B50A359 1B5C8A6A 1BD8B4B6 1D35266E 1D753C32 1DF478CA 1E88666C 1E89C88A 1EDCE097
+ 1F1704E1)
+ "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
+ "((let ((tab #a((32) (unsigned-byte 8) 0 0 0 0 0 12 36 0 0 0 0 10 7 0 9 0 36 9 61 0 0 12 51 61 5 17 0 38 62 0 49 0)))
(let ((b (& val #x1f)))
(let ((a (>> (<< val 3) 27)))
(^ a (aref tab b))))))")
@@ -1463,9 +1470,16 @@
(#(10944646 12DFA7D4 18E8D162 1E5A73AF 1FE1B094)
"((:UNDERFLOW . 8) (:OVERFLOW . 4) (:INEXACT . 16) (:INVALID . 1) (:DIVIDE-BY-ZERO . 2))"
"((& (- (>> val 1) (>> val 6)) 7))")
+(#(109BE3BD 10D2EA4E 1224C557 15A58D85 15B5A2B5 163D9B36 17524A78 1769E419 183E6CEC 18906D08 192DAE14 19577539 1C065CB8
+ 1C26FCE6 1C8E20BF 1CAE048E 1D66C932)
+ "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::VOP-JUMPER)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE BIND)) ((:TYPE EXIT)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)))"
+ "((let ((tab #a((16) (unsigned-byte 8) 7 0 0 0 3 0 13 14 0 0 26 0 0 3 15 0)))
+ (let ((b (& (>> val 9) #xf)))
+ (let ((a (>> (<< val 7) 28)))
+ (^ a (aref tab b))))))")
(#(109BE3BD 10D2EA4E 1224C557 15A58D85 15B5A2B5 163D9B36 17524A78 1769E419 183E6CEC 18906D08 19577539 1C065CB8 1C26FCE6
1C8E20BF 1CAE048E 1D66C932)
- "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE BIND)) ((:TYPE EXIT)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)))"
+ "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE BIND)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)) ((:TYPE EXIT)))"
"((let ((tab #a((8) (unsigned-byte 8) 0 13 0 12 0 15 8 6)))
(+= val #x6bc5524)
(^= val (>> val 16))
@@ -1480,10 +1494,10 @@
(let ((b (& (>> val 6) #x7)))
(let ((a (>> (<< val 5) 29)))
(^ a (aref tab b))))))")
-(#(109BE3BD 10D2EA4E 1224C557 15A58D85 15B5A2B5 17524A78 1769E419 183E6CEC 18906D08 19577539 1C065CB8 1C26FCE6 1C8E20BF
- 1CAE048E 1D66C932)
- "#(((:TYPE SB-C:JUMP-TABLE) (:TYPE SB-C::CDYNAMIC-EXTENT) (:TYPE SB-C::ENCLOSE) (:TYPE EXIT) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::ENTRY) (:TYPE SB-C::CIF) (:TYPE SB-C::CRETURN)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::REF)) ((:TYPE SB-C::CSET)) ((:TYPE BIND)))"
- "((let ((tab #a((8) (unsigned-byte 8) 0 0 8 5 10 8 0 13)))
+(#(109BE3BD 10D2EA4E 1224C557 15A58D85 15B5A2B5 17524A78 1769E419 183E6CEC 18906D08 192DAE14 19577539 1C065CB8 1C26FCE6
+ 1C8E20BF 1CAE048E 1D66C932)
+ "#(((:TYPE SB-C::VOP-JUMPER) (:TYPE SB-C:JUMP-TABLE) (:TYPE SB-C::CDYNAMIC-EXTENT) (:TYPE SB-C::ENCLOSE) (:TYPE EXIT) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::ENTRY) (:TYPE SB-C::CIF) (:TYPE SB-C::CRETURN)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::REF)) ((:TYPE SB-C::CSET)) ((:TYPE BIND)))"
+ "((let ((tab #a((8) (unsigned-byte 8) 0 0 12 5 2 0 12 15)))
(+= val #x6884db6b)
(^= val (>> val 16))
(+= val (<< val 8))
@@ -1507,7 +1521,7 @@
"(INTEGER BIGNUM SB-VM::UNSIGNED-BYTE-31 SB-VM::SIGNED-BYTE-32 FIXNUM SB-VM::POSITIVE-FIXNUM)"
"((& (^ val (>> val 22)) 7))")
(#(10D2EA4E 1224C557 15A58D85 15B5A2B5 17524A78 1769E419 18906D08)
- "(SB-C::CSET SB-C::REF DELAY SB-C::ARRAY-INDEX-CAST CAST SB-C::COMBINATION SB-C::CIF)"
+ "#(((:TYPE SB-C::CIF) (:TYPE SB-C::COMBINATION) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF) (:TYPE SB-C::CSET)))"
"((& (+ (>> val 1) (>> val 9)) 7))")
(#(10D2EA4E 1224C557 15A58D85 15B5A2B5 17524A78 1769E419 18906D08 19577539 1C065CB8 1D66C932)
"#(((:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::MV-COMBINATION)) ((:TYPE EXIT)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)))"
@@ -1515,9 +1529,9 @@
(let ((b (& (>> val 5) #x7)))
(let ((a (>> (<< val 31) 29)))
(^ a (aref tab b))))))")
-(#(10D2EA4E 1224C557 17524A78 1769E419 183E6CEC 19577539 1C065CB8 1C26FCE6 1C8E20BF 1CAE048E 1D66C932)
- "(SB-C::CRETURN SB-C::CIF SB-C::ENTRY SB-C::MV-COMBINATION DELAY SB-C::ARRAY-INDEX-CAST CAST EXIT SB-C::ENCLOSE SB-C::CDYNAMIC-EXTENT SB-C:JUMP-TABLE)"
- "((let ((tab #a((8) (unsigned-byte 8) 12 1 13 2 0 0 4 0)))
+(#(10D2EA4E 1224C557 17524A78 1769E419 183E6CEC 192DAE14 19577539 1C065CB8 1C26FCE6 1C8E20BF 1CAE048E 1D66C932)
+ "(SB-C::CRETURN SB-C::CIF SB-C::ENTRY SB-C::MV-COMBINATION DELAY SB-C::ARRAY-INDEX-CAST CAST EXIT SB-C::ENCLOSE SB-C::CDYNAMIC-EXTENT SB-C:JUMP-TABLE SB-C::VOP-JUMPER)"
+ "((let ((tab #a((8) (unsigned-byte 8) 13 14 12 2 0 4 4 0)))
(let ((b (& (>> val 13) #x7)))
(let ((a (>> (<< val 5) 29)))
(^ a (aref tab b))))))")
diff --git a/xperfecthash61.lisp-expr b/xperfecthash61.lisp-expr
index b1bc014fb..aaf2e8b83 100644
--- a/xperfecthash61.lisp-expr
+++ b/xperfecthash61.lisp-expr
@@ -17,6 +17,12 @@
(let ((b (& (>> val 3) #x3)))
(let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))")
+(#(0 8 28 68 78)
+ "(5 15 1 13 0)"
+ "((let ((tab #a((4) (unsigned-byte 8) 2 0 0 7)))
+ (let ((b (& (>> val 3) #x3)))
+ (let ((a (>> (<< val 25) 30)))
+ (^ a (aref tab b))))))")
(#(0 732BDD9 6BC2D01D 841FB34E)
"(NIL :STRINGS :BOTH :SYMBOLS)"
"((& (>> val 25) 3))")
@@ -251,13 +257,13 @@
(let ((b (& (>> val 11) #x7)))
(let ((a (>> (<< val 31) 29)))
(^ a (aref tab b))))))")
-(#(13913B1 24D3B50 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 42D83FFB 42E64121 46050970 49C05C00 57C2457C
- 5A355FA0 665871AE 7566B287 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C 9EDCE097
- 9F1704E1 A00DFCD7 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B B71AFB68 D088DA49 D64A65E2 DB5C8A6A DDF478CA E57CFC3F
- E6B647A0 F087745E F5306542 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 51 51 51 0 0 49 0 0 22 12 9 49 10 0 34 36 50 0 38 0 9 0 0 11 16 0 53 0 0 0 0 10)))
- (let ((b (& (>> val 7) #x1f)))
+(#(13913B1 24D3B50 59DB420 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121
+ 46050970 49C05C00 57C2457C 5A355FA0 665871AE 7566B287 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6
+ 9D753C32 9E88666C 9EDCE097 9F1704E1 A00DFCD7 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B B71AFB68 D088DA49 D64A65E2
+ DB5C8A6A DDF478CA E57CFC3F E6B647A0 F087745E F5306542 F8AA3557 FA4BD0D1)
+ "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
+ "((let ((tab #a((32) (unsigned-byte 8) 51 0 16 0 9 60 19 0 51 26 0 0 0 28 51 34 59 22 22 36 36 9 0 0 49 22 0 41 61 10 0 59)))
+ (let ((b (& (>> val 9) #x1f)))
(let ((a (>> (<< val 9) 27)))
(^ a (aref tab b))))))")
(#(15115EA 805D985 DBAFDA3 132E85C2 26DFCD3D 2C62CDF1 2FBB375F 2FCB0B8A 4EBA358E 4FA1D6C1 57DA1CEC 59F6CB0B 60D621C0 68E4C2C2
@@ -278,11 +284,12 @@
(#(1513AC6 3CC1B151 88B5C19C 891D9E04 CAD1FFFF F8C92483)
"(:FPSCR :CTR :LR :XER :CCR :MEMORY)"
"((& (+ (>> val 6) (>> val 15)) 7))")
-(#(24D3B50 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 42D83FFB 42E64121 46050970 49C05C00 57C2457C 5A355FA0
- 665871AE 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C 9EDCE097 9F1704E1 A7EE2BA1
- AD4575D9 AEDCFD06 B11EF72D B256F00B D088DA49 D64A65E2 DB5C8A6A DDF478CA E6B647A0 F087745E F5306542 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 0 49 0 51 0 0 28 0 22 0 31 51 12 0 19 9 16 0 38 0 9 0 2 9 16 49 13 0 0 0 0 10)))
+(#(24D3B50 59DB420 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121 46050970
+ 49C05C00 57C2457C 5A355FA0 665871AE 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C
+ 9EDCE097 9F1704E1 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B D088DA49 D64A65E2 DB5C8A6A DDF478CA E6B647A0 F087745E
+ F5306542 F8AA3557 FA4BD0D1)
+ "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
+ "((let ((tab #a((32) (unsigned-byte 8) 19 0 9 28 0 0 0 0 9 12 9 51 36 0 20 9 51 0 33 0 9 0 55 0 12 50 63 0 0 0 0 0)))
(let ((b (& (>> val 7) #x1f)))
(let ((a (>> (<< val 9) 27)))
(^ a (aref tab b))))))")
@@ -431,20 +438,27 @@
(#(95A3EE5 6D3D4FDE 73D11A29 84B90ACE A3CDD395)
"(:INITFORM :INITARG :WRITER :READER :ACCESSOR)"
"((& (>> val 26) 7))")
+(#(9A320D4 37D0286E 39CAA339 3B6E7F62 43BBEE18 4D61368F 53222DFB 536D8784 9380837C A8A4C7D2 AFF86889 B4BDCB5F BFA86189 EAA3DA5C
+ EDA1037F F9BA9C52 FEE99A95)
+ "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::VOP-JUMPER)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE BIND)) ((:TYPE EXIT)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)))"
+ "((let ((tab #a((16) (unsigned-byte 8) 0 0 0 0 13 15 0 0 13 13 0 21 12 0 15 15)))
+ (let ((b (& val #xf)))
+ (let ((a (>> val 28)))
+ (^ a (aref tab b))))))")
+(#(9A320D4 37D0286E 39CAA339 3B6E7F62 43BBEE18 4D61368F 53222DFB 536D8784 9380837C A8A4C7D2 AFF86889 B4BDCB5F BFA86189 EAA3DA5C
+ EDA1037F FEE99A95)
+ "#(((:TYPE SB-C::VOP-JUMPER) (:TYPE SB-C:JUMP-TABLE) (:TYPE SB-C::CDYNAMIC-EXTENT) (:TYPE SB-C::ENCLOSE) (:TYPE EXIT) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::ENTRY) (:TYPE SB-C::CIF) (:TYPE SB-C::CRETURN)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::REF)) ((:TYPE SB-C::CSET)) ((:TYPE BIND)))"
+ "((let ((tab #a((8) (unsigned-byte 8) 9 5 14 5 5 12 12 0)))
+ (let ((b (& (>> val 2) #x7)))
+ (let ((a (>> (<< val 3) 29)))
+ (^ a (aref tab b))))))")
(#(9A320D4 37D0286E 39CAA339 3B6E7F62 43BBEE18 4D61368F 53222DFB 536D8784 9380837C A8A4C7D2 B4BDCB5F BFA86189 EAA3DA5C EDA1037F
F9BA9C52 FEE99A95)
- "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE BIND)) ((:TYPE EXIT)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)))"
+ "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE BIND)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)) ((:TYPE EXIT)))"
"((let ((tab #a((8) (unsigned-byte 8) 12 0 12 14 0 4 7 13)))
(let ((b (& val #x7)))
(let ((a (>> val 29)))
(^ a (aref tab b))))))")
-(#(9A320D4 37D0286E 39CAA339 3B6E7F62 43BBEE18 4D61368F 53222DFB 536D8784 9380837C A8A4C7D2 B4BDCB5F BFA86189 EAA3DA5C EDA1037F
- FEE99A95)
- "#(((:TYPE SB-C:JUMP-TABLE) (:TYPE SB-C::CDYNAMIC-EXTENT) (:TYPE SB-C::ENCLOSE) (:TYPE EXIT) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::ENTRY) (:TYPE SB-C::CIF) (:TYPE SB-C::CRETURN)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::REF)) ((:TYPE SB-C::CSET)) ((:TYPE BIND)))"
- "((let ((tab #a((8) (unsigned-byte 8) 8 0 13 4 0 4 12 12)))
- (let ((b (& val #x7)))
- (let ((a (>> val 29)))
- (^ a (aref tab b))))))")
(#(9A320D4 37D0286E 39CAA339 43BBEE18 4D61368F 53222DFB 536D8784 9380837C BFA86189 EDA1037F F9BA9C52 FEE99A95)
"#(((:TYPE SB-C::REF) (:TYPE BIND)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::CRETURN)) ((:TYPE EXIT)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)))"
"((let ((tab #a((8) (unsigned-byte 8) 8 0 0 11 0 12 9 4)))
@@ -712,9 +726,9 @@
(let ((a (>> val 28)))
(^ a (aref tab b))))))")
(#(1894EF0F 1B5666D7 2091FC29 42D83FFB 4F5809D0 606EE9F6 6146FDEA 704F55EE 804A41A7 8B32A898 9EF9A0A6 A12352A9 B3B7ED4C
- BFAC65A0 F1D63D7A FB3D98A2 FBB3277A)
- "(:ALLOW-OTHER-KEYS :STRING-TO-OCTETS-FUN :OCTETS-TO-STRING-FUN :WRITE-C-STRING-FUN :READ-C-STRING-FUN :BYTES-FOR-CHAR-FUN :RESYNC-FUN :WRITE-CHAR-FULL-BUFFERED-FUN :WRITE-CHAR-LINE-BUFFERED-FUN :WRITE-CHAR-NONE-BUFFERED-FUN :WRITE-N-BYTES-FUN :READ-CHAR-FUN :READ-N-CHARS-FUN :REPLACEMENT :DEFAULT-REPLACEMENT-CHARACTER :NEWLINE-VARIANT :NAMES)"
- "((let ((tab #a((16) (unsigned-byte 8) 13 0 1 0 0 0 1 1 12 0 0 7 1 0 13 20)))
+ BFAC65A0 F1D63D7A F7CBDD5F FB3D98A2 FBB3277A)
+ "(:ALLOW-OTHER-KEYS :COUNT-CHARS :STRING-TO-OCTETS-FUN :OCTETS-TO-STRING-FUN :WRITE-C-STRING-FUN :READ-C-STRING-FUN :BYTES-FOR-CHAR-FUN :RESYNC-FUN :WRITE-CHAR-FULL-BUFFERED-FUN :WRITE-CHAR-LINE-BUFFERED-FUN :WRITE-CHAR-NONE-BUFFERED-FUN :WRITE-N-BYTES-FUN :READ-CHAR-FUN :READ-N-CHARS-FUN :REPLACEMENT :DEFAULT-REPLACEMENT-CHARACTER :NEWLINE-VARIANT :NAMES)"
+ "((let ((tab #a((16) (unsigned-byte 8) 13 0 1 0 0 0 1 1 24 0 0 7 1 0 18 1)))
(let ((b (& val #xf)))
(let ((a (>> (<< val 7) 28)))
(^ a (aref tab b))))))")
diff --git a/xperfecthash63.lisp-expr b/xperfecthash63.lisp-expr
index b671e6f9b..a2dcc8d37 100644
--- a/xperfecthash63.lisp-expr
+++ b/xperfecthash63.lisp-expr
@@ -41,6 +41,12 @@
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))")
+(#(0 2 A 1A 1E)
+ "(5 15 1 13 0)"
+ "((let ((tab #a((4) (unsigned-byte 8) 2 0 0 7)))
+ (let ((b (& (>> val 1) #x3)))
+ (let ((a (>> (<< val 27) 30)))
+ (^ a (aref tab b))))))")
(#(0 4 5 C D)
"(NIL 13 12 4 5)"
"((& (- val (>> val 2)) 7))")
@@ -390,13 +396,13 @@
(let ((b (& (>> val 11) #x7)))
(let ((a (>> (<< val 31) 29)))
(^ a (aref tab b))))))")
-(#(13913B1 24D3B50 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 42D83FFB 42E64121 46050970 49C05C00 57C2457C
- 5A355FA0 665871AE 7566B287 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C 9EDCE097
- 9F1704E1 A00DFCD7 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B B71AFB68 D088DA49 D64A65E2 DB5C8A6A DDF478CA E57CFC3F
- E6B647A0 F087745E F5306542 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 51 51 51 0 0 49 0 0 22 12 9 49 10 0 34 36 50 0 38 0 9 0 0 11 16 0 53 0 0 0 0 10)))
- (let ((b (& (>> val 7) #x1f)))
+(#(13913B1 24D3B50 59DB420 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121
+ 46050970 49C05C00 57C2457C 5A355FA0 665871AE 7566B287 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6
+ 9D753C32 9E88666C 9EDCE097 9F1704E1 A00DFCD7 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B B71AFB68 D088DA49 D64A65E2
+ DB5C8A6A DDF478CA E57CFC3F E6B647A0 F087745E F5306542 F8AA3557 FA4BD0D1)
+ "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
+ "((let ((tab #a((32) (unsigned-byte 8) 51 0 16 0 9 60 19 0 51 26 0 0 0 28 51 34 59 22 22 36 36 9 0 0 49 22 0 41 61 10 0 59)))
+ (let ((b (& (>> val 9) #x1f)))
(let ((a (>> (<< val 9) 27)))
(^ a (aref tab b))))))")
(#(15115EA 805D985 DBAFDA3 132E85C2 26DFCD3D 2C62CDF1 2FBB375F 2FCB0B8A 4EBA358E 4FA1D6C1 57DA1CEC 59F6CB0B 60D621C0 68E4C2C2
@@ -414,11 +420,12 @@
(let ((b (& (>> val 12) #xf)))
(let ((a (>> (<< val 7) 28)))
(^ a (aref tab b))))))")
-(#(24D3B50 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 42D83FFB 42E64121 46050970 49C05C00 57C2457C 5A355FA0
- 665871AE 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C 9EDCE097 9F1704E1 A7EE2BA1
- AD4575D9 AEDCFD06 B11EF72D B256F00B D088DA49 D64A65E2 DB5C8A6A DDF478CA E6B647A0 F087745E F5306542 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 0 49 0 51 0 0 28 0 22 0 31 51 12 0 19 9 16 0 38 0 9 0 2 9 16 49 13 0 0 0 0 10)))
+(#(24D3B50 59DB420 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121 46050970
+ 49C05C00 57C2457C 5A355FA0 665871AE 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C
+ 9EDCE097 9F1704E1 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B D088DA49 D64A65E2 DB5C8A6A DDF478CA E6B647A0 F087745E
+ F5306542 F8AA3557 FA4BD0D1)
+ "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
+ "((let ((tab #a((32) (unsigned-byte 8) 19 0 9 28 0 0 0 0 9 12 9 51 36 0 20 9 51 0 33 0 9 0 55 0 12 50 63 0 0 0 0 0)))
(let ((b (& (>> val 7) #x1f)))
(let ((a (>> (<< val 9) 27)))
(^ a (aref tab b))))))")
@@ -838,20 +845,27 @@
(#(120FC1D0 2C444648 488BF057 97EE124C AD4575D9 EBD01872)
"(:VERSION :TYPE :NAME :DIRECTORY :DEVICE :HOST)"
"((& (^ val (>> val 26)) 7))")
+(#(121068DD 2C2B8E55 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 A68A3965 CE783BB2
+ EAA3DA5C EEB4A80D F9BA9C52 FD11F4B0)
+ "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::VOP-JUMPER)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE BIND)) ((:TYPE EXIT)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)))"
+ "((let ((tab #a((16) (unsigned-byte 8) 7 0 0 0 7 0 3 0 0 0 11 0 13 0 19 0)))
+ (let ((b (& val #xf)))
+ (let ((a (>> val 28)))
+ (^ a (aref tab b))))))")
+(#(121068DD 2C2B8E55 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 A68A3965 CE783BB2
+ EAA3DA5C EEB4A80D FD11F4B0)
+ "#(((:TYPE SB-C::VOP-JUMPER) (:TYPE SB-C:JUMP-TABLE) (:TYPE SB-C::CDYNAMIC-EXTENT) (:TYPE SB-C::ENCLOSE) (:TYPE EXIT) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::ENTRY) (:TYPE SB-C::CIF) (:TYPE SB-C::CRETURN)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::REF)) ((:TYPE SB-C::CSET)) ((:TYPE BIND)))"
+ "((let ((tab #a((8) (unsigned-byte 8) 0 5 0 12 11 15 14 12)))
+ (let ((b (& (>> val 15) #x7)))
+ (let ((a (>> (<< val 5) 29)))
+ (^ a (aref tab b))))))")
(#(121068DD 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 A68A3965 CE783BB2 EAA3DA5C
EEB4A80D F9BA9C52 FD11F4B0)
- "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE BIND)) ((:TYPE EXIT)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)))"
+ "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE BIND)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)) ((:TYPE EXIT)))"
"((let ((tab #a((8) (unsigned-byte 8) 0 13 12 4 12 12 0 4)))
(let ((b (& (>> val 7) #x7)))
(let ((a (>> (<< val 5) 29)))
(^ a (aref tab b))))))")
-(#(121068DD 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 A68A3965 CE783BB2 EAA3DA5C
- EEB4A80D FD11F4B0)
- "#(((:TYPE SB-C:JUMP-TABLE) (:TYPE SB-C::CDYNAMIC-EXTENT) (:TYPE SB-C::ENCLOSE) (:TYPE EXIT) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::ENTRY) (:TYPE SB-C::CIF) (:TYPE SB-C::CRETURN)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::REF)) ((:TYPE SB-C::CSET)) ((:TYPE BIND)))"
- "((let ((tab #a((8) (unsigned-byte 8) 0 12 11 12 0 15 0 5)))
- (let ((b (& (>> val 7) #x7)))
- (let ((a (>> (<< val 5) 29)))
- (^ a (aref tab b))))))")
(#(121068DD 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 A68A3965 F9BA9C52)
"#(((:TYPE SB-C::REF) (:TYPE BIND)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::CRETURN)) ((:TYPE EXIT)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)))"
"((let ((tab #a((8) (unsigned-byte 8) 0 12 0 12 0 2 15 0)))
@@ -965,9 +979,9 @@
(let ((a (>> val 28)))
(^ a (aref tab b))))))")
(#(1894EF0F 1B5666D7 2091FC29 42D83FFB 4F5809D0 606EE9F6 6146FDEA 704F55EE 804A41A7 8B32A898 9EF9A0A6 A12352A9 B3B7ED4C
- BFAC65A0 F1D63D7A FB3D98A2 FBB3277A)
- "(:ALLOW-OTHER-KEYS :STRING-TO-OCTETS-FUN :OCTETS-TO-STRING-FUN :WRITE-C-STRING-FUN :READ-C-STRING-FUN :BYTES-FOR-CHAR-FUN :RESYNC-FUN :WRITE-CHAR-FULL-BUFFERED-FUN :WRITE-CHAR-LINE-BUFFERED-FUN :WRITE-CHAR-NONE-BUFFERED-FUN :WRITE-N-BYTES-FUN :READ-CHAR-FUN :READ-N-CHARS-FUN :REPLACEMENT :DEFAULT-REPLACEMENT-CHARACTER :NEWLINE-VARIANT :NAMES)"
- "((let ((tab #a((16) (unsigned-byte 8) 13 0 1 0 0 0 1 1 12 0 0 7 1 0 13 20)))
+ BFAC65A0 F1D63D7A F7CBDD5F FB3D98A2 FBB3277A)
+ "(:ALLOW-OTHER-KEYS :COUNT-CHARS :STRING-TO-OCTETS-FUN :OCTETS-TO-STRING-FUN :WRITE-C-STRING-FUN :READ-C-STRING-FUN :BYTES-FOR-CHAR-FUN :RESYNC-FUN :WRITE-CHAR-FULL-BUFFERED-FUN :WRITE-CHAR-LINE-BUFFERED-FUN :WRITE-CHAR-NONE-BUFFERED-FUN :WRITE-N-BYTES-FUN :READ-CHAR-FUN :READ-N-CHARS-FUN :REPLACEMENT :DEFAULT-REPLACEMENT-CHARACTER :NEWLINE-VARIANT :NAMES)"
+ "((let ((tab #a((16) (unsigned-byte 8) 13 0 1 0 0 0 1 1 24 0 0 7 1 0 18 1)))
(let ((b (& val #xf)))
(let ((a (>> (<< val 7) 28)))
(^ a (aref tab b))))))")
@@ -1265,6 +1279,12 @@
(#(2BF5F421 42D83FFB 4341F7D8 63C971D7 8F7912D6)
"(:ALLOW-OTHER-KEYS :LAMBDA-VAR :FIRED :LEXENV :SOURCE-PATH)"
"((& (- (>> val 1) (>> val 30)) 7))")
+(#(2C2B8E55 4D61368F 58110E7F 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 CE783BB2 EAA3DA5C EEB4A80D FD11F4B0)
+ "(SB-C::CRETURN SB-C::CIF SB-C::ENTRY SB-C::MV-COMBINATION DELAY SB-C::ARRAY-INDEX-CAST CAST EXIT SB-C::ENCLOSE SB-C::CDYNAMIC-EXTENT SB-C:JUMP-TABLE SB-C::VOP-JUMPER)"
+ "((let ((tab #a((8) (unsigned-byte 8) 12 14 0 2 0 2 0 5)))
+ (let ((b (& (>> val 7) #x7)))
+ (let ((a (>> (<< val 5) 29)))
+ (^ a (aref tab b))))))")
(#(2C398ABB 31FABC1E 42D83FFB 815C440D AD4575D9 B54A8914)
"(:ALLOW-OTHER-KEYS :VALUES-DOCUMENTATION :DOCUMENTATION :GETTER :EXPRESSION :NAME)"
"((& (+ (>> val 12) (>> val 16)) 7))")
@@ -1358,9 +1378,6 @@
(#(35455F60 4E3391D6 5256235A 6AC11619 A37EFB8E A7D5BCEA)
"(SB-VM::NOISE SB-VM::IMMEDIATE-CONSTANT CONSTANT SB-VM::STACK SB-VM::FLOAT-REGISTERS SB-VM::REGISTERS)"
"((& (>> val 26) 7))")
-(#(359CB801 4D28C61A 53351B33 A2DD0906 B9B79FF6)
- "(FUNCTION SB-IMPL::PREDICATE SB-IMPL::KEY SB-IMPL::TEST SB-IMPL::TEST-NOT)"
- "((& (^ (>> val 3) (>> val 6)) 7))")
(#(359CB801 5DAB18D0 625827B9 7D5DAB1C BF38ADF8 C2B3EDA3 C7436840 D2821F1C E391E233 EBD01872 F1F25102)
"(:PURE :INITIAL-OFFSET :NAMED :TYPE :PRINT-OBJECT :PRINT-FUNCTION :INCLUDE :PREDICATE :COPIER :CONSTRUCTOR :CONC-NAME)"
"((let ((tab #a((8) (unsigned-byte 8) 0 5 8 11 4 1 0 5)))
@@ -1451,6 +1468,12 @@
(#(3EDDB4DB 42D83FFB 5C084D2B 6C414B8A D18559DF F26B59C0)
"(:ALLOW-OTHER-KEYS :METHOD-FRAME-STYLE :FROM :START :ARGUMENT-LIMIT :COUNT)"
"((& (+ (>> val 6) (>> val 21)) 7))")
+(#(3EF40DEC 991CAE6F 9E1CB64E B8149077 C60DEABC D10DFC0D D5FEF962 D6D10A2B DFFF0920)
+ "(:D :|2D| :|1D| :|4S| :|2S| :|8H| :|4H| :|16B| :|8B|)"
+ "((let ((tab #a((8) (unsigned-byte 8) 14 0 5 4 0 1 4 0)))
+ (let ((b (& val #x7)))
+ (let ((a (>> val 29)))
+ (^ a (aref tab b))))))")
(#(3F16D452 42D83FFB 60D621C0 C33831B6 D4862A02)
"(:ALLOW-OTHER-KEYS :SOURCE-NAMESTRING :SOURCE-PLIST :POLICY :OVERRIDE)"
"((& (- (>> val 7) (>> val 12)) 7))")
@@ -1601,12 +1624,6 @@
(let ((b (& (>> val 1) #x7)))
(let ((a (>> (<< val 5) 29)))
(^ a (aref tab b))))))")
-(#(4D61368F 58110E7F 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 CE783BB2 EAA3DA5C EEB4A80D FD11F4B0)
- "(SB-C::CRETURN SB-C::CIF SB-C::ENTRY SB-C::MV-COMBINATION DELAY SB-C::ARRAY-INDEX-CAST CAST EXIT SB-C::ENCLOSE SB-C::CDYNAMIC-EXTENT SB-C:JUMP-TABLE)"
- "((let ((tab #a((8) (unsigned-byte 8) 13 5 0 0 5 12 2 0)))
- (let ((b (& val #x7)))
- (let ((a (>> (<< val 5) 29)))
- (^ a (aref tab b))))))")
(#(50C23A77 8EFF6827 E5E8B47F F31FD5F8)
"(:MANDATORY :MISER :FILL :LINEAR)"
"((& (>> val 14) 3))")
@@ -1791,110 +1808,5 @@
(#(A49305EF D0241AE7 E55E7F8C EE9A5410)
"(SB-PCL::%CLASS SB-PCL::%PARAMETER SB-PCL::%VARIABLE-REBINDING SPECIAL)"
"((& (>> val 8) 3))")
-(#(0 2 A 1A 1E)
- "(5 15 1 13 0)"
- "((let ((tab #a((4) (unsigned-byte 8) 2 0 0 7)))
- (let ((b (& (>> val 1) #x3)))
- (let ((a (>> (<< val 27) 30)))
- (^ a (aref tab b))))))")
-(#(24D3B50 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121 46050970 49C05C00
- 57C2457C 5A355FA0 665871AE 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C 9EDCE097
- 9F1704E1 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B D088DA49 D64A65E2 DB5C8A6A DDF478CA E6B647A0 F087745E F5306542
- FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 12 0 19 2 0 0 28 0 12 0 10 51 36 0 9 37 16 0 33 0 9 0 55 0 12 50 2 0 0 0 0 9)))
- (let ((b (& (>> val 7) #x1f)))
- (let ((a (>> (<< val 9) 27)))
- (^ a (aref tab b))))))")
-(#(13913B1 24D3B50 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121 46050970
- 49C05C00 57C2457C 5A355FA0 665871AE 7566B287 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32
- 9E88666C 9EDCE097 9F1704E1 A00DFCD7 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B B71AFB68 D088DA49 D64A65E2 DB5C8A6A
- DDF478CA E57CFC3F E6B647A0 F087745E F5306542 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 19 0 16 0 9 16 19 0 51 26 0 0 0 28 51 15 51 51 22 36 36 9 0 0 59 51 0 8 61 10 0 61)))
- (let ((b (& (>> val 9) #x1f)))
- (let ((a (>> (<< val 9) 27)))
- (^ a (aref tab b))))))")
-(#(24D3B50 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3201D0E8 3603EBBE 3D35266E 42D83FFB 42E64121 46050970
- 49C05C00 57C2457C 5A355FA0 665871AE 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C
- 9EDCE097 9F1704E1 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B D088DA49 D64A65E2 DB5C8A6A DDF478CA E6B647A0 F087745E
- F5306542 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CHAR-BUFFER-BYTE-SIZE :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 16 0 51 51 0 0 28 0 8 28 10 51 36 0 9 46 49 0 38 0 9 0 2 28 6 49 2 0 0 0 0 9)))
- (let ((b (& (>> val 7) #x1f)))
- (let ((a (>> (<< val 9) 27)))
- (^ a (aref tab b))))))")
-(#(13913B1 24D3B50 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3201D0E8 3603EBBE 3D35266E 42D83FFB 42E64121
- 46050970 49C05C00 57C2457C 5A355FA0 665871AE 7566B287 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6
- 9D753C32 9E88666C 9EDCE097 9F1704E1 A00DFCD7 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B B71AFB68 D088DA49 D64A65E2
- DB5C8A6A DDF478CA E57CFC3F E6B647A0 F087745E F5306542 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CHAR-BUFFER-BYTE-SIZE :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 0 19 51 0 0 10 6 19 22 51 7 51 7 0 51 0 34 7 36 51 0 34 0 9 0 0 35 0 36 0 43 46)))
- (let ((b (& (>> val 12) #x1f)))
- (let ((a (>> (<< val 9) 27)))
- (^ a (aref tab b))))))")
-(#(1894EF0F 1B5666D7 2091FC29 42D83FFB 4F5809D0 606EE9F6 6146FDEA 704F55EE 804A41A7 8B32A898 9EF9A0A6 A12352A9 B3B7ED4C
- BFAC65A0 F1D63D7A F7CBDD5F FB3D98A2 FBB3277A)
- "(:ALLOW-OTHER-KEYS :COUNT-CHARS :STRING-TO-OCTETS-FUN :OCTETS-TO-STRING-FUN :WRITE-C-STRING-FUN :READ-C-STRING-FUN :BYTES-FOR-CHAR-FUN :RESYNC-FUN :WRITE-CHAR-FULL-BUFFERED-FUN :WRITE-CHAR-LINE-BUFFERED-FUN :WRITE-CHAR-NONE-BUFFERED-FUN :WRITE-N-BYTES-FUN :READ-CHAR-FUN :READ-N-CHARS-FUN :REPLACEMENT :DEFAULT-REPLACEMENT-CHARACTER :NEWLINE-VARIANT :NAMES)"
- "((let ((tab #a((16) (unsigned-byte 8) 13 0 1 0 0 0 1 1 24 0 0 7 1 0 18 1)))
- (let ((b (& val #xf)))
- (let ((a (>> (<< val 7) 28)))
- (^ a (aref tab b))))))")
-(#(24D3B50 59DB420 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121 46050970
- 49C05C00 57C2457C 5A355FA0 665871AE 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C
- 9EDCE097 9F1704E1 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B D088DA49 D64A65E2 DB5C8A6A DDF478CA E6B647A0 F087745E
- F5306542 F8AA3557 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 61 0 9 28 0 0 0 0 9 12 9 49 36 0 32 9 10 0 7 0 9 0 57 0 12 52 51 0 0 0 0 0)))
- (let ((b (& (>> val 7) #x1f)))
- (let ((a (>> (<< val 9) 27)))
- (^ a (aref tab b))))))")
-(#(13913B1 24D3B50 59DB420 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121
- 46050970 49C05C00 57C2457C 5A355FA0 665871AE 7566B287 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6
- 9D753C32 9E88666C 9EDCE097 9F1704E1 A00DFCD7 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B B71AFB68 D088DA49 D64A65E2
- DB5C8A6A DDF478CA E57CFC3F E6B647A0 F087745E F5306542 F8AA3557 FA4BD0D1 FCFE2013)
- "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CSIZE-BUFFER :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 9 51 49 61 0 55 51 9 9 12 9 49 40 0 19 36 54 0 22 0 9 0 0 31 16 51 58 0 0 0 0 28)))
- (let ((b (& (>> val 7) #x1f)))
- (let ((a (>> (<< val 9) 27)))
- (^ a (aref tab b))))))")
-(#(24D3B50 59DB420 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121 46050970
- 49C05C00 57C2457C 5A355FA0 665871AE 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6 9D753C32 9E88666C
- 9EDCE097 9F1704E1 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B D088DA49 D64A65E2 DB5C8A6A DDF478CA E6B647A0 F087745E
- F5306542 F8AA3557 FA4BD0D1)
- "(:ALLOW-OTHER-KEYS :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 19 0 9 28 0 0 0 0 9 12 9 51 36 0 20 9 51 0 33 0 9 0 55 0 12 50 63 0 0 0 0 0)))
- (let ((b (& (>> val 7) #x1f)))
- (let ((a (>> (<< val 9) 27)))
- (^ a (aref tab b))))))")
-(#(13913B1 24D3B50 59DB420 805A8CE D64C851 207E1321 26568C99 2870F40D 2B465CCD 2CC89B6A 3603EBBE 3D35266E 42D83FFB 42E64121
- 46050970 49C05C00 57C2457C 5A355FA0 665871AE 7566B287 772C8C38 7B50A359 7E89C88A 81BF9BA5 8B32A898 8F463A15 9BD8B4B6
- 9D753C32 9E88666C 9EDCE097 9F1704E1 A00DFCD7 A7EE2BA1 AD4575D9 AEDCFD06 B11EF72D B256F00B B71AFB68 D088DA49 D64A65E2
- DB5C8A6A DDF478CA E57CFC3F E6B647A0 F087745E F5306542 F8AA3557 FA4BD0D1)
- "(:ALLOW-OTHER-KEYS :FORM-START-CHAR-POS :FORM-START-BYTE-POS :LAST-NEWLINE :NEWLINES :OBSERVER :FILE-POSITION :OUTPUT-BYTES :REPLACEMENT :CHAR-SIZE :EXTERNAL-FORMAT :PATHNAME :TIMEOUT :HANDLER :OUTPUT-QUEUE :OBUF :EOF-FORCED-P :IBUF :INSTEAD :SERVE-EVENTS :LISTEN :OUTPUT-COLUMN :SYNCHRONIZE-OUTPUT :BUFFERING :FD-TYPE :FD :ELEMENT-MODE :ELEMENT-TYPE :ELEMENT-SIZE :DELETE-ORIGINAL :ORIGINAL :FILE :NAME :INPUT-CHAR-POS :MISC :SOUT :BOUT :COUT :N-BIN :BIN :IN :IN-INDEX :CHAR-BUFFER-START :CHAR-BUFFER-BYTE-POSITION-START :CHAR-BUFFER-BYTE-POSITION :CHAR-BUFFER-BYTE-POSITION-AT :CIN-BUFFER :IN-BUFFER)"
- "((let ((tab #a((32) (unsigned-byte 8) 51 0 16 0 9 60 19 0 51 26 0 0 0 28 51 34 59 22 22 36 36 9 0 0 49 22 0 41 61 10 0 59)))
- (let ((b (& (>> val 9) #x1f)))
- (let ((a (>> (<< val 9) 27)))
- (^ a (aref tab b))))))")
-(#(3EF40DEC 991CAE6F 9E1CB64E B8149077 C60DEABC D10DFC0D D5FEF962 D6D10A2B DFFF0920)
- "(:D :|2D| :|1D| :|4S| :|2S| :|8H| :|4H| :|16B| :|8B|)"
- "((let ((tab #a((8) (unsigned-byte 8) 14 0 5 4 0 1 4 0)))
- (let ((b (& val #x7)))
- (let ((a (>> val 29)))
- (^ a (aref tab b))))))")
-(#(121068DD 2C2B8E55 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 A68A3965 CE783BB2
- EAA3DA5C EEB4A80D FD11F4B0)
- "#(((:TYPE SB-C::VOP-JUMPER) (:TYPE SB-C:JUMP-TABLE) (:TYPE SB-C::CDYNAMIC-EXTENT) (:TYPE SB-C::ENCLOSE) (:TYPE EXIT) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::ENTRY) (:TYPE SB-C::CIF) (:TYPE SB-C::CRETURN)) ((:TYPE SB-C::COMBINATION)) ((:TYPE SB-C::REF)) ((:TYPE SB-C::CSET)) ((:TYPE BIND)))"
- "((let ((tab #a((8) (unsigned-byte 8) 0 5 0 12 11 15 14 12)))
- (let ((b (& (>> val 15) #x7)))
- (let ((a (>> (<< val 5) 29)))
- (^ a (aref tab b))))))")
-(#(121068DD 2C2B8E55 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 A68A3965 CE783BB2
- EAA3DA5C EEB4A80D F9BA9C52 FD11F4B0)
- "#(((:TYPE SB-C::REF)) ((:TYPE SB-C::CIF)) ((:TYPE SB-C:JUMP-TABLE)) ((:TYPE SB-C::VOP-JUMPER)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)) ((:TYPE BIND)) ((:TYPE EXIT)) ((:TYPE SB-C::ENTRY)) ((:TYPE SB-C::CRETURN)) ((:TYPE SB-C::CSET)) ((:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::ENCLOSE)) ((:TYPE SB-C::CDYNAMIC-EXTENT)))"
- "((let ((tab #a((16) (unsigned-byte 8) 7 0 0 0 7 0 3 0 0 0 11 0 13 0 19 0)))
- (let ((b (& val #xf)))
- (let ((a (>> val 28)))
- (^ a (aref tab b))))))")
)
;; EOF
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL