sbcl: add perfect hash patch for CLISP.

srcpkgs/sbcl/patches/perfecthash.patch

@@ -0,0 +1,48 @@
+Necessary for CLISP bootstrap.
+Provided by stassats`.
+
+--- a/sbcl/xperfecthash30.lisp-expr
++++ b/sbcl/xperfecthash30.lisp-expr
+@@ -692,6 +692,9 @@
+   (let ((b (& (>> val 10) #x7)))
+    (let ((a (>> (<< val 5) 29)))
+     (^ a (aref tab b))))))")
++(#(1DE9D83 2D83FFB FA6ADD3 15CC0915 1D30DC7C 1EFAF033)
++ "(:ALLOW-OTHER-KEYS :FUNCTIONAL :SAME-BLOCK-P :INLINEP :INLINE-EXPANSION :KIND)"
++ "(  (& (+ (>> val 23) (>> val 26)) 7))")
+ (#(1E847AD A771EC5 E70844A 1A23C247 1AAF3CC2 1C5EFFF8)
+  "(SB-C::PROPER-OR-DOTTED-LIST SB-C::PROPER-OR-CIRCULAR-LIST SB-C::PROPER-SEQUENCE SB-C::PROPER-LIST TYPE-SPECIFIER SB-C::MODIFYING)"
+  "(  (& (^ (>> val 1) (>> val 13)) 7))")
+--- a/sbcl/xperfecthash61.lisp-expr
++++ b/sbcl/xperfecthash61.lisp-expr
+@@ -773,6 +773,9 @@
+ (#(15416355 42D83FFB 4341F7D8 63C971D7 8F7912D6)
+  "(:ALLOW-OTHER-KEYS :HOOK :FIRED :LEXENV :SOURCE-PATH)"
+  "(  (& (- val (>> val 4)) 7))")
++(#(15CC0915 42D83FFB 6FA6ADD3 7D30DC7C 81DE9D83 FEFAF033)
++ "(:ALLOW-OTHER-KEYS :FUNCTIONAL :SAME-BLOCK-P :INLINEP :INLINE-EXPANSION :KIND)"
++ "(  (& (+ (>> val 7) (>> val 30)) 7))")
+ (#(1607B33C 380E1F3F 75FB05B6 87C835DD 9DD07497 A4EDA9A1 E0AD3E74 F7158E95 FD00B976)
+  "(SB-VM::COMPLEX-SINGLE-REG SB-VM::COMPLEX-DOUBLE-REG SB-VM::DOUBLE-REG SB-VM::SINGLE-REG SB-VM::DESCRIPTOR-REG SB-VM::SAP-REG SB-VM::SIGNED-REG SB-VM::UNSIGNED-REG SB-VM::ANY-REG)"
+  "((let ((tab #a((8) (unsigned-byte 8) 12 0 0 5 5 0 0 0)))
+--- a/sbcl/xperfecthash63.lisp-expr
++++ b/sbcl/xperfecthash63.lisp-expr
+@@ -1138,6 +1138,9 @@
+ (#(15416355 42D83FFB 4341F7D8 63C971D7 8F7912D6)
+  "(:ALLOW-OTHER-KEYS :HOOK :FIRED :LEXENV :SOURCE-PATH)"
+  "(  (& (- val (>> val 4)) 7))")
++(#(15CC0915 42D83FFB 6FA6ADD3 7D30DC7C 81DE9D83 FEFAF033)
++ "(:ALLOW-OTHER-KEYS :FUNCTIONAL :SAME-BLOCK-P :INLINEP :INLINE-EXPANSION :KIND)"
++ "(  (& (+ (>> val 7) (>> val 30)) 7))")
+ (#(1607B33C 380E1F3F 75FB05B6 87C835DD 9DD07497 A4EDA9A1 E0AD3E74 F7158E95 FD00B976)
+  "(SB-VM::COMPLEX-SINGLE-REG SB-VM::COMPLEX-DOUBLE-REG SB-VM::DOUBLE-REG SB-VM::SINGLE-REG SB-VM::DESCRIPTOR-REG SB-VM::SAP-REG SB-VM::SIGNED-REG SB-VM::UNSIGNED-REG SB-VM::ANY-REG)"
+  "((let ((tab #a((8) (unsigned-byte 8) 12 0 0 5 5 0 0 0)))
+@@ -1988,8 +1991,5 @@
+ (#(B02153B3 C49039A2 DB6D6FD7 E487643D F5B1443E)
+  "(SIMPLE-VECTOR VECTOR CONS LIST NIL)"
+  "(  (& (+ (>> val 1) (>> val 4)) 7))")
+-(#(15CC0915 42D83FFB 6FA6ADD3 7D30DC7C 81DE9D83 FEFAF033)
+- "(:ALLOW-OTHER-KEYS :FUNCTIONAL :SAME-BLOCK-P :INLINEP :INLINE-EXPANSION :KIND)"
+- "(  (& (+ (>> val 7) (>> val 30)) 7))")
+ )
+ ;; EOF