diff --git a/tools/cross-scripts/cross-x86-x86.lisp b/tools/cross-scripts/cross-x86-x86.lisp index a7131b88b89ad5e43eb46e01fe7ca077c7ab1422..e14cfdfc8222f09d8d172df1a903f3b618db3902 100644 --- a/tools/cross-scripts/cross-x86-x86.lisp +++ b/tools/cross-scripts/cross-x86-x86.lisp @@ -132,8 +132,8 @@ OLD-X86:SINGLE-FLOAT-SIGNIFICAND-BYTE ) #+double-double - (frob OLD-SPARC:SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE - OLD-SPARC:SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE)) + (frob OLD-X86:SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE + OLD-X86:SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE)) ;; Modular arith hacks (setf (fdefinition 'vm::ash-left-mod32) #'old-x86::ash-left-mod32)