From e1d8415ed02b1ae18b421b1884fe5ceb37f6fa27 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 6 Feb 2008 18:13:06 +0000
Subject: [PATCH] Oops.  It's OLD-X86, not OLD-SPARC!

---
 tools/cross-scripts/cross-x86-x86.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/cross-scripts/cross-x86-x86.lisp b/tools/cross-scripts/cross-x86-x86.lisp
index a7131b88b..e14cfdfc8 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)
-- 
GitLab