common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

build-all-cores

Browse source
This commit is contained in:
Douglas Katzman 2026-08-29 13:24:42 +00:00
parent 8d53b4ca6e
commit 210ad59740
3 changed files with 157 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
xperfecthash30.lisp-expr
View file

@ -1,4 +1,16 @@
(
(#(0 4 8 C 10 1C 20 24 28 2C 30 34 38 3C 40 44 48 4C 50 54 58 5C F4)
"(61 7 3 11 8 9 10 1 15 14 13 12 23 22 21 20 19 18 2 17 16 0 4)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 1 21 13 15 21 7 16 12 9 22 21 0 16 4)))
(let ((b (& (>> val 2) #xf)))
(let ((a (>> (<< val 24) 28)))
(^ a (aref tab b))))))")
(#(0 4 8 C 10 20 24 28 2C 30 34 38 3C 40 44 48 4C 58 5C 60 64 F4)
"(61 8 3 12 9 10 11 1 16 15 14 13 25 24 23 22 19 2 18 17 0 4)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 1 7 7 0 15 21 14 13 16 22 16 13 18 22)))
(let ((b (& (>> val 2) #xf)))
(let ((a (>> (<< val 24) 28)))
(^ a (aref tab b))))))")
(#(0 4 8 C 18 1C 20 24 28 2C 30 34 38 3C 40 44 48 4C 50 54 58 5C F4)
"(61 6 3 11 8 9 10 7 15 14 13 12 23 22 21 20 19 18 2 17 16 0 1)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 1 21 15 21 13 7 16 12 9 22 21 0 16 4)))
@ -38,9 +50,49 @@
(#(0 8 10 18 30 38)
"(14 12 4 2 6 0)"
"((& (^ (>> val 3) (>> val 4)) 7))")
(#(0 8 10 44 48 4C)
"(18 17 2 19 4 0)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 2 2)))
(+= val #x24be15b7)
(^= val (>> val 4))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (u32+ val (<< val 24)) 30)))
(^ a (aref tab b))))))")
(#(0 8 10 48 4C)
"(18 2 19 4 0)"
"((let ((tab #a((4) (unsigned-byte 8) 0 4 0 2)))
(+= val #x201699d4)
(^= val (>> val 4))
(let ((b (& (>> val 3) #x3)))
(let ((a (>> (u32+ val (<< val 20)) 30)))
(^ a (aref tab b))))))")
(#(4 8 20 40 100)
"(64 16 8 2 1)"
"((& (+ (>> val 2) (>> val 3) (>> val 7)) 7))")
(#(4 C 14 18 20 34)
"(1 8 3 13 6 5)"
"((let ((tab #a((4) (unsigned-byte 8) 0 0 4 4)))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(4 C 14 1C 20 38)
"(1 8 3 14 7 5)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 7 2)))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(4 C 18 1C 34)
"(1 6 7 3 13)"
"((let ((tab #a((4) (unsigned-byte 8) 3 1 6 0)))
(let ((b (& (>> val 3) #x3)))
(let ((a (>> (<< val 29) 30)))
(^ a (aref tab b))))))")
(#(4 20 24 28 2C)
"(1 10 9 11 8)"
"((let ((tab #a((4) (unsigned-byte 8) 3 0 1 6)))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(8 C 14 20 30 38)
"(12 3 2 14 5 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
@ -342,6 +394,9 @@
(let ((b (>> (<< val 3) 29)))
(let ((a (& val #x7)))
(^ a (aref tab b))))))")
(#(AD3E74 7C835DD D8563BC 1256235A 17158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::CONTROL-STACK . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3) (SB-VM::ANY-REG . 4))"
"((& (+ val (>> val 2)) 7))")
(#(AD3E74 7C835DD 1256235A 17158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::ANY-REG . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3))"
"((& (>> val 7) 3))")
@ -726,6 +781,9 @@
(let ((b (& val #x7)))
(let ((a (>> (<< val 3) 29)))
(^ a (aref tab b))))))")
(#(29CA013 51B4652 BD70BB8 10F422B1 1A9C8A8E)
"(SB-C::%MORE SB-C::%REST SB-C::%OPTIONAL SB-C::%SUPPLIED-P SB-C::%DELETED)"
"((& (+ (>> val 1) (>> val 25)) 7))")
(#(29F44EF 4C0DDF8 9F3BC27 B9DB7B4 19019F31)
"#(:BINDS :CALLS :SETS :REFERENCES :MACROEXPANDS)"
"((& (- (>> val 4) (>> val 24)) 7))")

12
xperfecthash61.lisp-expr
View file

@ -1,4 +1,10 @@
(
(#(0 8 10 18 20 30 38 40 48 50 58 60 68 70 78 80 88 90 98 A0 A8 B0 1E8)
"(61 6 3 10 7 8 9 1 14 13 12 11 22 21 20 19 18 17 2 16 15 0 4)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 1 21 13 15 7 15 16 9 18 22 21 0 16 4)))
(let ((b (& (>> val 3) #xf)))
(let ((a (>> (<< val 23) 28)))
(^ a (aref tab b))))))")
(#(0 8 10 18 28 30 38 40 48 50 58 60 68 70 78 80 88 90 98 A0 A8 B0 1E8)
"(61 5 3 10 7 8 9 6 14 13 12 11 22 21 20 19 18 17 2 16 15 0 1)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 1 21 15 13 7 15 16 9 18 22 21 0 16 4)))
@ -918,6 +924,9 @@
(#(2B465CCD 42D83FFB 6808911B 71FB8EC1 B169B946 DE0A9C1B FA4BD0D1)
"(:ALLOW-OTHER-KEYS :NOT-NULL :ELEMENT-TYPE :EXTERNAL-FORMAT :TO :ALIGNMENT :BITS)"
"((& (^ val (>> val 29)) 7))")
(#(2BD70BB8 429CA013 451B4652 70F422B1 FA9C8A8E)
"(SB-C::%MORE SB-C::%REST SB-C::%OPTIONAL SB-C::%SUPPLIED-P SB-C::%DELETED)"
"((& (+ val (>> val 30)) 7))")
(#(2BF5F421 42D83FFB 4341F7D8 63C971D7 8F7912D6)
"(:ALLOW-OTHER-KEYS :LAMBDA-VAR :FIRED :LEXENV :SOURCE-PATH)"
"((& (- (>> val 1) (>> val 30)) 7))")
@ -1228,6 +1237,9 @@
(#(52383212 C53C5D56 D3880CF4 E456475A ECDCC3EF)
"(&KEY &BODY &REST &AUX &OPTIONAL)"
"((& (+ val (>> val 8)) 7))")
(#(5256235A 87C835DD E0AD3E74 ED8563BC F7158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::CONTROL-STACK . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3) (SB-VM::ANY-REG . 4))"
"((& (+ val (>> val 2)) 7))")
(#(5256235A 87C835DD E0AD3E74 F7158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::ANY-REG . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3))"
"((& (>> val 7) 3))")

124
xperfecthash63.lisp-expr
View file

@ -58,6 +58,38 @@
(let ((b (& val #x7)))
(let ((a (>> (u32+ val (<< val 25)) 29)))
(^ a (aref tab b))))))")
(#(0 4 8 1E 20 22 28 2A)
"(15 16 20 21 2 17 4 0)"
"((let ((tab #a((4) (unsigned-byte 8) 0 4 7 0)))
(+= val #x2ebae1b0)
(^= val (>> val 4))
(let ((b (& (>> val 4) #x3)))
(let ((a (>> (u32+ val (<< val 28)) 30)))
(^ a (aref tab b))))))")
(#(0 4 8 24 26 28 2E 30)
"(18 19 23 24 2 20 4 0)"
"((let ((tab #a((8) (unsigned-byte 8) 0 7 2 4 2 5 5 0)))
(+= val #xa4e87235)
(^= val (>> val 4))
(let ((b (& (>> val 1) #x7)))
(let ((a (>> (u32+ val (<< val 24)) 30)))
(^ a (aref tab b))))))")
(#(0 4 8 32 34 36)
"(26 25 2 27 4 0)"
"((let ((tab #a((4) (unsigned-byte 8) 0 7 3 0)))
(+= val #x3d1cc7a5)
(^= val (>> val 4))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (u32+ val (<< val 27)) 30)))
(^ a (aref tab b))))))")
(#(0 4 8 34 36)
"(26 2 27 4 0)"
"((let ((tab #a((4) (unsigned-byte 8) 0 0 2 6)))
(+= val #x14650a3e)
(^= val (>> val 4))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (u32+ val (<< val 26)) 30)))
(^ a (aref tab b))))))")
(#(0 58AA11D 33FB65F5 DE12C038)
"#(:OFFSET :POST-INDEX 0 :PRE-INDEX)"
"((& (>> val 2) 3))")
@ -185,6 +217,43 @@
(#(2 4 10 20 80)
"(64 16 8 2 1)"
"((& (+ (>> val 1) (>> val 2) (>> val 6)) 7))")
(#(2 6 A C 16)
"(1 6 3 11 5)"
"((& (^ (>> val 2) (>> val 4)) 7))")
(#(2 6 A C 18)
"(1 6 3 12 5)"
"((& (+ (>> val 2) (>> val 3) (>> val 4)) 7))")
(#(2 6 A 16 26)
"(1 5 3 11 19)"
"((& (^ (>> val 2) (>> val 4)) 7))")
(#(2 6 A 16 2C)
"(1 5 3 11 22)"
"((let ((tab #a((4) (unsigned-byte 8) 0 6 2 0)))
(+= val #xe705d0f4)
(^= val (>> val 4))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (u32+ val (<< val 21)) 30)))
(^ a (aref tab b))))))")
(#(2 6 A 18 26)
"(1 5 3 12 19)"
"((let ((tab #a((4) (unsigned-byte 8) 2 1 0 5)))
(+= val #xe705d0f4)
(^= val (>> val 4))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (u32+ val (<< val 21)) 30)))
(^ a (aref tab b))))))")
(#(2 6 A 18 2C)
"(1 5 3 12 22)"
"((let ((tab #a((4) (unsigned-byte 8) 3 1 0 4)))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 30) 30)))
(^ a (aref tab b))))))")
(#(2 A E 10 12 16 18 1A 1C 2C)
"(14 13 12 11 22 9 8 7 1 5)"
"((let ((tab #a((8) (unsigned-byte 8) 5 0 0 11 11 5 0 0)))
(let ((b (& (>> val 1) #x7)))
(let ((a (>> (<< val 26) 29)))
(^ a (aref tab b))))))")
(#(4 6 A 10 18 1C)
"(12 3 2 14 5 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
@ -251,6 +320,18 @@
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(A E 10 16 26)
"(11 19 7 8 5)"
"((let ((tab #a((4) (unsigned-byte 8) 2 4 0 0)))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(A E 10 16 2C)
"(11 22 7 8 5)"
"((let ((tab #a((4) (unsigned-byte 8) 2 2 6 0)))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(C 2E 34 36 38 3A 3C)
"(26 30 29 28 27 23 6)"
"((& (+ (>> val 1) (>> val 2) (>> val 4)) 7))")
@ -1297,6 +1378,9 @@
(#(2B465CCD 42D83FFB 6808911B 71FB8EC1 B169B946 DE0A9C1B FA4BD0D1)
"(:ALLOW-OTHER-KEYS :NOT-NULL :ELEMENT-TYPE :EXTERNAL-FORMAT :TO :ALIGNMENT :BITS)"
"((& (^ val (>> val 29)) 7))")
(#(2BD70BB8 429CA013 451B4652 70F422B1 FA9C8A8E)
"(SB-C::%MORE SB-C::%REST SB-C::%OPTIONAL SB-C::%SUPPLIED-P SB-C::%DELETED)"
"((& (+ val (>> val 30)) 7))")
(#(2BF5F421 42D83FFB 4341F7D8 63C971D7 8F7912D6)
"(:ALLOW-OTHER-KEYS :LAMBDA-VAR :FIRED :LEXENV :SOURCE-PATH)"
"((& (- (>> val 1) (>> val 30)) 7))")
@ -1663,6 +1747,9 @@
(#(52383212 C53C5D56 D3880CF4 E456475A ECDCC3EF)
"(&KEY &BODY &REST &AUX &OPTIONAL)"
"((& (+ val (>> val 8)) 7))")
(#(5256235A 87C835DD E0AD3E74 ED8563BC F7158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::CONTROL-STACK . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3) (SB-VM::ANY-REG . 4))"
"((& (+ val (>> val 2)) 7))")
(#(5256235A 87C835DD E0AD3E74 F7158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::ANY-REG . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3))"
"((& (>> val 7) 3))")
@ -1835,42 +1922,5 @@
(#(A49305EF D0241AE7 E55E7F8C EE9A5410)
"(SB-PCL::%CLASS SB-PCL::%PARAMETER SB-PCL::%VARIABLE-REBINDING SPECIAL)"
"((& (>> val 8) 3))")
(#(5256235A 87C835DD E0AD3E74 ED8563BC F7158E95)
"((SB-VM::DESCRIPTOR-REG . 0) (SB-VM::CONTROL-STACK . 1) (SB-VM::SIGNED-REG . 2) (CONSTANT . 3) (SB-VM::ANY-REG . 4))"
"((& (+ val (>> val 2)) 7))")
(#(2 6 A 16 2C)
"(1 5 3 11 22)"
"((let ((tab #a((4) (unsigned-byte 8) 0 6 2 0)))
(+= val #xe705d0f4)
(^= val (>> val 4))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (u32+ val (<< val 21)) 30)))
(^ a (aref tab b))))))")
(#(2 6 A 18 2C)
"(1 5 3 12 22)"
"((let ((tab #a((4) (unsigned-byte 8) 3 1 0 4)))
(let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 30) 30)))
(^ a (aref tab b))))))")
(#(A E 10 16 2C)
"(11 22 7 8 5)"
"((let ((tab #a((4) (unsigned-byte 8) 2 2 6 0)))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(0 4 8 24 26 28 2E 30)
"(18 19 23 24 2 20 4 0)"
"((let ((tab #a((8) (unsigned-byte 8) 0 7 2 4 2 5 5 0)))
(+= val #xa4e87235)
(^= val (>> val 4))
(let ((b (& (>> val 1) #x7)))
(let ((a (>> (u32+ val (<< val 24)) 30)))
(^ a (aref tab b))))))")
(#(2 A E 10 12 16 18 1A 1C 2C)
"(14 13 12 11 22 9 8 7 1 5)"
"((let ((tab #a((8) (unsigned-byte 8) 5 0 0 11 11 5 0 0)))
(let ((b (& (>> val 1) #x7)))
(let ((a (>> (<< val 26) 29)))
(^ a (aref tab b))))))")
)
;; EOF