diff --git a/xperfecthash30.lisp-expr b/xperfecthash30.lisp-expr
index 969856681..e95617288 100644
--- a/xperfecthash30.lisp-expr
+++ b/xperfecthash30.lisp-expr
@@ -585,6 +585,9 @@
   (let ((b (& (>> val 12) #x7)))
    (let ((a (>> (<< val 5) 29)))
     (^ a (aref tab b))))))")
+(#(111A059 216D041 7AF46F4 E1EF1D5)
+ "(SB-ASSEM:.ALIGN SB-ASSEM:.BYTE SB-ASSEM:.SKIP SB-ASSEM:.LISPWORDS)"
+ "((& (>> val 12) 3))")
 (#(11242EA 9E7E496 C8B4E43 EC3EAC9 10A5F7E1 1B5DB13A 1C58D005 1C805E5B 1ED1FDF2 1F4BDEE8)
  "(SB-C:MULTIPLE-CALL SB-C:MULTIPLE-CALL-LOCAL SB-C:MULTIPLE-CALL-NAMED SB-C:STATIC-MULTIPLE-CALL-NAMED SB-C:MULTIPLE-CALL-VARIABLE SB-C:PUSH-VALUES VALUES-LIST SB-C::REVERSE-VALUES-LIST SB-C:%MORE-ARG-VALUES UNALIGNED-DX-CONS)"
  "((let ((tab #a((8) (unsigned-byte 8) 14 0 0 2 0 5 10 0)))
@@ -665,6 +668,9 @@
 (#(1C5C66D 2D83FFB 497BDAC 9894789 DD9FE8B 1264B103 12B75C5F 1C78155D)
  "(:ALLOW-OTHER-KEYS :PRINT-WEEKDAY :PRINT-TIMEZONE :PRINT-MERIDIAN :PRINT-SECONDS :DATE-FIRST :STYLE :TIMEZONE)"
  "((& (+ (>> val 2) (>> val 7) (>> val 11)) 7))")
+(#(1C5FD66 2799ABB 32BCE23 CA550C6 10BCF1E4 15455F60 1647F466)
+ "(:DIRECT :PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
+ "((& (>> val 7) 7))")
 (#(1C5FD66 91ED00E 102153B3 1336F1AC 1CF43650)
  "(:FIXED :KNOWN-RETURN :LOCAL-CALL :FULL-CALL NIL)"
  "((& (+ (>> val 10) (>> val 18)) 7))")
@@ -1204,6 +1210,12 @@
   (let ((b (& val #xf)))
    (let ((a (>> (<< val 3) 28)))
     (^ a (aref tab b))))))")
+(#(3C481C2 4528420 A3E03D5 10F360C2 11F36255 137BB764 13D42188 15F368A1 17F36BC7)
+ "(ABS FLOOR * ASH TRUNCATE / %NEGATE + -)"
+ "((let ((tab #a((8) (unsigned-byte 8) 0 13 2 0 4 7 0 2)))
+  (let ((b (& val #x7)))
+   (let ((a (>> (<< val 3) 29)))
+    (^ a (aref tab b))))))")
 (#(3C481C2 4528420 A3E03D5 10F360C2 11F36255 13D42188 15F368A1 17F36BC7)
  "(FLOOR * ASH TRUNCATE / %NEGATE + -)"
  "((& (- val (>> val 12)) 7))")
@@ -1264,6 +1276,9 @@
 (#(450DECD DB121C2 102153B3 12B126B3 13D924E0)
  "(NIL :FROB-NFP :LOAD-RETURN-PC :LOAD-OLD-FP :LOAD-NARGS)"
  "((& (+ (>> val 5) (>> val 7)) 7))")
+(#(4528420 A3E03D5 10F360C2 11F36255 137BB764 13D42188 15F368A1 17F36BC7)
+ "(ABS * ASH TRUNCATE / %NEGATE + -)"
+ "((& (+ (>> val 23) (>> val 26)) 7))")
 (#(4528420 A3E03D5 10F360C2 11F36255 13D42188 15F368A1 17F36BC7)
  "(* ASH TRUNCATE / %NEGATE + -)"
  "((& (- (>> val 6) (>> val 25)) 7))")
@@ -1279,6 +1294,9 @@
 (#(456475A 53C5D56 CDCC3EF 12383212 13880CF4)
  "(&KEY &BODY &REST &AUX &OPTIONAL)"
  "((& (+ val (>> val 8)) 7))")
+(#(45D9F5E 487643D 9F68C87 BD63E3B 11AAA153 15B1443E 19E47BF0)
+ "(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ STRING VECTOR LIST)"
+ "((& (+ (>> val 1) (>> val 17) (>> val 19)) 7))")
 (#(45D9F5E 487643D BD63E3B 11AAA153 15B1443E 19E47BF0)
  "(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ VECTOR LIST)"
  "((& (- (>> val 8) (>> val 13)) 7))")
@@ -1339,6 +1357,9 @@
 (#(4F34DDE 6F35104 7F35297 F039DEB 16B428A2 1C33E6FC)
  "(< = EQL EQ >= >)"
  "((& (+ val (>> val 10)) 7))")
+(#(4F34DDE 6F35104 7F35297 16B428A2 1C33E6FC)
+ "(> < = EQL EQ)"
+ "((& (^ (>> val 2) (>> val 7)) 7))")
 (#(4F34DDE 6F35104 B08DE4D F039DEB)
  "(< <= > >=)"
  "((& val 3))")
@@ -1567,9 +1588,21 @@
   (let ((b (& (>> val 10) #x7)))
    (let ((a (>> val 29)))
     (^ a (aref tab b))))))")
+(#(109BE3BD 10D2EA4E 15A58D85 15B5A2B5 163D9B36 17524A78 1769E419 18906D08 1C065CB8)
+ "#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)))"
+ "((let ((tab #a((8) (unsigned-byte 8) 2 4 0 0 8 0 0 6)))
+  (let ((b (& (>> val 4) #x7)))
+   (let ((a (>> (<< val 5) 29)))
+    (^ a (aref tab b))))))")
 (#(109BE3BD 10D2EA4E 15A58D85 15B5A2B5 17524A78 1769E419 18906D08)
  "#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION)))"
  "((& (+ (>> val 1) (>> val 11)) 7))")
+(#(109BE3BD 10D2EA4E 15A58D85 17524A78 1769E419 18906D08 1CAE048E)
+ "#(((:TYPE SB-C::ENTRY) (:TYPE BIND) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)))"
+ "((& (+ val (>> val 13)) 7))")
+(#(109BE3BD 10D2EA4E 15A58D85 17524A78 1769E419 1CAE048E)
+ "(SB-C::REF DELAY SB-C::ARRAY-INDEX-CAST CAST BIND SB-C::ENTRY)"
+ "((& (- (>> val 20) (>> val 25)) 7))")
 (#(10A42F45 11651A3C 15CBCE15 1793ACF5 17C9E519 1B009DDD 1FCCE011)
  "#(((:TYPE SB-C::CLAMBDA) (:TYPE SB-C::OPTIONAL-DISPATCH) (:TYPE SB-C::FUNCTIONAL) (:TYPE CONSTANT)) ((:TYPE SB-C::LAMBDA-VAR)) ((:TYPE SB-C::DEFINED-FUN)) ((:TYPE SB-C::GLOBAL-VAR)))"
  "((& (- (>> val 6) (>> val 13)) 7))")
diff --git a/xperfecthash61.lisp-expr b/xperfecthash61.lisp-expr
index a158a0e1c..f57789d71 100644
--- a/xperfecthash61.lisp-expr
+++ b/xperfecthash61.lisp-expr
@@ -478,9 +478,18 @@
   (let ((b (& val #x7)))
    (let ((a (>> val 29)))
     (^ a (aref tab b))))))")
+(#(9A320D4 37D0286E 39CAA339 43BBEE18 4D61368F 53222DFB BFA86189 F9BA9C52 FEE99A95)
+ "#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)))"
+ "((let ((tab #a((8) (unsigned-byte 8) 0 0 0 4 0 4 5 10)))
+  (let ((b (& val #x7)))
+   (let ((a (>> val 29)))
+    (^ a (aref tab b))))))")
 (#(9A320D4 37D0286E 39CAA339 43BBEE18 53222DFB BFA86189 FEE99A95)
  "#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION)))"
  "((& (- (>> val 1) (>> val 26)) 7))")
+(#(9A320D4 37D0286E 43BBEE18 53222DFB BFA86189 EAA3DA5C FEE99A95)
+ "#(((:TYPE SB-C::ENTRY) (:TYPE BIND) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)))"
+ "((& (- val (>> val 5)) 7))")
 (#(9A320D4 39CAA339 43BBEE18 4D61368F 53222DFB 536D8784 9380837C BFA86189 EDA1037F FEE99A95)
  "#(((: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)))"
  "((let ((tab #a((8) (unsigned-byte 8) 5 0 0 11 0 15 0 4)))
@@ -502,6 +511,9 @@
 (#(9F68C87 18919578 C49039A2 E487643D F5B1443E)
  "(SIMPLE-STRING STRING SIMPLE-VECTOR VECTOR LIST)"
  "((& (+ val (>> val 27)) 7))")
+(#(9F68C87 8BD63E3B A45D9F5E D1AAA153 D9E47BF0 E487643D F5B1443E)
+ "(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ STRING VECTOR LIST)"
+ "((& (- (>> val 13) (>> val 28)) 7))")
 (#(A843D76 42D83FFB 4AFE864E 64F3EC9B 686508A6 69DEB0A1 6B650D5F 9B6C0324 9C117DC2 A11BBD24 AD4575D9 B3B59B8C B72C7D24 E80678B2
    EEBA0CC8 F0078F6A)
  "(:ALLOW-OTHER-KEYS :SINGLETON-P :ENUMERABLE-P :MIGHT-CONTAIN-OTHER-TYPES-P :UNPARSE :NEGATE :COMPLEX-= :SIMPLE-= :COMPLEX-INTERSECTION2 :SIMPLE-INTERSECTION2 :COMPLEX-UNION2 :SIMPLE-UNION2 :COMPLEX-SUBTYPEP-ARG2 :COMPLEX-SUBTYPEP-ARG1 :SIMPLE-SUBTYPEP :NAME)"
@@ -824,6 +836,9 @@
 (#(225B3CE5 42D83FFB 645CF61B 64BF0315 8A9A92D0 9BC82B5D EBD01872)
  "(:ALLOW-OTHER-KEYS :INFINITY-DATA :OPERATIONS :FLAG-VARIABLE :TEMP-VARIABLE :TYPE :ANSWER-VARIABLE)"
  "((& (^ (>> val 3) (>> val 30)) 7))")
+(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66 A32BCE23)
+ "(:DIRECT :PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
+ "((& (>> val 7) 7))")
 (#(23533B6B 42D83FFB 5C084D2B 7D30DC7C AD4575D9)
  "(:ALLOW-OTHER-KEYS :WARNINGS :COUNT :KIND :NAME)"
  "((& (- val (>> val 5)) 7))")
@@ -1307,6 +1322,9 @@
 (#(56B428A2 BDD50DB7 D5F71886 ECF81B20)
  "(CLASS SB-PCL::PROTOTYPE SB-PCL::CLASS-EQ EQL)"
  "((& (+ val (>> val 1)) 3))")
+(#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC)
+ "(> < = EQL EQ)"
+ "((& (^ (>> val 2) (>> val 7)) 7))")
 (#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC EF039DEB)
  "(< = EQL EQ >= >)"
  "((& (+ val (>> val 10)) 7))")
@@ -1319,6 +1337,12 @@
 (#(5DBEE1CC 62B68C07 A24AA20E A2BAE11F E86FEA63)
  "(:COVERAGE-MARKS :KNOWN-FUN :FDEFINITION :LOAD-TIME-VALUE :ENTRY)"
  "((& (^ val (>> val 18)) 7))")
+(#(63C481C2 6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
+ "(ABS FLOOR * ASH TRUNCATE / %NEGATE + -)"
+ "((let ((tab #a((8) (unsigned-byte 8) 0 0 4 0 12 2 0 6)))
+  (let ((b (& val #x7)))
+   (let ((a (>> val 29)))
+    (^ a (aref tab b))))))")
 (#(63C481C2 6A3E03D5 73D42188 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
  "(FLOOR * ASH TRUNCATE / %NEGATE + -)"
  "((& (- val (>> val 12)) 7))")
@@ -1331,6 +1355,12 @@
 (#(65E06B8A 66E06D1D 67E06EB0 68E07043 69E071D6 6AE07369 6BE074FC 6CE0768F)
  "#(:CR0 :CR1 :CR2 :CR3 :CR4 :CR5 :CR6 :CR7)"
  "((& val 7))")
+(#(67AF46F4 8216D041 E111A059 EE1EF1D5)
+ "(SB-ASSEM:.ALIGN SB-ASSEM:.BYTE SB-ASSEM:.SKIP SB-ASSEM:.LISPWORDS)"
+ "((& (>> val 12) 3))")
+(#(6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
+ "(ABS * ASH TRUNCATE / %NEGATE + -)"
+ "((& (- val (>> val 28)) 7))")
 (#(6A3E03D5 73D42188 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
  "(* ASH TRUNCATE / %NEGATE + -)"
  "((& (- (>> val 6) (>> val 25)) 7))")
diff --git a/xperfecthash63.lisp-expr b/xperfecthash63.lisp-expr
index 0092695ab..f65c498c6 100644
--- a/xperfecthash63.lisp-expr
+++ b/xperfecthash63.lisp-expr
@@ -284,6 +284,16 @@
   (let ((b (& (>> val 2) #x3)))
    (let ((a (>> (<< val 30) 30)))
     (^ a (aref tab b))))))")
+(#(5 6 F F38 F3A 9FEA759A A2EA7A53)
+ "(6 :MAP6 5 :MAP5 3898 3896 15)"
+ "((let ((tab #a((4) (unsigned-byte 8) 3 0 7 0)))
+  (+= val #x4c7a405c)
+  (^= val (>> val 16))
+  (+= val (<< val 8))
+  (^= val (>> val 4))
+  (let ((b (& (>> val 8) #x3)))
+   (let ((a (>> (u32+ val (<< val 7)) 30)))
+    (^ a (aref tab b))))))")
 (#(6 8 A 16 26)
  "(5 4 3 11 19)"
  "((let ((tab #a((4) (unsigned-byte 8) 3 4 0 0)))
@@ -702,6 +712,9 @@
 (#(9F68C87 18919578 C49039A2 E487643D F5B1443E)
  "(SIMPLE-STRING STRING SIMPLE-VECTOR VECTOR LIST)"
  "((& (+ val (>> val 27)) 7))")
+(#(9F68C87 8BD63E3B A45D9F5E D1AAA153 D9E47BF0 E487643D F5B1443E)
+ "(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ STRING VECTOR LIST)"
+ "((& (- (>> val 13) (>> val 28)) 7))")
 (#(A843D76 42D83FFB 4AFE864E 64F3EC9B 686508A6 69DEB0A1 6B650D5F 9B6C0324 9C117DC2 A11BBD24 AD4575D9 B3B59B8C B72C7D24 E80678B2
    EEBA0CC8 F0078F6A)
  "(:ALLOW-OTHER-KEYS :SINGLETON-P :ENUMERABLE-P :MIGHT-CONTAIN-OTHER-TYPES-P :UNPARSE :NEGATE :COMPLEX-= :SIMPLE-= :COMPLEX-INTERSECTION2 :SIMPLE-INTERSECTION2 :COMPLEX-UNION2 :SIMPLE-UNION2 :COMPLEX-SUBTYPEP-ARG2 :COMPLEX-SUBTYPEP-ARG1 :SIMPLE-SUBTYPEP :NAME)"
@@ -969,6 +982,12 @@
   (let ((b (& (>> val 2) #x7)))
    (let ((a (>> (<< val 5) 29)))
     (^ a (aref tab b))))))")
+(#(121068DD 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965 F9BA9C52)
+ "#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)))"
+ "((let ((tab #a((8) (unsigned-byte 8) 0 0 12 2 5 3 2 3)))
+  (let ((b (& (>> val 27) #x7)))
+   (let ((a (>> (<< val 31) 29)))
+    (^ a (aref tab b))))))")
 (#(121068DD 37D0286E 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965)
  "#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION)))"
  "((& (+ (>> val 1) (>> val 27)) 7))")
@@ -1214,6 +1233,15 @@
 (#(225B3CE5 42D83FFB 645CF61B 64BF0315 8A9A92D0 9BC82B5D EBD01872)
  "(:ALLOW-OTHER-KEYS :INFINITY-DATA :OPERATIONS :FLAG-VARIABLE :TEMP-VARIABLE :TYPE :ANSWER-VARIABLE)"
  "((& (^ (>> val 3) (>> val 30)) 7))")
+(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66)
+ "(:PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
+ "((& (- val (>> val 24)) 7))")
+(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66 A32BCE23)
+ "(:DIRECT :PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
+ "((& (>> val 7) 7))")
+(#(22799ABB 9647F466 A1C5FD66 A309B799 EB45269C)
+ "(:UNBOXED :TAIL :PASS-THROUGH :UNKNOWN :FIXED)"
+ "((& (^ (>> val 4) (>> val 16)) 7))")
 (#(23533B6B 42D83FFB 5C084D2B 7D30DC7C AD4575D9)
  "(:ALLOW-OTHER-KEYS :WARNINGS :COUNT :KIND :NAME)"
  "((& (- val (>> val 5)) 7))")
@@ -1520,6 +1548,12 @@
 (#(379EC24E B0932BD7 DBE841E7)
  "((ASSOC-IF . ASSOC-IF-NOT) (RASSOC-IF . RASSOC-IF-NOT) (MEMBER-IF . MEMBER-IF-NOT))"
  "((^ (>> val 30) 2))")
+(#(37D0286E 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965 EAA3DA5C)
+ "#(((:TYPE SB-C::ENTRY) (:TYPE BIND) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)))"
+ "((& (+ (>> val 4) (>> val 15)) 7))")
+(#(37D0286E 58110E7F 67EE2D1A 6D9A883D 897B4656 EAA3DA5C)
+ "(SB-C::REF DELAY SB-C::ARRAY-INDEX-CAST CAST BIND SB-C::ENTRY)"
+ "((& (- (>> val 2) (>> val 29)) 7))")
 (#(3836DEFB 6A1FC394 A56E935B AB2C6780 F36C4AC5)
  "(:LAYOUT-ID :LAYOUT :IMMOBILE-SYMBOL :SYMBOL-TLS-INDEX :CARD-TABLE-INDEX-MASK)"
  "((& (>> val 11) 7))")
@@ -1814,6 +1848,9 @@
 (#(56B428A2 BDD50DB7 D5F71886 ECF81B20)
  "(CLASS SB-PCL::PROTOTYPE SB-PCL::CLASS-EQ EQL)"
  "((& (+ val (>> val 1)) 3))")
+(#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC)
+ "(> < = EQL EQ)"
+ "((& (^ (>> val 2) (>> val 7)) 7))")
 (#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC EF039DEB)
  "(< = EQL EQ >= >)"
  "((& (+ val (>> val 10)) 7))")
@@ -1838,6 +1875,12 @@
   (let ((b (& val #x7)))
    (let ((a (>> val 29)))
     (^ a (aref tab b))))))")
+(#(63C481C2 6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
+ "(ABS FLOOR * ASH TRUNCATE / %NEGATE + -)"
+ "((let ((tab #a((8) (unsigned-byte 8) 0 0 4 0 12 2 0 6)))
+  (let ((b (& val #x7)))
+   (let ((a (>> val 29)))
+    (^ a (aref tab b))))))")
 (#(63C481C2 6A3E03D5 73D42188 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
  "(FLOOR * ASH TRUNCATE / %NEGATE + -)"
  "((& (- val (>> val 12)) 7))")
@@ -1847,6 +1890,12 @@
   (let ((b (& (>> val 6) #x7)))
    (let ((a (>> (<< val 31) 29)))
     (^ a (aref tab b))))))")
+(#(67AF46F4 8216D041 E111A059 EE1EF1D5)
+ "(SB-ASSEM:.ALIGN SB-ASSEM:.BYTE SB-ASSEM:.SKIP SB-ASSEM:.LISPWORDS)"
+ "((& (>> val 12) 3))")
+(#(6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
+ "(ABS * ASH TRUNCATE / %NEGATE + -)"
+ "((& (- val (>> val 28)) 7))")
 (#(6A3E03D5 73D42188 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
  "(* ASH TRUNCATE / %NEGATE + -)"
  "((& (- (>> val 6) (>> val 25)) 7))")
@@ -1938,41 +1987,5 @@
 (#(A49305EF D0241AE7 E55E7F8C EE9A5410)
  "(SB-PCL::%CLASS SB-PCL::%PARAMETER SB-PCL::%VARIABLE-REBINDING SPECIAL)"
  "((& (>> val 8) 3))")
-(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66)
- "(:PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
- "((& (- val (>> val 24)) 7))")
-(#(22799ABB 9647F466 A1C5FD66 A309B799 EB45269C)
- "(:UNBOXED :TAIL :PASS-THROUGH :UNKNOWN :FIXED)"
- "((& (^ (>> val 4) (>> val 16)) 7))")
-(#(37D0286E 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965 EAA3DA5C)
- "#(((:TYPE SB-C::ENTRY) (:TYPE BIND) (:TYPE DELAY) (:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST) (:TYPE SB-C::REF)) ((:TYPE SB-C::COMBINATION)))"
- "((& (+ (>> val 4) (>> val 15)) 7))")
-(#(22799ABB 2CA550C6 30BCF1E4 35455F60 9647F466 A1C5FD66 A32BCE23)
- "(:DIRECT :PASS-THROUGH :STACK :UNUSED :UNKNOWN :FIXED :DELAYED)"
- "((& (>> val 7) 7))")
-(#(67AF46F4 8216D041 E111A059 EE1EF1D5)
- "(SB-ASSEM:.ALIGN SB-ASSEM:.BYTE SB-ASSEM:.SKIP SB-ASSEM:.LISPWORDS)"
- "((& (>> val 12) 3))")
-(#(63C481C2 6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
- "(ABS FLOOR * ASH TRUNCATE / %NEGATE + -)"
- "((let ((tab #a((8) (unsigned-byte 8) 0 0 4 0 12 2 0 6)))
-  (let ((b (& val #x7)))
-   (let ((a (>> val 29)))
-    (^ a (aref tab b))))))")
-(#(6A3E03D5 73D42188 937BB764 A4528420 D0F360C2 D1F36255 D5F368A1 D7F36BC7)
- "(ABS * ASH TRUNCATE / %NEGATE + -)"
- "((& (- val (>> val 28)) 7))")
-(#(56B428A2 C4F34DDE C6F35104 C7F35297 DC33E6FC)
- "(> < = EQL EQ)"
- "((& (^ (>> val 2) (>> val 7)) 7))")
-(#(121068DD 37D0286E 4D61368F 58110E7F 67EE2D1A 6D9A883D 897B4656 A68A3965 F9BA9C52)
- "#(((:TYPE BIND)) ((:TYPE SB-C::REF)) ((:TYPE DELAY)) ((:TYPE SB-C::ARRAY-INDEX-CAST) (:TYPE CAST)) ((:TYPE SB-C::CSET)) ((:TYPE SB-C::COMBINATION) (:TYPE SB-C::MV-COMBINATION) (:TYPE SB-C::BASIC-COMBINATION)))"
- "((let ((tab #a((8) (unsigned-byte 8) 0 0 12 2 5 3 2 3)))
-  (let ((b (& (>> val 27) #x7)))
-   (let ((a (>> (<< val 31) 29)))
-    (^ a (aref tab b))))))")
-(#(9F68C87 8BD63E3B A45D9F5E D1AAA153 D9E47BF0 E487643D F5B1443E)
- "(%MAKE-LIST MAKE-ARRAY VECTOR-SUBSEQ SUBSEQ STRING VECTOR LIST)"
- "((& (- (>> val 13) (>> val 28)) 7))")
 )
 ;; EOF