diff --git a/build-all-cores.sh b/build-all-cores.sh
index 09f373830..ac2553b26 100755
--- a/build-all-cores.sh
+++ b/build-all-cores.sh
@@ -42,7 +42,7 @@
     ("riscv"  ("riscv" :64-bit :little-endian :sb-thread))
     ("sparc"  ("sparc" :big-endian)
               ("sparc-sunos" :big-endian :unix :sunos :elf))
-    ("x86"    ("x86" :little-endian :largefile)
+    ("x86"    ("x86" :little-endian :largefile (not :sb-eval) :sb-fasteval)
               ("x86-ascii" :little-endian :largefile (not :sb-unicode))
               ("x86-thread" :little-endian :largefile :sb-thread)
               ("x86-linux" :little-endian :largefile :sb-thread :linux :unix :elf :sb-thread))
diff --git a/crossbuild-runner/Makefile b/crossbuild-runner/Makefile
index c6f9ccc6e..a8151d29c 100644
--- a/crossbuild-runner/Makefile
+++ b/crossbuild-runner/Makefile
@@ -60,7 +60,7 @@ obj/xbuild/sparc-sunos.core: obj/xbuild/sparc-sunos/xc.core
 	$(SBCL) $(ARGS) sparc-sunos < $(SCRIPT2)
 
 obj/xbuild/x86/xc.core: $(DEPS1)
-	$(SBCL) $(ARGS) x86 x86 "(:WIN32 :SB-THREAD :SB-SAFEPOINT :LITTLE-ENDIAN :LARGEFILE)" < $(SCRIPT1)
+	$(SBCL) $(ARGS) x86 x86 "(:WIN32 :SB-THREAD :SB-SAFEPOINT :LITTLE-ENDIAN :LARGEFILE (NOT :SB-EVAL) :SB-FASTEVAL)" < $(SCRIPT1)
 obj/xbuild/x86.core: obj/xbuild/x86/xc.core
 	$(SBCL) $(ARGS) x86 < $(SCRIPT2)
 
diff --git a/xperfecthash30.lisp-expr b/xperfecthash30.lisp-expr
index cb6349a21..a442ddbdf 100644
--- a/xperfecthash30.lisp-expr
+++ b/xperfecthash30.lisp-expr
@@ -1644,5 +1644,12 @@
   (let ((b (& (>> val 2) #xf)))
    (let ((a (>> (<< val 25) 28)))
     (^ a (aref tab b))))))")
+(#(30DA937 77E5AE3 943F70E A5E505F AC3B384 12383F25 134319CF 138670D7 14885FF8 15A6838A 17F4DBAA 182DE0D9 195B5734 19971E36
+   1B6C501D 1BB8AC21 1DABE532)
+ "(:ALLOW-OTHER-KEYS :SHARE-BLOCK-P :BLOCK-NAME :KEYWORD-BITS :N-OPTIONAL :MIN-ARGS :N-BOUND-VARS :SPECIALS :SEXPR :VALUES :SPECIAL-B :SYMBOLS :TYPE-RESTRICTIONS :EXTRA-TYPECHECKS :BINDING-TYPECHECKS :%POLICY :DECLARATIONS)"
+ "((let ((tab #a((16) (unsigned-byte 8) 0 0 0 0 0 15 3 0 13 12 0 0 0 15 20 13)))
+  (let ((b (& val #xf)))
+   (let ((a (>> (<< val 3) 28)))
+    (^ a (aref tab b))))))")
 )
 ;; EOF