diff --git a/xperfecthash30.lisp-expr b/xperfecthash30.lisp-expr
index 24121b1da..0ab31f34b 100644
--- a/xperfecthash30.lisp-expr
+++ b/xperfecthash30.lisp-expr
@@ -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))")
diff --git a/xperfecthash61.lisp-expr b/xperfecthash61.lisp-expr
index a6c9931c5..29dc91404 100644
--- a/xperfecthash61.lisp-expr
+++ b/xperfecthash61.lisp-expr
@@ -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))")
diff --git a/xperfecthash63.lisp-expr b/xperfecthash63.lisp-expr
index db786dcfd..43ab23aa3 100644
--- a/xperfecthash63.lisp-expr
+++ b/xperfecthash63.lisp-expr
@@ -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