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

xperfecthash updates

Browse source
This commit is contained in:
Christophe Rhodes 2025-11-30 14:50:43 +00:00
parent 0966592ac0
commit a8450880fd
3 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
xperfecthash30.lisp-expr
View file

@ -1148,6 +1148,9 @@
(#(3BC72D2 102153B3 11B13DF2 16124E24)
"(NIL :FAIL :DEFER :LISP)"
"((& (>> val 24) 3))")
(#(3C481C2 4528420 A3E03D5 10F360C2 11F36255 15F368A1 17F36BC7)
"(FLOOR / * ASH %NEGATE + -)"
"((& (+ val (>> val 7)) 7))")
(#(3CD666D 8A18EE5 D96C390 10BCF1E4 1256235A 1362CBC8 15AD1E77 16AE7E65 16EC497E 18E49987 1C077216 1DA11FBF)
"(:ARG-PASS :SPECIFIED-SAVE :UNUSED :ALIAS :COMPONENT :CONSTANT :LOAD :SAVE-ONCE :SAVE :DEBUG-ENVIRONMENT :ENVIRONMENT :NORMAL)"
"((let ((tab #a((8) (unsigned-byte 8) 12 0 13 3 0 0 6 12)))

3
xperfecthash61.lisp-expr
View file

@ -1291,6 +1291,9 @@
(#(611D1FAD 80D0C591 AC841474 D2F86037)
"(SHORT-FLOAT SINGLE-FLOAT DOUBLE-FLOAT LONG-FLOAT)"
"((& (>> val 18) 3))")
(#(63C481C2 6A3E03D5 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
"(FLOOR / * ASH %NEGATE + -)"
"((& (+ val (>> val 7)) 7))")
(#(65E06B8A 66E06D1D 67E06EB0 68E07043 69E071D6 6AE07369 6BE074FC 6CE0768F)
"#(:CR0 :CR1 :CR2 :CR3 :CR4 :CR5 :CR6 :CR7)"
"((& val 7))")

6
xperfecthash63.lisp-expr
View file

@ -1640,6 +1640,9 @@
(#(611D1FAD 80D0C591 AC841474 D2F86037)
"(SHORT-FLOAT SINGLE-FLOAT DOUBLE-FLOAT LONG-FLOAT)"
"((& (>> val 18) 3))")
(#(63C481C2 6A3E03D5 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
"(FLOOR / * ASH %NEGATE + -)"
"((& (+ val (>> val 7)) 7))")
(#(6A3E03D5 A4528420 D0F360C2 D1F36255 D7F36BC7)
"(ASH * %NEGATE + -)"
"((& (+ (>> val 1) (>> val 6)) 7))")
@ -1710,8 +1713,5 @@
(#(A49305EF D0241AE7 E55E7F8C EE9A5410)
"(SB-PCL::%CLASS SB-PCL::%PARAMETER SB-PCL::%VARIABLE-REBINDING SPECIAL)"
"((& (>> val 8) 3))")
(#(63C481C2 6A3E03D5 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
"(FLOOR / * ASH %NEGATE + -)"
"((& (+ val (>> val 7)) 7))")
)
;; EOF