From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Fri, 6 Jun 2003 12:52:52 +0000 (+0000)
Subject: 0.8.0.40:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ed3bd9c7d61a3c1bf8ad81d82a671359117bd235;p=sbcl.git

0.8.0.40:
	Fix build on non-x86 (confirmed for sparc; probable for the
	others...)
	... we can't WRITE (or FORMAT) as early in cold-init as we
	used to, because *PRINT-PPRINT-DISPATCH* is now unbound for
	typecheck reasons.  Create the FLOAT-REG-SYMBOL vectors at
	read-time instead.
---

diff --git a/src/compiler/alpha/insts.lisp b/src/compiler/alpha/insts.lisp
index b6bfa75..30bf844 100644
--- a/src/compiler/alpha/insts.lisp
+++ b/src/compiler/alpha/insts.lisp
@@ -66,9 +66,9 @@
 		dstate))))
 
 (defparameter float-reg-symbols
-  (coerce
-   (loop for n from 0 to 31 collect (make-symbol (format nil "~D" n)))
-   'vector))
+  #.(coerce
+     (loop for n from 0 to 31 collect (make-symbol (format nil "~D" n)))
+     'vector))
 
 (sb!disassem:define-arg-type fp-reg
   :printer (lambda (value stream dstate)
diff --git a/src/compiler/hppa/insts.lisp b/src/compiler/hppa/insts.lisp
index 4fd72f6..856770a 100644
--- a/src/compiler/hppa/insts.lisp
+++ b/src/compiler/hppa/insts.lisp
@@ -136,9 +136,9 @@
 		  dstate))))
 
 (defparameter float-reg-symbols
-  (coerce
-   (loop for n from 0 to 31 collect (make-symbol (format nil "$F~d" n)))
-   'vector))
+  #.(coerce
+     (loop for n from 0 to 31 collect (make-symbol (format nil "$F~d" n)))
+     'vector))
 
 (sb!disassem:define-arg-type fp-reg
   :printer #'(lambda (value stream dstate)
diff --git a/src/compiler/mips/insts.lisp b/src/compiler/mips/insts.lisp
index 686fb91..6ae9eb8 100644
--- a/src/compiler/mips/insts.lisp
+++ b/src/compiler/mips/insts.lisp
@@ -71,9 +71,9 @@
 		  dstate))))
 
 (defparameter float-reg-symbols
-  (coerce 
-   (loop for n from 0 to 31 collect (make-symbol (format nil "$F~d" n)))
-   'vector))
+  #.(coerce 
+     (loop for n from 0 to 31 collect (make-symbol (format nil "$F~d" n)))
+     'vector))
 
 (sb!disassem:define-arg-type fp-reg
   :printer #'(lambda (value stream dstate)
diff --git a/src/compiler/ppc/insts.lisp b/src/compiler/ppc/insts.lisp
index 4d62f25..aff233f 100644
--- a/src/compiler/ppc/insts.lisp
+++ b/src/compiler/ppc/insts.lisp
@@ -76,9 +76,9 @@
 		  dstate))))
 
 (defparameter float-reg-symbols
-  (coerce 
-   (loop for n from 0 to 31 collect (make-symbol (format nil "$F~d" n)))
-   'vector))
+  #.(coerce 
+     (loop for n from 0 to 31 collect (make-symbol (format nil "$F~d" n)))
+     'vector))
 
 (sb!disassem:define-arg-type fp-reg
   :printer #'(lambda (value stream dstate)
diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index 174a2fb..7263810 100644
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -328,9 +328,9 @@ about function addresses and register values.")
 		 (maybe-add-notes value dstate))))
 
 (defparameter float-reg-symbols
-  (coerce 
-   (loop for n from 0 to 63 collect (make-symbol (format nil "%F~d" n)))
-   'vector))
+  #.(coerce 
+     (loop for n from 0 to 63 collect (make-symbol (format nil "%F~d" n)))
+     'vector))
 
 (sb!disassem:define-arg-type fp-reg
   :printer (lambda (value stream dstate)
diff --git a/version.lisp-expr b/version.lisp-expr
index fab9773..0970acf 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.0.39"
+"0.8.0.40"