diff --git a/build-all-cores.sh b/build-all-cores.sh index c5dfda403..4683f32c6 100755 --- a/build-all-cores.sh +++ b/build-all-cores.sh @@ -47,7 +47,8 @@ ("x86-thread" :little-endian :largefile :sb-thread) ("x86-linux" :little-endian :largefile :sb-thread :linux :unix :elf :sb-thread)) ("x86-64" ("x86-64" :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256) - ("x86-64-linux" :linux :unix :elf :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256) + ("x86-64-linux" :linux :unix :elf :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256 + (not :sb-eval) :sb-fasteval) ("x86-64-darwin" :darwin :bsd :unix :mach-o :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256) ("x86-64-imm" :little-endian :avx2 :gencgc :sb-simd-pack :sb-simd-pack-256 diff --git a/crossbuild-runner/Makefile b/crossbuild-runner/Makefile index 0e0875fb7..c6f9ccc6e 100644 --- a/crossbuild-runner/Makefile +++ b/crossbuild-runner/Makefile @@ -85,7 +85,7 @@ obj/xbuild/x86-64.core: obj/xbuild/x86-64/xc.core $(SBCL) $(ARGS) x86-64 < $(SCRIPT2) obj/xbuild/x86-64-linux/xc.core: $(DEPS1) - $(SBCL) $(ARGS) x86-64-linux x86-64 "(:LINUX :UNIX :ELF :LITTLE-ENDIAN :AVX2 :GENCGC :SB-SIMD-PACK :SB-SIMD-PACK-256)" < $(SCRIPT1) + $(SBCL) $(ARGS) x86-64-linux x86-64 "(:LINUX :UNIX :ELF :LITTLE-ENDIAN :AVX2 :GENCGC :SB-SIMD-PACK :SB-SIMD-PACK-256 (NOT :SB-EVAL) :SB-FASTEVAL)" < $(SCRIPT1) obj/xbuild/x86-64-linux.core: obj/xbuild/x86-64-linux/xc.core $(SBCL) $(ARGS) x86-64-linux < $(SCRIPT2) diff --git a/xperfecthash63.lisp-expr b/xperfecthash63.lisp-expr index 1f3f6542f..d9204342a 100644 --- a/xperfecthash63.lisp-expr +++ b/xperfecthash63.lisp-expr @@ -2896,5 +2896,12 @@ (let ((b (& (>> val 1) #xf))) (let ((a (>> (<< val 7) 28))) (^ a (aref tab b))))))") +(#(B74EA80 2315A63C 285D29BD 46CDAA6D 4913800D 5597FB3D 5708B5D3 708C7CD6 74191541 74477BB4 7E4DD5CC A3B42EB2 A5860C2B E41ED3F1 + E61904A7 ED178322 F68E2BEE) + "(:DECLARATIONS :%POLICY :BINDING-TYPECHECKS :EXTRA-TYPECHECKS :TYPE-RESTRICTIONS :SYMBOLS :SPECIAL-B :VALUES :SEXPR :SPECIALS :N-BOUND-VARS :MIN-ARGS :N-OPTIONAL :KEYWORD-BITS :BLOCK-NAME :SHARE-BLOCK-P :ALLOW-OTHER-KEYS)" + "((let ((tab #a((16) (unsigned-byte 8) 14 0 0 24 14 13 10 0 0 1 10 0 0 7 3 12))) + (let ((b (& (>> val 5) #xf))) + (let ((a (>> (<< val 31) 28))) + (^ a (aref tab b))))))") ) ;; EOF